(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |[1]#_g114890_|
    (##structure
     gx#syntax-quote::t
     '__syntax::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114892_|
    (##structure
     gx#syntax-quote::t
     'make-__syntax
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114894_|
    (##structure
     gx#syntax-quote::t
     '__syntax?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114896_|
    (##structure
     gx#syntax-quote::t
     '__syntax-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114897_|
    (##structure
     gx#syntax-quote::t
     '__syntax-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114899_|
    (##structure
     gx#syntax-quote::t
     '__syntax-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114900_|
    (##structure
     gx#syntax-quote::t
     '__syntax-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114902_|
    (##structure
     gx#syntax-quote::t
     '&__syntax-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114903_|
    (##structure
     gx#syntax-quote::t
     '&__syntax-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114905_|
    (##structure
     gx#syntax-quote::t
     '&__syntax-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114906_|
    (##structure
     gx#syntax-quote::t
     '&__syntax-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114908_|
    (##structure
     gx#syntax-quote::t
     '__syntax
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114910_|
    (##structure
     gx#syntax-quote::t
     '__core-form::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114912_|
    (##structure
     gx#syntax-quote::t
     'make-__core-form
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114914_|
    (##structure
     gx#syntax-quote::t
     '__core-form?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114916_|
    (##structure
     gx#syntax-quote::t
     '__core-form-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114917_|
    (##structure
     gx#syntax-quote::t
     '__core-form-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114919_|
    (##structure
     gx#syntax-quote::t
     '__core-form-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114920_|
    (##structure
     gx#syntax-quote::t
     '__core-form-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114922_|
    (##structure
     gx#syntax-quote::t
     '&__core-form-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114923_|
    (##structure
     gx#syntax-quote::t
     '&__core-form-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114925_|
    (##structure
     gx#syntax-quote::t
     '&__core-form-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114926_|
    (##structure
     gx#syntax-quote::t
     '&__core-form-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114928_|
    (##structure
     gx#syntax-quote::t
     '__core-form
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114930_|
    (##structure
     gx#syntax-quote::t
     '__core-expression::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114932_|
    (##structure
     gx#syntax-quote::t
     'make-__core-expression
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114934_|
    (##structure
     gx#syntax-quote::t
     '__core-expression?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114936_|
    (##structure
     gx#syntax-quote::t
     '__core-expression-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114937_|
    (##structure
     gx#syntax-quote::t
     '__core-expression-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114939_|
    (##structure
     gx#syntax-quote::t
     '__core-expression-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114940_|
    (##structure
     gx#syntax-quote::t
     '__core-expression-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114942_|
    (##structure
     gx#syntax-quote::t
     '&__core-expression-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114943_|
    (##structure
     gx#syntax-quote::t
     '&__core-expression-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114945_|
    (##structure
     gx#syntax-quote::t
     '&__core-expression-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114946_|
    (##structure
     gx#syntax-quote::t
     '&__core-expression-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114949_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114951_|
    (##structure
     gx#syntax-quote::t
     'make-__core-special-form
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114953_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114955_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114956_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114958_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114959_|
    (##structure
     gx#syntax-quote::t
     '__core-special-form-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114961_|
    (##structure
     gx#syntax-quote::t
     '&__core-special-form-e
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114962_|
    (##structure
     gx#syntax-quote::t
     '&__core-special-form-id
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114964_|
    (##structure
     gx#syntax-quote::t
     '&__core-special-form-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g114965_|
    (##structure
     gx#syntax-quote::t
     '&__core-special-form-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |[:0:]#__syntax|
      (let ((__obj114839
             (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!
           __obj114839
           'gerbil/runtime/eval#__syntax::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '__syntax '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '(e id) '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '(e id) '6 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '#f '11 '#f '#f))
        (let ((__tmp114889 |[1]#_g114890_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114889 '12 '#f '#f))
        (let ((__tmp114891 |[1]#_g114892_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114891 '13 '#f '#f))
        (let ((__tmp114893 |[1]#_g114894_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114893 '14 '#f '#f))
        (let ((__tmp114895
               (cons (cons 'e |[1]#_g114896_|)
                     (cons (cons 'id |[1]#_g114897_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114895 '15 '#f '#f))
        (let ((__tmp114898
               (cons (cons 'e |[1]#_g114899_|)
                     (cons (cons 'id |[1]#_g114900_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114898 '16 '#f '#f))
        (let ((__tmp114901
               (cons (cons 'e |[1]#_g114902_|)
                     (cons (cons 'id |[1]#_g114903_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114901 '17 '#f '#f))
        (let ((__tmp114904
               (cons (cons 'e |[1]#_g114905_|)
                     (cons (cons 'id |[1]#_g114906_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 __tmp114904 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114839 '() '20 '#f '#f))
        __obj114839))
    (define |[:0:]#__core-form|
      (let ((__obj114840
             (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!
           __obj114840
           'gerbil/runtime/eval#__core-form::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '__core-form '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '(e id) '6 '#f '#f))
        (let ((__tmp114907 (cons |[1]#_g114908_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114907 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '#f '11 '#f '#f))
        (let ((__tmp114909 |[1]#_g114910_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114909 '12 '#f '#f))
        (let ((__tmp114911 |[1]#_g114912_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114911 '13 '#f '#f))
        (let ((__tmp114913 |[1]#_g114914_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114913 '14 '#f '#f))
        (let ((__tmp114915
               (cons (cons 'e |[1]#_g114916_|)
                     (cons (cons 'id |[1]#_g114917_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114915 '15 '#f '#f))
        (let ((__tmp114918
               (cons (cons 'e |[1]#_g114919_|)
                     (cons (cons 'id |[1]#_g114920_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114918 '16 '#f '#f))
        (let ((__tmp114921
               (cons (cons 'e |[1]#_g114922_|)
                     (cons (cons 'id |[1]#_g114923_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114921 '17 '#f '#f))
        (let ((__tmp114924
               (cons (cons 'e |[1]#_g114925_|)
                     (cons (cons 'id |[1]#_g114926_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 __tmp114924 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114840 '() '20 '#f '#f))
        __obj114840))
    (define |[:0:]#__core-expression|
      (let ((__obj114841
             (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!
           __obj114841
           'gerbil/runtime/eval#__core-expression::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj114841
           '__core-expression
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '(e id) '6 '#f '#f))
        (let ((__tmp114927 (cons |[1]#_g114928_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114927 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '#f '11 '#f '#f))
        (let ((__tmp114929 |[1]#_g114930_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114929 '12 '#f '#f))
        (let ((__tmp114931 |[1]#_g114932_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114931 '13 '#f '#f))
        (let ((__tmp114933 |[1]#_g114934_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114933 '14 '#f '#f))
        (let ((__tmp114935
               (cons (cons 'e |[1]#_g114936_|)
                     (cons (cons 'id |[1]#_g114937_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114935 '15 '#f '#f))
        (let ((__tmp114938
               (cons (cons 'e |[1]#_g114939_|)
                     (cons (cons 'id |[1]#_g114940_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114938 '16 '#f '#f))
        (let ((__tmp114941
               (cons (cons 'e |[1]#_g114942_|)
                     (cons (cons 'id |[1]#_g114943_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114941 '17 '#f '#f))
        (let ((__tmp114944
               (cons (cons 'e |[1]#_g114945_|)
                     (cons (cons 'id |[1]#_g114946_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 __tmp114944 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114841 '() '20 '#f '#f))
        __obj114841))
    (define |[:0:]#__core-special-form|
      (let ((__obj114842
             (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!
           __obj114842
           'gerbil/runtime/eval#__core-special-form::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj114842
           '__core-special-form
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '(e id) '6 '#f '#f))
        (let ((__tmp114947 (cons |[1]#_g114928_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114947 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '#f '11 '#f '#f))
        (let ((__tmp114948 |[1]#_g114949_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114948 '12 '#f '#f))
        (let ((__tmp114950 |[1]#_g114951_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114950 '13 '#f '#f))
        (let ((__tmp114952 |[1]#_g114953_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114952 '14 '#f '#f))
        (let ((__tmp114954
               (cons (cons 'e |[1]#_g114955_|)
                     (cons (cons 'id |[1]#_g114956_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114954 '15 '#f '#f))
        (let ((__tmp114957
               (cons (cons 'e |[1]#_g114958_|)
                     (cons (cons 'id |[1]#_g114959_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114957 '16 '#f '#f))
        (let ((__tmp114960
               (cons (cons 'e |[1]#_g114961_|)
                     (cons (cons 'id |[1]#_g114962_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114960 '17 '#f '#f))
        (let ((__tmp114963
               (cons (cons 'e |[1]#_g114964_|)
                     (cons (cons 'id |[1]#_g114965_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 __tmp114963 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj114842 '() '20 '#f '#f))
        __obj114842))
    (define |[:0:]#defcore-forms|
      (lambda (_%stx112384%_)
        (letrec ((_%generate112387%_
                  (lambda (_%id112751%_ _%compile112753%_ _%make112754%_)
                    (let* ((_%g112756112775%_
                            (lambda (_%g112757112771%_)
                              (gx#raise-syntax-error
                               '#f
                               '"Bad syntax; invalid match target"
                               _%g112757112771%_)))
                           (_%g112755112834%_
                            (lambda (_%g112757112779%_)
                              (if (gx#stx-pair? _%g112757112779%_)
                                  (let ((_%e112761112782%_
                                         (gx#syntax-e _%g112757112779%_)))
                                    (let ((_%hd112762112786%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e112761112782%_)))
                                          (_%tl112763112789%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e112761112782%_))))
                                      (if (gx#stx-pair? _%tl112763112789%_)
                                          (let ((_%e112764112792%_
                                                 (gx#syntax-e
                                                  _%tl112763112789%_)))
                                            (let ((_%hd112765112796%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e112764112792%_)))
                                                  (_%tl112766112799%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e112764112792%_))))
                                              (if (gx#stx-pair?
                                                   _%tl112766112799%_)
                                                  (let ((_%e112767112802%_
                                                         (gx#syntax-e
                                                          _%tl112766112799%_)))
                                                    (let ((_%hd112768112806%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e112767112802%_)))
                                                          (_%tl112769112809%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e112767112802%_))))
                                                      (if (gx#stx-null?
                                                           _%tl112769112809%_)
                                                          ((lambda (_%L112812%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            _%L112814%_
                            _%L112815%_)
                     (cons (gx#datum->syntax '#f '__core-bind-syntax!)
                           (cons (cons (gx#datum->syntax '#f 'quote)
                                       (cons _%L112815%_ '()))
                                 (cons _%L112814%_ (cons _%L112812%_ '())))))
                   _%hd112768112806%_
                   _%hd112765112796%_
                   _%hd112762112786%_)
                  (_%g112756112775%_ _%g112757112779%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g112756112775%_
                                                   _%g112757112779%_))))
                                          (_%g112756112775%_
                                           _%g112757112779%_))))
                                  (_%g112756112775%_ _%g112757112779%_)))))
                      (_%g112755112834%_
                       (list _%id112751%_
                             (gx#stx-identifier
                              _%id112751%_
                              '"__"
                              _%compile112753%_)
                             _%make112754%_))))))
          (let* ((_%g112390112410%_
                  (lambda (_%g112391112406%_)
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g112391112406%_)))
                 (_%g112389112747%_
                  (lambda (_%g112391112414%_)
                    (if (gx#stx-pair? _%g112391112414%_)
                        (let ((_%e112393112417%_
                               (gx#syntax-e _%g112391112414%_)))
                          (let ((_%hd112394112421%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e112393112417%_)))
                                (_%tl112395112424%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e112393112417%_))))
                            (if (gx#stx-pair/null? _%tl112395112424%_)
                                (let ((_g114966_
                                       (gx#syntax-split-splice
                                        _%tl112395112424%_
                                        '0)))
                                  (begin
                                    (let ((_g114967_
                                           (let ()
                                             (declare (not safe))
                                             (if (##values? _g114966_)
                                                 (##vector-length _g114966_)
                                                 1))))
                                      (if (not (let ()
                                                 (declare (not safe))
                                                 (##fx= _g114967_ 2)))
                                          (error "Context expects 2 values"
                                                 _g114967_)))
                                    (let ((_%target112396112427%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g114966_ 0)))
                                          (_%tl112398112430%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g114966_ 1))))
                                      (if (gx#stx-null? _%tl112398112430%_)
                                          (letrec ((_%loop112399112433%_
                                                    (lambda (_%hd112397112437%_
                                                             _%form112403112440%_)
                                                      (if (gx#stx-pair?
                                                           _%hd112397112437%_)
                                                          (let ((_%e112400112443%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (gx#syntax-e _%hd112397112437%_)))
                    (let ((_%lp-hd112401112447%_
                           (let ()
                             (declare (not safe))
                             (##car _%e112400112443%_)))
                          (_%lp-tl112402112450%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e112400112443%_))))
                      (_%loop112399112433%_
                       _%lp-tl112402112450%_
                       (cons _%lp-hd112401112447%_ _%form112403112440%_))))
                  (let ((_%form112404112453%_ (reverse _%form112403112440%_)))
                    ((lambda (_%L112457%_)
                       (let _%lp112475%_ ((_%rest112478%_
                                           (let ((__tmp114968
                                                  (lambda (_%g112738112741%_
                                                           _%g112739112744%_)
                                                    (cons _%g112738112741%_
                                                          _%g112739112744%_))))
                                             (declare (not safe))
                                             (__foldr1
                                              __tmp114968
                                              '()
                                              _%L112457%_)))
                                          (_%body112480%_ '()))
                         (let* ((_%__stx114746114747%_ _%rest112478%_)
                                (_%g112485112532%_
                                 (lambda ()
                                   (gx#raise-syntax-error
                                    '#f
                                    '"Bad syntax; invalid match target"
                                    _%__stx114746114747%_))))
                           (let ((_%__kont114749114750%_
                                  (lambda (_%L112713%_ _%L112715%_ _%L112716%_)
                                    (_%lp112475%_
                                     _%L112713%_
                                     (cons (_%generate112387%_
                                            _%L112716%_
                                            _%L112715%_
                                            (gx#datum->syntax
                                             '#f
                                             'make-__core-expression))
                                           _%body112480%_))))
                                 (_%__kont114751114752%_
                                  (lambda (_%L112640%_ _%L112642%_ _%L112643%_)
                                    (_%lp112475%_
                                     _%L112640%_
                                     (cons (_%generate112387%_
                                            _%L112643%_
                                            _%L112642%_
                                            (gx#datum->syntax
                                             '#f
                                             'make-__core-special-form))
                                           _%body112480%_))))
                                 (_%__kont114753114754%_
                                  (lambda (_%L112570%_ _%L112572%_)
                                    (_%lp112475%_
                                     _%L112570%_
                                     (cons (_%generate112387%_
                                            _%L112572%_
                                            (gx#datum->syntax
                                             '#f
                                             'compile-error)
                                            (gx#datum->syntax
                                             '#f
                                             'make-__core-form))
                                           _%body112480%_))))
                                 (_%__kont114755114756%_
                                  (lambda ()
                                    (cons 'begin (reverse _%body112480%_)))))
                             (let ((_%g112484112543%_
                                    (lambda ()
                                      (if (gx#stx-null? _%__stx114746114747%_)
                                          (_%__kont114755114756%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g112485112532%_))))))
                               (if (gx#stx-pair? _%__stx114746114747%_)
                                   (let ((_%e112490112669%_
                                          (gx#syntax-e _%__stx114746114747%_)))
                                     (let ((_%tl112492112676%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e112490112669%_)))
                                           (_%hd112491112673%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e112490112669%_))))
                                       (if (gx#stx-pair? _%hd112491112673%_)
                                           (let ((_%e112493112679%_
                                                  (gx#syntax-e
                                                   _%hd112491112673%_)))
                                             (let ((_%tl112495112686%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e112493112679%_)))
                                                   (_%hd112494112683%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e112493112679%_))))
                                               (if (gx#stx-pair?
                                                    _%tl112495112686%_)
                                                   (let ((_%e112496112689%_
                                                          (gx#syntax-e
                                                           _%tl112495112686%_)))
                                                     (let ((_%tl112498112696%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e112496112689%_)))
                                                           (_%hd112497112693%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e112496112689%_))))
                                                       (if (gx#stx-datum?
                                                            _%hd112497112693%_)
                                                           (let ((_%e112499112699%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (gx#stx-e _%hd112497112693%_)))
                     (if (equal? _%e112499112699%_ 'expr:)
                         (if (gx#stx-pair? _%tl112498112696%_)
                             (let ((_%e112500112703%_
                                    (gx#syntax-e _%tl112498112696%_)))
                               (let ((_%tl112502112710%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e112500112703%_)))
                                     (_%hd112501112707%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e112500112703%_))))
                                 (if (gx#stx-null? _%tl112502112710%_)
                                     (_%__kont114749114750%_
                                      _%tl112492112676%_
                                      _%hd112501112707%_
                                      _%hd112494112683%_)
                                     (let ()
                                       (declare (not safe))
                                       (_%g112485112532%_)))))
                             (let () (declare (not safe)) (_%g112485112532%_)))
                         (if (equal? _%e112499112699%_ 'special:)
                             (if (gx#stx-pair? _%tl112498112696%_)
                                 (let ((_%e112516112630%_
                                        (gx#syntax-e _%tl112498112696%_)))
                                   (let ((_%tl112518112637%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e112516112630%_)))
                                         (_%hd112517112634%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e112516112630%_))))
                                     (if (gx#stx-null? _%tl112518112637%_)
                                         (_%__kont114751114752%_
                                          _%tl112492112676%_
                                          _%hd112517112634%_
                                          _%hd112494112683%_)
                                         (let ()
                                           (declare (not safe))
                                           (_%g112485112532%_)))))
                                 (let ()
                                   (declare (not safe))
                                   (_%g112485112532%_)))
                             (let ()
                               (declare (not safe))
                               (_%g112485112532%_)))))
                   (let () (declare (not safe)) (_%g112485112532%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (gx#stx-null?
                                                        _%tl112495112686%_)
                                                       (_%__kont114753114754%_
                                                        _%tl112492112676%_
                                                        _%hd112494112683%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (_%g112485112532%_))))))
                                           (let ()
                                             (declare (not safe))
                                             (_%g112485112532%_)))))
                                   (let ()
                                     (declare (not safe))
                                     (_%g112484112543%_))))))))
                     _%form112404112453%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (_%loop112399112433%_
                                             _%target112396112427%_
                                             '()))
                                          (_%g112390112410%_
                                           _%g112391112414%_)))))
                                (_%g112390112410%_ _%g112391112414%_))))
                        (_%g112390112410%_ _%g112391112414%_)))))
            (_%g112389112747%_ _%stx112384%_)))))))
