guile/module/ice-9/psyntax-pp.scm

(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)

(letrec*
  ((#{top-level-eval-hook 4300}#
     (lambda (#{x 36829}# #{mod 36830}#)
       (primitive-eval #{x 36829}#)))
   (#{maybe-name-value! 4305}#
     (lambda (#{name 19449}# #{val 19450}#)
       (if (if (struct? #{val 19450}#)
             (eq? (struct-vtable #{val 19450}#)
                  (vector-ref %expanded-vtables 14))
             #f)
         (let ((#{meta 19457}# (struct-ref #{val 19450}# 1)))
           (if (not (assq 'name #{meta 19457}#))
             (let ((#{v 19462}#
                     (cons (cons 'name #{name 19449}#) #{meta 19457}#)))
               (struct-set! #{val 19450}# 1 #{v 19462}#)))))))
   (#{build-call 4307}#
     (lambda (#{source 19194}#
              #{fun-exp 19195}#
              #{arg-exps 19196}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 11)
         #{source 19194}#
         #{fun-exp 19195}#
         #{arg-exps 19196}#)))
   (#{build-conditional 4308}#
     (lambda (#{source 19202}#
              #{test-exp 19203}#
              #{then-exp 19204}#
              #{else-exp 19205}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 10)
         #{source 19202}#
         #{test-exp 19203}#
         #{then-exp 19204}#
         #{else-exp 19205}#)))
   (#{build-dynlet 4309}#
     (lambda (#{source 19212}#
              #{fluids 19213}#
              #{vals 19214}#
              #{body 19215}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 18)
         #{source 19212}#
         #{fluids 19213}#
         #{vals 19214}#
         #{body 19215}#)))
   (#{build-lexical-reference 4310}#
     (lambda (#{type 36831}#
              #{source 36832}#
              #{name 36833}#
              #{var 36834}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 3)
         #{source 36832}#
         #{name 36833}#
         #{var 36834}#)))
   (#{build-lexical-assignment 4311}#
     (lambda (#{source 19222}#
              #{name 19223}#
              #{var 19224}#
              #{exp 19225}#)
       (begin
         (if (if (struct? #{exp 19225}#)
               (eq? (struct-vtable #{exp 19225}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 19241}# (struct-ref #{exp 19225}# 1)))
             (if (not (assq 'name #{meta 19241}#))
               (let ((#{v 19248}#
                       (cons (cons 'name #{name 19223}#) #{meta 19241}#)))
                 (struct-set! #{exp 19225}# 1 #{v 19248}#)))))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 4)
           #{source 19222}#
           #{name 19223}#
           #{var 19224}#
           #{exp 19225}#))))
   (#{analyze-variable 4312}#
     (lambda (#{mod 36840}#
              #{var 36841}#
              #{modref-cont 36842}#
              #{bare-cont 36843}#)
       (if (not #{mod 36840}#)
         (#{bare-cont 36843}# #{var 36841}#)
         (let ((#{kind 36844}# (car #{mod 36840}#))
               (#{mod 36845}# (cdr #{mod 36840}#)))
           (if (eqv? #{kind 36844}# 'public)
             (#{modref-cont 36842}#
               #{mod 36845}#
               #{var 36841}#
               #t)
             (if (eqv? #{kind 36844}# 'private)
               (if (not (equal?
                          #{mod 36845}#
                          (module-name (current-module))))
                 (#{modref-cont 36842}#
                   #{mod 36845}#
                   #{var 36841}#
                   #f)
                 (#{bare-cont 36843}# #{var 36841}#))
               (if (eqv? #{kind 36844}# 'bare)
                 (#{bare-cont 36843}# #{var 36841}#)
                 (if (eqv? #{kind 36844}# 'hygiene)
                   (if (if (not (equal?
                                  #{mod 36845}#
                                  (module-name (current-module))))
                         (module-variable
                           (resolve-module #{mod 36845}#)
                           #{var 36841}#)
                         #f)
                     (#{modref-cont 36842}#
                       #{mod 36845}#
                       #{var 36841}#
                       #f)
                     (#{bare-cont 36843}# #{var 36841}#))
                   (syntax-violation
                     #f
                     "bad module kind"
                     #{var 36841}#
                     #{mod 36845}#)))))))))
   (#{build-global-reference 4313}#
     (lambda (#{source 36860}# #{var 36861}# #{mod 36862}#)
       (#{analyze-variable 4312}#
         #{mod 36862}#
         #{var 36861}#
         (lambda (#{mod 36865}# #{var 36866}# #{public? 36867}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 5)
             #{source 36860}#
             #{mod 36865}#
             #{var 36866}#
             #{public? 36867}#))
         (lambda (#{var 36874}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 7)
             #{source 36860}#
             #{var 36874}#)))))
   (#{build-global-assignment 4314}#
     (lambda (#{source 19257}#
              #{var 19258}#
              #{exp 19259}#
              #{mod 19260}#)
       (begin
         (if (if (struct? #{exp 19259}#)
               (eq? (struct-vtable #{exp 19259}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 19276}# (struct-ref #{exp 19259}# 1)))
             (if (not (assq 'name #{meta 19276}#))
               (let ((#{v 19283}#
                       (cons (cons 'name #{var 19258}#) #{meta 19276}#)))
                 (struct-set! #{exp 19259}# 1 #{v 19283}#)))))
         (#{analyze-variable 4312}#
           #{mod 19260}#
           #{var 19258}#
           (lambda (#{mod 19288}# #{var 19289}# #{public? 19290}#)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 6)
               #{source 19257}#
               #{mod 19288}#
               #{var 19289}#
               #{public? 19290}#
               #{exp 19259}#))
           (lambda (#{var 19298}#)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 8)
               #{source 19257}#
               #{var 19298}#
               #{exp 19259}#))))))
   (#{build-global-definition 4315}#
     (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#)
       (begin
         (if (if (struct? #{exp 36881}#)
               (eq? (struct-vtable #{exp 36881}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 36897}# (struct-ref #{exp 36881}# 1)))
             (if (not (assq 'name #{meta 36897}#))
               (let ((#{v 36904}#
                       (cons (cons 'name #{var 36880}#) #{meta 36897}#)))
                 (struct-set! #{exp 36881}# 1 #{v 36904}#)))))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 9)
           #{source 36879}#
           #{var 36880}#
           #{exp 36881}#))))
   (#{build-simple-lambda 4316}#
     (lambda (#{src 19304}#
              #{req 19305}#
              #{rest 19306}#
              #{vars 19307}#
              #{meta 19308}#
              #{exp 19309}#)
       (let ((#{body 19315}#
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 15)
                 #{src 19304}#
                 #{req 19305}#
                 #f
                 #{rest 19306}#
                 #f
                 '()
                 #{vars 19307}#
                 #{exp 19309}#
                 #f)))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 14)
           #{src 19304}#
           #{meta 19308}#
           #{body 19315}#))))
   (#{build-primcall 4319}#
     (lambda (#{src 19327}# #{name 19328}# #{args 19329}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 12)
         #{src 19327}#
         #{name 19328}#
         #{args 19329}#)))
   (#{build-sequence 4322}#
     (lambda (#{src 36912}# #{exps 36913}#)
       (if (null? (cdr #{exps 36913}#))
         (car #{exps 36913}#)
         (let ((#{head 36917}# (car #{exps 36913}#))
               (#{tail 36918}#
                 (#{build-sequence 4322}# #f (cdr #{exps 36913}#))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 13)
             #{src 36912}#
             #{head 36917}#
             #{tail 36918}#)))))
   (#{build-named-let 4324}#
     (lambda (#{src 19335}#
              #{ids 19336}#
              #{vars 19337}#
              #{val-exps 19338}#
              #{body-exp 19339}#)
       (let ((#{f 19340}# (car #{vars 19337}#))
             (#{f-name 19341}# (car #{ids 19336}#))
             (#{vars 19342}# (cdr #{vars 19337}#))
             (#{ids 19343}# (cdr #{ids 19336}#)))
         (let ((#{proc 19344}#
                 (let ((#{body 19364}#
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 15)
                           #{src 19335}#
                           #{ids 19343}#
                           #f
                           #f
                           #f
                           '()
                           #{vars 19342}#
                           #{body-exp 19339}#
                           #f)))
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 14)
                     #{src 19335}#
                     '()
                     #{body 19364}#))))
           (begin
             (if (if (struct? #{proc 19344}#)
                   (eq? (struct-vtable #{proc 19344}#)
                        (vector-ref %expanded-vtables 14))
                   #f)
               (let ((#{meta 19388}# (struct-ref #{proc 19344}# 1)))
                 (if (not (assq 'name #{meta 19388}#))
                   (let ((#{v 19395}#
                           (cons (cons 'name #{f-name 19341}#)
                                 #{meta 19388}#)))
                     (struct-set! #{proc 19344}# 1 #{v 19395}#)))))
             (for-each
               #{maybe-name-value! 4305}#
               #{ids 19343}#
               #{val-exps 19338}#)
             (let ((#{names 19419}# (list #{f-name 19341}#))
                   (#{gensyms 19420}# (list #{f 19340}#))
                   (#{vals 19421}# (list #{proc 19344}#))
                   (#{body 19422}#
                     (let ((#{fun-exp 19426}#
                             (make-struct/no-tail
                               (vector-ref %expanded-vtables 3)
                               #{src 19335}#
                               #{f-name 19341}#
                               #{f 19340}#)))
                       (make-struct/no-tail
                         (vector-ref %expanded-vtables 11)
                         #{src 19335}#
                         #{fun-exp 19426}#
                         #{val-exps 19338}#))))
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 17)
                 #{src 19335}#
                 #f
                 #{names 19419}#
                 #{gensyms 19420}#
                 #{vals 19421}#
                 #{body 19422}#)))))))
   (#{build-letrec 4325}#
     (lambda (#{src 19442}#
              #{in-order? 19443}#
              #{ids 19444}#
              #{vars 19445}#
              #{val-exps 19446}#
              #{body-exp 19447}#)
       (if (null? #{vars 19445}#)
         #{body-exp 19447}#
         (begin
           (for-each
             #{maybe-name-value! 4305}#
             #{ids 19444}#
             #{val-exps 19446}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 17)
             #{src 19442}#
             #{in-order? 19443}#
             #{ids 19444}#
             #{vars 19445}#
             #{val-exps 19446}#
             #{body-exp 19447}#)))))
   (#{source-annotation 4334}#
     (lambda (#{x 19473}#)
       (if (if (vector? #{x 19473}#)
             (if (= (vector-length #{x 19473}#) 4)
               (eq? (vector-ref #{x 19473}# 0) 'syntax-object)
               #f)
             #f)
         (#{source-annotation 4334}#
           (vector-ref #{x 19473}# 1))
         (if (pair? #{x 19473}#)
           (let ((#{props 19488}# (source-properties #{x 19473}#)))
             (if (pair? #{props 19488}#) #{props 19488}# #f))
           #f))))
   (#{extend-env 4335}#
     (lambda (#{labels 19490}# #{bindings 19491}# #{r 19492}#)
       (if (null? #{labels 19490}#)
         #{r 19492}#
         (#{extend-env 4335}#
           (cdr #{labels 19490}#)
           (cdr #{bindings 19491}#)
           (cons (cons (car #{labels 19490}#)
                       (car #{bindings 19491}#))
                 #{r 19492}#)))))
   (#{extend-var-env 4336}#
     (lambda (#{labels 19493}# #{vars 19494}# #{r 19495}#)
       (if (null? #{labels 19493}#)
         #{r 19495}#
         (#{extend-var-env 4336}#
           (cdr #{labels 19493}#)
           (cdr #{vars 19494}#)
           (cons (cons (car #{labels 19493}#)
                       (cons 'lexical (car #{vars 19494}#)))
                 #{r 19495}#)))))
   (#{macros-only-env 4337}#
     (lambda (#{r 19496}#)
       (if (null? #{r 19496}#)
         '()
         (let ((#{a 19497}# (car #{r 19496}#)))
           (if (eq? (car (cdr #{a 19497}#)) 'macro)
             (cons #{a 19497}#
                   (#{macros-only-env 4337}# (cdr #{r 19496}#)))
             (#{macros-only-env 4337}# (cdr #{r 19496}#)))))))
   (#{global-extend 4339}#
     (lambda (#{type 19499}# #{sym 19500}# #{val 19501}#)
       (module-define!
         (current-module)
         #{sym 19500}#
         (make-syntax-transformer
           #{sym 19500}#
           #{type 19499}#
           #{val 19501}#))))
   (#{id? 4341}#
     (lambda (#{x 12436}#)
       (if (symbol? #{x 12436}#)
         #t
         (if (if (vector? #{x 12436}#)
               (if (= (vector-length #{x 12436}#) 4)
                 (eq? (vector-ref #{x 12436}# 0) 'syntax-object)
                 #f)
               #f)
           (symbol? (vector-ref #{x 12436}# 1))
           #f))))
   (#{gen-labels 4344}#
     (lambda (#{ls 19511}#)
       (if (null? #{ls 19511}#)
         '()
         (cons (symbol->string (gensym "i"))
               (#{gen-labels 4344}# (cdr #{ls 19511}#))))))
   (#{make-binding-wrap 4355}#
     (lambda (#{ids 19515}# #{labels 19516}# #{w 19517}#)
       (if (null? #{ids 19515}#)
         #{w 19517}#
         (cons (car #{w 19517}#)
               (cons (let ((#{labelvec 19518}#
                             (list->vector #{labels 19516}#)))
                       (let ((#{n 19519}# (vector-length #{labelvec 19518}#)))
                         (let ((#{symnamevec 19520}# (make-vector #{n 19519}#))
                               (#{marksvec 19521}# (make-vector #{n 19519}#)))
                           (begin
                             (letrec*
                               ((#{f 19522}#
                                  (lambda (#{ids 19721}# #{i 19722}#)
                                    (if (not (null? #{ids 19721}#))
                                      (call-with-values
                                        (lambda ()
                                          (let ((#{x 19725}#
                                                  (car #{ids 19721}#)))
                                            (if (if (vector? #{x 19725}#)
                                                  (if (= (vector-length
                                                           #{x 19725}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{x 19725}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (values
                                                (vector-ref #{x 19725}# 1)
                                                (let ((#{m1 19741}#
                                                        (car #{w 19517}#))
                                                      (#{m2 19742}#
                                                        (car (vector-ref
                                                               #{x 19725}#
                                                               2))))
                                                  (if (null? #{m2 19742}#)
                                                    #{m1 19741}#
                                                    (append
                                                      #{m1 19741}#
                                                      #{m2 19742}#))))
                                              (values
                                                #{x 19725}#
                                                (car #{w 19517}#)))))
                                        (lambda (#{symname 19762}#
                                                 #{marks 19763}#)
                                          (begin
                                            (vector-set!
                                              #{symnamevec 19520}#
                                              #{i 19722}#
                                              #{symname 19762}#)
                                            (vector-set!
                                              #{marksvec 19521}#
                                              #{i 19722}#
                                              #{marks 19763}#)
                                            (#{f 19522}#
                                              (cdr #{ids 19721}#)
                                              (#{1+}# #{i 19722}#)))))))))
                               (#{f 19522}# #{ids 19515}# 0))
                             (vector
                               'ribcage
                               #{symnamevec 19520}#
                               #{marksvec 19521}#
                               #{labelvec 19518}#)))))
                     (cdr #{w 19517}#))))))
   (#{same-marks? 4359}#
     (lambda (#{x 36919}# #{y 36920}#)
       (if (eq? #{x 36919}# #{y 36920}#)
         (eq? #{x 36919}# #{y 36920}#)
         (if (not (null? #{x 36919}#))
           (if (not (null? #{y 36920}#))
             (if (eq? (car #{x 36919}#) (car #{y 36920}#))
               (#{same-marks? 4359}#
                 (cdr #{x 36919}#)
                 (cdr #{y 36920}#))
               #f)
             #f)
           #f))))
   (#{id-var-name 4360}#
     (lambda (#{id 19770}# #{w 19771}#)
       (letrec*
         ((#{search 19772}#
            (lambda (#{sym 19833}# #{subst 19834}# #{marks 19835}#)
              (if (null? #{subst 19834}#)
                (values #f #{marks 19835}#)
                (let ((#{fst 19836}# (car #{subst 19834}#)))
                  (if (eq? #{fst 19836}# 'shift)
                    (#{search 19772}#
                      #{sym 19833}#
                      (cdr #{subst 19834}#)
                      (cdr #{marks 19835}#))
                    (let ((#{symnames 19838}# (vector-ref #{fst 19836}# 1)))
                      (if (vector? #{symnames 19838}#)
                        (#{search-vector-rib 19774}#
                          #{sym 19833}#
                          #{subst 19834}#
                          #{marks 19835}#
                          #{symnames 19838}#
                          #{fst 19836}#)
                        (#{search-list-rib 19773}#
                          #{sym 19833}#
                          #{subst 19834}#
                          #{marks 19835}#
                          #{symnames 19838}#
                          #{fst 19836}#))))))))
          (#{search-list-rib 19773}#
            (lambda (#{sym 20008}#
                     #{subst 20009}#
                     #{marks 20010}#
                     #{symnames 20011}#
                     #{ribcage 20012}#)
              (letrec*
                ((#{f 20013}#
                   (lambda (#{symnames 20016}# #{i 20017}#)
                     (if (null? #{symnames 20016}#)
                       (#{search 19772}#
                         #{sym 20008}#
                         (cdr #{subst 20009}#)
                         #{marks 20010}#)
                       (if (if (eq? (car #{symnames 20016}#) #{sym 20008}#)
                             (#{same-marks? 4359}#
                               #{marks 20010}#
                               (list-ref
                                 (vector-ref #{ribcage 20012}# 2)
                                 #{i 20017}#))
                             #f)
                         (values
                           (list-ref
                             (vector-ref #{ribcage 20012}# 3)
                             #{i 20017}#)
                           #{marks 20010}#)
                         (#{f 20013}#
                           (cdr #{symnames 20016}#)
                           (#{1+}# #{i 20017}#)))))))
                (#{f 20013}# #{symnames 20011}# 0))))
          (#{search-vector-rib 19774}#
            (lambda (#{sym 20167}#
                     #{subst 20168}#
                     #{marks 20169}#
                     #{symnames 20170}#
                     #{ribcage 20171}#)
              (let ((#{n 20172}# (vector-length #{symnames 20170}#)))
                (letrec*
                  ((#{f 20173}#
                     (lambda (#{i 20230}#)
                       (if (= #{i 20230}# #{n 20172}#)
                         (#{search 19772}#
                           #{sym 20167}#
                           (cdr #{subst 20168}#)
                           #{marks 20169}#)
                         (if (if (eq? (vector-ref
                                        #{symnames 20170}#
                                        #{i 20230}#)
                                      #{sym 20167}#)
                               (#{same-marks? 4359}#
                                 #{marks 20169}#
                                 (vector-ref
                                   (vector-ref #{ribcage 20171}# 2)
                                   #{i 20230}#))
                               #f)
                           (values
                             (vector-ref
                               (vector-ref #{ribcage 20171}# 3)
                               #{i 20230}#)
                             #{marks 20169}#)
                           (#{f 20173}# (#{1+}# #{i 20230}#)))))))
                  (#{f 20173}# 0))))))
         (if (symbol? #{id 19770}#)
           (let ((#{t 19775}#
                   (#{search 19772}#
                     #{id 19770}#
                     (cdr #{w 19771}#)
                     (car #{w 19771}#))))
             (if #{t 19775}# #{t 19775}# #{id 19770}#))
           (if (if (vector? #{id 19770}#)
                 (if (= (vector-length #{id 19770}#) 4)
                   (eq? (vector-ref #{id 19770}# 0) 'syntax-object)
                   #f)
                 #f)
             (let ((#{id 19790}# (vector-ref #{id 19770}# 1))
                   (#{w1 19791}# (vector-ref #{id 19770}# 2)))
               (let ((#{marks 19792}#
                       (let ((#{m1 19802}# (car #{w 19771}#))
                             (#{m2 19803}# (car #{w1 19791}#)))
                         (if (null? #{m2 19803}#)
                           #{m1 19802}#
                           (append #{m1 19802}# #{m2 19803}#)))))
                 (call-with-values
                   (lambda ()
                     (#{search 19772}#
                       #{id 19790}#
                       (cdr #{w 19771}#)
                       #{marks 19792}#))
                   (lambda (#{new-id 19819}# #{marks 19820}#)
                     (if #{new-id 19819}#
                       #{new-id 19819}#
                       (let ((#{t 19828}#
                               (#{search 19772}#
                                 #{id 19790}#
                                 (cdr #{w1 19791}#)
                                 #{marks 19820}#)))
                         (if #{t 19828}# #{t 19828}# #{id 19790}#)))))))
             (syntax-violation
               'id-var-name
               "invalid id"
               #{id 19770}#))))))
   (#{free-id=? 4361}#
     (lambda (#{i 20380}# #{j 20381}#)
       (let ((#{ni 20382}#
               (#{id-var-name 4360}# #{i 20380}# '(())))
             (#{nj 20383}#
               (#{id-var-name 4360}# #{j 20381}# '(()))))
         (if (eq? #{ni 20382}#
                  (if (if (vector? #{i 20380}#)
                        (if (= (vector-length #{i 20380}#) 4)
                          (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
                          #f)
                        #f)
                    (vector-ref #{i 20380}# 1)
                    #{i 20380}#))
           (if (eq? #{nj 20383}#
                    (if (if (vector? #{j 20381}#)
                          (if (= (vector-length #{j 20381}#) 4)
                            (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                            #f)
                          #f)
                      (vector-ref #{j 20381}# 1)
                      #{j 20381}#))
             (if (let ((#{bi 20441}#
                         (let ((#{mod 20710}#
                                 (if (if (vector? #{i 20380}#)
                                       (if (= (vector-length #{i 20380}#) 4)
                                         (eq? (vector-ref #{i 20380}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
                                   (vector-ref #{i 20380}# 3)
                                   #f)))
                           (module-variable
                             (if #{mod 20710}#
                               (resolve-module (cdr #{mod 20710}#))
                               (current-module))
                             (if (if (vector? #{i 20380}#)
                                   (if (= (vector-length #{i 20380}#) 4)
                                     (eq? (vector-ref #{i 20380}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
                               (vector-ref #{i 20380}# 1)
                               #{i 20380}#)))))
                   (if #{bi 20441}#
                     (eq? #{bi 20441}#
                          (let ((#{mod 20554}#
                                  (if (if (vector? #{j 20381}#)
                                        (if (= (vector-length #{j 20381}#) 4)
                                          (eq? (vector-ref #{j 20381}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (vector-ref #{j 20381}# 3)
                                    #f)))
                            (module-variable
                              (if #{mod 20554}#
                                (resolve-module (cdr #{mod 20554}#))
                                (current-module))
                              (if (if (vector? #{j 20381}#)
                                    (if (= (vector-length #{j 20381}#) 4)
                                      (eq? (vector-ref #{j 20381}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (vector-ref #{j 20381}# 1)
                                #{j 20381}#))))
                     (if (not (let ((#{mod 20632}#
                                      (if (if (vector? #{j 20381}#)
                                            (if (= (vector-length #{j 20381}#)
                                                   4)
                                              (eq? (vector-ref #{j 20381}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (vector-ref #{j 20381}# 3)
                                        #f)))
                                (module-variable
                                  (if #{mod 20632}#
                                    (resolve-module (cdr #{mod 20632}#))
                                    (current-module))
                                  (if (if (vector? #{j 20381}#)
                                        (if (= (vector-length #{j 20381}#) 4)
                                          (eq? (vector-ref #{j 20381}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (vector-ref #{j 20381}# 1)
                                    #{j 20381}#))))
                       (eq? #{ni 20382}# #{nj 20383}#)
                       #f)))
               (eq? (let ((#{mod 20788}#
                            (if (if (vector? #{i 20380}#)
                                  (if (= (vector-length #{i 20380}#) 4)
                                    (eq? (vector-ref #{i 20380}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (vector-ref #{i 20380}# 3)
                              #f)))
                      (module-variable
                        (if #{mod 20788}#
                          (resolve-module (cdr #{mod 20788}#))
                          (current-module))
                        (if (if (vector? #{i 20380}#)
                              (if (= (vector-length #{i 20380}#) 4)
                                (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
                                #f)
                              #f)
                          (vector-ref #{i 20380}# 1)
                          #{i 20380}#)))
                    (let ((#{mod 20866}#
                            (if (if (vector? #{j 20381}#)
                                  (if (= (vector-length #{j 20381}#) 4)
                                    (eq? (vector-ref #{j 20381}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (vector-ref #{j 20381}# 3)
                              #f)))
                      (module-variable
                        (if #{mod 20866}#
                          (resolve-module (cdr #{mod 20866}#))
                          (current-module))
                        (if (if (vector? #{j 20381}#)
                              (if (= (vector-length #{j 20381}#) 4)
                                (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                                #f)
                              #f)
                          (vector-ref #{j 20381}# 1)
                          #{j 20381}#))))
               #f)
             #f)
           (if (eq? #{ni 20382}# #{nj 20383}#)
             (not (eq? #{nj 20383}#
                       (if (if (vector? #{j 20381}#)
                             (if (= (vector-length #{j 20381}#) 4)
                               (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                               #f)
                             #f)
                         (vector-ref #{j 20381}# 1)
                         #{j 20381}#)))
             #f)))))
   (#{bound-id=? 4362}#
     (lambda (#{i 20966}# #{j 20967}#)
       (if (if (if (vector? #{i 20966}#)
                 (if (= (vector-length #{i 20966}#) 4)
                   (eq? (vector-ref #{i 20966}# 0) 'syntax-object)
                   #f)
                 #f)
             (if (vector? #{j 20967}#)
               (if (= (vector-length #{j 20967}#) 4)
                 (eq? (vector-ref #{j 20967}# 0) 'syntax-object)
                 #f)
               #f)
             #f)
         (if (eq? (vector-ref #{i 20966}# 1)
                  (vector-ref #{j 20967}# 1))
           (#{same-marks? 4359}#
             (car (vector-ref #{i 20966}# 2))
             (car (vector-ref #{j 20967}# 2)))
           #f)
         (eq? #{i 20966}# #{j 20967}#))))
   (#{valid-bound-ids? 4363}#
     (lambda (#{ids 21136}#)
       (if (letrec*
             ((#{all-ids? 21137}#
                (lambda (#{ids 21334}#)
                  (if (null? #{ids 21334}#)
                    (null? #{ids 21334}#)
                    (if (let ((#{x 21345}# (car #{ids 21334}#)))
                          (if (symbol? #{x 21345}#)
                            #t
                            (if (if (vector? #{x 21345}#)
                                  (if (= (vector-length #{x 21345}#) 4)
                                    (eq? (vector-ref #{x 21345}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (symbol? (vector-ref #{x 21345}# 1))
                              #f)))
                      (#{all-ids? 21137}# (cdr #{ids 21334}#))
                      #f)))))
             (#{all-ids? 21137}# #{ids 21136}#))
         (#{distinct-bound-ids? 4364}# #{ids 21136}#)
         #f)))
   (#{distinct-bound-ids? 4364}#
     (lambda (#{ids 21466}#)
       (letrec*
         ((#{distinct? 21467}#
            (lambda (#{ids 21572}#)
              (if (null? #{ids 21572}#)
                (null? #{ids 21572}#)
                (if (not (#{bound-id-member? 4365}#
                           (car #{ids 21572}#)
                           (cdr #{ids 21572}#)))
                  (#{distinct? 21467}# (cdr #{ids 21572}#))
                  #f)))))
         (#{distinct? 21467}# #{ids 21466}#))))
   (#{bound-id-member? 4365}#
     (lambda (#{x 21668}# #{list 21669}#)
       (if (not (null? #{list 21669}#))
         (let ((#{t 21670}#
                 (#{bound-id=? 4362}#
                   #{x 21668}#
                   (car #{list 21669}#))))
           (if #{t 21670}#
             #{t 21670}#
             (#{bound-id-member? 4365}#
               #{x 21668}#
               (cdr #{list 21669}#))))
         #f)))
   (#{source-wrap 4367}#
     (lambda (#{x 21848}#
              #{w 21849}#
              #{s 21850}#
              #{defmod 21851}#)
       (let ((#{x 21855}#
               (begin
                 (if (if (pair? #{x 21848}#) #{s 21850}# #f)
                   (set-source-properties! #{x 21848}# #{s 21850}#))
                 #{x 21848}#)))
         (if (if (null? (car #{w 21849}#))
               (null? (cdr #{w 21849}#))
               #f)
           #{x 21855}#
           (if (if (vector? #{x 21855}#)
                 (if (= (vector-length #{x 21855}#) 4)
                   (eq? (vector-ref #{x 21855}# 0) 'syntax-object)
                   #f)
                 #f)
             (let ((#{expression 21887}# (vector-ref #{x 21855}# 1))
                   (#{wrap 21888}#
                     (let ((#{w2 21896}# (vector-ref #{x 21855}# 2)))
                       (let ((#{m1 21897}# (car #{w 21849}#))
                             (#{s1 21898}# (cdr #{w 21849}#)))
                         (if (null? #{m1 21897}#)
                           (if (null? #{s1 21898}#)
                             #{w2 21896}#
                             (cons (car #{w2 21896}#)
                                   (let ((#{m2 21913}# (cdr #{w2 21896}#)))
                                     (if (null? #{m2 21913}#)
                                       #{s1 21898}#
                                       (append #{s1 21898}# #{m2 21913}#)))))
                           (cons (let ((#{m2 21921}# (car #{w2 21896}#)))
                                   (if (null? #{m2 21921}#)
                                     #{m1 21897}#
                                     (append #{m1 21897}# #{m2 21921}#)))
                                 (let ((#{m2 21929}# (cdr #{w2 21896}#)))
                                   (if (null? #{m2 21929}#)
                                     #{s1 21898}#
                                     (append #{s1 21898}# #{m2 21929}#))))))))
                   (#{module 21889}# (vector-ref #{x 21855}# 3)))
               (vector
                 'syntax-object
                 #{expression 21887}#
                 #{wrap 21888}#
                 #{module 21889}#))
             (if (null? #{x 21855}#)
               #{x 21855}#
               (vector
                 'syntax-object
                 #{x 21855}#
                 #{w 21849}#
                 #{defmod 21851}#)))))))
   (#{chi-sequence 4368}#
     (lambda (#{body 36928}#
              #{r 36929}#
              #{w 36930}#
              #{s 36931}#
              #{mod 36932}#)
       (#{build-sequence 4322}#
         #{s 36931}#
         (letrec*
           ((#{dobody 37024}#
              (lambda (#{body 37111}#
                       #{r 37112}#
                       #{w 37113}#
                       #{mod 37114}#)
                (if (null? #{body 37111}#)
                  '()
                  (let ((#{first 37115}#
                          (#{chi 4373}#
                            (car #{body 37111}#)
                            #{r 37112}#
                            #{w 37113}#
                            #{mod 37114}#)))
                    (cons #{first 37115}#
                          (#{dobody 37024}#
                            (cdr #{body 37111}#)
                            #{r 37112}#
                            #{w 37113}#
                            #{mod 37114}#)))))))
           (#{dobody 37024}#
             #{body 36928}#
             #{r 36929}#
             #{w 36930}#
             #{mod 36932}#)))))
   (#{chi-top-sequence 4369}#
     (lambda (#{body 21944}#
              #{r 21945}#
              #{w 21946}#
              #{s 21947}#
              #{m 21948}#
              #{esew 21949}#
              #{mod 21950}#)
       (letrec*
         ((#{scan 21951}#
            (lambda (#{body 22098}#
                     #{r 22099}#
                     #{w 22100}#
                     #{s 22101}#
                     #{m 22102}#
                     #{esew 22103}#
                     #{mod 22104}#
                     #{exps 22105}#)
              (if (null? #{body 22098}#)
                #{exps 22105}#
                (#{scan 21951}#
                  (cdr #{body 22098}#)
                  #{r 22099}#
                  #{w 22100}#
                  #{s 22101}#
                  #{m 22102}#
                  #{esew 22103}#
                  #{mod 22104}#
                  (call-with-values
                    (lambda ()
                      (let ((#{e 22106}# (car #{body 22098}#)))
                        (#{syntax-type 4372}#
                          #{e 22106}#
                          #{r 22099}#
                          #{w 22100}#
                          (let ((#{t 22110}#
                                  (#{source-annotation 4334}# #{e 22106}#)))
                            (if #{t 22110}# #{t 22110}# #{s 22101}#))
                          #f
                          #{mod 22104}#
                          #f)))
                    (lambda (#{type 22408}#
                             #{value 22409}#
                             #{e 22410}#
                             #{w 22411}#
                             #{s 22412}#
                             #{mod 22413}#)
                      (if (eqv? #{type 22408}# 'begin-form)
                        (let ((#{tmp 22418}# ($sc-dispatch #{e 22410}# '(_))))
                          (if #{tmp 22418}#
                            (@apply (lambda () #{exps 22105}#) #{tmp 22418}#)
                            (let ((#{tmp 22422}#
                                    ($sc-dispatch
                                      #{e 22410}#
                                      '(_ any . each-any))))
                              (if #{tmp 22422}#
                                (@apply
                                  (lambda (#{e1 22426}# #{e2 22427}#)
                                    (#{scan 21951}#
                                      (cons #{e1 22426}# #{e2 22427}#)
                                      #{r 22099}#
                                      #{w 22411}#
                                      #{s 22412}#
                                      #{m 22102}#
                                      #{esew 22103}#
                                      #{mod 22413}#
                                      #{exps 22105}#))
                                  #{tmp 22422}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  #{e 22410}#)))))
                        (if (eqv? #{type 22408}# 'local-syntax-form)
                          (#{chi-local-syntax 4378}#
                            #{value 22409}#
                            #{e 22410}#
                            #{r 22099}#
                            #{w 22411}#
                            #{s 22412}#
                            #{mod 22413}#
                            (lambda (#{body 22442}#
                                     #{r 22443}#
                                     #{w 22444}#
                                     #{s 22445}#
                                     #{mod 22446}#)
                              (#{scan 21951}#
                                #{body 22442}#
                                #{r 22443}#
                                #{w 22444}#
                                #{s 22445}#
                                #{m 22102}#
                                #{esew 22103}#
                                #{mod 22446}#
                                #{exps 22105}#)))
                          (if (eqv? #{type 22408}# 'eval-when-form)
                            (let ((#{tmp 22451}#
                                    ($sc-dispatch
                                      #{e 22410}#
                                      '(_ each-any any . each-any))))
                              (if #{tmp 22451}#
                                (@apply
                                  (lambda (#{x 22455}#
                                           #{e1 22456}#
                                           #{e2 22457}#)
                                    (let ((#{when-list 22458}#
                                            (#{chi-when-list 4371}#
                                              #{e 22410}#
                                              #{x 22455}#
                                              #{w 22411}#))
                                          (#{body 22459}#
                                            (cons #{e1 22456}# #{e2 22457}#)))
                                      (if (eq? #{m 22102}# 'e)
                                        (if (memq 'eval #{when-list 22458}#)
                                          (#{scan 21951}#
                                            #{body 22459}#
                                            #{r 22099}#
                                            #{w 22411}#
                                            #{s 22412}#
                                            (if (memq 'expand
                                                      #{when-list 22458}#)
                                              'c&e
                                              'e)
                                            '(eval)
                                            #{mod 22413}#
                                            #{exps 22105}#)
                                          (begin
                                            (if (memq 'expand
                                                      #{when-list 22458}#)
                                              (let ((#{x 22466}#
                                                      (#{chi-top-sequence 4369}#
                                                        #{body 22459}#
                                                        #{r 22099}#
                                                        #{w 22411}#
                                                        #{s 22412}#
                                                        'e
                                                        '(eval)
                                                        #{mod 22413}#)))
                                                (primitive-eval #{x 22466}#)))
                                            #{exps 22105}#))
                                        (if (memq 'load #{when-list 22458}#)
                                          (if (let ((#{t 22468}#
                                                      (memq 'compile
                                                            #{when-list 22458}#)))
                                                (if #{t 22468}#
                                                  #{t 22468}#
                                                  (let ((#{t 22470}#
                                                          (memq 'expand
                                                                #{when-list 22458}#)))
                                                    (if #{t 22470}#
                                                      #{t 22470}#
                                                      (if (eq? #{m 22102}#
                                                               'c&e)
                                                        (memq 'eval
                                                              #{when-list 22458}#)
                                                        #f)))))
                                            (#{scan 21951}#
                                              #{body 22459}#
                                              #{r 22099}#
                                              #{w 22411}#
                                              #{s 22412}#
                                              'c&e
                                              '(compile load)
                                              #{mod 22413}#
                                              #{exps 22105}#)
                                            (if (if (eq? #{m 22102}# 'c)
                                                  #t
                                                  (eq? #{m 22102}# 'c&e))
                                              (#{scan 21951}#
                                                #{body 22459}#
                                                #{r 22099}#
                                                #{w 22411}#
                                                #{s 22412}#
                                                'c
                                                '(load)
                                                #{mod 22413}#
                                                #{exps 22105}#)
                                              #{exps 22105}#))
                                          (if (let ((#{t 22480}#
                                                      (memq 'compile
                                                            #{when-list 22458}#)))
                                                (if #{t 22480}#
                                                  #{t 22480}#
                                                  (let ((#{t 22482}#
                                                          (memq 'expand
                                                                #{when-list 22458}#)))
                                                    (if #{t 22482}#
                                                      #{t 22482}#
                                                      (if (eq? #{m 22102}#
                                                               'c&e)
                                                        (memq 'eval
                                                              #{when-list 22458}#)
                                                        #f)))))
                                            (begin
                                              (let ((#{x 22487}#
                                                      (#{chi-top-sequence 4369}#
                                                        #{body 22459}#
                                                        #{r 22099}#
                                                        #{w 22411}#
                                                        #{s 22412}#
                                                        'e
                                                        '(eval)
                                                        #{mod 22413}#)))
                                                (primitive-eval #{x 22487}#))
                                              #{exps 22105}#)
                                            #{exps 22105}#)))))
                                  #{tmp 22451}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  #{e 22410}#)))
                            (if (eqv? #{type 22408}# 'define-syntax-form)
                              (let ((#{n 22498}#
                                      (#{id-var-name 4360}#
                                        #{value 22409}#
                                        #{w 22411}#))
                                    (#{r 22499}#
                                      (#{macros-only-env 4337}# #{r 22099}#)))
                                (if (eqv? #{m 22102}# 'c)
                                  (if (memq 'compile #{esew 22103}#)
                                    (let ((#{e 22503}#
                                            (#{chi-install-global 4370}#
                                              #{n 22498}#
                                              (#{chi 4373}#
                                                #{e 22410}#
                                                #{r 22499}#
                                                #{w 22411}#
                                                #{mod 22413}#))))
                                      (begin
                                        (#{top-level-eval-hook 4300}#
                                          #{e 22503}#
                                          #{mod 22413}#)
                                        (if (memq 'load #{esew 22103}#)
                                          (cons #{e 22503}# #{exps 22105}#)
                                          #{exps 22105}#)))
                                    (if (memq 'load #{esew 22103}#)
                                      (cons (#{chi-install-global 4370}#
                                              #{n 22498}#
                                              (#{chi 4373}#
                                                #{e 22410}#
                                                #{r 22499}#
                                                #{w 22411}#
                                                #{mod 22413}#))
                                            #{exps 22105}#)
                                      #{exps 22105}#))
                                  (if (eqv? #{m 22102}# 'c&e)
                                    (let ((#{e 22949}#
                                            (#{chi-install-global 4370}#
                                              #{n 22498}#
                                              (#{chi 4373}#
                                                #{e 22410}#
                                                #{r 22499}#
                                                #{w 22411}#
                                                #{mod 22413}#))))
                                      (begin
                                        (#{top-level-eval-hook 4300}#
                                          #{e 22949}#
                                          #{mod 22413}#)
                                        (cons #{e 22949}# #{exps 22105}#)))
                                    (begin
                                      (if (memq 'eval #{esew 22103}#)
                                        (#{top-level-eval-hook 4300}#
                                          (#{chi-install-global 4370}#
                                            #{n 22498}#
                                            (#{chi 4373}#
                                              #{e 22410}#
                                              #{r 22499}#
                                              #{w 22411}#
                                              #{mod 22413}#))
                                          #{mod 22413}#))
                                      #{exps 22105}#))))
                              (if (eqv? #{type 22408}# 'define-form)
                                (let ((#{n 23599}#
                                        (#{id-var-name 4360}#
                                          #{value 22409}#
                                          #{w 22411}#)))
                                  (let ((#{type 23600}#
                                          (car (let ((#{t 24602}#
                                                       (assq #{n 23599}#
                                                             #{r 22099}#)))
                                                 (if #{t 24602}#
                                                   (cdr #{t 24602}#)
                                                   (if (symbol? #{n 23599}#)
                                                     (let ((#{t 24607}#
                                                             (begin
                                                               (if (if (not #{mod 22413}#)
                                                                     (current-module)
                                                                     #f)
                                                                 (warn "module system is booted, we should have a module"
                                                                       #{n 23599}#))
                                                               (let ((#{v 24644}#
                                                                       (module-variable
                                                                         (if #{mod 22413}#
                                                                           (resolve-module
                                                                             (cdr #{mod 22413}#))
                                                                           (current-module))
                                                                         #{n 23599}#)))
                                                                 (if #{v 24644}#
                                                                   (if (variable-bound?
                                                                         #{v 24644}#)
                                                                     (let ((#{val 24653}#
                                                                             (variable-ref
                                                                               #{v 24644}#)))
                                                                       (if (macro?
                                                                             #{val 24653}#)
                                                                         (if (macro-type
                                                                               #{val 24653}#)
                                                                           (cons (macro-type
                                                                                   #{val 24653}#)
                                                                                 (macro-binding
                                                                                   #{val 24653}#))
                                                                           #f)
                                                                         #f))
                                                                     #f)
                                                                   #f)))))
                                                       (if #{t 24607}#
                                                         #{t 24607}#
                                                         '(global)))
                                                     '(displaced-lexical)))))))
                                    (if (let ((#{t 23634}# #{type 23600}#))
                                          (if (eqv? #{t 23634}# 'global)
                                            #t
                                            (if (eqv? #{t 23634}# 'core)
                                              #t
                                              (if (eqv? #{t 23634}# 'macro)
                                                #t
                                                (eqv? #{t 23634}#
                                                      'module-ref)))))
                                      (begin
                                        (if (if (if (eq? #{m 22102}# 'c)
                                                  #t
                                                  (eq? #{m 22102}# 'c&e))
                                              (if (not (module-local-variable
                                                         (current-module)
                                                         #{n 23599}#))
                                                (current-module)
                                                #f)
                                              #f)
                                          (let ((#{old 23798}#
                                                  (module-variable
                                                    (current-module)
                                                    #{n 23599}#)))
                                            (if (if (variable? #{old 23798}#)
                                                  (variable-bound?
                                                    #{old 23798}#)
                                                  #f)
                                              (module-define!
                                                (current-module)
                                                #{n 23599}#
                                                (variable-ref #{old 23798}#))
                                              (module-add!
                                                (current-module)
                                                #{n 23599}#
                                                (make-undefined-variable)))))
                                        (cons (if (eq? #{m 22102}# 'c&e)
                                                (let ((#{x 23800}#
                                                        (#{build-global-definition 4315}#
                                                          #{s 22412}#
                                                          #{n 23599}#
                                                          (#{chi 4373}#
                                                            #{e 22410}#
                                                            #{r 22099}#
                                                            #{w 22411}#
                                                            #{mod 22413}#))))
                                                  (begin
                                                    (#{top-level-eval-hook 4300}#
                                                      #{x 23800}#
                                                      #{mod 22413}#)
                                                    #{x 23800}#))
                                                (lambda ()
                                                  (#{build-global-definition 4315}#
                                                    #{s 22412}#
                                                    #{n 23599}#
                                                    (#{chi 4373}#
                                                      #{e 22410}#
                                                      #{r 22099}#
                                                      #{w 22411}#
                                                      #{mod 22413}#))))
                                              #{exps 22105}#))
                                      (if (let ((#{t 24337}# #{type 23600}#))
                                            (eqv? #{t 24337}#
                                                  'displaced-lexical))
                                        (syntax-violation
                                          #f
                                          "identifier out of context"
                                          #{e 22410}#
                                          (if (if (null? (car #{w 22411}#))
                                                (null? (cdr #{w 22411}#))
                                                #f)
                                            #{value 22409}#
                                            (if (if (vector? #{value 22409}#)
                                                  (if (= (vector-length
                                                           #{value 22409}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{value 22409}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (let ((#{expression 24429}#
                                                      (vector-ref
                                                        #{value 22409}#
                                                        1))
                                                    (#{wrap 24430}#
                                                      (let ((#{w2 24440}#
                                                              (vector-ref
                                                                #{value 22409}#
                                                                2)))
                                                        (let ((#{m1 24441}#
                                                                (car #{w 22411}#))
                                                              (#{s1 24442}#
                                                                (cdr #{w 22411}#)))
                                                          (if (null? #{m1 24441}#)
                                                            (if (null? #{s1 24442}#)
                                                              #{w2 24440}#
                                                              (cons (car #{w2 24440}#)
                                                                    (let ((#{m2 24459}#
                                                                            (cdr #{w2 24440}#)))
                                                                      (if (null? #{m2 24459}#)
                                                                        #{s1 24442}#
                                                                        (append
                                                                          #{s1 24442}#
                                                                          #{m2 24459}#)))))
                                                            (cons (let ((#{m2 24467}#
                                                                          (car #{w2 24440}#)))
                                                                    (if (null? #{m2 24467}#)
                                                                      #{m1 24441}#
                                                                      (append
                                                                        #{m1 24441}#
                                                                        #{m2 24467}#)))
                                                                  (let ((#{m2 24475}#
                                                                          (cdr #{w2 24440}#)))
                                                                    (if (null? #{m2 24475}#)
                                                                      #{s1 24442}#
                                                                      (append
                                                                        #{s1 24442}#
                                                                        #{m2 24475}#))))))))
                                                    (#{module 24431}#
                                                      (vector-ref
                                                        #{value 22409}#
                                                        3)))
                                                (vector
                                                  'syntax-object
                                                  #{expression 24429}#
                                                  #{wrap 24430}#
                                                  #{module 24431}#))
                                              (if (null? #{value 22409}#)
                                                #{value 22409}#
                                                (vector
                                                  'syntax-object
                                                  #{value 22409}#
                                                  #{w 22411}#
                                                  #{mod 22413}#)))))
                                        (syntax-violation
                                          #f
                                          "cannot define keyword at top level"
                                          #{e 22410}#
                                          (if (if (null? (car #{w 22411}#))
                                                (null? (cdr #{w 22411}#))
                                                #f)
                                            #{value 22409}#
                                            (if (if (vector? #{value 22409}#)
                                                  (if (= (vector-length
                                                           #{value 22409}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{value 22409}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (let ((#{expression 24527}#
                                                      (vector-ref
                                                        #{value 22409}#
                                                        1))
                                                    (#{wrap 24528}#
                                                      (let ((#{w2 24538}#
                                                              (vector-ref
                                                                #{value 22409}#
                                                                2)))
                                                        (let ((#{m1 24539}#
                                                                (car #{w 22411}#))
                                                              (#{s1 24540}#
                                                                (cdr #{w 22411}#)))
                                                          (if (null? #{m1 24539}#)
                                                            (if (null? #{s1 24540}#)
                                                              #{w2 24538}#
                                                              (cons (car #{w2 24538}#)
                                                                    (let ((#{m2 24557}#
                                                                            (cdr #{w2 24538}#)))
                                                                      (if (null? #{m2 24557}#)
                                                                        #{s1 24540}#
                                                                        (append
                                                                          #{s1 24540}#
                                                                          #{m2 24557}#)))))
                                                            (cons (let ((#{m2 24565}#
                                                                          (car #{w2 24538}#)))
                                                                    (if (null? #{m2 24565}#)
                                                                      #{m1 24539}#
                                                                      (append
                                                                        #{m1 24539}#
                                                                        #{m2 24565}#)))
                                                                  (let ((#{m2 24573}#
                                                                          (cdr #{w2 24538}#)))
                                                                    (if (null? #{m2 24573}#)
                                                                      #{s1 24540}#
                                                                      (append
                                                                        #{s1 24540}#
                                                                        #{m2 24573}#))))))))
                                                    (#{module 24529}#
                                                      (vector-ref
                                                        #{value 22409}#
                                                        3)))
                                                (vector
                                                  'syntax-object
                                                  #{expression 24527}#
                                                  #{wrap 24528}#
                                                  #{module 24529}#))
                                              (if (null? #{value 22409}#)
                                                #{value 22409}#
                                                (vector
                                                  'syntax-object
                                                  #{value 22409}#
                                                  #{w 22411}#
                                                  #{mod 22413}#)))))))))
                                (cons (if (eq? #{m 22102}# 'c&e)
                                        (let ((#{x 24664}#
                                                (#{chi-expr 4374}#
                                                  #{type 22408}#
                                                  #{value 22409}#
                                                  #{e 22410}#
                                                  #{r 22099}#
                                                  #{w 22411}#
                                                  #{s 22412}#
                                                  #{mod 22413}#)))
                                          (begin
                                            (primitive-eval #{x 24664}#)
                                            #{x 24664}#))
                                        (lambda ()
                                          (#{chi-expr 4374}#
                                            #{type 22408}#
                                            #{value 22409}#
                                            #{e 22410}#
                                            #{r 22099}#
                                            #{w 22411}#
                                            #{s 22412}#
                                            #{mod 22413}#)))
                                      #{exps 22105}#)))))))))))))
         (let ((#{exps 21952}#
                 (#{scan 21951}#
                   #{body 21944}#
                   #{r 21945}#
                   #{w 21946}#
                   #{s 21947}#
                   #{m 21948}#
                   #{esew 21949}#
                   #{mod 21950}#
                   '())))
           (if (null? #{exps 21952}#)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 0)
               #{s 21947}#)
             (#{build-sequence 4322}#
               #{s 21947}#
               (letrec*
                 ((#{lp 21998}#
                    (lambda (#{in 22094}# #{out 22095}#)
                      (if (null? #{in 22094}#)
                        #{out 22095}#
                        (let ((#{e 22096}# (car #{in 22094}#)))
                          (#{lp 21998}#
                            (cdr #{in 22094}#)
                            (cons (if (procedure? #{e 22096}#)
                                    (#{e 22096}#)
                                    #{e 22096}#)
                                  #{out 22095}#)))))))
                 (#{lp 21998}# #{exps 21952}# '()))))))))
   (#{chi-install-global 4370}#
     (lambda (#{name 24673}# #{e 24674}#)
       (let ((#{exp 24680}#
               (let ((#{args 24691}#
                       (list (make-struct/no-tail
                               (vector-ref %expanded-vtables 1)
                               #f
                               #{name 24673}#)
                             (make-struct/no-tail
                               (vector-ref %expanded-vtables 1)
                               #f
                               'macro)
                             #{e 24674}#)))
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 12)
                   #f
                   'make-syntax-transformer
                   #{args 24691}#))))
         (begin
           (if (if (struct? #{exp 24680}#)
                 (eq? (struct-vtable #{exp 24680}#)
                      (vector-ref %expanded-vtables 14))
                 #f)
             (let ((#{meta 24718}# (struct-ref #{exp 24680}# 1)))
               (if (not (assq 'name #{meta 24718}#))
                 (let ((#{v 24725}#
                         (cons (cons 'name #{name 24673}#) #{meta 24718}#)))
                   (struct-set! #{exp 24680}# 1 #{v 24725}#)))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 9)
             #f
             #{name 24673}#
             #{exp 24680}#)))))
   (#{chi-when-list 4371}#
     (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#)
       (letrec*
         ((#{f 24739}#
            (lambda (#{when-list 24941}# #{situations 24942}#)
              (if (null? #{when-list 24941}#)
                #{situations 24942}#
                (#{f 24739}#
                  (cdr #{when-list 24941}#)
                  (cons (let ((#{x 24943}#
                                (syntax->datum (car #{when-list 24941}#))))
                          (if (if (eq? #{x 24943}# 'compile)
                                #t
                                (if (eq? #{x 24943}# 'load)
                                  #t
                                  (if (eq? #{x 24943}# 'eval)
                                    #t
                                    (eq? #{x 24943}# 'expand))))
                            #{x 24943}#
                            (syntax-violation
                              'eval-when
                              "invalid situation"
                              #{e 24736}#
                              (let ((#{x 24962}# (car #{when-list 24941}#)))
                                (if (if (null? (car #{w 24738}#))
                                      (null? (cdr #{w 24738}#))
                                      #f)
                                  #{x 24962}#
                                  (if (if (vector? #{x 24962}#)
                                        (if (= (vector-length #{x 24962}#) 4)
                                          (eq? (vector-ref #{x 24962}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (let ((#{expression 24980}#
                                            (vector-ref #{x 24962}# 1))
                                          (#{wrap 24981}#
                                            (let ((#{w2 24989}#
                                                    (vector-ref
                                                      #{x 24962}#
                                                      2)))
                                              (let ((#{m1 24990}#
                                                      (car #{w 24738}#))
                                                    (#{s1 24991}#
                                                      (cdr #{w 24738}#)))
                                                (if (null? #{m1 24990}#)
                                                  (if (null? #{s1 24991}#)
                                                    #{w2 24989}#
                                                    (cons (car #{w2 24989}#)
                                                          (let ((#{m2 25006}#
                                                                  (cdr #{w2 24989}#)))
                                                            (if (null? #{m2 25006}#)
                                                              #{s1 24991}#
                                                              (append
                                                                #{s1 24991}#
                                                                #{m2 25006}#)))))
                                                  (cons (let ((#{m2 25014}#
                                                                (car #{w2 24989}#)))
                                                          (if (null? #{m2 25014}#)
                                                            #{m1 24990}#
                                                            (append
                                                              #{m1 24990}#
                                                              #{m2 25014}#)))
                                                        (let ((#{m2 25022}#
                                                                (cdr #{w2 24989}#)))
                                                          (if (null? #{m2 25022}#)
                                                            #{s1 24991}#
                                                            (append
                                                              #{s1 24991}#
                                                              #{m2 25022}#))))))))
                                          (#{module 24982}#
                                            (vector-ref #{x 24962}# 3)))
                                      (vector
                                        'syntax-object
                                        #{expression 24980}#
                                        #{wrap 24981}#
                                        #{module 24982}#))
                                    (if (null? #{x 24962}#)
                                      #{x 24962}#
                                      (vector
                                        'syntax-object
                                        #{x 24962}#
                                        #{w 24738}#
                                        #f))))))))
                        #{situations 24942}#))))))
         (#{f 24739}# #{when-list 24737}# '()))))
   (#{syntax-type 4372}#
     (lambda (#{e 25037}#
              #{r 25038}#
              #{w 25039}#
              #{s 25040}#
              #{rib 25041}#
              #{mod 25042}#
              #{for-car? 25043}#)
       (if (symbol? #{e 25037}#)
         (let ((#{n 25044}#
                 (#{id-var-name 4360}# #{e 25037}# #{w 25039}#)))
           (let ((#{b 25045}#
                   (let ((#{t 25620}# (assq #{n 25044}# #{r 25038}#)))
                     (if #{t 25620}#
                       (cdr #{t 25620}#)
                       (if (symbol? #{n 25044}#)
                         (let ((#{t 25625}#
                                 (begin
                                   (if (if (not #{mod 25042}#)
                                         (current-module)
                                         #f)
                                     (warn "module system is booted, we should have a module"
                                           #{n 25044}#))
                                   (let ((#{v 25662}#
                                           (module-variable
                                             (if #{mod 25042}#
                                               (resolve-module
                                                 (cdr #{mod 25042}#))
                                               (current-module))
                                             #{n 25044}#)))
                                     (if #{v 25662}#
                                       (if (variable-bound? #{v 25662}#)
                                         (let ((#{val 25671}#
                                                 (variable-ref #{v 25662}#)))
                                           (if (macro? #{val 25671}#)
                                             (if (macro-type #{val 25671}#)
                                               (cons (macro-type #{val 25671}#)
                                                     (macro-binding
                                                       #{val 25671}#))
                                               #f)
                                             #f))
                                         #f)
                                       #f)))))
                           (if #{t 25625}# #{t 25625}# '(global)))
                         '(displaced-lexical))))))
             (let ((#{type 25046}# (car #{b 25045}#)))
               (if (let ((#{t 25080}# #{type 25046}#))
                     (eqv? #{t 25080}# 'lexical))
                 (values
                   #{type 25046}#
                   (cdr #{b 25045}#)
                   #{e 25037}#
                   #{w 25039}#
                   #{s 25040}#
                   #{mod 25042}#)
                 (if (let ((#{t 25237}# #{type 25046}#))
                       (eqv? #{t 25237}# 'global))
                   (values
                     #{type 25046}#
                     #{n 25044}#
                     #{e 25037}#
                     #{w 25039}#
                     #{s 25040}#
                     #{mod 25042}#)
                   (if (let ((#{t 25363}# #{type 25046}#))
                         (eqv? #{t 25363}# 'macro))
                     (if #{for-car? 25043}#
                       (values
                         #{type 25046}#
                         (cdr #{b 25045}#)
                         #{e 25037}#
                         #{w 25039}#
                         #{s 25040}#
                         #{mod 25042}#)
                       (#{syntax-type 4372}#
                         (#{chi-macro 4376}#
                           (cdr #{b 25045}#)
                           #{e 25037}#
                           #{r 25038}#
                           #{w 25039}#
                           #{s 25040}#
                           #{rib 25041}#
                           #{mod 25042}#)
                         #{r 25038}#
                         '(())
                         #{s 25040}#
                         #{rib 25041}#
                         #{mod 25042}#
                         #f))
                     (values
                       #{type 25046}#
                       (cdr #{b 25045}#)
                       #{e 25037}#
                       #{w 25039}#
                       #{s 25040}#
                       #{mod 25042}#)))))))
         (if (pair? #{e 25037}#)
           (let ((#{first 25682}# (car #{e 25037}#)))
             (call-with-values
               (lambda ()
                 (#{syntax-type 4372}#
                   #{first 25682}#
                   #{r 25038}#
                   #{w 25039}#
                   #{s 25040}#
                   #{rib 25041}#
                   #{mod 25042}#
                   #t))
               (lambda (#{ftype 25684}#
                        #{fval 25685}#
                        #{fe 25686}#
                        #{fw 25687}#
                        #{fs 25688}#
                        #{fmod 25689}#)
                 (if (eqv? #{ftype 25684}# 'lexical)
                   (values
                     'lexical-call
                     #{fval 25685}#
                     #{e 25037}#
                     #{w 25039}#
                     #{s 25040}#
                     #{mod 25042}#)
                   (if (eqv? #{ftype 25684}# 'global)
                     (values
                       'global-call
                       (vector
                         'syntax-object
                         #{fval 25685}#
                         #{w 25039}#
                         #{fmod 25689}#)
                       #{e 25037}#
                       #{w 25039}#
                       #{s 25040}#
                       #{mod 25042}#)
                     (if (eqv? #{ftype 25684}# 'macro)
                       (#{syntax-type 4372}#
                         (#{chi-macro 4376}#
                           #{fval 25685}#
                           #{e 25037}#
                           #{r 25038}#
                           #{w 25039}#
                           #{s 25040}#
                           #{rib 25041}#
                           #{mod 25042}#)
                         #{r 25038}#
                         '(())
                         #{s 25040}#
                         #{rib 25041}#
                         #{mod 25042}#
                         #{for-car? 25043}#)
                       (if (eqv? #{ftype 25684}# 'module-ref)
                         (call-with-values
                           (lambda ()
                             (#{fval 25685}#
                               #{e 25037}#
                               #{r 25038}#
                               #{w 25039}#))
                           (lambda (#{e 25710}#
                                    #{r 25711}#
                                    #{w 25712}#
                                    #{s 25713}#
                                    #{mod 25714}#)
                             (#{syntax-type 4372}#
                               #{e 25710}#
                               #{r 25711}#
                               #{w 25712}#
                               #{s 25713}#
                               #{rib 25041}#
                               #{mod 25714}#
                               #{for-car? 25043}#)))
                         (if (eqv? #{ftype 25684}# 'core)
                           (values
                             'core-form
                             #{fval 25685}#
                             #{e 25037}#
                             #{w 25039}#
                             #{s 25040}#
                             #{mod 25042}#)
                           (if (eqv? #{ftype 25684}# 'local-syntax)
                             (values
                               'local-syntax-form
                               #{fval 25685}#
                               #{e 25037}#
                               #{w 25039}#
                               #{s 25040}#
                               #{mod 25042}#)
                             (if (eqv? #{ftype 25684}# 'begin)
                               (values
                                 'begin-form
                                 #f
                                 #{e 25037}#
                                 #{w 25039}#
                                 #{s 25040}#
                                 #{mod 25042}#)
                               (if (eqv? #{ftype 25684}# 'eval-when)
                                 (values
                                   'eval-when-form
                                   #f
                                   #{e 25037}#
                                   #{w 25039}#
                                   #{s 25040}#
                                   #{mod 25042}#)
                                 (if (eqv? #{ftype 25684}# 'define)
                                   (let ((#{tmp 25731}#
                                           ($sc-dispatch
                                             #{e 25037}#
                                             '(_ any any))))
                                     (if (if #{tmp 25731}#
                                           (@apply
                                             (lambda (#{name 25735}#
                                                      #{val 25736}#)
                                               (if (symbol? #{name 25735}#)
                                                 #t
                                                 (if (if (vector?
                                                           #{name 25735}#)
                                                       (if (= (vector-length
                                                                #{name 25735}#)
                                                              4)
                                                         (eq? (vector-ref
                                                                #{name 25735}#
                                                                0)
                                                              'syntax-object)
                                                         #f)
                                                       #f)
                                                   (symbol?
                                                     (vector-ref
                                                       #{name 25735}#
                                                       1))
                                                   #f)))
                                             #{tmp 25731}#)
                                           #f)
                                       (@apply
                                         (lambda (#{name 25763}# #{val 25764}#)
                                           (values
                                             'define-form
                                             #{name 25763}#
                                             #{val 25764}#
                                             #{w 25039}#
                                             #{s 25040}#
                                             #{mod 25042}#))
                                         #{tmp 25731}#)
                                       (let ((#{tmp 25765}#
                                               ($sc-dispatch
                                                 #{e 25037}#
                                                 '(_ (any . any)
                                                     any
                                                     .
                                                     each-any))))
                                         (if (if #{tmp 25765}#
                                               (@apply
                                                 (lambda (#{name 25769}#
                                                          #{args 25770}#
                                                          #{e1 25771}#
                                                          #{e2 25772}#)
                                                   (if (if (symbol?
                                                             #{name 25769}#)
                                                         #t
                                                         (if (if (vector?
                                                                   #{name 25769}#)
                                                               (if (= (vector-length
                                                                        #{name 25769}#)
                                                                      4)
                                                                 (eq? (vector-ref
                                                                        #{name 25769}#
                                                                        0)
                                                                      'syntax-object)
                                                                 #f)
                                                               #f)
                                                           (symbol?
                                                             (vector-ref
                                                               #{name 25769}#
                                                               1))
                                                           #f))
                                                     (#{valid-bound-ids? 4363}#
                                                       (#{lambda-var-list 4388}#
                                                         #{args 25770}#))
                                                     #f))
                                                 #{tmp 25765}#)
                                               #f)
                                           (@apply
                                             (lambda (#{name 26253}#
                                                      #{args 26254}#
                                                      #{e1 26255}#
                                                      #{e2 26256}#)
                                               (values
                                                 'define-form
                                                 (if (if (null? (car #{w 25039}#))
                                                       (null? (cdr #{w 25039}#))
                                                       #f)
                                                   #{name 26253}#
                                                   (if (if (vector?
                                                             #{name 26253}#)
                                                         (if (= (vector-length
                                                                  #{name 26253}#)
                                                                4)
                                                           (eq? (vector-ref
                                                                  #{name 26253}#
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (let ((#{expression 26286}#
                                                             (vector-ref
                                                               #{name 26253}#
                                                               1))
                                                           (#{wrap 26287}#
                                                             (let ((#{w2 26297}#
                                                                     (vector-ref
                                                                       #{name 26253}#
                                                                       2)))
                                                               (let ((#{m1 26298}#
                                                                       (car #{w 25039}#))
                                                                     (#{s1 26299}#
                                                                       (cdr #{w 25039}#)))
                                                                 (if (null? #{m1 26298}#)
                                                                   (if (null? #{s1 26299}#)
                                                                     #{w2 26297}#
                                                                     (cons (car #{w2 26297}#)
                                                                           (let ((#{m2 26316}#
                                                                                   (cdr #{w2 26297}#)))
                                                                             (if (null? #{m2 26316}#)
                                                                               #{s1 26299}#
                                                                               (append
                                                                                 #{s1 26299}#
                                                                                 #{m2 26316}#)))))
                                                                   (cons (let ((#{m2 26324}#
                                                                                 (car #{w2 26297}#)))
                                                                           (if (null? #{m2 26324}#)
                                                                             #{m1 26298}#
                                                                             (append
                                                                               #{m1 26298}#
                                                                               #{m2 26324}#)))
                                                                         (let ((#{m2 26332}#
                                                                                 (cdr #{w2 26297}#)))
                                                                           (if (null? #{m2 26332}#)
                                                                             #{s1 26299}#
                                                                             (append
                                                                               #{s1 26299}#
                                                                               #{m2 26332}#))))))))
                                                           (#{module 26288}#
                                                             (vector-ref
                                                               #{name 26253}#
                                                               3)))
                                                       (vector
                                                         'syntax-object
                                                         #{expression 26286}#
                                                         #{wrap 26287}#
                                                         #{module 26288}#))
                                                     (if (null? #{name 26253}#)
                                                       #{name 26253}#
                                                       (vector
                                                         'syntax-object
                                                         #{name 26253}#
                                                         #{w 25039}#
                                                         #{mod 25042}#))))
                                                 (let ((#{e 26358}#
                                                         (cons '#(syntax-object
                                                                  lambda
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(name
                                                                       args
                                                                       e1
                                                                       e2)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1886"
                                                                       "i1887"
                                                                       "i1888"
                                                                       "i1889"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(ftype
                                                                       fval
                                                                       fe
                                                                       fw
                                                                       fs
                                                                       fmod)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1839"
                                                                       "i1840"
                                                                       "i1841"
                                                                       "i1842"
                                                                       "i1843"
                                                                       "i1844"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(first)
                                                                     #((top))
                                                                     #("i1831"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(e
                                                                       r
                                                                       w
                                                                       s
                                                                       rib
                                                                       mod
                                                                       for-car?)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1803"
                                                                       "i1804"
                                                                       "i1805"
                                                                       "i1806"
                                                                       "i1807"
                                                                       "i1808"
                                                                       "i1809"))
                                                                   #(ribcage
                                                                     (lambda-var-list
                                                                       gen-var
                                                                       strip
                                                                       chi-lambda-case
                                                                       lambda*-formals
                                                                       chi-simple-lambda
                                                                       lambda-formals
                                                                       ellipsis?
                                                                       chi-void
                                                                       eval-local-transformer
                                                                       chi-local-syntax
                                                                       chi-body
                                                                       chi-macro
                                                                       chi-call
                                                                       chi-expr
                                                                       chi
                                                                       syntax-type
                                                                       chi-when-list
                                                                       chi-install-global
                                                                       chi-top-sequence
                                                                       chi-sequence
                                                                       source-wrap
                                                                       wrap
                                                                       bound-id-member?
                                                                       distinct-bound-ids?
                                                                       valid-bound-ids?
                                                                       bound-id=?
                                                                       free-id=?
                                                                       id-var-name
                                                                       same-marks?
                                                                       join-marks
                                                                       join-wraps
                                                                       smart-append
                                                                       make-binding-wrap
                                                                       extend-ribcage!
                                                                       make-empty-ribcage
                                                                       new-mark
                                                                       anti-mark
                                                                       the-anti-mark
                                                                       top-marked?
                                                                       top-wrap
                                                                       empty-wrap
                                                                       set-ribcage-labels!
                                                                       set-ribcage-marks!
                                                                       set-ribcage-symnames!
                                                                       ribcage-labels
                                                                       ribcage-marks
                                                                       ribcage-symnames
                                                                       ribcage?
                                                                       make-ribcage
                                                                       gen-labels
                                                                       gen-label
                                                                       make-rename
                                                                       rename-marks
                                                                       rename-new
                                                                       rename-old
                                                                       subst-rename?
                                                                       wrap-subst
                                                                       wrap-marks
                                                                       make-wrap
                                                                       id-sym-name&marks
                                                                       id-sym-name
                                                                       id?
                                                                       nonsymbol-id?
                                                                       global-extend
                                                                       lookup
                                                                       macros-only-env
                                                                       extend-var-env
                                                                       extend-env
                                                                       null-env
                                                                       binding-value
                                                                       binding-type
                                                                       make-binding
                                                                       arg-check
                                                                       source-annotation
                                                                       no-source
                                                                       set-syntax-object-module!
                                                                       set-syntax-object-wrap!
                                                                       set-syntax-object-expression!
                                                                       syntax-object-module
                                                                       syntax-object-wrap
                                                                       syntax-object-expression
                                                                       syntax-object?
                                                                       make-syntax-object
                                                                       build-lexical-var
                                                                       build-letrec
                                                                       build-named-let
                                                                       build-let
                                                                       build-sequence
                                                                       build-data
                                                                       build-primref
                                                                       build-primcall
                                                                       build-lambda-case
                                                                       build-case-lambda
                                                                       build-simple-lambda
                                                                       build-global-definition
                                                                       build-global-assignment
                                                                       build-global-reference
                                                                       analyze-variable
                                                                       build-lexical-assignment
                                                                       build-lexical-reference
                                                                       build-dynlet
                                                                       build-conditional
                                                                       build-call
                                                                       build-void
                                                                       maybe-name-value!
                                                                       decorate-source
                                                                       get-global-definition-hook
                                                                       put-global-definition-hook
                                                                       gensym-hook
                                                                       local-eval-hook
                                                                       top-level-eval-hook
                                                                       fx<
                                                                       fx=
                                                                       fx-
                                                                       fx+
                                                                       set-lambda-meta!
                                                                       lambda-meta
                                                                       lambda?
                                                                       make-dynlet
                                                                       make-letrec
                                                                       make-let
                                                                       make-lambda-case
                                                                       make-lambda
                                                                       make-seq
                                                                       make-primcall
                                                                       make-call
                                                                       make-conditional
                                                                       make-toplevel-define
                                                                       make-toplevel-set
                                                                       make-toplevel-ref
                                                                       make-module-set
                                                                       make-module-ref
                                                                       make-lexical-set
                                                                       make-lexical-ref
                                                                       make-primitive-ref
                                                                       make-const
                                                                       make-void)
                                                                     ((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                     ("i471"
                                                                      "i469"
                                                                      "i467"
                                                                      "i465"
                                                                      "i463"
                                                                      "i461"
                                                                      "i459"
                                                                      "i457"
                                                                      "i455"
                                                                      "i453"
                                                                      "i451"
                                                                      "i449"
                                                                      "i447"
                                                                      "i445"
                                                                      "i443"
                                                                      "i441"
                                                                      "i439"
                                                                      "i437"
                                                                      "i435"
                                                                      "i433"
                                                                      "i431"
                                                                      "i429"
                                                                      "i427"
                                                                      "i425"
                                                                      "i423"
                                                                      "i421"
                                                                      "i419"
                                                                      "i417"
                                                                      "i415"
                                                                      "i413"
                                                                      "i411"
                                                                      "i409"
                                                                      "i407"
                                                                      "i405"
                                                                      "i403"
                                                                      "i402"
                                                                      "i400"
                                                                      "i397"
                                                                      "i396"
                                                                      "i395"
                                                                      "i393"
                                                                      "i392"
                                                                      "i390"
                                                                      "i388"
                                                                      "i386"
                                                                      "i384"
                                                                      "i382"
                                                                      "i380"
                                                                      "i378"
                                                                      "i376"
                                                                      "i373"
                                                                      "i371"
                                                                      "i370"
                                                                      "i368"
                                                                      "i366"
                                                                      "i364"
                                                                      "i362"
                                                                      "i361"
                                                                      "i360"
                                                                      "i359"
                                                                      "i357"
                                                                      "i356"
                                                                      "i353"
                                                                      "i351"
                                                                      "i349"
                                                                      "i347"
                                                                      "i345"
                                                                      "i343"
                                                                      "i341"
                                                                      "i340"
                                                                      "i339"
                                                                      "i337"
                                                                      "i335"
                                                                      "i334"
                                                                      "i331"
                                                                      "i330"
                                                                      "i328"
                                                                      "i326"
                                                                      "i324"
                                                                      "i322"
                                                                      "i320"
                                                                      "i318"
                                                                      "i316"
                                                                      "i314"
                                                                      "i312"
                                                                      "i309"
                                                                      "i307"
                                                                      "i305"
                                                                      "i303"
                                                                      "i301"
                                                                      "i299"
                                                                      "i297"
                                                                      "i295"
                                                                      "i293"
                                                                      "i291"
                                                                      "i289"
                                                                      "i287"
                                                                      "i285"
                                                                      "i283"
                                                                      "i281"
                                                                      "i279"
                                                                      "i277"
                                                                      "i275"
                                                                      "i273"
                                                                      "i271"
                                                                      "i269"
                                                                      "i267"
                                                                      "i265"
                                                                      "i263"
                                                                      "i262"
                                                                      "i259"
                                                                      "i257"
                                                                      "i256"
                                                                      "i255"
                                                                      "i254"
                                                                      "i253"
                                                                      "i251"
                                                                      "i249"
                                                                      "i247"
                                                                      "i244"
                                                                      "i242"
                                                                      "i240"
                                                                      "i238"
                                                                      "i236"
                                                                      "i234"
                                                                      "i232"
                                                                      "i230"
                                                                      "i228"
                                                                      "i226"
                                                                      "i224"
                                                                      "i222"
                                                                      "i220"
                                                                      "i218"
                                                                      "i216"
                                                                      "i214"
                                                                      "i212"
                                                                      "i210"
                                                                      "i208"))
                                                                   #(ribcage
                                                                     (define-structure
                                                                       define-expansion-accessors
                                                                       define-expansion-constructors)
                                                                     ((top)
                                                                      (top)
                                                                      (top))
                                                                     ("i46"
                                                                      "i45"
                                                                      "i44")))
                                                                  (hygiene
                                                                    guile))
                                                               (let ((#{x 26362}#
                                                                       (cons #{args 26254}#
                                                                             (cons #{e1 26255}#
                                                                                   #{e2 26256}#))))
                                                                 (if (if (null? (car #{w 25039}#))
                                                                       (null? (cdr #{w 25039}#))
                                                                       #f)
                                                                   #{x 26362}#
                                                                   (if (if (vector?
                                                                             #{x 26362}#)
                                                                         (if (= (vector-length
                                                                                  #{x 26362}#)
                                                                                4)
                                                                           (eq? (vector-ref
                                                                                  #{x 26362}#
                                                                                  0)
                                                                                'syntax-object)
                                                                           #f)
                                                                         #f)
                                                                     (let ((#{expression 26380}#
                                                                             (vector-ref
                                                                               #{x 26362}#
                                                                               1))
                                                                           (#{wrap 26381}#
                                                                             (let ((#{w2 26389}#
                                                                                     (vector-ref
                                                                                       #{x 26362}#
                                                                                       2)))
                                                                               (let ((#{m1 26390}#
                                                                                       (car #{w 25039}#))
                                                                                     (#{s1 26391}#
                                                                                       (cdr #{w 25039}#)))
                                                                                 (if (null? #{m1 26390}#)
                                                                                   (if (null? #{s1 26391}#)
                                                                                     #{w2 26389}#
                                                                                     (cons (car #{w2 26389}#)
                                                                                           (let ((#{m2 26406}#
                                                                                                   (cdr #{w2 26389}#)))
                                                                                             (if (null? #{m2 26406}#)
                                                                                               #{s1 26391}#
                                                                                               (append
                                                                                                 #{s1 26391}#
                                                                                                 #{m2 26406}#)))))
                                                                                   (cons (let ((#{m2 26414}#
                                                                                                 (car #{w2 26389}#)))
                                                                                           (if (null? #{m2 26414}#)
                                                                                             #{m1 26390}#
                                                                                             (append
                                                                                               #{m1 26390}#
                                                                                               #{m2 26414}#)))
                                                                                         (let ((#{m2 26422}#
                                                                                                 (cdr #{w2 26389}#)))
                                                                                           (if (null? #{m2 26422}#)
                                                                                             #{s1 26391}#
                                                                                             (append
                                                                                               #{s1 26391}#
                                                                                               #{m2 26422}#))))))))
                                                                           (#{module 26382}#
                                                                             (vector-ref
                                                                               #{x 26362}#
                                                                               3)))
                                                                       (vector
                                                                         'syntax-object
                                                                         #{expression 26380}#
                                                                         #{wrap 26381}#
                                                                         #{module 26382}#))
                                                                     (if (null? #{x 26362}#)
                                                                       #{x 26362}#
                                                                       (vector
                                                                         'syntax-object
                                                                         #{x 26362}#
                                                                         #{w 25039}#
                                                                         #{mod 25042}#))))))))
                                                   (begin
                                                     (if (if (pair? #{e 26358}#)
                                                           #{s 25040}#
                                                           #f)
                                                       (set-source-properties!
                                                         #{e 26358}#
                                                         #{s 25040}#))
                                                     #{e 26358}#))
                                                 '(())
                                                 #{s 25040}#
                                                 #{mod 25042}#))
                                             #{tmp 25765}#)
                                           (let ((#{tmp 26441}#
                                                   ($sc-dispatch
                                                     #{e 25037}#
                                                     '(_ any))))
                                             (if (if #{tmp 26441}#
                                                   (@apply
                                                     (lambda (#{name 26445}#)
                                                       (if (symbol?
                                                             #{name 26445}#)
                                                         #t
                                                         (if (if (vector?
                                                                   #{name 26445}#)
                                                               (if (= (vector-length
                                                                        #{name 26445}#)
                                                                      4)
                                                                 (eq? (vector-ref
                                                                        #{name 26445}#
                                                                        0)
                                                                      'syntax-object)
                                                                 #f)
                                                               #f)
                                                           (symbol?
                                                             (vector-ref
                                                               #{name 26445}#
                                                               1))
                                                           #f)))
                                                     #{tmp 26441}#)
                                                   #f)
                                               (@apply
                                                 (lambda (#{name 26472}#)
                                                   (values
                                                     'define-form
                                                     (if (if (null? (car #{w 25039}#))
                                                           (null? (cdr #{w 25039}#))
                                                           #f)
                                                       #{name 26472}#
                                                       (if (if (vector?
                                                                 #{name 26472}#)
                                                             (if (= (vector-length
                                                                      #{name 26472}#)
                                                                    4)
                                                               (eq? (vector-ref
                                                                      #{name 26472}#
                                                                      0)
                                                                    'syntax-object)
                                                               #f)
                                                             #f)
                                                         (let ((#{expression 26502}#
                                                                 (vector-ref
                                                                   #{name 26472}#
                                                                   1))
                                                               (#{wrap 26503}#
                                                                 (let ((#{w2 26513}#
                                                                         (vector-ref
                                                                           #{name 26472}#
                                                                           2)))
                                                                   (let ((#{m1 26514}#
                                                                           (car #{w 25039}#))
                                                                         (#{s1 26515}#
                                                                           (cdr #{w 25039}#)))
                                                                     (if (null? #{m1 26514}#)
                                                                       (if (null? #{s1 26515}#)
                                                                         #{w2 26513}#
                                                                         (cons (car #{w2 26513}#)
                                                                               (let ((#{m2 26532}#
                                                                                       (cdr #{w2 26513}#)))
                                                                                 (if (null? #{m2 26532}#)
                                                                                   #{s1 26515}#
                                                                                   (append
                                                                                     #{s1 26515}#
                                                                                     #{m2 26532}#)))))
                                                                       (cons (let ((#{m2 26540}#
                                                                                     (car #{w2 26513}#)))
                                                                               (if (null? #{m2 26540}#)
                                                                                 #{m1 26514}#
                                                                                 (append
                                                                                   #{m1 26514}#
                                                                                   #{m2 26540}#)))
                                                                             (let ((#{m2 26548}#
                                                                                     (cdr #{w2 26513}#)))
                                                                               (if (null? #{m2 26548}#)
                                                                                 #{s1 26515}#
                                                                                 (append
                                                                                   #{s1 26515}#
                                                                                   #{m2 26548}#))))))))
                                                               (#{module 26504}#
                                                                 (vector-ref
                                                                   #{name 26472}#
                                                                   3)))
                                                           (vector
                                                             'syntax-object
                                                             #{expression 26502}#
                                                             #{wrap 26503}#
                                                             #{module 26504}#))
                                                         (if (null? #{name 26472}#)
                                                           #{name 26472}#
                                                           (vector
                                                             'syntax-object
                                                             #{name 26472}#
                                                             #{w 25039}#
                                                             #{mod 25042}#))))
                                                     '(#(syntax-object
                                                         if
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1899"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1839"
                                                              "i1840"
                                                              "i1841"
                                                              "i1842"
                                                              "i1843"
                                                              "i1844"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1831"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1803"
                                                              "i1804"
                                                              "i1805"
                                                              "i1806"
                                                              "i1807"
                                                              "i1808"
                                                              "i1809"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              chi-lambda-case
                                                              lambda*-formals
                                                              chi-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              chi-void
                                                              eval-local-transformer
                                                              chi-local-syntax
                                                              chi-body
                                                              chi-macro
                                                              chi-call
                                                              chi-expr
                                                              chi
                                                              syntax-type
                                                              chi-when-list
                                                              chi-install-global
                                                              chi-top-sequence
                                                              chi-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-primcall
                                                              build-lambda-case
                                                              build-case-lambda
                                                              build-simple-lambda
                                                              build-global-definition
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-dynlet
                                                              build-conditional
                                                              build-call
                                                              build-void
                                                              maybe-name-value!
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              gensym-hook
                                                              local-eval-hook
                                                              top-level-eval-hook
                                                              fx<
                                                              fx=
                                                              fx-
                                                              fx+
                                                              set-lambda-meta!
                                                              lambda-meta
                                                              lambda?
                                                              make-dynlet
                                                              make-letrec
                                                              make-let
                                                              make-lambda-case
                                                              make-lambda
                                                              make-seq
                                                              make-primcall
                                                              make-call
                                                              make-conditional
                                                              make-toplevel-define
                                                              make-toplevel-set
                                                              make-toplevel-ref
                                                              make-module-set
                                                              make-module-ref
                                                              make-lexical-set
                                                              make-lexical-ref
                                                              make-primitive-ref
                                                              make-const
                                                              make-void)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i471"
                                                             "i469"
                                                             "i467"
                                                             "i465"
                                                             "i463"
                                                             "i461"
                                                             "i459"
                                                             "i457"
                                                             "i455"
                                                             "i453"
                                                             "i451"
                                                             "i449"
                                                             "i447"
                                                             "i445"
                                                             "i443"
                                                             "i441"
                                                             "i439"
                                                             "i437"
                                                             "i435"
                                                             "i433"
                                                             "i431"
                                                             "i429"
                                                             "i427"
                                                             "i425"
                                                             "i423"
                                                             "i421"
                                                             "i419"
                                                             "i417"
                                                             "i415"
                                                             "i413"
                                                             "i411"
                                                             "i409"
                                                             "i407"
                                                             "i405"
                                                             "i403"
                                                             "i402"
                                                             "i400"
                                                             "i397"
                                                             "i396"
                                                             "i395"
                                                             "i393"
                                                             "i392"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i373"
                                                             "i371"
                                                             "i370"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i361"
                                                             "i360"
                                                             "i359"
                                                             "i357"
                                                             "i356"
                                                             "i353"
                                                             "i351"
                                                             "i349"
                                                             "i347"
                                                             "i345"
                                                             "i343"
                                                             "i341"
                                                             "i340"
                                                             "i339"
                                                             "i337"
                                                             "i335"
                                                             "i334"
                                                             "i331"
                                                             "i330"
                                                             "i328"
                                                             "i326"
                                                             "i324"
                                                             "i322"
                                                             "i320"
                                                             "i318"
                                                             "i316"
                                                             "i314"
                                                             "i312"
                                                             "i309"
                                                             "i307"
                                                             "i305"
                                                             "i303"
                                                             "i301"
                                                             "i299"
                                                             "i297"
                                                             "i295"
                                                             "i293"
                                                             "i291"
                                                             "i289"
                                                             "i287"
                                                             "i285"
                                                             "i283"
                                                             "i281"
                                                             "i279"
                                                             "i277"
                                                             "i275"
                                                             "i273"
                                                             "i271"
                                                             "i269"
                                                             "i267"
                                                             "i265"
                                                             "i263"
                                                             "i262"
                                                             "i259"
                                                             "i257"
                                                             "i256"
                                                             "i255"
                                                             "i254"
                                                             "i253"
                                                             "i251"
                                                             "i249"
                                                             "i247"
                                                             "i244"
                                                             "i242"
                                                             "i240"
                                                             "i238"
                                                             "i236"
                                                             "i234"
                                                             "i232"
                                                             "i230"
                                                             "i228"
                                                             "i226"
                                                             "i224"
                                                             "i222"
                                                             "i220"
                                                             "i218"
                                                             "i216"
                                                             "i214"
                                                             "i212"
                                                             "i210"
                                                             "i208"))
                                                          #(ribcage
                                                            (define-structure
                                                              define-expansion-accessors
                                                              define-expansion-constructors)
                                                            ((top) (top) (top))
                                                            ("i46"
                                                             "i45"
                                                             "i44")))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         #f
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1899"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1839"
                                                              "i1840"
                                                              "i1841"
                                                              "i1842"
                                                              "i1843"
                                                              "i1844"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1831"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1803"
                                                              "i1804"
                                                              "i1805"
                                                              "i1806"
                                                              "i1807"
                                                              "i1808"
                                                              "i1809"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              chi-lambda-case
                                                              lambda*-formals
                                                              chi-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              chi-void
                                                              eval-local-transformer
                                                              chi-local-syntax
                                                              chi-body
                                                              chi-macro
                                                              chi-call
                                                              chi-expr
                                                              chi
                                                              syntax-type
                                                              chi-when-list
                                                              chi-install-global
                                                              chi-top-sequence
                                                              chi-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-primcall
                                                              build-lambda-case
                                                              build-case-lambda
                                                              build-simple-lambda
                                                              build-global-definition
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-dynlet
                                                              build-conditional
                                                              build-call
                                                              build-void
                                                              maybe-name-value!
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              gensym-hook
                                                              local-eval-hook
                                                              top-level-eval-hook
                                                              fx<
                                                              fx=
                                                              fx-
                                                              fx+
                                                              set-lambda-meta!
                                                              lambda-meta
                                                              lambda?
                                                              make-dynlet
                                                              make-letrec
                                                              make-let
                                                              make-lambda-case
                                                              make-lambda
                                                              make-seq
                                                              make-primcall
                                                              make-call
                                                              make-conditional
                                                              make-toplevel-define
                                                              make-toplevel-set
                                                              make-toplevel-ref
                                                              make-module-set
                                                              make-module-ref
                                                              make-lexical-set
                                                              make-lexical-ref
                                                              make-primitive-ref
                                                              make-const
                                                              make-void)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i471"
                                                             "i469"
                                                             "i467"
                                                             "i465"
                                                             "i463"
                                                             "i461"
                                                             "i459"
                                                             "i457"
                                                             "i455"
                                                             "i453"
                                                             "i451"
                                                             "i449"
                                                             "i447"
                                                             "i445"
                                                             "i443"
                                                             "i441"
                                                             "i439"
                                                             "i437"
                                                             "i435"
                                                             "i433"
                                                             "i431"
                                                             "i429"
                                                             "i427"
                                                             "i425"
                                                             "i423"
                                                             "i421"
                                                             "i419"
                                                             "i417"
                                                             "i415"
                                                             "i413"
                                                             "i411"
                                                             "i409"
                                                             "i407"
                                                             "i405"
                                                             "i403"
                                                             "i402"
                                                             "i400"
                                                             "i397"
                                                             "i396"
                                                             "i395"
                                                             "i393"
                                                             "i392"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i373"
                                                             "i371"
                                                             "i370"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i361"
                                                             "i360"
                                                             "i359"
                                                             "i357"
                                                             "i356"
                                                             "i353"
                                                             "i351"
                                                             "i349"
                                                             "i347"
                                                             "i345"
                                                             "i343"
                                                             "i341"
                                                             "i340"
                                                             "i339"
                                                             "i337"
                                                             "i335"
                                                             "i334"
                                                             "i331"
                                                             "i330"
                                                             "i328"
                                                             "i326"
                                                             "i324"
                                                             "i322"
                                                             "i320"
                                                             "i318"
                                                             "i316"
                                                             "i314"
                                                             "i312"
                                                             "i309"
                                                             "i307"
                                                             "i305"
                                                             "i303"
                                                             "i301"
                                                             "i299"
                                                             "i297"
                                                             "i295"
                                                             "i293"
                                                             "i291"
                                                             "i289"
                                                             "i287"
                                                             "i285"
                                                             "i283"
                                                             "i281"
                                                             "i279"
                                                             "i277"
                                                             "i275"
                                                             "i273"
                                                             "i271"
                                                             "i269"
                                                             "i267"
                                                             "i265"
                                                             "i263"
                                                             "i262"
                                                             "i259"
                                                             "i257"
                                                             "i256"
                                                             "i255"
                                                             "i254"
                                                             "i253"
                                                             "i251"
                                                             "i249"
                                                             "i247"
                                                             "i244"
                                                             "i242"
                                                             "i240"
                                                             "i238"
                                                             "i236"
                                                             "i234"
                                                             "i232"
                                                             "i230"
                                                             "i228"
                                                             "i226"
                                                             "i224"
                                                             "i222"
                                                             "i220"
                                                             "i218"
                                                             "i216"
                                                             "i214"
                                                             "i212"
                                                             "i210"
                                                             "i208"))
                                                          #(ribcage
                                                            (define-structure
                                                              define-expansion-accessors
                                                              define-expansion-constructors)
                                                            ((top) (top) (top))
                                                            ("i46"
                                                             "i45"
                                                             "i44")))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         #f
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1899"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1839"
                                                              "i1840"
                                                              "i1841"
                                                              "i1842"
                                                              "i1843"
                                                              "i1844"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1831"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1803"
                                                              "i1804"
                                                              "i1805"
                                                              "i1806"
                                                              "i1807"
                                                              "i1808"
                                                              "i1809"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              chi-lambda-case
                                                              lambda*-formals
                                                              chi-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              chi-void
                                                              eval-local-transformer
                                                              chi-local-syntax
                                                              chi-body
                                                              chi-macro
                                                              chi-call
                                                              chi-expr
                                                              chi
                                                              syntax-type
                                                              chi-when-list
                                                              chi-install-global
                                                              chi-top-sequence
                                                              chi-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-primcall
                                                              build-lambda-case
                                                              build-case-lambda
                                                              build-simple-lambda
                                                              build-global-definition
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-dynlet
                                                              build-conditional
                                                              build-call
                                                              build-void
                                                              maybe-name-value!
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              gensym-hook
                                                              local-eval-hook
                                                              top-level-eval-hook
                                                              fx<
                                                              fx=
                                                              fx-
                                                              fx+
                                                              set-lambda-meta!
                                                              lambda-meta
                                                              lambda?
                                                              make-dynlet
                                                              make-letrec
                                                              make-let
                                                              make-lambda-case
                                                              make-lambda
                                                              make-seq
                                                              make-primcall
                                                              make-call
                                                              make-conditional
                                                              make-toplevel-define
                                                              make-toplevel-set
                                                              make-toplevel-ref
                                                              make-module-set
                                                              make-module-ref
                                                              make-lexical-set
                                                              make-lexical-ref
                                                              make-primitive-ref
                                                              make-const
                                                              make-void)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i471"
                                                             "i469"
                                                             "i467"
                                                             "i465"
                                                             "i463"
                                                             "i461"
                                                             "i459"
                                                             "i457"
                                                             "i455"
                                                             "i453"
                                                             "i451"
                                                             "i449"
                                                             "i447"
                                                             "i445"
                                                             "i443"
                                                             "i441"
                                                             "i439"
                                                             "i437"
                                                             "i435"
                                                             "i433"
                                                             "i431"
                                                             "i429"
                                                             "i427"
                                                             "i425"
                                                             "i423"
                                                             "i421"
                                                             "i419"
                                                             "i417"
                                                             "i415"
                                                             "i413"
                                                             "i411"
                                                             "i409"
                                                             "i407"
                                                             "i405"
                                                             "i403"
                                                             "i402"
                                                             "i400"
                                                             "i397"
                                                             "i396"
                                                             "i395"
                                                             "i393"
                                                             "i392"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i373"
                                                             "i371"
                                                             "i370"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i361"
                                                             "i360"
                                                             "i359"
                                                             "i357"
                                                             "i356"
                                                             "i353"
                                                             "i351"
                                                             "i349"
                                                             "i347"
                                                             "i345"
                                                             "i343"
                                                             "i341"
                                                             "i340"
                                                             "i339"
                                                             "i337"
                                                             "i335"
                                                             "i334"
                                                             "i331"
                                                             "i330"
                                                             "i328"
                                                             "i326"
                                                             "i324"
                                                             "i322"
                                                             "i320"
                                                             "i318"
                                                             "i316"
                                                             "i314"
                                                             "i312"
                                                             "i309"
                                                             "i307"
                                                             "i305"
                                                             "i303"
                                                             "i301"
                                                             "i299"
                                                             "i297"
                                                             "i295"
                                                             "i293"
                                                             "i291"
                                                             "i289"
                                                             "i287"
                                                             "i285"
                                                             "i283"
                                                             "i281"
                                                             "i279"
                                                             "i277"
                                                             "i275"
                                                             "i273"
                                                             "i271"
                                                             "i269"
                                                             "i267"
                                                             "i265"
                                                             "i263"
                                                             "i262"
                                                             "i259"
                                                             "i257"
                                                             "i256"
                                                             "i255"
                                                             "i254"
                                                             "i253"
                                                             "i251"
                                                             "i249"
                                                             "i247"
                                                             "i244"
                                                             "i242"
                                                             "i240"
                                                             "i238"
                                                             "i236"
                                                             "i234"
                                                             "i232"
                                                             "i230"
                                                             "i228"
                                                             "i226"
                                                             "i224"
                                                             "i222"
                                                             "i220"
                                                             "i218"
                                                             "i216"
                                                             "i214"
                                                             "i212"
                                                             "i210"
                                                             "i208"))
                                                          #(ribcage
                                                            (define-structure
                                                              define-expansion-accessors
                                                              define-expansion-constructors)
                                                            ((top) (top) (top))
                                                            ("i46"
                                                             "i45"
                                                             "i44")))
                                                         (hygiene guile)))
                                                     '(())
                                                     #{s 25040}#
                                                     #{mod 25042}#))
                                                 #{tmp 26441}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to match any pattern"
                                                 #{e 25037}#)))))))
                                   (if (eqv? #{ftype 25684}# 'define-syntax)
                                     (let ((#{tmp 26587}#
                                             ($sc-dispatch
                                               #{e 25037}#
                                               '(_ any any))))
                                       (if (if #{tmp 26587}#
                                             (@apply
                                               (lambda (#{name 26591}#
                                                        #{val 26592}#)
                                                 (if (symbol? #{name 26591}#)
                                                   #t
                                                   (if (if (vector?
                                                             #{name 26591}#)
                                                         (if (= (vector-length
                                                                  #{name 26591}#)
                                                                4)
                                                           (eq? (vector-ref
                                                                  #{name 26591}#
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (symbol?
                                                       (vector-ref
                                                         #{name 26591}#
                                                         1))
                                                     #f)))
                                               #{tmp 26587}#)
                                             #f)
                                         (@apply
                                           (lambda (#{name 26619}#
                                                    #{val 26620}#)
                                             (values
                                               'define-syntax-form
                                               #{name 26619}#
                                               #{val 26620}#
                                               #{w 25039}#
                                               #{s 25040}#
                                               #{mod 25042}#))
                                           #{tmp 26587}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{e 25037}#)))
                                     (values
                                       'call
                                       #f
                                       #{e 25037}#
                                       #{w 25039}#
                                       #{s 25040}#
                                       #{mod 25042}#))))))))))))))
           (if (if (vector? #{e 25037}#)
                 (if (= (vector-length #{e 25037}#) 4)
                   (eq? (vector-ref #{e 25037}# 0) 'syntax-object)
                   #f)
                 #f)
             (#{syntax-type 4372}#
               (vector-ref #{e 25037}# 1)
               #{r 25038}#
               (let ((#{w2 26645}# (vector-ref #{e 25037}# 2)))
                 (let ((#{m1 26646}# (car #{w 25039}#))
                       (#{s1 26647}# (cdr #{w 25039}#)))
                   (if (null? #{m1 26646}#)
                     (if (null? #{s1 26647}#)
                       #{w2 26645}#
                       (cons (car #{w2 26645}#)
                             (let ((#{m2 26658}# (cdr #{w2 26645}#)))
                               (if (null? #{m2 26658}#)
                                 #{s1 26647}#
                                 (append #{s1 26647}# #{m2 26658}#)))))
                     (cons (let ((#{m2 26666}# (car #{w2 26645}#)))
                             (if (null? #{m2 26666}#)
                               #{m1 26646}#
                               (append #{m1 26646}# #{m2 26666}#)))
                           (let ((#{m2 26674}# (cdr #{w2 26645}#)))
                             (if (null? #{m2 26674}#)
                               #{s1 26647}#
                               (append #{s1 26647}# #{m2 26674}#)))))))
               (let ((#{t 26679}#
                       (#{source-annotation 4334}# #{e 25037}#)))
                 (if #{t 26679}# #{t 26679}# #{s 25040}#))
               #{rib 25041}#
               (let ((#{t 26977}# (vector-ref #{e 25037}# 3)))
                 (if #{t 26977}# #{t 26977}# #{mod 25042}#))
               #{for-car? 25043}#)
             (if (self-evaluating? #{e 25037}#)
               (values
                 'constant
                 #f
                 #{e 25037}#
                 #{w 25039}#
                 #{s 25040}#
                 #{mod 25042}#)
               (values
                 'other
                 #f
                 #{e 25037}#
                 #{w 25039}#
                 #{s 25040}#
                 #{mod 25042}#)))))))
   (#{chi 4373}#
     (lambda (#{e 26986}#
              #{r 26987}#
              #{w 26988}#
              #{mod 26989}#)
       (call-with-values
         (lambda ()
           (#{syntax-type 4372}#
             #{e 26986}#
             #{r 26987}#
             #{w 26988}#
             (#{source-annotation 4334}# #{e 26986}#)
             #f
             #{mod 26989}#
             #f))
         (lambda (#{type 27193}#
                  #{value 27194}#
                  #{e 27195}#
                  #{w 27196}#
                  #{s 27197}#
                  #{mod 27198}#)
           (#{chi-expr 4374}#
             #{type 27193}#
             #{value 27194}#
             #{e 27195}#
             #{r 26987}#
             #{w 27196}#
             #{s 27197}#
             #{mod 27198}#)))))
   (#{chi-expr 4374}#
     (lambda (#{type 27201}#
              #{value 27202}#
              #{e 27203}#
              #{r 27204}#
              #{w 27205}#
              #{s 27206}#
              #{mod 27207}#)
       (if (eqv? #{type 27201}# 'lexical)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 3)
           #{s 27206}#
           #{e 27203}#
           #{value 27202}#)
         (if (if (eqv? #{type 27201}# 'core)
               #t
               (eqv? #{type 27201}# 'core-form))
           (#{value 27202}#
             #{e 27203}#
             #{r 27204}#
             #{w 27205}#
             #{s 27206}#
             #{mod 27207}#)
           (if (eqv? #{type 27201}# 'module-ref)
             (call-with-values
               (lambda ()
                 (#{value 27202}#
                   #{e 27203}#
                   #{r 27204}#
                   #{w 27205}#))
               (lambda (#{e 27233}#
                        #{r 27234}#
                        #{w 27235}#
                        #{s 27236}#
                        #{mod 27237}#)
                 (#{chi 4373}#
                   #{e 27233}#
                   #{r 27234}#
                   #{w 27235}#
                   #{mod 27237}#)))
             (if (eqv? #{type 27201}# 'lexical-call)
               (#{chi-call 4375}#
                 (let ((#{id 27418}# (car #{e 27203}#)))
                   (#{build-lexical-reference 4310}#
                     'fun
                     (#{source-annotation 4334}# #{id 27418}#)
                     (if (if (vector? #{id 27418}#)
                           (if (= (vector-length #{id 27418}#) 4)
                             (eq? (vector-ref #{id 27418}# 0) 'syntax-object)
                             #f)
                           #f)
                       (syntax->datum #{id 27418}#)
                       #{id 27418}#)
                     #{value 27202}#))
                 #{e 27203}#
                 #{r 27204}#
                 #{w 27205}#
                 #{s 27206}#
                 #{mod 27207}#)
               (if (eqv? #{type 27201}# 'global-call)
                 (#{chi-call 4375}#
                   (#{build-global-reference 4313}#
                     (#{source-annotation 4334}# (car #{e 27203}#))
                     (if (if (vector? #{value 27202}#)
                           (if (= (vector-length #{value 27202}#) 4)
                             (eq? (vector-ref #{value 27202}# 0)
                                  'syntax-object)
                             #f)
                           #f)
                       (vector-ref #{value 27202}# 1)
                       #{value 27202}#)
                     (if (if (vector? #{value 27202}#)
                           (if (= (vector-length #{value 27202}#) 4)
                             (eq? (vector-ref #{value 27202}# 0)
                                  'syntax-object)
                             #f)
                           #f)
                       (vector-ref #{value 27202}# 3)
                       #{mod 27207}#))
                   #{e 27203}#
                   #{r 27204}#
                   #{w 27205}#
                   #{s 27206}#
                   #{mod 27207}#)
                 (if (eqv? #{type 27201}# 'constant)
                   (let ((#{exp 28140}#
                           (#{strip 4386}#
                             (let ((#{x 28153}#
                                     (begin
                                       (if (if (pair? #{e 27203}#)
                                             #{s 27206}#
                                             #f)
                                         (set-source-properties!
                                           #{e 27203}#
                                           #{s 27206}#))
                                       #{e 27203}#)))
                               (if (if (null? (car #{w 27205}#))
                                     (null? (cdr #{w 27205}#))
                                     #f)
                                 #{x 28153}#
                                 (if (if (vector? #{x 28153}#)
                                       (if (= (vector-length #{x 28153}#) 4)
                                         (eq? (vector-ref #{x 28153}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
                                   (let ((#{expression 28185}#
                                           (vector-ref #{x 28153}# 1))
                                         (#{wrap 28186}#
                                           (let ((#{w2 28194}#
                                                   (vector-ref #{x 28153}# 2)))
                                             (let ((#{m1 28195}#
                                                     (car #{w 27205}#))
                                                   (#{s1 28196}#
                                                     (cdr #{w 27205}#)))
                                               (if (null? #{m1 28195}#)
                                                 (if (null? #{s1 28196}#)
                                                   #{w2 28194}#
                                                   (cons (car #{w2 28194}#)
                                                         (let ((#{m2 28211}#
                                                                 (cdr #{w2 28194}#)))
                                                           (if (null? #{m2 28211}#)
                                                             #{s1 28196}#
                                                             (append
                                                               #{s1 28196}#
                                                               #{m2 28211}#)))))
                                                 (cons (let ((#{m2 28219}#
                                                               (car #{w2 28194}#)))
                                                         (if (null? #{m2 28219}#)
                                                           #{m1 28195}#
                                                           (append
                                                             #{m1 28195}#
                                                             #{m2 28219}#)))
                                                       (let ((#{m2 28227}#
                                                               (cdr #{w2 28194}#)))
                                                         (if (null? #{m2 28227}#)
                                                           #{s1 28196}#
                                                           (append
                                                             #{s1 28196}#
                                                             #{m2 28227}#))))))))
                                         (#{module 28187}#
                                           (vector-ref #{x 28153}# 3)))
                                     (vector
                                       'syntax-object
                                       #{expression 28185}#
                                       #{wrap 28186}#
                                       #{module 28187}#))
                                   (if (null? #{x 28153}#)
                                     #{x 28153}#
                                     (vector
                                       'syntax-object
                                       #{x 28153}#
                                       #{w 27205}#
                                       #{mod 27207}#)))))
                             '(()))))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 1)
                       #{s 27206}#
                       #{exp 28140}#))
                   (if (eqv? #{type 27201}# 'global)
                     (#{analyze-variable 4312}#
                       #{mod 27207}#
                       #{value 27202}#
                       (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 5)
                           #{s 27206}#
                           #{mod 28252}#
                           #{var 28253}#
                           #{public? 28254}#))
                       (lambda (#{var 28262}#)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 7)
                           #{s 27206}#
                           #{var 28262}#)))
                     (if (eqv? #{type 27201}# 'call)
                       (#{chi-call 4375}#
                         (#{chi 4373}#
                           (car #{e 27203}#)
                           #{r 27204}#
                           #{w 27205}#
                           #{mod 27207}#)
                         #{e 27203}#
                         #{r 27204}#
                         #{w 27205}#
                         #{s 27206}#
                         #{mod 27207}#)
                       (if (eqv? #{type 27201}# 'begin-form)
                         (let ((#{tmp 28440}#
                                 ($sc-dispatch
                                   #{e 27203}#
                                   '(_ any . each-any))))
                           (if #{tmp 28440}#
                             (@apply
                               (lambda (#{e1 28444}# #{e2 28445}#)
                                 (#{chi-sequence 4368}#
                                   (cons #{e1 28444}# #{e2 28445}#)
                                   #{r 27204}#
                                   #{w 27205}#
                                   #{s 27206}#
                                   #{mod 27207}#))
                               #{tmp 28440}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{e 27203}#)))
                         (if (eqv? #{type 27201}# 'local-syntax-form)
                           (#{chi-local-syntax 4378}#
                             #{value 27202}#
                             #{e 27203}#
                             #{r 27204}#
                             #{w 27205}#
                             #{s 27206}#
                             #{mod 27207}#
                             #{chi-sequence 4368}#)
                           (if (eqv? #{type 27201}# 'eval-when-form)
                             (let ((#{tmp 28625}#
                                     ($sc-dispatch
                                       #{e 27203}#
                                       '(_ each-any any . each-any))))
                               (if #{tmp 28625}#
                                 (@apply
                                   (lambda (#{x 28629}#
                                            #{e1 28630}#
                                            #{e2 28631}#)
                                     (let ((#{when-list 28632}#
                                             (#{chi-when-list 4371}#
                                               #{e 27203}#
                                               #{x 28629}#
                                               #{w 27205}#)))
                                       (if (memq 'eval #{when-list 28632}#)
                                         (#{chi-sequence 4368}#
                                           (cons #{e1 28630}# #{e2 28631}#)
                                           #{r 27204}#
                                           #{w 27205}#
                                           #{s 27206}#
                                           #{mod 27207}#)
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 0)
                                           #f))))
                                   #{tmp 28625}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   #{e 27203}#)))
                             (if (if (eqv? #{type 27201}# 'define-form)
                                   #t
                                   (eqv? #{type 27201}# 'define-syntax-form))
                               (syntax-violation
                                 #f
                                 "definition in expression context"
                                 #{e 27203}#
                                 (if (if (null? (car #{w 27205}#))
                                       (null? (cdr #{w 27205}#))
                                       #f)
                                   #{value 27202}#
                                   (if (if (vector? #{value 27202}#)
                                         (if (= (vector-length #{value 27202}#)
                                                4)
                                           (eq? (vector-ref #{value 27202}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (let ((#{expression 28783}#
                                             (vector-ref #{value 27202}# 1))
                                           (#{wrap 28784}#
                                             (let ((#{w2 28794}#
                                                     (vector-ref
                                                       #{value 27202}#
                                                       2)))
                                               (let ((#{m1 28795}#
                                                       (car #{w 27205}#))
                                                     (#{s1 28796}#
                                                       (cdr #{w 27205}#)))
                                                 (if (null? #{m1 28795}#)
                                                   (if (null? #{s1 28796}#)
                                                     #{w2 28794}#
                                                     (cons (car #{w2 28794}#)
                                                           (let ((#{m2 28813}#
                                                                   (cdr #{w2 28794}#)))
                                                             (if (null? #{m2 28813}#)
                                                               #{s1 28796}#
                                                               (append
                                                                 #{s1 28796}#
                                                                 #{m2 28813}#)))))
                                                   (cons (let ((#{m2 28821}#
                                                                 (car #{w2 28794}#)))
                                                           (if (null? #{m2 28821}#)
                                                             #{m1 28795}#
                                                             (append
                                                               #{m1 28795}#
                                                               #{m2 28821}#)))
                                                         (let ((#{m2 28829}#
                                                                 (cdr #{w2 28794}#)))
                                                           (if (null? #{m2 28829}#)
                                                             #{s1 28796}#
                                                             (append
                                                               #{s1 28796}#
                                                               #{m2 28829}#))))))))
                                           (#{module 28785}#
                                             (vector-ref #{value 27202}# 3)))
                                       (vector
                                         'syntax-object
                                         #{expression 28783}#
                                         #{wrap 28784}#
                                         #{module 28785}#))
                                     (if (null? #{value 27202}#)
                                       #{value 27202}#
                                       (vector
                                         'syntax-object
                                         #{value 27202}#
                                         #{w 27205}#
                                         #{mod 27207}#)))))
                               (if (eqv? #{type 27201}# 'syntax)
                                 (syntax-violation
                                   #f
                                   "reference to pattern variable outside syntax form"
                                   (let ((#{x 28864}#
                                           (begin
                                             (if (if (pair? #{e 27203}#)
                                                   #{s 27206}#
                                                   #f)
                                               (set-source-properties!
                                                 #{e 27203}#
                                                 #{s 27206}#))
                                             #{e 27203}#)))
                                     (if (if (null? (car #{w 27205}#))
                                           (null? (cdr #{w 27205}#))
                                           #f)
                                       #{x 28864}#
                                       (if (if (vector? #{x 28864}#)
                                             (if (= (vector-length #{x 28864}#)
                                                    4)
                                               (eq? (vector-ref #{x 28864}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
                                         (let ((#{expression 28896}#
                                                 (vector-ref #{x 28864}# 1))
                                               (#{wrap 28897}#
                                                 (let ((#{w2 28905}#
                                                         (vector-ref
                                                           #{x 28864}#
                                                           2)))
                                                   (let ((#{m1 28906}#
                                                           (car #{w 27205}#))
                                                         (#{s1 28907}#
                                                           (cdr #{w 27205}#)))
                                                     (if (null? #{m1 28906}#)
                                                       (if (null? #{s1 28907}#)
                                                         #{w2 28905}#
                                                         (cons (car #{w2 28905}#)
                                                               (let ((#{m2 28922}#
                                                                       (cdr #{w2 28905}#)))
                                                                 (if (null? #{m2 28922}#)
                                                                   #{s1 28907}#
                                                                   (append
                                                                     #{s1 28907}#
                                                                     #{m2 28922}#)))))
                                                       (cons (let ((#{m2 28930}#
                                                                     (car #{w2 28905}#)))
                                                               (if (null? #{m2 28930}#)
                                                                 #{m1 28906}#
                                                                 (append
                                                                   #{m1 28906}#
                                                                   #{m2 28930}#)))
                                                             (let ((#{m2 28938}#
                                                                     (cdr #{w2 28905}#)))
                                                               (if (null? #{m2 28938}#)
                                                                 #{s1 28907}#
                                                                 (append
                                                                   #{s1 28907}#
                                                                   #{m2 28938}#))))))))
                                               (#{module 28898}#
                                                 (vector-ref #{x 28864}# 3)))
                                           (vector
                                             'syntax-object
                                             #{expression 28896}#
                                             #{wrap 28897}#
                                             #{module 28898}#))
                                         (if (null? #{x 28864}#)
                                           #{x 28864}#
                                           (vector
                                             'syntax-object
                                             #{x 28864}#
                                             #{w 27205}#
                                             #{mod 27207}#))))))
                                 (if (eqv? #{type 27201}# 'displaced-lexical)
                                   (syntax-violation
                                     #f
                                     "reference to identifier outside its scope"
                                     (let ((#{x 28965}#
                                             (begin
                                               (if (if (pair? #{e 27203}#)
                                                     #{s 27206}#
                                                     #f)
                                                 (set-source-properties!
                                                   #{e 27203}#
                                                   #{s 27206}#))
                                               #{e 27203}#)))
                                       (if (if (null? (car #{w 27205}#))
                                             (null? (cdr #{w 27205}#))
                                             #f)
                                         #{x 28965}#
                                         (if (if (vector? #{x 28965}#)
                                               (if (= (vector-length
                                                        #{x 28965}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 28965}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (let ((#{expression 28997}#
                                                   (vector-ref #{x 28965}# 1))
                                                 (#{wrap 28998}#
                                                   (let ((#{w2 29006}#
                                                           (vector-ref
                                                             #{x 28965}#
                                                             2)))
                                                     (let ((#{m1 29007}#
                                                             (car #{w 27205}#))
                                                           (#{s1 29008}#
                                                             (cdr #{w 27205}#)))
                                                       (if (null? #{m1 29007}#)
                                                         (if (null? #{s1 29008}#)
                                                           #{w2 29006}#
                                                           (cons (car #{w2 29006}#)
                                                                 (let ((#{m2 29023}#
                                                                         (cdr #{w2 29006}#)))
                                                                   (if (null? #{m2 29023}#)
                                                                     #{s1 29008}#
                                                                     (append
                                                                       #{s1 29008}#
                                                                       #{m2 29023}#)))))
                                                         (cons (let ((#{m2 29031}#
                                                                       (car #{w2 29006}#)))
                                                                 (if (null? #{m2 29031}#)
                                                                   #{m1 29007}#
                                                                   (append
                                                                     #{m1 29007}#
                                                                     #{m2 29031}#)))
                                                               (let ((#{m2 29039}#
                                                                       (cdr #{w2 29006}#)))
                                                                 (if (null? #{m2 29039}#)
                                                                   #{s1 29008}#
                                                                   (append
                                                                     #{s1 29008}#
                                                                     #{m2 29039}#))))))))
                                                 (#{module 28999}#
                                                   (vector-ref #{x 28965}# 3)))
                                             (vector
                                               'syntax-object
                                               #{expression 28997}#
                                               #{wrap 28998}#
                                               #{module 28999}#))
                                           (if (null? #{x 28965}#)
                                             #{x 28965}#
                                             (vector
                                               'syntax-object
                                               #{x 28965}#
                                               #{w 27205}#
                                               #{mod 27207}#))))))
                                   (syntax-violation
                                     #f
                                     "unexpected syntax"
                                     (let ((#{x 29063}#
                                             (begin
                                               (if (if (pair? #{e 27203}#)
                                                     #{s 27206}#
                                                     #f)
                                                 (set-source-properties!
                                                   #{e 27203}#
                                                   #{s 27206}#))
                                               #{e 27203}#)))
                                       (if (if (null? (car #{w 27205}#))
                                             (null? (cdr #{w 27205}#))
                                             #f)
                                         #{x 29063}#
                                         (if (if (vector? #{x 29063}#)
                                               (if (= (vector-length
                                                        #{x 29063}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 29063}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (let ((#{expression 29095}#
                                                   (vector-ref #{x 29063}# 1))
                                                 (#{wrap 29096}#
                                                   (let ((#{w2 29104}#
                                                           (vector-ref
                                                             #{x 29063}#
                                                             2)))
                                                     (let ((#{m1 29105}#
                                                             (car #{w 27205}#))
                                                           (#{s1 29106}#
                                                             (cdr #{w 27205}#)))
                                                       (if (null? #{m1 29105}#)
                                                         (if (null? #{s1 29106}#)
                                                           #{w2 29104}#
                                                           (cons (car #{w2 29104}#)
                                                                 (let ((#{m2 29121}#
                                                                         (cdr #{w2 29104}#)))
                                                                   (if (null? #{m2 29121}#)
                                                                     #{s1 29106}#
                                                                     (append
                                                                       #{s1 29106}#
                                                                       #{m2 29121}#)))))
                                                         (cons (let ((#{m2 29129}#
                                                                       (car #{w2 29104}#)))
                                                                 (if (null? #{m2 29129}#)
                                                                   #{m1 29105}#
                                                                   (append
                                                                     #{m1 29105}#
                                                                     #{m2 29129}#)))
                                                               (let ((#{m2 29137}#
                                                                       (cdr #{w2 29104}#)))
                                                                 (if (null? #{m2 29137}#)
                                                                   #{s1 29106}#
                                                                   (append
                                                                     #{s1 29106}#
                                                                     #{m2 29137}#))))))))
                                                 (#{module 29097}#
                                                   (vector-ref #{x 29063}# 3)))
                                             (vector
                                               'syntax-object
                                               #{expression 29095}#
                                               #{wrap 29096}#
                                               #{module 29097}#))
                                           (if (null? #{x 29063}#)
                                             #{x 29063}#
                                             (vector
                                               'syntax-object
                                               #{x 29063}#
                                               #{w 27205}#
                                               #{mod 27207}#))))))))))))))))))))))
   (#{chi-call 4375}#
     (lambda (#{x 29152}#
              #{e 29153}#
              #{r 29154}#
              #{w 29155}#
              #{s 29156}#
              #{mod 29157}#)
       (let ((#{tmp 29159}#
               ($sc-dispatch #{e 29153}# '(any . each-any))))
         (if #{tmp 29159}#
           (@apply
             (lambda (#{e0 29163}# #{e1 29164}#)
               (#{build-call 4307}#
                 #{s 29156}#
                 #{x 29152}#
                 (map (lambda (#{e 29256}#)
                        (#{chi 4373}#
                          #{e 29256}#
                          #{r 29154}#
                          #{w 29155}#
                          #{mod 29157}#))
                      #{e1 29164}#)))
             #{tmp 29159}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
             #{e 29153}#)))))
   (#{chi-macro 4376}#
     (lambda (#{p 29344}#
              #{e 29345}#
              #{r 29346}#
              #{w 29347}#
              #{s 29348}#
              #{rib 29349}#
              #{mod 29350}#)
       (letrec*
         ((#{rebuild-macro-output 29351}#
            (lambda (#{x 29458}# #{m 29459}#)
              (if (pair? #{x 29458}#)
                (let ((#{e 29463}#
                        (cons (#{rebuild-macro-output 29351}#
                                (car #{x 29458}#)
                                #{m 29459}#)
                              (#{rebuild-macro-output 29351}#
                                (cdr #{x 29458}#)
                                #{m 29459}#))))
                  (begin
                    (if (if (pair? #{e 29463}#) #{s 29348}# #f)
                      (set-source-properties! #{e 29463}# #{s 29348}#))
                    #{e 29463}#))
                (if (if (vector? #{x 29458}#)
                      (if (= (vector-length #{x 29458}#) 4)
                        (eq? (vector-ref #{x 29458}# 0) 'syntax-object)
                        #f)
                      #f)
                  (let ((#{w 29479}# (vector-ref #{x 29458}# 2)))
                    (let ((#{ms 29480}# (car #{w 29479}#))
                          (#{s 29481}# (cdr #{w 29479}#)))
                      (if (if (pair? #{ms 29480}#)
                            (eq? (car #{ms 29480}#) #f)
                            #f)
                        (let ((#{expression 29489}# (vector-ref #{x 29458}# 1))
                              (#{wrap 29490}#
                                (cons (cdr #{ms 29480}#)
                                      (if #{rib 29349}#
                                        (cons #{rib 29349}# (cdr #{s 29481}#))
                                        (cdr #{s 29481}#))))
                              (#{module 29491}# (vector-ref #{x 29458}# 3)))
                          (vector
                            'syntax-object
                            #{expression 29489}#
                            #{wrap 29490}#
                            #{module 29491}#))
                        (let ((#{expression 29501}#
                                (let ((#{e 29506}# (vector-ref #{x 29458}# 1)))
                                  (begin
                                    (if (if (pair? #{e 29506}#) #{s 29481}# #f)
                                      (set-source-properties!
                                        #{e 29506}#
                                        #{s 29481}#))
                                    #{e 29506}#)))
                              (#{wrap 29502}#
                                (cons (cons #{m 29459}# #{ms 29480}#)
                                      (if #{rib 29349}#
                                        (cons #{rib 29349}#
                                              (cons 'shift #{s 29481}#))
                                        (cons 'shift #{s 29481}#))))
                              (#{module 29503}# (vector-ref #{x 29458}# 3)))
                          (vector
                            'syntax-object
                            #{expression 29501}#
                            #{wrap 29502}#
                            #{module 29503}#)))))
                  (if (vector? #{x 29458}#)
                    (let ((#{n 29518}# (vector-length #{x 29458}#)))
                      (let ((#{v 29519}#
                              (let ((#{e 29527}# (make-vector #{n 29518}#)))
                                (begin
                                  (if (if (pair? #{e 29527}#) #{x 29458}# #f)
                                    (set-source-properties!
                                      #{e 29527}#
                                      #{x 29458}#))
                                  #{e 29527}#))))
                        (letrec*
                          ((#{loop 29520}#
                             (lambda (#{i 29581}#)
                               (if (= #{i 29581}# #{n 29518}#)
                                 #{v 29519}#
                                 (begin
                                   (vector-set!
                                     #{v 29519}#
                                     #{i 29581}#
                                     (#{rebuild-macro-output 29351}#
                                       (vector-ref #{x 29458}# #{i 29581}#)
                                       #{m 29459}#))
                                   (#{loop 29520}# (#{1+}# #{i 29581}#)))))))
                          (#{loop 29520}# 0))))
                    (if (symbol? #{x 29458}#)
                      (syntax-violation
                        #f
                        "encountered raw symbol in macro output"
                        (let ((#{s 29587}# (cdr #{w 29347}#)))
                          (let ((#{x 29591}#
                                  (begin
                                    (if (if (pair? #{e 29345}#) #{s 29587}# #f)
                                      (set-source-properties!
                                        #{e 29345}#
                                        #{s 29587}#))
                                    #{e 29345}#)))
                            (if (if (null? (car #{w 29347}#))
                                  (null? (cdr #{w 29347}#))
                                  #f)
                              #{x 29591}#
                              (if (if (vector? #{x 29591}#)
                                    (if (= (vector-length #{x 29591}#) 4)
                                      (eq? (vector-ref #{x 29591}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (let ((#{expression 29623}#
                                        (vector-ref #{x 29591}# 1))
                                      (#{wrap 29624}#
                                        (let ((#{w2 29632}#
                                                (vector-ref #{x 29591}# 2)))
                                          (let ((#{m1 29633}#
                                                  (car #{w 29347}#))
                                                (#{s1 29634}#
                                                  (cdr #{w 29347}#)))
                                            (if (null? #{m1 29633}#)
                                              (if (null? #{s1 29634}#)
                                                #{w2 29632}#
                                                (cons (car #{w2 29632}#)
                                                      (let ((#{m2 29649}#
                                                              (cdr #{w2 29632}#)))
                                                        (if (null? #{m2 29649}#)
                                                          #{s1 29634}#
                                                          (append
                                                            #{s1 29634}#
                                                            #{m2 29649}#)))))
                                              (cons (let ((#{m2 29657}#
                                                            (car #{w2 29632}#)))
                                                      (if (null? #{m2 29657}#)
                                                        #{m1 29633}#
                                                        (append
                                                          #{m1 29633}#
                                                          #{m2 29657}#)))
                                                    (let ((#{m2 29665}#
                                                            (cdr #{w2 29632}#)))
                                                      (if (null? #{m2 29665}#)
                                                        #{s1 29634}#
                                                        (append
                                                          #{s1 29634}#
                                                          #{m2 29665}#))))))))
                                      (#{module 29625}#
                                        (vector-ref #{x 29591}# 3)))
                                  (vector
                                    'syntax-object
                                    #{expression 29623}#
                                    #{wrap 29624}#
                                    #{module 29625}#))
                                (if (null? #{x 29591}#)
                                  #{x 29591}#
                                  (vector
                                    'syntax-object
                                    #{x 29591}#
                                    #{w 29347}#
                                    #{mod 29350}#))))))
                        #{x 29458}#)
                      (begin
                        (if (if (pair? #{x 29458}#) #{s 29348}# #f)
                          (set-source-properties! #{x 29458}# #{s 29348}#))
                        #{x 29458}#))))))))
         (#{rebuild-macro-output 29351}#
           (#{p 29344}#
             (let ((#{w 29358}#
                     (cons (cons #f (car #{w 29347}#))
                           (cons 'shift (cdr #{w 29347}#)))))
               (let ((#{x 29363}#
                       (begin
                         (if (if (pair? #{e 29345}#) #{s 29348}# #f)
                           (set-source-properties! #{e 29345}# #{s 29348}#))
                         #{e 29345}#)))
                 (if (if (null? (car #{w 29358}#))
                       (null? (cdr #{w 29358}#))
                       #f)
                   #{x 29363}#
                   (if (if (vector? #{x 29363}#)
                         (if (= (vector-length #{x 29363}#) 4)
                           (eq? (vector-ref #{x 29363}# 0) 'syntax-object)
                           #f)
                         #f)
                     (let ((#{expression 29401}# (vector-ref #{x 29363}# 1))
                           (#{wrap 29402}#
                             (let ((#{w2 29410}# (vector-ref #{x 29363}# 2)))
                               (let ((#{m1 29411}# (car #{w 29358}#))
                                     (#{s1 29412}# (cdr #{w 29358}#)))
                                 (if (null? #{m1 29411}#)
                                   (if (null? #{s1 29412}#)
                                     #{w2 29410}#
                                     (cons (car #{w2 29410}#)
                                           (let ((#{m2 29427}#
                                                   (cdr #{w2 29410}#)))
                                             (if (null? #{m2 29427}#)
                                               #{s1 29412}#
                                               (append
                                                 #{s1 29412}#
                                                 #{m2 29427}#)))))
                                   (cons (let ((#{m2 29435}#
                                                 (car #{w2 29410}#)))
                                           (if (null? #{m2 29435}#)
                                             #{m1 29411}#
                                             (append
                                               #{m1 29411}#
                                               #{m2 29435}#)))
                                         (let ((#{m2 29443}#
                                                 (cdr #{w2 29410}#)))
                                           (if (null? #{m2 29443}#)
                                             #{s1 29412}#
                                             (append
                                               #{s1 29412}#
                                               #{m2 29443}#))))))))
                           (#{module 29403}# (vector-ref #{x 29363}# 3)))
                       (vector
                         'syntax-object
                         #{expression 29401}#
                         #{wrap 29402}#
                         #{module 29403}#))
                     (if (null? #{x 29363}#)
                       #{x 29363}#
                       (vector
                         'syntax-object
                         #{x 29363}#
                         #{w 29358}#
                         #{mod 29350}#)))))))
           (gensym "m")))))
   (#{chi-body 4377}#
     (lambda (#{body 29695}#
              #{outer-form 29696}#
              #{r 29697}#
              #{w 29698}#
              #{mod 29699}#)
       (let ((#{r 29700}#
               (cons '("placeholder" placeholder) #{r 29697}#)))
         (let ((#{ribcage 29701}# (vector 'ribcage '() '() '())))
           (let ((#{w 29702}#
                   (cons (car #{w 29698}#)
                         (cons #{ribcage 29701}# (cdr #{w 29698}#)))))
             (letrec*
               ((#{parse 29703}#
                  (lambda (#{body 29811}#
                           #{ids 29812}#
                           #{labels 29813}#
                           #{var-ids 29814}#
                           #{vars 29815}#
                           #{vals 29816}#
                           #{bindings 29817}#)
                    (if (null? #{body 29811}#)
                      (syntax-violation
                        #f
                        "no expressions in body"
                        #{outer-form 29696}#)
                      (let ((#{e 29818}# (cdr (car #{body 29811}#)))
                            (#{er 29819}# (car (car #{body 29811}#))))
                        (call-with-values
                          (lambda ()
                            (#{syntax-type 4372}#
                              #{e 29818}#
                              #{er 29819}#
                              '(())
                              (#{source-annotation 4334}# #{er 29819}#)
                              #{ribcage 29701}#
                              #{mod 29699}#
                              #f))
                          (lambda (#{type 30025}#
                                   #{value 30026}#
                                   #{e 30027}#
                                   #{w 30028}#
                                   #{s 30029}#
                                   #{mod 30030}#)
                            (if (eqv? #{type 30025}# 'define-form)
                              (let ((#{id 30034}#
                                      (if (if (null? (car #{w 30028}#))
                                            (null? (cdr #{w 30028}#))
                                            #f)
                                        #{value 30026}#
                                        (if (if (vector? #{value 30026}#)
                                              (if (= (vector-length
                                                       #{value 30026}#)
                                                     4)
                                                (eq? (vector-ref
                                                       #{value 30026}#
                                                       0)
                                                     'syntax-object)
                                                #f)
                                              #f)
                                          (let ((#{expression 30079}#
                                                  (vector-ref
                                                    #{value 30026}#
                                                    1))
                                                (#{wrap 30080}#
                                                  (let ((#{w2 30090}#
                                                          (vector-ref
                                                            #{value 30026}#
                                                            2)))
                                                    (let ((#{m1 30091}#
                                                            (car #{w 30028}#))
                                                          (#{s1 30092}#
                                                            (cdr #{w 30028}#)))
                                                      (if (null? #{m1 30091}#)
                                                        (if (null? #{s1 30092}#)
                                                          #{w2 30090}#
                                                          (cons (car #{w2 30090}#)
                                                                (let ((#{m2 30109}#
                                                                        (cdr #{w2 30090}#)))
                                                                  (if (null? #{m2 30109}#)
                                                                    #{s1 30092}#
                                                                    (append
                                                                      #{s1 30092}#
                                                                      #{m2 30109}#)))))
                                                        (cons (let ((#{m2 30117}#
                                                                      (car #{w2 30090}#)))
                                                                (if (null? #{m2 30117}#)
                                                                  #{m1 30091}#
                                                                  (append
                                                                    #{m1 30091}#
                                                                    #{m2 30117}#)))
                                                              (let ((#{m2 30125}#
                                                                      (cdr #{w2 30090}#)))
                                                                (if (null? #{m2 30125}#)
                                                                  #{s1 30092}#
                                                                  (append
                                                                    #{s1 30092}#
                                                                    #{m2 30125}#))))))))
                                                (#{module 30081}#
                                                  (vector-ref
                                                    #{value 30026}#
                                                    3)))
                                            (vector
                                              'syntax-object
                                              #{expression 30079}#
                                              #{wrap 30080}#
                                              #{module 30081}#))
                                          (if (null? #{value 30026}#)
                                            #{value 30026}#
                                            (vector
                                              'syntax-object
                                              #{value 30026}#
                                              #{w 30028}#
                                              #{mod 30030}#)))))
                                    (#{label 30035}#
                                      (symbol->string (gensym "i"))))
                                (let ((#{var 30036}#
                                        (let ((#{id 30186}#
                                                (if (if (vector? #{id 30034}#)
                                                      (if (= (vector-length
                                                               #{id 30034}#)
                                                             4)
                                                        (eq? (vector-ref
                                                               #{id 30034}#
                                                               0)
                                                             'syntax-object)
                                                        #f)
                                                      #f)
                                                  (vector-ref #{id 30034}# 1)
                                                  #{id 30034}#)))
                                          (gensym
                                            (string-append
                                              (symbol->string #{id 30186}#)
                                              " ")))))
                                  (begin
                                    (begin
                                      (let ((#{update 30045}#
                                              (cons (vector-ref #{id 30034}# 1)
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      1))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          1
                                          #{update 30045}#))
                                      (let ((#{update 30157}#
                                              (cons (car (vector-ref
                                                           #{id 30034}#
                                                           2))
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      2))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          2
                                          #{update 30157}#))
                                      (let ((#{update 30172}#
                                              (cons #{label 30035}#
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      3))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          3
                                          #{update 30172}#)))
                                    (#{parse 29703}#
                                      (cdr #{body 29811}#)
                                      (cons #{id 30034}# #{ids 29812}#)
                                      (cons #{label 30035}# #{labels 29813}#)
                                      (cons #{id 30034}# #{var-ids 29814}#)
                                      (cons #{var 30036}# #{vars 29815}#)
                                      (cons (cons #{er 29819}#
                                                  (if (if (null? (car #{w 30028}#))
                                                        (null? (cdr #{w 30028}#))
                                                        #f)
                                                    #{e 30027}#
                                                    (if (if (vector?
                                                              #{e 30027}#)
                                                          (if (= (vector-length
                                                                   #{e 30027}#)
                                                                 4)
                                                            (eq? (vector-ref
                                                                   #{e 30027}#
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
                                                      (let ((#{expression 30238}#
                                                              (vector-ref
                                                                #{e 30027}#
                                                                1))
                                                            (#{wrap 30239}#
                                                              (let ((#{w2 30249}#
                                                                      (vector-ref
                                                                        #{e 30027}#
                                                                        2)))
                                                                (let ((#{m1 30250}#
                                                                        (car #{w 30028}#))
                                                                      (#{s1 30251}#
                                                                        (cdr #{w 30028}#)))
                                                                  (if (null? #{m1 30250}#)
                                                                    (if (null? #{s1 30251}#)
                                                                      #{w2 30249}#
                                                                      (cons (car #{w2 30249}#)
                                                                            (let ((#{m2 30268}#
                                                                                    (cdr #{w2 30249}#)))
                                                                              (if (null? #{m2 30268}#)
                                                                                #{s1 30251}#
                                                                                (append
                                                                                  #{s1 30251}#
                                                                                  #{m2 30268}#)))))
                                                                    (cons (let ((#{m2 30276}#
                                                                                  (car #{w2 30249}#)))
                                                                            (if (null? #{m2 30276}#)
                                                                              #{m1 30250}#
                                                                              (append
                                                                                #{m1 30250}#
                                                                                #{m2 30276}#)))
                                                                          (let ((#{m2 30284}#
                                                                                  (cdr #{w2 30249}#)))
                                                                            (if (null? #{m2 30284}#)
                                                                              #{s1 30251}#
                                                                              (append
                                                                                #{s1 30251}#
                                                                                #{m2 30284}#))))))))
                                                            (#{module 30240}#
                                                              (vector-ref
                                                                #{e 30027}#
                                                                3)))
                                                        (vector
                                                          'syntax-object
                                                          #{expression 30238}#
                                                          #{wrap 30239}#
                                                          #{module 30240}#))
                                                      (if (null? #{e 30027}#)
                                                        #{e 30027}#
                                                        (vector
                                                          'syntax-object
                                                          #{e 30027}#
                                                          #{w 30028}#
                                                          #{mod 30030}#)))))
                                            #{vals 29816}#)
                                      (cons (cons 'lexical #{var 30036}#)
                                            #{bindings 29817}#)))))
                              (if (eqv? #{type 30025}# 'define-syntax-form)
                                (let ((#{id 30310}#
                                        (if (if (null? (car #{w 30028}#))
                                              (null? (cdr #{w 30028}#))
                                              #f)
                                          #{value 30026}#
                                          (if (if (vector? #{value 30026}#)
                                                (if (= (vector-length
                                                         #{value 30026}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{value 30026}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (let ((#{expression 30354}#
                                                    (vector-ref
                                                      #{value 30026}#
                                                      1))
                                                  (#{wrap 30355}#
                                                    (let ((#{w2 30365}#
                                                            (vector-ref
                                                              #{value 30026}#
                                                              2)))
                                                      (let ((#{m1 30366}#
                                                              (car #{w 30028}#))
                                                            (#{s1 30367}#
                                                              (cdr #{w 30028}#)))
                                                        (if (null? #{m1 30366}#)
                                                          (if (null? #{s1 30367}#)
                                                            #{w2 30365}#
                                                            (cons (car #{w2 30365}#)
                                                                  (let ((#{m2 30384}#
                                                                          (cdr #{w2 30365}#)))
                                                                    (if (null? #{m2 30384}#)
                                                                      #{s1 30367}#
                                                                      (append
                                                                        #{s1 30367}#
                                                                        #{m2 30384}#)))))
                                                          (cons (let ((#{m2 30392}#
                                                                        (car #{w2 30365}#)))
                                                                  (if (null? #{m2 30392}#)
                                                                    #{m1 30366}#
                                                                    (append
                                                                      #{m1 30366}#
                                                                      #{m2 30392}#)))
                                                                (let ((#{m2 30400}#
                                                                        (cdr #{w2 30365}#)))
                                                                  (if (null? #{m2 30400}#)
                                                                    #{s1 30367}#
                                                                    (append
                                                                      #{s1 30367}#
                                                                      #{m2 30400}#))))))))
                                                  (#{module 30356}#
                                                    (vector-ref
                                                      #{value 30026}#
                                                      3)))
                                              (vector
                                                'syntax-object
                                                #{expression 30354}#
                                                #{wrap 30355}#
                                                #{module 30356}#))
                                            (if (null? #{value 30026}#)
                                              #{value 30026}#
                                              (vector
                                                'syntax-object
                                                #{value 30026}#
                                                #{w 30028}#
                                                #{mod 30030}#)))))
                                      (#{label 30311}#
                                        (symbol->string (gensym "i"))))
                                  (begin
                                    (begin
                                      (let ((#{update 30320}#
                                              (cons (vector-ref #{id 30310}# 1)
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      1))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          1
                                          #{update 30320}#))
                                      (let ((#{update 30432}#
                                              (cons (car (vector-ref
                                                           #{id 30310}#
                                                           2))
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      2))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          2
                                          #{update 30432}#))
                                      (let ((#{update 30447}#
                                              (cons #{label 30311}#
                                                    (vector-ref
                                                      #{ribcage 29701}#
                                                      3))))
                                        (vector-set!
                                          #{ribcage 29701}#
                                          3
                                          #{update 30447}#)))
                                    (#{parse 29703}#
                                      (cdr #{body 29811}#)
                                      (cons #{id 30310}# #{ids 29812}#)
                                      (cons #{label 30311}# #{labels 29813}#)
                                      #{var-ids 29814}#
                                      #{vars 29815}#
                                      #{vals 29816}#
                                      (cons (cons 'macro
                                                  (cons #{er 29819}#
                                                        (if (if (null? (car #{w 30028}#))
                                                              (null? (cdr #{w 30028}#))
                                                              #f)
                                                          #{e 30027}#
                                                          (if (if (vector?
                                                                    #{e 30027}#)
                                                                (if (= (vector-length
                                                                         #{e 30027}#)
                                                                       4)
                                                                  (eq? (vector-ref
                                                                         #{e 30027}#
                                                                         0)
                                                                       'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (let ((#{expression 30486}#
                                                                    (vector-ref
                                                                      #{e 30027}#
                                                                      1))
                                                                  (#{wrap 30487}#
                                                                    (let ((#{w2 30497}#
                                                                            (vector-ref
                                                                              #{e 30027}#
                                                                              2)))
                                                                      (let ((#{m1 30498}#
                                                                              (car #{w 30028}#))
                                                                            (#{s1 30499}#
                                                                              (cdr #{w 30028}#)))
                                                                        (if (null? #{m1 30498}#)
                                                                          (if (null? #{s1 30499}#)
                                                                            #{w2 30497}#
                                                                            (cons (car #{w2 30497}#)
                                                                                  (let ((#{m2 30516}#
                                                                                          (cdr #{w2 30497}#)))
                                                                                    (if (null? #{m2 30516}#)
                                                                                      #{s1 30499}#
                                                                                      (append
                                                                                        #{s1 30499}#
                                                                                        #{m2 30516}#)))))
                                                                          (cons (let ((#{m2 30524}#
                                                                                        (car #{w2 30497}#)))
                                                                                  (if (null? #{m2 30524}#)
                                                                                    #{m1 30498}#
                                                                                    (append
                                                                                      #{m1 30498}#
                                                                                      #{m2 30524}#)))
                                                                                (let ((#{m2 30532}#
                                                                                        (cdr #{w2 30497}#)))
                                                                                  (if (null? #{m2 30532}#)
                                                                                    #{s1 30499}#
                                                                                    (append
                                                                                      #{s1 30499}#
                                                                                      #{m2 30532}#))))))))
                                                                  (#{module 30488}#
                                                                    (vector-ref
                                                                      #{e 30027}#
                                                                      3)))
                                                              (vector
                                                                'syntax-object
                                                                #{expression 30486}#
                                                                #{wrap 30487}#
                                                                #{module 30488}#))
                                                            (if (null? #{e 30027}#)
                                                              #{e 30027}#
                                                              (vector
                                                                'syntax-object
                                                                #{e 30027}#
                                                                #{w 30028}#
                                                                #{mod 30030}#))))))
                                            #{bindings 29817}#))))
                                (if (eqv? #{type 30025}# 'begin-form)
                                  (let ((#{tmp 30559}#
                                          ($sc-dispatch
                                            #{e 30027}#
                                            '(_ . each-any))))
                                    (if #{tmp 30559}#
                                      (@apply
                                        (lambda (#{e1 30563}#)
                                          (#{parse 29703}#
                                            (letrec*
                                              ((#{f 30564}#
                                                 (lambda (#{forms 30780}#)
                                                   (if (null? #{forms 30780}#)
                                                     (cdr #{body 29811}#)
                                                     (cons (cons #{er 29819}#
                                                                 (let ((#{x 30784}#
                                                                         (car #{forms 30780}#)))
                                                                   (if (if (null? (car #{w 30028}#))
                                                                         (null? (cdr #{w 30028}#))
                                                                         #f)
                                                                     #{x 30784}#
                                                                     (if (if (vector?
                                                                               #{x 30784}#)
                                                                           (if (= (vector-length
                                                                                    #{x 30784}#)
                                                                                  4)
                                                                             (eq? (vector-ref
                                                                                    #{x 30784}#
                                                                                    0)
                                                                                  'syntax-object)
                                                                             #f)
                                                                           #f)
                                                                       (let ((#{expression 30802}#
                                                                               (vector-ref
                                                                                 #{x 30784}#
                                                                                 1))
                                                                             (#{wrap 30803}#
                                                                               (let ((#{w2 30811}#
                                                                                       (vector-ref
                                                                                         #{x 30784}#
                                                                                         2)))
                                                                                 (let ((#{m1 30812}#
                                                                                         (car #{w 30028}#))
                                                                                       (#{s1 30813}#
                                                                                         (cdr #{w 30028}#)))
                                                                                   (if (null? #{m1 30812}#)
                                                                                     (if (null? #{s1 30813}#)
                                                                                       #{w2 30811}#
                                                                                       (cons (car #{w2 30811}#)
                                                                                             (let ((#{m2 30828}#
                                                                                                     (cdr #{w2 30811}#)))
                                                                                               (if (null? #{m2 30828}#)
                                                                                                 #{s1 30813}#
                                                                                                 (append
                                                                                                   #{s1 30813}#
                                                                                                   #{m2 30828}#)))))
                                                                                     (cons (let ((#{m2 30836}#
                                                                                                   (car #{w2 30811}#)))
                                                                                             (if (null? #{m2 30836}#)
                                                                                               #{m1 30812}#
                                                                                               (append
                                                                                                 #{m1 30812}#
                                                                                                 #{m2 30836}#)))
                                                                                           (let ((#{m2 30844}#
                                                                                                   (cdr #{w2 30811}#)))
                                                                                             (if (null? #{m2 30844}#)
                                                                                               #{s1 30813}#
                                                                                               (append
                                                                                                 #{s1 30813}#
                                                                                                 #{m2 30844}#))))))))
                                                                             (#{module 30804}#
                                                                               (vector-ref
                                                                                 #{x 30784}#
                                                                                 3)))
                                                                         (vector
                                                                           'syntax-object
                                                                           #{expression 30802}#
                                                                           #{wrap 30803}#
                                                                           #{module 30804}#))
                                                                       (if (null? #{x 30784}#)
                                                                         #{x 30784}#
                                                                         (vector
                                                                           'syntax-object
                                                                           #{x 30784}#
                                                                           #{w 30028}#
                                                                           #{mod 30030}#))))))
                                                           (#{f 30564}#
                                                             (cdr #{forms 30780}#)))))))
                                              (#{f 30564}# #{e1 30563}#))
                                            #{ids 29812}#
                                            #{labels 29813}#
                                            #{var-ids 29814}#
                                            #{vars 29815}#
                                            #{vals 29816}#
                                            #{bindings 29817}#))
                                        #{tmp 30559}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        #{e 30027}#)))
                                  (if (eqv? #{type 30025}# 'local-syntax-form)
                                    (#{chi-local-syntax 4378}#
                                      #{value 30026}#
                                      #{e 30027}#
                                      #{er 29819}#
                                      #{w 30028}#
                                      #{s 30029}#
                                      #{mod 30030}#
                                      (lambda (#{forms 30870}#
                                               #{er 30871}#
                                               #{w 30872}#
                                               #{s 30873}#
                                               #{mod 30874}#)
                                        (#{parse 29703}#
                                          (letrec*
                                            ((#{f 30875}#
                                               (lambda (#{forms 31091}#)
                                                 (if (null? #{forms 31091}#)
                                                   (cdr #{body 29811}#)
                                                   (cons (cons #{er 30871}#
                                                               (let ((#{x 31095}#
                                                                       (car #{forms 31091}#)))
                                                                 (if (if (null? (car #{w 30872}#))
                                                                       (null? (cdr #{w 30872}#))
                                                                       #f)
                                                                   #{x 31095}#
                                                                   (if (if (vector?
                                                                             #{x 31095}#)
                                                                         (if (= (vector-length
                                                                                  #{x 31095}#)
                                                                                4)
                                                                           (eq? (vector-ref
                                                                                  #{x 31095}#
                                                                                  0)
                                                                                'syntax-object)
                                                                           #f)
                                                                         #f)
                                                                     (let ((#{expression 31113}#
                                                                             (vector-ref
                                                                               #{x 31095}#
                                                                               1))
                                                                           (#{wrap 31114}#
                                                                             (let ((#{w2 31122}#
                                                                                     (vector-ref
                                                                                       #{x 31095}#
                                                                                       2)))
                                                                               (let ((#{m1 31123}#
                                                                                       (car #{w 30872}#))
                                                                                     (#{s1 31124}#
                                                                                       (cdr #{w 30872}#)))
                                                                                 (if (null? #{m1 31123}#)
                                                                                   (if (null? #{s1 31124}#)
                                                                                     #{w2 31122}#
                                                                                     (cons (car #{w2 31122}#)
                                                                                           (let ((#{m2 31139}#
                                                                                                   (cdr #{w2 31122}#)))
                                                                                             (if (null? #{m2 31139}#)
                                                                                               #{s1 31124}#
                                                                                               (append
                                                                                                 #{s1 31124}#
                                                                                                 #{m2 31139}#)))))
                                                                                   (cons (let ((#{m2 31147}#
                                                                                                 (car #{w2 31122}#)))
                                                                                           (if (null? #{m2 31147}#)
                                                                                             #{m1 31123}#
                                                                                             (append
                                                                                               #{m1 31123}#
                                                                                               #{m2 31147}#)))
                                                                                         (let ((#{m2 31155}#
                                                                                                 (cdr #{w2 31122}#)))
                                                                                           (if (null? #{m2 31155}#)
                                                                                             #{s1 31124}#
                                                                                             (append
                                                                                               #{s1 31124}#
                                                                                               #{m2 31155}#))))))))
                                                                           (#{module 31115}#
                                                                             (vector-ref
                                                                               #{x 31095}#
                                                                               3)))
                                                                       (vector
                                                                         'syntax-object
                                                                         #{expression 31113}#
                                                                         #{wrap 31114}#
                                                                         #{module 31115}#))
                                                                     (if (null? #{x 31095}#)
                                                                       #{x 31095}#
                                                                       (vector
                                                                         'syntax-object
                                                                         #{x 31095}#
                                                                         #{w 30872}#
                                                                         #{mod 30874}#))))))
                                                         (#{f 30875}#
                                                           (cdr #{forms 31091}#)))))))
                                            (#{f 30875}# #{forms 30870}#))
                                          #{ids 29812}#
                                          #{labels 29813}#
                                          #{var-ids 29814}#
                                          #{vars 29815}#
                                          #{vals 29816}#
                                          #{bindings 29817}#)))
                                    (if (null? #{ids 29812}#)
                                      (#{build-sequence 4322}#
                                        #f
                                        (map (lambda (#{x 31244}#)
                                               (#{chi 4373}#
                                                 (cdr #{x 31244}#)
                                                 (car #{x 31244}#)
                                                 '(())
                                                 #{mod 30030}#))
                                             (cons (cons #{er 29819}#
                                                         (let ((#{x 31323}#
                                                                 (begin
                                                                   (if (if (pair? #{e 30027}#)
                                                                         #{s 30029}#
                                                                         #f)
                                                                     (set-source-properties!
                                                                       #{e 30027}#
                                                                       #{s 30029}#))
                                                                   #{e 30027}#)))
                                                           (if (if (null? (car #{w 30028}#))
                                                                 (null? (cdr #{w 30028}#))
                                                                 #f)
                                                             #{x 31323}#
                                                             (if (if (vector?
                                                                       #{x 31323}#)
                                                                   (if (= (vector-length
                                                                            #{x 31323}#)
                                                                          4)
                                                                     (eq? (vector-ref
                                                                            #{x 31323}#
                                                                            0)
                                                                          'syntax-object)
                                                                     #f)
                                                                   #f)
                                                               (let ((#{expression 31355}#
                                                                       (vector-ref
                                                                         #{x 31323}#
                                                                         1))
                                                                     (#{wrap 31356}#
                                                                       (let ((#{w2 31364}#
                                                                               (vector-ref
                                                                                 #{x 31323}#
                                                                                 2)))
                                                                         (let ((#{m1 31365}#
                                                                                 (car #{w 30028}#))
                                                                               (#{s1 31366}#
                                                                                 (cdr #{w 30028}#)))
                                                                           (if (null? #{m1 31365}#)
                                                                             (if (null? #{s1 31366}#)
                                                                               #{w2 31364}#
                                                                               (cons (car #{w2 31364}#)
                                                                                     (let ((#{m2 31381}#
                                                                                             (cdr #{w2 31364}#)))
                                                                                       (if (null? #{m2 31381}#)
                                                                                         #{s1 31366}#
                                                                                         (append
                                                                                           #{s1 31366}#
                                                                                           #{m2 31381}#)))))
                                                                             (cons (let ((#{m2 31389}#
                                                                                           (car #{w2 31364}#)))
                                                                                     (if (null? #{m2 31389}#)
                                                                                       #{m1 31365}#
                                                                                       (append
                                                                                         #{m1 31365}#
                                                                                         #{m2 31389}#)))
                                                                                   (let ((#{m2 31397}#
                                                                                           (cdr #{w2 31364}#)))
                                                                                     (if (null? #{m2 31397}#)
                                                                                       #{s1 31366}#
                                                                                       (append
                                                                                         #{s1 31366}#
                                                                                         #{m2 31397}#))))))))
                                                                     (#{module 31357}#
                                                                       (vector-ref
                                                                         #{x 31323}#
                                                                         3)))
                                                                 (vector
                                                                   'syntax-object
                                                                   #{expression 31355}#
                                                                   #{wrap 31356}#
                                                                   #{module 31357}#))
                                                               (if (null? #{x 31323}#)
                                                                 #{x 31323}#
                                                                 (vector
                                                                   'syntax-object
                                                                   #{x 31323}#
                                                                   #{w 30028}#
                                                                   #{mod 30030}#))))))
                                                   (cdr #{body 29811}#))))
                                      (begin
                                        (if (not (#{valid-bound-ids? 4363}#
                                                   #{ids 29812}#))
                                          (syntax-violation
                                            #f
                                            "invalid or duplicate identifier in definition"
                                            #{outer-form 29696}#))
                                        (letrec*
                                          ((#{loop 31496}#
                                             (lambda (#{bs 31499}#
                                                      #{er-cache 31500}#
                                                      #{r-cache 31501}#)
                                               (if (not (null? #{bs 31499}#))
                                                 (let ((#{b 31502}#
                                                         (car #{bs 31499}#)))
                                                   (if (eq? (car #{b 31502}#)
                                                            'macro)
                                                     (let ((#{er 31504}#
                                                             (car (cdr #{b 31502}#))))
                                                       (let ((#{r-cache 31505}#
                                                               (if (eq? #{er 31504}#
                                                                        #{er-cache 31500}#)
                                                                 #{r-cache 31501}#
                                                                 (#{macros-only-env 4337}#
                                                                   #{er 31504}#))))
                                                         (begin
                                                           (set-cdr!
                                                             #{b 31502}#
                                                             (#{eval-local-transformer 4379}#
                                                               (#{chi 4373}#
                                                                 (cdr (cdr #{b 31502}#))
                                                                 #{r-cache 31505}#
                                                                 '(())
                                                                 #{mod 30030}#)
                                                               #{mod 30030}#))
                                                           (#{loop 31496}#
                                                             (cdr #{bs 31499}#)
                                                             #{er 31504}#
                                                             #{r-cache 31505}#))))
                                                     (#{loop 31496}#
                                                       (cdr #{bs 31499}#)
                                                       #{er-cache 31500}#
                                                       #{r-cache 31501}#)))))))
                                          (#{loop 31496}#
                                            #{bindings 29817}#
                                            #f
                                            #f))
                                        (set-cdr!
                                          #{r 29700}#
                                          (#{extend-env 4335}#
                                            #{labels 29813}#
                                            #{bindings 29817}#
                                            (cdr #{r 29700}#)))
                                        (#{build-letrec 4325}#
                                          #f
                                          #t
                                          (reverse
                                            (map syntax->datum
                                                 #{var-ids 29814}#))
                                          (reverse #{vars 29815}#)
                                          (map (lambda (#{x 31924}#)
                                                 (#{chi 4373}#
                                                   (cdr #{x 31924}#)
                                                   (car #{x 31924}#)
                                                   '(())
                                                   #{mod 30030}#))
                                               (reverse #{vals 29816}#))
                                          (#{build-sequence 4322}#
                                            #f
                                            (map (lambda (#{x 32068}#)
                                                   (#{chi 4373}#
                                                     (cdr #{x 32068}#)
                                                     (car #{x 32068}#)
                                                     '(())
                                                     #{mod 30030}#))
                                                 (cons (cons #{er 29819}#
                                                             (let ((#{x 32147}#
                                                                     (begin
                                                                       (if (if (pair? #{e 30027}#)
                                                                             #{s 30029}#
                                                                             #f)
                                                                         (set-source-properties!
                                                                           #{e 30027}#
                                                                           #{s 30029}#))
                                                                       #{e 30027}#)))
                                                               (if (if (null? (car #{w 30028}#))
                                                                     (null? (cdr #{w 30028}#))
                                                                     #f)
                                                                 #{x 32147}#
                                                                 (if (if (vector?
                                                                           #{x 32147}#)
                                                                       (if (= (vector-length
                                                                                #{x 32147}#)
                                                                              4)
                                                                         (eq? (vector-ref
                                                                                #{x 32147}#
                                                                                0)
                                                                              'syntax-object)
                                                                         #f)
                                                                       #f)
                                                                   (let ((#{expression 32179}#
                                                                           (vector-ref
                                                                             #{x 32147}#
                                                                             1))
                                                                         (#{wrap 32180}#
                                                                           (let ((#{w2 32188}#
                                                                                   (vector-ref
                                                                                     #{x 32147}#
                                                                                     2)))
                                                                             (let ((#{m1 32189}#
                                                                                     (car #{w 30028}#))
                                                                                   (#{s1 32190}#
                                                                                     (cdr #{w 30028}#)))
                                                                               (if (null? #{m1 32189}#)
                                                                                 (if (null? #{s1 32190}#)
                                                                                   #{w2 32188}#
                                                                                   (cons (car #{w2 32188}#)
                                                                                         (let ((#{m2 32205}#
                                                                                                 (cdr #{w2 32188}#)))
                                                                                           (if (null? #{m2 32205}#)
                                                                                             #{s1 32190}#
                                                                                             (append
                                                                                               #{s1 32190}#
                                                                                               #{m2 32205}#)))))
                                                                                 (cons (let ((#{m2 32213}#
                                                                                               (car #{w2 32188}#)))
                                                                                         (if (null? #{m2 32213}#)
                                                                                           #{m1 32189}#
                                                                                           (append
                                                                                             #{m1 32189}#
                                                                                             #{m2 32213}#)))
                                                                                       (let ((#{m2 32221}#
                                                                                               (cdr #{w2 32188}#)))
                                                                                         (if (null? #{m2 32221}#)
                                                                                           #{s1 32190}#
                                                                                           (append
                                                                                             #{s1 32190}#
                                                                                             #{m2 32221}#))))))))
                                                                         (#{module 32181}#
                                                                           (vector-ref
                                                                             #{x 32147}#
                                                                             3)))
                                                                     (vector
                                                                       'syntax-object
                                                                       #{expression 32179}#
                                                                       #{wrap 32180}#
                                                                       #{module 32181}#))
                                                                   (if (null? #{x 32147}#)
                                                                     #{x 32147}#
                                                                     (vector
                                                                       'syntax-object
                                                                       #{x 32147}#
                                                                       #{w 30028}#
                                                                       #{mod 30030}#))))))
                                                       (cdr #{body 29811}#))))))))))))))))))
               (#{parse 29703}#
                 (map (lambda (#{x 29706}#)
                        (cons #{r 29700}#
                              (if (if (null? (car #{w 29702}#))
                                    (null? (cdr #{w 29702}#))
                                    #f)
                                #{x 29706}#
                                (if (if (vector? #{x 29706}#)
                                      (if (= (vector-length #{x 29706}#) 4)
                                        (eq? (vector-ref #{x 29706}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (let ((#{expression 29742}#
                                          (vector-ref #{x 29706}# 1))
                                        (#{wrap 29743}#
                                          (let ((#{w2 29753}#
                                                  (vector-ref #{x 29706}# 2)))
                                            (let ((#{m1 29754}#
                                                    (car #{w 29702}#))
                                                  (#{s1 29755}#
                                                    (cdr #{w 29702}#)))
                                              (if (null? #{m1 29754}#)
                                                (if (null? #{s1 29755}#)
                                                  #{w2 29753}#
                                                  (cons (car #{w2 29753}#)
                                                        (let ((#{m2 29772}#
                                                                (cdr #{w2 29753}#)))
                                                          (if (null? #{m2 29772}#)
                                                            #{s1 29755}#
                                                            (append
                                                              #{s1 29755}#
                                                              #{m2 29772}#)))))
                                                (cons (let ((#{m2 29780}#
                                                              (car #{w2 29753}#)))
                                                        (if (null? #{m2 29780}#)
                                                          #{m1 29754}#
                                                          (append
                                                            #{m1 29754}#
                                                            #{m2 29780}#)))
                                                      (let ((#{m2 29788}#
                                                              (cdr #{w2 29753}#)))
                                                        (if (null? #{m2 29788}#)
                                                          #{s1 29755}#
                                                          (append
                                                            #{s1 29755}#
                                                            #{m2 29788}#))))))))
                                        (#{module 29744}#
                                          (vector-ref #{x 29706}# 3)))
                                    (vector
                                      'syntax-object
                                      #{expression 29742}#
                                      #{wrap 29743}#
                                      #{module 29744}#))
                                  (if (null? #{x 29706}#)
                                    #{x 29706}#
                                    (vector
                                      'syntax-object
                                      #{x 29706}#
                                      #{w 29702}#
                                      #{mod 29699}#))))))
                      #{body 29695}#)
                 '()
                 '()
                 '()
                 '()
                 '()
                 '())))))))
   (#{chi-local-syntax 4378}#
     (lambda (#{rec? 32236}#
              #{e 32237}#
              #{r 32238}#
              #{w 32239}#
              #{s 32240}#
              #{mod 32241}#
              #{k 32242}#)
       (let ((#{tmp 32244}#
               ($sc-dispatch
                 #{e 32237}#
                 '(_ #(each (any any)) any . each-any))))
         (if #{tmp 32244}#
           (@apply
             (lambda (#{id 32248}#
                      #{val 32249}#
                      #{e1 32250}#
                      #{e2 32251}#)
               (if (not (#{valid-bound-ids? 4363}# #{id 32248}#))
                 (syntax-violation
                   #f
                   "duplicate bound keyword"
                   #{e 32237}#)
                 (let ((#{labels 32348}#
                         (#{gen-labels 4344}# #{id 32248}#)))
                   (let ((#{new-w 32349}#
                           (#{make-binding-wrap 4355}#
                             #{id 32248}#
                             #{labels 32348}#
                             #{w 32239}#)))
                     (#{k 32242}#
                       (cons #{e1 32250}# #{e2 32251}#)
                       (#{extend-env 4335}#
                         #{labels 32348}#
                         (let ((#{trans-r 32389}#
                                 (#{macros-only-env 4337}# #{r 32238}#)))
                           (begin
                             (if #{rec? 32236}# (if #f #f))
                             (map (lambda (#{x 32390}#)
                                    (cons 'macro
                                          (#{eval-local-transformer 4379}#
                                            (#{chi 4373}#
                                              #{x 32390}#
                                              #{trans-r 32389}#
                                              (if #{rec? 32236}#
                                                #{new-w 32349}#
                                                #{w 32239}#)
                                              #{mod 32241}#)
                                            #{mod 32241}#)))
                                  #{val 32249}#)))
                         #{r 32238}#)
                       #{new-w 32349}#
                       #{s 32240}#
                       #{mod 32241}#)))))
             #{tmp 32244}#)
           (syntax-violation
             #f
             "bad local syntax definition"
             (let ((#{x 32715}#
                     (begin
                       (if (if (pair? #{e 32237}#) #{s 32240}# #f)
                         (set-source-properties! #{e 32237}# #{s 32240}#))
                       #{e 32237}#)))
               (if (if (null? (car #{w 32239}#))
                     (null? (cdr #{w 32239}#))
                     #f)
                 #{x 32715}#
                 (if (if (vector? #{x 32715}#)
                       (if (= (vector-length #{x 32715}#) 4)
                         (eq? (vector-ref #{x 32715}# 0) 'syntax-object)
                         #f)
                       #f)
                   (let ((#{expression 32747}# (vector-ref #{x 32715}# 1))
                         (#{wrap 32748}#
                           (let ((#{w2 32756}# (vector-ref #{x 32715}# 2)))
                             (let ((#{m1 32757}# (car #{w 32239}#))
                                   (#{s1 32758}# (cdr #{w 32239}#)))
                               (if (null? #{m1 32757}#)
                                 (if (null? #{s1 32758}#)
                                   #{w2 32756}#
                                   (cons (car #{w2 32756}#)
                                         (let ((#{m2 32773}#
                                                 (cdr #{w2 32756}#)))
                                           (if (null? #{m2 32773}#)
                                             #{s1 32758}#
                                             (append
                                               #{s1 32758}#
                                               #{m2 32773}#)))))
                                 (cons (let ((#{m2 32781}# (car #{w2 32756}#)))
                                         (if (null? #{m2 32781}#)
                                           #{m1 32757}#
                                           (append #{m1 32757}# #{m2 32781}#)))
                                       (let ((#{m2 32789}# (cdr #{w2 32756}#)))
                                         (if (null? #{m2 32789}#)
                                           #{s1 32758}#
                                           (append
                                             #{s1 32758}#
                                             #{m2 32789}#))))))))
                         (#{module 32749}# (vector-ref #{x 32715}# 3)))
                     (vector
                       'syntax-object
                       #{expression 32747}#
                       #{wrap 32748}#
                       #{module 32749}#))
                   (if (null? #{x 32715}#)
                     #{x 32715}#
                     (vector
                       'syntax-object
                       #{x 32715}#
                       #{w 32239}#
                       #{mod 32241}#))))))))))
   (#{eval-local-transformer 4379}#
     (lambda (#{expanded 32807}# #{mod 32808}#)
       (let ((#{p 32809}# (primitive-eval #{expanded 32807}#)))
         (if (procedure? #{p 32809}#)
           #{p 32809}#
           (syntax-violation
             #f
             "nonprocedure transformer"
             #{p 32809}#)))))
   (#{ellipsis? 4381}#
     (lambda (#{x 5832}#)
       (if (if (if (vector? #{x 5832}#)
                 (if (= (vector-length #{x 5832}#) 4)
                   (eq? (vector-ref #{x 5832}# 0) 'syntax-object)
                   #f)
                 #f)
             (symbol? (vector-ref #{x 5832}# 1))
             #f)
         (#{free-id=? 4361}#
           #{x 5832}#
           '#(syntax-object
              ...
              ((top)
               #(ribcage () () ())
               #(ribcage () () ())
               #(ribcage #(x) #((top)) #("i2261"))
               #(ribcage
                 (lambda-var-list
                   gen-var
                   strip
                   chi-lambda-case
                   lambda*-formals
                   chi-simple-lambda
                   lambda-formals
                   ellipsis?
                   chi-void
                   eval-local-transformer
                   chi-local-syntax
                   chi-body
                   chi-macro
                   chi-call
                   chi-expr
                   chi
                   syntax-type
                   chi-when-list
                   chi-install-global
                   chi-top-sequence
                   chi-sequence
                   source-wrap
                   wrap
                   bound-id-member?
                   distinct-bound-ids?
                   valid-bound-ids?
                   bound-id=?
                   free-id=?
                   id-var-name
                   same-marks?
                   join-marks
                   join-wraps
                   smart-append
                   make-binding-wrap
                   extend-ribcage!
                   make-empty-ribcage
                   new-mark
                   anti-mark
                   the-anti-mark
                   top-marked?
                   top-wrap
                   empty-wrap
                   set-ribcage-labels!
                   set-ribcage-marks!
                   set-ribcage-symnames!
                   ribcage-labels
                   ribcage-marks
                   ribcage-symnames
                   ribcage?
                   make-ribcage
                   gen-labels
                   gen-label
                   make-rename
                   rename-marks
                   rename-new
                   rename-old
                   subst-rename?
                   wrap-subst
                   wrap-marks
                   make-wrap
                   id-sym-name&marks
                   id-sym-name
                   id?
                   nonsymbol-id?
                   global-extend
                   lookup
                   macros-only-env
                   extend-var-env
                   extend-env
                   null-env
                   binding-value
                   binding-type
                   make-binding
                   arg-check
                   source-annotation
                   no-source
                   set-syntax-object-module!
                   set-syntax-object-wrap!
                   set-syntax-object-expression!
                   syntax-object-module
                   syntax-object-wrap
                   syntax-object-expression
                   syntax-object?
                   make-syntax-object
                   build-lexical-var
                   build-letrec
                   build-named-let
                   build-let
                   build-sequence
                   build-data
                   build-primref
                   build-primcall
                   build-lambda-case
                   build-case-lambda
                   build-simple-lambda
                   build-global-definition
                   build-global-assignment
                   build-global-reference
                   analyze-variable
                   build-lexical-assignment
                   build-lexical-reference
                   build-dynlet
                   build-conditional
                   build-call
                   build-void
                   maybe-name-value!
                   decorate-source
                   get-global-definition-hook
                   put-global-definition-hook
                   gensym-hook
                   local-eval-hook
                   top-level-eval-hook
                   fx<
                   fx=
                   fx-
                   fx+
                   set-lambda-meta!
                   lambda-meta
                   lambda?
                   make-dynlet
                   make-letrec
                   make-let
                   make-lambda-case
                   make-lambda
                   make-seq
                   make-primcall
                   make-call
                   make-conditional
                   make-toplevel-define
                   make-toplevel-set
                   make-toplevel-ref
                   make-module-set
                   make-module-ref
                   make-lexical-set
                   make-lexical-ref
                   make-primitive-ref
                   make-const
                   make-void)
                 ((top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top)
                  (top))
                 ("i471"
                  "i469"
                  "i467"
                  "i465"
                  "i463"
                  "i461"
                  "i459"
                  "i457"
                  "i455"
                  "i453"
                  "i451"
                  "i449"
                  "i447"
                  "i445"
                  "i443"
                  "i441"
                  "i439"
                  "i437"
                  "i435"
                  "i433"
                  "i431"
                  "i429"
                  "i427"
                  "i425"
                  "i423"
                  "i421"
                  "i419"
                  "i417"
                  "i415"
                  "i413"
                  "i411"
                  "i409"
                  "i407"
                  "i405"
                  "i403"
                  "i402"
                  "i400"
                  "i397"
                  "i396"
                  "i395"
                  "i393"
                  "i392"
                  "i390"
                  "i388"
                  "i386"
                  "i384"
                  "i382"
                  "i380"
                  "i378"
                  "i376"
                  "i373"
                  "i371"
                  "i370"
                  "i368"
                  "i366"
                  "i364"
                  "i362"
                  "i361"
                  "i360"
                  "i359"
                  "i357"
                  "i356"
                  "i353"
                  "i351"
                  "i349"
                  "i347"
                  "i345"
                  "i343"
                  "i341"
                  "i340"
                  "i339"
                  "i337"
                  "i335"
                  "i334"
                  "i331"
                  "i330"
                  "i328"
                  "i326"
                  "i324"
                  "i322"
                  "i320"
                  "i318"
                  "i316"
                  "i314"
                  "i312"
                  "i309"
                  "i307"
                  "i305"
                  "i303"
                  "i301"
                  "i299"
                  "i297"
                  "i295"
                  "i293"
                  "i291"
                  "i289"
                  "i287"
                  "i285"
                  "i283"
                  "i281"
                  "i279"
                  "i277"
                  "i275"
                  "i273"
                  "i271"
                  "i269"
                  "i267"
                  "i265"
                  "i263"
                  "i262"
                  "i259"
                  "i257"
                  "i256"
                  "i255"
                  "i254"
                  "i253"
                  "i251"
                  "i249"
                  "i247"
                  "i244"
                  "i242"
                  "i240"
                  "i238"
                  "i236"
                  "i234"
                  "i232"
                  "i230"
                  "i228"
                  "i226"
                  "i224"
                  "i222"
                  "i220"
                  "i218"
                  "i216"
                  "i214"
                  "i212"
                  "i210"
                  "i208"))
               #(ribcage
                 (define-structure
                   define-expansion-accessors
                   define-expansion-constructors)
                 ((top) (top) (top))
                 ("i46" "i45" "i44")))
              (hygiene guile)))
         #f)))
   (#{lambda-formals 4382}#
     (lambda (#{orig-args 32814}#)
       (letrec*
         ((#{req 32815}#
            (lambda (#{args 32819}# #{rreq 32820}#)
              (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '())))
                (if #{tmp 32822}#
                  (@apply
                    (lambda ()
                      (#{check 32816}# (reverse #{rreq 32820}#) #f))
                    #{tmp 32822}#)
                  (let ((#{tmp 32938}#
                          ($sc-dispatch #{args 32819}# '(any . any))))
                    (if (if #{tmp 32938}#
                          (@apply
                            (lambda (#{a 32942}# #{b 32943}#)
                              (if (symbol? #{a 32942}#)
                                #t
                                (if (if (vector? #{a 32942}#)
                                      (if (= (vector-length #{a 32942}#) 4)
                                        (eq? (vector-ref #{a 32942}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 32942}# 1))
                                  #f)))
                            #{tmp 32938}#)
                          #f)
                      (@apply
                        (lambda (#{a 32970}# #{b 32971}#)
                          (#{req 32815}#
                            #{b 32971}#
                            (cons #{a 32970}# #{rreq 32820}#)))
                        #{tmp 32938}#)
                      (let ((#{tmp 32972}# (list #{args 32819}#)))
                        (if (@apply
                              (lambda (#{r 32974}#)
                                (if (symbol? #{r 32974}#)
                                  #t
                                  (if (if (vector? #{r 32974}#)
                                        (if (= (vector-length #{r 32974}#) 4)
                                          (eq? (vector-ref #{r 32974}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref #{r 32974}# 1))
                                    #f)))
                              #{tmp 32972}#)
                          (@apply
                            (lambda (#{r 33004}#)
                              (#{check 32816}#
                                (reverse #{rreq 32820}#)
                                #{r 33004}#))
                            #{tmp 32972}#)
                          (syntax-violation
                            'lambda
                            "invalid argument list"
                            #{orig-args 32814}#
                            #{args 32819}#)))))))))
          (#{check 32816}#
            (lambda (#{req 33128}# #{rest 33129}#)
              (if (#{distinct-bound-ids? 4364}#
                    (if #{rest 33129}#
                      (cons #{rest 33129}# #{req 33128}#)
                      #{req 33128}#))
                (values #{req 33128}# #f #{rest 33129}# #f)
                (syntax-violation
                  'lambda
                  "duplicate identifier in argument list"
                  #{orig-args 32814}#)))))
         (#{req 32815}# #{orig-args 32814}# '()))))
   (#{chi-simple-lambda 4383}#
     (lambda (#{e 33238}#
              #{r 33239}#
              #{w 33240}#
              #{s 33241}#
              #{mod 33242}#
              #{req 33243}#
              #{rest 33244}#
              #{meta 33245}#
              #{body 33246}#)
       (let ((#{ids 33247}#
               (if #{rest 33244}#
                 (append #{req 33243}# (list #{rest 33244}#))
                 #{req 33243}#)))
         (let ((#{vars 33248}#
                 (map #{gen-var 4387}# #{ids 33247}#)))
           (let ((#{labels 33249}#
                   (#{gen-labels 4344}# #{ids 33247}#)))
             (#{build-simple-lambda 4316}#
               #{s 33241}#
               (map syntax->datum #{req 33243}#)
               (if #{rest 33244}#
                 (syntax->datum #{rest 33244}#)
                 #f)
               #{vars 33248}#
               #{meta 33245}#
               (#{chi-body 4377}#
                 #{body 33246}#
                 (let ((#{x 33438}#
                         (begin
                           (if (if (pair? #{e 33238}#) #{s 33241}# #f)
                             (set-source-properties! #{e 33238}# #{s 33241}#))
                           #{e 33238}#)))
                   (if (if (null? (car #{w 33240}#))
                         (null? (cdr #{w 33240}#))
                         #f)
                     #{x 33438}#
                     (if (if (vector? #{x 33438}#)
                           (if (= (vector-length #{x 33438}#) 4)
                             (eq? (vector-ref #{x 33438}# 0) 'syntax-object)
                             #f)
                           #f)
                       (let ((#{expression 33470}# (vector-ref #{x 33438}# 1))
                             (#{wrap 33471}#
                               (let ((#{w2 33479}# (vector-ref #{x 33438}# 2)))
                                 (let ((#{m1 33480}# (car #{w 33240}#))
                                       (#{s1 33481}# (cdr #{w 33240}#)))
                                   (if (null? #{m1 33480}#)
                                     (if (null? #{s1 33481}#)
                                       #{w2 33479}#
                                       (cons (car #{w2 33479}#)
                                             (let ((#{m2 33496}#
                                                     (cdr #{w2 33479}#)))
                                               (if (null? #{m2 33496}#)
                                                 #{s1 33481}#
                                                 (append
                                                   #{s1 33481}#
                                                   #{m2 33496}#)))))
                                     (cons (let ((#{m2 33504}#
                                                   (car #{w2 33479}#)))
                                             (if (null? #{m2 33504}#)
                                               #{m1 33480}#
                                               (append
                                                 #{m1 33480}#
                                                 #{m2 33504}#)))
                                           (let ((#{m2 33512}#
                                                   (cdr #{w2 33479}#)))
                                             (if (null? #{m2 33512}#)
                                               #{s1 33481}#
                                               (append
                                                 #{s1 33481}#
                                                 #{m2 33512}#))))))))
                             (#{module 33472}# (vector-ref #{x 33438}# 3)))
                         (vector
                           'syntax-object
                           #{expression 33470}#
                           #{wrap 33471}#
                           #{module 33472}#))
                       (if (null? #{x 33438}#)
                         #{x 33438}#
                         (vector
                           'syntax-object
                           #{x 33438}#
                           #{w 33240}#
                           #{mod 33242}#)))))
                 (#{extend-var-env 4336}#
                   #{labels 33249}#
                   #{vars 33248}#
                   #{r 33239}#)
                 (#{make-binding-wrap 4355}#
                   #{ids 33247}#
                   #{labels 33249}#
                   #{w 33240}#)
                 #{mod 33242}#)))))))
   (#{lambda*-formals 4384}#
     (lambda (#{orig-args 33743}#)
       (letrec*
         ((#{req 33744}#
            (lambda (#{args 33751}# #{rreq 33752}#)
              (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '())))
                (if #{tmp 33754}#
                  (@apply
                    (lambda ()
                      (#{check 33748}#
                        (reverse #{rreq 33752}#)
                        '()
                        #f
                        '()))
                    #{tmp 33754}#)
                  (let ((#{tmp 33873}#
                          ($sc-dispatch #{args 33751}# '(any . any))))
                    (if (if #{tmp 33873}#
                          (@apply
                            (lambda (#{a 33877}# #{b 33878}#)
                              (if (symbol? #{a 33877}#)
                                #t
                                (if (if (vector? #{a 33877}#)
                                      (if (= (vector-length #{a 33877}#) 4)
                                        (eq? (vector-ref #{a 33877}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 33877}# 1))
                                  #f)))
                            #{tmp 33873}#)
                          #f)
                      (@apply
                        (lambda (#{a 33905}# #{b 33906}#)
                          (#{req 33744}#
                            #{b 33906}#
                            (cons #{a 33905}# #{rreq 33752}#)))
                        #{tmp 33873}#)
                      (let ((#{tmp 33907}#
                              ($sc-dispatch #{args 33751}# '(any . any))))
                        (if (if #{tmp 33907}#
                              (@apply
                                (lambda (#{a 33911}# #{b 33912}#)
                                  (eq? (syntax->datum #{a 33911}#) #:optional))
                                #{tmp 33907}#)
                              #f)
                          (@apply
                            (lambda (#{a 33913}# #{b 33914}#)
                              (#{opt 33745}#
                                #{b 33914}#
                                (reverse #{rreq 33752}#)
                                '()))
                            #{tmp 33907}#)
                          (let ((#{tmp 33917}#
                                  ($sc-dispatch #{args 33751}# '(any . any))))
                            (if (if #{tmp 33917}#
                                  (@apply
                                    (lambda (#{a 33921}# #{b 33922}#)
                                      (eq? (syntax->datum #{a 33921}#) #:key))
                                    #{tmp 33917}#)
                                  #f)
                              (@apply
                                (lambda (#{a 33923}# #{b 33924}#)
                                  (#{key 33746}#
                                    #{b 33924}#
                                    (reverse #{rreq 33752}#)
                                    '()
                                    '()))
                                #{tmp 33917}#)
                              (let ((#{tmp 33927}#
                                      ($sc-dispatch
                                        #{args 33751}#
                                        '(any any))))
                                (if (if #{tmp 33927}#
                                      (@apply
                                        (lambda (#{a 33931}# #{b 33932}#)
                                          (eq? (syntax->datum #{a 33931}#)
                                               #:rest))
                                        #{tmp 33927}#)
                                      #f)
                                  (@apply
                                    (lambda (#{a 33933}# #{b 33934}#)
                                      (#{rest 33747}#
                                        #{b 33934}#
                                        (reverse #{rreq 33752}#)
                                        '()
                                        '()))
                                    #{tmp 33927}#)
                                  (let ((#{tmp 33937}# (list #{args 33751}#)))
                                    (if (@apply
                                          (lambda (#{r 33939}#)
                                            (if (symbol? #{r 33939}#)
                                              #t
                                              (if (if (vector? #{r 33939}#)
                                                    (if (= (vector-length
                                                             #{r 33939}#)
                                                           4)
                                                      (eq? (vector-ref
                                                             #{r 33939}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref #{r 33939}# 1))
                                                #f)))
                                          #{tmp 33937}#)
                                      (@apply
                                        (lambda (#{r 33969}#)
                                          (#{rest 33747}#
                                            #{r 33969}#
                                            (reverse #{rreq 33752}#)
                                            '()
                                            '()))
                                        #{tmp 33937}#)
                                      (syntax-violation
                                        'lambda*
                                        "invalid argument list"
                                        #{orig-args 33743}#
                                        #{args 33751}#)))))))))))))))
          (#{opt 33745}#
            (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#)
              (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '())))
                (if #{tmp 33992}#
                  (@apply
                    (lambda ()
                      (#{check 33748}#
                        #{req 33989}#
                        (reverse #{ropt 33990}#)
                        #f
                        '()))
                    #{tmp 33992}#)
                  (let ((#{tmp 34113}#
                          ($sc-dispatch #{args 33988}# '(any . any))))
                    (if (if #{tmp 34113}#
                          (@apply
                            (lambda (#{a 34117}# #{b 34118}#)
                              (if (symbol? #{a 34117}#)
                                #t
                                (if (if (vector? #{a 34117}#)
                                      (if (= (vector-length #{a 34117}#) 4)
                                        (eq? (vector-ref #{a 34117}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 34117}# 1))
                                  #f)))
                            #{tmp 34113}#)
                          #f)
                      (@apply
                        (lambda (#{a 34145}# #{b 34146}#)
                          (#{opt 33745}#
                            #{b 34146}#
                            #{req 33989}#
                            (cons (cons #{a 34145}#
                                        '(#(syntax-object
                                            #f
                                            ((top)
                                             #(ribcage
                                               #(a b)
                                               #((top) (top))
                                               #("i2400" "i2401"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(args req ropt)
                                               #((top) (top) (top))
                                               #("i2390" "i2391" "i2392"))
                                             #(ribcage
                                               (check rest key opt req)
                                               ((top) (top) (top) (top) (top))
                                               ("i2336"
                                                "i2334"
                                                "i2332"
                                                "i2330"
                                                "i2328"))
                                             #(ribcage
                                               #(orig-args)
                                               #((top))
                                               #("i2327"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
                                                 strip
                                                 chi-lambda-case
                                                 lambda*-formals
                                                 chi-simple-lambda
                                                 lambda-formals
                                                 ellipsis?
                                                 chi-void
                                                 eval-local-transformer
                                                 chi-local-syntax
                                                 chi-body
                                                 chi-macro
                                                 chi-call
                                                 chi-expr
                                                 chi
                                                 syntax-type
                                                 chi-when-list
                                                 chi-install-global
                                                 chi-top-sequence
                                                 chi-sequence
                                                 source-wrap
                                                 wrap
                                                 bound-id-member?
                                                 distinct-bound-ids?
                                                 valid-bound-ids?
                                                 bound-id=?
                                                 free-id=?
                                                 id-var-name
                                                 same-marks?
                                                 join-marks
                                                 join-wraps
                                                 smart-append
                                                 make-binding-wrap
                                                 extend-ribcage!
                                                 make-empty-ribcage
                                                 new-mark
                                                 anti-mark
                                                 the-anti-mark
                                                 top-marked?
                                                 top-wrap
                                                 empty-wrap
                                                 set-ribcage-labels!
                                                 set-ribcage-marks!
                                                 set-ribcage-symnames!
                                                 ribcage-labels
                                                 ribcage-marks
                                                 ribcage-symnames
                                                 ribcage?
                                                 make-ribcage
                                                 gen-labels
                                                 gen-label
                                                 make-rename
                                                 rename-marks
                                                 rename-new
                                                 rename-old
                                                 subst-rename?
                                                 wrap-subst
                                                 wrap-marks
                                                 make-wrap
                                                 id-sym-name&marks
                                                 id-sym-name
                                                 id?
                                                 nonsymbol-id?
                                                 global-extend
                                                 lookup
                                                 macros-only-env
                                                 extend-var-env
                                                 extend-env
                                                 null-env
                                                 binding-value
                                                 binding-type
                                                 make-binding
                                                 arg-check
                                                 source-annotation
                                                 no-source
                                                 set-syntax-object-module!
                                                 set-syntax-object-wrap!
                                                 set-syntax-object-expression!
                                                 syntax-object-module
                                                 syntax-object-wrap
                                                 syntax-object-expression
                                                 syntax-object?
                                                 make-syntax-object
                                                 build-lexical-var
                                                 build-letrec
                                                 build-named-let
                                                 build-let
                                                 build-sequence
                                                 build-data
                                                 build-primref
                                                 build-primcall
                                                 build-lambda-case
                                                 build-case-lambda
                                                 build-simple-lambda
                                                 build-global-definition
                                                 build-global-assignment
                                                 build-global-reference
                                                 analyze-variable
                                                 build-lexical-assignment
                                                 build-lexical-reference
                                                 build-dynlet
                                                 build-conditional
                                                 build-call
                                                 build-void
                                                 maybe-name-value!
                                                 decorate-source
                                                 get-global-definition-hook
                                                 put-global-definition-hook
                                                 gensym-hook
                                                 local-eval-hook
                                                 top-level-eval-hook
                                                 fx<
                                                 fx=
                                                 fx-
                                                 fx+
                                                 set-lambda-meta!
                                                 lambda-meta
                                                 lambda?
                                                 make-dynlet
                                                 make-letrec
                                                 make-let
                                                 make-lambda-case
                                                 make-lambda
                                                 make-seq
                                                 make-primcall
                                                 make-call
                                                 make-conditional
                                                 make-toplevel-define
                                                 make-toplevel-set
                                                 make-toplevel-ref
                                                 make-module-set
                                                 make-module-ref
                                                 make-lexical-set
                                                 make-lexical-ref
                                                 make-primitive-ref
                                                 make-const
                                                 make-void)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i471"
                                                "i469"
                                                "i467"
                                                "i465"
                                                "i463"
                                                "i461"
                                                "i459"
                                                "i457"
                                                "i455"
                                                "i453"
                                                "i451"
                                                "i449"
                                                "i447"
                                                "i445"
                                                "i443"
                                                "i441"
                                                "i439"
                                                "i437"
                                                "i435"
                                                "i433"
                                                "i431"
                                                "i429"
                                                "i427"
                                                "i425"
                                                "i423"
                                                "i421"
                                                "i419"
                                                "i417"
                                                "i415"
                                                "i413"
                                                "i411"
                                                "i409"
                                                "i407"
                                                "i405"
                                                "i403"
                                                "i402"
                                                "i400"
                                                "i397"
                                                "i396"
                                                "i395"
                                                "i393"
                                                "i392"
                                                "i390"
                                                "i388"
                                                "i386"
                                                "i384"
                                                "i382"
                                                "i380"
                                                "i378"
                                                "i376"
                                                "i373"
                                                "i371"
                                                "i370"
                                                "i368"
                                                "i366"
                                                "i364"
                                                "i362"
                                                "i361"
                                                "i360"
                                                "i359"
                                                "i357"
                                                "i356"
                                                "i353"
                                                "i351"
                                                "i349"
                                                "i347"
                                                "i345"
                                                "i343"
                                                "i341"
                                                "i340"
                                                "i339"
                                                "i337"
                                                "i335"
                                                "i334"
                                                "i331"
                                                "i330"
                                                "i328"
                                                "i326"
                                                "i324"
                                                "i322"
                                                "i320"
                                                "i318"
                                                "i316"
                                                "i314"
                                                "i312"
                                                "i309"
                                                "i307"
                                                "i305"
                                                "i303"
                                                "i301"
                                                "i299"
                                                "i297"
                                                "i295"
                                                "i293"
                                                "i291"
                                                "i289"
                                                "i287"
                                                "i285"
                                                "i283"
                                                "i281"
                                                "i279"
                                                "i277"
                                                "i275"
                                                "i273"
                                                "i271"
                                                "i269"
                                                "i267"
                                                "i265"
                                                "i263"
                                                "i262"
                                                "i259"
                                                "i257"
                                                "i256"
                                                "i255"
                                                "i254"
                                                "i253"
                                                "i251"
                                                "i249"
                                                "i247"
                                                "i244"
                                                "i242"
                                                "i240"
                                                "i238"
                                                "i236"
                                                "i234"
                                                "i232"
                                                "i230"
                                                "i228"
                                                "i226"
                                                "i224"
                                                "i222"
                                                "i220"
                                                "i218"
                                                "i216"
                                                "i214"
                                                "i212"
                                                "i210"
                                                "i208"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors)
                                               ((top) (top) (top))
                                               ("i46" "i45" "i44")))
                                            (hygiene guile))))
                                  #{ropt 33990}#)))
                        #{tmp 34113}#)
                      (let ((#{tmp 34147}#
                              ($sc-dispatch
                                #{args 33988}#
                                '((any any) . any))))
                        (if (if #{tmp 34147}#
                              (@apply
                                (lambda (#{a 34151}#
                                         #{init 34152}#
                                         #{b 34153}#)
                                  (if (symbol? #{a 34151}#)
                                    #t
                                    (if (if (vector? #{a 34151}#)
                                          (if (= (vector-length #{a 34151}#) 4)
                                            (eq? (vector-ref #{a 34151}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{a 34151}# 1))
                                      #f)))
                                #{tmp 34147}#)
                              #f)
                          (@apply
                            (lambda (#{a 34180}# #{init 34181}# #{b 34182}#)
                              (#{opt 33745}#
                                #{b 34182}#
                                #{req 33989}#
                                (cons (list #{a 34180}# #{init 34181}#)
                                      #{ropt 33990}#)))
                            #{tmp 34147}#)
                          (let ((#{tmp 34183}#
                                  ($sc-dispatch #{args 33988}# '(any . any))))
                            (if (if #{tmp 34183}#
                                  (@apply
                                    (lambda (#{a 34187}# #{b 34188}#)
                                      (eq? (syntax->datum #{a 34187}#) #:key))
                                    #{tmp 34183}#)
                                  #f)
                              (@apply
                                (lambda (#{a 34189}# #{b 34190}#)
                                  (#{key 33746}#
                                    #{b 34190}#
                                    #{req 33989}#
                                    (reverse #{ropt 33990}#)
                                    '()))
                                #{tmp 34183}#)
                              (let ((#{tmp 34193}#
                                      ($sc-dispatch
                                        #{args 33988}#
                                        '(any any))))
                                (if (if #{tmp 34193}#
                                      (@apply
                                        (lambda (#{a 34197}# #{b 34198}#)
                                          (eq? (syntax->datum #{a 34197}#)
                                               #:rest))
                                        #{tmp 34193}#)
                                      #f)
                                  (@apply
                                    (lambda (#{a 34199}# #{b 34200}#)
                                      (#{rest 33747}#
                                        #{b 34200}#
                                        #{req 33989}#
                                        (reverse #{ropt 33990}#)
                                        '()))
                                    #{tmp 34193}#)
                                  (let ((#{tmp 34203}# (list #{args 33988}#)))
                                    (if (@apply
                                          (lambda (#{r 34205}#)
                                            (if (symbol? #{r 34205}#)
                                              #t
                                              (if (if (vector? #{r 34205}#)
                                                    (if (= (vector-length
                                                             #{r 34205}#)
                                                           4)
                                                      (eq? (vector-ref
                                                             #{r 34205}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref #{r 34205}# 1))
                                                #f)))
                                          #{tmp 34203}#)
                                      (@apply
                                        (lambda (#{r 34235}#)
                                          (#{rest 33747}#
                                            #{r 34235}#
                                            #{req 33989}#
                                            (reverse #{ropt 33990}#)
                                            '()))
                                        #{tmp 34203}#)
                                      (syntax-violation
                                        'lambda*
                                        "invalid optional argument list"
                                        #{orig-args 33743}#
                                        #{args 33988}#)))))))))))))))
          (#{key 33746}#
            (lambda (#{args 34254}#
                     #{req 34255}#
                     #{opt 34256}#
                     #{rkey 34257}#)
              (let ((#{tmp 34259}# ($sc-dispatch #{args 34254}# '())))
                (if #{tmp 34259}#
                  (@apply
                    (lambda ()
                      (#{check 33748}#
                        #{req 34255}#
                        #{opt 34256}#
                        #f
                        (cons #f (reverse #{rkey 34257}#))))
                    #{tmp 34259}#)
                  (let ((#{tmp 34381}#
                          ($sc-dispatch #{args 34254}# '(any . any))))
                    (if (if #{tmp 34381}#
                          (@apply
                            (lambda (#{a 34385}# #{b 34386}#)
                              (if (symbol? #{a 34385}#)
                                #t
                                (if (if (vector? #{a 34385}#)
                                      (if (= (vector-length #{a 34385}#) 4)
                                        (eq? (vector-ref #{a 34385}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 34385}# 1))
                                  #f)))
                            #{tmp 34381}#)
                          #f)
                      (@apply
                        (lambda (#{a 34413}# #{b 34414}#)
                          (let ((#{tmp 34415}#
                                  (symbol->keyword
                                    (syntax->datum #{a 34413}#))))
                            (#{key 33746}#
                              #{b 34414}#
                              #{req 34255}#
                              #{opt 34256}#
                              (cons (cons #{tmp 34415}#
                                          (cons #{a 34413}#
                                                '(#(syntax-object
                                                    #f
                                                    ((top)
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(k)
                                                       #((top))
                                                       #("i2463"))
                                                     #(ribcage
                                                       #(a b)
                                                       #((top) (top))
                                                       #("i2457" "i2458"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(args req opt rkey)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i2446"
                                                         "i2447"
                                                         "i2448"
                                                         "i2449"))
                                                     #(ribcage
                                                       (check rest key opt req)
                                                       ((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                       ("i2336"
                                                        "i2334"
                                                        "i2332"
                                                        "i2330"
                                                        "i2328"))
                                                     #(ribcage
                                                       #(orig-args)
                                                       #((top))
                                                       #("i2327"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
                                                         strip
                                                         chi-lambda-case
                                                         lambda*-formals
                                                         chi-simple-lambda
                                                         lambda-formals
                                                         ellipsis?
                                                         chi-void
                                                         eval-local-transformer
                                                         chi-local-syntax
                                                         chi-body
                                                         chi-macro
                                                         chi-call
                                                         chi-expr
                                                         chi
                                                         syntax-type
                                                         chi-when-list
                                                         chi-install-global
                                                         chi-top-sequence
                                                         chi-sequence
                                                         source-wrap
                                                         wrap
                                                         bound-id-member?
                                                         distinct-bound-ids?
                                                         valid-bound-ids?
                                                         bound-id=?
                                                         free-id=?
                                                         id-var-name
                                                         same-marks?
                                                         join-marks
                                                         join-wraps
                                                         smart-append
                                                         make-binding-wrap
                                                         extend-ribcage!
                                                         make-empty-ribcage
                                                         new-mark
                                                         anti-mark
                                                         the-anti-mark
                                                         top-marked?
                                                         top-wrap
                                                         empty-wrap
                                                         set-ribcage-labels!
                                                         set-ribcage-marks!
                                                         set-ribcage-symnames!
                                                         ribcage-labels
                                                         ribcage-marks
                                                         ribcage-symnames
                                                         ribcage?
                                                         make-ribcage
                                                         gen-labels
                                                         gen-label
                                                         make-rename
                                                         rename-marks
                                                         rename-new
                                                         rename-old
                                                         subst-rename?
                                                         wrap-subst
                                                         wrap-marks
                                                         make-wrap
                                                         id-sym-name&marks
                                                         id-sym-name
                                                         id?
                                                         nonsymbol-id?
                                                         global-extend
                                                         lookup
                                                         macros-only-env
                                                         extend-var-env
                                                         extend-env
                                                         null-env
                                                         binding-value
                                                         binding-type
                                                         make-binding
                                                         arg-check
                                                         source-annotation
                                                         no-source
                                                         set-syntax-object-module!
                                                         set-syntax-object-wrap!
                                                         set-syntax-object-expression!
                                                         syntax-object-module
                                                         syntax-object-wrap
                                                         syntax-object-expression
                                                         syntax-object?
                                                         make-syntax-object
                                                         build-lexical-var
                                                         build-letrec
                                                         build-named-let
                                                         build-let
                                                         build-sequence
                                                         build-data
                                                         build-primref
                                                         build-primcall
                                                         build-lambda-case
                                                         build-case-lambda
                                                         build-simple-lambda
                                                         build-global-definition
                                                         build-global-assignment
                                                         build-global-reference
                                                         analyze-variable
                                                         build-lexical-assignment
                                                         build-lexical-reference
                                                         build-dynlet
                                                         build-conditional
                                                         build-call
                                                         build-void
                                                         maybe-name-value!
                                                         decorate-source
                                                         get-global-definition-hook
                                                         put-global-definition-hook
                                                         gensym-hook
                                                         local-eval-hook
                                                         top-level-eval-hook
                                                         fx<
                                                         fx=
                                                         fx-
                                                         fx+
                                                         set-lambda-meta!
                                                         lambda-meta
                                                         lambda?
                                                         make-dynlet
                                                         make-letrec
                                                         make-let
                                                         make-lambda-case
                                                         make-lambda
                                                         make-seq
                                                         make-primcall
                                                         make-call
                                                         make-conditional
                                                         make-toplevel-define
                                                         make-toplevel-set
                                                         make-toplevel-ref
                                                         make-module-set
                                                         make-module-ref
                                                         make-lexical-set
                                                         make-lexical-ref
                                                         make-primitive-ref
                                                         make-const
                                                         make-void)
                                                       ((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                       ("i471"
                                                        "i469"
                                                        "i467"
                                                        "i465"
                                                        "i463"
                                                        "i461"
                                                        "i459"
                                                        "i457"
                                                        "i455"
                                                        "i453"
                                                        "i451"
                                                        "i449"
                                                        "i447"
                                                        "i445"
                                                        "i443"
                                                        "i441"
                                                        "i439"
                                                        "i437"
                                                        "i435"
                                                        "i433"
                                                        "i431"
                                                        "i429"
                                                        "i427"
                                                        "i425"
                                                        "i423"
                                                        "i421"
                                                        "i419"
                                                        "i417"
                                                        "i415"
                                                        "i413"
                                                        "i411"
                                                        "i409"
                                                        "i407"
                                                        "i405"
                                                        "i403"
                                                        "i402"
                                                        "i400"
                                                        "i397"
                                                        "i396"
                                                        "i395"
                                                        "i393"
                                                        "i392"
                                                        "i390"
                                                        "i388"
                                                        "i386"
                                                        "i384"
                                                        "i382"
                                                        "i380"
                                                        "i378"
                                                        "i376"
                                                        "i373"
                                                        "i371"
                                                        "i370"
                                                        "i368"
                                                        "i366"
                                                        "i364"
                                                        "i362"
                                                        "i361"
                                                        "i360"
                                                        "i359"
                                                        "i357"
                                                        "i356"
                                                        "i353"
                                                        "i351"
                                                        "i349"
                                                        "i347"
                                                        "i345"
                                                        "i343"
                                                        "i341"
                                                        "i340"
                                                        "i339"
                                                        "i337"
                                                        "i335"
                                                        "i334"
                                                        "i331"
                                                        "i330"
                                                        "i328"
                                                        "i326"
                                                        "i324"
                                                        "i322"
                                                        "i320"
                                                        "i318"
                                                        "i316"
                                                        "i314"
                                                        "i312"
                                                        "i309"
                                                        "i307"
                                                        "i305"
                                                        "i303"
                                                        "i301"
                                                        "i299"
                                                        "i297"
                                                        "i295"
                                                        "i293"
                                                        "i291"
                                                        "i289"
                                                        "i287"
                                                        "i285"
                                                        "i283"
                                                        "i281"
                                                        "i279"
                                                        "i277"
                                                        "i275"
                                                        "i273"
                                                        "i271"
                                                        "i269"
                                                        "i267"
                                                        "i265"
                                                        "i263"
                                                        "i262"
                                                        "i259"
                                                        "i257"
                                                        "i256"
                                                        "i255"
                                                        "i254"
                                                        "i253"
                                                        "i251"
                                                        "i249"
                                                        "i247"
                                                        "i244"
                                                        "i242"
                                                        "i240"
                                                        "i238"
                                                        "i236"
                                                        "i234"
                                                        "i232"
                                                        "i230"
                                                        "i228"
                                                        "i226"
                                                        "i224"
                                                        "i222"
                                                        "i220"
                                                        "i218"
                                                        "i216"
                                                        "i214"
                                                        "i212"
                                                        "i210"
                                                        "i208"))
                                                     #(ribcage
                                                       (define-structure
                                                         define-expansion-accessors
                                                         define-expansion-constructors)
                                                       ((top) (top) (top))
                                                       ("i46" "i45" "i44")))
                                                    (hygiene guile)))))
                                    #{rkey 34257}#))))
                        #{tmp 34381}#)
                      (let ((#{tmp 34418}#
                              ($sc-dispatch
                                #{args 34254}#
                                '((any any) . any))))
                        (if (if #{tmp 34418}#
                              (@apply
                                (lambda (#{a 34422}#
                                         #{init 34423}#
                                         #{b 34424}#)
                                  (if (symbol? #{a 34422}#)
                                    #t
                                    (if (if (vector? #{a 34422}#)
                                          (if (= (vector-length #{a 34422}#) 4)
                                            (eq? (vector-ref #{a 34422}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{a 34422}# 1))
                                      #f)))
                                #{tmp 34418}#)
                              #f)
                          (@apply
                            (lambda (#{a 34451}# #{init 34452}# #{b 34453}#)
                              (let ((#{tmp 34454}#
                                      (symbol->keyword
                                        (syntax->datum #{a 34451}#))))
                                (#{key 33746}#
                                  #{b 34453}#
                                  #{req 34255}#
                                  #{opt 34256}#
                                  (cons (list #{tmp 34454}#
                                              #{a 34451}#
                                              #{init 34452}#)
                                        #{rkey 34257}#))))
                            #{tmp 34418}#)
                          (let ((#{tmp 34457}#
                                  ($sc-dispatch
                                    #{args 34254}#
                                    '((any any any) . any))))
                            (if (if #{tmp 34457}#
                                  (@apply
                                    (lambda (#{a 34461}#
                                             #{init 34462}#
                                             #{k 34463}#
                                             #{b 34464}#)
                                      (if (if (symbol? #{a 34461}#)
                                            #t
                                            (if (if (vector? #{a 34461}#)
                                                  (if (= (vector-length
                                                           #{a 34461}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{a 34461}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
                                                (vector-ref #{a 34461}# 1))
                                              #f))
                                        (keyword? (syntax->datum #{k 34463}#))
                                        #f))
                                    #{tmp 34457}#)
                                  #f)
                              (@apply
                                (lambda (#{a 34491}#
                                         #{init 34492}#
                                         #{k 34493}#
                                         #{b 34494}#)
                                  (#{key 33746}#
                                    #{b 34494}#
                                    #{req 34255}#
                                    #{opt 34256}#
                                    (cons (list #{k 34493}#
                                                #{a 34491}#
                                                #{init 34492}#)
                                          #{rkey 34257}#)))
                                #{tmp 34457}#)
                              (let ((#{tmp 34495}#
                                      ($sc-dispatch #{args 34254}# '(any))))
                                (if (if #{tmp 34495}#
                                      (@apply
                                        (lambda (#{aok 34499}#)
                                          (eq? (syntax->datum #{aok 34499}#)
                                               #:allow-other-keys))
                                        #{tmp 34495}#)
                                      #f)
                                  (@apply
                                    (lambda (#{aok 34500}#)
                                      (#{check 33748}#
                                        #{req 34255}#
                                        #{opt 34256}#
                                        #f
                                        (cons #t (reverse #{rkey 34257}#))))
                                    #{tmp 34495}#)
                                  (let ((#{tmp 34619}#
                                          ($sc-dispatch
                                            #{args 34254}#
                                            '(any any any))))
                                    (if (if #{tmp 34619}#
                                          (@apply
                                            (lambda (#{aok 34623}#
                                                     #{a 34624}#
                                                     #{b 34625}#)
                                              (if (eq? (syntax->datum
                                                         #{aok 34623}#)
                                                       #:allow-other-keys)
                                                (eq? (syntax->datum
                                                       #{a 34624}#)
                                                     #:rest)
                                                #f))
                                            #{tmp 34619}#)
                                          #f)
                                      (@apply
                                        (lambda (#{aok 34626}#
                                                 #{a 34627}#
                                                 #{b 34628}#)
                                          (#{rest 33747}#
                                            #{b 34628}#
                                            #{req 34255}#
                                            #{opt 34256}#
                                            (cons #t
                                                  (reverse #{rkey 34257}#))))
                                        #{tmp 34619}#)
                                      (let ((#{tmp 34631}#
                                              ($sc-dispatch
                                                #{args 34254}#
                                                '(any . any))))
                                        (if (if #{tmp 34631}#
                                              (@apply
                                                (lambda (#{aok 34635}#
                                                         #{r 34636}#)
                                                  (if (eq? (syntax->datum
                                                             #{aok 34635}#)
                                                           #:allow-other-keys)
                                                    (if (symbol? #{r 34636}#)
                                                      #t
                                                      (if (if (vector?
                                                                #{r 34636}#)
                                                            (if (= (vector-length
                                                                     #{r 34636}#)
                                                                   4)
                                                              (eq? (vector-ref
                                                                     #{r 34636}#
                                                                     0)
                                                                   'syntax-object)
                                                              #f)
                                                            #f)
                                                        (symbol?
                                                          (vector-ref
                                                            #{r 34636}#
                                                            1))
                                                        #f))
                                                    #f))
                                                #{tmp 34631}#)
                                              #f)
                                          (@apply
                                            (lambda (#{aok 34663}# #{r 34664}#)
                                              (#{rest 33747}#
                                                #{r 34664}#
                                                #{req 34255}#
                                                #{opt 34256}#
                                                (cons #t
                                                      (reverse
                                                        #{rkey 34257}#))))
                                            #{tmp 34631}#)
                                          (let ((#{tmp 34667}#
                                                  ($sc-dispatch
                                                    #{args 34254}#
                                                    '(any any))))
                                            (if (if #{tmp 34667}#
                                                  (@apply
                                                    (lambda (#{a 34671}#
                                                             #{b 34672}#)
                                                      (eq? (syntax->datum
                                                             #{a 34671}#)
                                                           #:rest))
                                                    #{tmp 34667}#)
                                                  #f)
                                              (@apply
                                                (lambda (#{a 34673}#
                                                         #{b 34674}#)
                                                  (#{rest 33747}#
                                                    #{b 34674}#
                                                    #{req 34255}#
                                                    #{opt 34256}#
                                                    (cons #f
                                                          (reverse
                                                            #{rkey 34257}#))))
                                                #{tmp 34667}#)
                                              (let ((#{tmp 34677}#
                                                      (list #{args 34254}#)))
                                                (if (@apply
                                                      (lambda (#{r 34679}#)
                                                        (if (symbol?
                                                              #{r 34679}#)
                                                          #t
                                                          (if (if (vector?
                                                                    #{r 34679}#)
                                                                (if (= (vector-length
                                                                         #{r 34679}#)
                                                                       4)
                                                                  (eq? (vector-ref
                                                                         #{r 34679}#
                                                                         0)
                                                                       'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
                                                                #{r 34679}#
                                                                1))
                                                            #f)))
                                                      #{tmp 34677}#)
                                                  (@apply
                                                    (lambda (#{r 34709}#)
                                                      (#{rest 33747}#
                                                        #{r 34709}#
                                                        #{req 34255}#
                                                        #{opt 34256}#
                                                        (cons #f
                                                              (reverse
                                                                #{rkey 34257}#))))
                                                    #{tmp 34677}#)
                                                  (syntax-violation
                                                    'lambda*
                                                    "invalid keyword argument list"
                                                    #{orig-args 33743}#
                                                    #{args 34254}#)))))))))))))))))))))
          (#{rest 33747}#
            (lambda (#{args 34737}#
                     #{req 34738}#
                     #{opt 34739}#
                     #{kw 34740}#)
              (let ((#{tmp 34742}# (list #{args 34737}#)))
                (if (@apply
                      (lambda (#{r 34744}#)
                        (if (symbol? #{r 34744}#)
                          #t
                          (if (if (vector? #{r 34744}#)
                                (if (= (vector-length #{r 34744}#) 4)
                                  (eq? (vector-ref #{r 34744}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{r 34744}# 1))
                            #f)))
                      #{tmp 34742}#)
                  (@apply
                    (lambda (#{r 34774}#)
                      (#{check 33748}#
                        #{req 34738}#
                        #{opt 34739}#
                        #{r 34774}#
                        #{kw 34740}#))
                    #{tmp 34742}#)
                  (syntax-violation
                    'lambda*
                    "invalid rest argument"
                    #{orig-args 33743}#
                    #{args 34737}#)))))
          (#{check 33748}#
            (lambda (#{req 34902}#
                     #{opt 34903}#
                     #{rest 34904}#
                     #{kw 34905}#)
              (if (#{distinct-bound-ids? 4364}#
                    (append
                      #{req 34902}#
                      (map car #{opt 34903}#)
                      (if #{rest 34904}# (list #{rest 34904}#) '())
                      (if (pair? #{kw 34905}#)
                        (map cadr (cdr #{kw 34905}#))
                        '())))
                (values
                  #{req 34902}#
                  #{opt 34903}#
                  #{rest 34904}#
                  #{kw 34905}#)
                (syntax-violation
                  'lambda*
                  "duplicate identifier in argument list"
                  #{orig-args 33743}#)))))
         (#{req 33744}# #{orig-args 33743}# '()))))
   (#{chi-lambda-case 4385}#
     (lambda (#{e 35014}#
              #{r 35015}#
              #{w 35016}#
              #{s 35017}#
              #{mod 35018}#
              #{get-formals 35019}#
              #{clauses 35020}#)
       (letrec*
         ((#{expand-req 35021}#
            (lambda (#{req 35157}#
                     #{opt 35158}#
                     #{rest 35159}#
                     #{kw 35160}#
                     #{body 35161}#)
              (let ((#{vars 35162}#
                      (map #{gen-var 4387}# #{req 35157}#))
                    (#{labels 35163}#
                      (#{gen-labels 4344}# #{req 35157}#)))
                (let ((#{r* 35164}#
                        (#{extend-var-env 4336}#
                          #{labels 35163}#
                          #{vars 35162}#
                          #{r 35015}#))
                      (#{w* 35165}#
                        (#{make-binding-wrap 4355}#
                          #{req 35157}#
                          #{labels 35163}#
                          #{w 35016}#)))
                  (#{expand-opt 35022}#
                    (map syntax->datum #{req 35157}#)
                    #{opt 35158}#
                    #{rest 35159}#
                    #{kw 35160}#
                    #{body 35161}#
                    (reverse #{vars 35162}#)
                    #{r* 35164}#
                    #{w* 35165}#
                    '()
                    '())))))
          (#{expand-opt 35022}#
            (lambda (#{req 35401}#
                     #{opt 35402}#
                     #{rest 35403}#
                     #{kw 35404}#
                     #{body 35405}#
                     #{vars 35406}#
                     #{r* 35407}#
                     #{w* 35408}#
                     #{out 35409}#
                     #{inits 35410}#)
              (if (pair? #{opt 35402}#)
                (let ((#{tmp 35411}# (car #{opt 35402}#)))
                  (let ((#{tmp 35412}#
                          ($sc-dispatch #{tmp 35411}# '(any any))))
                    (if #{tmp 35412}#
                      (@apply
                        (lambda (#{id 35414}# #{i 35415}#)
                          (let ((#{v 35416}#
                                  (let ((#{id 35424}#
                                          (if (if (vector? #{id 35414}#)
                                                (if (= (vector-length
                                                         #{id 35414}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{id 35414}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (vector-ref #{id 35414}# 1)
                                            #{id 35414}#)))
                                    (gensym
                                      (string-append
                                        (symbol->string #{id 35424}#)
                                        " ")))))
                            (let ((#{l 35417}#
                                    (#{gen-labels 4344}# (list #{v 35416}#))))
                              (let ((#{r** 35418}#
                                      (#{extend-var-env 4336}#
                                        #{l 35417}#
                                        (list #{v 35416}#)
                                        #{r* 35407}#)))
                                (let ((#{w** 35419}#
                                        (#{make-binding-wrap 4355}#
                                          (list #{id 35414}#)
                                          #{l 35417}#
                                          #{w* 35408}#)))
                                  (#{expand-opt 35022}#
                                    #{req 35401}#
                                    (cdr #{opt 35402}#)
                                    #{rest 35403}#
                                    #{kw 35404}#
                                    #{body 35405}#
                                    (cons #{v 35416}# #{vars 35406}#)
                                    #{r** 35418}#
                                    #{w** 35419}#
                                    (cons (syntax->datum #{id 35414}#)
                                          #{out 35409}#)
                                    (cons (#{chi 4373}#
                                            #{i 35415}#
                                            #{r* 35407}#
                                            #{w* 35408}#
                                            #{mod 35018}#)
                                          #{inits 35410}#)))))))
                        #{tmp 35412}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp 35411}#))))
                (if #{rest 35403}#
                  (let ((#{v 35725}#
                          (let ((#{id 35735}#
                                  (if (if (vector? #{rest 35403}#)
                                        (if (= (vector-length #{rest 35403}#)
                                               4)
                                          (eq? (vector-ref #{rest 35403}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (vector-ref #{rest 35403}# 1)
                                    #{rest 35403}#)))
                            (gensym
                              (string-append
                                (symbol->string #{id 35735}#)
                                " ")))))
                    (let ((#{l 35726}#
                            (#{gen-labels 4344}# (list #{v 35725}#))))
                      (let ((#{r* 35727}#
                              (#{extend-var-env 4336}#
                                #{l 35726}#
                                (list #{v 35725}#)
                                #{r* 35407}#)))
                        (let ((#{w* 35728}#
                                (#{make-binding-wrap 4355}#
                                  (list #{rest 35403}#)
                                  #{l 35726}#
                                  #{w* 35408}#)))
                          (#{expand-kw 35023}#
                            #{req 35401}#
                            (if (pair? #{out 35409}#)
                              (reverse #{out 35409}#)
                              #f)
                            (syntax->datum #{rest 35403}#)
                            (if (pair? #{kw 35404}#)
                              (cdr #{kw 35404}#)
                              #{kw 35404}#)
                            #{body 35405}#
                            (cons #{v 35725}# #{vars 35406}#)
                            #{r* 35727}#
                            #{w* 35728}#
                            (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
                            '()
                            #{inits 35410}#)))))
                  (#{expand-kw 35023}#
                    #{req 35401}#
                    (if (pair? #{out 35409}#)
                      (reverse #{out 35409}#)
                      #f)
                    #f
                    (if (pair? #{kw 35404}#)
                      (cdr #{kw 35404}#)
                      #{kw 35404}#)
                    #{body 35405}#
                    #{vars 35406}#
                    #{r* 35407}#
                    #{w* 35408}#
                    (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
                    '()
                    #{inits 35410}#)))))
          (#{expand-kw 35023}#
            (lambda (#{req 35957}#
                     #{opt 35958}#
                     #{rest 35959}#
                     #{kw 35960}#
                     #{body 35961}#
                     #{vars 35962}#
                     #{r* 35963}#
                     #{w* 35964}#
                     #{aok 35965}#
                     #{out 35966}#
                     #{inits 35967}#)
              (if (pair? #{kw 35960}#)
                (let ((#{tmp 35968}# (car #{kw 35960}#)))
                  (let ((#{tmp 35969}#
                          ($sc-dispatch #{tmp 35968}# '(any any any))))
                    (if #{tmp 35969}#
                      (@apply
                        (lambda (#{k 35971}# #{id 35972}# #{i 35973}#)
                          (let ((#{v 35974}#
                                  (let ((#{id 35982}#
                                          (if (if (vector? #{id 35972}#)
                                                (if (= (vector-length
                                                         #{id 35972}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{id 35972}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (vector-ref #{id 35972}# 1)
                                            #{id 35972}#)))
                                    (gensym
                                      (string-append
                                        (symbol->string #{id 35982}#)
                                        " ")))))
                            (let ((#{l 35975}#
                                    (#{gen-labels 4344}# (list #{v 35974}#))))
                              (let ((#{r** 35976}#
                                      (#{extend-var-env 4336}#
                                        #{l 35975}#
                                        (list #{v 35974}#)
                                        #{r* 35963}#)))
                                (let ((#{w** 35977}#
                                        (#{make-binding-wrap 4355}#
                                          (list #{id 35972}#)
                                          #{l 35975}#
                                          #{w* 35964}#)))
                                  (#{expand-kw 35023}#
                                    #{req 35957}#
                                    #{opt 35958}#
                                    #{rest 35959}#
                                    (cdr #{kw 35960}#)
                                    #{body 35961}#
                                    (cons #{v 35974}# #{vars 35962}#)
                                    #{r** 35976}#
                                    #{w** 35977}#
                                    #{aok 35965}#
                                    (cons (list (syntax->datum #{k 35971}#)
                                                (syntax->datum #{id 35972}#)
                                                #{v 35974}#)
                                          #{out 35966}#)
                                    (cons (#{chi 4373}#
                                            #{i 35973}#
                                            #{r* 35963}#
                                            #{w* 35964}#
                                            #{mod 35018}#)
                                          #{inits 35967}#)))))))
                        #{tmp 35969}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp 35968}#))))
                (#{expand-body 35024}#
                  #{req 35957}#
                  #{opt 35958}#
                  #{rest 35959}#
                  (if (if #{aok 35965}#
                        #{aok 35965}#
                        (pair? #{out 35966}#))
                    (cons #{aok 35965}# (reverse #{out 35966}#))
                    #f)
                  #{body 35961}#
                  (reverse #{vars 35962}#)
                  #{r* 35963}#
                  #{w* 35964}#
                  (reverse #{inits 35967}#)
                  '()))))
          (#{expand-body 35024}#
            (lambda (#{req 36292}#
                     #{opt 36293}#
                     #{rest 36294}#
                     #{kw 36295}#
                     #{body 36296}#
                     #{vars 36297}#
                     #{r* 36298}#
                     #{w* 36299}#
                     #{inits 36300}#
                     #{meta 36301}#)
              (let ((#{tmp 36303}#
                      ($sc-dispatch
                        #{body 36296}#
                        '(any any . each-any))))
                (if (if #{tmp 36303}#
                      (@apply
                        (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#)
                          (string? (syntax->datum #{docstring 36307}#)))
                        #{tmp 36303}#)
                      #f)
                  (@apply
                    (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#)
                      (#{expand-body 35024}#
                        #{req 36292}#
                        #{opt 36293}#
                        #{rest 36294}#
                        #{kw 36295}#
                        (cons #{e1 36311}# #{e2 36312}#)
                        #{vars 36297}#
                        #{r* 36298}#
                        #{w* 36299}#
                        #{inits 36300}#
                        (append
                          #{meta 36301}#
                          (list (cons 'documentation
                                      (syntax->datum #{docstring 36310}#))))))
                    #{tmp 36303}#)
                  (let ((#{tmp 36313}#
                          ($sc-dispatch
                            #{body 36296}#
                            '(#(vector #(each (any . any))) any . each-any))))
                    (if #{tmp 36313}#
                      (@apply
                        (lambda (#{k 36317}#
                                 #{v 36318}#
                                 #{e1 36319}#
                                 #{e2 36320}#)
                          (#{expand-body 35024}#
                            #{req 36292}#
                            #{opt 36293}#
                            #{rest 36294}#
                            #{kw 36295}#
                            (cons #{e1 36319}# #{e2 36320}#)
                            #{vars 36297}#
                            #{r* 36298}#
                            #{w* 36299}#
                            #{inits 36300}#
                            (append
                              #{meta 36301}#
                              (syntax->datum
                                (map cons #{k 36317}# #{v 36318}#)))))
                        #{tmp 36313}#)
                      (let ((#{tmp 36321}#
                              ($sc-dispatch #{body 36296}# '(any . each-any))))
                        (if #{tmp 36321}#
                          (@apply
                            (lambda (#{e1 36325}# #{e2 36326}#)
                              (values
                                #{meta 36301}#
                                #{req 36292}#
                                #{opt 36293}#
                                #{rest 36294}#
                                #{kw 36295}#
                                #{inits 36300}#
                                #{vars 36297}#
                                (#{chi-body 4377}#
                                  (cons #{e1 36325}# #{e2 36326}#)
                                  (let ((#{x 36338}#
                                          (begin
                                            (if (if (pair? #{e 35014}#)
                                                  #{s 35017}#
                                                  #f)
                                              (set-source-properties!
                                                #{e 35014}#
                                                #{s 35017}#))
                                            #{e 35014}#)))
                                    (if (if (null? (car #{w 35016}#))
                                          (null? (cdr #{w 35016}#))
                                          #f)
                                      #{x 36338}#
                                      (if (if (vector? #{x 36338}#)
                                            (if (= (vector-length #{x 36338}#)
                                                   4)
                                              (eq? (vector-ref #{x 36338}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (let ((#{expression 36370}#
                                                (vector-ref #{x 36338}# 1))
                                              (#{wrap 36371}#
                                                (let ((#{w2 36379}#
                                                        (vector-ref
                                                          #{x 36338}#
                                                          2)))
                                                  (let ((#{m1 36380}#
                                                          (car #{w 35016}#))
                                                        (#{s1 36381}#
                                                          (cdr #{w 35016}#)))
                                                    (if (null? #{m1 36380}#)
                                                      (if (null? #{s1 36381}#)
                                                        #{w2 36379}#
                                                        (cons (car #{w2 36379}#)
                                                              (let ((#{m2 36396}#
                                                                      (cdr #{w2 36379}#)))
                                                                (if (null? #{m2 36396}#)
                                                                  #{s1 36381}#
                                                                  (append
                                                                    #{s1 36381}#
                                                                    #{m2 36396}#)))))
                                                      (cons (let ((#{m2 36404}#
                                                                    (car #{w2 36379}#)))
                                                              (if (null? #{m2 36404}#)
                                                                #{m1 36380}#
                                                                (append
                                                                  #{m1 36380}#
                                                                  #{m2 36404}#)))
                                                            (let ((#{m2 36412}#
                                                                    (cdr #{w2 36379}#)))
                                                              (if (null? #{m2 36412}#)
                                                                #{s1 36381}#
                                                                (append
                                                                  #{s1 36381}#
                                                                  #{m2 36412}#))))))))
                                              (#{module 36372}#
                                                (vector-ref #{x 36338}# 3)))
                                          (vector
                                            'syntax-object
                                            #{expression 36370}#
                                            #{wrap 36371}#
                                            #{module 36372}#))
                                        (if (null? #{x 36338}#)
                                          #{x 36338}#
                                          (vector
                                            'syntax-object
                                            #{x 36338}#
                                            #{w 35016}#
                                            #{mod 35018}#)))))
                                  #{r* 36298}#
                                  #{w* 36299}#
                                  #{mod 35018}#)))
                            #{tmp 36321}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
                            #{body 36296}#))))))))))
         (let ((#{tmp 35026}#
                 ($sc-dispatch #{clauses 35020}# '())))
           (if #{tmp 35026}#
             (@apply
               (lambda () (values '() #f))
               #{tmp 35026}#)
             (let ((#{tmp 35031}#
                     ($sc-dispatch
                       #{clauses 35020}#
                       '((any any . each-any)
                         .
                         #(each (any any . each-any))))))
               (if #{tmp 35031}#
                 (@apply
                   (lambda (#{args 35035}#
                            #{e1 35036}#
                            #{e2 35037}#
                            #{args* 35038}#
                            #{e1* 35039}#
                            #{e2* 35040}#)
                     (call-with-values
                       (lambda ()
                         (#{get-formals 35019}# #{args 35035}#))
                       (lambda (#{req 35041}#
                                #{opt 35042}#
                                #{rest 35043}#
                                #{kw 35044}#)
                         (call-with-values
                           (lambda ()
                             (#{expand-req 35021}#
                               #{req 35041}#
                               #{opt 35042}#
                               #{rest 35043}#
                               #{kw 35044}#
                               (cons #{e1 35036}# #{e2 35037}#)))
                           (lambda (#{meta 35113}#
                                    #{req 35114}#
                                    #{opt 35115}#
                                    #{rest 35116}#
                                    #{kw 35117}#
                                    #{inits 35118}#
                                    #{vars 35119}#
                                    #{body 35120}#)
                             (call-with-values
                               (lambda ()
                                 (#{chi-lambda-case 4385}#
                                   #{e 35014}#
                                   #{r 35015}#
                                   #{w 35016}#
                                   #{s 35017}#
                                   #{mod 35018}#
                                   #{get-formals 35019}#
                                   (map (lambda (#{tmp 2806 35121}#
                                                 #{tmp 2805 35122}#
                                                 #{tmp 2804 35123}#)
                                          (cons #{tmp 2804 35123}#
                                                (cons #{tmp 2805 35122}#
                                                      #{tmp 2806 35121}#)))
                                        #{e2* 35040}#
                                        #{e1* 35039}#
                                        #{args* 35038}#)))
                               (lambda (#{meta* 35124}# #{else* 35125}#)
                                 (values
                                   (append #{meta 35113}# #{meta* 35124}#)
                                   (make-struct/no-tail
                                     (vector-ref %expanded-vtables 15)
                                     #{s 35017}#
                                     #{req 35114}#
                                     #{opt 35115}#
                                     #{rest 35116}#
                                     #{kw 35117}#
                                     #{inits 35118}#
                                     #{vars 35119}#
                                     #{body 35120}#
                                     #{else* 35125}#)))))))))
                   #{tmp 35031}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{clauses 35020}#))))))))
   (#{strip 4386}#
     (lambda (#{x 36439}# #{w 36440}#)
       (if (memq 'top (car #{w 36440}#))
         #{x 36439}#
         (letrec*
           ((#{f 36441}#
              (lambda (#{x 36444}#)
                (if (if (vector? #{x 36444}#)
                      (if (= (vector-length #{x 36444}#) 4)
                        (eq? (vector-ref #{x 36444}# 0) 'syntax-object)
                        #f)
                      #f)
                  (#{strip 4386}#
                    (vector-ref #{x 36444}# 1)
                    (vector-ref #{x 36444}# 2))
                  (if (pair? #{x 36444}#)
                    (let ((#{a 36463}# (#{f 36441}# (car #{x 36444}#)))
                          (#{d 36464}# (#{f 36441}# (cdr #{x 36444}#))))
                      (if (if (eq? #{a 36463}# (car #{x 36444}#))
                            (eq? #{d 36464}# (cdr #{x 36444}#))
                            #f)
                        #{x 36444}#
                        (cons #{a 36463}# #{d 36464}#)))
                    (if (vector? #{x 36444}#)
                      (let ((#{old 36467}# (vector->list #{x 36444}#)))
                        (let ((#{new 36468}# (map #{f 36441}# #{old 36467}#)))
                          (letrec*
                            ((#{lp 36469}#
                               (lambda (#{l1 36566}# #{l2 36567}#)
                                 (if (null? #{l1 36566}#)
                                   #{x 36444}#
                                   (if (eq? (car #{l1 36566}#)
                                            (car #{l2 36567}#))
                                     (#{lp 36469}#
                                       (cdr #{l1 36566}#)
                                       (cdr #{l2 36567}#))
                                     (list->vector #{new 36468}#))))))
                            (#{lp 36469}# #{old 36467}# #{new 36468}#))))
                      #{x 36444}#))))))
           (#{f 36441}# #{x 36439}#)))))
   (#{gen-var 4387}#
     (lambda (#{id 35169}#)
       (let ((#{id 35170}#
               (if (if (vector? #{id 35169}#)
                     (if (= (vector-length #{id 35169}#) 4)
                       (eq? (vector-ref #{id 35169}# 0) 'syntax-object)
                       #f)
                     #f)
                 (vector-ref #{id 35169}# 1)
                 #{id 35169}#)))
         (gensym
           (string-append (symbol->string #{id 35170}#) " ")))))
   (#{lambda-var-list 4388}#
     (lambda (#{vars 36568}#)
       (letrec*
         ((#{lvl 36569}#
            (lambda (#{vars 36572}# #{ls 36573}# #{w 36574}#)
              (if (pair? #{vars 36572}#)
                (#{lvl 36569}#
                  (cdr #{vars 36572}#)
                  (cons (let ((#{x 36578}# (car #{vars 36572}#)))
                          (if (if (null? (car #{w 36574}#))
                                (null? (cdr #{w 36574}#))
                                #f)
                            #{x 36578}#
                            (if (if (vector? #{x 36578}#)
                                  (if (= (vector-length #{x 36578}#) 4)
                                    (eq? (vector-ref #{x 36578}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (let ((#{expression 36596}#
                                      (vector-ref #{x 36578}# 1))
                                    (#{wrap 36597}#
                                      (let ((#{w2 36605}#
                                              (vector-ref #{x 36578}# 2)))
                                        (let ((#{m1 36606}# (car #{w 36574}#))
                                              (#{s1 36607}# (cdr #{w 36574}#)))
                                          (if (null? #{m1 36606}#)
                                            (if (null? #{s1 36607}#)
                                              #{w2 36605}#
                                              (cons (car #{w2 36605}#)
                                                    (let ((#{m2 36622}#
                                                            (cdr #{w2 36605}#)))
                                                      (if (null? #{m2 36622}#)
                                                        #{s1 36607}#
                                                        (append
                                                          #{s1 36607}#
                                                          #{m2 36622}#)))))
                                            (cons (let ((#{m2 36630}#
                                                          (car #{w2 36605}#)))
                                                    (if (null? #{m2 36630}#)
                                                      #{m1 36606}#
                                                      (append
                                                        #{m1 36606}#
                                                        #{m2 36630}#)))
                                                  (let ((#{m2 36638}#
                                                          (cdr #{w2 36605}#)))
                                                    (if (null? #{m2 36638}#)
                                                      #{s1 36607}#
                                                      (append
                                                        #{s1 36607}#
                                                        #{m2 36638}#))))))))
                                    (#{module 36598}#
                                      (vector-ref #{x 36578}# 3)))
                                (vector
                                  'syntax-object
                                  #{expression 36596}#
                                  #{wrap 36597}#
                                  #{module 36598}#))
                              (if (null? #{x 36578}#)
                                #{x 36578}#
                                (vector
                                  'syntax-object
                                  #{x 36578}#
                                  #{w 36574}#
                                  #f)))))
                        #{ls 36573}#)
                  #{w 36574}#)
                (if (if (symbol? #{vars 36572}#)
                      #t
                      (if (if (vector? #{vars 36572}#)
                            (if (= (vector-length #{vars 36572}#) 4)
                              (eq? (vector-ref #{vars 36572}# 0)
                                   'syntax-object)
                              #f)
                            #f)
                        (symbol? (vector-ref #{vars 36572}# 1))
                        #f))
                  (cons (if (if (null? (car #{w 36574}#))
                              (null? (cdr #{w 36574}#))
                              #f)
                          #{vars 36572}#
                          (if (if (vector? #{vars 36572}#)
                                (if (= (vector-length #{vars 36572}#) 4)
                                  (eq? (vector-ref #{vars 36572}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (let ((#{expression 36708}#
                                    (vector-ref #{vars 36572}# 1))
                                  (#{wrap 36709}#
                                    (let ((#{w2 36719}#
                                            (vector-ref #{vars 36572}# 2)))
                                      (let ((#{m1 36720}# (car #{w 36574}#))
                                            (#{s1 36721}# (cdr #{w 36574}#)))
                                        (if (null? #{m1 36720}#)
                                          (if (null? #{s1 36721}#)
                                            #{w2 36719}#
                                            (cons (car #{w2 36719}#)
                                                  (let ((#{m2 36738}#
                                                          (cdr #{w2 36719}#)))
                                                    (if (null? #{m2 36738}#)
                                                      #{s1 36721}#
                                                      (append
                                                        #{s1 36721}#
                                                        #{m2 36738}#)))))
                                          (cons (let ((#{m2 36746}#
                                                        (car #{w2 36719}#)))
                                                  (if (null? #{m2 36746}#)
                                                    #{m1 36720}#
                                                    (append
                                                      #{m1 36720}#
                                                      #{m2 36746}#)))
                                                (let ((#{m2 36754}#
                                                        (cdr #{w2 36719}#)))
                                                  (if (null? #{m2 36754}#)
                                                    #{s1 36721}#
                                                    (append
                                                      #{s1 36721}#
                                                      #{m2 36754}#))))))))
                                  (#{module 36710}#
                                    (vector-ref #{vars 36572}# 3)))
                              (vector
                                'syntax-object
                                #{expression 36708}#
                                #{wrap 36709}#
                                #{module 36710}#))
                            (if (null? #{vars 36572}#)
                              #{vars 36572}#
                              (vector
                                'syntax-object
                                #{vars 36572}#
                                #{w 36574}#
                                #f))))
                        #{ls 36573}#)
                  (if (null? #{vars 36572}#)
                    #{ls 36573}#
                    (if (if (vector? #{vars 36572}#)
                          (if (= (vector-length #{vars 36572}#) 4)
                            (eq? (vector-ref #{vars 36572}# 0)
                                 'syntax-object)
                            #f)
                          #f)
                      (#{lvl 36569}#
                        (vector-ref #{vars 36572}# 1)
                        #{ls 36573}#
                        (let ((#{w2 36795}# (vector-ref #{vars 36572}# 2)))
                          (let ((#{m1 36796}# (car #{w 36574}#))
                                (#{s1 36797}# (cdr #{w 36574}#)))
                            (if (null? #{m1 36796}#)
                              (if (null? #{s1 36797}#)
                                #{w2 36795}#
                                (cons (car #{w2 36795}#)
                                      (let ((#{m2 36808}# (cdr #{w2 36795}#)))
                                        (if (null? #{m2 36808}#)
                                          #{s1 36797}#
                                          (append
                                            #{s1 36797}#
                                            #{m2 36808}#)))))
                              (cons (let ((#{m2 36816}# (car #{w2 36795}#)))
                                      (if (null? #{m2 36816}#)
                                        #{m1 36796}#
                                        (append #{m1 36796}# #{m2 36816}#)))
                                    (let ((#{m2 36824}# (cdr #{w2 36795}#)))
                                      (if (null? #{m2 36824}#)
                                        #{s1 36797}#
                                        (append
                                          #{s1 36797}#
                                          #{m2 36824}#))))))))
                      (cons #{vars 36572}# #{ls 36573}#))))))))
         (#{lvl 36569}# #{vars 36568}# '() '(()))))))
  (begin
    (module-define!
      (current-module)
      'letrec-syntax
      (make-syntax-transformer
        'letrec-syntax
        'local-syntax
        #t))
    (module-define!
      (current-module)
      'let-syntax
      (make-syntax-transformer
        'let-syntax
        'local-syntax
        #f))
    (#{global-extend 4339}#
      'core
      'fluid-let-syntax
      (lambda (#{e 4515}#
               #{r 4516}#
               #{w 4517}#
               #{s 4518}#
               #{mod 4519}#)
        (let ((#{tmp 4521}#
                ($sc-dispatch
                  #{e 4515}#
                  '(_ #(each (any any)) any . each-any))))
          (if (if #{tmp 4521}#
                (@apply
                  (lambda (#{var 4525}#
                           #{val 4526}#
                           #{e1 4527}#
                           #{e2 4528}#)
                    (#{valid-bound-ids? 4363}# #{var 4525}#))
                  #{tmp 4521}#)
                #f)
            (@apply
              (lambda (#{var 4613}#
                       #{val 4614}#
                       #{e1 4615}#
                       #{e2 4616}#)
                (let ((#{names 4617}#
                        (map (lambda (#{x 4883}#)
                               (#{id-var-name 4360}# #{x 4883}# #{w 4517}#))
                             #{var 4613}#)))
                  (begin
                    (for-each
                      (lambda (#{id 4618}# #{n 4619}#)
                        (let ((#{atom-key 4620}#
                                (car (let ((#{t 4820}#
                                             (assq #{n 4619}# #{r 4516}#)))
                                       (if #{t 4820}#
                                         (cdr #{t 4820}#)
                                         (if (symbol? #{n 4619}#)
                                           (let ((#{t 4825}#
                                                   (begin
                                                     (if (if (not #{mod 4519}#)
                                                           (current-module)
                                                           #f)
                                                       (warn "module system is booted, we should have a module"
                                                             #{n 4619}#))
                                                     (let ((#{v 4862}#
                                                             (module-variable
                                                               (if #{mod 4519}#
                                                                 (resolve-module
                                                                   (cdr #{mod 4519}#))
                                                                 (current-module))
                                                               #{n 4619}#)))
                                                       (if #{v 4862}#
                                                         (if (variable-bound?
                                                               #{v 4862}#)
                                                           (let ((#{val 4871}#
                                                                   (variable-ref
                                                                     #{v 4862}#)))
                                                             (if (macro?
                                                                   #{val 4871}#)
                                                               (if (macro-type
                                                                     #{val 4871}#)
                                                                 (cons (macro-type
                                                                         #{val 4871}#)
                                                                       (macro-binding
                                                                         #{val 4871}#))
                                                                 #f)
                                                               #f))
                                                           #f)
                                                         #f)))))
                                             (if #{t 4825}#
                                               #{t 4825}#
                                               '(global)))
                                           '(displaced-lexical)))))))
                          (if (let ((#{t 4653}# #{atom-key 4620}#))
                                (eqv? #{t 4653}# 'displaced-lexical))
                            (syntax-violation
                              'fluid-let-syntax
                              "identifier out of context"
                              #{e 4515}#
                              (let ((#{x 4725}#
                                      (begin
                                        (if (if (pair? #{id 4618}#)
                                              #{s 4518}#
                                              #f)
                                          (set-source-properties!
                                            #{id 4618}#
                                            #{s 4518}#))
                                        #{id 4618}#)))
                                (if (if (null? (car #{w 4517}#))
                                      (null? (cdr #{w 4517}#))
                                      #f)
                                  #{x 4725}#
                                  (if (if (vector? #{x 4725}#)
                                        (if (= (vector-length #{x 4725}#) 4)
                                          (eq? (vector-ref #{x 4725}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (let ((#{expression 4757}#
                                            (vector-ref #{x 4725}# 1))
                                          (#{wrap 4758}#
                                            (let ((#{w2 4766}#
                                                    (vector-ref #{x 4725}# 2)))
                                              (let ((#{m1 4767}#
                                                      (car #{w 4517}#))
                                                    (#{s1 4768}#
                                                      (cdr #{w 4517}#)))
                                                (if (null? #{m1 4767}#)
                                                  (if (null? #{s1 4768}#)
                                                    #{w2 4766}#
                                                    (cons (car #{w2 4766}#)
                                                          (let ((#{m2 4783}#
                                                                  (cdr #{w2 4766}#)))
                                                            (if (null? #{m2 4783}#)
                                                              #{s1 4768}#
                                                              (append
                                                                #{s1 4768}#
                                                                #{m2 4783}#)))))
                                                  (cons (let ((#{m2 4791}#
                                                                (car #{w2 4766}#)))
                                                          (if (null? #{m2 4791}#)
                                                            #{m1 4767}#
                                                            (append
                                                              #{m1 4767}#
                                                              #{m2 4791}#)))
                                                        (let ((#{m2 4799}#
                                                                (cdr #{w2 4766}#)))
                                                          (if (null? #{m2 4799}#)
                                                            #{s1 4768}#
                                                            (append
                                                              #{s1 4768}#
                                                              #{m2 4799}#))))))))
                                          (#{module 4759}#
                                            (vector-ref #{x 4725}# 3)))
                                      (vector
                                        'syntax-object
                                        #{expression 4757}#
                                        #{wrap 4758}#
                                        #{module 4759}#))
                                    (if (null? #{x 4725}#)
                                      #{x 4725}#
                                      (vector
                                        'syntax-object
                                        #{x 4725}#
                                        #{w 4517}#
                                        #{mod 4519}#)))))))))
                      #{var 4613}#
                      #{names 4617}#)
                    (#{chi-body 4377}#
                      (cons #{e1 4615}# #{e2 4616}#)
                      (let ((#{x 4896}#
                              (begin
                                (if (if (pair? #{e 4515}#) #{s 4518}# #f)
                                  (set-source-properties!
                                    #{e 4515}#
                                    #{s 4518}#))
                                #{e 4515}#)))
                        (if (if (null? (car #{w 4517}#))
                              (null? (cdr #{w 4517}#))
                              #f)
                          #{x 4896}#
                          (if (if (vector? #{x 4896}#)
                                (if (= (vector-length #{x 4896}#) 4)
                                  (eq? (vector-ref #{x 4896}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (let ((#{expression 4928}#
                                    (vector-ref #{x 4896}# 1))
                                  (#{wrap 4929}#
                                    (let ((#{w2 4937}#
                                            (vector-ref #{x 4896}# 2)))
                                      (let ((#{m1 4938}# (car #{w 4517}#))
                                            (#{s1 4939}# (cdr #{w 4517}#)))
                                        (if (null? #{m1 4938}#)
                                          (if (null? #{s1 4939}#)
                                            #{w2 4937}#
                                            (cons (car #{w2 4937}#)
                                                  (let ((#{m2 4954}#
                                                          (cdr #{w2 4937}#)))
                                                    (if (null? #{m2 4954}#)
                                                      #{s1 4939}#
                                                      (append
                                                        #{s1 4939}#
                                                        #{m2 4954}#)))))
                                          (cons (let ((#{m2 4962}#
                                                        (car #{w2 4937}#)))
                                                  (if (null? #{m2 4962}#)
                                                    #{m1 4938}#
                                                    (append
                                                      #{m1 4938}#
                                                      #{m2 4962}#)))
                                                (let ((#{m2 4970}#
                                                        (cdr #{w2 4937}#)))
                                                  (if (null? #{m2 4970}#)
                                                    #{s1 4939}#
                                                    (append
                                                      #{s1 4939}#
                                                      #{m2 4970}#))))))))
                                  (#{module 4930}# (vector-ref #{x 4896}# 3)))
                              (vector
                                'syntax-object
                                #{expression 4928}#
                                #{wrap 4929}#
                                #{module 4930}#))
                            (if (null? #{x 4896}#)
                              #{x 4896}#
                              (vector
                                'syntax-object
                                #{x 4896}#
                                #{w 4517}#
                                #{mod 4519}#)))))
                      (#{extend-env 4335}#
                        #{names 4617}#
                        (let ((#{trans-r 5048}#
                                (#{macros-only-env 4337}# #{r 4516}#)))
                          (map (lambda (#{x 5049}#)
                                 (cons 'macro
                                       (#{eval-local-transformer 4379}#
                                         (#{chi 4373}#
                                           #{x 5049}#
                                           #{trans-r 5048}#
                                           #{w 4517}#
                                           #{mod 4519}#)
                                         #{mod 4519}#)))
                               #{val 4614}#))
                        #{r 4516}#)
                      #{w 4517}#
                      #{mod 4519}#))))
              #{tmp 4521}#)
            (syntax-violation
              'fluid-let-syntax
              "bad syntax"
              (let ((#{x 5265}#
                      (begin
                        (if (if (pair? #{e 4515}#) #{s 4518}# #f)
                          (set-source-properties! #{e 4515}# #{s 4518}#))
                        #{e 4515}#)))
                (if (if (null? (car #{w 4517}#))
                      (null? (cdr #{w 4517}#))
                      #f)
                  #{x 5265}#
                  (if (if (vector? #{x 5265}#)
                        (if (= (vector-length #{x 5265}#) 4)
                          (eq? (vector-ref #{x 5265}# 0) 'syntax-object)
                          #f)
                        #f)
                    (let ((#{expression 5297}# (vector-ref #{x 5265}# 1))
                          (#{wrap 5298}#
                            (let ((#{w2 5306}# (vector-ref #{x 5265}# 2)))
                              (let ((#{m1 5307}# (car #{w 4517}#))
                                    (#{s1 5308}# (cdr #{w 4517}#)))
                                (if (null? #{m1 5307}#)
                                  (if (null? #{s1 5308}#)
                                    #{w2 5306}#
                                    (cons (car #{w2 5306}#)
                                          (let ((#{m2 5323}#
                                                  (cdr #{w2 5306}#)))
                                            (if (null? #{m2 5323}#)
                                              #{s1 5308}#
                                              (append
                                                #{s1 5308}#
                                                #{m2 5323}#)))))
                                  (cons (let ((#{m2 5331}# (car #{w2 5306}#)))
                                          (if (null? #{m2 5331}#)
                                            #{m1 5307}#
                                            (append #{m1 5307}# #{m2 5331}#)))
                                        (let ((#{m2 5339}# (cdr #{w2 5306}#)))
                                          (if (null? #{m2 5339}#)
                                            #{s1 5308}#
                                            (append
                                              #{s1 5308}#
                                              #{m2 5339}#))))))))
                          (#{module 5299}# (vector-ref #{x 5265}# 3)))
                      (vector
                        'syntax-object
                        #{expression 5297}#
                        #{wrap 5298}#
                        #{module 5299}#))
                    (if (null? #{x 5265}#)
                      #{x 5265}#
                      (vector
                        'syntax-object
                        #{x 5265}#
                        #{w 4517}#
                        #{mod 4519}#))))))))))
    (module-define!
      (current-module)
      'quote
      (make-syntax-transformer
        'quote
        'core
        (lambda (#{e 5367}#
                 #{r 5368}#
                 #{w 5369}#
                 #{s 5370}#
                 #{mod 5371}#)
          (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any))))
            (if #{tmp 5373}#
              (@apply
                (lambda (#{e 5376}#)
                  (let ((#{exp 5380}#
                          (#{strip 4386}# #{e 5376}# #{w 5369}#)))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 1)
                      #{s 5370}#
                      #{exp 5380}#)))
                #{tmp 5373}#)
              (syntax-violation
                'quote
                "bad syntax"
                (let ((#{x 5394}#
                        (begin
                          (if (if (pair? #{e 5367}#) #{s 5370}# #f)
                            (set-source-properties! #{e 5367}# #{s 5370}#))
                          #{e 5367}#)))
                  (if (if (null? (car #{w 5369}#))
                        (null? (cdr #{w 5369}#))
                        #f)
                    #{x 5394}#
                    (if (if (vector? #{x 5394}#)
                          (if (= (vector-length #{x 5394}#) 4)
                            (eq? (vector-ref #{x 5394}# 0) 'syntax-object)
                            #f)
                          #f)
                      (let ((#{expression 5426}# (vector-ref #{x 5394}# 1))
                            (#{wrap 5427}#
                              (let ((#{w2 5435}# (vector-ref #{x 5394}# 2)))
                                (let ((#{m1 5436}# (car #{w 5369}#))
                                      (#{s1 5437}# (cdr #{w 5369}#)))
                                  (if (null? #{m1 5436}#)
                                    (if (null? #{s1 5437}#)
                                      #{w2 5435}#
                                      (cons (car #{w2 5435}#)
                                            (let ((#{m2 5452}#
                                                    (cdr #{w2 5435}#)))
                                              (if (null? #{m2 5452}#)
                                                #{s1 5437}#
                                                (append
                                                  #{s1 5437}#
                                                  #{m2 5452}#)))))
                                    (cons (let ((#{m2 5460}#
                                                  (car #{w2 5435}#)))
                                            (if (null? #{m2 5460}#)
                                              #{m1 5436}#
                                              (append
                                                #{m1 5436}#
                                                #{m2 5460}#)))
                                          (let ((#{m2 5468}#
                                                  (cdr #{w2 5435}#)))
                                            (if (null? #{m2 5468}#)
                                              #{s1 5437}#
                                              (append
                                                #{s1 5437}#
                                                #{m2 5468}#))))))))
                            (#{module 5428}# (vector-ref #{x 5394}# 3)))
                        (vector
                          'syntax-object
                          #{expression 5426}#
                          #{wrap 5427}#
                          #{module 5428}#))
                      (if (null? #{x 5394}#)
                        #{x 5394}#
                        (vector
                          'syntax-object
                          #{x 5394}#
                          #{w 5369}#
                          #{mod 5371}#)))))))))))
    (#{global-extend 4339}#
      'core
      'syntax
      (letrec*
        ((#{gen-syntax 5708}#
           (lambda (#{src 6171}#
                    #{e 6172}#
                    #{r 6173}#
                    #{maps 6174}#
                    #{ellipsis? 6175}#
                    #{mod 6176}#)
             (if (if (symbol? #{e 6172}#)
                   #t
                   (if (if (vector? #{e 6172}#)
                         (if (= (vector-length #{e 6172}#) 4)
                           (eq? (vector-ref #{e 6172}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{e 6172}# 1))
                     #f))
               (let ((#{label 6203}#
                       (#{id-var-name 4360}# #{e 6172}# '(()))))
                 (let ((#{b 6204}#
                         (let ((#{t 6341}# (assq #{label 6203}# #{r 6173}#)))
                           (if #{t 6341}#
                             (cdr #{t 6341}#)
                             (if (symbol? #{label 6203}#)
                               (let ((#{t 6346}#
                                       (begin
                                         (if (if (not #{mod 6176}#)
                                               (current-module)
                                               #f)
                                           (warn "module system is booted, we should have a module"
                                                 #{label 6203}#))
                                         (let ((#{v 6383}#
                                                 (module-variable
                                                   (if #{mod 6176}#
                                                     (resolve-module
                                                       (cdr #{mod 6176}#))
                                                     (current-module))
                                                   #{label 6203}#)))
                                           (if #{v 6383}#
                                             (if (variable-bound? #{v 6383}#)
                                               (let ((#{val 6392}#
                                                       (variable-ref
                                                         #{v 6383}#)))
                                                 (if (macro? #{val 6392}#)
                                                   (if (macro-type
                                                         #{val 6392}#)
                                                     (cons (macro-type
                                                             #{val 6392}#)
                                                           (macro-binding
                                                             #{val 6392}#))
                                                     #f)
                                                   #f))
                                               #f)
                                             #f)))))
                                 (if #{t 6346}# #{t 6346}# '(global)))
                               '(displaced-lexical))))))
                   (if (eq? (car #{b 6204}#) 'syntax)
                     (call-with-values
                       (lambda ()
                         (let ((#{var.lev 6237}# (cdr #{b 6204}#)))
                           (#{gen-ref 5709}#
                             #{src 6171}#
                             (car #{var.lev 6237}#)
                             (cdr #{var.lev 6237}#)
                             #{maps 6174}#)))
                       (lambda (#{var 6333}# #{maps 6334}#)
                         (values (list 'ref #{var 6333}#) #{maps 6334}#)))
                     (if (#{ellipsis? 6175}# #{e 6172}#)
                       (syntax-violation
                         'syntax
                         "misplaced ellipsis"
                         #{src 6171}#)
                       (values (list 'quote #{e 6172}#) #{maps 6174}#)))))
               (let ((#{tmp 6404}#
                       ($sc-dispatch #{e 6172}# '(any any))))
                 (if (if #{tmp 6404}#
                       (@apply
                         (lambda (#{dots 6408}# #{e 6409}#)
                           (#{ellipsis? 6175}# #{dots 6408}#))
                         #{tmp 6404}#)
                       #f)
                   (@apply
                     (lambda (#{dots 6410}# #{e 6411}#)
                       (#{gen-syntax 5708}#
                         #{src 6171}#
                         #{e 6411}#
                         #{r 6173}#
                         #{maps 6174}#
                         (lambda (#{x 6412}#) #f)
                         #{mod 6176}#))
                     #{tmp 6404}#)
                   (let ((#{tmp 6413}#
                           ($sc-dispatch #{e 6172}# '(any any . any))))
                     (if (if #{tmp 6413}#
                           (@apply
                             (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
                               (#{ellipsis? 6175}# #{dots 6418}#))
                             #{tmp 6413}#)
                           #f)
                       (@apply
                         (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
                           (letrec*
                             ((#{f 6423}#
                                (lambda (#{y 6431}# #{k 6432}#)
                                  (let ((#{tmp 6434}#
                                          ($sc-dispatch
                                            #{y 6431}#
                                            '(any . any))))
                                    (if (if #{tmp 6434}#
                                          (@apply
                                            (lambda (#{dots 6438}# #{y 6439}#)
                                              (#{ellipsis? 6175}#
                                                #{dots 6438}#))
                                            #{tmp 6434}#)
                                          #f)
                                      (@apply
                                        (lambda (#{dots 6440}# #{y 6441}#)
                                          (#{f 6423}#
                                            #{y 6441}#
                                            (lambda (#{maps 6442}#)
                                              (call-with-values
                                                (lambda ()
                                                  (#{k 6432}#
                                                    (cons '() #{maps 6442}#)))
                                                (lambda (#{x 6443}#
                                                         #{maps 6444}#)
                                                  (if (null? (car #{maps 6444}#))
                                                    (syntax-violation
                                                      'syntax
                                                      "extra ellipsis"
                                                      #{src 6171}#)
                                                    (values
                                                      (let ((#{map-env 6448}#
                                                              (car #{maps 6444}#)))
                                                        (list 'apply
                                                              '(primitive
                                                                 append)
                                                              (#{gen-map 5711}#
                                                                #{x 6443}#
                                                                #{map-env 6448}#)))
                                                      (cdr #{maps 6444}#))))))))
                                        #{tmp 6434}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{gen-syntax 5708}#
                                            #{src 6171}#
                                            #{y 6431}#
                                            #{r 6173}#
                                            #{maps 6174}#
                                            #{ellipsis? 6175}#
                                            #{mod 6176}#))
                                        (lambda (#{y 6451}# #{maps 6452}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{k 6432}# #{maps 6452}#))
                                            (lambda (#{x 6453}# #{maps 6454}#)
                                              (values
                                                (if (equal? #{y 6451}# ''())
                                                  #{x 6453}#
                                                  (list 'append
                                                        #{x 6453}#
                                                        #{y 6451}#))
                                                #{maps 6454}#))))))))))
                             (#{f 6423}#
                               #{y 6422}#
                               (lambda (#{maps 6426}#)
                                 (call-with-values
                                   (lambda ()
                                     (#{gen-syntax 5708}#
                                       #{src 6171}#
                                       #{x 6420}#
                                       #{r 6173}#
                                       (cons '() #{maps 6426}#)
                                       #{ellipsis? 6175}#
                                       #{mod 6176}#))
                                   (lambda (#{x 6427}# #{maps 6428}#)
                                     (if (null? (car #{maps 6428}#))
                                       (syntax-violation
                                         'syntax
                                         "extra ellipsis"
                                         #{src 6171}#)
                                       (values
                                         (#{gen-map 5711}#
                                           #{x 6427}#
                                           (car #{maps 6428}#))
                                         (cdr #{maps 6428}#)))))))))
                         #{tmp 6413}#)
                       (let ((#{tmp 6470}#
                               ($sc-dispatch #{e 6172}# '(any . any))))
                         (if #{tmp 6470}#
                           (@apply
                             (lambda (#{x 6474}# #{y 6475}#)
                               (call-with-values
                                 (lambda ()
                                   (#{gen-syntax 5708}#
                                     #{src 6171}#
                                     #{x 6474}#
                                     #{r 6173}#
                                     #{maps 6174}#
                                     #{ellipsis? 6175}#
                                     #{mod 6176}#))
                                 (lambda (#{x 6476}# #{maps 6477}#)
                                   (call-with-values
                                     (lambda ()
                                       (#{gen-syntax 5708}#
                                         #{src 6171}#
                                         #{y 6475}#
                                         #{r 6173}#
                                         #{maps 6477}#
                                         #{ellipsis? 6175}#
                                         #{mod 6176}#))
                                     (lambda (#{y 6478}# #{maps 6479}#)
                                       (values
                                         (let ((#{atom-key 6484}#
                                                 (car #{y 6478}#)))
                                           (if (eqv? #{atom-key 6484}# 'quote)
                                             (if (eq? (car #{x 6476}#) 'quote)
                                               (list 'quote
                                                     (cons (car (cdr #{x 6476}#))
                                                           (car (cdr #{y 6478}#))))
                                               (if (eq? (car (cdr #{y 6478}#))
                                                        '())
                                                 (list 'list #{x 6476}#)
                                                 (list 'cons
                                                       #{x 6476}#
                                                       #{y 6478}#)))
                                             (if (eqv? #{atom-key 6484}# 'list)
                                               (cons 'list
                                                     (cons #{x 6476}#
                                                           (cdr #{y 6478}#)))
                                               (list 'cons
                                                     #{x 6476}#
                                                     #{y 6478}#))))
                                         #{maps 6479}#))))))
                             #{tmp 6470}#)
                           (let ((#{tmp 6513}#
                                   ($sc-dispatch
                                     #{e 6172}#
                                     '#(vector (any . each-any)))))
                             (if #{tmp 6513}#
                               (@apply
                                 (lambda (#{e1 6517}# #{e2 6518}#)
                                   (call-with-values
                                     (lambda ()
                                       (#{gen-syntax 5708}#
                                         #{src 6171}#
                                         (cons #{e1 6517}# #{e2 6518}#)
                                         #{r 6173}#
                                         #{maps 6174}#
                                         #{ellipsis? 6175}#
                                         #{mod 6176}#))
                                     (lambda (#{e 6519}# #{maps 6520}#)
                                       (values
                                         (if (eq? (car #{e 6519}#) 'list)
                                           (cons 'vector (cdr #{e 6519}#))
                                           (if (eq? (car #{e 6519}#) 'quote)
                                             (list 'quote
                                                   (list->vector
                                                     (car (cdr #{e 6519}#))))
                                             (list 'list->vector #{e 6519}#)))
                                         #{maps 6520}#))))
                                 #{tmp 6513}#)
                               (values
                                 (list 'quote #{e 6172}#)
                                 #{maps 6174}#))))))))))))
         (#{gen-ref 5709}#
           (lambda (#{src 6547}#
                    #{var 6548}#
                    #{level 6549}#
                    #{maps 6550}#)
             (if (= #{level 6549}# 0)
               (values #{var 6548}# #{maps 6550}#)
               (if (null? #{maps 6550}#)
                 (syntax-violation
                   'syntax
                   "missing ellipsis"
                   #{src 6547}#)
                 (call-with-values
                   (lambda ()
                     (#{gen-ref 5709}#
                       #{src 6547}#
                       #{var 6548}#
                       (#{1-}# #{level 6549}#)
                       (cdr #{maps 6550}#)))
                   (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
                     (let ((#{b 6553}#
                             (assq #{outer-var 6551}# (car #{maps 6550}#))))
                       (if #{b 6553}#
                         (values (cdr #{b 6553}#) #{maps 6550}#)
                         (let ((#{inner-var 6555}#
                                 (gensym
                                   (string-append (symbol->string 'tmp) " "))))
                           (values
                             #{inner-var 6555}#
                             (cons (cons (cons #{outer-var 6551}#
                                               #{inner-var 6555}#)
                                         (car #{maps 6550}#))
                                   #{outer-maps 6552}#)))))))))))
         (#{gen-map 5711}#
           (lambda (#{e 6569}# #{map-env 6570}#)
             (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
                   (#{actuals 6572}#
                     (map (lambda (#{x 6574}#)
                            (list 'ref (car #{x 6574}#)))
                          #{map-env 6570}#)))
               (if (eq? (car #{e 6569}#) 'ref)
                 (car #{actuals 6572}#)
                 (if (and-map
                       (lambda (#{x 6575}#)
                         (if (eq? (car #{x 6575}#) 'ref)
                           (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
                           #f))
                       (cdr #{e 6569}#))
                   (cons 'map
                         (cons (list 'primitive (car #{e 6569}#))
                               (map (let ((#{r 6577}#
                                            (map cons
                                                 #{formals 6571}#
                                                 #{actuals 6572}#)))
                                      (lambda (#{x 6578}#)
                                        (cdr (assq (car (cdr #{x 6578}#))
                                                   #{r 6577}#))))
                                    (cdr #{e 6569}#))))
                   (cons 'map
                         (cons (list 'lambda #{formals 6571}# #{e 6569}#)
                               #{actuals 6572}#)))))))
         (#{regen 5715}#
           (lambda (#{x 6580}#)
             (let ((#{atom-key 6581}# (car #{x 6580}#)))
               (if (eqv? #{atom-key 6581}# 'ref)
                 (let ((#{name 6591}# (car (cdr #{x 6580}#)))
                       (#{var 6592}# (car (cdr #{x 6580}#))))
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 3)
                     #f
                     #{name 6591}#
                     #{var 6592}#))
                 (if (eqv? #{atom-key 6581}# 'primitive)
                   (let ((#{name 6603}# (car (cdr #{x 6580}#))))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 2)
                       #f
                       #{name 6603}#))
                   (if (eqv? #{atom-key 6581}# 'quote)
                     (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
                       (make-struct/no-tail
                         (vector-ref %expanded-vtables 1)
                         #f
                         #{exp 6614}#))
                     (if (eqv? #{atom-key 6581}# 'lambda)
                       (if (list? (car (cdr #{x 6580}#)))
                         (let ((#{req 6625}# (car (cdr #{x 6580}#)))
                               (#{vars 6627}# (car (cdr #{x 6580}#)))
                               (#{exp 6629}#
                                 (#{regen 5715}#
                                   (car (cdr (cdr #{x 6580}#))))))
                           (let ((#{body 6634}#
                                   (make-struct/no-tail
                                     (vector-ref %expanded-vtables 15)
                                     #f
                                     #{req 6625}#
                                     #f
                                     #f
                                     #f
                                     '()
                                     #{vars 6627}#
                                     #{exp 6629}#
                                     #f)))
                             (make-struct/no-tail
                               (vector-ref %expanded-vtables 14)
                               #f
                               '()
                               #{body 6634}#)))
                         (error "how did we get here" #{x 6580}#))
                       (let ((#{name 6650}# (car #{x 6580}#))
                             (#{args 6651}#
                               (map #{regen 5715}# (cdr #{x 6580}#))))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 12)
                           #f
                           #{name 6650}#
                           #{args 6651}#))))))))))
        (lambda (#{e 5716}#
                 #{r 5717}#
                 #{w 5718}#
                 #{s 5719}#
                 #{mod 5720}#)
          (let ((#{e 5721}#
                  (let ((#{x 6082}#
                          (begin
                            (if (if (pair? #{e 5716}#) #{s 5719}# #f)
                              (set-source-properties! #{e 5716}# #{s 5719}#))
                            #{e 5716}#)))
                    (if (if (null? (car #{w 5718}#))
                          (null? (cdr #{w 5718}#))
                          #f)
                      #{x 6082}#
                      (if (if (vector? #{x 6082}#)
                            (if (= (vector-length #{x 6082}#) 4)
                              (eq? (vector-ref #{x 6082}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 6114}# (vector-ref #{x 6082}# 1))
                              (#{wrap 6115}#
                                (let ((#{w2 6123}# (vector-ref #{x 6082}# 2)))
                                  (let ((#{m1 6124}# (car #{w 5718}#))
                                        (#{s1 6125}# (cdr #{w 5718}#)))
                                    (if (null? #{m1 6124}#)
                                      (if (null? #{s1 6125}#)
                                        #{w2 6123}#
                                        (cons (car #{w2 6123}#)
                                              (let ((#{m2 6140}#
                                                      (cdr #{w2 6123}#)))
                                                (if (null? #{m2 6140}#)
                                                  #{s1 6125}#
                                                  (append
                                                    #{s1 6125}#
                                                    #{m2 6140}#)))))
                                      (cons (let ((#{m2 6148}#
                                                    (car #{w2 6123}#)))
                                              (if (null? #{m2 6148}#)
                                                #{m1 6124}#
                                                (append
                                                  #{m1 6124}#
                                                  #{m2 6148}#)))
                                            (let ((#{m2 6156}#
                                                    (cdr #{w2 6123}#)))
                                              (if (null? #{m2 6156}#)
                                                #{s1 6125}#
                                                (append
                                                  #{s1 6125}#
                                                  #{m2 6156}#))))))))
                              (#{module 6116}# (vector-ref #{x 6082}# 3)))
                          (vector
                            'syntax-object
                            #{expression 6114}#
                            #{wrap 6115}#
                            #{module 6116}#))
                        (if (null? #{x 6082}#)
                          #{x 6082}#
                          (vector
                            'syntax-object
                            #{x 6082}#
                            #{w 5718}#
                            #{mod 5720}#)))))))
            (let ((#{tmp 5722}# #{e 5721}#))
              (let ((#{tmp 5723}#
                      ($sc-dispatch #{tmp 5722}# '(_ any))))
                (if #{tmp 5723}#
                  (@apply
                    (lambda (#{x 5775}#)
                      (call-with-values
                        (lambda ()
                          (#{gen-syntax 5708}#
                            #{e 5721}#
                            #{x 5775}#
                            #{r 5717}#
                            '()
                            #{ellipsis? 4381}#
                            #{mod 5720}#))
                        (lambda (#{e 5858}# #{maps 5859}#)
                          (#{regen 5715}# #{e 5858}#))))
                    #{tmp 5723}#)
                  (syntax-violation
                    'syntax
                    "bad `syntax' form"
                    #{e 5721}#))))))))
    (#{global-extend 4339}#
      'core
      'lambda
      (lambda (#{e 6887}#
               #{r 6888}#
               #{w 6889}#
               #{s 6890}#
               #{mod 6891}#)
        (let ((#{tmp 6893}#
                ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
          (if #{tmp 6893}#
            (@apply
              (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
                (call-with-values
                  (lambda ()
                    (#{lambda-formals 4382}# #{args 6897}#))
                  (lambda (#{req 6902}#
                           #{opt 6903}#
                           #{rest 6904}#
                           #{kw 6905}#)
                    (letrec*
                      ((#{lp 6906}#
                         (lambda (#{body 6909}# #{meta 6910}#)
                           (let ((#{tmp 6912}#
                                   ($sc-dispatch
                                     #{body 6909}#
                                     '(any any . each-any))))
                             (if (if #{tmp 6912}#
                                   (@apply
                                     (lambda (#{docstring 6916}#
                                              #{e1 6917}#
                                              #{e2 6918}#)
                                       (string?
                                         (syntax->datum #{docstring 6916}#)))
                                     #{tmp 6912}#)
                                   #f)
                               (@apply
                                 (lambda (#{docstring 6919}#
                                          #{e1 6920}#
                                          #{e2 6921}#)
                                   (#{lp 6906}#
                                     (cons #{e1 6920}# #{e2 6921}#)
                                     (append
                                       #{meta 6910}#
                                       (list (cons 'documentation
                                                   (syntax->datum
                                                     #{docstring 6919}#))))))
                                 #{tmp 6912}#)
                               (let ((#{tmp 6922}#
                                       ($sc-dispatch
                                         #{body 6909}#
                                         '(#(vector #(each (any . any)))
                                           any
                                           .
                                           each-any))))
                                 (if #{tmp 6922}#
                                   (@apply
                                     (lambda (#{k 6926}#
                                              #{v 6927}#
                                              #{e1 6928}#
                                              #{e2 6929}#)
                                       (#{lp 6906}#
                                         (cons #{e1 6928}# #{e2 6929}#)
                                         (append
                                           #{meta 6910}#
                                           (syntax->datum
                                             (map cons
                                                  #{k 6926}#
                                                  #{v 6927}#)))))
                                     #{tmp 6922}#)
                                   (#{chi-simple-lambda 4383}#
                                     #{e 6887}#
                                     #{r 6888}#
                                     #{w 6889}#
                                     #{s 6890}#
                                     #{mod 6891}#
                                     #{req 6902}#
                                     #{rest 6904}#
                                     #{meta 6910}#
                                     #{body 6909}#))))))))
                      (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
              #{tmp 6893}#)
            (syntax-violation
              'lambda
              "bad lambda"
              #{e 6887}#)))))
    (#{global-extend 4339}#
      'core
      'lambda*
      (lambda (#{e 7313}#
               #{r 7314}#
               #{w 7315}#
               #{s 7316}#
               #{mod 7317}#)
        (let ((#{tmp 7319}#
                ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
          (if #{tmp 7319}#
            (@apply
              (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
                (call-with-values
                  (lambda ()
                    (#{chi-lambda-case 4385}#
                      #{e 7313}#
                      #{r 7314}#
                      #{w 7315}#
                      #{s 7316}#
                      #{mod 7317}#
                      #{lambda*-formals 4384}#
                      (list (cons #{args 7323}#
                                  (cons #{e1 7324}# #{e2 7325}#)))))
                  (lambda (#{meta 7328}# #{lcase 7329}#)
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 14)
                      #{s 7316}#
                      #{meta 7328}#
                      #{lcase 7329}#))))
              #{tmp 7319}#)
            (syntax-violation
              'lambda
              "bad lambda*"
              #{e 7313}#)))))
    (#{global-extend 4339}#
      'core
      'case-lambda
      (lambda (#{e 7492}#
               #{r 7493}#
               #{w 7494}#
               #{s 7495}#
               #{mod 7496}#)
        (let ((#{tmp 7498}#
                ($sc-dispatch
                  #{e 7492}#
                  '(_ (any any . each-any)
                      .
                      #(each (any any . each-any))))))
          (if #{tmp 7498}#
            (@apply
              (lambda (#{args 7502}#
                       #{e1 7503}#
                       #{e2 7504}#
                       #{args* 7505}#
                       #{e1* 7506}#
                       #{e2* 7507}#)
                (call-with-values
                  (lambda ()
                    (#{chi-lambda-case 4385}#
                      #{e 7492}#
                      #{r 7493}#
                      #{w 7494}#
                      #{s 7495}#
                      #{mod 7496}#
                      #{lambda-formals 4382}#
                      (cons (cons #{args 7502}#
                                  (cons #{e1 7503}# #{e2 7504}#))
                            (map (lambda (#{tmp 3304 7510}#
                                          #{tmp 3303 7511}#
                                          #{tmp 3302 7512}#)
                                   (cons #{tmp 3302 7512}#
                                         (cons #{tmp 3303 7511}#
                                               #{tmp 3304 7510}#)))
                                 #{e2* 7507}#
                                 #{e1* 7506}#
                                 #{args* 7505}#))))
                  (lambda (#{meta 7513}# #{lcase 7514}#)
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 14)
                      #{s 7495}#
                      #{meta 7513}#
                      #{lcase 7514}#))))
              #{tmp 7498}#)
            (syntax-violation
              'case-lambda
              "bad case-lambda"
              #{e 7492}#)))))
    (#{global-extend 4339}#
      'core
      'case-lambda*
      (lambda (#{e 7683}#
               #{r 7684}#
               #{w 7685}#
               #{s 7686}#
               #{mod 7687}#)
        (let ((#{tmp 7689}#
                ($sc-dispatch
                  #{e 7683}#
                  '(_ (any any . each-any)
                      .
                      #(each (any any . each-any))))))
          (if #{tmp 7689}#
            (@apply
              (lambda (#{args 7693}#
                       #{e1 7694}#
                       #{e2 7695}#
                       #{args* 7696}#
                       #{e1* 7697}#
                       #{e2* 7698}#)
                (call-with-values
                  (lambda ()
                    (#{chi-lambda-case 4385}#
                      #{e 7683}#
                      #{r 7684}#
                      #{w 7685}#
                      #{s 7686}#
                      #{mod 7687}#
                      #{lambda*-formals 4384}#
                      (cons (cons #{args 7693}#
                                  (cons #{e1 7694}# #{e2 7695}#))
                            (map (lambda (#{tmp 3339 7701}#
                                          #{tmp 3338 7702}#
                                          #{tmp 3337 7703}#)
                                   (cons #{tmp 3337 7703}#
                                         (cons #{tmp 3338 7702}#
                                               #{tmp 3339 7701}#)))
                                 #{e2* 7698}#
                                 #{e1* 7697}#
                                 #{args* 7696}#))))
                  (lambda (#{meta 7704}# #{lcase 7705}#)
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 14)
                      #{s 7686}#
                      #{meta 7704}#
                      #{lcase 7705}#))))
              #{tmp 7689}#)
            (syntax-violation
              'case-lambda
              "bad case-lambda*"
              #{e 7683}#)))))
    (#{global-extend 4339}#
      'core
      'let
      (letrec*
        ((#{chi-let 7914}#
           (lambda (#{e 8124}#
                    #{r 8125}#
                    #{w 8126}#
                    #{s 8127}#
                    #{mod 8128}#
                    #{constructor 8129}#
                    #{ids 8130}#
                    #{vals 8131}#
                    #{exps 8132}#)
             (if (not (#{valid-bound-ids? 4363}# #{ids 8130}#))
               (syntax-violation
                 'let
                 "duplicate bound variable"
                 #{e 8124}#)
               (let ((#{labels 8217}#
                       (#{gen-labels 4344}# #{ids 8130}#))
                     (#{new-vars 8218}#
                       (map #{gen-var 4387}# #{ids 8130}#)))
                 (let ((#{nw 8219}#
                         (#{make-binding-wrap 4355}#
                           #{ids 8130}#
                           #{labels 8217}#
                           #{w 8126}#))
                       (#{nr 8220}#
                         (#{extend-var-env 4336}#
                           #{labels 8217}#
                           #{new-vars 8218}#
                           #{r 8125}#)))
                   (#{constructor 8129}#
                     #{s 8127}#
                     (map syntax->datum #{ids 8130}#)
                     #{new-vars 8218}#
                     (map (lambda (#{x 8237}#)
                            (#{chi 4373}#
                              #{x 8237}#
                              #{r 8125}#
                              #{w 8126}#
                              #{mod 8128}#))
                          #{vals 8131}#)
                     (#{chi-body 4377}#
                       #{exps 8132}#
                       (#{source-wrap 4367}#
                         #{e 8124}#
                         #{nw 8219}#
                         #{s 8127}#
                         #{mod 8128}#)
                       #{nr 8220}#
                       #{nw 8219}#
                       #{mod 8128}#))))))))
        (lambda (#{e 7915}#
                 #{r 7916}#
                 #{w 7917}#
                 #{s 7918}#
                 #{mod 7919}#)
          (let ((#{tmp 7921}#
                  ($sc-dispatch
                    #{e 7915}#
                    '(_ #(each (any any)) any . each-any))))
            (if (if #{tmp 7921}#
                  (@apply
                    (lambda (#{id 7925}#
                             #{val 7926}#
                             #{e1 7927}#
                             #{e2 7928}#)
                      (and-map #{id? 4341}# #{id 7925}#))
                    #{tmp 7921}#)
                  #f)
              (@apply
                (lambda (#{id 7944}#
                         #{val 7945}#
                         #{e1 7946}#
                         #{e2 7947}#)
                  (#{chi-let 7914}#
                    #{e 7915}#
                    #{r 7916}#
                    #{w 7917}#
                    #{s 7918}#
                    #{mod 7919}#
                    (lambda (#{src 7951}#
                             #{ids 7952}#
                             #{vars 7953}#
                             #{val-exps 7954}#
                             #{body-exp 7955}#)
                      (begin
                        (for-each
                          #{maybe-name-value! 4305}#
                          #{ids 7952}#
                          #{val-exps 7954}#)
                        (if (null? #{vars 7953}#)
                          #{body-exp 7955}#
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 16)
                            #{src 7951}#
                            #{ids 7952}#
                            #{vars 7953}#
                            #{val-exps 7954}#
                            #{body-exp 7955}#))))
                    #{id 7944}#
                    #{val 7945}#
                    (cons #{e1 7946}# #{e2 7947}#)))
                #{tmp 7921}#)
              (let ((#{tmp 7962}#
                      ($sc-dispatch
                        #{e 7915}#
                        '(_ any #(each (any any)) any . each-any))))
                (if (if #{tmp 7962}#
                      (@apply
                        (lambda (#{f 7966}#
                                 #{id 7967}#
                                 #{val 7968}#
                                 #{e1 7969}#
                                 #{e2 7970}#)
                          (if (if (symbol? #{f 7966}#)
                                #t
                                (if (if (vector? #{f 7966}#)
                                      (if (= (vector-length #{f 7966}#) 4)
                                        (eq? (vector-ref #{f 7966}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{f 7966}# 1))
                                  #f))
                            (and-map #{id? 4341}# #{id 7967}#)
                            #f))
                        #{tmp 7962}#)
                      #f)
                  (@apply
                    (lambda (#{f 8012}#
                             #{id 8013}#
                             #{val 8014}#
                             #{e1 8015}#
                             #{e2 8016}#)
                      (#{chi-let 7914}#
                        #{e 7915}#
                        #{r 7916}#
                        #{w 7917}#
                        #{s 7918}#
                        #{mod 7919}#
                        #{build-named-let 4324}#
                        (cons #{f 8012}# #{id 8013}#)
                        #{val 8014}#
                        (cons #{e1 8015}# #{e2 8016}#)))
                    #{tmp 7962}#)
                  (syntax-violation
                    'let
                    "bad let"
                    (let ((#{x 8029}#
                            (begin
                              (if (if (pair? #{e 7915}#) #{s 7918}# #f)
                                (set-source-properties! #{e 7915}# #{s 7918}#))
                              #{e 7915}#)))
                      (if (if (null? (car #{w 7917}#))
                            (null? (cdr #{w 7917}#))
                            #f)
                        #{x 8029}#
                        (if (if (vector? #{x 8029}#)
                              (if (= (vector-length #{x 8029}#) 4)
                                (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
                                #f)
                              #f)
                          (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
                                (#{wrap 8062}#
                                  (let ((#{w2 8070}#
                                          (vector-ref #{x 8029}# 2)))
                                    (let ((#{m1 8071}# (car #{w 7917}#))
                                          (#{s1 8072}# (cdr #{w 7917}#)))
                                      (if (null? #{m1 8071}#)
                                        (if (null? #{s1 8072}#)
                                          #{w2 8070}#
                                          (cons (car #{w2 8070}#)
                                                (let ((#{m2 8087}#
                                                        (cdr #{w2 8070}#)))
                                                  (if (null? #{m2 8087}#)
                                                    #{s1 8072}#
                                                    (append
                                                      #{s1 8072}#
                                                      #{m2 8087}#)))))
                                        (cons (let ((#{m2 8095}#
                                                      (car #{w2 8070}#)))
                                                (if (null? #{m2 8095}#)
                                                  #{m1 8071}#
                                                  (append
                                                    #{m1 8071}#
                                                    #{m2 8095}#)))
                                              (let ((#{m2 8103}#
                                                      (cdr #{w2 8070}#)))
                                                (if (null? #{m2 8103}#)
                                                  #{s1 8072}#
                                                  (append
                                                    #{s1 8072}#
                                                    #{m2 8103}#))))))))
                                (#{module 8063}# (vector-ref #{x 8029}# 3)))
                            (vector
                              'syntax-object
                              #{expression 8061}#
                              #{wrap 8062}#
                              #{module 8063}#))
                          (if (null? #{x 8029}#)
                            #{x 8029}#
                            (vector
                              'syntax-object
                              #{x 8029}#
                              #{w 7917}#
                              #{mod 7919}#)))))))))))))
    (#{global-extend 4339}#
      'core
      'letrec
      (lambda (#{e 8714}#
               #{r 8715}#
               #{w 8716}#
               #{s 8717}#
               #{mod 8718}#)
        (let ((#{tmp 8720}#
                ($sc-dispatch
                  #{e 8714}#
                  '(_ #(each (any any)) any . each-any))))
          (if (if #{tmp 8720}#
                (@apply
                  (lambda (#{id 8724}#
                           #{val 8725}#
                           #{e1 8726}#
                           #{e2 8727}#)
                    (and-map #{id? 4341}# #{id 8724}#))
                  #{tmp 8720}#)
                #f)
            (@apply
              (lambda (#{id 8743}#
                       #{val 8744}#
                       #{e1 8745}#
                       #{e2 8746}#)
                (if (not (#{valid-bound-ids? 4363}# #{id 8743}#))
                  (syntax-violation
                    'letrec
                    "duplicate bound variable"
                    #{e 8714}#)
                  (let ((#{labels 8843}#
                          (#{gen-labels 4344}# #{id 8743}#))
                        (#{new-vars 8844}#
                          (map #{gen-var 4387}# #{id 8743}#)))
                    (let ((#{w 8845}#
                            (#{make-binding-wrap 4355}#
                              #{id 8743}#
                              #{labels 8843}#
                              #{w 8716}#))
                          (#{r 8846}#
                            (#{extend-var-env 4336}#
                              #{labels 8843}#
                              #{new-vars 8844}#
                              #{r 8715}#)))
                      (#{build-letrec 4325}#
                        #{s 8717}#
                        #f
                        (map syntax->datum #{id 8743}#)
                        #{new-vars 8844}#
                        (map (lambda (#{x 8925}#)
                               (#{chi 4373}#
                                 #{x 8925}#
                                 #{r 8846}#
                                 #{w 8845}#
                                 #{mod 8718}#))
                             #{val 8744}#)
                        (#{chi-body 4377}#
                          (cons #{e1 8745}# #{e2 8746}#)
                          (let ((#{x 8987}#
                                  (begin
                                    (if (if (pair? #{e 8714}#) #{s 8717}# #f)
                                      (set-source-properties!
                                        #{e 8714}#
                                        #{s 8717}#))
                                    #{e 8714}#)))
                            (if (if (null? (car #{w 8845}#))
                                  (null? (cdr #{w 8845}#))
                                  #f)
                              #{x 8987}#
                              (if (if (vector? #{x 8987}#)
                                    (if (= (vector-length #{x 8987}#) 4)
                                      (eq? (vector-ref #{x 8987}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (let ((#{expression 9019}#
                                        (vector-ref #{x 8987}# 1))
                                      (#{wrap 9020}#
                                        (let ((#{w2 9028}#
                                                (vector-ref #{x 8987}# 2)))
                                          (let ((#{m1 9029}# (car #{w 8845}#))
                                                (#{s1 9030}# (cdr #{w 8845}#)))
                                            (if (null? #{m1 9029}#)
                                              (if (null? #{s1 9030}#)
                                                #{w2 9028}#
                                                (cons (car #{w2 9028}#)
                                                      (let ((#{m2 9045}#
                                                              (cdr #{w2 9028}#)))
                                                        (if (null? #{m2 9045}#)
                                                          #{s1 9030}#
                                                          (append
                                                            #{s1 9030}#
                                                            #{m2 9045}#)))))
                                              (cons (let ((#{m2 9053}#
                                                            (car #{w2 9028}#)))
                                                      (if (null? #{m2 9053}#)
                                                        #{m1 9029}#
                                                        (append
                                                          #{m1 9029}#
                                                          #{m2 9053}#)))
                                                    (let ((#{m2 9061}#
                                                            (cdr #{w2 9028}#)))
                                                      (if (null? #{m2 9061}#)
                                                        #{s1 9030}#
                                                        (append
                                                          #{s1 9030}#
                                                          #{m2 9061}#))))))))
                                      (#{module 9021}#
                                        (vector-ref #{x 8987}# 3)))
                                  (vector
                                    'syntax-object
                                    #{expression 9019}#
                                    #{wrap 9020}#
                                    #{module 9021}#))
                                (if (null? #{x 8987}#)
                                  #{x 8987}#
                                  (vector
                                    'syntax-object
                                    #{x 8987}#
                                    #{w 8845}#
                                    #{mod 8718}#)))))
                          #{r 8846}#
                          #{w 8845}#
                          #{mod 8718}#))))))
              #{tmp 8720}#)
            (syntax-violation
              'letrec
              "bad letrec"
              (let ((#{x 9301}#
                      (begin
                        (if (if (pair? #{e 8714}#) #{s 8717}# #f)
                          (set-source-properties! #{e 8714}# #{s 8717}#))
                        #{e 8714}#)))
                (if (if (null? (car #{w 8716}#))
                      (null? (cdr #{w 8716}#))
                      #f)
                  #{x 9301}#
                  (if (if (vector? #{x 9301}#)
                        (if (= (vector-length #{x 9301}#) 4)
                          (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
                          #f)
                        #f)
                    (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
                          (#{wrap 9334}#
                            (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
                              (let ((#{m1 9343}# (car #{w 8716}#))
                                    (#{s1 9344}# (cdr #{w 8716}#)))
                                (if (null? #{m1 9343}#)
                                  (if (null? #{s1 9344}#)
                                    #{w2 9342}#
                                    (cons (car #{w2 9342}#)
                                          (let ((#{m2 9359}#
                                                  (cdr #{w2 9342}#)))
                                            (if (null? #{m2 9359}#)
                                              #{s1 9344}#
                                              (append
                                                #{s1 9344}#
                                                #{m2 9359}#)))))
                                  (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
                                          (if (null? #{m2 9367}#)
                                            #{m1 9343}#
                                            (append #{m1 9343}# #{m2 9367}#)))
                                        (let ((#{m2 9375}# (cdr #{w2 9342}#)))
                                          (if (null? #{m2 9375}#)
                                            #{s1 9344}#
                                            (append
                                              #{s1 9344}#
                                              #{m2 9375}#))))))))
                          (#{module 9335}# (vector-ref #{x 9301}# 3)))
                      (vector
                        'syntax-object
                        #{expression 9333}#
                        #{wrap 9334}#
                        #{module 9335}#))
                    (if (null? #{x 9301}#)
                      #{x 9301}#
                      (vector
                        'syntax-object
                        #{x 9301}#
                        #{w 8716}#
                        #{mod 8718}#))))))))))
    (#{global-extend 4339}#
      'core
      'letrec*
      (lambda (#{e 9526}#
               #{r 9527}#
               #{w 9528}#
               #{s 9529}#
               #{mod 9530}#)
        (let ((#{tmp 9532}#
                ($sc-dispatch
                  #{e 9526}#
                  '(_ #(each (any any)) any . each-any))))
          (if (if #{tmp 9532}#
                (@apply
                  (lambda (#{id 9536}#
                           #{val 9537}#
                           #{e1 9538}#
                           #{e2 9539}#)
                    (and-map #{id? 4341}# #{id 9536}#))
                  #{tmp 9532}#)
                #f)
            (@apply
              (lambda (#{id 9555}#
                       #{val 9556}#
                       #{e1 9557}#
                       #{e2 9558}#)
                (if (not (#{valid-bound-ids? 4363}# #{id 9555}#))
                  (syntax-violation
                    'letrec*
                    "duplicate bound variable"
                    #{e 9526}#)
                  (let ((#{labels 9655}#
                          (#{gen-labels 4344}# #{id 9555}#))
                        (#{new-vars 9656}#
                          (map #{gen-var 4387}# #{id 9555}#)))
                    (let ((#{w 9657}#
                            (#{make-binding-wrap 4355}#
                              #{id 9555}#
                              #{labels 9655}#
                              #{w 9528}#))
                          (#{r 9658}#
                            (#{extend-var-env 4336}#
                              #{labels 9655}#
                              #{new-vars 9656}#
                              #{r 9527}#)))
                      (#{build-letrec 4325}#
                        #{s 9529}#
                        #t
                        (map syntax->datum #{id 9555}#)
                        #{new-vars 9656}#
                        (map (lambda (#{x 9737}#)
                               (#{chi 4373}#
                                 #{x 9737}#
                                 #{r 9658}#
                                 #{w 9657}#
                                 #{mod 9530}#))
                             #{val 9556}#)
                        (#{chi-body 4377}#
                          (cons #{e1 9557}# #{e2 9558}#)
                          (let ((#{x 9799}#
                                  (begin
                                    (if (if (pair? #{e 9526}#) #{s 9529}# #f)
                                      (set-source-properties!
                                        #{e 9526}#
                                        #{s 9529}#))
                                    #{e 9526}#)))
                            (if (if (null? (car #{w 9657}#))
                                  (null? (cdr #{w 9657}#))
                                  #f)
                              #{x 9799}#
                              (if (if (vector? #{x 9799}#)
                                    (if (= (vector-length #{x 9799}#) 4)
                                      (eq? (vector-ref #{x 9799}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (let ((#{expression 9831}#
                                        (vector-ref #{x 9799}# 1))
                                      (#{wrap 9832}#
                                        (let ((#{w2 9840}#
                                                (vector-ref #{x 9799}# 2)))
                                          (let ((#{m1 9841}# (car #{w 9657}#))
                                                (#{s1 9842}# (cdr #{w 9657}#)))
                                            (if (null? #{m1 9841}#)
                                              (if (null? #{s1 9842}#)
                                                #{w2 9840}#
                                                (cons (car #{w2 9840}#)
                                                      (let ((#{m2 9857}#
                                                              (cdr #{w2 9840}#)))
                                                        (if (null? #{m2 9857}#)
                                                          #{s1 9842}#
                                                          (append
                                                            #{s1 9842}#
                                                            #{m2 9857}#)))))
                                              (cons (let ((#{m2 9865}#
                                                            (car #{w2 9840}#)))
                                                      (if (null? #{m2 9865}#)
                                                        #{m1 9841}#
                                                        (append
                                                          #{m1 9841}#
                                                          #{m2 9865}#)))
                                                    (let ((#{m2 9873}#
                                                            (cdr #{w2 9840}#)))
                                                      (if (null? #{m2 9873}#)
                                                        #{s1 9842}#
                                                        (append
                                                          #{s1 9842}#
                                                          #{m2 9873}#))))))))
                                      (#{module 9833}#
                                        (vector-ref #{x 9799}# 3)))
                                  (vector
                                    'syntax-object
                                    #{expression 9831}#
                                    #{wrap 9832}#
                                    #{module 9833}#))
                                (if (null? #{x 9799}#)
                                  #{x 9799}#
                                  (vector
                                    'syntax-object
                                    #{x 9799}#
                                    #{w 9657}#
                                    #{mod 9530}#)))))
                          #{r 9658}#
                          #{w 9657}#
                          #{mod 9530}#))))))
              #{tmp 9532}#)
            (syntax-violation
              'letrec*
              "bad letrec*"
              (let ((#{x 10113}#
                      (begin
                        (if (if (pair? #{e 9526}#) #{s 9529}# #f)
                          (set-source-properties! #{e 9526}# #{s 9529}#))
                        #{e 9526}#)))
                (if (if (null? (car #{w 9528}#))
                      (null? (cdr #{w 9528}#))
                      #f)
                  #{x 10113}#
                  (if (if (vector? #{x 10113}#)
                        (if (= (vector-length #{x 10113}#) 4)
                          (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
                          #f)
                        #f)
                    (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
                          (#{wrap 10146}#
                            (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
                              (let ((#{m1 10155}# (car #{w 9528}#))
                                    (#{s1 10156}# (cdr #{w 9528}#)))
                                (if (null? #{m1 10155}#)
                                  (if (null? #{s1 10156}#)
                                    #{w2 10154}#
                                    (cons (car #{w2 10154}#)
                                          (let ((#{m2 10171}#
                                                  (cdr #{w2 10154}#)))
                                            (if (null? #{m2 10171}#)
                                              #{s1 10156}#
                                              (append
                                                #{s1 10156}#
                                                #{m2 10171}#)))))
                                  (cons (let ((#{m2 10179}#
                                                (car #{w2 10154}#)))
                                          (if (null? #{m2 10179}#)
                                            #{m1 10155}#
                                            (append
                                              #{m1 10155}#
                                              #{m2 10179}#)))
                                        (let ((#{m2 10187}#
                                                (cdr #{w2 10154}#)))
                                          (if (null? #{m2 10187}#)
                                            #{s1 10156}#
                                            (append
                                              #{s1 10156}#
                                              #{m2 10187}#))))))))
                          (#{module 10147}# (vector-ref #{x 10113}# 3)))
                      (vector
                        'syntax-object
                        #{expression 10145}#
                        #{wrap 10146}#
                        #{module 10147}#))
                    (if (null? #{x 10113}#)
                      #{x 10113}#
                      (vector
                        'syntax-object
                        #{x 10113}#
                        #{w 9528}#
                        #{mod 9530}#))))))))))
    (#{global-extend 4339}#
      'core
      'set!
      (lambda (#{e 10406}#
               #{r 10407}#
               #{w 10408}#
               #{s 10409}#
               #{mod 10410}#)
        (let ((#{tmp 10412}#
                ($sc-dispatch #{e 10406}# '(_ any any))))
          (if (if #{tmp 10412}#
                (@apply
                  (lambda (#{id 10416}# #{val 10417}#)
                    (if (symbol? #{id 10416}#)
                      #t
                      (if (if (vector? #{id 10416}#)
                            (if (= (vector-length #{id 10416}#) 4)
                              (eq? (vector-ref #{id 10416}# 0) 'syntax-object)
                              #f)
                            #f)
                        (symbol? (vector-ref #{id 10416}# 1))
                        #f)))
                  #{tmp 10412}#)
                #f)
            (@apply
              (lambda (#{id 10444}# #{val 10445}#)
                (let ((#{n 10446}#
                        (#{id-var-name 4360}# #{id 10444}# #{w 10408}#))
                      (#{id-mod 10447}#
                        (if (if (vector? #{id 10444}#)
                              (if (= (vector-length #{id 10444}#) 4)
                                (eq? (vector-ref #{id 10444}# 0)
                                     'syntax-object)
                                #f)
                              #f)
                          (vector-ref #{id 10444}# 3)
                          #{mod 10410}#)))
                  (let ((#{b 10448}#
                          (let ((#{t 11165}# (assq #{n 10446}# #{r 10407}#)))
                            (if #{t 11165}#
                              (cdr #{t 11165}#)
                              (if (symbol? #{n 10446}#)
                                (let ((#{t 11170}#
                                        (begin
                                          (if (if (not #{id-mod 10447}#)
                                                (current-module)
                                                #f)
                                            (warn "module system is booted, we should have a module"
                                                  #{n 10446}#))
                                          (let ((#{v 11207}#
                                                  (module-variable
                                                    (if #{id-mod 10447}#
                                                      (resolve-module
                                                        (cdr #{id-mod 10447}#))
                                                      (current-module))
                                                    #{n 10446}#)))
                                            (if #{v 11207}#
                                              (if (variable-bound? #{v 11207}#)
                                                (let ((#{val 11216}#
                                                        (variable-ref
                                                          #{v 11207}#)))
                                                  (if (macro? #{val 11216}#)
                                                    (if (macro-type
                                                          #{val 11216}#)
                                                      (cons (macro-type
                                                              #{val 11216}#)
                                                            (macro-binding
                                                              #{val 11216}#))
                                                      #f)
                                                    #f))
                                                #f)
                                              #f)))))
                                  (if #{t 11170}# #{t 11170}# '(global)))
                                '(displaced-lexical))))))
                    (let ((#{atom-key 10449}# (car #{b 10448}#)))
                      (if (let ((#{t 10488}# #{atom-key 10449}#))
                            (eqv? #{t 10488}# 'lexical))
                        (#{build-lexical-assignment 4311}#
                          #{s 10409}#
                          (syntax->datum #{id 10444}#)
                          (cdr #{b 10448}#)
                          (#{chi 4373}#
                            #{val 10445}#
                            #{r 10407}#
                            #{w 10408}#
                            #{mod 10410}#))
                        (if (let ((#{t 10787}# #{atom-key 10449}#))
                              (eqv? #{t 10787}# 'global))
                          (#{build-global-assignment 4314}#
                            #{s 10409}#
                            #{n 10446}#
                            (#{chi 4373}#
                              #{val 10445}#
                              #{r 10407}#
                              #{w 10408}#
                              #{mod 10410}#)
                            #{id-mod 10447}#)
                          (if (let ((#{t 11056}# #{atom-key 10449}#))
                                (eqv? #{t 11056}# 'macro))
                            (let ((#{p 11119}# (cdr #{b 10448}#)))
                              (if (procedure-property
                                    #{p 11119}#
                                    'variable-transformer)
                                (#{chi 4373}#
                                  (#{chi-macro 4376}#
                                    #{p 11119}#
                                    #{e 10406}#
                                    #{r 10407}#
                                    #{w 10408}#
                                    #{s 10409}#
                                    #f
                                    #{mod 10410}#)
                                  #{r 10407}#
                                  '(())
                                  #{mod 10410}#)
                                (syntax-violation
                                  'set!
                                  "not a variable transformer"
                                  (if (if (null? (car #{w 10408}#))
                                        (null? (cdr #{w 10408}#))
                                        #f)
                                    #{e 10406}#
                                    (if (if (vector? #{e 10406}#)
                                          (if (= (vector-length #{e 10406}#) 4)
                                            (eq? (vector-ref #{e 10406}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (let ((#{expression 11321}#
                                              (vector-ref #{e 10406}# 1))
                                            (#{wrap 11322}#
                                              (let ((#{w2 11332}#
                                                      (vector-ref
                                                        #{e 10406}#
                                                        2)))
                                                (let ((#{m1 11333}#
                                                        (car #{w 10408}#))
                                                      (#{s1 11334}#
                                                        (cdr #{w 10408}#)))
                                                  (if (null? #{m1 11333}#)
                                                    (if (null? #{s1 11334}#)
                                                      #{w2 11332}#
                                                      (cons (car #{w2 11332}#)
                                                            (let ((#{m2 11351}#
                                                                    (cdr #{w2 11332}#)))
                                                              (if (null? #{m2 11351}#)
                                                                #{s1 11334}#
                                                                (append
                                                                  #{s1 11334}#
                                                                  #{m2 11351}#)))))
                                                    (cons (let ((#{m2 11359}#
                                                                  (car #{w2 11332}#)))
                                                            (if (null? #{m2 11359}#)
                                                              #{m1 11333}#
                                                              (append
                                                                #{m1 11333}#
                                                                #{m2 11359}#)))
                                                          (let ((#{m2 11367}#
                                                                  (cdr #{w2 11332}#)))
                                                            (if (null? #{m2 11367}#)
                                                              #{s1 11334}#
                                                              (append
                                                                #{s1 11334}#
                                                                #{m2 11367}#))))))))
                                            (#{module 11323}#
                                              (vector-ref #{e 10406}# 3)))
                                        (vector
                                          'syntax-object
                                          #{expression 11321}#
                                          #{wrap 11322}#
                                          #{module 11323}#))
                                      (if (null? #{e 10406}#)
                                        #{e 10406}#
                                        (vector
                                          'syntax-object
                                          #{e 10406}#
                                          #{w 10408}#
                                          #{mod 10410}#))))
                                  (if (if (null? (car #{w 10408}#))
                                        (null? (cdr #{w 10408}#))
                                        #f)
                                    #{id 10444}#
                                    (if (if (vector? #{id 10444}#)
                                          (if (= (vector-length #{id 10444}#)
                                                 4)
                                            (eq? (vector-ref #{id 10444}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (let ((#{expression 11419}#
                                              (vector-ref #{id 10444}# 1))
                                            (#{wrap 11420}#
                                              (let ((#{w2 11430}#
                                                      (vector-ref
                                                        #{id 10444}#
                                                        2)))
                                                (let ((#{m1 11431}#
                                                        (car #{w 10408}#))
                                                      (#{s1 11432}#
                                                        (cdr #{w 10408}#)))
                                                  (if (null? #{m1 11431}#)
                                                    (if (null? #{s1 11432}#)
                                                      #{w2 11430}#
                                                      (cons (car #{w2 11430}#)
                                                            (let ((#{m2 11449}#
                                                                    (cdr #{w2 11430}#)))
                                                              (if (null? #{m2 11449}#)
                                                                #{s1 11432}#
                                                                (append
                                                                  #{s1 11432}#
                                                                  #{m2 11449}#)))))
                                                    (cons (let ((#{m2 11457}#
                                                                  (car #{w2 11430}#)))
                                                            (if (null? #{m2 11457}#)
                                                              #{m1 11431}#
                                                              (append
                                                                #{m1 11431}#
                                                                #{m2 11457}#)))
                                                          (let ((#{m2 11465}#
                                                                  (cdr #{w2 11430}#)))
                                                            (if (null? #{m2 11465}#)
                                                              #{s1 11432}#
                                                              (append
                                                                #{s1 11432}#
                                                                #{m2 11465}#))))))))
                                            (#{module 11421}#
                                              (vector-ref #{id 10444}# 3)))
                                        (vector
                                          'syntax-object
                                          #{expression 11419}#
                                          #{wrap 11420}#
                                          #{module 11421}#))
                                      (if (null? #{id 10444}#)
                                        #{id 10444}#
                                        (vector
                                          'syntax-object
                                          #{id 10444}#
                                          #{w 10408}#
                                          #{id-mod 10447}#)))))))
                            (if (eqv? #{atom-key 10449}# 'displaced-lexical)
                              (syntax-violation
                                'set!
                                "identifier out of context"
                                (if (if (null? (car #{w 10408}#))
                                      (null? (cdr #{w 10408}#))
                                      #f)
                                  #{id 10444}#
                                  (if (if (vector? #{id 10444}#)
                                        (if (= (vector-length #{id 10444}#) 4)
                                          (eq? (vector-ref #{id 10444}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (let ((#{expression 11521}#
                                            (vector-ref #{id 10444}# 1))
                                          (#{wrap 11522}#
                                            (let ((#{w2 11532}#
                                                    (vector-ref
                                                      #{id 10444}#
                                                      2)))
                                              (let ((#{m1 11533}#
                                                      (car #{w 10408}#))
                                                    (#{s1 11534}#
                                                      (cdr #{w 10408}#)))
                                                (if (null? #{m1 11533}#)
                                                  (if (null? #{s1 11534}#)
                                                    #{w2 11532}#
                                                    (cons (car #{w2 11532}#)
                                                          (let ((#{m2 11551}#
                                                                  (cdr #{w2 11532}#)))
                                                            (if (null? #{m2 11551}#)
                                                              #{s1 11534}#
                                                              (append
                                                                #{s1 11534}#
                                                                #{m2 11551}#)))))
                                                  (cons (let ((#{m2 11559}#
                                                                (car #{w2 11532}#)))
                                                          (if (null? #{m2 11559}#)
                                                            #{m1 11533}#
                                                            (append
                                                              #{m1 11533}#
                                                              #{m2 11559}#)))
                                                        (let ((#{m2 11567}#
                                                                (cdr #{w2 11532}#)))
                                                          (if (null? #{m2 11567}#)
                                                            #{s1 11534}#
                                                            (append
                                                              #{s1 11534}#
                                                              #{m2 11567}#))))))))
                                          (#{module 11523}#
                                            (vector-ref #{id 10444}# 3)))
                                      (vector
                                        'syntax-object
                                        #{expression 11521}#
                                        #{wrap 11522}#
                                        #{module 11523}#))
                                    (if (null? #{id 10444}#)
                                      #{id 10444}#
                                      (vector
                                        'syntax-object
                                        #{id 10444}#
                                        #{w 10408}#
                                        #{mod 10410}#)))))
                              (syntax-violation
                                'set!
                                "bad set!"
                                (let ((#{x 11599}#
                                        (begin
                                          (if (if (pair? #{e 10406}#)
                                                #{s 10409}#
                                                #f)
                                            (set-source-properties!
                                              #{e 10406}#
                                              #{s 10409}#))
                                          #{e 10406}#)))
                                  (if (if (null? (car #{w 10408}#))
                                        (null? (cdr #{w 10408}#))
                                        #f)
                                    #{x 11599}#
                                    (if (if (vector? #{x 11599}#)
                                          (if (= (vector-length #{x 11599}#) 4)
                                            (eq? (vector-ref #{x 11599}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (let ((#{expression 11631}#
                                              (vector-ref #{x 11599}# 1))
                                            (#{wrap 11632}#
                                              (let ((#{w2 11640}#
                                                      (vector-ref
                                                        #{x 11599}#
                                                        2)))
                                                (let ((#{m1 11641}#
                                                        (car #{w 10408}#))
                                                      (#{s1 11642}#
                                                        (cdr #{w 10408}#)))
                                                  (if (null? #{m1 11641}#)
                                                    (if (null? #{s1 11642}#)
                                                      #{w2 11640}#
                                                      (cons (car #{w2 11640}#)
                                                            (let ((#{m2 11657}#
                                                                    (cdr #{w2 11640}#)))
                                                              (if (null? #{m2 11657}#)
                                                                #{s1 11642}#
                                                                (append
                                                                  #{s1 11642}#
                                                                  #{m2 11657}#)))))
                                                    (cons (let ((#{m2 11665}#
                                                                  (car #{w2 11640}#)))
                                                            (if (null? #{m2 11665}#)
                                                              #{m1 11641}#
                                                              (append
                                                                #{m1 11641}#
                                                                #{m2 11665}#)))
                                                          (let ((#{m2 11673}#
                                                                  (cdr #{w2 11640}#)))
                                                            (if (null? #{m2 11673}#)
                                                              #{s1 11642}#
                                                              (append
                                                                #{s1 11642}#
                                                                #{m2 11673}#))))))))
                                            (#{module 11633}#
                                              (vector-ref #{x 11599}# 3)))
                                        (vector
                                          'syntax-object
                                          #{expression 11631}#
                                          #{wrap 11632}#
                                          #{module 11633}#))
                                      (if (null? #{x 11599}#)
                                        #{x 11599}#
                                        (vector
                                          'syntax-object
                                          #{x 11599}#
                                          #{w 10408}#
                                          #{mod 10410}#))))))))))))))
              #{tmp 10412}#)
            (let ((#{tmp 11688}#
                    ($sc-dispatch
                      #{e 10406}#
                      '(_ (any . each-any) any))))
              (if #{tmp 11688}#
                (@apply
                  (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#)
                    (call-with-values
                      (lambda ()
                        (#{syntax-type 4372}#
                          #{head 11692}#
                          #{r 10407}#
                          '(())
                          #f
                          #f
                          #{mod 10410}#
                          #t))
                      (lambda (#{type 11697}#
                               #{value 11698}#
                               #{ee 11699}#
                               #{ww 11700}#
                               #{ss 11701}#
                               #{modmod 11702}#)
                        (if (eqv? #{type 11697}# 'module-ref)
                          (let ((#{val 11706}#
                                  (#{chi 4373}#
                                    #{val 11694}#
                                    #{r 10407}#
                                    #{w 10408}#
                                    #{mod 10410}#)))
                            (call-with-values
                              (lambda ()
                                (#{value 11698}#
                                  (cons #{head 11692}# #{tail 11693}#)
                                  #{r 10407}#
                                  #{w 10408}#))
                              (lambda (#{e 11707}#
                                       #{r 11708}#
                                       #{w 11709}#
                                       #{s* 11710}#
                                       #{mod 11711}#)
                                (let ((#{tmp 11713}# (list #{e 11707}#)))
                                  (if (@apply
                                        (lambda (#{e 11715}#)
                                          (if (symbol? #{e 11715}#)
                                            #t
                                            (if (if (vector? #{e 11715}#)
                                                  (if (= (vector-length
                                                           #{e 11715}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{e 11715}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
                                                (vector-ref #{e 11715}# 1))
                                              #f)))
                                        #{tmp 11713}#)
                                    (@apply
                                      (lambda (#{e 11745}#)
                                        (#{build-global-assignment 4314}#
                                          #{s 10409}#
                                          (syntax->datum #{e 11745}#)
                                          #{val 11706}#
                                          #{mod 11711}#))
                                      #{tmp 11713}#)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any pattern"
                                      #{e 11707}#))))))
                          (#{build-call 4307}#
                            #{s 10409}#
                            (#{chi 4373}#
                              (list '#(syntax-object
                                       setter
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(type value ee ww ss modmod)
                                          #((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                          #("i3585"
                                            "i3586"
                                            "i3587"
                                            "i3588"
                                            "i3589"
                                            "i3590"))
                                        #(ribcage
                                          #(head tail val)
                                          #((top) (top) (top))
                                          #("i3571" "i3572" "i3573"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(e r w s mod)
                                          #((top) (top) (top) (top) (top))
                                          #("i3535"
                                            "i3536"
                                            "i3537"
                                            "i3538"
                                            "i3539"))
                                        #(ribcage
                                          (lambda-var-list
                                            gen-var
                                            strip
                                            chi-lambda-case
                                            lambda*-formals
                                            chi-simple-lambda
                                            lambda-formals
                                            ellipsis?
                                            chi-void
                                            eval-local-transformer
                                            chi-local-syntax
                                            chi-body
                                            chi-macro
                                            chi-call
                                            chi-expr
                                            chi
                                            syntax-type
                                            chi-when-list
                                            chi-install-global
                                            chi-top-sequence
                                            chi-sequence
                                            source-wrap
                                            wrap
                                            bound-id-member?
                                            distinct-bound-ids?
                                            valid-bound-ids?
                                            bound-id=?
                                            free-id=?
                                            id-var-name
                                            same-marks?
                                            join-marks
                                            join-wraps
                                            smart-append
                                            make-binding-wrap
                                            extend-ribcage!
                                            make-empty-ribcage
                                            new-mark
                                            anti-mark
                                            the-anti-mark
                                            top-marked?
                                            top-wrap
                                            empty-wrap
                                            set-ribcage-labels!
                                            set-ribcage-marks!
                                            set-ribcage-symnames!
                                            ribcage-labels
                                            ribcage-marks
                                            ribcage-symnames
                                            ribcage?
                                            make-ribcage
                                            gen-labels
                                            gen-label
                                            make-rename
                                            rename-marks
                                            rename-new
                                            rename-old
                                            subst-rename?
                                            wrap-subst
                                            wrap-marks
                                            make-wrap
                                            id-sym-name&marks
                                            id-sym-name
                                            id?
                                            nonsymbol-id?
                                            global-extend
                                            lookup
                                            macros-only-env
                                            extend-var-env
                                            extend-env
                                            null-env
                                            binding-value
                                            binding-type
                                            make-binding
                                            arg-check
                                            source-annotation
                                            no-source
                                            set-syntax-object-module!
                                            set-syntax-object-wrap!
                                            set-syntax-object-expression!
                                            syntax-object-module
                                            syntax-object-wrap
                                            syntax-object-expression
                                            syntax-object?
                                            make-syntax-object
                                            build-lexical-var
                                            build-letrec
                                            build-named-let
                                            build-let
                                            build-sequence
                                            build-data
                                            build-primref
                                            build-primcall
                                            build-lambda-case
                                            build-case-lambda
                                            build-simple-lambda
                                            build-global-definition
                                            build-global-assignment
                                            build-global-reference
                                            analyze-variable
                                            build-lexical-assignment
                                            build-lexical-reference
                                            build-dynlet
                                            build-conditional
                                            build-call
                                            build-void
                                            maybe-name-value!
                                            decorate-source
                                            get-global-definition-hook
                                            put-global-definition-hook
                                            gensym-hook
                                            local-eval-hook
                                            top-level-eval-hook
                                            fx<
                                            fx=
                                            fx-
                                            fx+
                                            set-lambda-meta!
                                            lambda-meta
                                            lambda?
                                            make-dynlet
                                            make-letrec
                                            make-let
                                            make-lambda-case
                                            make-lambda
                                            make-seq
                                            make-primcall
                                            make-call
                                            make-conditional
                                            make-toplevel-define
                                            make-toplevel-set
                                            make-toplevel-ref
                                            make-module-set
                                            make-module-ref
                                            make-lexical-set
                                            make-lexical-ref
                                            make-primitive-ref
                                            make-const
                                            make-void)
                                          ((top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top))
                                          ("i471"
                                           "i469"
                                           "i467"
                                           "i465"
                                           "i463"
                                           "i461"
                                           "i459"
                                           "i457"
                                           "i455"
                                           "i453"
                                           "i451"
                                           "i449"
                                           "i447"
                                           "i445"
                                           "i443"
                                           "i441"
                                           "i439"
                                           "i437"
                                           "i435"
                                           "i433"
                                           "i431"
                                           "i429"
                                           "i427"
                                           "i425"
                                           "i423"
                                           "i421"
                                           "i419"
                                           "i417"
                                           "i415"
                                           "i413"
                                           "i411"
                                           "i409"
                                           "i407"
                                           "i405"
                                           "i403"
                                           "i402"
                                           "i400"
                                           "i397"
                                           "i396"
                                           "i395"
                                           "i393"
                                           "i392"
                                           "i390"
                                           "i388"
                                           "i386"
                                           "i384"
                                           "i382"
                                           "i380"
                                           "i378"
                                           "i376"
                                           "i373"
                                           "i371"
                                           "i370"
                                           "i368"
                                           "i366"
                                           "i364"
                                           "i362"
                                           "i361"
                                           "i360"
                                           "i359"
                                           "i357"
                                           "i356"
                                           "i353"
                                           "i351"
                                           "i349"
                                           "i347"
                                           "i345"
                                           "i343"
                                           "i341"
                                           "i340"
                                           "i339"
                                           "i337"
                                           "i335"
                                           "i334"
                                           "i331"
                                           "i330"
                                           "i328"
                                           "i326"
                                           "i324"
                                           "i322"
                                           "i320"
                                           "i318"
                                           "i316"
                                           "i314"
                                           "i312"
                                           "i309"
                                           "i307"
                                           "i305"
                                           "i303"
                                           "i301"
                                           "i299"
                                           "i297"
                                           "i295"
                                           "i293"
                                           "i291"
                                           "i289"
                                           "i287"
                                           "i285"
                                           "i283"
                                           "i281"
                                           "i279"
                                           "i277"
                                           "i275"
                                           "i273"
                                           "i271"
                                           "i269"
                                           "i267"
                                           "i265"
                                           "i263"
                                           "i262"
                                           "i259"
                                           "i257"
                                           "i256"
                                           "i255"
                                           "i254"
                                           "i253"
                                           "i251"
                                           "i249"
                                           "i247"
                                           "i244"
                                           "i242"
                                           "i240"
                                           "i238"
                                           "i236"
                                           "i234"
                                           "i232"
                                           "i230"
                                           "i228"
                                           "i226"
                                           "i224"
                                           "i222"
                                           "i220"
                                           "i218"
                                           "i216"
                                           "i214"
                                           "i212"
                                           "i210"
                                           "i208"))
                                        #(ribcage
                                          (define-structure
                                            define-expansion-accessors
                                            define-expansion-constructors)
                                          ((top) (top) (top))
                                          ("i46" "i45" "i44")))
                                       (hygiene guile))
                                    #{head 11692}#)
                              #{r 10407}#
                              #{w 10408}#
                              #{mod 10410}#)
                            (map (lambda (#{e 12074}#)
                                   (#{chi 4373}#
                                     #{e 12074}#
                                     #{r 10407}#
                                     #{w 10408}#
                                     #{mod 10410}#))
                                 (append
                                   #{tail 11693}#
                                   (list #{val 11694}#))))))))
                  #{tmp 11688}#)
                (syntax-violation
                  'set!
                  "bad set!"
                  (let ((#{x 12166}#
                          (begin
                            (if (if (pair? #{e 10406}#) #{s 10409}# #f)
                              (set-source-properties! #{e 10406}# #{s 10409}#))
                            #{e 10406}#)))
                    (if (if (null? (car #{w 10408}#))
                          (null? (cdr #{w 10408}#))
                          #f)
                      #{x 12166}#
                      (if (if (vector? #{x 12166}#)
                            (if (= (vector-length #{x 12166}#) 4)
                              (eq? (vector-ref #{x 12166}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 12198}# (vector-ref #{x 12166}# 1))
                              (#{wrap 12199}#
                                (let ((#{w2 12207}#
                                        (vector-ref #{x 12166}# 2)))
                                  (let ((#{m1 12208}# (car #{w 10408}#))
                                        (#{s1 12209}# (cdr #{w 10408}#)))
                                    (if (null? #{m1 12208}#)
                                      (if (null? #{s1 12209}#)
                                        #{w2 12207}#
                                        (cons (car #{w2 12207}#)
                                              (let ((#{m2 12224}#
                                                      (cdr #{w2 12207}#)))
                                                (if (null? #{m2 12224}#)
                                                  #{s1 12209}#
                                                  (append
                                                    #{s1 12209}#
                                                    #{m2 12224}#)))))
                                      (cons (let ((#{m2 12232}#
                                                    (car #{w2 12207}#)))
                                              (if (null? #{m2 12232}#)
                                                #{m1 12208}#
                                                (append
                                                  #{m1 12208}#
                                                  #{m2 12232}#)))
                                            (let ((#{m2 12240}#
                                                    (cdr #{w2 12207}#)))
                                              (if (null? #{m2 12240}#)
                                                #{s1 12209}#
                                                (append
                                                  #{s1 12209}#
                                                  #{m2 12240}#))))))))
                              (#{module 12200}# (vector-ref #{x 12166}# 3)))
                          (vector
                            'syntax-object
                            #{expression 12198}#
                            #{wrap 12199}#
                            #{module 12200}#))
                        (if (null? #{x 12166}#)
                          #{x 12166}#
                          (vector
                            'syntax-object
                            #{x 12166}#
                            #{w 10408}#
                            #{mod 10410}#))))))))))))
    (module-define!
      (current-module)
      '@
      (make-syntax-transformer
        '@
        'module-ref
        (lambda (#{e 12271}# #{r 12272}# #{w 12273}#)
          (let ((#{tmp 12275}#
                  ($sc-dispatch #{e 12271}# '(_ each-any any))))
            (if (if #{tmp 12275}#
                  (@apply
                    (lambda (#{mod 12278}# #{id 12279}#)
                      (if (and-map #{id? 4341}# #{mod 12278}#)
                        (if (symbol? #{id 12279}#)
                          #t
                          (if (if (vector? #{id 12279}#)
                                (if (= (vector-length #{id 12279}#) 4)
                                  (eq? (vector-ref #{id 12279}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{id 12279}# 1))
                            #f))
                        #f))
                    #{tmp 12275}#)
                  #f)
              (@apply
                (lambda (#{mod 12319}# #{id 12320}#)
                  (values
                    (syntax->datum #{id 12320}#)
                    #{r 12272}#
                    #{w 12273}#
                    #f
                    (syntax->datum
                      (cons '#(syntax-object
                               public
                               ((top)
                                #(ribcage
                                  #(mod id)
                                  #((top) (top))
                                  #("i3632" "i3633"))
                                #(ribcage () () ())
                                #(ribcage
                                  #(e r w)
                                  #((top) (top) (top))
                                  #("i3620" "i3621" "i3622"))
                                #(ribcage
                                  (lambda-var-list
                                    gen-var
                                    strip
                                    chi-lambda-case
                                    lambda*-formals
                                    chi-simple-lambda
                                    lambda-formals
                                    ellipsis?
                                    chi-void
                                    eval-local-transformer
                                    chi-local-syntax
                                    chi-body
                                    chi-macro
                                    chi-call
                                    chi-expr
                                    chi
                                    syntax-type
                                    chi-when-list
                                    chi-install-global
                                    chi-top-sequence
                                    chi-sequence
                                    source-wrap
                                    wrap
                                    bound-id-member?
                                    distinct-bound-ids?
                                    valid-bound-ids?
                                    bound-id=?
                                    free-id=?
                                    id-var-name
                                    same-marks?
                                    join-marks
                                    join-wraps
                                    smart-append
                                    make-binding-wrap
                                    extend-ribcage!
                                    make-empty-ribcage
                                    new-mark
                                    anti-mark
                                    the-anti-mark
                                    top-marked?
                                    top-wrap
                                    empty-wrap
                                    set-ribcage-labels!
                                    set-ribcage-marks!
                                    set-ribcage-symnames!
                                    ribcage-labels
                                    ribcage-marks
                                    ribcage-symnames
                                    ribcage?
                                    make-ribcage
                                    gen-labels
                                    gen-label
                                    make-rename
                                    rename-marks
                                    rename-new
                                    rename-old
                                    subst-rename?
                                    wrap-subst
                                    wrap-marks
                                    make-wrap
                                    id-sym-name&marks
                                    id-sym-name
                                    id?
                                    nonsymbol-id?
                                    global-extend
                                    lookup
                                    macros-only-env
                                    extend-var-env
                                    extend-env
                                    null-env
                                    binding-value
                                    binding-type
                                    make-binding
                                    arg-check
                                    source-annotation
                                    no-source
                                    set-syntax-object-module!
                                    set-syntax-object-wrap!
                                    set-syntax-object-expression!
                                    syntax-object-module
                                    syntax-object-wrap
                                    syntax-object-expression
                                    syntax-object?
                                    make-syntax-object
                                    build-lexical-var
                                    build-letrec
                                    build-named-let
                                    build-let
                                    build-sequence
                                    build-data
                                    build-primref
                                    build-primcall
                                    build-lambda-case
                                    build-case-lambda
                                    build-simple-lambda
                                    build-global-definition
                                    build-global-assignment
                                    build-global-reference
                                    analyze-variable
                                    build-lexical-assignment
                                    build-lexical-reference
                                    build-dynlet
                                    build-conditional
                                    build-call
                                    build-void
                                    maybe-name-value!
                                    decorate-source
                                    get-global-definition-hook
                                    put-global-definition-hook
                                    gensym-hook
                                    local-eval-hook
                                    top-level-eval-hook
                                    fx<
                                    fx=
                                    fx-
                                    fx+
                                    set-lambda-meta!
                                    lambda-meta
                                    lambda?
                                    make-dynlet
                                    make-letrec
                                    make-let
                                    make-lambda-case
                                    make-lambda
                                    make-seq
                                    make-primcall
                                    make-call
                                    make-conditional
                                    make-toplevel-define
                                    make-toplevel-set
                                    make-toplevel-ref
                                    make-module-set
                                    make-module-ref
                                    make-lexical-set
                                    make-lexical-ref
                                    make-primitive-ref
                                    make-const
                                    make-void)
                                  ((top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top)
                                   (top))
                                  ("i471"
                                   "i469"
                                   "i467"
                                   "i465"
                                   "i463"
                                   "i461"
                                   "i459"
                                   "i457"
                                   "i455"
                                   "i453"
                                   "i451"
                                   "i449"
                                   "i447"
                                   "i445"
                                   "i443"
                                   "i441"
                                   "i439"
                                   "i437"
                                   "i435"
                                   "i433"
                                   "i431"
                                   "i429"
                                   "i427"
                                   "i425"
                                   "i423"
                                   "i421"
                                   "i419"
                                   "i417"
                                   "i415"
                                   "i413"
                                   "i411"
                                   "i409"
                                   "i407"
                                   "i405"
                                   "i403"
                                   "i402"
                                   "i400"
                                   "i397"
                                   "i396"
                                   "i395"
                                   "i393"
                                   "i392"
                                   "i390"
                                   "i388"
                                   "i386"
                                   "i384"
                                   "i382"
                                   "i380"
                                   "i378"
                                   "i376"
                                   "i373"
                                   "i371"
                                   "i370"
                                   "i368"
                                   "i366"
                                   "i364"
                                   "i362"
                                   "i361"
                                   "i360"
                                   "i359"
                                   "i357"
                                   "i356"
                                   "i353"
                                   "i351"
                                   "i349"
                                   "i347"
                                   "i345"
                                   "i343"
                                   "i341"
                                   "i340"
                                   "i339"
                                   "i337"
                                   "i335"
                                   "i334"
                                   "i331"
                                   "i330"
                                   "i328"
                                   "i326"
                                   "i324"
                                   "i322"
                                   "i320"
                                   "i318"
                                   "i316"
                                   "i314"
                                   "i312"
                                   "i309"
                                   "i307"
                                   "i305"
                                   "i303"
                                   "i301"
                                   "i299"
                                   "i297"
                                   "i295"
                                   "i293"
                                   "i291"
                                   "i289"
                                   "i287"
                                   "i285"
                                   "i283"
                                   "i281"
                                   "i279"
                                   "i277"
                                   "i275"
                                   "i273"
                                   "i271"
                                   "i269"
                                   "i267"
                                   "i265"
                                   "i263"
                                   "i262"
                                   "i259"
                                   "i257"
                                   "i256"
                                   "i255"
                                   "i254"
                                   "i253"
                                   "i251"
                                   "i249"
                                   "i247"
                                   "i244"
                                   "i242"
                                   "i240"
                                   "i238"
                                   "i236"
                                   "i234"
                                   "i232"
                                   "i230"
                                   "i228"
                                   "i226"
                                   "i224"
                                   "i222"
                                   "i220"
                                   "i218"
                                   "i216"
                                   "i214"
                                   "i212"
                                   "i210"
                                   "i208"))
                                #(ribcage
                                  (define-structure
                                    define-expansion-accessors
                                    define-expansion-constructors)
                                  ((top) (top) (top))
                                  ("i46" "i45" "i44")))
                               (hygiene guile))
                            #{mod 12319}#))))
                #{tmp 12275}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{e 12271}#))))))
    (#{global-extend 4339}#
      'module-ref
      '@@
      (lambda (#{e 12424}# #{r 12425}# #{w 12426}#)
        (letrec*
          ((#{remodulate 12427}#
             (lambda (#{x 12663}# #{mod 12664}#)
               (if (pair? #{x 12663}#)
                 (cons (#{remodulate 12427}#
                         (car #{x 12663}#)
                         #{mod 12664}#)
                       (#{remodulate 12427}#
                         (cdr #{x 12663}#)
                         #{mod 12664}#))
                 (if (if (vector? #{x 12663}#)
                       (if (= (vector-length #{x 12663}#) 4)
                         (eq? (vector-ref #{x 12663}# 0) 'syntax-object)
                         #f)
                       #f)
                   (let ((#{expression 12678}#
                           (#{remodulate 12427}#
                             (vector-ref #{x 12663}# 1)
                             #{mod 12664}#))
                         (#{wrap 12679}# (vector-ref #{x 12663}# 2)))
                     (vector
                       'syntax-object
                       #{expression 12678}#
                       #{wrap 12679}#
                       #{mod 12664}#))
                   (if (vector? #{x 12663}#)
                     (let ((#{n 12687}# (vector-length #{x 12663}#)))
                       (let ((#{v 12688}# (make-vector #{n 12687}#)))
                         (letrec*
                           ((#{loop 12689}#
                              (lambda (#{i 12744}#)
                                (if (= #{i 12744}# #{n 12687}#)
                                  #{v 12688}#
                                  (begin
                                    (vector-set!
                                      #{v 12688}#
                                      #{i 12744}#
                                      (#{remodulate 12427}#
                                        (vector-ref #{x 12663}# #{i 12744}#)
                                        #{mod 12664}#))
                                    (#{loop 12689}# (#{1+}# #{i 12744}#)))))))
                           (#{loop 12689}# 0))))
                     #{x 12663}#))))))
          (let ((#{tmp 12429}#
                  ($sc-dispatch #{e 12424}# '(_ each-any any))))
            (if (if #{tmp 12429}#
                  (@apply
                    (lambda (#{mod 12433}# #{exp 12434}#)
                      (and-map #{id? 4341}# #{mod 12433}#))
                    #{tmp 12429}#)
                  #f)
              (@apply
                (lambda (#{mod 12450}# #{exp 12451}#)
                  (let ((#{mod 12452}#
                          (syntax->datum
                            (cons '#(syntax-object
                                     private
                                     ((top)
                                      #(ribcage
                                        #(mod exp)
                                        #((top) (top))
                                        #("i3676" "i3677"))
                                      #(ribcage (remodulate) ((top)) ("i3643"))
                                      #(ribcage
                                        #(e r w)
                                        #((top) (top) (top))
                                        #("i3640" "i3641" "i3642"))
                                      #(ribcage
                                        (lambda-var-list
                                          gen-var
                                          strip
                                          chi-lambda-case
                                          lambda*-formals
                                          chi-simple-lambda
                                          lambda-formals
                                          ellipsis?
                                          chi-void
                                          eval-local-transformer
                                          chi-local-syntax
                                          chi-body
                                          chi-macro
                                          chi-call
                                          chi-expr
                                          chi
                                          syntax-type
                                          chi-when-list
                                          chi-install-global
                                          chi-top-sequence
                                          chi-sequence
                                          source-wrap
                                          wrap
                                          bound-id-member?
                                          distinct-bound-ids?
                                          valid-bound-ids?
                                          bound-id=?
                                          free-id=?
                                          id-var-name
                                          same-marks?
                                          join-marks
                                          join-wraps
                                          smart-append
                                          make-binding-wrap
                                          extend-ribcage!
                                          make-empty-ribcage
                                          new-mark
                                          anti-mark
                                          the-anti-mark
                                          top-marked?
                                          top-wrap
                                          empty-wrap
                                          set-ribcage-labels!
                                          set-ribcage-marks!
                                          set-ribcage-symnames!
                                          ribcage-labels
                                          ribcage-marks
                                          ribcage-symnames
                                          ribcage?
                                          make-ribcage
                                          gen-labels
                                          gen-label
                                          make-rename
                                          rename-marks
                                          rename-new
                                          rename-old
                                          subst-rename?
                                          wrap-subst
                                          wrap-marks
                                          make-wrap
                                          id-sym-name&marks
                                          id-sym-name
                                          id?
                                          nonsymbol-id?
                                          global-extend
                                          lookup
                                          macros-only-env
                                          extend-var-env
                                          extend-env
                                          null-env
                                          binding-value
                                          binding-type
                                          make-binding
                                          arg-check
                                          source-annotation
                                          no-source
                                          set-syntax-object-module!
                                          set-syntax-object-wrap!
                                          set-syntax-object-expression!
                                          syntax-object-module
                                          syntax-object-wrap
                                          syntax-object-expression
                                          syntax-object?
                                          make-syntax-object
                                          build-lexical-var
                                          build-letrec
                                          build-named-let
                                          build-let
                                          build-sequence
                                          build-data
                                          build-primref
                                          build-primcall
                                          build-lambda-case
                                          build-case-lambda
                                          build-simple-lambda
                                          build-global-definition
                                          build-global-assignment
                                          build-global-reference
                                          analyze-variable
                                          build-lexical-assignment
                                          build-lexical-reference
                                          build-dynlet
                                          build-conditional
                                          build-call
                                          build-void
                                          maybe-name-value!
                                          decorate-source
                                          get-global-definition-hook
                                          put-global-definition-hook
                                          gensym-hook
                                          local-eval-hook
                                          top-level-eval-hook
                                          fx<
                                          fx=
                                          fx-
                                          fx+
                                          set-lambda-meta!
                                          lambda-meta
                                          lambda?
                                          make-dynlet
                                          make-letrec
                                          make-let
                                          make-lambda-case
                                          make-lambda
                                          make-seq
                                          make-primcall
                                          make-call
                                          make-conditional
                                          make-toplevel-define
                                          make-toplevel-set
                                          make-toplevel-ref
                                          make-module-set
                                          make-module-ref
                                          make-lexical-set
                                          make-lexical-ref
                                          make-primitive-ref
                                          make-const
                                          make-void)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("i471"
                                         "i469"
                                         "i467"
                                         "i465"
                                         "i463"
                                         "i461"
                                         "i459"
                                         "i457"
                                         "i455"
                                         "i453"
                                         "i451"
                                         "i449"
                                         "i447"
                                         "i445"
                                         "i443"
                                         "i441"
                                         "i439"
                                         "i437"
                                         "i435"
                                         "i433"
                                         "i431"
                                         "i429"
                                         "i427"
                                         "i425"
                                         "i423"
                                         "i421"
                                         "i419"
                                         "i417"
                                         "i415"
                                         "i413"
                                         "i411"
                                         "i409"
                                         "i407"
                                         "i405"
                                         "i403"
                                         "i402"
                                         "i400"
                                         "i397"
                                         "i396"
                                         "i395"
                                         "i393"
                                         "i392"
                                         "i390"
                                         "i388"
                                         "i386"
                                         "i384"
                                         "i382"
                                         "i380"
                                         "i378"
                                         "i376"
                                         "i373"
                                         "i371"
                                         "i370"
                                         "i368"
                                         "i366"
                                         "i364"
                                         "i362"
                                         "i361"
                                         "i360"
                                         "i359"
                                         "i357"
                                         "i356"
                                         "i353"
                                         "i351"
                                         "i349"
                                         "i347"
                                         "i345"
                                         "i343"
                                         "i341"
                                         "i340"
                                         "i339"
                                         "i337"
                                         "i335"
                                         "i334"
                                         "i331"
                                         "i330"
                                         "i328"
                                         "i326"
                                         "i324"
                                         "i322"
                                         "i320"
                                         "i318"
                                         "i316"
                                         "i314"
                                         "i312"
                                         "i309"
                                         "i307"
                                         "i305"
                                         "i303"
                                         "i301"
                                         "i299"
                                         "i297"
                                         "i295"
                                         "i293"
                                         "i291"
                                         "i289"
                                         "i287"
                                         "i285"
                                         "i283"
                                         "i281"
                                         "i279"
                                         "i277"
                                         "i275"
                                         "i273"
                                         "i271"
                                         "i269"
                                         "i267"
                                         "i265"
                                         "i263"
                                         "i262"
                                         "i259"
                                         "i257"
                                         "i256"
                                         "i255"
                                         "i254"
                                         "i253"
                                         "i251"
                                         "i249"
                                         "i247"
                                         "i244"
                                         "i242"
                                         "i240"
                                         "i238"
                                         "i236"
                                         "i234"
                                         "i232"
                                         "i230"
                                         "i228"
                                         "i226"
                                         "i224"
                                         "i222"
                                         "i220"
                                         "i218"
                                         "i216"
                                         "i214"
                                         "i212"
                                         "i210"
                                         "i208"))
                                      #(ribcage
                                        (define-structure
                                          define-expansion-accessors
                                          define-expansion-constructors)
                                        ((top) (top) (top))
                                        ("i46" "i45" "i44")))
                                     (hygiene guile))
                                  #{mod 12450}#))))
                    (values
                      (#{remodulate 12427}#
                        #{exp 12451}#
                        #{mod 12452}#)
                      #{r 12425}#
                      #{w 12426}#
                      (#{source-annotation 4334}# #{exp 12451}#)
                      #{mod 12452}#)))
                #{tmp 12429}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{e 12424}#))))))
    (#{global-extend 4339}#
      'core
      'if
      (lambda (#{e 12857}#
               #{r 12858}#
               #{w 12859}#
               #{s 12860}#
               #{mod 12861}#)
        (let ((#{tmp 12863}#
                ($sc-dispatch #{e 12857}# '(_ any any))))
          (if #{tmp 12863}#
            (@apply
              (lambda (#{test 12867}# #{then 12868}#)
                (#{build-conditional 4308}#
                  #{s 12860}#
                  (#{chi 4373}#
                    #{test 12867}#
                    #{r 12858}#
                    #{w 12859}#
                    #{mod 12861}#)
                  (#{chi 4373}#
                    #{then 12868}#
                    #{r 12858}#
                    #{w 12859}#
                    #{mod 12861}#)
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 0)
                    #f)))
              #{tmp 12863}#)
            (let ((#{tmp 13129}#
                    ($sc-dispatch #{e 12857}# '(_ any any any))))
              (if #{tmp 13129}#
                (@apply
                  (lambda (#{test 13133}# #{then 13134}# #{else 13135}#)
                    (#{build-conditional 4308}#
                      #{s 12860}#
                      (#{chi 4373}#
                        #{test 13133}#
                        #{r 12858}#
                        #{w 12859}#
                        #{mod 12861}#)
                      (#{chi 4373}#
                        #{then 13134}#
                        #{r 12858}#
                        #{w 12859}#
                        #{mod 12861}#)
                      (#{chi 4373}#
                        #{else 13135}#
                        #{r 12858}#
                        #{w 12859}#
                        #{mod 12861}#)))
                  #{tmp 13129}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{e 12857}#)))))))
    (#{global-extend 4339}#
      'core
      'with-fluids
      (lambda (#{e 13594}#
               #{r 13595}#
               #{w 13596}#
               #{s 13597}#
               #{mod 13598}#)
        (let ((#{tmp 13600}#
                ($sc-dispatch
                  #{e 13594}#
                  '(_ #(each (any any)) any . each-any))))
          (if #{tmp 13600}#
            (@apply
              (lambda (#{fluid 13604}#
                       #{val 13605}#
                       #{b 13606}#
                       #{b* 13607}#)
                (#{build-dynlet 4309}#
                  #{s 13597}#
                  (map (lambda (#{x 13700}#)
                         (#{chi 4373}#
                           #{x 13700}#
                           #{r 13595}#
                           #{w 13596}#
                           #{mod 13598}#))
                       #{fluid 13604}#)
                  (map (lambda (#{x 13782}#)
                         (#{chi 4373}#
                           #{x 13782}#
                           #{r 13595}#
                           #{w 13596}#
                           #{mod 13598}#))
                       #{val 13605}#)
                  (#{chi-body 4377}#
                    (cons #{b 13606}# #{b* 13607}#)
                    (let ((#{x 13875}#
                            (begin
                              (if (if (pair? #{e 13594}#) #{s 13597}# #f)
                                (set-source-properties!
                                  #{e 13594}#
                                  #{s 13597}#))
                              #{e 13594}#)))
                      (if (if (null? (car #{w 13596}#))
                            (null? (cdr #{w 13596}#))
                            #f)
                        #{x 13875}#
                        (if (if (vector? #{x 13875}#)
                              (if (= (vector-length #{x 13875}#) 4)
                                (eq? (vector-ref #{x 13875}# 0) 'syntax-object)
                                #f)
                              #f)
                          (let ((#{expression 13907}#
                                  (vector-ref #{x 13875}# 1))
                                (#{wrap 13908}#
                                  (let ((#{w2 13916}#
                                          (vector-ref #{x 13875}# 2)))
                                    (let ((#{m1 13917}# (car #{w 13596}#))
                                          (#{s1 13918}# (cdr #{w 13596}#)))
                                      (if (null? #{m1 13917}#)
                                        (if (null? #{s1 13918}#)
                                          #{w2 13916}#
                                          (cons (car #{w2 13916}#)
                                                (let ((#{m2 13933}#
                                                        (cdr #{w2 13916}#)))
                                                  (if (null? #{m2 13933}#)
                                                    #{s1 13918}#
                                                    (append
                                                      #{s1 13918}#
                                                      #{m2 13933}#)))))
                                        (cons (let ((#{m2 13941}#
                                                      (car #{w2 13916}#)))
                                                (if (null? #{m2 13941}#)
                                                  #{m1 13917}#
                                                  (append
                                                    #{m1 13917}#
                                                    #{m2 13941}#)))
                                              (let ((#{m2 13949}#
                                                      (cdr #{w2 13916}#)))
                                                (if (null? #{m2 13949}#)
                                                  #{s1 13918}#
                                                  (append
                                                    #{s1 13918}#
                                                    #{m2 13949}#))))))))
                                (#{module 13909}# (vector-ref #{x 13875}# 3)))
                            (vector
                              'syntax-object
                              #{expression 13907}#
                              #{wrap 13908}#
                              #{module 13909}#))
                          (if (null? #{x 13875}#)
                            #{x 13875}#
                            (vector
                              'syntax-object
                              #{x 13875}#
                              #{w 13596}#
                              #{mod 13598}#)))))
                    #{r 13595}#
                    #{w 13596}#
                    #{mod 13598}#)))
              #{tmp 13600}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{e 13594}#)))))
    (module-define!
      (current-module)
      'begin
      (make-syntax-transformer 'begin 'begin '()))
    (module-define!
      (current-module)
      'define
      (make-syntax-transformer 'define 'define '()))
    (module-define!
      (current-module)
      'define-syntax
      (make-syntax-transformer
        'define-syntax
        'define-syntax
        '()))
    (module-define!
      (current-module)
      'eval-when
      (make-syntax-transformer
        'eval-when
        'eval-when
        '()))
    (#{global-extend 4339}#
      'core
      'syntax-case
      (letrec*
        ((#{convert-pattern 14243}#
           (lambda (#{pattern 15899}# #{keys 15900}#)
             (letrec*
               ((#{cvt* 15901}#
                  (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#)
                    (if (not (pair? #{p* 16700}#))
                      (#{cvt 15903}#
                        #{p* 16700}#
                        #{n 16701}#
                        #{ids 16702}#)
                      (call-with-values
                        (lambda ()
                          (#{cvt* 15901}#
                            (cdr #{p* 16700}#)
                            #{n 16701}#
                            #{ids 16702}#))
                        (lambda (#{y 16705}# #{ids 16706}#)
                          (call-with-values
                            (lambda ()
                              (#{cvt 15903}#
                                (car #{p* 16700}#)
                                #{n 16701}#
                                #{ids 16706}#))
                            (lambda (#{x 16709}# #{ids 16710}#)
                              (values
                                (cons #{x 16709}# #{y 16705}#)
                                #{ids 16710}#))))))))
                (#{v-reverse 15902}#
                  (lambda (#{x 16711}#)
                    (letrec*
                      ((#{loop 16712}#
                         (lambda (#{r 16813}# #{x 16814}#)
                           (if (not (pair? #{x 16814}#))
                             (values #{r 16813}# #{x 16814}#)
                             (#{loop 16712}#
                               (cons (car #{x 16814}#) #{r 16813}#)
                               (cdr #{x 16814}#))))))
                      (#{loop 16712}# '() #{x 16711}#))))
                (#{cvt 15903}#
                  (lambda (#{p 15906}# #{n 15907}# #{ids 15908}#)
                    (if (if (symbol? #{p 15906}#)
                          #t
                          (if (if (vector? #{p 15906}#)
                                (if (= (vector-length #{p 15906}#) 4)
                                  (eq? (vector-ref #{p 15906}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{p 15906}# 1))
                            #f))
                      (if (#{bound-id-member? 4365}#
                            #{p 15906}#
                            #{keys 15900}#)
                        (values
                          (vector 'free-id #{p 15906}#)
                          #{ids 15908}#)
                        (if (#{free-id=? 4361}#
                              #{p 15906}#
                              '#(syntax-object
                                 _
                                 ((top)
                                  #(ribcage () () ())
                                  #(ribcage
                                    #(p n ids)
                                    #((top) (top) (top))
                                    #("i3777" "i3778" "i3779"))
                                  #(ribcage
                                    (cvt v-reverse cvt*)
                                    ((top) (top) (top))
                                    ("i3750" "i3748" "i3746"))
                                  #(ribcage
                                    #(pattern keys)
                                    #((top) (top))
                                    #("i3744" "i3745"))
                                  #(ribcage
                                    (gen-syntax-case
                                      gen-clause
                                      build-dispatch-call
                                      convert-pattern)
                                    ((top) (top) (top) (top))
                                    ("i3740" "i3738" "i3736" "i3734"))
                                  #(ribcage
                                    (lambda-var-list
                                      gen-var
                                      strip
                                      chi-lambda-case
                                      lambda*-formals
                                      chi-simple-lambda
                                      lambda-formals
                                      ellipsis?
                                      chi-void
                                      eval-local-transformer
                                      chi-local-syntax
                                      chi-body
                                      chi-macro
                                      chi-call
                                      chi-expr
                                      chi
                                      syntax-type
                                      chi-when-list
                                      chi-install-global
                                      chi-top-sequence
                                      chi-sequence
                                      source-wrap
                                      wrap
                                      bound-id-member?
                                      distinct-bound-ids?
                                      valid-bound-ids?
                                      bound-id=?
                                      free-id=?
                                      id-var-name
                                      same-marks?
                                      join-marks
                                      join-wraps
                                      smart-append
                                      make-binding-wrap
                                      extend-ribcage!
                                      make-empty-ribcage
                                      new-mark
                                      anti-mark
                                      the-anti-mark
                                      top-marked?
                                      top-wrap
                                      empty-wrap
                                      set-ribcage-labels!
                                      set-ribcage-marks!
                                      set-ribcage-symnames!
                                      ribcage-labels
                                      ribcage-marks
                                      ribcage-symnames
                                      ribcage?
                                      make-ribcage
                                      gen-labels
                                      gen-label
                                      make-rename
                                      rename-marks
                                      rename-new
                                      rename-old
                                      subst-rename?
                                      wrap-subst
                                      wrap-marks
                                      make-wrap
                                      id-sym-name&marks
                                      id-sym-name
                                      id?
                                      nonsymbol-id?
                                      global-extend
                                      lookup
                                      macros-only-env
                                      extend-var-env
                                      extend-env
                                      null-env
                                      binding-value
                                      binding-type
                                      make-binding
                                      arg-check
                                      source-annotation
                                      no-source
                                      set-syntax-object-module!
                                      set-syntax-object-wrap!
                                      set-syntax-object-expression!
                                      syntax-object-module
                                      syntax-object-wrap
                                      syntax-object-expression
                                      syntax-object?
                                      make-syntax-object
                                      build-lexical-var
                                      build-letrec
                                      build-named-let
                                      build-let
                                      build-sequence
                                      build-data
                                      build-primref
                                      build-primcall
                                      build-lambda-case
                                      build-case-lambda
                                      build-simple-lambda
                                      build-global-definition
                                      build-global-assignment
                                      build-global-reference
                                      analyze-variable
                                      build-lexical-assignment
                                      build-lexical-reference
                                      build-dynlet
                                      build-conditional
                                      build-call
                                      build-void
                                      maybe-name-value!
                                      decorate-source
                                      get-global-definition-hook
                                      put-global-definition-hook
                                      gensym-hook
                                      local-eval-hook
                                      top-level-eval-hook
                                      fx<
                                      fx=
                                      fx-
                                      fx+
                                      set-lambda-meta!
                                      lambda-meta
                                      lambda?
                                      make-dynlet
                                      make-letrec
                                      make-let
                                      make-lambda-case
                                      make-lambda
                                      make-seq
                                      make-primcall
                                      make-call
                                      make-conditional
                                      make-toplevel-define
                                      make-toplevel-set
                                      make-toplevel-ref
                                      make-module-set
                                      make-module-ref
                                      make-lexical-set
                                      make-lexical-ref
                                      make-primitive-ref
                                      make-const
                                      make-void)
                                    ((top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top)
                                     (top))
                                    ("i471"
                                     "i469"
                                     "i467"
                                     "i465"
                                     "i463"
                                     "i461"
                                     "i459"
                                     "i457"
                                     "i455"
                                     "i453"
                                     "i451"
                                     "i449"
                                     "i447"
                                     "i445"
                                     "i443"
                                     "i441"
                                     "i439"
                                     "i437"
                                     "i435"
                                     "i433"
                                     "i431"
                                     "i429"
                                     "i427"
                                     "i425"
                                     "i423"
                                     "i421"
                                     "i419"
                                     "i417"
                                     "i415"
                                     "i413"
                                     "i411"
                                     "i409"
                                     "i407"
                                     "i405"
                                     "i403"
                                     "i402"
                                     "i400"
                                     "i397"
                                     "i396"
                                     "i395"
                                     "i393"
                                     "i392"
                                     "i390"
                                     "i388"
                                     "i386"
                                     "i384"
                                     "i382"
                                     "i380"
                                     "i378"
                                     "i376"
                                     "i373"
                                     "i371"
                                     "i370"
                                     "i368"
                                     "i366"
                                     "i364"
                                     "i362"
                                     "i361"
                                     "i360"
                                     "i359"
                                     "i357"
                                     "i356"
                                     "i353"
                                     "i351"
                                     "i349"
                                     "i347"
                                     "i345"
                                     "i343"
                                     "i341"
                                     "i340"
                                     "i339"
                                     "i337"
                                     "i335"
                                     "i334"
                                     "i331"
                                     "i330"
                                     "i328"
                                     "i326"
                                     "i324"
                                     "i322"
                                     "i320"
                                     "i318"
                                     "i316"
                                     "i314"
                                     "i312"
                                     "i309"
                                     "i307"
                                     "i305"
                                     "i303"
                                     "i301"
                                     "i299"
                                     "i297"
                                     "i295"
                                     "i293"
                                     "i291"
                                     "i289"
                                     "i287"
                                     "i285"
                                     "i283"
                                     "i281"
                                     "i279"
                                     "i277"
                                     "i275"
                                     "i273"
                                     "i271"
                                     "i269"
                                     "i267"
                                     "i265"
                                     "i263"
                                     "i262"
                                     "i259"
                                     "i257"
                                     "i256"
                                     "i255"
                                     "i254"
                                     "i253"
                                     "i251"
                                     "i249"
                                     "i247"
                                     "i244"
                                     "i242"
                                     "i240"
                                     "i238"
                                     "i236"
                                     "i234"
                                     "i232"
                                     "i230"
                                     "i228"
                                     "i226"
                                     "i224"
                                     "i222"
                                     "i220"
                                     "i218"
                                     "i216"
                                     "i214"
                                     "i212"
                                     "i210"
                                     "i208"))
                                  #(ribcage
                                    (define-structure
                                      define-expansion-accessors
                                      define-expansion-constructors)
                                    ((top) (top) (top))
                                    ("i46" "i45" "i44")))
                                 (hygiene guile)))
                          (values '_ #{ids 15908}#)
                          (values
                            'any
                            (cons (cons #{p 15906}# #{n 15907}#)
                                  #{ids 15908}#))))
                      (let ((#{tmp 16040}#
                              ($sc-dispatch #{p 15906}# '(any any))))
                        (if (if #{tmp 16040}#
                              (@apply
                                (lambda (#{x 16044}# #{dots 16045}#)
                                  (if (if (if (vector? #{dots 16045}#)
                                            (if (= (vector-length
                                                     #{dots 16045}#)
                                                   4)
                                              (eq? (vector-ref
                                                     #{dots 16045}#
                                                     0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (symbol? (vector-ref #{dots 16045}# 1))
                                        #f)
                                    (#{free-id=? 4361}#
                                      #{dots 16045}#
                                      '#(syntax-object
                                         ...
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i2261"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
                                              strip
                                              chi-lambda-case
                                              lambda*-formals
                                              chi-simple-lambda
                                              lambda-formals
                                              ellipsis?
                                              chi-void
                                              eval-local-transformer
                                              chi-local-syntax
                                              chi-body
                                              chi-macro
                                              chi-call
                                              chi-expr
                                              chi
                                              syntax-type
                                              chi-when-list
                                              chi-install-global
                                              chi-top-sequence
                                              chi-sequence
                                              source-wrap
                                              wrap
                                              bound-id-member?
                                              distinct-bound-ids?
                                              valid-bound-ids?
                                              bound-id=?
                                              free-id=?
                                              id-var-name
                                              same-marks?
                                              join-marks
                                              join-wraps
                                              smart-append
                                              make-binding-wrap
                                              extend-ribcage!
                                              make-empty-ribcage
                                              new-mark
                                              anti-mark
                                              the-anti-mark
                                              top-marked?
                                              top-wrap
                                              empty-wrap
                                              set-ribcage-labels!
                                              set-ribcage-marks!
                                              set-ribcage-symnames!
                                              ribcage-labels
                                              ribcage-marks
                                              ribcage-symnames
                                              ribcage?
                                              make-ribcage
                                              gen-labels
                                              gen-label
                                              make-rename
                                              rename-marks
                                              rename-new
                                              rename-old
                                              subst-rename?
                                              wrap-subst
                                              wrap-marks
                                              make-wrap
                                              id-sym-name&marks
                                              id-sym-name
                                              id?
                                              nonsymbol-id?
                                              global-extend
                                              lookup
                                              macros-only-env
                                              extend-var-env
                                              extend-env
                                              null-env
                                              binding-value
                                              binding-type
                                              make-binding
                                              arg-check
                                              source-annotation
                                              no-source
                                              set-syntax-object-module!
                                              set-syntax-object-wrap!
                                              set-syntax-object-expression!
                                              syntax-object-module
                                              syntax-object-wrap
                                              syntax-object-expression
                                              syntax-object?
                                              make-syntax-object
                                              build-lexical-var
                                              build-letrec
                                              build-named-let
                                              build-let
                                              build-sequence
                                              build-data
                                              build-primref
                                              build-primcall
                                              build-lambda-case
                                              build-case-lambda
                                              build-simple-lambda
                                              build-global-definition
                                              build-global-assignment
                                              build-global-reference
                                              analyze-variable
                                              build-lexical-assignment
                                              build-lexical-reference
                                              build-dynlet
                                              build-conditional
                                              build-call
                                              build-void
                                              maybe-name-value!
                                              decorate-source
                                              get-global-definition-hook
                                              put-global-definition-hook
                                              gensym-hook
                                              local-eval-hook
                                              top-level-eval-hook
                                              fx<
                                              fx=
                                              fx-
                                              fx+
                                              set-lambda-meta!
                                              lambda-meta
                                              lambda?
                                              make-dynlet
                                              make-letrec
                                              make-let
                                              make-lambda-case
                                              make-lambda
                                              make-seq
                                              make-primcall
                                              make-call
                                              make-conditional
                                              make-toplevel-define
                                              make-toplevel-set
                                              make-toplevel-ref
                                              make-module-set
                                              make-module-ref
                                              make-lexical-set
                                              make-lexical-ref
                                              make-primitive-ref
                                              make-const
                                              make-void)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i471"
                                             "i469"
                                             "i467"
                                             "i465"
                                             "i463"
                                             "i461"
                                             "i459"
                                             "i457"
                                             "i455"
                                             "i453"
                                             "i451"
                                             "i449"
                                             "i447"
                                             "i445"
                                             "i443"
                                             "i441"
                                             "i439"
                                             "i437"
                                             "i435"
                                             "i433"
                                             "i431"
                                             "i429"
                                             "i427"
                                             "i425"
                                             "i423"
                                             "i421"
                                             "i419"
                                             "i417"
                                             "i415"
                                             "i413"
                                             "i411"
                                             "i409"
                                             "i407"
                                             "i405"
                                             "i403"
                                             "i402"
                                             "i400"
                                             "i397"
                                             "i396"
                                             "i395"
                                             "i393"
                                             "i392"
                                             "i390"
                                             "i388"
                                             "i386"
                                             "i384"
                                             "i382"
                                             "i380"
                                             "i378"
                                             "i376"
                                             "i373"
                                             "i371"
                                             "i370"
                                             "i368"
                                             "i366"
                                             "i364"
                                             "i362"
                                             "i361"
                                             "i360"
                                             "i359"
                                             "i357"
                                             "i356"
                                             "i353"
                                             "i351"
                                             "i349"
                                             "i347"
                                             "i345"
                                             "i343"
                                             "i341"
                                             "i340"
                                             "i339"
                                             "i337"
                                             "i335"
                                             "i334"
                                             "i331"
                                             "i330"
                                             "i328"
                                             "i326"
                                             "i324"
                                             "i322"
                                             "i320"
                                             "i318"
                                             "i316"
                                             "i314"
                                             "i312"
                                             "i309"
                                             "i307"
                                             "i305"
                                             "i303"
                                             "i301"
                                             "i299"
                                             "i297"
                                             "i295"
                                             "i293"
                                             "i291"
                                             "i289"
                                             "i287"
                                             "i285"
                                             "i283"
                                             "i281"
                                             "i279"
                                             "i277"
                                             "i275"
                                             "i273"
                                             "i271"
                                             "i269"
                                             "i267"
                                             "i265"
                                             "i263"
                                             "i262"
                                             "i259"
                                             "i257"
                                             "i256"
                                             "i255"
                                             "i254"
                                             "i253"
                                             "i251"
                                             "i249"
                                             "i247"
                                             "i244"
                                             "i242"
                                             "i240"
                                             "i238"
                                             "i236"
                                             "i234"
                                             "i232"
                                             "i230"
                                             "i228"
                                             "i226"
                                             "i224"
                                             "i222"
                                             "i220"
                                             "i218"
                                             "i216"
                                             "i214"
                                             "i212"
                                             "i210"
                                             "i208"))
                                          #(ribcage
                                            (define-structure
                                              define-expansion-accessors
                                              define-expansion-constructors)
                                            ((top) (top) (top))
                                            ("i46" "i45" "i44")))
                                         (hygiene guile)))
                                    #f))
                                #{tmp 16040}#)
                              #f)
                          (@apply
                            (lambda (#{x 16084}# #{dots 16085}#)
                              (call-with-values
                                (lambda ()
                                  (#{cvt 15903}#
                                    #{x 16084}#
                                    (#{1+}# #{n 15907}#)
                                    #{ids 15908}#))
                                (lambda (#{p 16086}# #{ids 16087}#)
                                  (values
                                    (if (eq? #{p 16086}# 'any)
                                      'each-any
                                      (vector 'each #{p 16086}#))
                                    #{ids 16087}#))))
                            #{tmp 16040}#)
                          (let ((#{tmp 16088}#
                                  ($sc-dispatch #{p 15906}# '(any any . any))))
                            (if (if #{tmp 16088}#
                                  (@apply
                                    (lambda (#{x 16092}#
                                             #{dots 16093}#
                                             #{ys 16094}#)
                                      (if (if (if (vector? #{dots 16093}#)
                                                (if (= (vector-length
                                                         #{dots 16093}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{dots 16093}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (symbol?
                                              (vector-ref #{dots 16093}# 1))
                                            #f)
                                        (#{free-id=? 4361}#
                                          #{dots 16093}#
                                          '#(syntax-object
                                             ...
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i2261"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
                                                  strip
                                                  chi-lambda-case
                                                  lambda*-formals
                                                  chi-simple-lambda
                                                  lambda-formals
                                                  ellipsis?
                                                  chi-void
                                                  eval-local-transformer
                                                  chi-local-syntax
                                                  chi-body
                                                  chi-macro
                                                  chi-call
                                                  chi-expr
                                                  chi
                                                  syntax-type
                                                  chi-when-list
                                                  chi-install-global
                                                  chi-top-sequence
                                                  chi-sequence
                                                  source-wrap
                                                  wrap
                                                  bound-id-member?
                                                  distinct-bound-ids?
                                                  valid-bound-ids?
                                                  bound-id=?
                                                  free-id=?
                                                  id-var-name
                                                  same-marks?
                                                  join-marks
                                                  join-wraps
                                                  smart-append
                                                  make-binding-wrap
                                                  extend-ribcage!
                                                  make-empty-ribcage
                                                  new-mark
                                                  anti-mark
                                                  the-anti-mark
                                                  top-marked?
                                                  top-wrap
                                                  empty-wrap
                                                  set-ribcage-labels!
                                                  set-ribcage-marks!
                                                  set-ribcage-symnames!
                                                  ribcage-labels
                                                  ribcage-marks
                                                  ribcage-symnames
                                                  ribcage?
                                                  make-ribcage
                                                  gen-labels
                                                  gen-label
                                                  make-rename
                                                  rename-marks
                                                  rename-new
                                                  rename-old
                                                  subst-rename?
                                                  wrap-subst
                                                  wrap-marks
                                                  make-wrap
                                                  id-sym-name&marks
                                                  id-sym-name
                                                  id?
                                                  nonsymbol-id?
                                                  global-extend
                                                  lookup
                                                  macros-only-env
                                                  extend-var-env
                                                  extend-env
                                                  null-env
                                                  binding-value
                                                  binding-type
                                                  make-binding
                                                  arg-check
                                                  source-annotation
                                                  no-source
                                                  set-syntax-object-module!
                                                  set-syntax-object-wrap!
                                                  set-syntax-object-expression!
                                                  syntax-object-module
                                                  syntax-object-wrap
                                                  syntax-object-expression
                                                  syntax-object?
                                                  make-syntax-object
                                                  build-lexical-var
                                                  build-letrec
                                                  build-named-let
                                                  build-let
                                                  build-sequence
                                                  build-data
                                                  build-primref
                                                  build-primcall
                                                  build-lambda-case
                                                  build-case-lambda
                                                  build-simple-lambda
                                                  build-global-definition
                                                  build-global-assignment
                                                  build-global-reference
                                                  analyze-variable
                                                  build-lexical-assignment
                                                  build-lexical-reference
                                                  build-dynlet
                                                  build-conditional
                                                  build-call
                                                  build-void
                                                  maybe-name-value!
                                                  decorate-source
                                                  get-global-definition-hook
                                                  put-global-definition-hook
                                                  gensym-hook
                                                  local-eval-hook
                                                  top-level-eval-hook
                                                  fx<
                                                  fx=
                                                  fx-
                                                  fx+
                                                  set-lambda-meta!
                                                  lambda-meta
                                                  lambda?
                                                  make-dynlet
                                                  make-letrec
                                                  make-let
                                                  make-lambda-case
                                                  make-lambda
                                                  make-seq
                                                  make-primcall
                                                  make-call
                                                  make-conditional
                                                  make-toplevel-define
                                                  make-toplevel-set
                                                  make-toplevel-ref
                                                  make-module-set
                                                  make-module-ref
                                                  make-lexical-set
                                                  make-lexical-ref
                                                  make-primitive-ref
                                                  make-const
                                                  make-void)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i471"
                                                 "i469"
                                                 "i467"
                                                 "i465"
                                                 "i463"
                                                 "i461"
                                                 "i459"
                                                 "i457"
                                                 "i455"
                                                 "i453"
                                                 "i451"
                                                 "i449"
                                                 "i447"
                                                 "i445"
                                                 "i443"
                                                 "i441"
                                                 "i439"
                                                 "i437"
                                                 "i435"
                                                 "i433"
                                                 "i431"
                                                 "i429"
                                                 "i427"
                                                 "i425"
                                                 "i423"
                                                 "i421"
                                                 "i419"
                                                 "i417"
                                                 "i415"
                                                 "i413"
                                                 "i411"
                                                 "i409"
                                                 "i407"
                                                 "i405"
                                                 "i403"
                                                 "i402"
                                                 "i400"
                                                 "i397"
                                                 "i396"
                                                 "i395"
                                                 "i393"
                                                 "i392"
                                                 "i390"
                                                 "i388"
                                                 "i386"
                                                 "i384"
                                                 "i382"
                                                 "i380"
                                                 "i378"
                                                 "i376"
                                                 "i373"
                                                 "i371"
                                                 "i370"
                                                 "i368"
                                                 "i366"
                                                 "i364"
                                                 "i362"
                                                 "i361"
                                                 "i360"
                                                 "i359"
                                                 "i357"
                                                 "i356"
                                                 "i353"
                                                 "i351"
                                                 "i349"
                                                 "i347"
                                                 "i345"
                                                 "i343"
                                                 "i341"
                                                 "i340"
                                                 "i339"
                                                 "i337"
                                                 "i335"
                                                 "i334"
                                                 "i331"
                                                 "i330"
                                                 "i328"
                                                 "i326"
                                                 "i324"
                                                 "i322"
                                                 "i320"
                                                 "i318"
                                                 "i316"
                                                 "i314"
                                                 "i312"
                                                 "i309"
                                                 "i307"
                                                 "i305"
                                                 "i303"
                                                 "i301"
                                                 "i299"
                                                 "i297"
                                                 "i295"
                                                 "i293"
                                                 "i291"
                                                 "i289"
                                                 "i287"
                                                 "i285"
                                                 "i283"
                                                 "i281"
                                                 "i279"
                                                 "i277"
                                                 "i275"
                                                 "i273"
                                                 "i271"
                                                 "i269"
                                                 "i267"
                                                 "i265"
                                                 "i263"
                                                 "i262"
                                                 "i259"
                                                 "i257"
                                                 "i256"
                                                 "i255"
                                                 "i254"
                                                 "i253"
                                                 "i251"
                                                 "i249"
                                                 "i247"
                                                 "i244"
                                                 "i242"
                                                 "i240"
                                                 "i238"
                                                 "i236"
                                                 "i234"
                                                 "i232"
                                                 "i230"
                                                 "i228"
                                                 "i226"
                                                 "i224"
                                                 "i222"
                                                 "i220"
                                                 "i218"
                                                 "i216"
                                                 "i214"
                                                 "i212"
                                                 "i210"
                                                 "i208"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors)
                                                ((top) (top) (top))
                                                ("i46" "i45" "i44")))
                                             (hygiene guile)))
                                        #f))
                                    #{tmp 16088}#)
                                  #f)
                              (@apply
                                (lambda (#{x 16133}#
                                         #{dots 16134}#
                                         #{ys 16135}#)
                                  (call-with-values
                                    (lambda ()
                                      (#{cvt* 15901}#
                                        #{ys 16135}#
                                        #{n 15907}#
                                        #{ids 15908}#))
                                    (lambda (#{ys 16620}# #{ids 16621}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{cvt 15903}#
                                            #{x 16133}#
                                            (#{1+}# #{n 15907}#)
                                            #{ids 16621}#))
                                        (lambda (#{x 16622}# #{ids 16623}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{v-reverse 15902}#
                                                #{ys 16620}#))
                                            (lambda (#{ys 16659}# #{e 16660}#)
                                              (values
                                                (vector
                                                  'each+
                                                  #{x 16622}#
                                                  #{ys 16659}#
                                                  #{e 16660}#)
                                                #{ids 16623}#))))))))
                                #{tmp 16088}#)
                              (let ((#{tmp 16661}#
                                      ($sc-dispatch #{p 15906}# '(any . any))))
                                (if #{tmp 16661}#
                                  (@apply
                                    (lambda (#{x 16665}# #{y 16666}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{cvt 15903}#
                                            #{y 16666}#
                                            #{n 15907}#
                                            #{ids 15908}#))
                                        (lambda (#{y 16667}# #{ids 16668}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{cvt 15903}#
                                                #{x 16665}#
                                                #{n 15907}#
                                                #{ids 16668}#))
                                            (lambda (#{x 16669}# #{ids 16670}#)
                                              (values
                                                (cons #{x 16669}# #{y 16667}#)
                                                #{ids 16670}#))))))
                                    #{tmp 16661}#)
                                  (let ((#{tmp 16671}#
                                          ($sc-dispatch #{p 15906}# '())))
                                    (if #{tmp 16671}#
                                      (@apply
                                        (lambda () (values '() #{ids 15908}#))
                                        #{tmp 16671}#)
                                      (let ((#{tmp 16675}#
                                              ($sc-dispatch
                                                #{p 15906}#
                                                '#(vector each-any))))
                                        (if #{tmp 16675}#
                                          (@apply
                                            (lambda (#{x 16679}#)
                                              (call-with-values
                                                (lambda ()
                                                  (#{cvt 15903}#
                                                    #{x 16679}#
                                                    #{n 15907}#
                                                    #{ids 15908}#))
                                                (lambda (#{p 16680}#
                                                         #{ids 16681}#)
                                                  (values
                                                    (vector
                                                      'vector
                                                      #{p 16680}#)
                                                    #{ids 16681}#))))
                                            #{tmp 16675}#)
                                          (values
                                            (vector
                                              'atom
                                              (#{strip 4386}#
                                                #{p 15906}#
                                                '(())))
                                            #{ids 15908}#)))))))))))))))
               (#{cvt 15903}# #{pattern 15899}# 0 '()))))
         (#{build-dispatch-call 14244}#
           (lambda (#{pvars 16815}#
                    #{exp 16816}#
                    #{y 16817}#
                    #{r 16818}#
                    #{mod 16819}#)
             (let ((#{ids 16820}# (map car #{pvars 16815}#)))
               (begin
                 (map cdr #{pvars 16815}#)
                 (let ((#{labels 16822}#
                         (#{gen-labels 4344}# #{ids 16820}#))
                       (#{new-vars 16823}#
                         (map #{gen-var 4387}# #{ids 16820}#)))
                   (#{build-primcall 4319}#
                     #f
                     'apply
                     (list (#{build-simple-lambda 4316}#
                             #f
                             (map syntax->datum #{ids 16820}#)
                             #f
                             #{new-vars 16823}#
                             '()
                             (#{chi 4373}#
                               #{exp 16816}#
                               (#{extend-env 4335}#
                                 #{labels 16822}#
                                 (map (lambda (#{var 17155}# #{level 17156}#)
                                        (cons 'syntax
                                              (cons #{var 17155}#
                                                    #{level 17156}#)))
                                      #{new-vars 16823}#
                                      (map cdr #{pvars 16815}#))
                                 #{r 16818}#)
                               (#{make-binding-wrap 4355}#
                                 #{ids 16820}#
                                 #{labels 16822}#
                                 '(()))
                               #{mod 16819}#))
                           #{y 16817}#)))))))
         (#{gen-clause 14245}#
           (lambda (#{x 15493}#
                    #{keys 15494}#
                    #{clauses 15495}#
                    #{r 15496}#
                    #{pat 15497}#
                    #{fender 15498}#
                    #{exp 15499}#
                    #{mod 15500}#)
             (call-with-values
               (lambda ()
                 (#{convert-pattern 14243}#
                   #{pat 15497}#
                   #{keys 15494}#))
               (lambda (#{p 15638}# #{pvars 15639}#)
                 (if (not (#{distinct-bound-ids? 4364}#
                            (map car #{pvars 15639}#)))
                   (syntax-violation
                     'syntax-case
                     "duplicate pattern variable"
                     #{pat 15497}#)
                   (if (not (and-map
                              (lambda (#{x 15748}#)
                                (not (let ((#{x 15752}# (car #{x 15748}#)))
                                       (if (if (if (vector? #{x 15752}#)
                                                 (if (= (vector-length
                                                          #{x 15752}#)
                                                        4)
                                                   (eq? (vector-ref
                                                          #{x 15752}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (symbol?
                                               (vector-ref #{x 15752}# 1))
                                             #f)
                                         (#{free-id=? 4361}#
                                           #{x 15752}#
                                           '#(syntax-object
                                              ...
                                              ((top)
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
                                                 #("i2261"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
                                                   strip
                                                   chi-lambda-case
                                                   lambda*-formals
                                                   chi-simple-lambda
                                                   lambda-formals
                                                   ellipsis?
                                                   chi-void
                                                   eval-local-transformer
                                                   chi-local-syntax
                                                   chi-body
                                                   chi-macro
                                                   chi-call
                                                   chi-expr
                                                   chi
                                                   syntax-type
                                                   chi-when-list
                                                   chi-install-global
                                                   chi-top-sequence
                                                   chi-sequence
                                                   source-wrap
                                                   wrap
                                                   bound-id-member?
                                                   distinct-bound-ids?
                                                   valid-bound-ids?
                                                   bound-id=?
                                                   free-id=?
                                                   id-var-name
                                                   same-marks?
                                                   join-marks
                                                   join-wraps
                                                   smart-append
                                                   make-binding-wrap
                                                   extend-ribcage!
                                                   make-empty-ribcage
                                                   new-mark
                                                   anti-mark
                                                   the-anti-mark
                                                   top-marked?
                                                   top-wrap
                                                   empty-wrap
                                                   set-ribcage-labels!
                                                   set-ribcage-marks!
                                                   set-ribcage-symnames!
                                                   ribcage-labels
                                                   ribcage-marks
                                                   ribcage-symnames
                                                   ribcage?
                                                   make-ribcage
                                                   gen-labels
                                                   gen-label
                                                   make-rename
                                                   rename-marks
                                                   rename-new
                                                   rename-old
                                                   subst-rename?
                                                   wrap-subst
                                                   wrap-marks
                                                   make-wrap
                                                   id-sym-name&marks
                                                   id-sym-name
                                                   id?
                                                   nonsymbol-id?
                                                   global-extend
                                                   lookup
                                                   macros-only-env
                                                   extend-var-env
                                                   extend-env
                                                   null-env
                                                   binding-value
                                                   binding-type
                                                   make-binding
                                                   arg-check
                                                   source-annotation
                                                   no-source
                                                   set-syntax-object-module!
                                                   set-syntax-object-wrap!
                                                   set-syntax-object-expression!
                                                   syntax-object-module
                                                   syntax-object-wrap
                                                   syntax-object-expression
                                                   syntax-object?
                                                   make-syntax-object
                                                   build-lexical-var
                                                   build-letrec
                                                   build-named-let
                                                   build-let
                                                   build-sequence
                                                   build-data
                                                   build-primref
                                                   build-primcall
                                                   build-lambda-case
                                                   build-case-lambda
                                                   build-simple-lambda
                                                   build-global-definition
                                                   build-global-assignment
                                                   build-global-reference
                                                   analyze-variable
                                                   build-lexical-assignment
                                                   build-lexical-reference
                                                   build-dynlet
                                                   build-conditional
                                                   build-call
                                                   build-void
                                                   maybe-name-value!
                                                   decorate-source
                                                   get-global-definition-hook
                                                   put-global-definition-hook
                                                   gensym-hook
                                                   local-eval-hook
                                                   top-level-eval-hook
                                                   fx<
                                                   fx=
                                                   fx-
                                                   fx+
                                                   set-lambda-meta!
                                                   lambda-meta
                                                   lambda?
                                                   make-dynlet
                                                   make-letrec
                                                   make-let
                                                   make-lambda-case
                                                   make-lambda
                                                   make-seq
                                                   make-primcall
                                                   make-call
                                                   make-conditional
                                                   make-toplevel-define
                                                   make-toplevel-set
                                                   make-toplevel-ref
                                                   make-module-set
                                                   make-module-ref
                                                   make-lexical-set
                                                   make-lexical-ref
                                                   make-primitive-ref
                                                   make-const
                                                   make-void)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i471"
                                                  "i469"
                                                  "i467"
                                                  "i465"
                                                  "i463"
                                                  "i461"
                                                  "i459"
                                                  "i457"
                                                  "i455"
                                                  "i453"
                                                  "i451"
                                                  "i449"
                                                  "i447"
                                                  "i445"
                                                  "i443"
                                                  "i441"
                                                  "i439"
                                                  "i437"
                                                  "i435"
                                                  "i433"
                                                  "i431"
                                                  "i429"
                                                  "i427"
                                                  "i425"
                                                  "i423"
                                                  "i421"
                                                  "i419"
                                                  "i417"
                                                  "i415"
                                                  "i413"
                                                  "i411"
                                                  "i409"
                                                  "i407"
                                                  "i405"
                                                  "i403"
                                                  "i402"
                                                  "i400"
                                                  "i397"
                                                  "i396"
                                                  "i395"
                                                  "i393"
                                                  "i392"
                                                  "i390"
                                                  "i388"
                                                  "i386"
                                                  "i384"
                                                  "i382"
                                                  "i380"
                                                  "i378"
                                                  "i376"
                                                  "i373"
                                                  "i371"
                                                  "i370"
                                                  "i368"
                                                  "i366"
                                                  "i364"
                                                  "i362"
                                                  "i361"
                                                  "i360"
                                                  "i359"
                                                  "i357"
                                                  "i356"
                                                  "i353"
                                                  "i351"
                                                  "i349"
                                                  "i347"
                                                  "i345"
                                                  "i343"
                                                  "i341"
                                                  "i340"
                                                  "i339"
                                                  "i337"
                                                  "i335"
                                                  "i334"
                                                  "i331"
                                                  "i330"
                                                  "i328"
                                                  "i326"
                                                  "i324"
                                                  "i322"
                                                  "i320"
                                                  "i318"
                                                  "i316"
                                                  "i314"
                                                  "i312"
                                                  "i309"
                                                  "i307"
                                                  "i305"
                                                  "i303"
                                                  "i301"
                                                  "i299"
                                                  "i297"
                                                  "i295"
                                                  "i293"
                                                  "i291"
                                                  "i289"
                                                  "i287"
                                                  "i285"
                                                  "i283"
                                                  "i281"
                                                  "i279"
                                                  "i277"
                                                  "i275"
                                                  "i273"
                                                  "i271"
                                                  "i269"
                                                  "i267"
                                                  "i265"
                                                  "i263"
                                                  "i262"
                                                  "i259"
                                                  "i257"
                                                  "i256"
                                                  "i255"
                                                  "i254"
                                                  "i253"
                                                  "i251"
                                                  "i249"
                                                  "i247"
                                                  "i244"
                                                  "i242"
                                                  "i240"
                                                  "i238"
                                                  "i236"
                                                  "i234"
                                                  "i232"
                                                  "i230"
                                                  "i228"
                                                  "i226"
                                                  "i224"
                                                  "i222"
                                                  "i220"
                                                  "i218"
                                                  "i216"
                                                  "i214"
                                                  "i212"
                                                  "i210"
                                                  "i208"))
                                               #(ribcage
                                                 (define-structure
                                                   define-expansion-accessors
                                                   define-expansion-constructors)
                                                 ((top) (top) (top))
                                                 ("i46" "i45" "i44")))
                                              (hygiene guile)))
                                         #f))))
                              #{pvars 15639}#))
                     (syntax-violation
                       'syntax-case
                       "misplaced ellipsis"
                       #{pat 15497}#)
                     (let ((#{y 15777}#
                             (gensym
                               (string-append (symbol->string 'tmp) " "))))
                       (let ((#{fun-exp 15782}#
                               (let ((#{req 15791}# (list 'tmp))
                                     (#{vars 15793}# (list #{y 15777}#))
                                     (#{exp 15795}#
                                       (let ((#{y 15824}#
                                               (make-struct/no-tail
                                                 (vector-ref
                                                   %expanded-vtables
                                                   3)
                                                 #f
                                                 'tmp
                                                 #{y 15777}#)))
                                         (let ((#{test-exp 15828}#
                                                 (let ((#{tmp 15837}#
                                                         ($sc-dispatch
                                                           #{fender 15498}#
                                                           '#(atom #t))))
                                                   (if #{tmp 15837}#
                                                     (@apply
                                                       (lambda () #{y 15824}#)
                                                       #{tmp 15837}#)
                                                     (let ((#{then-exp 15855}#
                                                             (#{build-dispatch-call 14244}#
                                                               #{pvars 15639}#
                                                               #{fender 15498}#
                                                               #{y 15824}#
                                                               #{r 15496}#
                                                               #{mod 15500}#))
                                                           (#{else-exp 15856}#
                                                             (make-struct/no-tail
                                                               (vector-ref
                                                                 %expanded-vtables
                                                                 1)
                                                               #f
                                                               #f)))
                                                       (make-struct/no-tail
                                                         (vector-ref
                                                           %expanded-vtables
                                                           10)
                                                         #f
                                                         #{y 15824}#
                                                         #{then-exp 15855}#
                                                         #{else-exp 15856}#)))))
                                               (#{then-exp 15829}#
                                                 (#{build-dispatch-call 14244}#
                                                   #{pvars 15639}#
                                                   #{exp 15499}#
                                                   #{y 15824}#
                                                   #{r 15496}#
                                                   #{mod 15500}#))
                                               (#{else-exp 15830}#
                                                 (#{gen-syntax-case 14246}#
                                                   #{x 15493}#
                                                   #{keys 15494}#
                                                   #{clauses 15495}#
                                                   #{r 15496}#
                                                   #{mod 15500}#)))
                                           (make-struct/no-tail
                                             (vector-ref %expanded-vtables 10)
                                             #f
                                             #{test-exp 15828}#
                                             #{then-exp 15829}#
                                             #{else-exp 15830}#)))))
                                 (let ((#{body 15800}#
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 15)
                                           #f
                                           #{req 15791}#
                                           #f
                                           #f
                                           #f
                                           '()
                                           #{vars 15793}#
                                           #{exp 15795}#
                                           #f)))
                                   (make-struct/no-tail
                                     (vector-ref %expanded-vtables 14)
                                     #f
                                     '()
                                     #{body 15800}#))))
                             (#{arg-exps 15783}#
                               (list (if (eq? #{p 15638}# 'any)
                                       (let ((#{args 15878}#
                                               (list #{x 15493}#)))
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 12)
                                           #f
                                           'list
                                           #{args 15878}#))
                                       (let ((#{args 15887}#
                                               (list #{x 15493}#
                                                     (make-struct/no-tail
                                                       (vector-ref
                                                         %expanded-vtables
                                                         1)
                                                       #f
                                                       #{p 15638}#))))
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 12)
                                           #f
                                           '$sc-dispatch
                                           #{args 15887}#))))))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 11)
                           #f
                           #{fun-exp 15782}#
                           #{arg-exps 15783}#)))))))))
         (#{gen-syntax-case 14246}#
           (lambda (#{x 14990}#
                    #{keys 14991}#
                    #{clauses 14992}#
                    #{r 14993}#
                    #{mod 14994}#)
             (if (null? #{clauses 14992}#)
               (let ((#{args 15000}#
                       (list (make-struct/no-tail
                               (vector-ref %expanded-vtables 1)
                               #f
                               #f)
                             (make-struct/no-tail
                               (vector-ref %expanded-vtables 1)
                               #f
                               "source expression failed to match any pattern")
                             #{x 14990}#)))
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 12)
                   #f
                   'syntax-violation
                   #{args 15000}#))
               (let ((#{tmp 15019}# (car #{clauses 14992}#)))
                 (let ((#{tmp 15020}#
                         ($sc-dispatch #{tmp 15019}# '(any any))))
                   (if #{tmp 15020}#
                     (@apply
                       (lambda (#{pat 15022}# #{exp 15023}#)
                         (if (if (if (symbol? #{pat 15022}#)
                                   #t
                                   (if (if (vector? #{pat 15022}#)
                                         (if (= (vector-length #{pat 15022}#)
                                                4)
                                           (eq? (vector-ref #{pat 15022}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (symbol? (vector-ref #{pat 15022}# 1))
                                     #f))
                               (and-map
                                 (lambda (#{x 15050}#)
                                   (not (#{free-id=? 4361}#
                                          #{pat 15022}#
                                          #{x 15050}#)))
                                 (cons '#(syntax-object
                                          ...
                                          ((top)
                                           #(ribcage
                                             #(pat exp)
                                             #((top) (top))
                                             #("i3937" "i3938"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x keys clauses r mod)
                                             #((top) (top) (top) (top) (top))
                                             #("i3927"
                                               "i3928"
                                               "i3929"
                                               "i3930"
                                               "i3931"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
                                             ("i3740" "i3738" "i3736" "i3734"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
                                               strip
                                               chi-lambda-case
                                               lambda*-formals
                                               chi-simple-lambda
                                               lambda-formals
                                               ellipsis?
                                               chi-void
                                               eval-local-transformer
                                               chi-local-syntax
                                               chi-body
                                               chi-macro
                                               chi-call
                                               chi-expr
                                               chi
                                               syntax-type
                                               chi-when-list
                                               chi-install-global
                                               chi-top-sequence
                                               chi-sequence
                                               source-wrap
                                               wrap
                                               bound-id-member?
                                               distinct-bound-ids?
                                               valid-bound-ids?
                                               bound-id=?
                                               free-id=?
                                               id-var-name
                                               same-marks?
                                               join-marks
                                               join-wraps
                                               smart-append
                                               make-binding-wrap
                                               extend-ribcage!
                                               make-empty-ribcage
                                               new-mark
                                               anti-mark
                                               the-anti-mark
                                               top-marked?
                                               top-wrap
                                               empty-wrap
                                               set-ribcage-labels!
                                               set-ribcage-marks!
                                               set-ribcage-symnames!
                                               ribcage-labels
                                               ribcage-marks
                                               ribcage-symnames
                                               ribcage?
                                               make-ribcage
                                               gen-labels
                                               gen-label
                                               make-rename
                                               rename-marks
                                               rename-new
                                               rename-old
                                               subst-rename?
                                               wrap-subst
                                               wrap-marks
                                               make-wrap
                                               id-sym-name&marks
                                               id-sym-name
                                               id?
                                               nonsymbol-id?
                                               global-extend
                                               lookup
                                               macros-only-env
                                               extend-var-env
                                               extend-env
                                               null-env
                                               binding-value
                                               binding-type
                                               make-binding
                                               arg-check
                                               source-annotation
                                               no-source
                                               set-syntax-object-module!
                                               set-syntax-object-wrap!
                                               set-syntax-object-expression!
                                               syntax-object-module
                                               syntax-object-wrap
                                               syntax-object-expression
                                               syntax-object?
                                               make-syntax-object
                                               build-lexical-var
                                               build-letrec
                                               build-named-let
                                               build-let
                                               build-sequence
                                               build-data
                                               build-primref
                                               build-primcall
                                               build-lambda-case
                                               build-case-lambda
                                               build-simple-lambda
                                               build-global-definition
                                               build-global-assignment
                                               build-global-reference
                                               analyze-variable
                                               build-lexical-assignment
                                               build-lexical-reference
                                               build-dynlet
                                               build-conditional
                                               build-call
                                               build-void
                                               maybe-name-value!
                                               decorate-source
                                               get-global-definition-hook
                                               put-global-definition-hook
                                               gensym-hook
                                               local-eval-hook
                                               top-level-eval-hook
                                               fx<
                                               fx=
                                               fx-
                                               fx+
                                               set-lambda-meta!
                                               lambda-meta
                                               lambda?
                                               make-dynlet
                                               make-letrec
                                               make-let
                                               make-lambda-case
                                               make-lambda
                                               make-seq
                                               make-primcall
                                               make-call
                                               make-conditional
                                               make-toplevel-define
                                               make-toplevel-set
                                               make-toplevel-ref
                                               make-module-set
                                               make-module-ref
                                               make-lexical-set
                                               make-lexical-ref
                                               make-primitive-ref
                                               make-const
                                               make-void)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i471"
                                              "i469"
                                              "i467"
                                              "i465"
                                              "i463"
                                              "i461"
                                              "i459"
                                              "i457"
                                              "i455"
                                              "i453"
                                              "i451"
                                              "i449"
                                              "i447"
                                              "i445"
                                              "i443"
                                              "i441"
                                              "i439"
                                              "i437"
                                              "i435"
                                              "i433"
                                              "i431"
                                              "i429"
                                              "i427"
                                              "i425"
                                              "i423"
                                              "i421"
                                              "i419"
                                              "i417"
                                              "i415"
                                              "i413"
                                              "i411"
                                              "i409"
                                              "i407"
                                              "i405"
                                              "i403"
                                              "i402"
                                              "i400"
                                              "i397"
                                              "i396"
                                              "i395"
                                              "i393"
                                              "i392"
                                              "i390"
                                              "i388"
                                              "i386"
                                              "i384"
                                              "i382"
                                              "i380"
                                              "i378"
                                              "i376"
                                              "i373"
                                              "i371"
                                              "i370"
                                              "i368"
                                              "i366"
                                              "i364"
                                              "i362"
                                              "i361"
                                              "i360"
                                              "i359"
                                              "i357"
                                              "i356"
                                              "i353"
                                              "i351"
                                              "i349"
                                              "i347"
                                              "i345"
                                              "i343"
                                              "i341"
                                              "i340"
                                              "i339"
                                              "i337"
                                              "i335"
                                              "i334"
                                              "i331"
                                              "i330"
                                              "i328"
                                              "i326"
                                              "i324"
                                              "i322"
                                              "i320"
                                              "i318"
                                              "i316"
                                              "i314"
                                              "i312"
                                              "i309"
                                              "i307"
                                              "i305"
                                              "i303"
                                              "i301"
                                              "i299"
                                              "i297"
                                              "i295"
                                              "i293"
                                              "i291"
                                              "i289"
                                              "i287"
                                              "i285"
                                              "i283"
                                              "i281"
                                              "i279"
                                              "i277"
                                              "i275"
                                              "i273"
                                              "i271"
                                              "i269"
                                              "i267"
                                              "i265"
                                              "i263"
                                              "i262"
                                              "i259"
                                              "i257"
                                              "i256"
                                              "i255"
                                              "i254"
                                              "i253"
                                              "i251"
                                              "i249"
                                              "i247"
                                              "i244"
                                              "i242"
                                              "i240"
                                              "i238"
                                              "i236"
                                              "i234"
                                              "i232"
                                              "i230"
                                              "i228"
                                              "i226"
                                              "i224"
                                              "i222"
                                              "i220"
                                              "i218"
                                              "i216"
                                              "i214"
                                              "i212"
                                              "i210"
                                              "i208"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors)
                                             ((top) (top) (top))
                                             ("i46" "i45" "i44")))
                                          (hygiene guile))
                                       #{keys 14991}#))
                               #f)
                           (if (#{free-id=? 4361}#
                                 '#(syntax-object
                                    pad
                                    ((top)
                                     #(ribcage
                                       #(pat exp)
                                       #((top) (top))
                                       #("i3937" "i3938"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x keys clauses r mod)
                                       #((top) (top) (top) (top) (top))
                                       #("i3927"
                                         "i3928"
                                         "i3929"
                                         "i3930"
                                         "i3931"))
                                     #(ribcage
                                       (gen-syntax-case
                                         gen-clause
                                         build-dispatch-call
                                         convert-pattern)
                                       ((top) (top) (top) (top))
                                       ("i3740" "i3738" "i3736" "i3734"))
                                     #(ribcage
                                       (lambda-var-list
                                         gen-var
                                         strip
                                         chi-lambda-case
                                         lambda*-formals
                                         chi-simple-lambda
                                         lambda-formals
                                         ellipsis?
                                         chi-void
                                         eval-local-transformer
                                         chi-local-syntax
                                         chi-body
                                         chi-macro
                                         chi-call
                                         chi-expr
                                         chi
                                         syntax-type
                                         chi-when-list
                                         chi-install-global
                                         chi-top-sequence
                                         chi-sequence
                                         source-wrap
                                         wrap
                                         bound-id-member?
                                         distinct-bound-ids?
                                         valid-bound-ids?
                                         bound-id=?
                                         free-id=?
                                         id-var-name
                                         same-marks?
                                         join-marks
                                         join-wraps
                                         smart-append
                                         make-binding-wrap
                                         extend-ribcage!
                                         make-empty-ribcage
                                         new-mark
                                         anti-mark
                                         the-anti-mark
                                         top-marked?
                                         top-wrap
                                         empty-wrap
                                         set-ribcage-labels!
                                         set-ribcage-marks!
                                         set-ribcage-symnames!
                                         ribcage-labels
                                         ribcage-marks
                                         ribcage-symnames
                                         ribcage?
                                         make-ribcage
                                         gen-labels
                                         gen-label
                                         make-rename
                                         rename-marks
                                         rename-new
                                         rename-old
                                         subst-rename?
                                         wrap-subst
                                         wrap-marks
                                         make-wrap
                                         id-sym-name&marks
                                         id-sym-name
                                         id?
                                         nonsymbol-id?
                                         global-extend
                                         lookup
                                         macros-only-env
                                         extend-var-env
                                         extend-env
                                         null-env
                                         binding-value
                                         binding-type
                                         make-binding
                                         arg-check
                                         source-annotation
                                         no-source
                                         set-syntax-object-module!
                                         set-syntax-object-wrap!
                                         set-syntax-object-expression!
                                         syntax-object-module
                                         syntax-object-wrap
                                         syntax-object-expression
                                         syntax-object?
                                         make-syntax-object
                                         build-lexical-var
                                         build-letrec
                                         build-named-let
                                         build-let
                                         build-sequence
                                         build-data
                                         build-primref
                                         build-primcall
                                         build-lambda-case
                                         build-case-lambda
                                         build-simple-lambda
                                         build-global-definition
                                         build-global-assignment
                                         build-global-reference
                                         analyze-variable
                                         build-lexical-assignment
                                         build-lexical-reference
                                         build-dynlet
                                         build-conditional
                                         build-call
                                         build-void
                                         maybe-name-value!
                                         decorate-source
                                         get-global-definition-hook
                                         put-global-definition-hook
                                         gensym-hook
                                         local-eval-hook
                                         top-level-eval-hook
                                         fx<
                                         fx=
                                         fx-
                                         fx+
                                         set-lambda-meta!
                                         lambda-meta
                                         lambda?
                                         make-dynlet
                                         make-letrec
                                         make-let
                                         make-lambda-case
                                         make-lambda
                                         make-seq
                                         make-primcall
                                         make-call
                                         make-conditional
                                         make-toplevel-define
                                         make-toplevel-set
                                         make-toplevel-ref
                                         make-module-set
                                         make-module-ref
                                         make-lexical-set
                                         make-lexical-ref
                                         make-primitive-ref
                                         make-const
                                         make-void)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i471"
                                        "i469"
                                        "i467"
                                        "i465"
                                        "i463"
                                        "i461"
                                        "i459"
                                        "i457"
                                        "i455"
                                        "i453"
                                        "i451"
                                        "i449"
                                        "i447"
                                        "i445"
                                        "i443"
                                        "i441"
                                        "i439"
                                        "i437"
                                        "i435"
                                        "i433"
                                        "i431"
                                        "i429"
                                        "i427"
                                        "i425"
                                        "i423"
                                        "i421"
                                        "i419"
                                        "i417"
                                        "i415"
                                        "i413"
                                        "i411"
                                        "i409"
                                        "i407"
                                        "i405"
                                        "i403"
                                        "i402"
                                        "i400"
                                        "i397"
                                        "i396"
                                        "i395"
                                        "i393"
                                        "i392"
                                        "i390"
                                        "i388"
                                        "i386"
                                        "i384"
                                        "i382"
                                        "i380"
                                        "i378"
                                        "i376"
                                        "i373"
                                        "i371"
                                        "i370"
                                        "i368"
                                        "i366"
                                        "i364"
                                        "i362"
                                        "i361"
                                        "i360"
                                        "i359"
                                        "i357"
                                        "i356"
                                        "i353"
                                        "i351"
                                        "i349"
                                        "i347"
                                        "i345"
                                        "i343"
                                        "i341"
                                        "i340"
                                        "i339"
                                        "i337"
                                        "i335"
                                        "i334"
                                        "i331"
                                        "i330"
                                        "i328"
                                        "i326"
                                        "i324"
                                        "i322"
                                        "i320"
                                        "i318"
                                        "i316"
                                        "i314"
                                        "i312"
                                        "i309"
                                        "i307"
                                        "i305"
                                        "i303"
                                        "i301"
                                        "i299"
                                        "i297"
                                        "i295"
                                        "i293"
                                        "i291"
                                        "i289"
                                        "i287"
                                        "i285"
                                        "i283"
                                        "i281"
                                        "i279"
                                        "i277"
                                        "i275"
                                        "i273"
                                        "i271"
                                        "i269"
                                        "i267"
                                        "i265"
                                        "i263"
                                        "i262"
                                        "i259"
                                        "i257"
                                        "i256"
                                        "i255"
                                        "i254"
                                        "i253"
                                        "i251"
                                        "i249"
                                        "i247"
                                        "i244"
                                        "i242"
                                        "i240"
                                        "i238"
                                        "i236"
                                        "i234"
                                        "i232"
                                        "i230"
                                        "i228"
                                        "i226"
                                        "i224"
                                        "i222"
                                        "i220"
                                        "i218"
                                        "i216"
                                        "i214"
                                        "i212"
                                        "i210"
                                        "i208"))
                                     #(ribcage
                                       (define-structure
                                         define-expansion-accessors
                                         define-expansion-constructors)
                                       ((top) (top) (top))
                                       ("i46" "i45" "i44")))
                                    (hygiene guile))
                                 '#(syntax-object
                                    _
                                    ((top)
                                     #(ribcage
                                       #(pat exp)
                                       #((top) (top))
                                       #("i3937" "i3938"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x keys clauses r mod)
                                       #((top) (top) (top) (top) (top))
                                       #("i3927"
                                         "i3928"
                                         "i3929"
                                         "i3930"
                                         "i3931"))
                                     #(ribcage
                                       (gen-syntax-case
                                         gen-clause
                                         build-dispatch-call
                                         convert-pattern)
                                       ((top) (top) (top) (top))
                                       ("i3740" "i3738" "i3736" "i3734"))
                                     #(ribcage
                                       (lambda-var-list
                                         gen-var
                                         strip
                                         chi-lambda-case
                                         lambda*-formals
                                         chi-simple-lambda
                                         lambda-formals
                                         ellipsis?
                                         chi-void
                                         eval-local-transformer
                                         chi-local-syntax
                                         chi-body
                                         chi-macro
                                         chi-call
                                         chi-expr
                                         chi
                                         syntax-type
                                         chi-when-list
                                         chi-install-global
                                         chi-top-sequence
                                         chi-sequence
                                         source-wrap
                                         wrap
                                         bound-id-member?
                                         distinct-bound-ids?
                                         valid-bound-ids?
                                         bound-id=?
                                         free-id=?
                                         id-var-name
                                         same-marks?
                                         join-marks
                                         join-wraps
                                         smart-append
                                         make-binding-wrap
                                         extend-ribcage!
                                         make-empty-ribcage
                                         new-mark
                                         anti-mark
                                         the-anti-mark
                                         top-marked?
                                         top-wrap
                                         empty-wrap
                                         set-ribcage-labels!
                                         set-ribcage-marks!
                                         set-ribcage-symnames!
                                         ribcage-labels
                                         ribcage-marks
                                         ribcage-symnames
                                         ribcage?
                                         make-ribcage
                                         gen-labels
                                         gen-label
                                         make-rename
                                         rename-marks
                                         rename-new
                                         rename-old
                                         subst-rename?
                                         wrap-subst
                                         wrap-marks
                                         make-wrap
                                         id-sym-name&marks
                                         id-sym-name
                                         id?
                                         nonsymbol-id?
                                         global-extend
                                         lookup
                                         macros-only-env
                                         extend-var-env
                                         extend-env
                                         null-env
                                         binding-value
                                         binding-type
                                         make-binding
                                         arg-check
                                         source-annotation
                                         no-source
                                         set-syntax-object-module!
                                         set-syntax-object-wrap!
                                         set-syntax-object-expression!
                                         syntax-object-module
                                         syntax-object-wrap
                                         syntax-object-expression
                                         syntax-object?
                                         make-syntax-object
                                         build-lexical-var
                                         build-letrec
                                         build-named-let
                                         build-let
                                         build-sequence
                                         build-data
                                         build-primref
                                         build-primcall
                                         build-lambda-case
                                         build-case-lambda
                                         build-simple-lambda
                                         build-global-definition
                                         build-global-assignment
                                         build-global-reference
                                         analyze-variable
                                         build-lexical-assignment
                                         build-lexical-reference
                                         build-dynlet
                                         build-conditional
                                         build-call
                                         build-void
                                         maybe-name-value!
                                         decorate-source
                                         get-global-definition-hook
                                         put-global-definition-hook
                                         gensym-hook
                                         local-eval-hook
                                         top-level-eval-hook
                                         fx<
                                         fx=
                                         fx-
                                         fx+
                                         set-lambda-meta!
                                         lambda-meta
                                         lambda?
                                         make-dynlet
                                         make-letrec
                                         make-let
                                         make-lambda-case
                                         make-lambda
                                         make-seq
                                         make-primcall
                                         make-call
                                         make-conditional
                                         make-toplevel-define
                                         make-toplevel-set
                                         make-toplevel-ref
                                         make-module-set
                                         make-module-ref
                                         make-lexical-set
                                         make-lexical-ref
                                         make-primitive-ref
                                         make-const
                                         make-void)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i471"
                                        "i469"
                                        "i467"
                                        "i465"
                                        "i463"
                                        "i461"
                                        "i459"
                                        "i457"
                                        "i455"
                                        "i453"
                                        "i451"
                                        "i449"
                                        "i447"
                                        "i445"
                                        "i443"
                                        "i441"
                                        "i439"
                                        "i437"
                                        "i435"
                                        "i433"
                                        "i431"
                                        "i429"
                                        "i427"
                                        "i425"
                                        "i423"
                                        "i421"
                                        "i419"
                                        "i417"
                                        "i415"
                                        "i413"
                                        "i411"
                                        "i409"
                                        "i407"
                                        "i405"
                                        "i403"
                                        "i402"
                                        "i400"
                                        "i397"
                                        "i396"
                                        "i395"
                                        "i393"
                                        "i392"
                                        "i390"
                                        "i388"
                                        "i386"
                                        "i384"
                                        "i382"
                                        "i380"
                                        "i378"
                                        "i376"
                                        "i373"
                                        "i371"
                                        "i370"
                                        "i368"
                                        "i366"
                                        "i364"
                                        "i362"
                                        "i361"
                                        "i360"
                                        "i359"
                                        "i357"
                                        "i356"
                                        "i353"
                                        "i351"
                                        "i349"
                                        "i347"
                                        "i345"
                                        "i343"
                                        "i341"
                                        "i340"
                                        "i339"
                                        "i337"
                                        "i335"
                                        "i334"
                                        "i331"
                                        "i330"
                                        "i328"
                                        "i326"
                                        "i324"
                                        "i322"
                                        "i320"
                                        "i318"
                                        "i316"
                                        "i314"
                                        "i312"
                                        "i309"
                                        "i307"
                                        "i305"
                                        "i303"
                                        "i301"
                                        "i299"
                                        "i297"
                                        "i295"
                                        "i293"
                                        "i291"
                                        "i289"
                                        "i287"
                                        "i285"
                                        "i283"
                                        "i281"
                                        "i279"
                                        "i277"
                                        "i275"
                                        "i273"
                                        "i271"
                                        "i269"
                                        "i267"
                                        "i265"
                                        "i263"
                                        "i262"
                                        "i259"
                                        "i257"
                                        "i256"
                                        "i255"
                                        "i254"
                                        "i253"
                                        "i251"
                                        "i249"
                                        "i247"
                                        "i244"
                                        "i242"
                                        "i240"
                                        "i238"
                                        "i236"
                                        "i234"
                                        "i232"
                                        "i230"
                                        "i228"
                                        "i226"
                                        "i224"
                                        "i222"
                                        "i220"
                                        "i218"
                                        "i216"
                                        "i214"
                                        "i212"
                                        "i210"
                                        "i208"))
                                     #(ribcage
                                       (define-structure
                                         define-expansion-accessors
                                         define-expansion-constructors)
                                       ((top) (top) (top))
                                       ("i46" "i45" "i44")))
                                    (hygiene guile)))
                             (#{chi 4373}#
                               #{exp 15023}#
                               #{r 14993}#
                               '(())
                               #{mod 14994}#)
                             (let ((#{labels 15136}#
                                     (list (symbol->string (gensym "i"))))
                                   (#{var 15137}#
                                     (let ((#{id 15175}#
                                             (if (if (vector? #{pat 15022}#)
                                                   (if (= (vector-length
                                                            #{pat 15022}#)
                                                          4)
                                                     (eq? (vector-ref
                                                            #{pat 15022}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (vector-ref #{pat 15022}# 1)
                                               #{pat 15022}#)))
                                       (gensym
                                         (string-append
                                           (symbol->string #{id 15175}#)
                                           " ")))))
                               (#{build-call 4307}#
                                 #f
                                 (#{build-simple-lambda 4316}#
                                   #f
                                   (list (syntax->datum #{pat 15022}#))
                                   #f
                                   (list #{var 15137}#)
                                   '()
                                   (#{chi 4373}#
                                     #{exp 15023}#
                                     (#{extend-env 4335}#
                                       #{labels 15136}#
                                       (list (cons 'syntax
                                                   (cons #{var 15137}# 0)))
                                       #{r 14993}#)
                                     (#{make-binding-wrap 4355}#
                                       (list #{pat 15022}#)
                                       #{labels 15136}#
                                       '(()))
                                     #{mod 14994}#))
                                 (list #{x 14990}#))))
                           (#{gen-clause 14245}#
                             #{x 14990}#
                             #{keys 14991}#
                             (cdr #{clauses 14992}#)
                             #{r 14993}#
                             #{pat 15022}#
                             #t
                             #{exp 15023}#
                             #{mod 14994}#)))
                       #{tmp 15020}#)
                     (let ((#{tmp 15485}#
                             ($sc-dispatch #{tmp 15019}# '(any any any))))
                       (if #{tmp 15485}#
                         (@apply
                           (lambda (#{pat 15487}#
                                    #{fender 15488}#
                                    #{exp 15489}#)
                             (#{gen-clause 14245}#
                               #{x 14990}#
                               #{keys 14991}#
                               (cdr #{clauses 14992}#)
                               #{r 14993}#
                               #{pat 15487}#
                               #{fender 15488}#
                               #{exp 15489}#
                               #{mod 14994}#))
                           #{tmp 15485}#)
                         (syntax-violation
                           'syntax-case
                           "invalid clause"
                           (car #{clauses 14992}#)))))))))))
        (lambda (#{e 14247}#
                 #{r 14248}#
                 #{w 14249}#
                 #{s 14250}#
                 #{mod 14251}#)
          (let ((#{e 14252}#
                  (let ((#{x 14901}#
                          (begin
                            (if (if (pair? #{e 14247}#) #{s 14250}# #f)
                              (set-source-properties! #{e 14247}# #{s 14250}#))
                            #{e 14247}#)))
                    (if (if (null? (car #{w 14249}#))
                          (null? (cdr #{w 14249}#))
                          #f)
                      #{x 14901}#
                      (if (if (vector? #{x 14901}#)
                            (if (= (vector-length #{x 14901}#) 4)
                              (eq? (vector-ref #{x 14901}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 14933}# (vector-ref #{x 14901}# 1))
                              (#{wrap 14934}#
                                (let ((#{w2 14942}#
                                        (vector-ref #{x 14901}# 2)))
                                  (let ((#{m1 14943}# (car #{w 14249}#))
                                        (#{s1 14944}# (cdr #{w 14249}#)))
                                    (if (null? #{m1 14943}#)
                                      (if (null? #{s1 14944}#)
                                        #{w2 14942}#
                                        (cons (car #{w2 14942}#)
                                              (let ((#{m2 14959}#
                                                      (cdr #{w2 14942}#)))
                                                (if (null? #{m2 14959}#)
                                                  #{s1 14944}#
                                                  (append
                                                    #{s1 14944}#
                                                    #{m2 14959}#)))))
                                      (cons (let ((#{m2 14967}#
                                                    (car #{w2 14942}#)))
                                              (if (null? #{m2 14967}#)
                                                #{m1 14943}#
                                                (append
                                                  #{m1 14943}#
                                                  #{m2 14967}#)))
                                            (let ((#{m2 14975}#
                                                    (cdr #{w2 14942}#)))
                                              (if (null? #{m2 14975}#)
                                                #{s1 14944}#
                                                (append
                                                  #{s1 14944}#
                                                  #{m2 14975}#))))))))
                              (#{module 14935}# (vector-ref #{x 14901}# 3)))
                          (vector
                            'syntax-object
                            #{expression 14933}#
                            #{wrap 14934}#
                            #{module 14935}#))
                        (if (null? #{x 14901}#)
                          #{x 14901}#
                          (vector
                            'syntax-object
                            #{x 14901}#
                            #{w 14249}#
                            #{mod 14251}#)))))))
            (let ((#{tmp 14253}# #{e 14252}#))
              (let ((#{tmp 14254}#
                      ($sc-dispatch
                        #{tmp 14253}#
                        '(_ any each-any . each-any))))
                (if #{tmp 14254}#
                  (@apply
                    (lambda (#{val 14306}# #{key 14307}# #{m 14308}#)
                      (if (and-map
                            (lambda (#{x 14309}#)
                              (if (if (symbol? #{x 14309}#)
                                    #t
                                    (if (if (vector? #{x 14309}#)
                                          (if (= (vector-length #{x 14309}#) 4)
                                            (eq? (vector-ref #{x 14309}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{x 14309}# 1))
                                      #f))
                                (not (if (if (if (vector? #{x 14309}#)
                                               (if (= (vector-length
                                                        #{x 14309}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 14309}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (symbol? (vector-ref #{x 14309}# 1))
                                           #f)
                                       (#{free-id=? 4361}#
                                         #{x 14309}#
                                         '#(syntax-object
                                            ...
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i2261"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
                                                 strip
                                                 chi-lambda-case
                                                 lambda*-formals
                                                 chi-simple-lambda
                                                 lambda-formals
                                                 ellipsis?
                                                 chi-void
                                                 eval-local-transformer
                                                 chi-local-syntax
                                                 chi-body
                                                 chi-macro
                                                 chi-call
                                                 chi-expr
                                                 chi
                                                 syntax-type
                                                 chi-when-list
                                                 chi-install-global
                                                 chi-top-sequence
                                                 chi-sequence
                                                 source-wrap
                                                 wrap
                                                 bound-id-member?
                                                 distinct-bound-ids?
                                                 valid-bound-ids?
                                                 bound-id=?
                                                 free-id=?
                                                 id-var-name
                                                 same-marks?
                                                 join-marks
                                                 join-wraps
                                                 smart-append
                                                 make-binding-wrap
                                                 extend-ribcage!
                                                 make-empty-ribcage
                                                 new-mark
                                                 anti-mark
                                                 the-anti-mark
                                                 top-marked?
                                                 top-wrap
                                                 empty-wrap
                                                 set-ribcage-labels!
                                                 set-ribcage-marks!
                                                 set-ribcage-symnames!
                                                 ribcage-labels
                                                 ribcage-marks
                                                 ribcage-symnames
                                                 ribcage?
                                                 make-ribcage
                                                 gen-labels
                                                 gen-label
                                                 make-rename
                                                 rename-marks
                                                 rename-new
                                                 rename-old
                                                 subst-rename?
                                                 wrap-subst
                                                 wrap-marks
                                                 make-wrap
                                                 id-sym-name&marks
                                                 id-sym-name
                                                 id?
                                                 nonsymbol-id?
                                                 global-extend
                                                 lookup
                                                 macros-only-env
                                                 extend-var-env
                                                 extend-env
                                                 null-env
                                                 binding-value
                                                 binding-type
                                                 make-binding
                                                 arg-check
                                                 source-annotation
                                                 no-source
                                                 set-syntax-object-module!
                                                 set-syntax-object-wrap!
                                                 set-syntax-object-expression!
                                                 syntax-object-module
                                                 syntax-object-wrap
                                                 syntax-object-expression
                                                 syntax-object?
                                                 make-syntax-object
                                                 build-lexical-var
                                                 build-letrec
                                                 build-named-let
                                                 build-let
                                                 build-sequence
                                                 build-data
                                                 build-primref
                                                 build-primcall
                                                 build-lambda-case
                                                 build-case-lambda
                                                 build-simple-lambda
                                                 build-global-definition
                                                 build-global-assignment
                                                 build-global-reference
                                                 analyze-variable
                                                 build-lexical-assignment
                                                 build-lexical-reference
                                                 build-dynlet
                                                 build-conditional
                                                 build-call
                                                 build-void
                                                 maybe-name-value!
                                                 decorate-source
                                                 get-global-definition-hook
                                                 put-global-definition-hook
                                                 gensym-hook
                                                 local-eval-hook
                                                 top-level-eval-hook
                                                 fx<
                                                 fx=
                                                 fx-
                                                 fx+
                                                 set-lambda-meta!
                                                 lambda-meta
                                                 lambda?
                                                 make-dynlet
                                                 make-letrec
                                                 make-let
                                                 make-lambda-case
                                                 make-lambda
                                                 make-seq
                                                 make-primcall
                                                 make-call
                                                 make-conditional
                                                 make-toplevel-define
                                                 make-toplevel-set
                                                 make-toplevel-ref
                                                 make-module-set
                                                 make-module-ref
                                                 make-lexical-set
                                                 make-lexical-ref
                                                 make-primitive-ref
                                                 make-const
                                                 make-void)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i471"
                                                "i469"
                                                "i467"
                                                "i465"
                                                "i463"
                                                "i461"
                                                "i459"
                                                "i457"
                                                "i455"
                                                "i453"
                                                "i451"
                                                "i449"
                                                "i447"
                                                "i445"
                                                "i443"
                                                "i441"
                                                "i439"
                                                "i437"
                                                "i435"
                                                "i433"
                                                "i431"
                                                "i429"
                                                "i427"
                                                "i425"
                                                "i423"
                                                "i421"
                                                "i419"
                                                "i417"
                                                "i415"
                                                "i413"
                                                "i411"
                                                "i409"
                                                "i407"
                                                "i405"
                                                "i403"
                                                "i402"
                                                "i400"
                                                "i397"
                                                "i396"
                                                "i395"
                                                "i393"
                                                "i392"
                                                "i390"
                                                "i388"
                                                "i386"
                                                "i384"
                                                "i382"
                                                "i380"
                                                "i378"
                                                "i376"
                                                "i373"
                                                "i371"
                                                "i370"
                                                "i368"
                                                "i366"
                                                "i364"
                                                "i362"
                                                "i361"
                                                "i360"
                                                "i359"
                                                "i357"
                                                "i356"
                                                "i353"
                                                "i351"
                                                "i349"
                                                "i347"
                                                "i345"
                                                "i343"
                                                "i341"
                                                "i340"
                                                "i339"
                                                "i337"
                                                "i335"
                                                "i334"
                                                "i331"
                                                "i330"
                                                "i328"
                                                "i326"
                                                "i324"
                                                "i322"
                                                "i320"
                                                "i318"
                                                "i316"
                                                "i314"
                                                "i312"
                                                "i309"
                                                "i307"
                                                "i305"
                                                "i303"
                                                "i301"
                                                "i299"
                                                "i297"
                                                "i295"
                                                "i293"
                                                "i291"
                                                "i289"
                                                "i287"
                                                "i285"
                                                "i283"
                                                "i281"
                                                "i279"
                                                "i277"
                                                "i275"
                                                "i273"
                                                "i271"
                                                "i269"
                                                "i267"
                                                "i265"
                                                "i263"
                                                "i262"
                                                "i259"
                                                "i257"
                                                "i256"
                                                "i255"
                                                "i254"
                                                "i253"
                                                "i251"
                                                "i249"
                                                "i247"
                                                "i244"
                                                "i242"
                                                "i240"
                                                "i238"
                                                "i236"
                                                "i234"
                                                "i232"
                                                "i230"
                                                "i228"
                                                "i226"
                                                "i224"
                                                "i222"
                                                "i220"
                                                "i218"
                                                "i216"
                                                "i214"
                                                "i212"
                                                "i210"
                                                "i208"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors)
                                               ((top) (top) (top))
                                               ("i46" "i45" "i44")))
                                            (hygiene guile)))
                                       #f))
                                #f))
                            #{key 14307}#)
                        (let ((#{x 14374}#
                                (gensym
                                  (string-append (symbol->string 'tmp) " "))))
                          (#{build-call 4307}#
                            #{s 14250}#
                            (let ((#{req 14516}# (list 'tmp))
                                  (#{vars 14518}# (list #{x 14374}#))
                                  (#{exp 14520}#
                                    (#{gen-syntax-case 14246}#
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 3)
                                        #f
                                        'tmp
                                        #{x 14374}#)
                                      #{key 14307}#
                                      #{m 14308}#
                                      #{r 14248}#
                                      #{mod 14251}#)))
                              (let ((#{body 14525}#
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 15)
                                        #f
                                        #{req 14516}#
                                        #f
                                        #f
                                        #f
                                        '()
                                        #{vars 14518}#
                                        #{exp 14520}#
                                        #f)))
                                (make-struct/no-tail
                                  (vector-ref %expanded-vtables 14)
                                  #f
                                  '()
                                  #{body 14525}#)))
                            (list (#{chi 4373}#
                                    #{val 14306}#
                                    #{r 14248}#
                                    '(())
                                    #{mod 14251}#))))
                        (syntax-violation
                          'syntax-case
                          "invalid literals list"
                          #{e 14252}#)))
                    #{tmp 14254}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp 14253}#))))))))
    (set! macroexpand
      (lambda*
        (#{x 17257}#
          #:optional
          (#{m 17258}# 'e)
          (#{esew 17259}# '(eval)))
        (#{chi-top-sequence 4369}#
          (list #{x 17257}#)
          '()
          '((top))
          #f
          #{m 17258}#
          #{esew 17259}#
          (cons 'hygiene (module-name (current-module))))))
    (set! identifier?
      (lambda (#{x 17262}#)
        (if (if (vector? #{x 17262}#)
              (if (= (vector-length #{x 17262}#) 4)
                (eq? (vector-ref #{x 17262}# 0) 'syntax-object)
                #f)
              #f)
          (symbol? (vector-ref #{x 17262}# 1))
          #f)))
    (set! datum->syntax
      (lambda (#{id 17287}# #{datum 17288}#)
        (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2))
              (#{module 17294}# (vector-ref #{id 17287}# 3)))
          (vector
            'syntax-object
            #{datum 17288}#
            #{wrap 17293}#
            #{module 17294}#))))
    (set! syntax->datum
      (lambda (#{x 17301}#)
        (#{strip 4386}# #{x 17301}# '(()))))
    (set! syntax-source
      (lambda (#{x 17304}#)
        (#{source-annotation 4334}# #{x 17304}#)))
    (set! generate-temporaries
      (lambda (#{ls 17506}#)
        (begin
          (if (not (list? #{ls 17506}#))
            (syntax-violation
              'generate-temporaries
              "invalid argument"
              #{ls 17506}#))
          (let ((#{mod 17514}#
                  (cons 'hygiene (module-name (current-module)))))
            (map (lambda (#{x 17515}#)
                   (let ((#{x 17519}# (gensym)))
                     (if (if (vector? #{x 17519}#)
                           (if (= (vector-length #{x 17519}#) 4)
                             (eq? (vector-ref #{x 17519}# 0) 'syntax-object)
                             #f)
                           #f)
                       (let ((#{expression 17534}# (vector-ref #{x 17519}# 1))
                             (#{wrap 17535}#
                               (let ((#{w2 17543}# (vector-ref #{x 17519}# 2)))
                                 (cons (let ((#{m2 17550}# (car #{w2 17543}#)))
                                         (if (null? #{m2 17550}#)
                                           '(top)
                                           (append '(top) #{m2 17550}#)))
                                       (let ((#{m2 17557}# (cdr #{w2 17543}#)))
                                         (if (null? #{m2 17557}#)
                                           '()
                                           (append '() #{m2 17557}#))))))
                             (#{module 17536}# (vector-ref #{x 17519}# 3)))
                         (vector
                           'syntax-object
                           #{expression 17534}#
                           #{wrap 17535}#
                           #{module 17536}#))
                       (if (null? #{x 17519}#)
                         #{x 17519}#
                         (vector
                           'syntax-object
                           #{x 17519}#
                           '((top))
                           #{mod 17514}#)))))
                 #{ls 17506}#)))))
    (set! free-identifier=?
      (lambda (#{x 17566}# #{y 17567}#)
        (begin
          (if (not (if (if (vector? #{x 17566}#)
                         (if (= (vector-length #{x 17566}#) 4)
                           (eq? (vector-ref #{x 17566}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{x 17566}# 1))
                     #f))
            (syntax-violation
              'free-identifier=?
              "invalid argument"
              #{x 17566}#))
          (if (not (if (if (vector? #{y 17567}#)
                         (if (= (vector-length #{y 17567}#) 4)
                           (eq? (vector-ref #{y 17567}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{y 17567}# 1))
                     #f))
            (syntax-violation
              'free-identifier=?
              "invalid argument"
              #{y 17567}#))
          (#{free-id=? 4361}# #{x 17566}# #{y 17567}#))))
    (set! bound-identifier=?
      (lambda (#{x 17642}# #{y 17643}#)
        (begin
          (if (not (if (if (vector? #{x 17642}#)
                         (if (= (vector-length #{x 17642}#) 4)
                           (eq? (vector-ref #{x 17642}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{x 17642}# 1))
                     #f))
            (syntax-violation
              'bound-identifier=?
              "invalid argument"
              #{x 17642}#))
          (if (not (if (if (vector? #{y 17643}#)
                         (if (= (vector-length #{y 17643}#) 4)
                           (eq? (vector-ref #{y 17643}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{y 17643}# 1))
                     #f))
            (syntax-violation
              'bound-identifier=?
              "invalid argument"
              #{y 17643}#))
          (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#))))
    (set! syntax-violation
      (lambda*
        (#{who 17809}#
          #{message 17810}#
          #{form 17811}#
          #:optional
          (#{subform 17812}# #f))
        (begin
          (if (not (if (not #{who 17809}#)
                     (not #{who 17809}#)
                     (let ((#{t 17830}# (string? #{who 17809}#)))
                       (if #{t 17830}#
                         #{t 17830}#
                         (symbol? #{who 17809}#)))))
            (syntax-violation
              'syntax-violation
              "invalid argument"
              #{who 17809}#))
          (if (not (string? #{message 17810}#))
            (syntax-violation
              'syntax-violation
              "invalid argument"
              #{message 17810}#))
          (throw 'syntax-error
                 #{who 17809}#
                 #{message 17810}#
                 (#{source-annotation 4334}#
                   (if #{form 17811}#
                     #{form 17811}#
                     #{subform 17812}#))
                 (#{strip 4386}# #{form 17811}# '(()))
                 (if #{subform 17812}#
                   (#{strip 4386}# #{subform 17812}# '(()))
                   #f)))))
    (letrec*
      ((#{match-each 18081}#
         (lambda (#{e 18969}#
                  #{p 18970}#
                  #{w 18971}#
                  #{mod 18972}#)
           (if (pair? #{e 18969}#)
             (let ((#{first 18973}#
                     (#{match 18087}#
                       (car #{e 18969}#)
                       #{p 18970}#
                       #{w 18971}#
                       '()
                       #{mod 18972}#)))
               (if #{first 18973}#
                 (let ((#{rest 18976}#
                         (#{match-each 18081}#
                           (cdr #{e 18969}#)
                           #{p 18970}#
                           #{w 18971}#
                           #{mod 18972}#)))
                   (if #{rest 18976}#
                     (cons #{first 18973}# #{rest 18976}#)
                     #f))
                 #f))
             (if (null? #{e 18969}#)
               '()
               (if (if (vector? #{e 18969}#)
                     (if (= (vector-length #{e 18969}#) 4)
                       (eq? (vector-ref #{e 18969}# 0) 'syntax-object)
                       #f)
                     #f)
                 (#{match-each 18081}#
                   (vector-ref #{e 18969}# 1)
                   #{p 18970}#
                   (let ((#{w2 18998}# (vector-ref #{e 18969}# 2)))
                     (let ((#{m1 18999}# (car #{w 18971}#))
                           (#{s1 19000}# (cdr #{w 18971}#)))
                       (if (null? #{m1 18999}#)
                         (if (null? #{s1 19000}#)
                           #{w2 18998}#
                           (cons (car #{w2 18998}#)
                                 (let ((#{m2 19011}# (cdr #{w2 18998}#)))
                                   (if (null? #{m2 19011}#)
                                     #{s1 19000}#
                                     (append #{s1 19000}# #{m2 19011}#)))))
                         (cons (let ((#{m2 19019}# (car #{w2 18998}#)))
                                 (if (null? #{m2 19019}#)
                                   #{m1 18999}#
                                   (append #{m1 18999}# #{m2 19019}#)))
                               (let ((#{m2 19027}# (cdr #{w2 18998}#)))
                                 (if (null? #{m2 19027}#)
                                   #{s1 19000}#
                                   (append #{s1 19000}# #{m2 19027}#)))))))
                   (vector-ref #{e 18969}# 3))
                 #f)))))
       (#{match-each-any 18083}#
         (lambda (#{e 19036}# #{w 19037}# #{mod 19038}#)
           (if (pair? #{e 19036}#)
             (let ((#{l 19039}#
                     (#{match-each-any 18083}#
                       (cdr #{e 19036}#)
                       #{w 19037}#
                       #{mod 19038}#)))
               (if #{l 19039}#
                 (cons (let ((#{x 19044}# (car #{e 19036}#)))
                         (if (if (null? (car #{w 19037}#))
                               (null? (cdr #{w 19037}#))
                               #f)
                           #{x 19044}#
                           (if (if (vector? #{x 19044}#)
                                 (if (= (vector-length #{x 19044}#) 4)
                                   (eq? (vector-ref #{x 19044}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
                             (let ((#{expression 19062}#
                                     (vector-ref #{x 19044}# 1))
                                   (#{wrap 19063}#
                                     (let ((#{w2 19071}#
                                             (vector-ref #{x 19044}# 2)))
                                       (let ((#{m1 19072}# (car #{w 19037}#))
                                             (#{s1 19073}# (cdr #{w 19037}#)))
                                         (if (null? #{m1 19072}#)
                                           (if (null? #{s1 19073}#)
                                             #{w2 19071}#
                                             (cons (car #{w2 19071}#)
                                                   (let ((#{m2 19088}#
                                                           (cdr #{w2 19071}#)))
                                                     (if (null? #{m2 19088}#)
                                                       #{s1 19073}#
                                                       (append
                                                         #{s1 19073}#
                                                         #{m2 19088}#)))))
                                           (cons (let ((#{m2 19096}#
                                                         (car #{w2 19071}#)))
                                                   (if (null? #{m2 19096}#)
                                                     #{m1 19072}#
                                                     (append
                                                       #{m1 19072}#
                                                       #{m2 19096}#)))
                                                 (let ((#{m2 19104}#
                                                         (cdr #{w2 19071}#)))
                                                   (if (null? #{m2 19104}#)
                                                     #{s1 19073}#
                                                     (append
                                                       #{s1 19073}#
                                                       #{m2 19104}#))))))))
                                   (#{module 19064}#
                                     (vector-ref #{x 19044}# 3)))
                               (vector
                                 'syntax-object
                                 #{expression 19062}#
                                 #{wrap 19063}#
                                 #{module 19064}#))
                             (if (null? #{x 19044}#)
                               #{x 19044}#
                               (vector
                                 'syntax-object
                                 #{x 19044}#
                                 #{w 19037}#
                                 #{mod 19038}#)))))
                       #{l 19039}#)
                 #f))
             (if (null? #{e 19036}#)
               '()
               (if (if (vector? #{e 19036}#)
                     (if (= (vector-length #{e 19036}#) 4)
                       (eq? (vector-ref #{e 19036}# 0) 'syntax-object)
                       #f)
                     #f)
                 (#{match-each-any 18083}#
                   (vector-ref #{e 19036}# 1)
                   (let ((#{w2 19137}# (vector-ref #{e 19036}# 2)))
                     (let ((#{m1 19138}# (car #{w 19037}#))
                           (#{s1 19139}# (cdr #{w 19037}#)))
                       (if (null? #{m1 19138}#)
                         (if (null? #{s1 19139}#)
                           #{w2 19137}#
                           (cons (car #{w2 19137}#)
                                 (let ((#{m2 19150}# (cdr #{w2 19137}#)))
                                   (if (null? #{m2 19150}#)
                                     #{s1 19139}#
                                     (append #{s1 19139}# #{m2 19150}#)))))
                         (cons (let ((#{m2 19158}# (car #{w2 19137}#)))
                                 (if (null? #{m2 19158}#)
                                   #{m1 19138}#
                                   (append #{m1 19138}# #{m2 19158}#)))
                               (let ((#{m2 19166}# (cdr #{w2 19137}#)))
                                 (if (null? #{m2 19166}#)
                                   #{s1 19139}#
                                   (append #{s1 19139}# #{m2 19166}#)))))))
                   #{mod 19038}#)
                 #f)))))
       (#{match-empty 18084}#
         (lambda (#{p 19171}# #{r 19172}#)
           (if (null? #{p 19171}#)
             #{r 19172}#
             (if (eq? #{p 19171}# '_)
               #{r 19172}#
               (if (eq? #{p 19171}# 'any)
                 (cons '() #{r 19172}#)
                 (if (pair? #{p 19171}#)
                   (#{match-empty 18084}#
                     (car #{p 19171}#)
                     (#{match-empty 18084}#
                       (cdr #{p 19171}#)
                       #{r 19172}#))
                   (if (eq? #{p 19171}# 'each-any)
                     (cons '() #{r 19172}#)
                     (let ((#{atom-key 19173}# (vector-ref #{p 19171}# 0)))
                       (if (eqv? #{atom-key 19173}# 'each)
                         (#{match-empty 18084}#
                           (vector-ref #{p 19171}# 1)
                           #{r 19172}#)
                         (if (eqv? #{atom-key 19173}# 'each+)
                           (#{match-empty 18084}#
                             (vector-ref #{p 19171}# 1)
                             (#{match-empty 18084}#
                               (reverse (vector-ref #{p 19171}# 2))
                               (#{match-empty 18084}#
                                 (vector-ref #{p 19171}# 3)
                                 #{r 19172}#)))
                           (if (if (eqv? #{atom-key 19173}# 'free-id)
                                 #t
                                 (eqv? #{atom-key 19173}# 'atom))
                             #{r 19172}#
                             (if (eqv? #{atom-key 19173}# 'vector)
                               (#{match-empty 18084}#
                                 (vector-ref #{p 19171}# 1)
                                 #{r 19172}#)))))))))))))
       (#{combine 18085}#
         (lambda (#{r* 19192}# #{r 19193}#)
           (if (null? (car #{r* 19192}#))
             #{r 19193}#
             (cons (map car #{r* 19192}#)
                   (#{combine 18085}#
                     (map cdr #{r* 19192}#)
                     #{r 19193}#)))))
       (#{match* 18086}#
         (lambda (#{e 18116}#
                  #{p 18117}#
                  #{w 18118}#
                  #{r 18119}#
                  #{mod 18120}#)
           (if (null? #{p 18117}#)
             (if (null? #{e 18116}#) #{r 18119}# #f)
             (if (pair? #{p 18117}#)
               (if (pair? #{e 18116}#)
                 (#{match 18087}#
                   (car #{e 18116}#)
                   (car #{p 18117}#)
                   #{w 18118}#
                   (#{match 18087}#
                     (cdr #{e 18116}#)
                     (cdr #{p 18117}#)
                     #{w 18118}#
                     #{r 18119}#
                     #{mod 18120}#)
                   #{mod 18120}#)
                 #f)
               (if (eq? #{p 18117}# 'each-any)
                 (let ((#{l 18125}#
                         (#{match-each-any 18083}#
                           #{e 18116}#
                           #{w 18118}#
                           #{mod 18120}#)))
                   (if #{l 18125}#
                     (cons #{l 18125}# #{r 18119}#)
                     #f))
                 (let ((#{atom-key 18130}# (vector-ref #{p 18117}# 0)))
                   (if (eqv? #{atom-key 18130}# 'each)
                     (if (null? #{e 18116}#)
                       (#{match-empty 18084}#
                         (vector-ref #{p 18117}# 1)
                         #{r 18119}#)
                       (let ((#{l 18137}#
                               (#{match-each 18081}#
                                 #{e 18116}#
                                 (vector-ref #{p 18117}# 1)
                                 #{w 18118}#
                                 #{mod 18120}#)))
                         (if #{l 18137}#
                           (letrec*
                             ((#{collect 18140}#
                                (lambda (#{l 18201}#)
                                  (if (null? (car #{l 18201}#))
                                    #{r 18119}#
                                    (cons (map car #{l 18201}#)
                                          (#{collect 18140}#
                                            (map cdr #{l 18201}#)))))))
                             (#{collect 18140}# #{l 18137}#))
                           #f)))
                     (if (eqv? #{atom-key 18130}# 'each+)
                       (call-with-values
                         (lambda ()
                           (let ((#{x-pat 18210}# (vector-ref #{p 18117}# 1))
                                 (#{y-pat 18211}# (vector-ref #{p 18117}# 2))
                                 (#{z-pat 18212}# (vector-ref #{p 18117}# 3)))
                             (letrec*
                               ((#{f 18216}#
                                  (lambda (#{e 18218}# #{w 18219}#)
                                    (if (pair? #{e 18218}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{f 18216}#
                                            (cdr #{e 18218}#)
                                            #{w 18219}#))
                                        (lambda (#{xr* 18220}#
                                                 #{y-pat 18221}#
                                                 #{r 18222}#)
                                          (if #{r 18222}#
                                            (if (null? #{y-pat 18221}#)
                                              (let ((#{xr 18223}#
                                                      (#{match 18087}#
                                                        (car #{e 18218}#)
                                                        #{x-pat 18210}#
                                                        #{w 18219}#
                                                        '()
                                                        #{mod 18120}#)))
                                                (if #{xr 18223}#
                                                  (values
                                                    (cons #{xr 18223}#
                                                          #{xr* 18220}#)
                                                    #{y-pat 18221}#
                                                    #{r 18222}#)
                                                  (values #f #f #f)))
                                              (values
                                                '()
                                                (cdr #{y-pat 18221}#)
                                                (#{match 18087}#
                                                  (car #{e 18218}#)
                                                  (car #{y-pat 18221}#)
                                                  #{w 18219}#
                                                  #{r 18222}#
                                                  #{mod 18120}#)))
                                            (values #f #f #f))))
                                      (if (if (vector? #{e 18218}#)
                                            (if (= (vector-length #{e 18218}#)
                                                   4)
                                              (eq? (vector-ref #{e 18218}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (#{f 18216}#
                                          (vector-ref #{e 18218}# 1)
                                          (let ((#{m1 18251}#
                                                  (car #{w 18219}#))
                                                (#{s1 18252}#
                                                  (cdr #{w 18219}#)))
                                            (if (null? #{m1 18251}#)
                                              (if (null? #{s1 18252}#)
                                                #{e 18218}#
                                                (cons (car #{e 18218}#)
                                                      (let ((#{m2 18264}#
                                                              (cdr #{e 18218}#)))
                                                        (if (null? #{m2 18264}#)
                                                          #{s1 18252}#
                                                          (append
                                                            #{s1 18252}#
                                                            #{m2 18264}#)))))
                                              (cons (let ((#{m2 18274}#
                                                            (car #{e 18218}#)))
                                                      (if (null? #{m2 18274}#)
                                                        #{m1 18251}#
                                                        (append
                                                          #{m1 18251}#
                                                          #{m2 18274}#)))
                                                    (let ((#{m2 18284}#
                                                            (cdr #{e 18218}#)))
                                                      (if (null? #{m2 18284}#)
                                                        #{s1 18252}#
                                                        (append
                                                          #{s1 18252}#
                                                          #{m2 18284}#)))))))
                                        (values
                                          '()
                                          #{y-pat 18211}#
                                          (#{match 18087}#
                                            #{e 18218}#
                                            #{z-pat 18212}#
                                            #{w 18219}#
                                            #{r 18119}#
                                            #{mod 18120}#)))))))
                               (#{f 18216}# #{e 18116}# #{w 18118}#))))
                         (lambda (#{xr* 18294}# #{y-pat 18295}# #{r 18296}#)
                           (if #{r 18296}#
                             (if (null? #{y-pat 18295}#)
                               (if (null? #{xr* 18294}#)
                                 (#{match-empty 18084}#
                                   (vector-ref #{p 18117}# 1)
                                   #{r 18296}#)
                                 (#{combine 18085}# #{xr* 18294}# #{r 18296}#))
                               #f)
                             #f)))
                       (if (eqv? #{atom-key 18130}# 'free-id)
                         (if (if (symbol? #{e 18116}#)
                               #t
                               (if (if (vector? #{e 18116}#)
                                     (if (= (vector-length #{e 18116}#) 4)
                                       (eq? (vector-ref #{e 18116}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
                                 (symbol? (vector-ref #{e 18116}# 1))
                                 #f))
                           (if (#{free-id=? 4361}#
                                 (if (if (null? (car #{w 18118}#))
                                       (null? (cdr #{w 18118}#))
                                       #f)
                                   #{e 18116}#
                                   (if (if (vector? #{e 18116}#)
                                         (if (= (vector-length #{e 18116}#) 4)
                                           (eq? (vector-ref #{e 18116}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (let ((#{expression 18727}#
                                             (vector-ref #{e 18116}# 1))
                                           (#{wrap 18728}#
                                             (let ((#{w2 18738}#
                                                     (vector-ref
                                                       #{e 18116}#
                                                       2)))
                                               (let ((#{m1 18739}#
                                                       (car #{w 18118}#))
                                                     (#{s1 18740}#
                                                       (cdr #{w 18118}#)))
                                                 (if (null? #{m1 18739}#)
                                                   (if (null? #{s1 18740}#)
                                                     #{w2 18738}#
                                                     (cons (car #{w2 18738}#)
                                                           (let ((#{m2 18757}#
                                                                   (cdr #{w2 18738}#)))
                                                             (if (null? #{m2 18757}#)
                                                               #{s1 18740}#
                                                               (append
                                                                 #{s1 18740}#
                                                                 #{m2 18757}#)))))
                                                   (cons (let ((#{m2 18765}#
                                                                 (car #{w2 18738}#)))
                                                           (if (null? #{m2 18765}#)
                                                             #{m1 18739}#
                                                             (append
                                                               #{m1 18739}#
                                                               #{m2 18765}#)))
                                                         (let ((#{m2 18773}#
                                                                 (cdr #{w2 18738}#)))
                                                           (if (null? #{m2 18773}#)
                                                             #{s1 18740}#
                                                             (append
                                                               #{s1 18740}#
                                                               #{m2 18773}#))))))))
                                           (#{module 18729}#
                                             (vector-ref #{e 18116}# 3)))
                                       (vector
                                         'syntax-object
                                         #{expression 18727}#
                                         #{wrap 18728}#
                                         #{module 18729}#))
                                     (if (null? #{e 18116}#)
                                       #{e 18116}#
                                       (vector
                                         'syntax-object
                                         #{e 18116}#
                                         #{w 18118}#
                                         #{mod 18120}#))))
                                 (vector-ref #{p 18117}# 1))
                             #{r 18119}#
                             #f)
                           #f)
                         (if (eqv? #{atom-key 18130}# 'atom)
                           (if (equal?
                                 (vector-ref #{p 18117}# 1)
                                 (#{strip 4386}# #{e 18116}# #{w 18118}#))
                             #{r 18119}#
                             #f)
                           (if (eqv? #{atom-key 18130}# 'vector)
                             (if (vector? #{e 18116}#)
                               (#{match 18087}#
                                 (vector->list #{e 18116}#)
                                 (vector-ref #{p 18117}# 1)
                                 #{w 18118}#
                                 #{r 18119}#
                                 #{mod 18120}#)
                               #f))))))))))))
       (#{match 18087}#
         (lambda (#{e 18806}#
                  #{p 18807}#
                  #{w 18808}#
                  #{r 18809}#
                  #{mod 18810}#)
           (if (not #{r 18809}#)
             #f
             (if (eq? #{p 18807}# '_)
               #{r 18809}#
               (if (eq? #{p 18807}# 'any)
                 (cons (if (if (null? (car #{w 18808}#))
                             (null? (cdr #{w 18808}#))
                             #f)
                         #{e 18806}#
                         (if (if (vector? #{e 18806}#)
                               (if (= (vector-length #{e 18806}#) 4)
                                 (eq? (vector-ref #{e 18806}# 0)
                                      'syntax-object)
                                 #f)
                               #f)
                           (let ((#{expression 18840}#
                                   (vector-ref #{e 18806}# 1))
                                 (#{wrap 18841}#
                                   (let ((#{w2 18851}#
                                           (vector-ref #{e 18806}# 2)))
                                     (let ((#{m1 18852}# (car #{w 18808}#))
                                           (#{s1 18853}# (cdr #{w 18808}#)))
                                       (if (null? #{m1 18852}#)
                                         (if (null? #{s1 18853}#)
                                           #{w2 18851}#
                                           (cons (car #{w2 18851}#)
                                                 (let ((#{m2 18870}#
                                                         (cdr #{w2 18851}#)))
                                                   (if (null? #{m2 18870}#)
                                                     #{s1 18853}#
                                                     (append
                                                       #{s1 18853}#
                                                       #{m2 18870}#)))))
                                         (cons (let ((#{m2 18878}#
                                                       (car #{w2 18851}#)))
                                                 (if (null? #{m2 18878}#)
                                                   #{m1 18852}#
                                                   (append
                                                     #{m1 18852}#
                                                     #{m2 18878}#)))
                                               (let ((#{m2 18886}#
                                                       (cdr #{w2 18851}#)))
                                                 (if (null? #{m2 18886}#)
                                                   #{s1 18853}#
                                                   (append
                                                     #{s1 18853}#
                                                     #{m2 18886}#))))))))
                                 (#{module 18842}# (vector-ref #{e 18806}# 3)))
                             (vector
                               'syntax-object
                               #{expression 18840}#
                               #{wrap 18841}#
                               #{module 18842}#))
                           (if (null? #{e 18806}#)
                             #{e 18806}#
                             (vector
                               'syntax-object
                               #{e 18806}#
                               #{w 18808}#
                               #{mod 18810}#))))
                       #{r 18809}#)
                 (if (if (vector? #{e 18806}#)
                       (if (= (vector-length #{e 18806}#) 4)
                         (eq? (vector-ref #{e 18806}# 0) 'syntax-object)
                         #f)
                       #f)
                   (#{match* 18086}#
                     (vector-ref #{e 18806}# 1)
                     #{p 18807}#
                     (let ((#{w2 18929}# (vector-ref #{e 18806}# 2)))
                       (let ((#{m1 18930}# (car #{w 18808}#))
                             (#{s1 18931}# (cdr #{w 18808}#)))
                         (if (null? #{m1 18930}#)
                           (if (null? #{s1 18931}#)
                             #{w2 18929}#
                             (cons (car #{w2 18929}#)
                                   (let ((#{m2 18942}# (cdr #{w2 18929}#)))
                                     (if (null? #{m2 18942}#)
                                       #{s1 18931}#
                                       (append #{s1 18931}# #{m2 18942}#)))))
                           (cons (let ((#{m2 18950}# (car #{w2 18929}#)))
                                   (if (null? #{m2 18950}#)
                                     #{m1 18930}#
                                     (append #{m1 18930}# #{m2 18950}#)))
                                 (let ((#{m2 18958}# (cdr #{w2 18929}#)))
                                   (if (null? #{m2 18958}#)
                                     #{s1 18931}#
                                     (append #{s1 18931}# #{m2 18958}#)))))))
                     #{r 18809}#
                     (vector-ref #{e 18806}# 3))
                   (#{match* 18086}#
                     #{e 18806}#
                     #{p 18807}#
                     #{w 18808}#
                     #{r 18809}#
                     #{mod 18810}#))))))))
      (set! $sc-dispatch
        (lambda (#{e 18088}# #{p 18089}#)
          (if (eq? #{p 18089}# 'any)
            (list #{e 18088}#)
            (if (eq? #{p 18089}# '_)
              '()
              (if (if (vector? #{e 18088}#)
                    (if (= (vector-length #{e 18088}#) 4)
                      (eq? (vector-ref #{e 18088}# 0) 'syntax-object)
                      #f)
                    #f)
                (#{match* 18086}#
                  (vector-ref #{e 18088}# 1)
                  #{p 18089}#
                  (vector-ref #{e 18088}# 2)
                  '()
                  (vector-ref #{e 18088}# 3))
                (#{match* 18086}#
                  #{e 18088}#
                  #{p 18089}#
                  '(())
                  '()
                  #f)))))))))

(define with-syntax
  (make-syntax-transformer
    'with-syntax
    'macro
    (lambda (#{x 37268}#)
      (let ((#{tmp 37270}#
              ($sc-dispatch #{x 37268}# '(_ () any . each-any))))
        (if #{tmp 37270}#
          (@apply
            (lambda (#{e1 37274}# #{e2 37275}#)
              (cons '#(syntax-object
                       let
                       ((top)
                        #(ribcage
                          #(e1 e2)
                          #((top) (top))
                          #("i37241" "i37242"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i37238")))
                       (hygiene guile))
                    (cons '() (cons #{e1 37274}# #{e2 37275}#))))
            #{tmp 37270}#)
          (let ((#{tmp 37276}#
                  ($sc-dispatch
                    #{x 37268}#
                    '(_ ((any any)) any . each-any))))
            (if #{tmp 37276}#
              (@apply
                (lambda (#{out 37280}#
                         #{in 37281}#
                         #{e1 37282}#
                         #{e2 37283}#)
                  (list '#(syntax-object
                           syntax-case
                           ((top)
                            #(ribcage
                              #(out in e1 e2)
                              #((top) (top) (top) (top))
                              #("i37247" "i37248" "i37249" "i37250"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i37238")))
                           (hygiene guile))
                        #{in 37281}#
                        '()
                        (list #{out 37280}#
                              (cons '#(syntax-object
                                       let
                                       ((top)
                                        #(ribcage
                                          #(out in e1 e2)
                                          #((top) (top) (top) (top))
                                          #("i37247"
                                            "i37248"
                                            "i37249"
                                            "i37250"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i37238")))
                                       (hygiene guile))
                                    (cons '()
                                          (cons #{e1 37282}# #{e2 37283}#))))))
                #{tmp 37276}#)
              (let ((#{tmp 37284}#
                      ($sc-dispatch
                        #{x 37268}#
                        '(_ #(each (any any)) any . each-any))))
                (if #{tmp 37284}#
                  (@apply
                    (lambda (#{out 37288}#
                             #{in 37289}#
                             #{e1 37290}#
                             #{e2 37291}#)
                      (list '#(syntax-object
                               syntax-case
                               ((top)
                                #(ribcage
                                  #(out in e1 e2)
                                  #((top) (top) (top) (top))
                                  #("i37257" "i37258" "i37259" "i37260"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i37238")))
                               (hygiene guile))
                            (cons '#(syntax-object
                                     list
                                     ((top)
                                      #(ribcage
                                        #(out in e1 e2)
                                        #((top) (top) (top) (top))
                                        #("i37257" "i37258" "i37259" "i37260"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i37238")))
                                     (hygiene guile))
                                  #{in 37289}#)
                            '()
                            (list #{out 37288}#
                                  (cons '#(syntax-object
                                           let
                                           ((top)
                                            #(ribcage
                                              #(out in e1 e2)
                                              #((top) (top) (top) (top))
                                              #("i37257"
                                                "i37258"
                                                "i37259"
                                                "i37260"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("i37238")))
                                           (hygiene guile))
                                        (cons '()
                                              (cons #{e1 37290}#
                                                    #{e2 37291}#))))))
                    #{tmp 37284}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{x 37268}#))))))))))

(define syntax-rules
  (make-syntax-transformer
    'syntax-rules
    'macro
    (lambda (#{x 37345}#)
      (let ((#{tmp 37347}#
              ($sc-dispatch
                #{x 37345}#
                '(_ each-any . #(each ((any . any) any))))))
        (if #{tmp 37347}#
          (@apply
            (lambda (#{k 37351}#
                     #{keyword 37352}#
                     #{pattern 37353}#
                     #{template 37354}#)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage
                          #(k keyword pattern template)
                          #((top) (top) (top) (top))
                          #("i37308" "i37309" "i37310" "i37311"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i37305")))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage
                           #(k keyword pattern template)
                           #((top) (top) (top) (top))
                           #("i37308" "i37309" "i37310" "i37311"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("i37305")))
                        (hygiene guile)))
                    (vector
                      '(#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("i37308" "i37309" "i37310" "i37311"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i37305")))
                          (hygiene guile))
                        .
                        #(syntax-object
                          syntax-rules
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("i37308" "i37309" "i37310" "i37311"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i37305")))
                          (hygiene guile)))
                      (cons '#(syntax-object
                               patterns
                               ((top)
                                #(ribcage
                                  #(k keyword pattern template)
                                  #((top) (top) (top) (top))
                                  #("i37308" "i37309" "i37310" "i37311"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i37305")))
                               (hygiene guile))
                            #{pattern 37353}#))
                    (cons '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
                                #("i37308" "i37309" "i37310" "i37311"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i37305")))
                             (hygiene guile))
                          (cons '#(syntax-object
                                   x
                                   ((top)
                                    #(ribcage
                                      #(k keyword pattern template)
                                      #((top) (top) (top) (top))
                                      #("i37308" "i37309" "i37310" "i37311"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i37305")))
                                   (hygiene guile))
                                (cons #{k 37351}#
                                      (map (lambda (#{tmp 37319 37355}#
                                                    #{tmp 37318 37356}#)
                                             (list (cons '#(syntax-object
                                                            dummy
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i37308"
                                                                 "i37309"
                                                                 "i37310"
                                                                 "i37311"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i37305")))
                                                            (hygiene guile))
                                                         #{tmp 37318 37356}#)
                                                   (list '#(syntax-object
                                                            syntax
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i37308"
                                                                 "i37309"
                                                                 "i37310"
                                                                 "i37311"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i37305")))
                                                            (hygiene guile))
                                                         #{tmp 37319 37355}#)))
                                           #{template 37354}#
                                           #{pattern 37353}#))))))
            #{tmp 37347}#)
          (let ((#{tmp 37357}#
                  ($sc-dispatch
                    #{x 37345}#
                    '(_ each-any any . #(each ((any . any) any))))))
            (if (if #{tmp 37357}#
                  (@apply
                    (lambda (#{k 37361}#
                             #{docstring 37362}#
                             #{keyword 37363}#
                             #{pattern 37364}#
                             #{template 37365}#)
                      (string? (syntax->datum #{docstring 37362}#)))
                    #{tmp 37357}#)
                  #f)
              (@apply
                (lambda (#{k 37366}#
                         #{docstring 37367}#
                         #{keyword 37368}#
                         #{pattern 37369}#
                         #{template 37370}#)
                  (list '#(syntax-object
                           lambda
                           ((top)
                            #(ribcage
                              #(k docstring keyword pattern template)
                              #((top) (top) (top) (top) (top))
                              #("i37331" "i37332" "i37333" "i37334" "i37335"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i37305")))
                           (hygiene guile))
                        '(#(syntax-object
                            x
                            ((top)
                             #(ribcage
                               #(k docstring keyword pattern template)
                               #((top) (top) (top) (top) (top))
                               #("i37331" "i37332" "i37333" "i37334" "i37335"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i37305")))
                            (hygiene guile)))
                        #{docstring 37367}#
                        (vector
                          '(#(syntax-object
                              macro-type
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("i37331"
                                   "i37332"
                                   "i37333"
                                   "i37334"
                                   "i37335"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i37305")))
                              (hygiene guile))
                            .
                            #(syntax-object
                              syntax-rules
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("i37331"
                                   "i37332"
                                   "i37333"
                                   "i37334"
                                   "i37335"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i37305")))
                              (hygiene guile)))
                          (cons '#(syntax-object
                                   patterns
                                   ((top)
                                    #(ribcage
                                      #(k docstring keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("i37331"
                                        "i37332"
                                        "i37333"
                                        "i37334"
                                        "i37335"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i37305")))
                                   (hygiene guile))
                                #{pattern 37369}#))
                        (cons '#(syntax-object
                                 syntax-case
                                 ((top)
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
                                    #("i37331"
                                      "i37332"
                                      "i37333"
                                      "i37334"
                                      "i37335"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i37305")))
                                 (hygiene guile))
                              (cons '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(k
                                            docstring
                                            keyword
                                            pattern
                                            template)
                                          #((top) (top) (top) (top) (top))
                                          #("i37331"
                                            "i37332"
                                            "i37333"
                                            "i37334"
                                            "i37335"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i37305")))
                                       (hygiene guile))
                                    (cons #{k 37366}#
                                          (map (lambda (#{tmp 37344 37371}#
                                                        #{tmp 37343 37372}#)
                                                 (list (cons '#(syntax-object
                                                                dummy
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("i37331"
                                                                     "i37332"
                                                                     "i37333"
                                                                     "i37334"
                                                                     "i37335"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i37305")))
                                                                (hygiene
                                                                  guile))
                                                             #{tmp 37343 37372}#)
                                                       (list '#(syntax-object
                                                                syntax
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("i37331"
                                                                     "i37332"
                                                                     "i37333"
                                                                     "i37334"
                                                                     "i37335"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i37305")))
                                                                (hygiene
                                                                  guile))
                                                             #{tmp 37344 37371}#)))
                                               #{template 37370}#
                                               #{pattern 37369}#))))))
                #{tmp 37357}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 37345}#))))))))

(define define-syntax-rule
  (make-syntax-transformer
    'define-syntax-rule
    'macro
    (lambda (#{x 37409}#)
      (let ((#{tmp 37411}#
              ($sc-dispatch #{x 37409}# '(_ (any . any) any))))
        (if #{tmp 37411}#
          (@apply
            (lambda (#{name 37415}#
                     #{pattern 37416}#
                     #{template 37417}#)
              (list '#(syntax-object
                       define-syntax
                       ((top)
                        #(ribcage
                          #(name pattern template)
                          #((top) (top) (top))
                          #("i37386" "i37387" "i37388"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i37383")))
                       (hygiene guile))
                    #{name 37415}#
                    (list '#(syntax-object
                             syntax-rules
                             ((top)
                              #(ribcage
                                #(name pattern template)
                                #((top) (top) (top))
                                #("i37386" "i37387" "i37388"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i37383")))
                             (hygiene guile))
                          '()
                          (list (cons '#(syntax-object
                                         _
                                         ((top)
                                          #(ribcage
                                            #(name pattern template)
                                            #((top) (top) (top))
                                            #("i37386" "i37387" "i37388"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i37383")))
                                         (hygiene guile))
                                      #{pattern 37416}#)
                                #{template 37417}#))))
            #{tmp 37411}#)
          (let ((#{tmp 37418}#
                  ($sc-dispatch
                    #{x 37409}#
                    '(_ (any . any) any any))))
            (if (if #{tmp 37418}#
                  (@apply
                    (lambda (#{name 37422}#
                             #{pattern 37423}#
                             #{docstring 37424}#
                             #{template 37425}#)
                      (string? (syntax->datum #{docstring 37424}#)))
                    #{tmp 37418}#)
                  #f)
              (@apply
                (lambda (#{name 37426}#
                         #{pattern 37427}#
                         #{docstring 37428}#
                         #{template 37429}#)
                  (list '#(syntax-object
                           define-syntax
                           ((top)
                            #(ribcage
                              #(name pattern docstring template)
                              #((top) (top) (top) (top))
                              #("i37401" "i37402" "i37403" "i37404"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i37383")))
                           (hygiene guile))
                        #{name 37426}#
                        (list '#(syntax-object
                                 syntax-rules
                                 ((top)
                                  #(ribcage
                                    #(name pattern docstring template)
                                    #((top) (top) (top) (top))
                                    #("i37401" "i37402" "i37403" "i37404"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i37383")))
                                 (hygiene guile))
                              '()
                              #{docstring 37428}#
                              (list (cons '#(syntax-object
                                             _
                                             ((top)
                                              #(ribcage
                                                #(name
                                                  pattern
                                                  docstring
                                                  template)
                                                #((top) (top) (top) (top))
                                                #("i37401"
                                                  "i37402"
                                                  "i37403"
                                                  "i37404"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i37383")))
                                             (hygiene guile))
                                          #{pattern 37427}#)
                                    #{template 37429}#))))
                #{tmp 37418}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 37409}#))))))))

(define let*
  (make-syntax-transformer
    'let*
    'macro
    (lambda (#{x 37478}#)
      (let ((#{tmp 37480}#
              ($sc-dispatch
                #{x 37478}#
                '(any #(each (any any)) any . each-any))))
        (if (if #{tmp 37480}#
              (@apply
                (lambda (#{let* 37484}#
                         #{x 37485}#
                         #{v 37486}#
                         #{e1 37487}#
                         #{e2 37488}#)
                  (and-map identifier? #{x 37485}#))
                #{tmp 37480}#)
              #f)
          (@apply
            (lambda (#{let* 37489}#
                     #{x 37490}#
                     #{v 37491}#
                     #{e1 37492}#
                     #{e2 37493}#)
              (letrec*
                ((#{f 37494}#
                   (lambda (#{bindings 37497}#)
                     (if (null? #{bindings 37497}#)
                       (cons '#(syntax-object
                                let
                                ((top)
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(f bindings)
                                   #((top) (top))
                                   #("i37464" "i37465"))
                                 #(ribcage
                                   #(let* x v e1 e2)
                                   #((top) (top) (top) (top) (top))
                                   #("i37454"
                                     "i37455"
                                     "i37456"
                                     "i37457"
                                     "i37458"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i37440")))
                                (hygiene guile))
                             (cons '() (cons #{e1 37492}# #{e2 37493}#)))
                       (let ((#{tmp 37498}#
                               (list (#{f 37494}# (cdr #{bindings 37497}#))
                                     (car #{bindings 37497}#))))
                         (let ((#{tmp 37499}#
                                 ($sc-dispatch #{tmp 37498}# '(any any))))
                           (if #{tmp 37499}#
                             (@apply
                               (lambda (#{body 37501}# #{binding 37502}#)
                                 (list '#(syntax-object
                                          let
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(body binding)
                                             #((top) (top))
                                             #("i37474" "i37475"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(f bindings)
                                             #((top) (top))
                                             #("i37464" "i37465"))
                                           #(ribcage
                                             #(let* x v e1 e2)
                                             #((top) (top) (top) (top) (top))
                                             #("i37454"
                                               "i37455"
                                               "i37456"
                                               "i37457"
                                               "i37458"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x)
                                             #((top))
                                             #("i37440")))
                                          (hygiene guile))
                                       (list #{binding 37502}#)
                                       #{body 37501}#))
                               #{tmp 37499}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{tmp 37498}#))))))))
                (#{f 37494}# (map list #{x 37490}# #{v 37491}#))))
            #{tmp 37480}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 37478}#))))))

(define do
  (make-syntax-transformer
    'do
    'macro
    (lambda (#{orig-x 37560}#)
      (let ((#{tmp 37562}#
              ($sc-dispatch
                #{orig-x 37560}#
                '(_ #(each (any any . any))
                    (any . each-any)
                    .
                    each-any))))
        (if #{tmp 37562}#
          (@apply
            (lambda (#{var 37566}#
                     #{init 37567}#
                     #{step 37568}#
                     #{e0 37569}#
                     #{e1 37570}#
                     #{c 37571}#)
              (let ((#{tmp 37572}#
                      (map (lambda (#{v 37575}# #{s 37576}#)
                             (let ((#{tmp 37578}#
                                     ($sc-dispatch #{s 37576}# '())))
                               (if #{tmp 37578}#
                                 (@apply (lambda () #{v 37575}#) #{tmp 37578}#)
                                 (let ((#{tmp 37581}#
                                         ($sc-dispatch #{s 37576}# '(any))))
                                   (if #{tmp 37581}#
                                     (@apply
                                       (lambda (#{e 37584}#) #{e 37584}#)
                                       #{tmp 37581}#)
                                     (syntax-violation
                                       'do
                                       "bad step expression"
                                       #{orig-x 37560}#
                                       #{s 37576}#))))))
                           #{var 37566}#
                           #{step 37568}#)))
                (let ((#{tmp 37573}#
                        ($sc-dispatch #{tmp 37572}# 'each-any)))
                  (if #{tmp 37573}#
                    (@apply
                      (lambda (#{step 37590}#)
                        (let ((#{tmp 37592}# ($sc-dispatch #{e1 37570}# '())))
                          (if #{tmp 37592}#
                            (@apply
                              (lambda ()
                                (list '#(syntax-object
                                         let
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("i37528"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("i37513"
                                              "i37514"
                                              "i37515"
                                              "i37516"
                                              "i37517"
                                              "i37518"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("i37510")))
                                         (hygiene guile))
                                      '#(syntax-object
                                         doloop
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("i37528"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("i37513"
                                              "i37514"
                                              "i37515"
                                              "i37516"
                                              "i37517"
                                              "i37518"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("i37510")))
                                         (hygiene guile))
                                      (map list #{var 37566}# #{init 37567}#)
                                      (list '#(syntax-object
                                               if
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(step)
                                                  #((top))
                                                  #("i37528"))
                                                #(ribcage
                                                  #(var init step e0 e1 c)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("i37513"
                                                    "i37514"
                                                    "i37515"
                                                    "i37516"
                                                    "i37517"
                                                    "i37518"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(orig-x)
                                                  #((top))
                                                  #("i37510")))
                                               (hygiene guile))
                                            (list '#(syntax-object
                                                     not
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("i37528"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i37513"
                                                          "i37514"
                                                          "i37515"
                                                          "i37516"
                                                          "i37517"
                                                          "i37518"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("i37510")))
                                                     (hygiene guile))
                                                  #{e0 37569}#)
                                            (cons '#(syntax-object
                                                     begin
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("i37528"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i37513"
                                                          "i37514"
                                                          "i37515"
                                                          "i37516"
                                                          "i37517"
                                                          "i37518"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("i37510")))
                                                     (hygiene guile))
                                                  (append
                                                    #{c 37571}#
                                                    (list (cons '#(syntax-object
                                                                   doloop
                                                                   ((top)
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(step)
                                                                      #((top))
                                                                      #("i37528"))
                                                                    #(ribcage
                                                                      #(var
                                                                        init
                                                                        step
                                                                        e0
                                                                        e1
                                                                        c)
                                                                      #((top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                      #("i37513"
                                                                        "i37514"
                                                                        "i37515"
                                                                        "i37516"
                                                                        "i37517"
                                                                        "i37518"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(orig-x)
                                                                      #((top))
                                                                      #("i37510")))
                                                                   (hygiene
                                                                     guile))
                                                                #{step 37590}#)))))))
                              #{tmp 37592}#)
                            (let ((#{tmp 37596}#
                                    ($sc-dispatch
                                      #{e1 37570}#
                                      '(any . each-any))))
                              (if #{tmp 37596}#
                                (@apply
                                  (lambda (#{e1 37600}# #{e2 37601}#)
                                    (list '#(syntax-object
                                             let
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("i37537" "i37538"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i37528"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i37513"
                                                  "i37514"
                                                  "i37515"
                                                  "i37516"
                                                  "i37517"
                                                  "i37518"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i37510")))
                                             (hygiene guile))
                                          '#(syntax-object
                                             doloop
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("i37537" "i37538"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i37528"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i37513"
                                                  "i37514"
                                                  "i37515"
                                                  "i37516"
                                                  "i37517"
                                                  "i37518"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i37510")))
                                             (hygiene guile))
                                          (map list
                                               #{var 37566}#
                                               #{init 37567}#)
                                          (list '#(syntax-object
                                                   if
                                                   ((top)
                                                    #(ribcage
                                                      #(e1 e2)
                                                      #((top) (top))
                                                      #("i37537" "i37538"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(step)
                                                      #((top))
                                                      #("i37528"))
                                                    #(ribcage
                                                      #(var init step e0 e1 c)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i37513"
                                                        "i37514"
                                                        "i37515"
                                                        "i37516"
                                                        "i37517"
                                                        "i37518"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(orig-x)
                                                      #((top))
                                                      #("i37510")))
                                                   (hygiene guile))
                                                #{e0 37569}#
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("i37537"
                                                              "i37538"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i37528"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i37513"
                                                              "i37514"
                                                              "i37515"
                                                              "i37516"
                                                              "i37517"
                                                              "i37518"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i37510")))
                                                         (hygiene guile))
                                                      (cons #{e1 37600}#
                                                            #{e2 37601}#))
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("i37537"
                                                              "i37538"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i37528"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i37513"
                                                              "i37514"
                                                              "i37515"
                                                              "i37516"
                                                              "i37517"
                                                              "i37518"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i37510")))
                                                         (hygiene guile))
                                                      (append
                                                        #{c 37571}#
                                                        (list (cons '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i37537"
                                                                            "i37538"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i37528"))
                                                                        #(ribcage
                                                                          #(var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i37513"
                                                                            "i37514"
                                                                            "i37515"
                                                                            "i37516"
                                                                            "i37517"
                                                                            "i37518"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i37510")))
                                                                       (hygiene
                                                                         guile))
                                                                    #{step 37590}#)))))))
                                  #{tmp 37596}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  #{e1 37570}#))))))
                      #{tmp 37573}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp 37572}#)))))
            #{tmp 37562}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{orig-x 37560}#))))))

(define quasiquote
  (make-syntax-transformer
    'quasiquote
    'macro
    (letrec*
      ((#{quasi 37887}#
         (lambda (#{p 37911}# #{lev 37912}#)
           (let ((#{tmp 37914}#
                   ($sc-dispatch
                     #{p 37911}#
                     '(#(free-id
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37633" "i37634"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37629"
                               "i37627"
                               "i37625"
                               "i37623"
                               "i37621"
                               "i37619"
                               "i37617")))
                           (hygiene guile)))
                       any))))
             (if #{tmp 37914}#
               (@apply
                 (lambda (#{p 37918}#)
                   (if (= #{lev 37912}# 0)
                     (list '#(syntax-object
                              "value"
                              ((top)
                               #(ribcage #(p) #((top)) #("i37637"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
                                 #("i37633" "i37634"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
                                       quasiappend
                                       quasicons
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
                                 ("i37629"
                                  "i37627"
                                  "i37625"
                                  "i37623"
                                  "i37621"
                                  "i37619"
                                  "i37617")))
                              (hygiene guile))
                           #{p 37918}#)
                     (#{quasicons 37889}#
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage #(p) #((top)) #("i37637"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37633" "i37634"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37629"
                               "i37627"
                               "i37625"
                               "i37623"
                               "i37621"
                               "i37619"
                               "i37617")))
                           (hygiene guile))
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage #(p) #((top)) #("i37637"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37633" "i37634"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37629"
                               "i37627"
                               "i37625"
                               "i37623"
                               "i37621"
                               "i37619"
                               "i37617")))
                           (hygiene guile)))
                       (#{quasi 37887}#
                         (list #{p 37918}#)
                         (#{1-}# #{lev 37912}#)))))
                 #{tmp 37914}#)
               (let ((#{tmp 37921}#
                       ($sc-dispatch
                         #{p 37911}#
                         '(#(free-id
                             #(syntax-object
                               quasiquote
                               ((top)
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
                                  #("i37633" "i37634"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
                                        quasiappend
                                        quasicons
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
                                  ("i37629"
                                   "i37627"
                                   "i37625"
                                   "i37623"
                                   "i37621"
                                   "i37619"
                                   "i37617")))
                               (hygiene guile)))
                           any))))
                 (if #{tmp 37921}#
                   (@apply
                     (lambda (#{p 37925}#)
                       (#{quasicons 37889}#
                         '(#(syntax-object
                             "quote"
                             ((top)
                              #(ribcage #(p) #((top)) #("i37640"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i37633" "i37634"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i37629"
                                 "i37627"
                                 "i37625"
                                 "i37623"
                                 "i37621"
                                 "i37619"
                                 "i37617")))
                             (hygiene guile))
                           #(syntax-object
                             quasiquote
                             ((top)
                              #(ribcage #(p) #((top)) #("i37640"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i37633" "i37634"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i37629"
                                 "i37627"
                                 "i37625"
                                 "i37623"
                                 "i37621"
                                 "i37619"
                                 "i37617")))
                             (hygiene guile)))
                         (#{quasi 37887}#
                           (list #{p 37925}#)
                           (#{1+}# #{lev 37912}#))))
                     #{tmp 37921}#)
                   (let ((#{tmp 37928}#
                           ($sc-dispatch #{p 37911}# '(any . any))))
                     (if #{tmp 37928}#
                       (@apply
                         (lambda (#{p 37932}# #{q 37933}#)
                           (let ((#{tmp 37935}#
                                   ($sc-dispatch
                                     #{p 37932}#
                                     '(#(free-id
                                         #(syntax-object
                                           unquote
                                           ((top)
                                            #(ribcage
                                              #(p q)
                                              #((top) (top))
                                              #("i37643" "i37644"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(p lev)
                                              #((top) (top))
                                              #("i37633" "i37634"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
                                                    quasiappend
                                                    quasicons
                                                    vquasi
                                                    quasi)
                                              ((top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top))
                                              ("i37629"
                                               "i37627"
                                               "i37625"
                                               "i37623"
                                               "i37621"
                                               "i37619"
                                               "i37617")))
                                           (hygiene guile)))
                                       .
                                       each-any))))
                             (if #{tmp 37935}#
                               (@apply
                                 (lambda (#{p 37939}#)
                                   (if (= #{lev 37912}# 0)
                                     (#{quasilist* 37891}#
                                       (map (lambda (#{tmp 37651 37978}#)
                                              (list '#(syntax-object
                                                       "value"
                                                       ((top)
                                                        #(ribcage
                                                          #(p)
                                                          #((top))
                                                          #("i37649"))
                                                        #(ribcage
                                                          #(p q)
                                                          #((top) (top))
                                                          #("i37643" "i37644"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(p lev)
                                                          #((top) (top))
                                                          #("i37633" "i37634"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i37629"
                                                           "i37627"
                                                           "i37625"
                                                           "i37623"
                                                           "i37621"
                                                           "i37619"
                                                           "i37617")))
                                                       (hygiene guile))
                                                    #{tmp 37651 37978}#))
                                            #{p 37939}#)
                                       (#{quasi 37887}#
                                         #{q 37933}#
                                         #{lev 37912}#))
                                     (#{quasicons 37889}#
                                       (#{quasicons 37889}#
                                         '(#(syntax-object
                                             "quote"
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i37649"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i37643" "i37644"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i37633" "i37634"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i37629"
                                                 "i37627"
                                                 "i37625"
                                                 "i37623"
                                                 "i37621"
                                                 "i37619"
                                                 "i37617")))
                                             (hygiene guile))
                                           #(syntax-object
                                             unquote
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i37649"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i37643" "i37644"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i37633" "i37634"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i37629"
                                                 "i37627"
                                                 "i37625"
                                                 "i37623"
                                                 "i37621"
                                                 "i37619"
                                                 "i37617")))
                                             (hygiene guile)))
                                         (#{quasi 37887}#
                                           #{p 37939}#
                                           (#{1-}# #{lev 37912}#)))
                                       (#{quasi 37887}#
                                         #{q 37933}#
                                         #{lev 37912}#))))
                                 #{tmp 37935}#)
                               (let ((#{tmp 37983}#
                                       ($sc-dispatch
                                         #{p 37932}#
                                         '(#(free-id
                                             #(syntax-object
                                               unquote-splicing
                                               ((top)
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("i37643" "i37644"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("i37633" "i37634"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("i37629"
                                                   "i37627"
                                                   "i37625"
                                                   "i37623"
                                                   "i37621"
                                                   "i37619"
                                                   "i37617")))
                                               (hygiene guile)))
                                           .
                                           each-any))))
                                 (if #{tmp 37983}#
                                   (@apply
                                     (lambda (#{p 37987}#)
                                       (if (= #{lev 37912}# 0)
                                         (#{quasiappend 37890}#
                                           (map (lambda (#{tmp 37656 37990}#)
                                                  (list '#(syntax-object
                                                           "value"
                                                           ((top)
                                                            #(ribcage
                                                              #(p)
                                                              #((top))
                                                              #("i37654"))
                                                            #(ribcage
                                                              #(p q)
                                                              #((top) (top))
                                                              #("i37643"
                                                                "i37644"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(p lev)
                                                              #((top) (top))
                                                              #("i37633"
                                                                "i37634"))
                                                            #(ribcage
                                                              (emit quasivector
                                                                    quasilist*
                                                                    quasiappend
                                                                    quasicons
                                                                    vquasi
                                                                    quasi)
                                                              ((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                              ("i37629"
                                                               "i37627"
                                                               "i37625"
                                                               "i37623"
                                                               "i37621"
                                                               "i37619"
                                                               "i37617")))
                                                           (hygiene guile))
                                                        #{tmp 37656 37990}#))
                                                #{p 37987}#)
                                           (#{quasi 37887}#
                                             #{q 37933}#
                                             #{lev 37912}#))
                                         (#{quasicons 37889}#
                                           (#{quasicons 37889}#
                                             '(#(syntax-object
                                                 "quote"
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i37654"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i37643" "i37644"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i37633" "i37634"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i37629"
                                                     "i37627"
                                                     "i37625"
                                                     "i37623"
                                                     "i37621"
                                                     "i37619"
                                                     "i37617")))
                                                 (hygiene guile))
                                               #(syntax-object
                                                 unquote-splicing
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i37654"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i37643" "i37644"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i37633" "i37634"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i37629"
                                                     "i37627"
                                                     "i37625"
                                                     "i37623"
                                                     "i37621"
                                                     "i37619"
                                                     "i37617")))
                                                 (hygiene guile)))
                                             (#{quasi 37887}#
                                               #{p 37987}#
                                               (#{1-}# #{lev 37912}#)))
                                           (#{quasi 37887}#
                                             #{q 37933}#
                                             #{lev 37912}#))))
                                     #{tmp 37983}#)
                                   (#{quasicons 37889}#
                                     (#{quasi 37887}#
                                       #{p 37932}#
                                       #{lev 37912}#)
                                     (#{quasi 37887}#
                                       #{q 37933}#
                                       #{lev 37912}#)))))))
                         #{tmp 37928}#)
                       (let ((#{tmp 38004}#
                               ($sc-dispatch #{p 37911}# '#(vector each-any))))
                         (if #{tmp 38004}#
                           (@apply
                             (lambda (#{x 38008}#)
                               (let ((#{x 38011}#
                                       (#{vquasi 37888}#
                                         #{x 38008}#
                                         #{lev 37912}#)))
                                 (let ((#{tmp 38013}#
                                         ($sc-dispatch
                                           #{x 38011}#
                                           '(#(atom "quote") each-any))))
                                   (if #{tmp 38013}#
                                     (@apply
                                       (lambda (#{x 38017}#)
                                         (list '#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37761"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37758"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37629"
                                                      "i37627"
                                                      "i37625"
                                                      "i37623"
                                                      "i37621"
                                                      "i37619"
                                                      "i37617")))
                                                  (hygiene guile))
                                               (list->vector #{x 38017}#)))
                                       #{tmp 38013}#)
                                     (letrec*
                                       ((#{f 38019}#
                                          (lambda (#{y 38031}# #{k 38032}#)
                                            (let ((#{tmp 38034}#
                                                    ($sc-dispatch
                                                      #{y 38031}#
                                                      '(#(atom "quote")
                                                        each-any))))
                                              (if #{tmp 38034}#
                                                (@apply
                                                  (lambda (#{y 38037}#)
                                                    (#{k 38032}#
                                                      (map (lambda (#{tmp 37786 38038}#)
                                                             (list '#(syntax-object
                                                                      "quote"
                                                                      ((top)
                                                                       #(ribcage
                                                                         #(y)
                                                                         #((top))
                                                                         #("i37784"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(f
                                                                           y
                                                                           k)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("i37766"
                                                                           "i37767"
                                                                           "i37768"))
                                                                       #(ribcage
                                                                         #(_)
                                                                         #((top))
                                                                         #("i37764"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(x)
                                                                         #((top))
                                                                         #("i37758"))
                                                                       #(ribcage
                                                                         (emit quasivector
                                                                               quasilist*
                                                                               quasiappend
                                                                               quasicons
                                                                               vquasi
                                                                               quasi)
                                                                         ((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                         ("i37629"
                                                                          "i37627"
                                                                          "i37625"
                                                                          "i37623"
                                                                          "i37621"
                                                                          "i37619"
                                                                          "i37617")))
                                                                      (hygiene
                                                                        guile))
                                                                   #{tmp 37786 38038}#))
                                                           #{y 38037}#)))
                                                  #{tmp 38034}#)
                                                (let ((#{tmp 38039}#
                                                        ($sc-dispatch
                                                          #{y 38031}#
                                                          '(#(atom "list")
                                                            .
                                                            each-any))))
                                                  (if #{tmp 38039}#
                                                    (@apply
                                                      (lambda (#{y 38042}#)
                                                        (#{k 38032}#
                                                          #{y 38042}#))
                                                      #{tmp 38039}#)
                                                    (let ((#{tmp 38043}#
                                                            ($sc-dispatch
                                                              #{y 38031}#
                                                              '(#(atom "list*")
                                                                .
                                                                #(each+
                                                                  any
                                                                  (any)
                                                                  ())))))
                                                      (if #{tmp 38043}#
                                                        (@apply
                                                          (lambda (#{y 38046}#
                                                                   #{z 38047}#)
                                                            (#{f 38019}#
                                                              #{z 38047}#
                                                              (lambda (#{ls 38048}#)
                                                                (#{k 38032}#
                                                                  (append
                                                                    #{y 38046}#
                                                                    #{ls 38048}#)))))
                                                          #{tmp 38043}#)
                                                        (list '#(syntax-object
                                                                 "list->vector"
                                                                 ((top)
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(#{ g37801}#)
                                                                    #((m37802
                                                                        top))
                                                                    #("i37805"))
                                                                  #(ribcage
                                                                    #(else)
                                                                    #((top))
                                                                    #("i37799"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(f y k)
                                                                    #((top)
                                                                      (top)
                                                                      (top))
                                                                    #("i37766"
                                                                      "i37767"
                                                                      "i37768"))
                                                                  #(ribcage
                                                                    #(_)
                                                                    #((top))
                                                                    #("i37764"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
                                                                    #("i37758"))
                                                                  #(ribcage
                                                                    (emit quasivector
                                                                          quasilist*
                                                                          quasiappend
                                                                          quasicons
                                                                          vquasi
                                                                          quasi)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("i37629"
                                                                     "i37627"
                                                                     "i37625"
                                                                     "i37623"
                                                                     "i37621"
                                                                     "i37619"
                                                                     "i37617")))
                                                                 (hygiene
                                                                   guile))
                                                              #{x 38011}#))))))))))
                                       (#{f 38019}#
                                         #{x 38011}#
                                         (lambda (#{ls 38021}#)
                                           (let ((#{tmp 38023}#
                                                   ($sc-dispatch
                                                     #{ls 38021}#
                                                     'each-any)))
                                             (if #{tmp 38023}#
                                               (@apply
                                                 (lambda (#{ g37774 38026}#)
                                                   (cons '#(syntax-object
                                                            "vector"
                                                            ((top)
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(#{ g37774}#)
                                                               #((m37775 top))
                                                               #("i37779"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(ls)
                                                               #((top))
                                                               #("i37773"))
                                                             #(ribcage
                                                               #(_)
                                                               #((top))
                                                               #("i37764"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i37758"))
                                                             #(ribcage
                                                               (emit quasivector
                                                                     quasilist*
                                                                     quasiappend
                                                                     quasicons
                                                                     vquasi
                                                                     quasi)
                                                               ((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                               ("i37629"
                                                                "i37627"
                                                                "i37625"
                                                                "i37623"
                                                                "i37621"
                                                                "i37619"
                                                                "i37617")))
                                                            (hygiene guile))
                                                         #{ g37774 38026}#))
                                                 #{tmp 38023}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to match any pattern"
                                                 #{ls 38021}#))))))))))
                             #{tmp 38004}#)
                           (list '#(syntax-object
                                    "quote"
                                    ((top)
                                     #(ribcage #(p) #((top)) #("i37664"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p lev)
                                       #((top) (top))
                                       #("i37633" "i37634"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i37629"
                                        "i37627"
                                        "i37625"
                                        "i37623"
                                        "i37621"
                                        "i37619"
                                        "i37617")))
                                    (hygiene guile))
                                 #{p 37911}#)))))))))))
       (#{vquasi 37888}#
         (lambda (#{p 38076}# #{lev 38077}#)
           (let ((#{tmp 38079}#
                   ($sc-dispatch #{p 38076}# '(any . any))))
             (if #{tmp 38079}#
               (@apply
                 (lambda (#{p 38083}# #{q 38084}#)
                   (let ((#{tmp 38086}#
                           ($sc-dispatch
                             #{p 38083}#
                             '(#(free-id
                                 #(syntax-object
                                   unquote
                                   ((top)
                                    #(ribcage
                                      #(p q)
                                      #((top) (top))
                                      #("i37672" "i37673"))
                                    #(ribcage () () ())
                                    #(ribcage
                                      #(p lev)
                                      #((top) (top))
                                      #("i37668" "i37669"))
                                    #(ribcage
                                      (emit quasivector
                                            quasilist*
                                            quasiappend
                                            quasicons
                                            vquasi
                                            quasi)
                                      ((top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top))
                                      ("i37629"
                                       "i37627"
                                       "i37625"
                                       "i37623"
                                       "i37621"
                                       "i37619"
                                       "i37617")))
                                   (hygiene guile)))
                               .
                               each-any))))
                     (if #{tmp 38086}#
                       (@apply
                         (lambda (#{p 38090}#)
                           (if (= #{lev 38077}# 0)
                             (#{quasilist* 37891}#
                               (map (lambda (#{tmp 37680 38129}#)
                                      (list '#(syntax-object
                                               "value"
                                               ((top)
                                                #(ribcage
                                                  #(p)
                                                  #((top))
                                                  #("i37678"))
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("i37672" "i37673"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("i37668" "i37669"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("i37629"
                                                   "i37627"
                                                   "i37625"
                                                   "i37623"
                                                   "i37621"
                                                   "i37619"
                                                   "i37617")))
                                               (hygiene guile))
                                            #{tmp 37680 38129}#))
                                    #{p 38090}#)
                               (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))
                             (#{quasicons 37889}#
                               (#{quasicons 37889}#
                                 '(#(syntax-object
                                     "quote"
                                     ((top)
                                      #(ribcage #(p) #((top)) #("i37678"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("i37672" "i37673"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("i37668" "i37669"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("i37629"
                                         "i37627"
                                         "i37625"
                                         "i37623"
                                         "i37621"
                                         "i37619"
                                         "i37617")))
                                     (hygiene guile))
                                   #(syntax-object
                                     unquote
                                     ((top)
                                      #(ribcage #(p) #((top)) #("i37678"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("i37672" "i37673"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("i37668" "i37669"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("i37629"
                                         "i37627"
                                         "i37625"
                                         "i37623"
                                         "i37621"
                                         "i37619"
                                         "i37617")))
                                     (hygiene guile)))
                                 (#{quasi 37887}#
                                   #{p 38090}#
                                   (#{1-}# #{lev 38077}#)))
                               (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))))
                         #{tmp 38086}#)
                       (let ((#{tmp 38136}#
                               ($sc-dispatch
                                 #{p 38083}#
                                 '(#(free-id
                                     #(syntax-object
                                       unquote-splicing
                                       ((top)
                                        #(ribcage
                                          #(p q)
                                          #((top) (top))
                                          #("i37672" "i37673"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(p lev)
                                          #((top) (top))
                                          #("i37668" "i37669"))
                                        #(ribcage
                                          (emit quasivector
                                                quasilist*
                                                quasiappend
                                                quasicons
                                                vquasi
                                                quasi)
                                          ((top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top))
                                          ("i37629"
                                           "i37627"
                                           "i37625"
                                           "i37623"
                                           "i37621"
                                           "i37619"
                                           "i37617")))
                                       (hygiene guile)))
                                   .
                                   each-any))))
                         (if #{tmp 38136}#
                           (@apply
                             (lambda (#{p 38140}#)
                               (if (= #{lev 38077}# 0)
                                 (#{quasiappend 37890}#
                                   (map (lambda (#{tmp 37685 38143}#)
                                          (list '#(syntax-object
                                                   "value"
                                                   ((top)
                                                    #(ribcage
                                                      #(p)
                                                      #((top))
                                                      #("i37683"))
                                                    #(ribcage
                                                      #(p q)
                                                      #((top) (top))
                                                      #("i37672" "i37673"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(p lev)
                                                      #((top) (top))
                                                      #("i37668" "i37669"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
                                                            quasiappend
                                                            quasicons
                                                            vquasi
                                                            quasi)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("i37629"
                                                       "i37627"
                                                       "i37625"
                                                       "i37623"
                                                       "i37621"
                                                       "i37619"
                                                       "i37617")))
                                                   (hygiene guile))
                                                #{tmp 37685 38143}#))
                                        #{p 38140}#)
                                   (#{vquasi 37888}#
                                     #{q 38084}#
                                     #{lev 38077}#))
                                 (#{quasicons 37889}#
                                   (#{quasicons 37889}#
                                     '(#(syntax-object
                                         "quote"
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i37683"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i37672" "i37673"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i37668" "i37669"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i37629"
                                             "i37627"
                                             "i37625"
                                             "i37623"
                                             "i37621"
                                             "i37619"
                                             "i37617")))
                                         (hygiene guile))
                                       #(syntax-object
                                         unquote-splicing
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i37683"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i37672" "i37673"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i37668" "i37669"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i37629"
                                             "i37627"
                                             "i37625"
                                             "i37623"
                                             "i37621"
                                             "i37619"
                                             "i37617")))
                                         (hygiene guile)))
                                     (#{quasi 37887}#
                                       #{p 38140}#
                                       (#{1-}# #{lev 38077}#)))
                                   (#{vquasi 37888}#
                                     #{q 38084}#
                                     #{lev 38077}#))))
                             #{tmp 38136}#)
                           (#{quasicons 37889}#
                             (#{quasi 37887}# #{p 38083}# #{lev 38077}#)
                             (#{vquasi 37888}# #{q 38084}# #{lev 38077}#)))))))
                 #{tmp 38079}#)
               (let ((#{tmp 38161}# ($sc-dispatch #{p 38076}# '())))
                 (if #{tmp 38161}#
                   (@apply
                     (lambda ()
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37668" "i37669"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37629"
                               "i37627"
                               "i37625"
                               "i37623"
                               "i37621"
                               "i37619"
                               "i37617")))
                           (hygiene guile))
                         ()))
                     #{tmp 38161}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
                     #{p 38076}#)))))))
       (#{quasicons 37889}#
         (lambda (#{x 38174}# #{y 38175}#)
           (let ((#{tmp 38176}# (list #{x 38174}# #{y 38175}#)))
             (let ((#{tmp 38177}#
                     ($sc-dispatch #{tmp 38176}# '(any any))))
               (if #{tmp 38177}#
                 (@apply
                   (lambda (#{x 38179}# #{y 38180}#)
                     (let ((#{tmp 38182}#
                             ($sc-dispatch
                               #{y 38180}#
                               '(#(atom "quote") any))))
                       (if #{tmp 38182}#
                         (@apply
                           (lambda (#{dy 38186}#)
                             (let ((#{tmp 38188}#
                                     ($sc-dispatch
                                       #{x 38179}#
                                       '(#(atom "quote") any))))
                               (if #{tmp 38188}#
                                 (@apply
                                   (lambda (#{dx 38192}#)
                                     (list '#(syntax-object
                                              "quote"
                                              ((top)
                                               #(ribcage
                                                 #(dx)
                                                 #((top))
                                                 #("i37707"))
                                               #(ribcage
                                                 #(dy)
                                                 #((top))
                                                 #("i37703"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37697" "i37698"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37692" "i37693"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i37629"
                                                  "i37627"
                                                  "i37625"
                                                  "i37623"
                                                  "i37621"
                                                  "i37619"
                                                  "i37617")))
                                              (hygiene guile))
                                           (cons #{dx 38192}# #{dy 38186}#)))
                                   #{tmp 38188}#)
                                 (if (null? #{dy 38186}#)
                                   (list '#(syntax-object
                                            "list"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("i37709"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("i37703"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37697" "i37698"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37692" "i37693"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i37629"
                                                "i37627"
                                                "i37625"
                                                "i37623"
                                                "i37621"
                                                "i37619"
                                                "i37617")))
                                            (hygiene guile))
                                         #{x 38179}#)
                                   (list '#(syntax-object
                                            "list*"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("i37709"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("i37703"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37697" "i37698"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37692" "i37693"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i37629"
                                                "i37627"
                                                "i37625"
                                                "i37623"
                                                "i37621"
                                                "i37619"
                                                "i37617")))
                                            (hygiene guile))
                                         #{x 38179}#
                                         #{y 38180}#)))))
                           #{tmp 38182}#)
                         (let ((#{tmp 38197}#
                                 ($sc-dispatch
                                   #{y 38180}#
                                   '(#(atom "list") . any))))
                           (if #{tmp 38197}#
                             (@apply
                               (lambda (#{stuff 38201}#)
                                 (cons '#(syntax-object
                                          "list"
                                          ((top)
                                           #(ribcage
                                             #(stuff)
                                             #((top))
                                             #("i37712"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37697" "i37698"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37692" "i37693"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37629"
                                              "i37627"
                                              "i37625"
                                              "i37623"
                                              "i37621"
                                              "i37619"
                                              "i37617")))
                                          (hygiene guile))
                                       (cons #{x 38179}# #{stuff 38201}#)))
                               #{tmp 38197}#)
                             (let ((#{tmp 38202}#
                                     ($sc-dispatch
                                       #{y 38180}#
                                       '(#(atom "list*") . any))))
                               (if #{tmp 38202}#
                                 (@apply
                                   (lambda (#{stuff 38206}#)
                                     (cons '#(syntax-object
                                              "list*"
                                              ((top)
                                               #(ribcage
                                                 #(stuff)
                                                 #((top))
                                                 #("i37715"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37697" "i37698"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37692" "i37693"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i37629"
                                                  "i37627"
                                                  "i37625"
                                                  "i37623"
                                                  "i37621"
                                                  "i37619"
                                                  "i37617")))
                                              (hygiene guile))
                                           (cons #{x 38179}# #{stuff 38206}#)))
                                   #{tmp 38202}#)
                                 (list '#(syntax-object
                                          "list*"
                                          ((top)
                                           #(ribcage #(_) #((top)) #("i37717"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37697" "i37698"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37692" "i37693"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37629"
                                              "i37627"
                                              "i37625"
                                              "i37623"
                                              "i37621"
                                              "i37619"
                                              "i37617")))
                                          (hygiene guile))
                                       #{x 38179}#
                                       #{y 38180}#))))))))
                   #{tmp 38177}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{tmp 38176}#))))))
       (#{quasiappend 37890}#
         (lambda (#{x 38217}# #{y 38218}#)
           (let ((#{tmp 38220}#
                   ($sc-dispatch #{y 38218}# '(#(atom "quote") ()))))
             (if #{tmp 38220}#
               (@apply
                 (lambda ()
                   (if (null? #{x 38217}#)
                     '(#(syntax-object
                         "quote"
                         ((top)
                          #(ribcage () () ())
                          #(ribcage
                            #(x y)
                            #((top) (top))
                            #("i37721" "i37722"))
                          #(ribcage
                            (emit quasivector
                                  quasilist*
                                  quasiappend
                                  quasicons
                                  vquasi
                                  quasi)
                            ((top) (top) (top) (top) (top) (top) (top))
                            ("i37629"
                             "i37627"
                             "i37625"
                             "i37623"
                             "i37621"
                             "i37619"
                             "i37617")))
                         (hygiene guile))
                       ())
                     (if (null? (cdr #{x 38217}#))
                       (car #{x 38217}#)
                       (let ((#{tmp 38225}#
                               ($sc-dispatch #{x 38217}# 'each-any)))
                         (if #{tmp 38225}#
                           (@apply
                             (lambda (#{p 38229}#)
                               (cons '#(syntax-object
                                        "append"
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage #(p) #((top)) #("i37733"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(x y)
                                           #((top) (top))
                                           #("i37721" "i37722"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
                                                 quasiappend
                                                 quasicons
                                                 vquasi
                                                 quasi)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i37629"
                                            "i37627"
                                            "i37625"
                                            "i37623"
                                            "i37621"
                                            "i37619"
                                            "i37617")))
                                        (hygiene guile))
                                     #{p 38229}#))
                             #{tmp 38225}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
                             #{x 38217}#))))))
                 #{tmp 38220}#)
               (if (null? #{x 38217}#)
                 #{y 38218}#
                 (let ((#{tmp 38237}# (list #{x 38217}# #{y 38218}#)))
                   (let ((#{tmp 38238}#
                           ($sc-dispatch #{tmp 38237}# '(each-any any))))
                     (if #{tmp 38238}#
                       (@apply
                         (lambda (#{p 38240}# #{y 38241}#)
                           (cons '#(syntax-object
                                    "append"
                                    ((top)
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p y)
                                       #((top) (top))
                                       #("i37744" "i37745"))
                                     #(ribcage #(_) #((top)) #("i37736"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x y)
                                       #((top) (top))
                                       #("i37721" "i37722"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i37629"
                                        "i37627"
                                        "i37625"
                                        "i37623"
                                        "i37621"
                                        "i37619"
                                        "i37617")))
                                    (hygiene guile))
                                 (append #{p 38240}# (list #{y 38241}#))))
                         #{tmp 38238}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp 38237}#)))))))))
       (#{quasilist* 37891}#
         (lambda (#{x 38245}# #{y 38246}#)
           (letrec*
             ((#{f 38247}#
                (lambda (#{x 38351}#)
                  (if (null? #{x 38351}#)
                    #{y 38246}#
                    (#{quasicons 37889}#
                      (car #{x 38351}#)
                      (#{f 38247}# (cdr #{x 38351}#)))))))
             (#{f 38247}# #{x 38245}#))))
       (#{emit 37893}#
         (lambda (#{x 38354}#)
           (let ((#{tmp 38356}#
                   ($sc-dispatch #{x 38354}# '(#(atom "quote") any))))
             (if #{tmp 38356}#
               (@apply
                 (lambda (#{x 38360}#)
                   (list '#(syntax-object
                            quote
                            ((top)
                             #(ribcage #(x) #((top)) #("i37811"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i37808"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
                                     quasiappend
                                     quasicons
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
                               ("i37629"
                                "i37627"
                                "i37625"
                                "i37623"
                                "i37621"
                                "i37619"
                                "i37617")))
                            (hygiene guile))
                         #{x 38360}#))
                 #{tmp 38356}#)
               (let ((#{tmp 38361}#
                       ($sc-dispatch
                         #{x 38354}#
                         '(#(atom "list") . each-any))))
                 (if #{tmp 38361}#
                   (@apply
                     (lambda (#{x 38365}#)
                       (let ((#{tmp 38366}# (map #{emit 37893}# #{x 38365}#)))
                         (let ((#{tmp 38367}#
                                 ($sc-dispatch #{tmp 38366}# 'each-any)))
                           (if #{tmp 38367}#
                             (@apply
                               (lambda (#{ g37816 38369}#)
                                 (cons '#(syntax-object
                                          list
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(#{ g37816}#)
                                             #((m37817 top))
                                             #("i37821"))
                                           #(ribcage #(x) #((top)) #("i37814"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i37808"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37629"
                                              "i37627"
                                              "i37625"
                                              "i37623"
                                              "i37621"
                                              "i37619"
                                              "i37617")))
                                          (hygiene guile))
                                       #{ g37816 38369}#))
                               #{tmp 38367}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{tmp 38366}#)))))
                     #{tmp 38361}#)
                   (let ((#{tmp 38370}#
                           ($sc-dispatch
                             #{x 38354}#
                             '(#(atom "list*") . #(each+ any (any) ())))))
                     (if #{tmp 38370}#
                       (@apply
                         (lambda (#{x 38374}# #{y 38375}#)
                           (letrec*
                             ((#{f 38376}#
                                (lambda (#{x* 38379}#)
                                  (if (null? #{x* 38379}#)
                                    (#{emit 37893}# #{y 38375}#)
                                    (let ((#{tmp 38380}#
                                            (list (#{emit 37893}#
                                                    (car #{x* 38379}#))
                                                  (#{f 38376}#
                                                    (cdr #{x* 38379}#)))))
                                      (let ((#{tmp 38381}#
                                              ($sc-dispatch
                                                #{tmp 38380}#
                                                '(any any))))
                                        (if #{tmp 38381}#
                                          (@apply
                                            (lambda (#{ g37836 38383}#
                                                     #{ g37835 38384}#)
                                              (list '#(syntax-object
                                                       cons
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(#{ g37836}#
                                                            #{ g37835}#)
                                                          #((m37837 top)
                                                            (m37837 top))
                                                          #("i37841" "i37842"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f x*)
                                                          #((top) (top))
                                                          #("i37830" "i37831"))
                                                        #(ribcage
                                                          #(x y)
                                                          #((top) (top))
                                                          #("i37826" "i37827"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("i37808"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i37629"
                                                           "i37627"
                                                           "i37625"
                                                           "i37623"
                                                           "i37621"
                                                           "i37619"
                                                           "i37617")))
                                                       (hygiene guile))
                                                    #{ g37836 38383}#
                                                    #{ g37835 38384}#))
                                            #{tmp 38381}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match any pattern"
                                            #{tmp 38380}#))))))))
                             (#{f 38376}# #{x 38374}#)))
                         #{tmp 38370}#)
                       (let ((#{tmp 38385}#
                               ($sc-dispatch
                                 #{x 38354}#
                                 '(#(atom "append") . each-any))))
                         (if #{tmp 38385}#
                           (@apply
                             (lambda (#{x 38389}#)
                               (let ((#{tmp 38390}#
                                       (map #{emit 37893}# #{x 38389}#)))
                                 (let ((#{tmp 38391}#
                                         ($sc-dispatch
                                           #{tmp 38390}#
                                           'each-any)))
                                   (if #{tmp 38391}#
                                     (@apply
                                       (lambda (#{ g37848 38393}#)
                                         (cons '#(syntax-object
                                                  append
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(#{ g37848}#)
                                                     #((m37849 top))
                                                     #("i37853"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37846"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37808"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37629"
                                                      "i37627"
                                                      "i37625"
                                                      "i37623"
                                                      "i37621"
                                                      "i37619"
                                                      "i37617")))
                                                  (hygiene guile))
                                               #{ g37848 38393}#))
                                       #{tmp 38391}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any pattern"
                                       #{tmp 38390}#)))))
                             #{tmp 38385}#)
                           (let ((#{tmp 38394}#
                                   ($sc-dispatch
                                     #{x 38354}#
                                     '(#(atom "vector") . each-any))))
                             (if #{tmp 38394}#
                               (@apply
                                 (lambda (#{x 38398}#)
                                   (let ((#{tmp 38399}#
                                           (map #{emit 37893}# #{x 38398}#)))
                                     (let ((#{tmp 38400}#
                                             ($sc-dispatch
                                               #{tmp 38399}#
                                               'each-any)))
                                       (if #{tmp 38400}#
                                         (@apply
                                           (lambda (#{ g37860 38402}#)
                                             (cons '#(syntax-object
                                                      vector
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(#{ g37860}#)
                                                         #((m37861 top))
                                                         #("i37865"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i37858"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i37808"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
                                                               quasiappend
                                                               quasicons
                                                               vquasi
                                                               quasi)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("i37629"
                                                          "i37627"
                                                          "i37625"
                                                          "i37623"
                                                          "i37621"
                                                          "i37619"
                                                          "i37617")))
                                                      (hygiene guile))
                                                   #{ g37860 38402}#))
                                           #{tmp 38400}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{tmp 38399}#)))))
                                 #{tmp 38394}#)
                               (let ((#{tmp 38403}#
                                       ($sc-dispatch
                                         #{x 38354}#
                                         '(#(atom "list->vector") any))))
                                 (if #{tmp 38403}#
                                   (@apply
                                     (lambda (#{x 38407}#)
                                       (let ((#{tmp 38408}#
                                               (#{emit 37893}# #{x 38407}#)))
                                         (list '#(syntax-object
                                                  list->vector
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(#{ g37872}#)
                                                     #((m37873 top))
                                                     #("i37876"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37870"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37808"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37629"
                                                      "i37627"
                                                      "i37625"
                                                      "i37623"
                                                      "i37621"
                                                      "i37619"
                                                      "i37617")))
                                                  (hygiene guile))
                                               #{tmp 38408}#)))
                                     #{tmp 38403}#)
                                   (let ((#{tmp 38411}#
                                           ($sc-dispatch
                                             #{x 38354}#
                                             '(#(atom "value") any))))
                                     (if #{tmp 38411}#
                                       (@apply
                                         (lambda (#{x 38415}#) #{x 38415}#)
                                         #{tmp 38411}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any pattern"
                                         #{x 38354}#))))))))))))))))))
      (lambda (#{x 37894}#)
        (let ((#{tmp 37896}#
                ($sc-dispatch #{x 37894}# '(_ any))))
          (if #{tmp 37896}#
            (@apply
              (lambda (#{e 37900}#)
                (#{emit 37893}# (#{quasi 37887}# #{e 37900}# 0)))
              #{tmp 37896}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{x 37894}#)))))))

(define include
  (make-syntax-transformer
    'include
    'macro
    (lambda (#{x 38470}#)
      (letrec*
        ((#{read-file 38471}#
           (lambda (#{fn 38587}# #{k 38588}#)
             (let ((#{p 38589}# (open-input-file #{fn 38587}#)))
               (letrec*
                 ((#{f 38590}#
                    (lambda (#{x 38647}# #{result 38648}#)
                      (if (eof-object? #{x 38647}#)
                        (begin
                          (close-input-port #{p 38589}#)
                          (reverse #{result 38648}#))
                        (#{f 38590}#
                          (read #{p 38589}#)
                          (cons (datum->syntax #{k 38588}# #{x 38647}#)
                                #{result 38648}#))))))
                 (#{f 38590}# (read #{p 38589}#) '()))))))
        (let ((#{tmp 38473}#
                ($sc-dispatch #{x 38470}# '(any any))))
          (if #{tmp 38473}#
            (@apply
              (lambda (#{k 38477}# #{filename 38478}#)
                (let ((#{fn 38479}# (syntax->datum #{filename 38478}#)))
                  (let ((#{tmp 38480}#
                          (#{read-file 38471}#
                            #{fn 38479}#
                            #{filename 38478}#)))
                    (let ((#{tmp 38481}#
                            ($sc-dispatch #{tmp 38480}# 'each-any)))
                      (if #{tmp 38481}#
                        (@apply
                          (lambda (#{exp 38499}#)
                            (cons '#(syntax-object
                                     begin
                                     ((top)
                                      #(ribcage () () ())
                                      #(ribcage #(exp) #((top)) #("i38467"))
                                      #(ribcage () () ())
                                      #(ribcage () () ())
                                      #(ribcage #(fn) #((top)) #("i38462"))
                                      #(ribcage
                                        #(k filename)
                                        #((top) (top))
                                        #("i38458" "i38459"))
                                      #(ribcage (read-file) ((top)) ("i38442"))
                                      #(ribcage #(x) #((top)) #("i38441")))
                                     (hygiene guile))
                                  #{exp 38499}#))
                          #{tmp 38481}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp 38480}#))))))
              #{tmp 38473}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{x 38470}#)))))))

(define include-from-path
  (make-syntax-transformer
    'include-from-path
    'macro
    (lambda (#{x 38667}#)
      (let ((#{tmp 38669}#
              ($sc-dispatch #{x 38667}# '(any any))))
        (if #{tmp 38669}#
          (@apply
            (lambda (#{k 38673}# #{filename 38674}#)
              (let ((#{fn 38675}# (syntax->datum #{filename 38674}#)))
                (let ((#{tmp 38676}#
                        (datum->syntax
                          #{filename 38674}#
                          (let ((#{t 38679}# (%search-load-path #{fn 38675}#)))
                            (if #{t 38679}#
                              #{t 38679}#
                              (syntax-violation
                                'include-from-path
                                "file not found in path"
                                #{x 38667}#
                                #{filename 38674}#))))))
                  (list '#(syntax-object
                           include
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("i38661"))
                            #(ribcage () () ())
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("i38657"))
                            #(ribcage
                              #(k filename)
                              #((top) (top))
                              #("i38653" "i38654"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38650")))
                           (hygiene guile))
                        #{tmp 38676}#))))
            #{tmp 38669}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 38667}#))))))

(define unquote
  (make-syntax-transformer
    'unquote
    'macro
    (lambda (#{x 38688}#)
      (syntax-violation
        'unquote
        "expression not valid outside of quasiquote"
        #{x 38688}#))))

(define unquote-splicing
  (make-syntax-transformer
    'unquote-splicing
    'macro
    (lambda (#{x 38691}#)
      (syntax-violation
        'unquote-splicing
        "expression not valid outside of quasiquote"
        #{x 38691}#))))

(define case
  (make-syntax-transformer
    'case
    'macro
    (lambda (#{x 38747}#)
      (let ((#{tmp 38749}#
              ($sc-dispatch
                #{x 38747}#
                '(_ any any . each-any))))
        (if #{tmp 38749}#
          (@apply
            (lambda (#{e 38753}# #{m1 38754}# #{m2 38755}#)
              (let ((#{tmp 38756}#
                      (letrec*
                        ((#{f 38817}#
                           (lambda (#{clause 38820}# #{clauses 38821}#)
                             (if (null? #{clauses 38821}#)
                               (let ((#{tmp 38823}#
                                       ($sc-dispatch
                                         #{clause 38820}#
                                         '(#(free-id
                                             #(syntax-object
                                               else
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(f clause clauses)
                                                  #((top) (top) (top))
                                                  #("i38706"
                                                    "i38707"
                                                    "i38708"))
                                                #(ribcage
                                                  #(e m1 m2)
                                                  #((top) (top) (top))
                                                  #("i38696"
                                                    "i38697"
                                                    "i38698"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
                                                  #("i38693")))
                                               (hygiene guile)))
                                           any
                                           .
                                           each-any))))
                                 (if #{tmp 38823}#
                                   (@apply
                                     (lambda (#{e1 38827}# #{e2 38828}#)
                                       (cons '#(syntax-object
                                                begin
                                                ((top)
                                                 #(ribcage
                                                   #(e1 e2)
                                                   #((top) (top))
                                                   #("i38715" "i38716"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(f clause clauses)
                                                   #((top) (top) (top))
                                                   #("i38706"
                                                     "i38707"
                                                     "i38708"))
                                                 #(ribcage
                                                   #(e m1 m2)
                                                   #((top) (top) (top))
                                                   #("i38696"
                                                     "i38697"
                                                     "i38698"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38693")))
                                                (hygiene guile))
                                             (cons #{e1 38827}# #{e2 38828}#)))
                                     #{tmp 38823}#)
                                   (let ((#{tmp 38829}#
                                           ($sc-dispatch
                                             #{clause 38820}#
                                             '(each-any any . each-any))))
                                     (if #{tmp 38829}#
                                       (@apply
                                         (lambda (#{k 38833}#
                                                  #{e1 38834}#
                                                  #{e2 38835}#)
                                           (list '#(syntax-object
                                                    if
                                                    ((top)
                                                     #(ribcage
                                                       #(k e1 e2)
                                                       #((top) (top) (top))
                                                       #("i38721"
                                                         "i38722"
                                                         "i38723"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f clause clauses)
                                                       #((top) (top) (top))
                                                       #("i38706"
                                                         "i38707"
                                                         "i38708"))
                                                     #(ribcage
                                                       #(e m1 m2)
                                                       #((top) (top) (top))
                                                       #("i38696"
                                                         "i38697"
                                                         "i38698"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38693")))
                                                    (hygiene guile))
                                                 (list '#(syntax-object
                                                          memv
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38721"
                                                               "i38722"
                                                               "i38723"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38706"
                                                               "i38707"
                                                               "i38708"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38696"
                                                               "i38697"
                                                               "i38698"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38693")))
                                                          (hygiene guile))
                                                       '#(syntax-object
                                                          t
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38721"
                                                               "i38722"
                                                               "i38723"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38706"
                                                               "i38707"
                                                               "i38708"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38696"
                                                               "i38697"
                                                               "i38698"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38693")))
                                                          (hygiene guile))
                                                       (list '#(syntax-object
                                                                quote
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k e1 e2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38721"
                                                                     "i38722"
                                                                     "i38723"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(f
                                                                     clause
                                                                     clauses)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38706"
                                                                     "i38707"
                                                                     "i38708"))
                                                                 #(ribcage
                                                                   #(e m1 m2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38696"
                                                                     "i38697"
                                                                     "i38698"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i38693")))
                                                                (hygiene
                                                                  guile))
                                                             #{k 38833}#))
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38721"
                                                               "i38722"
                                                               "i38723"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38706"
                                                               "i38707"
                                                               "i38708"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38696"
                                                               "i38697"
                                                               "i38698"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38693")))
                                                          (hygiene guile))
                                                       (cons #{e1 38834}#
                                                             #{e2 38835}#))))
                                         #{tmp 38829}#)
                                       (syntax-violation
                                         'case
                                         "bad clause"
                                         #{x 38747}#
                                         #{clause 38820}#)))))
                               (let ((#{tmp 38843}#
                                       (#{f 38817}#
                                         (car #{clauses 38821}#)
                                         (cdr #{clauses 38821}#))))
                                 (let ((#{tmp 38846}#
                                         ($sc-dispatch
                                           #{clause 38820}#
                                           '(each-any any . each-any))))
                                   (if #{tmp 38846}#
                                     (@apply
                                       (lambda (#{k 38850}#
                                                #{e1 38851}#
                                                #{e2 38852}#)
                                         (list '#(syntax-object
                                                  if
                                                  ((top)
                                                   #(ribcage
                                                     #(k e1 e2)
                                                     #((top) (top) (top))
                                                     #("i38737"
                                                       "i38738"
                                                       "i38739"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(rest)
                                                     #((top))
                                                     #("i38733"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f clause clauses)
                                                     #((top) (top) (top))
                                                     #("i38706"
                                                       "i38707"
                                                       "i38708"))
                                                   #(ribcage
                                                     #(e m1 m2)
                                                     #((top) (top) (top))
                                                     #("i38696"
                                                       "i38697"
                                                       "i38698"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i38693")))
                                                  (hygiene guile))
                                               (list '#(syntax-object
                                                        memv
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38737"
                                                             "i38738"
                                                             "i38739"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38733"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38706"
                                                             "i38707"
                                                             "i38708"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38696"
                                                             "i38697"
                                                             "i38698"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38693")))
                                                        (hygiene guile))
                                                     '#(syntax-object
                                                        t
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38737"
                                                             "i38738"
                                                             "i38739"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38733"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38706"
                                                             "i38707"
                                                             "i38708"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38696"
                                                             "i38697"
                                                             "i38698"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38693")))
                                                        (hygiene guile))
                                                     (list '#(syntax-object
                                                              quote
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38737"
                                                                   "i38738"
                                                                   "i38739"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("i38733"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38706"
                                                                   "i38707"
                                                                   "i38708"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38696"
                                                                   "i38697"
                                                                   "i38698"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i38693")))
                                                              (hygiene guile))
                                                           #{k 38850}#))
                                               (cons '#(syntax-object
                                                        begin
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38737"
                                                             "i38738"
                                                             "i38739"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38733"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38706"
                                                             "i38707"
                                                             "i38708"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38696"
                                                             "i38697"
                                                             "i38698"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38693")))
                                                        (hygiene guile))
                                                     (cons #{e1 38851}#
                                                           #{e2 38852}#))
                                               #{tmp 38843}#))
                                       #{tmp 38846}#)
                                     (syntax-violation
                                       'case
                                       "bad clause"
                                       #{x 38747}#
                                       #{clause 38820}#))))))))
                        (#{f 38817}# #{m1 38754}# #{m2 38755}#))))
                (let ((#{body 38757}# #{tmp 38756}#))
                  (list '#(syntax-object
                           let
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(body) #((top)) #("i38704"))
                            #(ribcage
                              #(e m1 m2)
                              #((top) (top) (top))
                              #("i38696" "i38697" "i38698"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38693")))
                           (hygiene guile))
                        (list (list '#(syntax-object
                                       t
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage #(body) #((top)) #("i38704"))
                                        #(ribcage
                                          #(e m1 m2)
                                          #((top) (top) (top))
                                          #("i38696" "i38697" "i38698"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38693")))
                                       (hygiene guile))
                                    #{e 38753}#))
                        #{body 38757}#))))
            #{tmp 38749}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 38747}#))))))

(define make-variable-transformer
  (lambda (#{proc 38870}#)
    (if (procedure? #{proc 38870}#)
      (letrec*
        ((#{trans 38871}#
           (lambda (#{x 38877}#)
             (#{proc 38870}# #{x 38877}#))))
        (begin
          (set-procedure-property!
            #{trans 38871}#
            'variable-transformer
            #t)
          #{trans 38871}#))
      (error "variable transformer not a procedure"
             #{proc 38870}#))))

(define identifier-syntax
  (make-syntax-transformer
    'identifier-syntax
    'macro
    (lambda (#{x 38909}#)
      (let ((#{tmp 38911}#
              ($sc-dispatch #{x 38909}# '(_ any))))
        (if #{tmp 38911}#
          (@apply
            (lambda (#{e 38915}#)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage #(e) #((top)) #("i38884"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i38881")))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage #(e) #((top)) #("i38884"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("i38881")))
                        (hygiene guile)))
                    '#((#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage #(e) #((top)) #("i38884"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i38881")))
                          (hygiene guile))
                        .
                        #(syntax-object
                          identifier-syntax
                          ((top)
                           #(ribcage #(e) #((top)) #("i38884"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i38881")))
                          (hygiene guile))))
                    (list '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage #(e) #((top)) #("i38884"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38881")))
                             (hygiene guile))
                          '#(syntax-object
                             x
                             ((top)
                              #(ribcage #(e) #((top)) #("i38884"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38881")))
                             (hygiene guile))
                          '()
                          (list '#(syntax-object
                                   id
                                   ((top)
                                    #(ribcage #(e) #((top)) #("i38884"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i38881")))
                                   (hygiene guile))
                                '(#(syntax-object
                                    identifier?
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38884"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile))
                                  (#(syntax-object
                                     syntax
                                     ((top)
                                      #(ribcage #(e) #((top)) #("i38884"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i38881")))
                                     (hygiene guile))
                                   #(syntax-object
                                     id
                                     ((top)
                                      #(ribcage #(e) #((top)) #("i38884"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i38881")))
                                     (hygiene guile))))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage #(e) #((top)) #("i38884"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i38881")))
                                         (hygiene guile))
                                      #{e 38915}#))
                          (list '(#(syntax-object
                                    _
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38884"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile))
                                  #(syntax-object
                                    x
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38884"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile))
                                  #(syntax-object
                                    ...
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38884"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile)))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage #(e) #((top)) #("i38884"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i38881")))
                                         (hygiene guile))
                                      (cons #{e 38915}#
                                            '(#(syntax-object
                                                x
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("i38884"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38881")))
                                                (hygiene guile))
                                              #(syntax-object
                                                ...
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("i38884"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38881")))
                                                (hygiene guile)))))))))
            #{tmp 38911}#)
          (let ((#{tmp 38916}#
                  ($sc-dispatch
                    #{x 38909}#
                    '(_ (any any)
                        ((#(free-id
                            #(syntax-object
                              set!
                              ((top)
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i38881")))
                              (hygiene guile)))
                          any
                          any)
                         any)))))
            (if (if #{tmp 38916}#
                  (@apply
                    (lambda (#{id 38920}#
                             #{exp1 38921}#
                             #{var 38922}#
                             #{val 38923}#
                             #{exp2 38924}#)
                      (if (identifier? #{id 38920}#)
                        (identifier? #{var 38922}#)
                        #f))
                    #{tmp 38916}#)
                  #f)
              (@apply
                (lambda (#{id 38925}#
                         #{exp1 38926}#
                         #{var 38927}#
                         #{val 38928}#
                         #{exp2 38929}#)
                  (list '#(syntax-object
                           make-variable-transformer
                           ((top)
                            #(ribcage
                              #(id exp1 var val exp2)
                              #((top) (top) (top) (top) (top))
                              #("i38899" "i38900" "i38901" "i38902" "i38903"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38881")))
                           (hygiene guile))
                        (list '#(syntax-object
                                 lambda
                                 ((top)
                                  #(ribcage
                                    #(id exp1 var val exp2)
                                    #((top) (top) (top) (top) (top))
                                    #("i38899"
                                      "i38900"
                                      "i38901"
                                      "i38902"
                                      "i38903"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i38881")))
                                 (hygiene guile))
                              '(#(syntax-object
                                  x
                                  ((top)
                                   #(ribcage
                                     #(id exp1 var val exp2)
                                     #((top) (top) (top) (top) (top))
                                     #("i38899"
                                       "i38900"
                                       "i38901"
                                       "i38902"
                                       "i38903"))
                                   #(ribcage () () ())
                                   #(ribcage #(x) #((top)) #("i38881")))
                                  (hygiene guile)))
                              '#((#(syntax-object
                                    macro-type
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("i38899"
                                         "i38900"
                                         "i38901"
                                         "i38902"
                                         "i38903"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile))
                                  .
                                  #(syntax-object
                                    variable-transformer
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("i38899"
                                         "i38900"
                                         "i38901"
                                         "i38902"
                                         "i38903"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38881")))
                                    (hygiene guile))))
                              (list '#(syntax-object
                                       syntax-case
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("i38899"
                                            "i38900"
                                            "i38901"
                                            "i38902"
                                            "i38903"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38881")))
                                       (hygiene guile))
                                    '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("i38899"
                                            "i38900"
                                            "i38901"
                                            "i38902"
                                            "i38903"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38881")))
                                       (hygiene guile))
                                    '(#(syntax-object
                                        set!
                                        ((top)
                                         #(ribcage
                                           #(id exp1 var val exp2)
                                           #((top) (top) (top) (top) (top))
                                           #("i38899"
                                             "i38900"
                                             "i38901"
                                             "i38902"
                                             "i38903"))
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i38881")))
                                        (hygiene guile)))
                                    (list (list '#(syntax-object
                                                   set!
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38899"
                                                        "i38900"
                                                        "i38901"
                                                        "i38902"
                                                        "i38903"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38881")))
                                                   (hygiene guile))
                                                #{var 38927}#
                                                #{val 38928}#)
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38899"
                                                        "i38900"
                                                        "i38901"
                                                        "i38902"
                                                        "i38903"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38881")))
                                                   (hygiene guile))
                                                #{exp2 38929}#))
                                    (list (cons #{id 38925}#
                                                '(#(syntax-object
                                                    x
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i38899"
                                                         "i38900"
                                                         "i38901"
                                                         "i38902"
                                                         "i38903"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38881")))
                                                    (hygiene guile))
                                                  #(syntax-object
                                                    ...
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i38899"
                                                         "i38900"
                                                         "i38901"
                                                         "i38902"
                                                         "i38903"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38881")))
                                                    (hygiene guile))))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38899"
                                                        "i38900"
                                                        "i38901"
                                                        "i38902"
                                                        "i38903"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38881")))
                                                   (hygiene guile))
                                                (cons #{exp1 38926}#
                                                      '(#(syntax-object
                                                          x
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("i38899"
                                                               "i38900"
                                                               "i38901"
                                                               "i38902"
                                                               "i38903"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38881")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("i38899"
                                                               "i38900"
                                                               "i38901"
                                                               "i38902"
                                                               "i38903"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38881")))
                                                          (hygiene guile))))))
                                    (list #{id 38925}#
                                          (list '#(syntax-object
                                                   identifier?
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38899"
                                                        "i38900"
                                                        "i38901"
                                                        "i38902"
                                                        "i38903"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38881")))
                                                   (hygiene guile))
                                                (list '#(syntax-object
                                                         syntax
                                                         ((top)
                                                          #(ribcage
                                                            #(id
                                                              exp1
                                                              var
                                                              val
                                                              exp2)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i38899"
                                                              "i38900"
                                                              "i38901"
                                                              "i38902"
                                                              "i38903"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i38881")))
                                                         (hygiene guile))
                                                      #{id 38925}#))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38899"
                                                        "i38900"
                                                        "i38901"
                                                        "i38902"
                                                        "i38903"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38881")))
                                                   (hygiene guile))
                                                #{exp1 38926}#))))))
                #{tmp 38916}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 38909}#))))))))

(define define*
  (make-syntax-transformer
    'define*
    'macro
    (lambda (#{x 38961}#)
      (let ((#{tmp 38963}#
              ($sc-dispatch
                #{x 38961}#
                '(_ (any . any) any . each-any))))
        (if #{tmp 38963}#
          (@apply
            (lambda (#{id 38967}#
                     #{args 38968}#
                     #{b0 38969}#
                     #{b1 38970}#)
              (list '#(syntax-object
                       define
                       ((top)
                        #(ribcage
                          #(id args b0 b1)
                          #((top) (top) (top) (top))
                          #("i38943" "i38944" "i38945" "i38946"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i38940")))
                       (hygiene guile))
                    #{id 38967}#
                    (cons '#(syntax-object
                             lambda*
                             ((top)
                              #(ribcage
                                #(id args b0 b1)
                                #((top) (top) (top) (top))
                                #("i38943" "i38944" "i38945" "i38946"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38940")))
                             (hygiene guile))
                          (cons #{args 38968}#
                                (cons #{b0 38969}# #{b1 38970}#)))))
            #{tmp 38963}#)
          (let ((#{tmp 38971}#
                  ($sc-dispatch #{x 38961}# '(_ any any))))
            (if (if #{tmp 38971}#
                  (@apply
                    (lambda (#{id 38975}# #{val 38976}#)
                      (identifier?
                        '#(syntax-object
                           x
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("i38953" "i38954"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38940")))
                           (hygiene guile))))
                    #{tmp 38971}#)
                  #f)
              (@apply
                (lambda (#{id 38977}# #{val 38978}#)
                  (list '#(syntax-object
                           define
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("i38957" "i38958"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38940")))
                           (hygiene guile))
                        #{id 38977}#
                        #{val 38978}#))
                #{tmp 38971}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 38961}#))))))))