(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |[1]#_g112321_|
    (##structure
     gx#syntax-quote::t
     'else
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112324_|
    (##structure
     gx#syntax-quote::t
     'Exception
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112325_|
    (##structure
     gx#syntax-quote::t
     'StackTrace
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112327_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112329_|
    (##structure
     gx#syntax-quote::t
     'make-SyntaxError
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112331_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112333_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112334_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112335_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112336_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-context
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112337_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-phi
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112338_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-marks
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112339_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112341_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112342_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112343_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112344_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-context-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112345_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-phi-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112346_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-marks-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112347_|
    (##structure
     gx#syntax-quote::t
     'SyntaxError-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112349_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112350_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112351_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112352_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-context
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112353_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-phi
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112354_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-marks
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112355_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112357_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112358_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112359_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112360_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-context-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112361_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-phi-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112362_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-marks-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112363_|
    (##structure
     gx#syntax-quote::t
     '&SyntaxError-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112365_|
    (##structure
     gx#syntax-quote::t
     'AST::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112367_|
    (##structure
     gx#syntax-quote::t
     'make-AST
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112369_|
    (##structure
     gx#syntax-quote::t
     'AST?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112371_|
    (##structure
     gx#syntax-quote::t
     'AST-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112372_|
    (##structure
     gx#syntax-quote::t
     'AST-source
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112374_|
    (##structure
     gx#syntax-quote::t
     'AST-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112375_|
    (##structure
     gx#syntax-quote::t
     'AST-source-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112377_|
    (##structure
     gx#syntax-quote::t
     '&AST-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112378_|
    (##structure
     gx#syntax-quote::t
     '&AST-source
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112380_|
    (##structure
     gx#syntax-quote::t
     '&AST-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g112381_|
    (##structure
     gx#syntax-quote::t
     '&AST-source-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |[:0:]#core-ast-case|
      (lambda (_%$stx110591%_)
        (let* ((_%g110595110619%_
                (lambda (_%g110596110615%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g110596110615%_)))
               (_%g110594110705%_
                (lambda (_%g110596110623%_)
                  (if (gx#stx-pair? _%g110596110623%_)
                      (let ((_%e110599110626%_
                             (gx#syntax-e _%g110596110623%_)))
                        (let ((_%hd110600110630%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e110599110626%_)))
                              (_%tl110601110633%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e110599110626%_))))
                          (if (gx#stx-pair? _%tl110601110633%_)
                              (let ((_%e110602110636%_
                                     (gx#syntax-e _%tl110601110633%_)))
                                (let ((_%hd110603110640%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e110602110636%_)))
                                      (_%tl110604110643%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e110602110636%_))))
                                  (if (gx#stx-pair/null? _%tl110604110643%_)
                                      (let ((_g112313_
                                             (gx#syntax-split-splice
                                              _%tl110604110643%_
                                              '0)))
                                        (begin
                                          (let ((_g112314_
                                                 (let ()
                                                   (declare (not safe))
                                                   (if (##values? _g112313_)
                                                       (##vector-length
                                                        _g112313_)
                                                       1))))
                                            (if (not (let ()
                                                       (declare (not safe))
                                                       (##fx= _g112314_ 2)))
                                                (error "Context expects 2 values"
                                                       _g112314_)))
                                          (let ((_%target110605110646%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref _g112313_ 0)))
                                                (_%tl110607110649%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref
                                                    _g112313_
                                                    1))))
                                            (if (gx#stx-null?
                                                 _%tl110607110649%_)
                                                (letrec ((_%loop110608110652%_
                                                          (lambda (_%hd110606110656%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _%body110612110659%_)
                    (if (gx#stx-pair? _%hd110606110656%_)
                        (let ((_%e110609110662%_
                               (gx#syntax-e _%hd110606110656%_)))
                          (let ((_%lp-hd110610110666%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e110609110662%_)))
                                (_%lp-tl110611110669%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e110609110662%_))))
                            (_%loop110608110652%_
                             _%lp-tl110611110669%_
                             (cons _%lp-hd110610110666%_
                                   _%body110612110659%_))))
                        (let ((_%body110613110672%_
                               (reverse _%body110612110659%_)))
                          ((lambda (_%L110676%_ _%L110678%_)
                             (cons (gx#datum->syntax '#f 'let)
                                   (cons (cons (gx#datum->syntax '#f '$e)
                                               (cons _%L110678%_ '()))
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      'core-ast-case%)
                                                     (cons (gx#datum->syntax
                                                            '#f
                                                            '$e)
                                                           (let ((__tmp112315
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (lambda (_%g110696110699%_ _%g110697110702%_)
                            (cons _%g110696110699%_ _%g110697110702%_))))
                     (declare (not safe))
                     (__foldr1 __tmp112315 '() _%L110676%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               '()))))
                           _%body110613110672%_
                           _%hd110603110640%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%loop110608110652%_
                                                   _%target110605110646%_
                                                   '()))
                                                (_%g110595110619%_
                                                 _%g110596110623%_)))))
                                      (_%g110595110619%_ _%g110596110623%_))))
                              (_%g110595110619%_ _%g110596110623%_))))
                      (_%g110595110619%_ _%g110596110623%_)))))
          (_%g110594110705%_ _%$stx110591%_))))
    (define |[:0:]#core-ast-case%|
      (lambda (_%stx110710%_)
        (letrec ((_%generate1110713%_
                  (lambda (_%hd111254%_
                           _%tgt111256%_
                           _%K111257%_
                           _%E111258%_
                           _%kws111259%_)
                    (let* ((_%g111261111269%_
                            (lambda (_%g111262111265%_)
                              (gx#raise-syntax-error
                               '#f
                               '"Bad syntax; invalid match target"
                               _%g111262111265%_)))
                           (_%g111260111704%_
                            (lambda (_%g111262111273%_)
                              ((lambda (_%L111276%_)
                                 (let* ((_%__stx112211112212%_ _%hd111254%_)
                                        (_%g111290111304%_
                                         (lambda ()
                                           (gx#raise-syntax-error
                                            '#f
                                            '"Bad syntax; invalid match target"
                                            _%__stx112211112212%_))))
                                   (let ((_%__kont112214112215%_
                                          (lambda (_%L111526%_ _%L111528%_)
                                            (let* ((_%g111539111547%_
                                                    (lambda (_%g111540111543%_)
                                                      (gx#raise-syntax-error
                                                       '#f
                                                       '"Bad syntax; invalid match target"
                                                       _%g111540111543%_)))
                                                   (_%g111538111696%_
                                                    (lambda (_%g111540111551%_)
                                                      ((lambda (_%L111554%_)
                                                         (let* ((_%g111566111574%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (lambda (_%g111567111570%_)
                           (gx#raise-syntax-error
                            '#f
                            '"Bad syntax; invalid match target"
                            _%g111567111570%_)))
                        (_%g111565111692%_
                         (lambda (_%g111567111578%_)
                           ((lambda (_%L111581%_)
                              (let* ((_%g111594111602%_
                                      (lambda (_%g111595111598%_)
                                        (gx#raise-syntax-error
                                         '#f
                                         '"Bad syntax; invalid match target"
                                         _%g111595111598%_)))
                                     (_%g111593111688%_
                                      (lambda (_%g111595111606%_)
                                        ((lambda (_%L111609%_)
                                           (let* ((_%g111622111630%_
                                                   (lambda (_%g111623111626%_)
                                                     (gx#raise-syntax-error
                                                      '#f
                                                      '"Bad syntax; invalid match target"
                                                      _%g111623111626%_)))
                                                  (_%g111621111684%_
                                                   (lambda (_%g111623111634%_)
                                                     ((lambda (_%L111637%_)
                                                        (let* ((_%g111650111658%_
                                                                (lambda (_%g111651111654%_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (gx#raise-syntax-error
                           '#f
                           '"Bad syntax; invalid match target"
                           _%g111651111654%_)))
                       (_%g111649111680%_
                        (lambda (_%g111651111662%_)
                          ((lambda (_%L111665%_)
                             (cons (gx#datum->syntax '#f 'if)
                                   (cons (cons (gx#datum->syntax
                                                '#f
                                                '__AST-pair?)
                                               (cons _%L111276%_ '()))
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      'let*)
                                                     (cons (cons (cons _%L111554%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               (cons (cons (gx#datum->syntax '#f '__AST-e)
                                           (cons _%L111276%_ '()))
                                     '()))
                         (cons (cons _%L111581%_
                                     (cons (cons (gx#datum->syntax '#f '##car)
                                                 (cons _%L111554%_ '()))
                                           '()))
                               (cons (cons _%L111609%_
                                           (cons (cons (gx#datum->syntax
                                                        '#f
                                                        '##cdr)
                                                       (cons _%L111554%_ '()))
                                                 '()))
                                     '())))
                   (cons _%L111637%_ '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (cons _%L111665%_ '())))))
                           _%g111651111662%_))))
                  (_%g111649111680%_ _%E111258%_)))
              _%g111623111634%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (_%g111621111684%_
                                              (_%generate1110713%_
                                               _%L111528%_
                                               _%L111581%_
                                               (_%generate1110713%_
                                                _%L111526%_
                                                _%L111609%_
                                                _%K111257%_
                                                _%E111258%_
                                                _%kws111259%_)
                                               _%E111258%_
                                               _%kws111259%_))))
                                         _%g111595111606%_))))
                                (_%g111593111688%_ (gx#genident '$tl))))
                            _%g111567111578%_))))
                   (_%g111565111692%_ (gx#genident '$hd))))
               _%g111540111551%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g111538111696%_
                                               (gx#genident '$tgt)))))
                                         (_%__kont112216112217%_
                                          (lambda (_%L111393%_)
                                            (if (gx#underscore? _%L111393%_)
                                                _%K111257%_
                                                (if (let ((__tmp112317
                                                           (lambda (_%g111403111405%_)
                                                             (gx#bound-identifier=?
                                                              _%g111403111405%_
                                                              _%L111393%_)))
                                                          (__tmp112316
                                                           (gx#syntax->list
                                                            _%kws111259%_)))
                                                      (declare (not safe))
                                                      (__find __tmp112317
                                                              __tmp112316))
                                                    (let* ((_%g111411111426%_
                                                            (lambda (_%g111412111422%_)
                                                              (gx#raise-syntax-error
                                                               '#f
                                                               '"Bad syntax; invalid match target"
                                                               _%g111412111422%_)))
                                                           (_%g111410111472%_
                                                            (lambda (_%g111412111430%_)
                                                              (if (gx#stx-pair?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _%g111412111430%_)
                          (let ((_%e111415111433%_
                                 (gx#syntax-e _%g111412111430%_)))
                            (let ((_%hd111416111437%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e111415111433%_)))
                                  (_%tl111417111440%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e111415111433%_))))
                              (if (gx#stx-pair? _%tl111417111440%_)
                                  (let ((_%e111418111443%_
                                         (gx#syntax-e _%tl111417111440%_)))
                                    (let ((_%hd111419111447%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e111418111443%_)))
                                          (_%tl111420111450%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e111418111443%_))))
                                      (if (gx#stx-null? _%tl111420111450%_)
                                          ((lambda (_%L111453%_ _%L111455%_)
                                             (cons (gx#datum->syntax '#f 'if)
                                                   (cons (cons (gx#datum->syntax
                                                                '#f
                                                                'and)
                                                               (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    '#f
                                    '__AST-id?)
                                   (cons _%L111276%_ '()))
                             (cons (cons (gx#datum->syntax '#f 'eq?)
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      '__AST-e)
                                                     (cons _%L111276%_ '()))
                                               (cons (cons (gx#datum->syntax
                                                            '#f
                                                            'quote)
                                                           (cons _%L111393%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     '())))
                                   '())))
                 (cons _%L111455%_ (cons _%L111453%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           _%hd111419111447%_
                                           _%hd111416111437%_)
                                          (_%g111411111426%_
                                           _%g111412111430%_))))
                                  (_%g111411111426%_ _%g111412111430%_))))
                          (_%g111411111426%_ _%g111412111430%_)))))
              (_%g111410111472%_ (list _%K111257%_ _%E111258%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let* ((_%g111478111486%_
                                                            (lambda (_%g111479111482%_)
                                                              (gx#raise-syntax-error
                                                               '#f
                                                               '"Bad syntax; invalid match target"
                                                               _%g111479111482%_)))
                                                           (_%g111477111505%_
                                                            (lambda (_%g111479111490%_)
                                                              ((lambda (_%L111493%_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons (gx#datum->syntax '#f 'let)
                               (cons (cons (cons _%L111393%_
                                                 (cons _%L111276%_ '()))
                                           '())
                                     (cons _%L111493%_ '()))))
                       _%g111479111490%_))))
              (_%g111477111505%_ _%K111257%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (_%__kont112218112219%_
                                          (lambda (_%L111311%_)
                                            (let* ((_%g111322111337%_
                                                    (lambda (_%g111323111333%_)
                                                      (gx#raise-syntax-error
                                                       '#f
                                                       '"Bad syntax; invalid match target"
                                                       _%g111323111333%_)))
                                                   (_%g111321111382%_
                                                    (lambda (_%g111323111341%_)
                                                      (if (gx#stx-pair?
                                                           _%g111323111341%_)
                                                          (let ((_%e111326111344%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (gx#syntax-e _%g111323111341%_)))
                    (let ((_%hd111327111348%_
                           (let ()
                             (declare (not safe))
                             (##car _%e111326111344%_)))
                          (_%tl111328111351%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e111326111344%_))))
                      (if (gx#stx-pair? _%tl111328111351%_)
                          (let ((_%e111329111354%_
                                 (gx#syntax-e _%tl111328111351%_)))
                            (let ((_%hd111330111358%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e111329111354%_)))
                                  (_%tl111331111361%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e111329111354%_))))
                              (if (gx#stx-null? _%tl111331111361%_)
                                  ((lambda (_%L111364%_ _%L111366%_)
                                     (cons (gx#datum->syntax '#f 'if)
                                           (cons (cons (gx#datum->syntax
                                                        '#f
                                                        'equal?)
                                                       (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#f
                            '__AST-e)
                           (cons _%L111276%_ '()))
                     (cons (cons (gx#datum->syntax '#f 'quote)
                                 (cons _%L111311%_ '()))
                           '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (cons _%L111366%_
                                                       (cons _%L111364%_
                                                             '())))))
                                   _%hd111330111358%_
                                   _%hd111327111348%_)
                                  (_%g111322111337%_ _%g111323111341%_))))
                          (_%g111322111337%_ _%g111323111341%_))))
                  (_%g111322111337%_ _%g111323111341%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g111321111382%_
                                               (list _%K111257%_
                                                     _%E111258%_))))))
                                     (let ((_%g111288111509%_
                                            (lambda ()
                                              (let ((_%L111393%_
                                                     _%__stx112211112212%_))
                                                (if (gx#identifier?
                                                     _%L111393%_)
                                                    (_%__kont112216112217%_
                                                     _%L111393%_)
                                                    (_%__kont112218112219%_
                                                     _%__stx112211112212%_))))))
                                       (if (gx#stx-pair? _%__stx112211112212%_)
                                           (let ((_%e111294111516%_
                                                  (gx#syntax-e
                                                   _%__stx112211112212%_)))
                                             (let ((_%tl111296111523%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e111294111516%_)))
                                                   (_%hd111295111520%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e111294111516%_))))
                                               (_%__kont112214112215%_
                                                _%tl111296111523%_
                                                _%hd111295111520%_)))
                                           (let ()
                                             (declare (not safe))
                                             (_%g111288111509%_)))))))
                               _%g111262111273%_))))
                      (_%g111260111704%_ _%tgt111256%_)))))
          (let* ((_%g110716110744%_
                  (lambda (_%g110717110740%_)
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g110717110740%_)))
                 (_%g110715111250%_
                  (lambda (_%g110717110748%_)
                    (if (gx#stx-pair? _%g110717110748%_)
                        (let ((_%e110721110751%_
                               (gx#syntax-e _%g110717110748%_)))
                          (let ((_%hd110722110755%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e110721110751%_)))
                                (_%tl110723110758%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e110721110751%_))))
                            (if (gx#stx-pair? _%tl110723110758%_)
                                (let ((_%e110724110761%_
                                       (gx#syntax-e _%tl110723110758%_)))
                                  (let ((_%hd110725110765%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e110724110761%_)))
                                        (_%tl110726110768%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e110724110761%_))))
                                    (if (gx#stx-pair? _%tl110726110768%_)
                                        (let ((_%e110727110771%_
                                               (gx#syntax-e
                                                _%tl110726110768%_)))
                                          (let ((_%hd110728110775%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e110727110771%_)))
                                                (_%tl110729110778%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e110727110771%_))))
                                            (if (gx#stx-pair/null?
                                                 _%tl110729110778%_)
                                                (let ((_g112318_
                                                       (gx#syntax-split-splice
                                                        _%tl110729110778%_
                                                        '0)))
                                                  (begin
                                                    (let ((_g112319_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (if (##values?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _g112318_)
                         (##vector-length _g112318_)
                         1))))
              (if (not (let () (declare (not safe)) (##fx= _g112319_ 2)))
                  (error "Context expects 2 values" _g112319_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ((_%target110730110781%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _g112318_
                                                              0)))
                                                          (_%tl110732110784%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _g112318_
                                                              1))))
                                                      (if (gx#stx-null?
                                                           _%tl110732110784%_)
                                                          (letrec ((_%loop110733110787%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (lambda (_%hd110731110791%_ _%clause110737110794%_)
                              (if (gx#stx-pair? _%hd110731110791%_)
                                  (let ((_%e110734110797%_
                                         (gx#syntax-e _%hd110731110791%_)))
                                    (let ((_%lp-hd110735110801%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e110734110797%_)))
                                          (_%lp-tl110736110804%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e110734110797%_))))
                                      (_%loop110733110787%_
                                       _%lp-tl110736110804%_
                                       (cons _%lp-hd110735110801%_
                                             _%clause110737110794%_))))
                                  (let ((_%clause110738110807%_
                                         (reverse _%clause110737110794%_)))
                                    ((lambda (_%L110811%_
                                              _%L110813%_
                                              _%L110814%_)
                                       (let _%recur110836%_ ((_%rest110839%_
                                                              (let ((__tmp112322
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (lambda (_%g111241111244%_ _%g111242111247%_)
                               (cons _%g111241111244%_ _%g111242111247%_))))
                        (declare (not safe))
                        (__foldr1 __tmp112322 '() _%L110811%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (let* ((_%rest110841110850%_
                                                 _%rest110839%_)
                                                (_%E110844110856%_
                                                 (lambda ()
                                                   (let ()
                                                     (declare (not safe))
                                                     (error '"No clause matching"
                                                            _%rest110841110850%_
                                                            '([hd . rest])
                                                            '([])))
                                                   '#!void)))
                                           (let ((_%K110846111226%_
                                                  (lambda (_%rest110872%_
                                                           _%hd110874%_)
                                                    (let* ((_%g110876110884%_
                                                            (lambda (_%g110877110880%_)
                                                              (gx#raise-syntax-error
                                                               '#f
                                                               '"Bad syntax; invalid match target"
                                                               _%g110877110880%_)))
                                                           (_%g110875111222%_
                                                            (lambda (_%g110877110888%_)
                                                              ((lambda (_%L110891%_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let* ((_%g110909110917%_
                                 (lambda (_%g110910110913%_)
                                   (gx#raise-syntax-error
                                    '#f
                                    '"Bad syntax; invalid match target"
                                    _%g110910110913%_)))
                                (_%g110908111218%_
                                 (lambda (_%g110910110921%_)
                                   ((lambda (_%L110924%_)
                                      (let* ((_%g110937110945%_
                                              (lambda (_%g110938110941%_)
                                                (gx#raise-syntax-error
                                                 '#f
                                                 '"Bad syntax; invalid match target"
                                                 _%g110938110941%_)))
                                             (_%g110936111214%_
                                              (lambda (_%g110938110949%_)
                                                ((lambda (_%L110952%_)
                                                   (let* ((_%g110965110973%_
                                                           (lambda (_%g110966110969%_)
                                                             (gx#raise-syntax-error
                                                              '#f
                                                              '"Bad syntax; invalid match target"
                                                              _%g110966110969%_)))
                                                          (_%g110964110995%_
                                                           (lambda (_%g110966110977%_)
                                                             ((lambda (_%L110980%_)
                                                                (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               '#f
                               'let)
                              (cons (cons _%L110891%_
                                          (cons (cons (gx#datum->syntax
                                                       '#f
                                                       'lambda)
                                                      (cons '()
                                                            (cons _%L110952%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                '()))
                                    (cons _%L110980%_ '()))))
                      _%g110966110977%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%g110964110995%_
                                                      (let* ((_%__stx112229112230%_
                                                              _%hd110874%_)
                                                             (_%g111001111041%_
                                                              (lambda ()
                                                                (gx#raise-syntax-error
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '#f
                         '"Bad syntax; invalid match target"
                         _%__stx112229112230%_))))
                (let ((_%__kont112232112233%_
                       (lambda (_%L111187%_)
                         (cons (gx#datum->syntax '#f 'begin)
                               (let ((__tmp112320
                                      (lambda (_%g111201111204%_
                                               _%g111202111207%_)
                                        (cons _%g111201111204%_
                                              _%g111202111207%_))))
                                 (declare (not safe))
                                 (__foldr1 __tmp112320 '() _%L111187%_)))))
                      (_%__kont112236112237%_
                       (lambda (_%L111125%_ _%L111127%_)
                         (_%generate1110713%_
                          _%L111127%_
                          _%L110814%_
                          _%L111125%_
                          _%L110924%_
                          _%L110813%_)))
                      (_%__kont112238112239%_
                       (lambda (_%L111078%_ _%L111080%_ _%L111081%_)
                         (_%generate1110713%_
                          _%L111081%_
                          _%L110814%_
                          (cons (gx#datum->syntax '#f 'if)
                                (cons _%L111080%_
                                      (cons _%L111078%_
                                            (cons _%L110924%_ '()))))
                          _%L110924%_
                          _%L110813%_))))
                  (let ((_%__match112258112259%_
                         (lambda (_%e111004111147%_
                                  _%hd111005111151%_
                                  _%tl111006111154%_
                                  _%__splice112234112235%_
                                  _%target111007111157%_
                                  _%tl111009111160%_)
                           (letrec ((_%loop111010111163%_
                                     (lambda (_%hd111008111167%_
                                              _%expr111014111170%_)
                                       (if (gx#stx-pair? _%hd111008111167%_)
                                           (let ((_%e111011111173%_
                                                  (gx#syntax-e
                                                   _%hd111008111167%_)))
                                             (let ((_%lp-tl111013111180%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e111011111173%_)))
                                                   (_%lp-hd111012111177%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e111011111173%_))))
                                               (_%loop111010111163%_
                                                _%lp-tl111013111180%_
                                                (cons _%lp-hd111012111177%_
                                                      _%expr111014111170%_))))
                                           (let ((_%expr111015111183%_
                                                  (reverse _%expr111014111170%_)))
                                             (_%__kont112232112233%_
                                              _%expr111015111183%_))))))
                             (_%loop111010111163%_
                              _%target111007111157%_
                              '())))))
                    (if (gx#stx-pair? _%__stx112229112230%_)
                        (let ((_%e111004111147%_
                               (gx#syntax-e _%__stx112229112230%_)))
                          (let ((_%tl111006111154%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e111004111147%_)))
                                (_%hd111005111151%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e111004111147%_))))
                            (if (gx#identifier? _%hd111005111151%_)
                                (if (gx#free-identifier=?
                                     |[1]#_g112321_|
                                     _%hd111005111151%_)
                                    (if (gx#stx-pair/null? _%tl111006111154%_)
                                        (let ((_%__splice112234112235%_
                                               (gx#syntax-split-splice
                                                _%tl111006111154%_
                                                '0)))
                                          (let ((_%tl111009111160%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref
                                                    _%__splice112234112235%_
                                                    '1)))
                                                (_%target111007111157%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##vector-ref
                                                    _%__splice112234112235%_
                                                    '0))))
                                            (if (gx#stx-null?
                                                 _%tl111009111160%_)
                                                (_%__match112258112259%_
                                                 _%e111004111147%_
                                                 _%hd111005111151%_
                                                 _%tl111006111154%_
                                                 _%__splice112234112235%_
                                                 _%target111007111157%_
                                                 _%tl111009111160%_)
                                                (if (gx#stx-pair?
                                                     _%tl111006111154%_)
                                                    (let ((_%e111021111115%_
                                                           (gx#syntax-e
                                                            _%tl111006111154%_)))
                                                      (let ((_%tl111023111122%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e111021111115%_)))
                    (_%hd111022111119%_
                     (let () (declare (not safe)) (##car _%e111021111115%_))))
                (if (gx#stx-null? _%tl111023111122%_)
                    (_%__kont112236112237%_
                     _%hd111022111119%_
                     _%hd111005111151%_)
                    (if (gx#stx-pair? _%tl111023111122%_)
                        (let ((_%e111033111068%_
                               (gx#syntax-e _%tl111023111122%_)))
                          (let ((_%tl111035111075%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e111033111068%_)))
                                (_%hd111034111072%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e111033111068%_))))
                            (if (gx#stx-null? _%tl111035111075%_)
                                (_%__kont112238112239%_
                                 _%hd111034111072%_
                                 _%hd111022111119%_
                                 _%hd111005111151%_)
                                (let ()
                                  (declare (not safe))
                                  (_%g111001111041%_)))))
                        (let () (declare (not safe)) (_%g111001111041%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g111001111041%_))))))
                                        (if (gx#stx-pair? _%tl111006111154%_)
                                            (let ((_%e111021111115%_
                                                   (gx#syntax-e
                                                    _%tl111006111154%_)))
                                              (let ((_%tl111023111122%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e111021111115%_)))
                                                    (_%hd111022111119%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e111021111115%_))))
                                                (if (gx#stx-null?
                                                     _%tl111023111122%_)
                                                    (_%__kont112236112237%_
                                                     _%hd111022111119%_
                                                     _%hd111005111151%_)
                                                    (if (gx#stx-pair?
                                                         _%tl111023111122%_)
                                                        (let ((_%e111033111068%_
                                                               (gx#syntax-e
                                                                _%tl111023111122%_)))
                                                          (let ((_%tl111035111075%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (##cdr _%e111033111068%_)))
                        (_%hd111034111072%_
                         (let ()
                           (declare (not safe))
                           (##car _%e111033111068%_))))
                    (if (gx#stx-null? _%tl111035111075%_)
                        (_%__kont112238112239%_
                         _%hd111034111072%_
                         _%hd111022111119%_
                         _%hd111005111151%_)
                        (let () (declare (not safe)) (_%g111001111041%_)))))
                (let () (declare (not safe)) (_%g111001111041%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (let ()
                                              (declare (not safe))
                                              (_%g111001111041%_))))
                                    (if (gx#stx-pair? _%tl111006111154%_)
                                        (let ((_%e111021111115%_
                                               (gx#syntax-e
                                                _%tl111006111154%_)))
                                          (let ((_%tl111023111122%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e111021111115%_)))
                                                (_%hd111022111119%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e111021111115%_))))
                                            (if (gx#stx-null?
                                                 _%tl111023111122%_)
                                                (_%__kont112236112237%_
                                                 _%hd111022111119%_
                                                 _%hd111005111151%_)
                                                (if (gx#stx-pair?
                                                     _%tl111023111122%_)
                                                    (let ((_%e111033111068%_
                                                           (gx#syntax-e
                                                            _%tl111023111122%_)))
                                                      (let ((_%tl111035111075%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e111033111068%_)))
                    (_%hd111034111072%_
                     (let () (declare (not safe)) (##car _%e111033111068%_))))
                (if (gx#stx-null? _%tl111035111075%_)
                    (_%__kont112238112239%_
                     _%hd111034111072%_
                     _%hd111022111119%_
                     _%hd111005111151%_)
                    (let () (declare (not safe)) (_%g111001111041%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g111001111041%_))))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g111001111041%_))))
                                (if (gx#stx-pair? _%tl111006111154%_)
                                    (let ((_%e111021111115%_
                                           (gx#syntax-e _%tl111006111154%_)))
                                      (let ((_%tl111023111122%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e111021111115%_)))
                                            (_%hd111022111119%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e111021111115%_))))
                                        (if (gx#stx-null? _%tl111023111122%_)
                                            (_%__kont112236112237%_
                                             _%hd111022111119%_
                                             _%hd111005111151%_)
                                            (if (gx#stx-pair?
                                                 _%tl111023111122%_)
                                                (let ((_%e111033111068%_
                                                       (gx#syntax-e
                                                        _%tl111023111122%_)))
                                                  (let ((_%tl111035111075%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e111033111068%_)))
                                                        (_%hd111034111072%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e111033111068%_))))
                                                    (if (gx#stx-null?
                                                         _%tl111035111075%_)
                                                        (_%__kont112238112239%_
                                                         _%hd111034111072%_
                                                         _%hd111022111119%_
                                                         _%hd111005111151%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g111001111041%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g111001111041%_))))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g111001111041%_))))))
                        (let ()
                          (declare (not safe))
                          (_%g111001111041%_)))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 _%g110938110949%_))))
                                        (_%g110936111214%_
                                         (_%recur110836%_ _%rest110872%_))))
                                    _%g110910110921%_))))
                           (_%g110908111218%_ (cons _%L110891%_ '()))))
                       _%g110877110888%_))))
              (_%g110875111222%_ (gx#genident '$E)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%K110845110864%_
                                                  (lambda ()
                                                    (cons (gx#datum->syntax
                                                           '#f
                                                           '__raise-syntax-error)
                                                          (cons '#f
                                                                (cons '"Bad syntax; malformed ast clause"
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cons _%L110814%_ '())))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (let ((_%try-match110843110868%_
                                                    (lambda ()
                                                      (if (null? _%rest110841110850%_)
                                                          (_%K110845110864%_)
                                                          (_%E110844110856%_)))))
                                               (if (pair? _%rest110841110850%_)
                                                   (let ((_%tl110848111233%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%rest110841110850%_)))
                                                         (_%hd110847111230%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%rest110841110850%_))))
                                                     (let ((_%hd111236%_
                                                            _%hd110847111230%_)
                                                           (_%rest111239%_
                                                            _%tl110848111233%_))
                                                       (_%K110846111226%_
                                                        _%rest111239%_
                                                        _%hd111236%_)))
                                                   (_%try-match110843110868%_)))))))
                                     _%clause110738110807%_
                                     _%hd110728110775%_
                                     _%hd110725110765%_))))))
                    (_%loop110733110787%_ _%target110730110781%_ '()))
                  (_%g110716110744%_ _%g110717110748%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%g110716110744%_
                                                 _%g110717110748%_))))
                                        (_%g110716110744%_
                                         _%g110717110748%_))))
                                (_%g110716110744%_ _%g110717110748%_))))
                        (_%g110716110744%_ _%g110717110748%_)))))
            (_%g110715111250%_ _%stx110710%_)))))
    (define |[:0:]#SyntaxError|
      (let ((__obj112304
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/mop~MOP-2#class-type-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj112304
           'gerbil/runtime/syntax#SyntaxError::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 'SyntaxError '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj112304
           '(message irritants where context phi marks)
           '4
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj112304
           '(continuation message irritants where context phi marks)
           '6
           '#f
           '#f))
        (let ((__tmp112323 (cons |[1]#_g112324_| (cons |[1]#_g112325_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112323 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '#t '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '#f '11 '#f '#f))
        (let ((__tmp112326 |[1]#_g112327_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112326 '12 '#f '#f))
        (let ((__tmp112328 |[1]#_g112329_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112328 '13 '#f '#f))
        (let ((__tmp112330 |[1]#_g112331_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112330 '14 '#f '#f))
        (let ((__tmp112332
               (cons (cons 'message |[1]#_g112333_|)
                     (cons (cons 'irritants |[1]#_g112334_|)
                           (cons (cons 'where |[1]#_g112335_|)
                                 (cons (cons 'context |[1]#_g112336_|)
                                       (cons (cons 'phi |[1]#_g112337_|)
                                             (cons (cons 'marks
                                                         |[1]#_g112338_|)
                                                   (cons (cons 'continuation
                                                               |[1]#_g112339_|)
                                                         '())))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112332 '15 '#f '#f))
        (let ((__tmp112340
               (cons (cons 'message |[1]#_g112341_|)
                     (cons (cons 'irritants |[1]#_g112342_|)
                           (cons (cons 'where |[1]#_g112343_|)
                                 (cons (cons 'context |[1]#_g112344_|)
                                       (cons (cons 'phi |[1]#_g112345_|)
                                             (cons (cons 'marks
                                                         |[1]#_g112346_|)
                                                   (cons (cons 'continuation
                                                               |[1]#_g112347_|)
                                                         '())))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112340 '16 '#f '#f))
        (let ((__tmp112348
               (cons (cons 'message |[1]#_g112349_|)
                     (cons (cons 'irritants |[1]#_g112350_|)
                           (cons (cons 'where |[1]#_g112351_|)
                                 (cons (cons 'context |[1]#_g112352_|)
                                       (cons (cons 'phi |[1]#_g112353_|)
                                             (cons (cons 'marks
                                                         |[1]#_g112354_|)
                                                   (cons (cons 'continuation
                                                               |[1]#_g112355_|)
                                                         '())))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112348 '17 '#f '#f))
        (let ((__tmp112356
               (cons (cons 'message |[1]#_g112357_|)
                     (cons (cons 'irritants |[1]#_g112358_|)
                           (cons (cons 'where |[1]#_g112359_|)
                                 (cons (cons 'context |[1]#_g112360_|)
                                       (cons (cons 'phi |[1]#_g112361_|)
                                             (cons (cons 'marks
                                                         |[1]#_g112362_|)
                                                   (cons (cons 'continuation
                                                               |[1]#_g112363_|)
                                                         '())))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 __tmp112356 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112304 '() '20 '#f '#f))
        __obj112304))
    (define |[:0:]#AST|
      (let ((__obj112306
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/mop~MOP-2#class-type-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 'gerbil#AST::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 'syntax '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '(e source) '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '(e source) '6 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '#f '11 '#f '#f))
        (let ((__tmp112364 |[1]#_g112365_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112364 '12 '#f '#f))
        (let ((__tmp112366 |[1]#_g112367_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112366 '13 '#f '#f))
        (let ((__tmp112368 |[1]#_g112369_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112368 '14 '#f '#f))
        (let ((__tmp112370
               (cons (cons 'e |[1]#_g112371_|)
                     (cons (cons 'source |[1]#_g112372_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112370 '15 '#f '#f))
        (let ((__tmp112373
               (cons (cons 'e |[1]#_g112374_|)
                     (cons (cons 'source |[1]#_g112375_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112373 '16 '#f '#f))
        (let ((__tmp112376
               (cons (cons 'e |[1]#_g112377_|)
                     (cons (cons 'source |[1]#_g112378_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112376 '17 '#f '#f))
        (let ((__tmp112379
               (cons (cons 'e |[1]#_g112380_|)
                     (cons (cons 'source |[1]#_g112381_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 __tmp112379 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj112306 '() '20 '#f '#f))
        __obj112306))))
