exanded.rkt

(module anonymous-module racket
  (#%module-begin
   (module configure-runtime '#%kernel (#%module-begin (#%require racket/runtime-config) (#%app configure (quote #f))))
   (define-values (lifted/52 lifted/53 lifted/54 lifted/55 lifted/56)
     (#%app
      make-struct-type
      '|m method in unsaved-editor:2:0|
      struct:keyword-method/arity-error
      (quote 0)
      (quote 0)
      (quote #f)
      (#%app
       list
       (#%app
        cons
        prop:named-keyword-procedure
        (#%app
         cons
         '|m method in unsaved-editor:2:0|
         🔒(case-lambda [(self self199356 x) (#%app apply missing-kw self self199356 x null)]))))
      (#%app current-inspector)
      🔒(case-lambda [(self self199356 x) (#%app apply missing-kw self self199356 x null)])))
   (#%app
    call-with-values
    (lambda ()
      (#%app
       compose-class
       'unsaved-editor:2:0
       object%
       (#%app list)
       (#%app current-inspector)
       (quote #f)
       (quote #f)
       (quote 0)
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote:25 (m))
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote ())
       (quote normal)
       (lambda:35 (local-accessor local-mutator m1:36)
         (let-values ()
           (let-values:37 ()
             (let-values ()
               (let-values:39 ()
                 (let-values ()
                   (let-values ()
                     (let-values ()
                       (let-values:42 ()
                         (letrec-values:43 ()
                           (#%app:44
                            values
                            (#%app:45
                             list
                             (let-values ()
                               (let-values:47 ()
                                 (let-values ()
                                   (let-values:48 (((|m method in unsaved-editor:2:0|)
                                                    🔒(let-values:49 (((|m method in unsaved-editor:2:0:50|)
                                                                      (lambda (x11:51 self19935613:52 x14:53)
                                                                        (let-values:54 (((self199356) self19935613:52))
                                                                          (let-values:55 (((x) x14:53))
                                                                            (let-values:56 (((y) x11:51))
                                                                              (let-values:57 ()
                                                                                (let-values ()
                                                                                  (let-values:59 ()
                                                                                    (#%app:60 string-length y))))))))))
                                                       (let-values:61 (((|m method in unsaved-editor:2:0:62|)
                                                                        (lambda (given-kws
                                                                                 given-args
                                                                                 self19935613:52
                                                                                 x14:53)
                                                                          (let-values:63 (((x11:51)
                                                                                           (#%app:64 car:64 given-args)))
                                                                            (#%app
                                                                             |m method in unsaved-editor:2:0:50|
                                                                             x11:51
                                                                             self19935613:52
                                                                             x14:53)))))
                                                         (#%app
                                                          lifted/53
                                                          (lambda (given-kws given-argc)
                                                            (if:65 (#%app:66 =:66 given-argc (quote 4))
                                                              (let-values:67 (((l2200017:68) given-kws))
                                                                (if:69 (#%app:68 pair?:68 l2200017:68)
                                                                  (if:70 (#%app:68
                                                                          eq?:68
                                                                          (#%app:68 car:68 l2200017:68)
                                                                          '#:x)
                                                                    (#%app:71 null?:71 (#%app:68 cdr:68 l2200017:68))
                                                                    (quote #f))
                                                                  (quote #f)))
                                                              (quote #f)))
                                                          (case-lambda:72
                                                           [(given-kws given-args self199356 x)
                                                            (#%app:72
                                                             |m method in unsaved-editor:2:0:62|
                                                             given-kws
                                                             given-args
                                                             self199356
                                                             x)])
                                                          '(#:x)
                                                          '(#:x))))))
                                     |m method in unsaved-editor:2:0|)))))
                            (#%app:73 list)
                            (#%app:74 list)
                            (lambda:75 (self199356 super-go si_c si_inited? si_leftovers init-args)
                              (let-values ()
                                (let-values:77 ()
                                  (let-values ()
                                    (let-values:79 ()
                                      (let-values ()
                                        (#%app:80 void)
                                        '(declare-field-use-start)
                                        (quote:81 (declare-super-new:82))
                                        🔒(#%app:83
                                          super-go
                                          self199356
                                          si_c
                                          si_inited?
                                          si_leftovers
                                          null:82
                                          (#%app:85 list:84)))))))))))))))))))
       (quote #f)
       (quote #f)))
    print-values)))