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 4370}#
     (lambda (#{x 35759}# #{mod 35760}#)
       (primitive-eval #{x 35759}#)))
   (#{maybe-name-value! 4375}#
     (lambda (#{name 18991}# #{val 18992}#)
       (if (if (struct? #{val 18992}#)
             (eq? (struct-vtable #{val 18992}#)
                  (vector-ref %expanded-vtables 14))
             #f)
         (let ((#{meta 18999}# (struct-ref #{val 18992}# 1)))
           (if (not (assq 'name #{meta 18999}#))
             (let ((#{v 19004}#
                     (cons (cons 'name #{name 18991}#) #{meta 18999}#)))
               (struct-set! #{val 18992}# 1 #{v 19004}#)))))))
   (#{build-call 4377}#
     (lambda (#{source 18736}#
              #{fun-exp 18737}#
              #{arg-exps 18738}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 11)
         #{source 18736}#
         #{fun-exp 18737}#
         #{arg-exps 18738}#)))
   (#{build-conditional 4378}#
     (lambda (#{source 18744}#
              #{test-exp 18745}#
              #{then-exp 18746}#
              #{else-exp 18747}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 10)
         #{source 18744}#
         #{test-exp 18745}#
         #{then-exp 18746}#
         #{else-exp 18747}#)))
   (#{build-dynlet 4379}#
     (lambda (#{source 18754}#
              #{fluids 18755}#
              #{vals 18756}#
              #{body 18757}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 18)
         #{source 18754}#
         #{fluids 18755}#
         #{vals 18756}#
         #{body 18757}#)))
   (#{build-lexical-reference 4380}#
     (lambda (#{type 35761}#
              #{source 35762}#
              #{name 35763}#
              #{var 35764}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 3)
         #{source 35762}#
         #{name 35763}#
         #{var 35764}#)))
   (#{build-lexical-assignment 4381}#
     (lambda (#{source 18764}#
              #{name 18765}#
              #{var 18766}#
              #{exp 18767}#)
       (begin
         (if (if (struct? #{exp 18767}#)
               (eq? (struct-vtable #{exp 18767}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 18783}# (struct-ref #{exp 18767}# 1)))
             (if (not (assq 'name #{meta 18783}#))
               (let ((#{v 18790}#
                       (cons (cons 'name #{name 18765}#) #{meta 18783}#)))
                 (struct-set! #{exp 18767}# 1 #{v 18790}#)))))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 4)
           #{source 18764}#
           #{name 18765}#
           #{var 18766}#
           #{exp 18767}#))))
   (#{analyze-variable 4382}#
     (lambda (#{mod 35770}#
              #{var 35771}#
              #{modref-cont 35772}#
              #{bare-cont 35773}#)
       (if (not #{mod 35770}#)
         (#{bare-cont 35773}# #{var 35771}#)
         (let ((#{kind 35774}# (car #{mod 35770}#))
               (#{mod 35775}# (cdr #{mod 35770}#)))
           (if (eqv? #{kind 35774}# 'public)
             (#{modref-cont 35772}#
               #{mod 35775}#
               #{var 35771}#
               #t)
             (if (eqv? #{kind 35774}# 'private)
               (if (not (equal?
                          #{mod 35775}#
                          (module-name (current-module))))
                 (#{modref-cont 35772}#
                   #{mod 35775}#
                   #{var 35771}#
                   #f)
                 (#{bare-cont 35773}# #{var 35771}#))
               (if (eqv? #{kind 35774}# 'bare)
                 (#{bare-cont 35773}# #{var 35771}#)
                 (if (eqv? #{kind 35774}# 'hygiene)
                   (if (if (not (equal?
                                  #{mod 35775}#
                                  (module-name (current-module))))
                         (module-variable
                           (resolve-module #{mod 35775}#)
                           #{var 35771}#)
                         #f)
                     (#{modref-cont 35772}#
                       #{mod 35775}#
                       #{var 35771}#
                       #f)
                     (#{bare-cont 35773}# #{var 35771}#))
                   (syntax-violation
                     #f
                     "bad module kind"
                     #{var 35771}#
                     #{mod 35775}#)))))))))
   (#{build-global-reference 4383}#
     (lambda (#{source 35790}# #{var 35791}# #{mod 35792}#)
       (#{analyze-variable 4382}#
         #{mod 35792}#
         #{var 35791}#
         (lambda (#{mod 35795}# #{var 35796}# #{public? 35797}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 5)
             #{source 35790}#
             #{mod 35795}#
             #{var 35796}#
             #{public? 35797}#))
         (lambda (#{var 35804}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 7)
             #{source 35790}#
             #{var 35804}#)))))
   (#{build-global-assignment 4384}#
     (lambda (#{source 18799}#
              #{var 18800}#
              #{exp 18801}#
              #{mod 18802}#)
       (begin
         (if (if (struct? #{exp 18801}#)
               (eq? (struct-vtable #{exp 18801}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 18818}# (struct-ref #{exp 18801}# 1)))
             (if (not (assq 'name #{meta 18818}#))
               (let ((#{v 18825}#
                       (cons (cons 'name #{var 18800}#) #{meta 18818}#)))
                 (struct-set! #{exp 18801}# 1 #{v 18825}#)))))
         (#{analyze-variable 4382}#
           #{mod 18802}#
           #{var 18800}#
           (lambda (#{mod 18830}# #{var 18831}# #{public? 18832}#)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 6)
               #{source 18799}#
               #{mod 18830}#
               #{var 18831}#
               #{public? 18832}#
               #{exp 18801}#))
           (lambda (#{var 18840}#)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 8)
               #{source 18799}#
               #{var 18840}#
               #{exp 18801}#))))))
   (#{build-global-definition 4385}#
     (lambda (#{source 35809}# #{var 35810}# #{exp 35811}#)
       (begin
         (if (if (struct? #{exp 35811}#)
               (eq? (struct-vtable #{exp 35811}#)
                    (vector-ref %expanded-vtables 14))
               #f)
           (let ((#{meta 35827}# (struct-ref #{exp 35811}# 1)))
             (if (not (assq 'name #{meta 35827}#))
               (let ((#{v 35834}#
                       (cons (cons 'name #{var 35810}#) #{meta 35827}#)))
                 (struct-set! #{exp 35811}# 1 #{v 35834}#)))))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 9)
           #{source 35809}#
           #{var 35810}#
           #{exp 35811}#))))
   (#{build-simple-lambda 4386}#
     (lambda (#{src 18846}#
              #{req 18847}#
              #{rest 18848}#
              #{vars 18849}#
              #{meta 18850}#
              #{exp 18851}#)
       (let ((#{body 18857}#
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 15)
                 #{src 18846}#
                 #{req 18847}#
                 #f
                 #{rest 18848}#
                 #f
                 '()
                 #{vars 18849}#
                 #{exp 18851}#
                 #f)))
         (make-struct/no-tail
           (vector-ref %expanded-vtables 14)
           #{src 18846}#
           #{meta 18850}#
           #{body 18857}#))))
   (#{build-primcall 4389}#
     (lambda (#{src 18869}# #{name 18870}# #{args 18871}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 12)
         #{src 18869}#
         #{name 18870}#
         #{args 18871}#)))
   (#{build-sequence 4392}#
     (lambda (#{src 35842}# #{exps 35843}#)
       (if (null? (cdr #{exps 35843}#))
         (car #{exps 35843}#)
         (let ((#{head 35847}# (car #{exps 35843}#))
               (#{tail 35848}#
                 (#{build-sequence 4392}# #f (cdr #{exps 35843}#))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 13)
             #{src 35842}#
             #{head 35847}#
             #{tail 35848}#)))))
   (#{build-named-let 4394}#
     (lambda (#{src 18877}#
              #{ids 18878}#
              #{vars 18879}#
              #{val-exps 18880}#
              #{body-exp 18881}#)
       (let ((#{f 18882}# (car #{vars 18879}#))
             (#{f-name 18883}# (car #{ids 18878}#))
             (#{vars 18884}# (cdr #{vars 18879}#))
             (#{ids 18885}# (cdr #{ids 18878}#)))
         (let ((#{proc 18886}#
                 (let ((#{body 18906}#
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 15)
                           #{src 18877}#
                           #{ids 18885}#
                           #f
                           #f
                           #f
                           '()
                           #{vars 18884}#
                           #{body-exp 18881}#
                           #f)))
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 14)
                     #{src 18877}#
                     '()
                     #{body 18906}#))))
           (begin
             (if (if (struct? #{proc 18886}#)
                   (eq? (struct-vtable #{proc 18886}#)
                        (vector-ref %expanded-vtables 14))
                   #f)
               (let ((#{meta 18930}# (struct-ref #{proc 18886}# 1)))
                 (if (not (assq 'name #{meta 18930}#))
                   (let ((#{v 18937}#
                           (cons (cons 'name #{f-name 18883}#)
                                 #{meta 18930}#)))
                     (struct-set! #{proc 18886}# 1 #{v 18937}#)))))
             (for-each
               #{maybe-name-value! 4375}#
               #{ids 18885}#
               #{val-exps 18880}#)
             (let ((#{names 18961}# (list #{f-name 18883}#))
                   (#{gensyms 18962}# (list #{f 18882}#))
                   (#{vals 18963}# (list #{proc 18886}#))
                   (#{body 18964}#
                     (let ((#{fun-exp 18968}#
                             (make-struct/no-tail
                               (vector-ref %expanded-vtables 3)
                               #{src 18877}#
                               #{f-name 18883}#
                               #{f 18882}#)))
                       (make-struct/no-tail
                         (vector-ref %expanded-vtables 11)
                         #{src 18877}#
                         #{fun-exp 18968}#
                         #{val-exps 18880}#))))
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 17)
                 #{src 18877}#
                 #f
                 #{names 18961}#
                 #{gensyms 18962}#
                 #{vals 18963}#
                 #{body 18964}#)))))))
   (#{build-letrec 4395}#
     (lambda (#{src 18984}#
              #{in-order? 18985}#
              #{ids 18986}#
              #{vars 18987}#
              #{val-exps 18988}#
              #{body-exp 18989}#)
       (if (null? #{vars 18987}#)
         #{body-exp 18989}#
         (begin
           (for-each
             #{maybe-name-value! 4375}#
             #{ids 18986}#
             #{val-exps 18988}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 17)
             #{src 18984}#
             #{in-order? 18985}#
             #{ids 18986}#
             #{vars 18987}#
             #{val-exps 18988}#
             #{body-exp 18989}#)))))
   (#{source-annotation 4404}#
     (lambda (#{x 19015}#)
       (if (if (vector? #{x 19015}#)
             (if (= (vector-length #{x 19015}#) 4)
               (eq? (vector-ref #{x 19015}# 0) 'syntax-object)
               #f)
             #f)
         (#{source-annotation 4404}#
           (vector-ref #{x 19015}# 1))
         (if (pair? #{x 19015}#)
           (let ((#{props 19030}# (source-properties #{x 19015}#)))
             (if (pair? #{props 19030}#) #{props 19030}# #f))
           #f))))
   (#{extend-env 4405}#
     (lambda (#{labels 19032}# #{bindings 19033}# #{r 19034}#)
       (if (null? #{labels 19032}#)
         #{r 19034}#
         (#{extend-env 4405}#
           (cdr #{labels 19032}#)
           (cdr #{bindings 19033}#)
           (cons (cons (car #{labels 19032}#)
                       (car #{bindings 19033}#))
                 #{r 19034}#)))))
   (#{extend-var-env 4406}#
     (lambda (#{labels 19035}# #{vars 19036}# #{r 19037}#)
       (if (null? #{labels 19035}#)
         #{r 19037}#
         (#{extend-var-env 4406}#
           (cdr #{labels 19035}#)
           (cdr #{vars 19036}#)
           (cons (cons (car #{labels 19035}#)
                       (cons 'lexical (car #{vars 19036}#)))
                 #{r 19037}#)))))
   (#{macros-only-env 4407}#
     (lambda (#{r 19038}#)
       (if (null? #{r 19038}#)
         '()
         (let ((#{a 19039}# (car #{r 19038}#)))
           (if (let ((#{t 19042}# (car (cdr #{a 19039}#))))
                 (if (eq? #{t 19042}# 'macro)
                   #t
                   (eq? #{t 19042}# 'syntax-parameter)))
             (cons #{a 19039}#
                   (#{macros-only-env 4407}# (cdr #{r 19038}#)))
             (#{macros-only-env 4407}# (cdr #{r 19038}#)))))))
   (#{global-extend 4408}#
     (lambda (#{type 19044}# #{sym 19045}# #{val 19046}#)
       (module-define!
         (current-module)
         #{sym 19045}#
         (make-syntax-transformer
           #{sym 19045}#
           #{type 19044}#
           #{val 19046}#))))
   (#{id? 4410}#
     (lambda (#{x 11968}#)
       (if (symbol? #{x 11968}#)
         #t
         (if (if (vector? #{x 11968}#)
               (if (= (vector-length #{x 11968}#) 4)
                 (eq? (vector-ref #{x 11968}# 0) 'syntax-object)
                 #f)
               #f)
           (symbol? (vector-ref #{x 11968}# 1))
           #f))))
   (#{gen-labels 4413}#
     (lambda (#{ls 19056}#)
       (if (null? #{ls 19056}#)
         '()
         (cons (symbol->string (gensym "i"))
               (#{gen-labels 4413}# (cdr #{ls 19056}#))))))
   (#{make-binding-wrap 4424}#
     (lambda (#{ids 19060}# #{labels 19061}# #{w 19062}#)
       (if (null? #{ids 19060}#)
         #{w 19062}#
         (cons (car #{w 19062}#)
               (cons (let ((#{labelvec 19063}#
                             (list->vector #{labels 19061}#)))
                       (let ((#{n 19064}# (vector-length #{labelvec 19063}#)))
                         (let ((#{symnamevec 19065}# (make-vector #{n 19064}#))
                               (#{marksvec 19066}# (make-vector #{n 19064}#)))
                           (begin
                             (letrec*
                               ((#{f 19067}#
                                  (lambda (#{ids 19266}# #{i 19267}#)
                                    (if (not (null? #{ids 19266}#))
                                      (call-with-values
                                        (lambda ()
                                          (let ((#{x 19270}#
                                                  (car #{ids 19266}#)))
                                            (if (if (vector? #{x 19270}#)
                                                  (if (= (vector-length
                                                           #{x 19270}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{x 19270}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (values
                                                (vector-ref #{x 19270}# 1)
                                                (let ((#{m1 19286}#
                                                        (car #{w 19062}#))
                                                      (#{m2 19287}#
                                                        (car (vector-ref
                                                               #{x 19270}#
                                                               2))))
                                                  (if (null? #{m2 19287}#)
                                                    #{m1 19286}#
                                                    (append
                                                      #{m1 19286}#
                                                      #{m2 19287}#))))
                                              (values
                                                #{x 19270}#
                                                (car #{w 19062}#)))))
                                        (lambda (#{symname 19307}#
                                                 #{marks 19308}#)
                                          (begin
                                            (vector-set!
                                              #{symnamevec 19065}#
                                              #{i 19267}#
                                              #{symname 19307}#)
                                            (vector-set!
                                              #{marksvec 19066}#
                                              #{i 19267}#
                                              #{marks 19308}#)
                                            (#{f 19067}#
                                              (cdr #{ids 19266}#)
                                              (#{1+}# #{i 19267}#)))))))))
                               (#{f 19067}# #{ids 19060}# 0))
                             (vector
                               'ribcage
                               #{symnamevec 19065}#
                               #{marksvec 19066}#
                               #{labelvec 19063}#)))))
                     (cdr #{w 19062}#))))))
   (#{same-marks? 4428}#
     (lambda (#{x 35849}# #{y 35850}#)
       (if (eq? #{x 35849}# #{y 35850}#)
         (eq? #{x 35849}# #{y 35850}#)
         (if (not (null? #{x 35849}#))
           (if (not (null? #{y 35850}#))
             (if (eq? (car #{x 35849}#) (car #{y 35850}#))
               (#{same-marks? 4428}#
                 (cdr #{x 35849}#)
                 (cdr #{y 35850}#))
               #f)
             #f)
           #f))))
   (#{id-var-name 4429}#
     (lambda (#{id 35858}# #{w 35859}# #{mod 35860}#)
       (letrec*
         ((#{search 35861}#
            (lambda (#{sym 35927}#
                     #{subst 35928}#
                     #{marks 35929}#
                     #{mod 35930}#)
              (if (null? #{subst 35928}#)
                (values #f #{marks 35929}#)
                (let ((#{fst 35931}# (car #{subst 35928}#)))
                  (if (eq? #{fst 35931}# 'shift)
                    (#{search 35861}#
                      #{sym 35927}#
                      (cdr #{subst 35928}#)
                      (cdr #{marks 35929}#)
                      #{mod 35930}#)
                    (let ((#{symnames 35933}# (vector-ref #{fst 35931}# 1)))
                      (if (vector? #{symnames 35933}#)
                        (#{search-vector-rib 35863}#
                          #{sym 35927}#
                          #{subst 35928}#
                          #{marks 35929}#
                          #{symnames 35933}#
                          #{fst 35931}#
                          #{mod 35930}#)
                        (#{search-list-rib 35862}#
                          #{sym 35927}#
                          #{subst 35928}#
                          #{marks 35929}#
                          #{symnames 35933}#
                          #{fst 35931}#
                          #{mod 35930}#))))))))
          (#{search-list-rib 35862}#
            (lambda (#{sym 36108}#
                     #{subst 36109}#
                     #{marks 36110}#
                     #{symnames 36111}#
                     #{ribcage 36112}#
                     #{mod 36113}#)
              (letrec*
                ((#{f 36114}#
                   (lambda (#{symnames 36117}# #{i 36118}#)
                     (if (null? #{symnames 36117}#)
                       (#{search 35861}#
                         #{sym 36108}#
                         (cdr #{subst 36109}#)
                         #{marks 36110}#
                         #{mod 36113}#)
                       (if (if (eq? (car #{symnames 36117}#) #{sym 36108}#)
                             (#{same-marks? 4428}#
                               #{marks 36110}#
                               (list-ref
                                 (vector-ref #{ribcage 36112}# 2)
                                 #{i 36118}#))
                             #f)
                         (let ((#{n 36264}#
                                 (list-ref
                                   (vector-ref #{ribcage 36112}# 3)
                                   #{i 36118}#)))
                           (if (pair? #{n 36264}#)
                             (if (equal? #{mod 36113}# (car #{n 36264}#))
                               (values (cdr #{n 36264}#) #{marks 36110}#)
                               (#{f 36114}#
                                 (cdr #{symnames 36117}#)
                                 (#{1+}# #{i 36118}#)))
                             (values #{n 36264}# #{marks 36110}#)))
                         (#{f 36114}#
                           (cdr #{symnames 36117}#)
                           (#{1+}# #{i 36118}#)))))))
                (#{f 36114}# #{symnames 36111}# 0))))
          (#{search-vector-rib 35863}#
            (lambda (#{sym 36269}#
                     #{subst 36270}#
                     #{marks 36271}#
                     #{symnames 36272}#
                     #{ribcage 36273}#
                     #{mod 36274}#)
              (let ((#{n 36275}# (vector-length #{symnames 36272}#)))
                (letrec*
                  ((#{f 36276}#
                     (lambda (#{i 36279}#)
                       (if (= #{i 36279}# #{n 36275}#)
                         (#{search 35861}#
                           #{sym 36269}#
                           (cdr #{subst 36270}#)
                           #{marks 36271}#
                           #{mod 36274}#)
                         (if (if (eq? (vector-ref
                                        #{symnames 36272}#
                                        #{i 36279}#)
                                      #{sym 36269}#)
                               (#{same-marks? 4428}#
                                 #{marks 36271}#
                                 (vector-ref
                                   (vector-ref #{ribcage 36273}# 2)
                                   #{i 36279}#))
                               #f)
                           (let ((#{n 36426}#
                                   (vector-ref
                                     (vector-ref #{ribcage 36273}# 3)
                                     #{i 36279}#)))
                             (if (pair? #{n 36426}#)
                               (if (equal? #{mod 36274}# (car #{n 36426}#))
                                 (values (cdr #{n 36426}#) #{marks 36271}#)
                                 (#{f 36276}# (#{1+}# #{i 36279}#)))
                               (values #{n 36426}# #{marks 36271}#)))
                           (#{f 36276}# (#{1+}# #{i 36279}#)))))))
                  (#{f 36276}# 0))))))
         (if (symbol? #{id 35858}#)
           (let ((#{t 35864}#
                   (#{search 35861}#
                     #{id 35858}#
                     (cdr #{w 35859}#)
                     (car #{w 35859}#)
                     #{mod 35860}#)))
             (if #{t 35864}# #{t 35864}# #{id 35858}#))
           (if (if (vector? #{id 35858}#)
                 (if (= (vector-length #{id 35858}#) 4)
                   (eq? (vector-ref #{id 35858}# 0) 'syntax-object)
                   #f)
                 #f)
             (let ((#{id 35879}# (vector-ref #{id 35858}# 1))
                   (#{w1 35880}# (vector-ref #{id 35858}# 2))
                   (#{mod 35881}# (vector-ref #{id 35858}# 3)))
               (let ((#{marks 35882}#
                       (let ((#{m1 35892}# (car #{w 35859}#))
                             (#{m2 35893}# (car #{w1 35880}#)))
                         (if (null? #{m2 35893}#)
                           #{m1 35892}#
                           (append #{m1 35892}# #{m2 35893}#)))))
                 (call-with-values
                   (lambda ()
                     (#{search 35861}#
                       #{id 35879}#
                       (cdr #{w 35859}#)
                       #{marks 35882}#
                       #{mod 35881}#))
                   (lambda (#{new-id 35913}# #{marks 35914}#)
                     (if #{new-id 35913}#
                       #{new-id 35913}#
                       (let ((#{t 35922}#
                               (#{search 35861}#
                                 #{id 35879}#
                                 (cdr #{w1 35880}#)
                                 #{marks 35914}#
                                 #{mod 35881}#)))
                         (if #{t 35922}# #{t 35922}# #{id 35879}#)))))))
             (syntax-violation
               'id-var-name
               "invalid id"
               #{id 35858}#))))))
   (#{resolve-identifier 4430}#
     (lambda (#{id 19315}#
              #{w 19316}#
              #{r 19317}#
              #{mod 19318}#
              #{resolve-syntax-parameters? 19319}#)
       (let ((#{n 19323}#
               (#{id-var-name 4429}#
                 #{id 19315}#
                 #{w 19316}#
                 #{mod 19318}#)))
         (if (if (vector? #{n 19323}#)
               (if (= (vector-length #{n 19323}#) 4)
                 (eq? (vector-ref #{n 19323}# 0) 'syntax-object)
                 #f)
               #f)
           (#{resolve-identifier 4430}#
             #{n 19323}#
             #{w 19316}#
             #{r 19317}#
             #{mod 19318}#
             #{resolve-syntax-parameters? 19319}#)
           (if (symbol? #{n 19323}#)
             (let ((#{mod 19338}#
                     (if (if (vector? #{id 19315}#)
                           (if (= (vector-length #{id 19315}#) 4)
                             (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
                             #f)
                           #f)
                       (vector-ref #{id 19315}# 3)
                       #{mod 19318}#)))
               (let ((#{b 19339}#
                       (let ((#{b 19342}#
                               (let ((#{t 19343}#
                                       (begin
                                         (if (if (not #{mod 19338}#)
                                               (current-module)
                                               #f)
                                           (warn "module system is booted, we should have a module"
                                                 #{n 19323}#))
                                         (let ((#{v 19392}#
                                                 (module-variable
                                                   (if #{mod 19338}#
                                                     (resolve-module
                                                       (cdr #{mod 19338}#))
                                                     (current-module))
                                                   #{n 19323}#)))
                                           (if #{v 19392}#
                                             (if (variable-bound? #{v 19392}#)
                                               (let ((#{val 19401}#
                                                       (variable-ref
                                                         #{v 19392}#)))
                                                 (if (macro? #{val 19401}#)
                                                   (if (macro-type
                                                         #{val 19401}#)
                                                     (cons (macro-type
                                                             #{val 19401}#)
                                                           (macro-binding
                                                             #{val 19401}#))
                                                     #f)
                                                   #f))
                                               #f)
                                             #f)))))
                                 (if #{t 19343}# #{t 19343}# '(global)))))
                         (if (if #{resolve-syntax-parameters? 19319}#
                               (eq? (car #{b 19342}#) 'syntax-parameter)
                               #f)
                           (let ((#{t 19410}#
                                   (assq-ref #{r 19317}# (cdr #{b 19342}#))))
                             (if #{t 19410}#
                               #{t 19410}#
                               (cons 'macro (car (cdr #{b 19342}#)))))
                           #{b 19342}#))))
                 (if (eq? (car #{b 19339}#) 'global)
                   (values 'global #{n 19323}# #{mod 19338}#)
                   (values
                     (car #{b 19339}#)
                     (cdr #{b 19339}#)
                     #{mod 19338}#))))
             (if (string? #{n 19323}#)
               (let ((#{mod 19416}#
                       (if (if (vector? #{id 19315}#)
                             (if (= (vector-length #{id 19315}#) 4)
                               (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
                               #f)
                             #f)
                         (vector-ref #{id 19315}# 3)
                         #{mod 19318}#)))
                 (let ((#{b 19417}#
                         (let ((#{b 19420}#
                                 (let ((#{t 19421}#
                                         (assq-ref #{r 19317}# #{n 19323}#)))
                                   (if #{t 19421}#
                                     #{t 19421}#
                                     '(displaced-lexical)))))
                           (if (if #{resolve-syntax-parameters? 19319}#
                                 (eq? (car #{b 19420}#) 'syntax-parameter)
                                 #f)
                             (let ((#{t 19422}#
                                     (assq-ref #{r 19317}# (cdr #{b 19420}#))))
                               (if #{t 19422}#
                                 #{t 19422}#
                                 (cons 'macro (car (cdr #{b 19420}#)))))
                             #{b 19420}#))))
                   (values
                     (car #{b 19417}#)
                     (cdr #{b 19417}#)
                     #{mod 19416}#)))
               (error "unexpected id-var-name"
                      #{id 19315}#
                      #{w 19316}#
                      #{n 19323}#)))))))
   (#{free-id=? 4431}#
     (lambda (#{i 19435}# #{j 19436}#)
       (let ((#{mi 19437}#
               (if (if (vector? #{i 19435}#)
                     (if (= (vector-length #{i 19435}#) 4)
                       (eq? (vector-ref #{i 19435}# 0) 'syntax-object)
                       #f)
                     #f)
                 (vector-ref #{i 19435}# 3)
                 #f)))
         (let ((#{mj 19438}#
                 (if (if (vector? #{j 19436}#)
                       (if (= (vector-length #{j 19436}#) 4)
                         (eq? (vector-ref #{j 19436}# 0) 'syntax-object)
                         #f)
                       #f)
                   (vector-ref #{j 19436}# 3)
                   #f)))
           (let ((#{ni 19439}#
                   (#{id-var-name 4429}#
                     #{i 19435}#
                     '(())
                     #{mi 19437}#)))
             (let ((#{nj 19440}#
                     (#{id-var-name 4429}#
                       #{j 19436}#
                       '(())
                       #{mj 19438}#)))
               (if (if (vector? #{ni 19439}#)
                     (if (= (vector-length #{ni 19439}#) 4)
                       (eq? (vector-ref #{ni 19439}# 0) 'syntax-object)
                       #f)
                     #f)
                 (#{free-id=? 4431}# #{ni 19439}# #{j 19436}#)
                 (if (if (vector? #{nj 19440}#)
                       (if (= (vector-length #{nj 19440}#) 4)
                         (eq? (vector-ref #{nj 19440}# 0) 'syntax-object)
                         #f)
                       #f)
                   (#{free-id=? 4431}# #{i 19435}# #{nj 19440}#)
                   (if (symbol? #{ni 19439}#)
                     (if (eq? #{nj 19440}#
                              (if (if (vector? #{j 19436}#)
                                    (if (= (vector-length #{j 19436}#) 4)
                                      (eq? (vector-ref #{j 19436}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (vector-ref #{j 19436}# 1)
                                #{j 19436}#))
                       (if (let ((#{bi 19512}#
                                   (module-variable
                                     (if #{mi 19437}#
                                       (resolve-module (cdr #{mi 19437}#))
                                       (current-module))
                                     (if (if (vector? #{i 19435}#)
                                           (if (= (vector-length #{i 19435}#)
                                                  4)
                                             (eq? (vector-ref #{i 19435}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
                                       (vector-ref #{i 19435}# 1)
                                       #{i 19435}#))))
                             (if #{bi 19512}#
                               (eq? #{bi 19512}#
                                    (module-variable
                                      (if #{mj 19438}#
                                        (resolve-module (cdr #{mj 19438}#))
                                        (current-module))
                                      (if (if (vector? #{j 19436}#)
                                            (if (= (vector-length #{j 19436}#)
                                                   4)
                                              (eq? (vector-ref #{j 19436}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (vector-ref #{j 19436}# 1)
                                        #{j 19436}#)))
                               (if (not (module-variable
                                          (if #{mj 19438}#
                                            (resolve-module (cdr #{mj 19438}#))
                                            (current-module))
                                          (if (if (vector? #{j 19436}#)
                                                (if (= (vector-length
                                                         #{j 19436}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{j 19436}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (vector-ref #{j 19436}# 1)
                                            #{j 19436}#)))
                                 (eq? #{ni 19439}# #{nj 19440}#)
                                 #f)))
                         (eq? (module-variable
                                (if #{mi 19437}#
                                  (resolve-module (cdr #{mi 19437}#))
                                  (current-module))
                                (if (if (vector? #{i 19435}#)
                                      (if (= (vector-length #{i 19435}#) 4)
                                        (eq? (vector-ref #{i 19435}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (vector-ref #{i 19435}# 1)
                                  #{i 19435}#))
                              (module-variable
                                (if #{mj 19438}#
                                  (resolve-module (cdr #{mj 19438}#))
                                  (current-module))
                                (if (if (vector? #{j 19436}#)
                                      (if (= (vector-length #{j 19436}#) 4)
                                        (eq? (vector-ref #{j 19436}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (vector-ref #{j 19436}# 1)
                                  #{j 19436}#)))
                         #f)
                       #f)
                     (equal? #{ni 19439}# #{nj 19440}#))))))))))
   (#{bound-id=? 4432}#
     (lambda (#{i 19705}# #{j 19706}#)
       (if (if (if (vector? #{i 19705}#)
                 (if (= (vector-length #{i 19705}#) 4)
                   (eq? (vector-ref #{i 19705}# 0) 'syntax-object)
                   #f)
                 #f)
             (if (vector? #{j 19706}#)
               (if (= (vector-length #{j 19706}#) 4)
                 (eq? (vector-ref #{j 19706}# 0) 'syntax-object)
                 #f)
               #f)
             #f)
         (if (eq? (vector-ref #{i 19705}# 1)
                  (vector-ref #{j 19706}# 1))
           (#{same-marks? 4428}#
             (car (vector-ref #{i 19705}# 2))
             (car (vector-ref #{j 19706}# 2)))
           #f)
         (eq? #{i 19705}# #{j 19706}#))))
   (#{valid-bound-ids? 4433}#
     (lambda (#{ids 19875}#)
       (if (letrec*
             ((#{all-ids? 19876}#
                (lambda (#{ids 20073}#)
                  (if (null? #{ids 20073}#)
                    (null? #{ids 20073}#)
                    (if (let ((#{x 20084}# (car #{ids 20073}#)))
                          (if (symbol? #{x 20084}#)
                            #t
                            (if (if (vector? #{x 20084}#)
                                  (if (= (vector-length #{x 20084}#) 4)
                                    (eq? (vector-ref #{x 20084}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (symbol? (vector-ref #{x 20084}# 1))
                              #f)))
                      (#{all-ids? 19876}# (cdr #{ids 20073}#))
                      #f)))))
             (#{all-ids? 19876}# #{ids 19875}#))
         (#{distinct-bound-ids? 4434}# #{ids 19875}#)
         #f)))
   (#{distinct-bound-ids? 4434}#
     (lambda (#{ids 20205}#)
       (letrec*
         ((#{distinct? 20206}#
            (lambda (#{ids 20311}#)
              (if (null? #{ids 20311}#)
                (null? #{ids 20311}#)
                (if (not (#{bound-id-member? 4435}#
                           (car #{ids 20311}#)
                           (cdr #{ids 20311}#)))
                  (#{distinct? 20206}# (cdr #{ids 20311}#))
                  #f)))))
         (#{distinct? 20206}# #{ids 20205}#))))
   (#{bound-id-member? 4435}#
     (lambda (#{x 20407}# #{list 20408}#)
       (if (not (null? #{list 20408}#))
         (let ((#{t 20409}#
                 (#{bound-id=? 4432}#
                   #{x 20407}#
                   (car #{list 20408}#))))
           (if #{t 20409}#
             #{t 20409}#
             (#{bound-id-member? 4435}#
               #{x 20407}#
               (cdr #{list 20408}#))))
         #f)))
   (#{source-wrap 4437}#
     (lambda (#{x 20587}#
              #{w 20588}#
              #{s 20589}#
              #{defmod 20590}#)
       (let ((#{x 20594}#
               (begin
                 (if (if (pair? #{x 20587}#) #{s 20589}# #f)
                   (set-source-properties! #{x 20587}# #{s 20589}#))
                 #{x 20587}#)))
         (if (if (null? (car #{w 20588}#))
               (null? (cdr #{w 20588}#))
               #f)
           #{x 20594}#
           (if (if (vector? #{x 20594}#)
                 (if (= (vector-length #{x 20594}#) 4)
                   (eq? (vector-ref #{x 20594}# 0) 'syntax-object)
                   #f)
                 #f)
             (let ((#{expression 20626}# (vector-ref #{x 20594}# 1))
                   (#{wrap 20627}#
                     (let ((#{w2 20635}# (vector-ref #{x 20594}# 2)))
                       (let ((#{m1 20636}# (car #{w 20588}#))
                             (#{s1 20637}# (cdr #{w 20588}#)))
                         (if (null? #{m1 20636}#)
                           (if (null? #{s1 20637}#)
                             #{w2 20635}#
                             (cons (car #{w2 20635}#)
                                   (let ((#{m2 20652}# (cdr #{w2 20635}#)))
                                     (if (null? #{m2 20652}#)
                                       #{s1 20637}#
                                       (append #{s1 20637}# #{m2 20652}#)))))
                           (cons (let ((#{m2 20660}# (car #{w2 20635}#)))
                                   (if (null? #{m2 20660}#)
                                     #{m1 20636}#
                                     (append #{m1 20636}# #{m2 20660}#)))
                                 (let ((#{m2 20668}# (cdr #{w2 20635}#)))
                                   (if (null? #{m2 20668}#)
                                     #{s1 20637}#
                                     (append #{s1 20637}# #{m2 20668}#))))))))
                   (#{module 20628}# (vector-ref #{x 20594}# 3)))
               (vector
                 'syntax-object
                 #{expression 20626}#
                 #{wrap 20627}#
                 #{module 20628}#))
             (if (null? #{x 20594}#)
               #{x 20594}#
               (vector
                 'syntax-object
                 #{x 20594}#
                 #{w 20588}#
                 #{defmod 20590}#)))))))
   (#{expand-sequence 4438}#
     (lambda (#{body 36431}#
              #{r 36432}#
              #{w 36433}#
              #{s 36434}#
              #{mod 36435}#)
       (#{build-sequence 4392}#
         #{s 36434}#
         (letrec*
           ((#{dobody 36527}#
              (lambda (#{body 36614}#
                       #{r 36615}#
                       #{w 36616}#
                       #{mod 36617}#)
                (if (null? #{body 36614}#)
                  '()
                  (let ((#{first 36618}#
                          (#{expand 4443}#
                            (car #{body 36614}#)
                            #{r 36615}#
                            #{w 36616}#
                            #{mod 36617}#)))
                    (cons #{first 36618}#
                          (#{dobody 36527}#
                            (cdr #{body 36614}#)
                            #{r 36615}#
                            #{w 36616}#
                            #{mod 36617}#)))))))
           (#{dobody 36527}#
             #{body 36431}#
             #{r 36432}#
             #{w 36433}#
             #{mod 36435}#)))))
   (#{expand-top-sequence 4439}#
     (lambda (#{body 20683}#
              #{r 20684}#
              #{w 20685}#
              #{s 20686}#
              #{m 20687}#
              #{esew 20688}#
              #{mod 20689}#)
       (let ((#{r 20690}#
               (cons '("placeholder" placeholder) #{r 20684}#)))
         (let ((#{ribcage 20691}# (vector 'ribcage '() '() '())))
           (let ((#{w 20692}#
                   (cons (car #{w 20685}#)
                         (cons #{ribcage 20691}# (cdr #{w 20685}#)))))
             (letrec*
               ((#{record-definition! 20693}#
                  (lambda (#{id 24185}# #{var 24186}#)
                    (let ((#{mod 24187}#
                            (cons 'hygiene (module-name (current-module)))))
                      (let ((#{label 24193}#
                              (cons (vector-ref #{id 24185}# 3)
                                    (if (if (vector? #{var 24186}#)
                                          (if (= (vector-length #{var 24186}#)
                                                 4)
                                            (eq? (vector-ref #{var 24186}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (let ((#{expression 24255}#
                                              (vector-ref #{var 24186}# 1))
                                            (#{wrap 24256}#
                                              (let ((#{w2 24266}#
                                                      (vector-ref
                                                        #{var 24186}#
                                                        2)))
                                                (cons (let ((#{m2 24273}#
                                                              (car #{w2 24266}#)))
                                                        (if (null? #{m2 24273}#)
                                                          '(top)
                                                          (append
                                                            '(top)
                                                            #{m2 24273}#)))
                                                      (let ((#{m2 24282}#
                                                              (cdr #{w2 24266}#)))
                                                        (if (null? #{m2 24282}#)
                                                          '()
                                                          (append
                                                            '()
                                                            #{m2 24282}#))))))
                                            (#{module 24257}#
                                              (vector-ref #{var 24186}# 3)))
                                        (vector
                                          'syntax-object
                                          #{expression 24255}#
                                          #{wrap 24256}#
                                          #{module 24257}#))
                                      (if (null? #{var 24186}#)
                                        #{var 24186}#
                                        (vector
                                          'syntax-object
                                          #{var 24186}#
                                          '((top))
                                          #{mod 24187}#))))))
                        (begin
                          (let ((#{update 24196}#
                                  (cons (vector-ref #{id 24185}# 1)
                                        (vector-ref #{ribcage 20691}# 1))))
                            (vector-set!
                              #{ribcage 20691}#
                              1
                              #{update 24196}#))
                          (let ((#{update 24211}#
                                  (cons (car (vector-ref #{id 24185}# 2))
                                        (vector-ref #{ribcage 20691}# 2))))
                            (vector-set!
                              #{ribcage 20691}#
                              2
                              #{update 24211}#))
                          (let ((#{update 24226}#
                                  (cons #{label 24193}#
                                        (vector-ref #{ribcage 20691}# 3))))
                            (vector-set!
                              #{ribcage 20691}#
                              3
                              #{update 24226}#)))))))
                (#{parse 20696}#
                  (lambda (#{body 20901}#
                           #{r 20902}#
                           #{w 20903}#
                           #{s 20904}#
                           #{m 20905}#
                           #{esew 20906}#
                           #{mod 20907}#)
                    (letrec*
                      ((#{lp 20908}#
                         (lambda (#{body 20995}# #{exps 20996}#)
                           (if (null? #{body 20995}#)
                             #{exps 20996}#
                             (#{lp 20908}#
                               (cdr #{body 20995}#)
                               (append
                                 (#{parse1 20697}#
                                   (car #{body 20995}#)
                                   #{r 20902}#
                                   #{w 20903}#
                                   #{s 20904}#
                                   #{m 20905}#
                                   #{esew 20906}#
                                   #{mod 20907}#)
                                 #{exps 20996}#))))))
                      (#{lp 20908}# #{body 20901}# '()))))
                (#{parse1 20697}#
                  (lambda (#{x 21070}#
                           #{r 21071}#
                           #{w 21072}#
                           #{s 21073}#
                           #{m 21074}#
                           #{esew 21075}#
                           #{mod 21076}#)
                    (call-with-values
                      (lambda ()
                        (#{syntax-type 4442}#
                          #{x 21070}#
                          #{r 21071}#
                          #{w 21072}#
                          (#{source-annotation 4404}# #{x 21070}#)
                          #{ribcage 20691}#
                          #{mod 21076}#
                          #f))
                      (lambda (#{type 21280}#
                               #{value 21281}#
                               #{e 21282}#
                               #{w 21283}#
                               #{s 21284}#
                               #{mod 21285}#)
                        (if (eqv? #{type 21280}# 'define-form)
                          (let ((#{id 21289}#
                                  (if (if (null? (car #{w 21283}#))
                                        (null? (cdr #{w 21283}#))
                                        #f)
                                    #{value 21281}#
                                    (if (if (vector? #{value 21281}#)
                                          (if (= (vector-length
                                                   #{value 21281}#)
                                                 4)
                                            (eq? (vector-ref #{value 21281}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (let ((#{expression 21339}#
                                              (vector-ref #{value 21281}# 1))
                                            (#{wrap 21340}#
                                              (let ((#{w2 21350}#
                                                      (vector-ref
                                                        #{value 21281}#
                                                        2)))
                                                (let ((#{m1 21351}#
                                                        (car #{w 21283}#))
                                                      (#{s1 21352}#
                                                        (cdr #{w 21283}#)))
                                                  (if (null? #{m1 21351}#)
                                                    (if (null? #{s1 21352}#)
                                                      #{w2 21350}#
                                                      (cons (car #{w2 21350}#)
                                                            (let ((#{m2 21369}#
                                                                    (cdr #{w2 21350}#)))
                                                              (if (null? #{m2 21369}#)
                                                                #{s1 21352}#
                                                                (append
                                                                  #{s1 21352}#
                                                                  #{m2 21369}#)))))
                                                    (cons (let ((#{m2 21377}#
                                                                  (car #{w2 21350}#)))
                                                            (if (null? #{m2 21377}#)
                                                              #{m1 21351}#
                                                              (append
                                                                #{m1 21351}#
                                                                #{m2 21377}#)))
                                                          (let ((#{m2 21385}#
                                                                  (cdr #{w2 21350}#)))
                                                            (if (null? #{m2 21385}#)
                                                              #{s1 21352}#
                                                              (append
                                                                #{s1 21352}#
                                                                #{m2 21385}#))))))))
                                            (#{module 21341}#
                                              (vector-ref #{value 21281}# 3)))
                                        (vector
                                          'syntax-object
                                          #{expression 21339}#
                                          #{wrap 21340}#
                                          #{module 21341}#))
                                      (if (null? #{value 21281}#)
                                        #{value 21281}#
                                        (vector
                                          'syntax-object
                                          #{value 21281}#
                                          #{w 21283}#
                                          #{mod 21285}#))))))
                            (begin
                              (symbol->string (gensym "i"))
                              (let ((#{var 21291}#
                                      (if (not (equal?
                                                 (car (vector-ref
                                                        #{id 21289}#
                                                        2))
                                                 '(top)))
                                        (symbol-append
                                          (vector-ref #{id 21289}# 1)
                                          '-
                                          (string->symbol
                                            (number->string
                                              (hash (syntax->datum #{x 21070}#)
                                                    most-positive-fixnum)
                                              16)))
                                        (vector-ref #{id 21289}# 1))))
                                (begin
                                  (#{record-definition! 20693}#
                                    #{id 21289}#
                                    #{var 21291}#)
                                  (list (if (eq? #{m 21074}# 'c&e)
                                          (let ((#{x 21516}#
                                                  (#{build-global-definition 4385}#
                                                    #{s 21284}#
                                                    #{var 21291}#
                                                    (#{expand 4443}#
                                                      #{e 21282}#
                                                      #{r 21071}#
                                                      #{w 21283}#
                                                      #{mod 21285}#))))
                                            (begin
                                              (#{top-level-eval-hook 4370}#
                                                #{x 21516}#
                                                #{mod 21285}#)
                                              (lambda () #{x 21516}#)))
                                          (lambda ()
                                            (#{build-global-definition 4385}#
                                              #{s 21284}#
                                              #{var 21291}#
                                              (#{expand 4443}#
                                                #{e 21282}#
                                                #{r 21071}#
                                                #{w 21283}#
                                                #{mod 21285}#)))))))))
                          (if (if (eqv? #{type 21280}# 'define-syntax-form)
                                #t
                                (eqv? #{type 21280}#
                                      'define-syntax-parameter-form))
                            (let ((#{id 22032}#
                                    (if (if (null? (car #{w 21283}#))
                                          (null? (cdr #{w 21283}#))
                                          #f)
                                      #{value 21281}#
                                      (if (if (vector? #{value 21281}#)
                                            (if (= (vector-length
                                                     #{value 21281}#)
                                                   4)
                                              (eq? (vector-ref
                                                     #{value 21281}#
                                                     0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (let ((#{expression 22082}#
                                                (vector-ref #{value 21281}# 1))
                                              (#{wrap 22083}#
                                                (let ((#{w2 22093}#
                                                        (vector-ref
                                                          #{value 21281}#
                                                          2)))
                                                  (let ((#{m1 22094}#
                                                          (car #{w 21283}#))
                                                        (#{s1 22095}#
                                                          (cdr #{w 21283}#)))
                                                    (if (null? #{m1 22094}#)
                                                      (if (null? #{s1 22095}#)
                                                        #{w2 22093}#
                                                        (cons (car #{w2 22093}#)
                                                              (let ((#{m2 22112}#
                                                                      (cdr #{w2 22093}#)))
                                                                (if (null? #{m2 22112}#)
                                                                  #{s1 22095}#
                                                                  (append
                                                                    #{s1 22095}#
                                                                    #{m2 22112}#)))))
                                                      (cons (let ((#{m2 22120}#
                                                                    (car #{w2 22093}#)))
                                                              (if (null? #{m2 22120}#)
                                                                #{m1 22094}#
                                                                (append
                                                                  #{m1 22094}#
                                                                  #{m2 22120}#)))
                                                            (let ((#{m2 22128}#
                                                                    (cdr #{w2 22093}#)))
                                                              (if (null? #{m2 22128}#)
                                                                #{s1 22095}#
                                                                (append
                                                                  #{s1 22095}#
                                                                  #{m2 22128}#))))))))
                                              (#{module 22084}#
                                                (vector-ref
                                                  #{value 21281}#
                                                  3)))
                                          (vector
                                            'syntax-object
                                            #{expression 22082}#
                                            #{wrap 22083}#
                                            #{module 22084}#))
                                        (if (null? #{value 21281}#)
                                          #{value 21281}#
                                          (vector
                                            'syntax-object
                                            #{value 21281}#
                                            #{w 21283}#
                                            #{mod 21285}#))))))
                              (begin
                                (symbol->string (gensym "i"))
                                (let ((#{var 22034}#
                                        (if (not (equal?
                                                   (car (vector-ref
                                                          #{id 22032}#
                                                          2))
                                                   '(top)))
                                          (symbol-append
                                            (vector-ref #{id 22032}# 1)
                                            '-
                                            (string->symbol
                                              (number->string
                                                (hash (syntax->datum
                                                        #{x 21070}#)
                                                      most-positive-fixnum)
                                                16)))
                                          (vector-ref #{id 22032}# 1))))
                                  (begin
                                    (#{record-definition! 20693}#
                                      #{id 22032}#
                                      #{var 22034}#)
                                    (if (eqv? #{m 21074}# 'c)
                                      (if (memq 'compile #{esew 21075}#)
                                        (let ((#{e 22262}#
                                                (#{expand-install-global 4440}#
                                                  #{var 22034}#
                                                  #{type 21280}#
                                                  (#{expand 4443}#
                                                    #{e 21282}#
                                                    #{r 21071}#
                                                    #{w 21283}#
                                                    #{mod 21285}#))))
                                          (begin
                                            (#{top-level-eval-hook 4370}#
                                              #{e 22262}#
                                              #{mod 21285}#)
                                            (if (memq 'load #{esew 21075}#)
                                              (list (lambda () #{e 22262}#))
                                              '())))
                                        (if (memq 'load #{esew 21075}#)
                                          (list (lambda ()
                                                  (#{expand-install-global 4440}#
                                                    #{var 22034}#
                                                    #{type 21280}#
                                                    (#{expand 4443}#
                                                      #{e 21282}#
                                                      #{r 21071}#
                                                      #{w 21283}#
                                                      #{mod 21285}#))))
                                          '()))
                                      (if (eqv? #{m 21074}# 'c&e)
                                        (let ((#{e 22782}#
                                                (#{expand-install-global 4440}#
                                                  #{var 22034}#
                                                  #{type 21280}#
                                                  (#{expand 4443}#
                                                    #{e 21282}#
                                                    #{r 21071}#
                                                    #{w 21283}#
                                                    #{mod 21285}#))))
                                          (begin
                                            (#{top-level-eval-hook 4370}#
                                              #{e 22782}#
                                              #{mod 21285}#)
                                            (list (lambda () #{e 22782}#))))
                                        (begin
                                          (if (memq 'eval #{esew 21075}#)
                                            (#{top-level-eval-hook 4370}#
                                              (#{expand-install-global 4440}#
                                                #{var 22034}#
                                                #{type 21280}#
                                                (#{expand 4443}#
                                                  #{e 21282}#
                                                  #{r 21071}#
                                                  #{w 21283}#
                                                  #{mod 21285}#))
                                              #{mod 21285}#))
                                          '())))))))
                            (if (eqv? #{type 21280}# 'begin-form)
                              (let ((#{tmp 23411}#
                                      ($sc-dispatch
                                        #{e 21282}#
                                        '(_ . each-any))))
                                (if #{tmp 23411}#
                                  (@apply
                                    (lambda (#{e1 23415}#)
                                      (#{parse 20696}#
                                        #{e1 23415}#
                                        #{r 21071}#
                                        #{w 21283}#
                                        #{s 21284}#
                                        #{m 21074}#
                                        #{esew 21075}#
                                        #{mod 21285}#))
                                    #{tmp 23411}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any pattern"
                                    #{e 21282}#)))
                              (if (eqv? #{type 21280}# 'local-syntax-form)
                                (#{expand-local-syntax 4448}#
                                  #{value 21281}#
                                  #{e 21282}#
                                  #{r 21071}#
                                  #{w 21283}#
                                  #{s 21284}#
                                  #{mod 21285}#
                                  (lambda (#{forms 23461}#
                                           #{r 23462}#
                                           #{w 23463}#
                                           #{s 23464}#
                                           #{mod 23465}#)
                                    (#{parse 20696}#
                                      #{forms 23461}#
                                      #{r 23462}#
                                      #{w 23463}#
                                      #{s 23464}#
                                      #{m 21074}#
                                      #{esew 21075}#
                                      #{mod 23465}#)))
                                (if (eqv? #{type 21280}# 'eval-when-form)
                                  (let ((#{tmp 23504}#
                                          ($sc-dispatch
                                            #{e 21282}#
                                            '(_ each-any any . each-any))))
                                    (if #{tmp 23504}#
                                      (@apply
                                        (lambda (#{x 23508}#
                                                 #{e1 23509}#
                                                 #{e2 23510}#)
                                          (let ((#{when-list 23511}#
                                                  (#{parse-when-list 4441}#
                                                    #{e 21282}#
                                                    #{x 23508}#))
                                                (#{body 23512}#
                                                  (cons #{e1 23509}#
                                                        #{e2 23510}#)))
                                            (letrec*
                                              ((#{recurse 23513}#
                                                 (lambda (#{m 24102}#
                                                          #{esew 24103}#)
                                                   (#{parse 20696}#
                                                     #{body 23512}#
                                                     #{r 21071}#
                                                     #{w 21283}#
                                                     #{s 21284}#
                                                     #{m 24102}#
                                                     #{esew 24103}#
                                                     #{mod 21285}#))))
                                              (if (eq? #{m 21074}# 'e)
                                                (if (memq 'eval
                                                          #{when-list 23511}#)
                                                  (#{recurse 23513}#
                                                    (if (memq 'expand
                                                              #{when-list 23511}#)
                                                      'c&e
                                                      'e)
                                                    '(eval))
                                                  (begin
                                                    (if (memq 'expand
                                                              #{when-list 23511}#)
                                                      (let ((#{x 23621}#
                                                              (#{expand-top-sequence 4439}#
                                                                #{body 23512}#
                                                                #{r 21071}#
                                                                #{w 21283}#
                                                                #{s 21284}#
                                                                'e
                                                                '(eval)
                                                                #{mod 21285}#)))
                                                        (primitive-eval
                                                          #{x 23621}#)))
                                                    '()))
                                                (if (memq 'load
                                                          #{when-list 23511}#)
                                                  (if (let ((#{t 23649}#
                                                              (memq 'compile
                                                                    #{when-list 23511}#)))
                                                        (if #{t 23649}#
                                                          #{t 23649}#
                                                          (let ((#{t 23702}#
                                                                  (memq 'expand
                                                                        #{when-list 23511}#)))
                                                            (if #{t 23702}#
                                                              #{t 23702}#
                                                              (if (eq? #{m 21074}#
                                                                       'c&e)
                                                                (memq 'eval
                                                                      #{when-list 23511}#)
                                                                #f)))))
                                                    (#{recurse 23513}#
                                                      'c&e
                                                      '(compile load))
                                                    (if (if (eq? #{m 21074}#
                                                                 'c)
                                                          #t
                                                          (eq? #{m 21074}#
                                                               'c&e))
                                                      (#{recurse 23513}#
                                                        'c
                                                        '(load))
                                                      '()))
                                                  (if (let ((#{t 23913}#
                                                              (memq 'compile
                                                                    #{when-list 23511}#)))
                                                        (if #{t 23913}#
                                                          #{t 23913}#
                                                          (let ((#{t 23966}#
                                                                  (memq 'expand
                                                                        #{when-list 23511}#)))
                                                            (if #{t 23966}#
                                                              #{t 23966}#
                                                              (if (eq? #{m 21074}#
                                                                       'c&e)
                                                                (memq 'eval
                                                                      #{when-list 23511}#)
                                                                #f)))))
                                                    (begin
                                                      (let ((#{x 24100}#
                                                              (#{expand-top-sequence 4439}#
                                                                #{body 23512}#
                                                                #{r 21071}#
                                                                #{w 21283}#
                                                                #{s 21284}#
                                                                'e
                                                                '(eval)
                                                                #{mod 21285}#)))
                                                        (primitive-eval
                                                          #{x 24100}#))
                                                      '())
                                                    '()))))))
                                        #{tmp 23504}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        #{e 21282}#)))
                                  (list (if (eq? #{m 21074}# 'c&e)
                                          (let ((#{x 24176}#
                                                  (#{expand-expr 4444}#
                                                    #{type 21280}#
                                                    #{value 21281}#
                                                    #{e 21282}#
                                                    #{r 21071}#
                                                    #{w 21283}#
                                                    #{s 21284}#
                                                    #{mod 21285}#)))
                                            (begin
                                              (primitive-eval #{x 24176}#)
                                              (lambda () #{x 24176}#)))
                                          (lambda ()
                                            (#{expand-expr 4444}#
                                              #{type 21280}#
                                              #{value 21281}#
                                              #{e 21282}#
                                              #{r 21071}#
                                              #{w 21283}#
                                              #{s 21284}#
                                              #{mod 21285}#))))))))))))))
               (let ((#{exps 20698}#
                       (map (lambda (#{x 20829}#) (#{x 20829}#))
                            (reverse
                              (#{parse 20696}#
                                #{body 20683}#
                                #{r 20690}#
                                #{w 20692}#
                                #{s 20686}#
                                #{m 20687}#
                                #{esew 20688}#
                                #{mod 20689}#)))))
                 (if (null? #{exps 20698}#)
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 0)
                     #{s 20686}#)
                   (#{build-sequence 4392}#
                     #{s 20686}#
                     #{exps 20698}#)))))))))
   (#{expand-install-global 4440}#
     (lambda (#{name 24304}# #{type 24305}# #{e 24306}#)
       (let ((#{exp 24312}#
               (let ((#{args 24323}#
                       (if (eq? #{type 24305}#
                                'define-syntax-parameter-form)
                         (list (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 #{name 24304}#)
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 'syntax-parameter)
                               (let ((#{args 24346}# (list #{e 24306}#)))
                                 (make-struct/no-tail
                                   (vector-ref %expanded-vtables 12)
                                   #f
                                   'list
                                   #{args 24346}#)))
                         (list (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 #{name 24304}#)
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 'macro)
                               #{e 24306}#))))
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 12)
                   #f
                   'make-syntax-transformer
                   #{args 24323}#))))
         (begin
           (if (if (struct? #{exp 24312}#)
                 (eq? (struct-vtable #{exp 24312}#)
                      (vector-ref %expanded-vtables 14))
                 #f)
             (let ((#{meta 24373}# (struct-ref #{exp 24312}# 1)))
               (if (not (assq 'name #{meta 24373}#))
                 (let ((#{v 24380}#
                         (cons (cons 'name #{name 24304}#) #{meta 24373}#)))
                   (struct-set! #{exp 24312}# 1 #{v 24380}#)))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 9)
             #f
             #{name 24304}#
             #{exp 24312}#)))))
   (#{parse-when-list 4441}#
     (lambda (#{e 24391}# #{when-list 24392}#)
       (let ((#{result 24393}#
               (#{strip 4456}# #{when-list 24392}# '(()))))
         (letrec*
           ((#{lp 24394}#
              (lambda (#{l 24460}#)
                (if (null? #{l 24460}#)
                  #{result 24393}#
                  (if (let ((#{t 24462}# (car #{l 24460}#)))
                        (if (eq? #{t 24462}# 'compile)
                          #t
                          (if (eq? #{t 24462}# 'load)
                            #t
                            (if (eq? #{t 24462}# 'eval)
                              #t
                              (eq? #{t 24462}# 'expand)))))
                    (#{lp 24394}# (cdr #{l 24460}#))
                    (syntax-violation
                      'eval-when
                      "invalid situation"
                      #{e 24391}#
                      (car #{l 24460}#)))))))
           (#{lp 24394}# #{result 24393}#)))))
   (#{syntax-type 4442}#
     (lambda (#{e 24464}#
              #{r 24465}#
              #{w 24466}#
              #{s 24467}#
              #{rib 24468}#
              #{mod 24469}#
              #{for-car? 24470}#)
       (if (symbol? #{e 24464}#)
         (call-with-values
           (lambda ()
             (#{resolve-identifier 4430}#
               #{e 24464}#
               #{w 24466}#
               #{r 24465}#
               #{mod 24469}#
               #t))
           (lambda (#{type 24473}# #{value 24474}# #{mod* 24475}#)
             (if (eqv? #{type 24473}# 'macro)
               (if #{for-car? 24470}#
                 (values
                   #{type 24473}#
                   #{value 24474}#
                   #{e 24464}#
                   #{w 24466}#
                   #{s 24467}#
                   #{mod 24469}#)
                 (#{syntax-type 4442}#
                   (#{expand-macro 4446}#
                     #{value 24474}#
                     #{e 24464}#
                     #{r 24465}#
                     #{w 24466}#
                     #{s 24467}#
                     #{rib 24468}#
                     #{mod 24469}#)
                   #{r 24465}#
                   '(())
                   #{s 24467}#
                   #{rib 24468}#
                   #{mod 24469}#
                   #f))
               (if (eqv? #{type 24473}# 'global)
                 (values
                   #{type 24473}#
                   #{value 24474}#
                   #{value 24474}#
                   #{w 24466}#
                   #{s 24467}#
                   #{mod* 24475}#)
                 (values
                   #{type 24473}#
                   #{value 24474}#
                   #{e 24464}#
                   #{w 24466}#
                   #{s 24467}#
                   #{mod 24469}#)))))
         (if (pair? #{e 24464}#)
           (let ((#{first 24484}# (car #{e 24464}#)))
             (call-with-values
               (lambda ()
                 (#{syntax-type 4442}#
                   #{first 24484}#
                   #{r 24465}#
                   #{w 24466}#
                   #{s 24467}#
                   #{rib 24468}#
                   #{mod 24469}#
                   #t))
               (lambda (#{ftype 24486}#
                        #{fval 24487}#
                        #{fe 24488}#
                        #{fw 24489}#
                        #{fs 24490}#
                        #{fmod 24491}#)
                 (if (eqv? #{ftype 24486}# 'lexical)
                   (values
                     'lexical-call
                     #{fval 24487}#
                     #{e 24464}#
                     #{w 24466}#
                     #{s 24467}#
                     #{mod 24469}#)
                   (if (eqv? #{ftype 24486}# 'global)
                     (values
                       'global-call
                       (vector
                         'syntax-object
                         #{fval 24487}#
                         #{w 24466}#
                         #{fmod 24491}#)
                       #{e 24464}#
                       #{w 24466}#
                       #{s 24467}#
                       #{mod 24469}#)
                     (if (eqv? #{ftype 24486}# 'macro)
                       (#{syntax-type 4442}#
                         (#{expand-macro 4446}#
                           #{fval 24487}#
                           #{e 24464}#
                           #{r 24465}#
                           #{w 24466}#
                           #{s 24467}#
                           #{rib 24468}#
                           #{mod 24469}#)
                         #{r 24465}#
                         '(())
                         #{s 24467}#
                         #{rib 24468}#
                         #{mod 24469}#
                         #{for-car? 24470}#)
                       (if (eqv? #{ftype 24486}# 'module-ref)
                         (call-with-values
                           (lambda ()
                             (#{fval 24487}#
                               #{e 24464}#
                               #{r 24465}#
                               #{w 24466}#))
                           (lambda (#{e 24512}#
                                    #{r 24513}#
                                    #{w 24514}#
                                    #{s 24515}#
                                    #{mod 24516}#)
                             (#{syntax-type 4442}#
                               #{e 24512}#
                               #{r 24513}#
                               #{w 24514}#
                               #{s 24515}#
                               #{rib 24468}#
                               #{mod 24516}#
                               #{for-car? 24470}#)))
                         (if (eqv? #{ftype 24486}# 'core)
                           (values
                             'core-form
                             #{fval 24487}#
                             #{e 24464}#
                             #{w 24466}#
                             #{s 24467}#
                             #{mod 24469}#)
                           (if (eqv? #{ftype 24486}# 'local-syntax)
                             (values
                               'local-syntax-form
                               #{fval 24487}#
                               #{e 24464}#
                               #{w 24466}#
                               #{s 24467}#
                               #{mod 24469}#)
                             (if (eqv? #{ftype 24486}# 'begin)
                               (values
                                 'begin-form
                                 #f
                                 #{e 24464}#
                                 #{w 24466}#
                                 #{s 24467}#
                                 #{mod 24469}#)
                               (if (eqv? #{ftype 24486}# 'eval-when)
                                 (values
                                   'eval-when-form
                                   #f
                                   #{e 24464}#
                                   #{w 24466}#
                                   #{s 24467}#
                                   #{mod 24469}#)
                                 (if (eqv? #{ftype 24486}# 'define)
                                   (let ((#{tmp 24533}#
                                           ($sc-dispatch
                                             #{e 24464}#
                                             '(_ any any))))
                                     (if (if #{tmp 24533}#
                                           (@apply
                                             (lambda (#{name 24537}#
                                                      #{val 24538}#)
                                               (if (symbol? #{name 24537}#)
                                                 #t
                                                 (if (if (vector?
                                                           #{name 24537}#)
                                                       (if (= (vector-length
                                                                #{name 24537}#)
                                                              4)
                                                         (eq? (vector-ref
                                                                #{name 24537}#
                                                                0)
                                                              'syntax-object)
                                                         #f)
                                                       #f)
                                                   (symbol?
                                                     (vector-ref
                                                       #{name 24537}#
                                                       1))
                                                   #f)))
                                             #{tmp 24533}#)
                                           #f)
                                       (@apply
                                         (lambda (#{name 24565}# #{val 24566}#)
                                           (values
                                             'define-form
                                             #{name 24565}#
                                             #{val 24566}#
                                             #{w 24466}#
                                             #{s 24467}#
                                             #{mod 24469}#))
                                         #{tmp 24533}#)
                                       (let ((#{tmp 24567}#
                                               ($sc-dispatch
                                                 #{e 24464}#
                                                 '(_ (any . any)
                                                     any
                                                     .
                                                     each-any))))
                                         (if (if #{tmp 24567}#
                                               (@apply
                                                 (lambda (#{name 24571}#
                                                          #{args 24572}#
                                                          #{e1 24573}#
                                                          #{e2 24574}#)
                                                   (if (if (symbol?
                                                             #{name 24571}#)
                                                         #t
                                                         (if (if (vector?
                                                                   #{name 24571}#)
                                                               (if (= (vector-length
                                                                        #{name 24571}#)
                                                                      4)
                                                                 (eq? (vector-ref
                                                                        #{name 24571}#
                                                                        0)
                                                                      'syntax-object)
                                                                 #f)
                                                               #f)
                                                           (symbol?
                                                             (vector-ref
                                                               #{name 24571}#
                                                               1))
                                                           #f))
                                                     (#{valid-bound-ids? 4433}#
                                                       (#{lambda-var-list 4458}#
                                                         #{args 24572}#))
                                                     #f))
                                                 #{tmp 24567}#)
                                               #f)
                                           (@apply
                                             (lambda (#{name 25055}#
                                                      #{args 25056}#
                                                      #{e1 25057}#
                                                      #{e2 25058}#)
                                               (values
                                                 'define-form
                                                 (if (if (null? (car #{w 24466}#))
                                                       (null? (cdr #{w 24466}#))
                                                       #f)
                                                   #{name 25055}#
                                                   (if (if (vector?
                                                             #{name 25055}#)
                                                         (if (= (vector-length
                                                                  #{name 25055}#)
                                                                4)
                                                           (eq? (vector-ref
                                                                  #{name 25055}#
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (let ((#{expression 25088}#
                                                             (vector-ref
                                                               #{name 25055}#
                                                               1))
                                                           (#{wrap 25089}#
                                                             (let ((#{w2 25099}#
                                                                     (vector-ref
                                                                       #{name 25055}#
                                                                       2)))
                                                               (let ((#{m1 25100}#
                                                                       (car #{w 24466}#))
                                                                     (#{s1 25101}#
                                                                       (cdr #{w 24466}#)))
                                                                 (if (null? #{m1 25100}#)
                                                                   (if (null? #{s1 25101}#)
                                                                     #{w2 25099}#
                                                                     (cons (car #{w2 25099}#)
                                                                           (let ((#{m2 25118}#
                                                                                   (cdr #{w2 25099}#)))
                                                                             (if (null? #{m2 25118}#)
                                                                               #{s1 25101}#
                                                                               (append
                                                                                 #{s1 25101}#
                                                                                 #{m2 25118}#)))))
                                                                   (cons (let ((#{m2 25126}#
                                                                                 (car #{w2 25099}#)))
                                                                           (if (null? #{m2 25126}#)
                                                                             #{m1 25100}#
                                                                             (append
                                                                               #{m1 25100}#
                                                                               #{m2 25126}#)))
                                                                         (let ((#{m2 25134}#
                                                                                 (cdr #{w2 25099}#)))
                                                                           (if (null? #{m2 25134}#)
                                                                             #{s1 25101}#
                                                                             (append
                                                                               #{s1 25101}#
                                                                               #{m2 25134}#))))))))
                                                           (#{module 25090}#
                                                             (vector-ref
                                                               #{name 25055}#
                                                               3)))
                                                       (vector
                                                         'syntax-object
                                                         #{expression 25088}#
                                                         #{wrap 25089}#
                                                         #{module 25090}#))
                                                     (if (null? #{name 25055}#)
                                                       #{name 25055}#
                                                       (vector
                                                         'syntax-object
                                                         #{name 25055}#
                                                         #{w 24466}#
                                                         #{mod 24469}#))))
                                                 (let ((#{e 25160}#
                                                         (cons '#(syntax-object
                                                                  lambda
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(name
                                                                       args
                                                                       e1
                                                                       e2)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1952"
                                                                       "i1953"
                                                                       "i1954"
                                                                       "i1955"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(ftype
                                                                       fval
                                                                       fe
                                                                       fw
                                                                       fs
                                                                       fmod)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1905"
                                                                       "i1906"
                                                                       "i1907"
                                                                       "i1908"
                                                                       "i1909"
                                                                       "i1910"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(first)
                                                                     #((top))
                                                                     #("i1897"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(e
                                                                       r
                                                                       w
                                                                       s
                                                                       rib
                                                                       mod
                                                                       for-car?)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i1876"
                                                                       "i1877"
                                                                       "i1878"
                                                                       "i1879"
                                                                       "i1880"
                                                                       "i1881"
                                                                       "i1882"))
                                                                   #(ribcage
                                                                     (lambda-var-list
                                                                       gen-var
                                                                       strip
                                                                       expand-lambda-case
                                                                       lambda*-formals
                                                                       expand-simple-lambda
                                                                       lambda-formals
                                                                       ellipsis?
                                                                       expand-void
                                                                       eval-local-transformer
                                                                       expand-local-syntax
                                                                       expand-body
                                                                       expand-macro
                                                                       expand-call
                                                                       expand-expr
                                                                       expand
                                                                       syntax-type
                                                                       parse-when-list
                                                                       expand-install-global
                                                                       expand-top-sequence
                                                                       expand-sequence
                                                                       source-wrap
                                                                       wrap
                                                                       bound-id-member?
                                                                       distinct-bound-ids?
                                                                       valid-bound-ids?
                                                                       bound-id=?
                                                                       free-id=?
                                                                       resolve-identifier
                                                                       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
                                                                       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"
                                                                      "i401"
                                                                      "i400"
                                                                      "i398"
                                                                      "i395"
                                                                      "i394"
                                                                      "i393"
                                                                      "i391"
                                                                      "i390"
                                                                      "i388"
                                                                      "i386"
                                                                      "i384"
                                                                      "i382"
                                                                      "i380"
                                                                      "i378"
                                                                      "i376"
                                                                      "i374"
                                                                      "i371"
                                                                      "i369"
                                                                      "i368"
                                                                      "i366"
                                                                      "i364"
                                                                      "i362"
                                                                      "i360"
                                                                      "i359"
                                                                      "i358"
                                                                      "i357"
                                                                      "i355"
                                                                      "i354"
                                                                      "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"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ()))
                                                                  (hygiene
                                                                    guile))
                                                               (let ((#{x 25164}#
                                                                       (cons #{args 25056}#
                                                                             (cons #{e1 25057}#
                                                                                   #{e2 25058}#))))
                                                                 (if (if (null? (car #{w 24466}#))
                                                                       (null? (cdr #{w 24466}#))
                                                                       #f)
                                                                   #{x 25164}#
                                                                   (if (if (vector?
                                                                             #{x 25164}#)
                                                                         (if (= (vector-length
                                                                                  #{x 25164}#)
                                                                                4)
                                                                           (eq? (vector-ref
                                                                                  #{x 25164}#
                                                                                  0)
                                                                                'syntax-object)
                                                                           #f)
                                                                         #f)
                                                                     (let ((#{expression 25182}#
                                                                             (vector-ref
                                                                               #{x 25164}#
                                                                               1))
                                                                           (#{wrap 25183}#
                                                                             (let ((#{w2 25191}#
                                                                                     (vector-ref
                                                                                       #{x 25164}#
                                                                                       2)))
                                                                               (let ((#{m1 25192}#
                                                                                       (car #{w 24466}#))
                                                                                     (#{s1 25193}#
                                                                                       (cdr #{w 24466}#)))
                                                                                 (if (null? #{m1 25192}#)
                                                                                   (if (null? #{s1 25193}#)
                                                                                     #{w2 25191}#
                                                                                     (cons (car #{w2 25191}#)
                                                                                           (let ((#{m2 25208}#
                                                                                                   (cdr #{w2 25191}#)))
                                                                                             (if (null? #{m2 25208}#)
                                                                                               #{s1 25193}#
                                                                                               (append
                                                                                                 #{s1 25193}#
                                                                                                 #{m2 25208}#)))))
                                                                                   (cons (let ((#{m2 25216}#
                                                                                                 (car #{w2 25191}#)))
                                                                                           (if (null? #{m2 25216}#)
                                                                                             #{m1 25192}#
                                                                                             (append
                                                                                               #{m1 25192}#
                                                                                               #{m2 25216}#)))
                                                                                         (let ((#{m2 25224}#
                                                                                                 (cdr #{w2 25191}#)))
                                                                                           (if (null? #{m2 25224}#)
                                                                                             #{s1 25193}#
                                                                                             (append
                                                                                               #{s1 25193}#
                                                                                               #{m2 25224}#))))))))
                                                                           (#{module 25184}#
                                                                             (vector-ref
                                                                               #{x 25164}#
                                                                               3)))
                                                                       (vector
                                                                         'syntax-object
                                                                         #{expression 25182}#
                                                                         #{wrap 25183}#
                                                                         #{module 25184}#))
                                                                     (if (null? #{x 25164}#)
                                                                       #{x 25164}#
                                                                       (vector
                                                                         'syntax-object
                                                                         #{x 25164}#
                                                                         #{w 24466}#
                                                                         #{mod 24469}#))))))))
                                                   (begin
                                                     (if (if (pair? #{e 25160}#)
                                                           #{s 24467}#
                                                           #f)
                                                       (set-source-properties!
                                                         #{e 25160}#
                                                         #{s 24467}#))
                                                     #{e 25160}#))
                                                 '(())
                                                 #{s 24467}#
                                                 #{mod 24469}#))
                                             #{tmp 24567}#)
                                           (let ((#{tmp 25243}#
                                                   ($sc-dispatch
                                                     #{e 24464}#
                                                     '(_ any))))
                                             (if (if #{tmp 25243}#
                                                   (@apply
                                                     (lambda (#{name 25247}#)
                                                       (if (symbol?
                                                             #{name 25247}#)
                                                         #t
                                                         (if (if (vector?
                                                                   #{name 25247}#)
                                                               (if (= (vector-length
                                                                        #{name 25247}#)
                                                                      4)
                                                                 (eq? (vector-ref
                                                                        #{name 25247}#
                                                                        0)
                                                                      'syntax-object)
                                                                 #f)
                                                               #f)
                                                           (symbol?
                                                             (vector-ref
                                                               #{name 25247}#
                                                               1))
                                                           #f)))
                                                     #{tmp 25243}#)
                                                   #f)
                                               (@apply
                                                 (lambda (#{name 25274}#)
                                                   (values
                                                     'define-form
                                                     (if (if (null? (car #{w 24466}#))
                                                           (null? (cdr #{w 24466}#))
                                                           #f)
                                                       #{name 25274}#
                                                       (if (if (vector?
                                                                 #{name 25274}#)
                                                             (if (= (vector-length
                                                                      #{name 25274}#)
                                                                    4)
                                                               (eq? (vector-ref
                                                                      #{name 25274}#
                                                                      0)
                                                                    'syntax-object)
                                                               #f)
                                                             #f)
                                                         (let ((#{expression 25304}#
                                                                 (vector-ref
                                                                   #{name 25274}#
                                                                   1))
                                                               (#{wrap 25305}#
                                                                 (let ((#{w2 25315}#
                                                                         (vector-ref
                                                                           #{name 25274}#
                                                                           2)))
                                                                   (let ((#{m1 25316}#
                                                                           (car #{w 24466}#))
                                                                         (#{s1 25317}#
                                                                           (cdr #{w 24466}#)))
                                                                     (if (null? #{m1 25316}#)
                                                                       (if (null? #{s1 25317}#)
                                                                         #{w2 25315}#
                                                                         (cons (car #{w2 25315}#)
                                                                               (let ((#{m2 25334}#
                                                                                       (cdr #{w2 25315}#)))
                                                                                 (if (null? #{m2 25334}#)
                                                                                   #{s1 25317}#
                                                                                   (append
                                                                                     #{s1 25317}#
                                                                                     #{m2 25334}#)))))
                                                                       (cons (let ((#{m2 25342}#
                                                                                     (car #{w2 25315}#)))
                                                                               (if (null? #{m2 25342}#)
                                                                                 #{m1 25316}#
                                                                                 (append
                                                                                   #{m1 25316}#
                                                                                   #{m2 25342}#)))
                                                                             (let ((#{m2 25350}#
                                                                                     (cdr #{w2 25315}#)))
                                                                               (if (null? #{m2 25350}#)
                                                                                 #{s1 25317}#
                                                                                 (append
                                                                                   #{s1 25317}#
                                                                                   #{m2 25350}#))))))))
                                                               (#{module 25306}#
                                                                 (vector-ref
                                                                   #{name 25274}#
                                                                   3)))
                                                           (vector
                                                             'syntax-object
                                                             #{expression 25304}#
                                                             #{wrap 25305}#
                                                             #{module 25306}#))
                                                         (if (null? #{name 25274}#)
                                                           #{name 25274}#
                                                           (vector
                                                             'syntax-object
                                                             #{name 25274}#
                                                             #{w 24466}#
                                                             #{mod 24469}#))))
                                                     '(#(syntax-object
                                                         if
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1965"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1905"
                                                              "i1906"
                                                              "i1907"
                                                              "i1908"
                                                              "i1909"
                                                              "i1910"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1897"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1876"
                                                              "i1877"
                                                              "i1878"
                                                              "i1879"
                                                              "i1880"
                                                              "i1881"
                                                              "i1882"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              expand-lambda-case
                                                              lambda*-formals
                                                              expand-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              expand-void
                                                              eval-local-transformer
                                                              expand-local-syntax
                                                              expand-body
                                                              expand-macro
                                                              expand-call
                                                              expand-expr
                                                              expand
                                                              syntax-type
                                                              parse-when-list
                                                              expand-install-global
                                                              expand-top-sequence
                                                              expand-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              resolve-identifier
                                                              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
                                                              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"
                                                             "i401"
                                                             "i400"
                                                             "i398"
                                                             "i395"
                                                             "i394"
                                                             "i393"
                                                             "i391"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i374"
                                                             "i371"
                                                             "i369"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i360"
                                                             "i359"
                                                             "i358"
                                                             "i357"
                                                             "i355"
                                                             "i354"
                                                             "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"))
                                                          #(ribcage () () ()))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         #f
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1965"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1905"
                                                              "i1906"
                                                              "i1907"
                                                              "i1908"
                                                              "i1909"
                                                              "i1910"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1897"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1876"
                                                              "i1877"
                                                              "i1878"
                                                              "i1879"
                                                              "i1880"
                                                              "i1881"
                                                              "i1882"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              expand-lambda-case
                                                              lambda*-formals
                                                              expand-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              expand-void
                                                              eval-local-transformer
                                                              expand-local-syntax
                                                              expand-body
                                                              expand-macro
                                                              expand-call
                                                              expand-expr
                                                              expand
                                                              syntax-type
                                                              parse-when-list
                                                              expand-install-global
                                                              expand-top-sequence
                                                              expand-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              resolve-identifier
                                                              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
                                                              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"
                                                             "i401"
                                                             "i400"
                                                             "i398"
                                                             "i395"
                                                             "i394"
                                                             "i393"
                                                             "i391"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i374"
                                                             "i371"
                                                             "i369"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i360"
                                                             "i359"
                                                             "i358"
                                                             "i357"
                                                             "i355"
                                                             "i354"
                                                             "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"))
                                                          #(ribcage () () ()))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         #f
                                                         ((top)
                                                          #(ribcage
                                                            #(name)
                                                            #((top))
                                                            #("i1965"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(ftype
                                                              fval
                                                              fe
                                                              fw
                                                              fs
                                                              fmod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1905"
                                                              "i1906"
                                                              "i1907"
                                                              "i1908"
                                                              "i1909"
                                                              "i1910"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(first)
                                                            #((top))
                                                            #("i1897"))
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e
                                                              r
                                                              w
                                                              s
                                                              rib
                                                              mod
                                                              for-car?)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i1876"
                                                              "i1877"
                                                              "i1878"
                                                              "i1879"
                                                              "i1880"
                                                              "i1881"
                                                              "i1882"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              expand-lambda-case
                                                              lambda*-formals
                                                              expand-simple-lambda
                                                              lambda-formals
                                                              ellipsis?
                                                              expand-void
                                                              eval-local-transformer
                                                              expand-local-syntax
                                                              expand-body
                                                              expand-macro
                                                              expand-call
                                                              expand-expr
                                                              expand
                                                              syntax-type
                                                              parse-when-list
                                                              expand-install-global
                                                              expand-top-sequence
                                                              expand-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              resolve-identifier
                                                              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
                                                              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"
                                                             "i401"
                                                             "i400"
                                                             "i398"
                                                             "i395"
                                                             "i394"
                                                             "i393"
                                                             "i391"
                                                             "i390"
                                                             "i388"
                                                             "i386"
                                                             "i384"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i374"
                                                             "i371"
                                                             "i369"
                                                             "i368"
                                                             "i366"
                                                             "i364"
                                                             "i362"
                                                             "i360"
                                                             "i359"
                                                             "i358"
                                                             "i357"
                                                             "i355"
                                                             "i354"
                                                             "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"))
                                                          #(ribcage () () ()))
                                                         (hygiene guile)))
                                                     '(())
                                                     #{s 24467}#
                                                     #{mod 24469}#))
                                                 #{tmp 25243}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to match any pattern"
                                                 #{e 24464}#)))))))
                                   (if (eqv? #{ftype 24486}# 'define-syntax)
                                     (let ((#{tmp 25389}#
                                             ($sc-dispatch
                                               #{e 24464}#
                                               '(_ any any))))
                                       (if (if #{tmp 25389}#
                                             (@apply
                                               (lambda (#{name 25393}#
                                                        #{val 25394}#)
                                                 (if (symbol? #{name 25393}#)
                                                   #t
                                                   (if (if (vector?
                                                             #{name 25393}#)
                                                         (if (= (vector-length
                                                                  #{name 25393}#)
                                                                4)
                                                           (eq? (vector-ref
                                                                  #{name 25393}#
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (symbol?
                                                       (vector-ref
                                                         #{name 25393}#
                                                         1))
                                                     #f)))
                                               #{tmp 25389}#)
                                             #f)
                                         (@apply
                                           (lambda (#{name 25421}#
                                                    #{val 25422}#)
                                             (values
                                               'define-syntax-form
                                               #{name 25421}#
                                               #{val 25422}#
                                               #{w 24466}#
                                               #{s 24467}#
                                               #{mod 24469}#))
                                           #{tmp 25389}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{e 24464}#)))
                                     (if (eqv? #{ftype 24486}#
                                               'define-syntax-parameter)
                                       (let ((#{tmp 25433}#
                                               ($sc-dispatch
                                                 #{e 24464}#
                                                 '(_ any any))))
                                         (if (if #{tmp 25433}#
                                               (@apply
                                                 (lambda (#{name 25437}#
                                                          #{val 25438}#)
                                                   (if (symbol? #{name 25437}#)
                                                     #t
                                                     (if (if (vector?
                                                               #{name 25437}#)
                                                           (if (= (vector-length
                                                                    #{name 25437}#)
                                                                  4)
                                                             (eq? (vector-ref
                                                                    #{name 25437}#
                                                                    0)
                                                                  'syntax-object)
                                                             #f)
                                                           #f)
                                                       (symbol?
                                                         (vector-ref
                                                           #{name 25437}#
                                                           1))
                                                       #f)))
                                                 #{tmp 25433}#)
                                               #f)
                                           (@apply
                                             (lambda (#{name 25465}#
                                                      #{val 25466}#)
                                               (values
                                                 'define-syntax-parameter-form
                                                 #{name 25465}#
                                                 #{val 25466}#
                                                 #{w 24466}#
                                                 #{s 24467}#
                                                 #{mod 24469}#))
                                             #{tmp 25433}#)
                                           (syntax-violation
                                             #f
                                             "source expression failed to match any pattern"
                                             #{e 24464}#)))
                                       (values
                                         'call
                                         #f
                                         #{e 24464}#
                                         #{w 24466}#
                                         #{s 24467}#
                                         #{mod 24469}#)))))))))))))))
           (if (if (vector? #{e 24464}#)
                 (if (= (vector-length #{e 24464}#) 4)
                   (eq? (vector-ref #{e 24464}# 0) 'syntax-object)
                   #f)
                 #f)
             (#{syntax-type 4442}#
               (vector-ref #{e 24464}# 1)
               #{r 24465}#
               (let ((#{w2 25491}# (vector-ref #{e 24464}# 2)))
                 (let ((#{m1 25492}# (car #{w 24466}#))
                       (#{s1 25493}# (cdr #{w 24466}#)))
                   (if (null? #{m1 25492}#)
                     (if (null? #{s1 25493}#)
                       #{w2 25491}#
                       (cons (car #{w2 25491}#)
                             (let ((#{m2 25504}# (cdr #{w2 25491}#)))
                               (if (null? #{m2 25504}#)
                                 #{s1 25493}#
                                 (append #{s1 25493}# #{m2 25504}#)))))
                     (cons (let ((#{m2 25512}# (car #{w2 25491}#)))
                             (if (null? #{m2 25512}#)
                               #{m1 25492}#
                               (append #{m1 25492}# #{m2 25512}#)))
                           (let ((#{m2 25520}# (cdr #{w2 25491}#)))
                             (if (null? #{m2 25520}#)
                               #{s1 25493}#
                               (append #{s1 25493}# #{m2 25520}#)))))))
               (let ((#{t 25525}#
                       (#{source-annotation 4404}# #{e 24464}#)))
                 (if #{t 25525}# #{t 25525}# #{s 24467}#))
               #{rib 24468}#
               (let ((#{t 25823}# (vector-ref #{e 24464}# 3)))
                 (if #{t 25823}# #{t 25823}# #{mod 24469}#))
               #{for-car? 24470}#)
             (if (self-evaluating? #{e 24464}#)
               (values
                 'constant
                 #f
                 #{e 24464}#
                 #{w 24466}#
                 #{s 24467}#
                 #{mod 24469}#)
               (values
                 'other
                 #f
                 #{e 24464}#
                 #{w 24466}#
                 #{s 24467}#
                 #{mod 24469}#)))))))
   (#{expand 4443}#
     (lambda (#{e 25832}#
              #{r 25833}#
              #{w 25834}#
              #{mod 25835}#)
       (call-with-values
         (lambda ()
           (#{syntax-type 4442}#
             #{e 25832}#
             #{r 25833}#
             #{w 25834}#
             (#{source-annotation 4404}# #{e 25832}#)
             #f
             #{mod 25835}#
             #f))
         (lambda (#{type 26039}#
                  #{value 26040}#
                  #{e 26041}#
                  #{w 26042}#
                  #{s 26043}#
                  #{mod 26044}#)
           (#{expand-expr 4444}#
             #{type 26039}#
             #{value 26040}#
             #{e 26041}#
             #{r 25833}#
             #{w 26042}#
             #{s 26043}#
             #{mod 26044}#)))))
   (#{expand-expr 4444}#
     (lambda (#{type 26047}#
              #{value 26048}#
              #{e 26049}#
              #{r 26050}#
              #{w 26051}#
              #{s 26052}#
              #{mod 26053}#)
       (if (eqv? #{type 26047}# 'lexical)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 3)
           #{s 26052}#
           #{e 26049}#
           #{value 26048}#)
         (if (if (eqv? #{type 26047}# 'core)
               #t
               (eqv? #{type 26047}# 'core-form))
           (#{value 26048}#
             #{e 26049}#
             #{r 26050}#
             #{w 26051}#
             #{s 26052}#
             #{mod 26053}#)
           (if (eqv? #{type 26047}# 'module-ref)
             (call-with-values
               (lambda ()
                 (#{value 26048}#
                   #{e 26049}#
                   #{r 26050}#
                   #{w 26051}#))
               (lambda (#{e 26079}#
                        #{r 26080}#
                        #{w 26081}#
                        #{s 26082}#
                        #{mod 26083}#)
                 (#{expand 4443}#
                   #{e 26079}#
                   #{r 26080}#
                   #{w 26081}#
                   #{mod 26083}#)))
             (if (eqv? #{type 26047}# 'lexical-call)
               (#{expand-call 4445}#
                 (let ((#{id 26264}# (car #{e 26049}#)))
                   (#{build-lexical-reference 4380}#
                     'fun
                     (#{source-annotation 4404}# #{id 26264}#)
                     (if (if (vector? #{id 26264}#)
                           (if (= (vector-length #{id 26264}#) 4)
                             (eq? (vector-ref #{id 26264}# 0) 'syntax-object)
                             #f)
                           #f)
                       (syntax->datum #{id 26264}#)
                       #{id 26264}#)
                     #{value 26048}#))
                 #{e 26049}#
                 #{r 26050}#
                 #{w 26051}#
                 #{s 26052}#
                 #{mod 26053}#)
               (if (eqv? #{type 26047}# 'global-call)
                 (#{expand-call 4445}#
                   (#{build-global-reference 4383}#
                     (#{source-annotation 4404}# (car #{e 26049}#))
                     (if (if (vector? #{value 26048}#)
                           (if (= (vector-length #{value 26048}#) 4)
                             (eq? (vector-ref #{value 26048}# 0)
                                  'syntax-object)
                             #f)
                           #f)
                       (vector-ref #{value 26048}# 1)
                       #{value 26048}#)
                     (if (if (vector? #{value 26048}#)
                           (if (= (vector-length #{value 26048}#) 4)
                             (eq? (vector-ref #{value 26048}# 0)
                                  'syntax-object)
                             #f)
                           #f)
                       (vector-ref #{value 26048}# 3)
                       #{mod 26053}#))
                   #{e 26049}#
                   #{r 26050}#
                   #{w 26051}#
                   #{s 26052}#
                   #{mod 26053}#)
                 (if (eqv? #{type 26047}# 'constant)
                   (let ((#{exp 26986}#
                           (#{strip 4456}#
                             (let ((#{x 26999}#
                                     (begin
                                       (if (if (pair? #{e 26049}#)
                                             #{s 26052}#
                                             #f)
                                         (set-source-properties!
                                           #{e 26049}#
                                           #{s 26052}#))
                                       #{e 26049}#)))
                               (if (if (null? (car #{w 26051}#))
                                     (null? (cdr #{w 26051}#))
                                     #f)
                                 #{x 26999}#
                                 (if (if (vector? #{x 26999}#)
                                       (if (= (vector-length #{x 26999}#) 4)
                                         (eq? (vector-ref #{x 26999}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
                                   (let ((#{expression 27031}#
                                           (vector-ref #{x 26999}# 1))
                                         (#{wrap 27032}#
                                           (let ((#{w2 27040}#
                                                   (vector-ref #{x 26999}# 2)))
                                             (let ((#{m1 27041}#
                                                     (car #{w 26051}#))
                                                   (#{s1 27042}#
                                                     (cdr #{w 26051}#)))
                                               (if (null? #{m1 27041}#)
                                                 (if (null? #{s1 27042}#)
                                                   #{w2 27040}#
                                                   (cons (car #{w2 27040}#)
                                                         (let ((#{m2 27057}#
                                                                 (cdr #{w2 27040}#)))
                                                           (if (null? #{m2 27057}#)
                                                             #{s1 27042}#
                                                             (append
                                                               #{s1 27042}#
                                                               #{m2 27057}#)))))
                                                 (cons (let ((#{m2 27065}#
                                                               (car #{w2 27040}#)))
                                                         (if (null? #{m2 27065}#)
                                                           #{m1 27041}#
                                                           (append
                                                             #{m1 27041}#
                                                             #{m2 27065}#)))
                                                       (let ((#{m2 27073}#
                                                               (cdr #{w2 27040}#)))
                                                         (if (null? #{m2 27073}#)
                                                           #{s1 27042}#
                                                           (append
                                                             #{s1 27042}#
                                                             #{m2 27073}#))))))))
                                         (#{module 27033}#
                                           (vector-ref #{x 26999}# 3)))
                                     (vector
                                       'syntax-object
                                       #{expression 27031}#
                                       #{wrap 27032}#
                                       #{module 27033}#))
                                   (if (null? #{x 26999}#)
                                     #{x 26999}#
                                     (vector
                                       'syntax-object
                                       #{x 26999}#
                                       #{w 26051}#
                                       #{mod 26053}#)))))
                             '(()))))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 1)
                       #{s 26052}#
                       #{exp 26986}#))
                   (if (eqv? #{type 26047}# 'global)
                     (#{analyze-variable 4382}#
                       #{mod 26053}#
                       #{value 26048}#
                       (lambda (#{mod 27098}# #{var 27099}# #{public? 27100}#)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 5)
                           #{s 26052}#
                           #{mod 27098}#
                           #{var 27099}#
                           #{public? 27100}#))
                       (lambda (#{var 27108}#)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 7)
                           #{s 26052}#
                           #{var 27108}#)))
                     (if (eqv? #{type 26047}# 'call)
                       (#{expand-call 4445}#
                         (#{expand 4443}#
                           (car #{e 26049}#)
                           #{r 26050}#
                           #{w 26051}#
                           #{mod 26053}#)
                         #{e 26049}#
                         #{r 26050}#
                         #{w 26051}#
                         #{s 26052}#
                         #{mod 26053}#)
                       (if (eqv? #{type 26047}# 'begin-form)
                         (let ((#{tmp 27286}#
                                 ($sc-dispatch
                                   #{e 26049}#
                                   '(_ any . each-any))))
                           (if #{tmp 27286}#
                             (@apply
                               (lambda (#{e1 27290}# #{e2 27291}#)
                                 (#{expand-sequence 4438}#
                                   (cons #{e1 27290}# #{e2 27291}#)
                                   #{r 26050}#
                                   #{w 26051}#
                                   #{s 26052}#
                                   #{mod 26053}#))
                               #{tmp 27286}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{e 26049}#)))
                         (if (eqv? #{type 26047}# 'local-syntax-form)
                           (#{expand-local-syntax 4448}#
                             #{value 26048}#
                             #{e 26049}#
                             #{r 26050}#
                             #{w 26051}#
                             #{s 26052}#
                             #{mod 26053}#
                             #{expand-sequence 4438}#)
                           (if (eqv? #{type 26047}# 'eval-when-form)
                             (let ((#{tmp 27471}#
                                     ($sc-dispatch
                                       #{e 26049}#
                                       '(_ each-any any . each-any))))
                               (if #{tmp 27471}#
                                 (@apply
                                   (lambda (#{x 27475}#
                                            #{e1 27476}#
                                            #{e2 27477}#)
                                     (let ((#{when-list 27478}#
                                             (#{parse-when-list 4441}#
                                               #{e 26049}#
                                               #{x 27475}#)))
                                       (if (memq 'eval #{when-list 27478}#)
                                         (#{expand-sequence 4438}#
                                           (cons #{e1 27476}# #{e2 27477}#)
                                           #{r 26050}#
                                           #{w 26051}#
                                           #{s 26052}#
                                           #{mod 26053}#)
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 0)
                                           #f))))
                                   #{tmp 27471}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   #{e 26049}#)))
                             (if (if (eqv? #{type 26047}# 'define-form)
                                   #t
                                   (if (eqv? #{type 26047}#
                                             'define-syntax-form)
                                     #t
                                     (eqv? #{type 26047}#
                                           'define-syntax-parameter-form)))
                               (syntax-violation
                                 #f
                                 "definition in expression context"
                                 #{e 26049}#
                                 (if (if (null? (car #{w 26051}#))
                                       (null? (cdr #{w 26051}#))
                                       #f)
                                   #{value 26048}#
                                   (if (if (vector? #{value 26048}#)
                                         (if (= (vector-length #{value 26048}#)
                                                4)
                                           (eq? (vector-ref #{value 26048}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (let ((#{expression 27688}#
                                             (vector-ref #{value 26048}# 1))
                                           (#{wrap 27689}#
                                             (let ((#{w2 27699}#
                                                     (vector-ref
                                                       #{value 26048}#
                                                       2)))
                                               (let ((#{m1 27700}#
                                                       (car #{w 26051}#))
                                                     (#{s1 27701}#
                                                       (cdr #{w 26051}#)))
                                                 (if (null? #{m1 27700}#)
                                                   (if (null? #{s1 27701}#)
                                                     #{w2 27699}#
                                                     (cons (car #{w2 27699}#)
                                                           (let ((#{m2 27718}#
                                                                   (cdr #{w2 27699}#)))
                                                             (if (null? #{m2 27718}#)
                                                               #{s1 27701}#
                                                               (append
                                                                 #{s1 27701}#
                                                                 #{m2 27718}#)))))
                                                   (cons (let ((#{m2 27726}#
                                                                 (car #{w2 27699}#)))
                                                           (if (null? #{m2 27726}#)
                                                             #{m1 27700}#
                                                             (append
                                                               #{m1 27700}#
                                                               #{m2 27726}#)))
                                                         (let ((#{m2 27734}#
                                                                 (cdr #{w2 27699}#)))
                                                           (if (null? #{m2 27734}#)
                                                             #{s1 27701}#
                                                             (append
                                                               #{s1 27701}#
                                                               #{m2 27734}#))))))))
                                           (#{module 27690}#
                                             (vector-ref #{value 26048}# 3)))
                                       (vector
                                         'syntax-object
                                         #{expression 27688}#
                                         #{wrap 27689}#
                                         #{module 27690}#))
                                     (if (null? #{value 26048}#)
                                       #{value 26048}#
                                       (vector
                                         'syntax-object
                                         #{value 26048}#
                                         #{w 26051}#
                                         #{mod 26053}#)))))
                               (if (eqv? #{type 26047}# 'syntax)
                                 (syntax-violation
                                   #f
                                   "reference to pattern variable outside syntax form"
                                   (let ((#{x 27769}#
                                           (begin
                                             (if (if (pair? #{e 26049}#)
                                                   #{s 26052}#
                                                   #f)
                                               (set-source-properties!
                                                 #{e 26049}#
                                                 #{s 26052}#))
                                             #{e 26049}#)))
                                     (if (if (null? (car #{w 26051}#))
                                           (null? (cdr #{w 26051}#))
                                           #f)
                                       #{x 27769}#
                                       (if (if (vector? #{x 27769}#)
                                             (if (= (vector-length #{x 27769}#)
                                                    4)
                                               (eq? (vector-ref #{x 27769}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
                                         (let ((#{expression 27801}#
                                                 (vector-ref #{x 27769}# 1))
                                               (#{wrap 27802}#
                                                 (let ((#{w2 27810}#
                                                         (vector-ref
                                                           #{x 27769}#
                                                           2)))
                                                   (let ((#{m1 27811}#
                                                           (car #{w 26051}#))
                                                         (#{s1 27812}#
                                                           (cdr #{w 26051}#)))
                                                     (if (null? #{m1 27811}#)
                                                       (if (null? #{s1 27812}#)
                                                         #{w2 27810}#
                                                         (cons (car #{w2 27810}#)
                                                               (let ((#{m2 27827}#
                                                                       (cdr #{w2 27810}#)))
                                                                 (if (null? #{m2 27827}#)
                                                                   #{s1 27812}#
                                                                   (append
                                                                     #{s1 27812}#
                                                                     #{m2 27827}#)))))
                                                       (cons (let ((#{m2 27835}#
                                                                     (car #{w2 27810}#)))
                                                               (if (null? #{m2 27835}#)
                                                                 #{m1 27811}#
                                                                 (append
                                                                   #{m1 27811}#
                                                                   #{m2 27835}#)))
                                                             (let ((#{m2 27843}#
                                                                     (cdr #{w2 27810}#)))
                                                               (if (null? #{m2 27843}#)
                                                                 #{s1 27812}#
                                                                 (append
                                                                   #{s1 27812}#
                                                                   #{m2 27843}#))))))))
                                               (#{module 27803}#
                                                 (vector-ref #{x 27769}# 3)))
                                           (vector
                                             'syntax-object
                                             #{expression 27801}#
                                             #{wrap 27802}#
                                             #{module 27803}#))
                                         (if (null? #{x 27769}#)
                                           #{x 27769}#
                                           (vector
                                             'syntax-object
                                             #{x 27769}#
                                             #{w 26051}#
                                             #{mod 26053}#))))))
                                 (if (eqv? #{type 26047}# 'displaced-lexical)
                                   (syntax-violation
                                     #f
                                     "reference to identifier outside its scope"
                                     (let ((#{x 27870}#
                                             (begin
                                               (if (if (pair? #{e 26049}#)
                                                     #{s 26052}#
                                                     #f)
                                                 (set-source-properties!
                                                   #{e 26049}#
                                                   #{s 26052}#))
                                               #{e 26049}#)))
                                       (if (if (null? (car #{w 26051}#))
                                             (null? (cdr #{w 26051}#))
                                             #f)
                                         #{x 27870}#
                                         (if (if (vector? #{x 27870}#)
                                               (if (= (vector-length
                                                        #{x 27870}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 27870}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (let ((#{expression 27902}#
                                                   (vector-ref #{x 27870}# 1))
                                                 (#{wrap 27903}#
                                                   (let ((#{w2 27911}#
                                                           (vector-ref
                                                             #{x 27870}#
                                                             2)))
                                                     (let ((#{m1 27912}#
                                                             (car #{w 26051}#))
                                                           (#{s1 27913}#
                                                             (cdr #{w 26051}#)))
                                                       (if (null? #{m1 27912}#)
                                                         (if (null? #{s1 27913}#)
                                                           #{w2 27911}#
                                                           (cons (car #{w2 27911}#)
                                                                 (let ((#{m2 27928}#
                                                                         (cdr #{w2 27911}#)))
                                                                   (if (null? #{m2 27928}#)
                                                                     #{s1 27913}#
                                                                     (append
                                                                       #{s1 27913}#
                                                                       #{m2 27928}#)))))
                                                         (cons (let ((#{m2 27936}#
                                                                       (car #{w2 27911}#)))
                                                                 (if (null? #{m2 27936}#)
                                                                   #{m1 27912}#
                                                                   (append
                                                                     #{m1 27912}#
                                                                     #{m2 27936}#)))
                                                               (let ((#{m2 27944}#
                                                                       (cdr #{w2 27911}#)))
                                                                 (if (null? #{m2 27944}#)
                                                                   #{s1 27913}#
                                                                   (append
                                                                     #{s1 27913}#
                                                                     #{m2 27944}#))))))))
                                                 (#{module 27904}#
                                                   (vector-ref #{x 27870}# 3)))
                                             (vector
                                               'syntax-object
                                               #{expression 27902}#
                                               #{wrap 27903}#
                                               #{module 27904}#))
                                           (if (null? #{x 27870}#)
                                             #{x 27870}#
                                             (vector
                                               'syntax-object
                                               #{x 27870}#
                                               #{w 26051}#
                                               #{mod 26053}#))))))
                                   (syntax-violation
                                     #f
                                     "unexpected syntax"
                                     (let ((#{x 27968}#
                                             (begin
                                               (if (if (pair? #{e 26049}#)
                                                     #{s 26052}#
                                                     #f)
                                                 (set-source-properties!
                                                   #{e 26049}#
                                                   #{s 26052}#))
                                               #{e 26049}#)))
                                       (if (if (null? (car #{w 26051}#))
                                             (null? (cdr #{w 26051}#))
                                             #f)
                                         #{x 27968}#
                                         (if (if (vector? #{x 27968}#)
                                               (if (= (vector-length
                                                        #{x 27968}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 27968}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (let ((#{expression 28000}#
                                                   (vector-ref #{x 27968}# 1))
                                                 (#{wrap 28001}#
                                                   (let ((#{w2 28009}#
                                                           (vector-ref
                                                             #{x 27968}#
                                                             2)))
                                                     (let ((#{m1 28010}#
                                                             (car #{w 26051}#))
                                                           (#{s1 28011}#
                                                             (cdr #{w 26051}#)))
                                                       (if (null? #{m1 28010}#)
                                                         (if (null? #{s1 28011}#)
                                                           #{w2 28009}#
                                                           (cons (car #{w2 28009}#)
                                                                 (let ((#{m2 28026}#
                                                                         (cdr #{w2 28009}#)))
                                                                   (if (null? #{m2 28026}#)
                                                                     #{s1 28011}#
                                                                     (append
                                                                       #{s1 28011}#
                                                                       #{m2 28026}#)))))
                                                         (cons (let ((#{m2 28034}#
                                                                       (car #{w2 28009}#)))
                                                                 (if (null? #{m2 28034}#)
                                                                   #{m1 28010}#
                                                                   (append
                                                                     #{m1 28010}#
                                                                     #{m2 28034}#)))
                                                               (let ((#{m2 28042}#
                                                                       (cdr #{w2 28009}#)))
                                                                 (if (null? #{m2 28042}#)
                                                                   #{s1 28011}#
                                                                   (append
                                                                     #{s1 28011}#
                                                                     #{m2 28042}#))))))))
                                                 (#{module 28002}#
                                                   (vector-ref #{x 27968}# 3)))
                                             (vector
                                               'syntax-object
                                               #{expression 28000}#
                                               #{wrap 28001}#
                                               #{module 28002}#))
                                           (if (null? #{x 27968}#)
                                             #{x 27968}#
                                             (vector
                                               'syntax-object
                                               #{x 27968}#
                                               #{w 26051}#
                                               #{mod 26053}#))))))))))))))))))))))
   (#{expand-call 4445}#
     (lambda (#{x 28057}#
              #{e 28058}#
              #{r 28059}#
              #{w 28060}#
              #{s 28061}#
              #{mod 28062}#)
       (let ((#{tmp 28064}#
               ($sc-dispatch #{e 28058}# '(any . each-any))))
         (if #{tmp 28064}#
           (@apply
             (lambda (#{e0 28068}# #{e1 28069}#)
               (#{build-call 4377}#
                 #{s 28061}#
                 #{x 28057}#
                 (map (lambda (#{e 28161}#)
                        (#{expand 4443}#
                          #{e 28161}#
                          #{r 28059}#
                          #{w 28060}#
                          #{mod 28062}#))
                      #{e1 28069}#)))
             #{tmp 28064}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
             #{e 28058}#)))))
   (#{expand-macro 4446}#
     (lambda (#{p 28249}#
              #{e 28250}#
              #{r 28251}#
              #{w 28252}#
              #{s 28253}#
              #{rib 28254}#
              #{mod 28255}#)
       (letrec*
         ((#{rebuild-macro-output 28256}#
            (lambda (#{x 28363}# #{m 28364}#)
              (if (pair? #{x 28363}#)
                (let ((#{e 28368}#
                        (cons (#{rebuild-macro-output 28256}#
                                (car #{x 28363}#)
                                #{m 28364}#)
                              (#{rebuild-macro-output 28256}#
                                (cdr #{x 28363}#)
                                #{m 28364}#))))
                  (begin
                    (if (if (pair? #{e 28368}#) #{s 28253}# #f)
                      (set-source-properties! #{e 28368}# #{s 28253}#))
                    #{e 28368}#))
                (if (if (vector? #{x 28363}#)
                      (if (= (vector-length #{x 28363}#) 4)
                        (eq? (vector-ref #{x 28363}# 0) 'syntax-object)
                        #f)
                      #f)
                  (let ((#{w 28384}# (vector-ref #{x 28363}# 2)))
                    (let ((#{ms 28385}# (car #{w 28384}#))
                          (#{s 28386}# (cdr #{w 28384}#)))
                      (if (if (pair? #{ms 28385}#)
                            (eq? (car #{ms 28385}#) #f)
                            #f)
                        (let ((#{expression 28394}# (vector-ref #{x 28363}# 1))
                              (#{wrap 28395}#
                                (cons (cdr #{ms 28385}#)
                                      (if #{rib 28254}#
                                        (cons #{rib 28254}# (cdr #{s 28386}#))
                                        (cdr #{s 28386}#))))
                              (#{module 28396}# (vector-ref #{x 28363}# 3)))
                          (vector
                            'syntax-object
                            #{expression 28394}#
                            #{wrap 28395}#
                            #{module 28396}#))
                        (let ((#{expression 28406}#
                                (let ((#{e 28411}# (vector-ref #{x 28363}# 1)))
                                  (begin
                                    (if (if (pair? #{e 28411}#) #{s 28386}# #f)
                                      (set-source-properties!
                                        #{e 28411}#
                                        #{s 28386}#))
                                    #{e 28411}#)))
                              (#{wrap 28407}#
                                (cons (cons #{m 28364}# #{ms 28385}#)
                                      (if #{rib 28254}#
                                        (cons #{rib 28254}#
                                              (cons 'shift #{s 28386}#))
                                        (cons 'shift #{s 28386}#))))
                              (#{module 28408}# (vector-ref #{x 28363}# 3)))
                          (vector
                            'syntax-object
                            #{expression 28406}#
                            #{wrap 28407}#
                            #{module 28408}#)))))
                  (if (vector? #{x 28363}#)
                    (let ((#{n 28423}# (vector-length #{x 28363}#)))
                      (let ((#{v 28424}#
                              (let ((#{e 28432}# (make-vector #{n 28423}#)))
                                (begin
                                  (if (if (pair? #{e 28432}#) #{x 28363}# #f)
                                    (set-source-properties!
                                      #{e 28432}#
                                      #{x 28363}#))
                                  #{e 28432}#))))
                        (letrec*
                          ((#{loop 28425}#
                             (lambda (#{i 28486}#)
                               (if (= #{i 28486}# #{n 28423}#)
                                 #{v 28424}#
                                 (begin
                                   (vector-set!
                                     #{v 28424}#
                                     #{i 28486}#
                                     (#{rebuild-macro-output 28256}#
                                       (vector-ref #{x 28363}# #{i 28486}#)
                                       #{m 28364}#))
                                   (#{loop 28425}# (#{1+}# #{i 28486}#)))))))
                          (#{loop 28425}# 0))))
                    (if (symbol? #{x 28363}#)
                      (syntax-violation
                        #f
                        "encountered raw symbol in macro output"
                        (let ((#{s 28492}# (cdr #{w 28252}#)))
                          (let ((#{x 28496}#
                                  (begin
                                    (if (if (pair? #{e 28250}#) #{s 28492}# #f)
                                      (set-source-properties!
                                        #{e 28250}#
                                        #{s 28492}#))
                                    #{e 28250}#)))
                            (if (if (null? (car #{w 28252}#))
                                  (null? (cdr #{w 28252}#))
                                  #f)
                              #{x 28496}#
                              (if (if (vector? #{x 28496}#)
                                    (if (= (vector-length #{x 28496}#) 4)
                                      (eq? (vector-ref #{x 28496}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (let ((#{expression 28528}#
                                        (vector-ref #{x 28496}# 1))
                                      (#{wrap 28529}#
                                        (let ((#{w2 28537}#
                                                (vector-ref #{x 28496}# 2)))
                                          (let ((#{m1 28538}#
                                                  (car #{w 28252}#))
                                                (#{s1 28539}#
                                                  (cdr #{w 28252}#)))
                                            (if (null? #{m1 28538}#)
                                              (if (null? #{s1 28539}#)
                                                #{w2 28537}#
                                                (cons (car #{w2 28537}#)
                                                      (let ((#{m2 28554}#
                                                              (cdr #{w2 28537}#)))
                                                        (if (null? #{m2 28554}#)
                                                          #{s1 28539}#
                                                          (append
                                                            #{s1 28539}#
                                                            #{m2 28554}#)))))
                                              (cons (let ((#{m2 28562}#
                                                            (car #{w2 28537}#)))
                                                      (if (null? #{m2 28562}#)
                                                        #{m1 28538}#
                                                        (append
                                                          #{m1 28538}#
                                                          #{m2 28562}#)))
                                                    (let ((#{m2 28570}#
                                                            (cdr #{w2 28537}#)))
                                                      (if (null? #{m2 28570}#)
                                                        #{s1 28539}#
                                                        (append
                                                          #{s1 28539}#
                                                          #{m2 28570}#))))))))
                                      (#{module 28530}#
                                        (vector-ref #{x 28496}# 3)))
                                  (vector
                                    'syntax-object
                                    #{expression 28528}#
                                    #{wrap 28529}#
                                    #{module 28530}#))
                                (if (null? #{x 28496}#)
                                  #{x 28496}#
                                  (vector
                                    'syntax-object
                                    #{x 28496}#
                                    #{w 28252}#
                                    #{mod 28255}#))))))
                        #{x 28363}#)
                      (begin
                        (if (if (pair? #{x 28363}#) #{s 28253}# #f)
                          (set-source-properties! #{x 28363}# #{s 28253}#))
                        #{x 28363}#))))))))
         (#{rebuild-macro-output 28256}#
           (#{p 28249}#
             (let ((#{w 28263}#
                     (cons (cons #f (car #{w 28252}#))
                           (cons 'shift (cdr #{w 28252}#)))))
               (let ((#{x 28268}#
                       (begin
                         (if (if (pair? #{e 28250}#) #{s 28253}# #f)
                           (set-source-properties! #{e 28250}# #{s 28253}#))
                         #{e 28250}#)))
                 (if (if (null? (car #{w 28263}#))
                       (null? (cdr #{w 28263}#))
                       #f)
                   #{x 28268}#
                   (if (if (vector? #{x 28268}#)
                         (if (= (vector-length #{x 28268}#) 4)
                           (eq? (vector-ref #{x 28268}# 0) 'syntax-object)
                           #f)
                         #f)
                     (let ((#{expression 28306}# (vector-ref #{x 28268}# 1))
                           (#{wrap 28307}#
                             (let ((#{w2 28315}# (vector-ref #{x 28268}# 2)))
                               (let ((#{m1 28316}# (car #{w 28263}#))
                                     (#{s1 28317}# (cdr #{w 28263}#)))
                                 (if (null? #{m1 28316}#)
                                   (if (null? #{s1 28317}#)
                                     #{w2 28315}#
                                     (cons (car #{w2 28315}#)
                                           (let ((#{m2 28332}#
                                                   (cdr #{w2 28315}#)))
                                             (if (null? #{m2 28332}#)
                                               #{s1 28317}#
                                               (append
                                                 #{s1 28317}#
                                                 #{m2 28332}#)))))
                                   (cons (let ((#{m2 28340}#
                                                 (car #{w2 28315}#)))
                                           (if (null? #{m2 28340}#)
                                             #{m1 28316}#
                                             (append
                                               #{m1 28316}#
                                               #{m2 28340}#)))
                                         (let ((#{m2 28348}#
                                                 (cdr #{w2 28315}#)))
                                           (if (null? #{m2 28348}#)
                                             #{s1 28317}#
                                             (append
                                               #{s1 28317}#
                                               #{m2 28348}#))))))))
                           (#{module 28308}# (vector-ref #{x 28268}# 3)))
                       (vector
                         'syntax-object
                         #{expression 28306}#
                         #{wrap 28307}#
                         #{module 28308}#))
                     (if (null? #{x 28268}#)
                       #{x 28268}#
                       (vector
                         'syntax-object
                         #{x 28268}#
                         #{w 28263}#
                         #{mod 28255}#)))))))
           (gensym "m")))))
   (#{expand-body 4447}#
     (lambda (#{body 28600}#
              #{outer-form 28601}#
              #{r 28602}#
              #{w 28603}#
              #{mod 28604}#)
       (let ((#{r 28605}#
               (cons '("placeholder" placeholder) #{r 28602}#)))
         (let ((#{ribcage 28606}# (vector 'ribcage '() '() '())))
           (let ((#{w 28607}#
                   (cons (car #{w 28603}#)
                         (cons #{ribcage 28606}# (cdr #{w 28603}#)))))
             (letrec*
               ((#{parse 28608}#
                  (lambda (#{body 28716}#
                           #{ids 28717}#
                           #{labels 28718}#
                           #{var-ids 28719}#
                           #{vars 28720}#
                           #{vals 28721}#
                           #{bindings 28722}#)
                    (if (null? #{body 28716}#)
                      (syntax-violation
                        #f
                        "no expressions in body"
                        #{outer-form 28601}#)
                      (let ((#{e 28723}# (cdr (car #{body 28716}#)))
                            (#{er 28724}# (car (car #{body 28716}#))))
                        (call-with-values
                          (lambda ()
                            (#{syntax-type 4442}#
                              #{e 28723}#
                              #{er 28724}#
                              '(())
                              (#{source-annotation 4404}# #{er 28724}#)
                              #{ribcage 28606}#
                              #{mod 28604}#
                              #f))
                          (lambda (#{type 28930}#
                                   #{value 28931}#
                                   #{e 28932}#
                                   #{w 28933}#
                                   #{s 28934}#
                                   #{mod 28935}#)
                            (if (eqv? #{type 28930}# 'define-form)
                              (let ((#{id 28939}#
                                      (if (if (null? (car #{w 28933}#))
                                            (null? (cdr #{w 28933}#))
                                            #f)
                                        #{value 28931}#
                                        (if (if (vector? #{value 28931}#)
                                              (if (= (vector-length
                                                       #{value 28931}#)
                                                     4)
                                                (eq? (vector-ref
                                                       #{value 28931}#
                                                       0)
                                                     'syntax-object)
                                                #f)
                                              #f)
                                          (let ((#{expression 28984}#
                                                  (vector-ref
                                                    #{value 28931}#
                                                    1))
                                                (#{wrap 28985}#
                                                  (let ((#{w2 28995}#
                                                          (vector-ref
                                                            #{value 28931}#
                                                            2)))
                                                    (let ((#{m1 28996}#
                                                            (car #{w 28933}#))
                                                          (#{s1 28997}#
                                                            (cdr #{w 28933}#)))
                                                      (if (null? #{m1 28996}#)
                                                        (if (null? #{s1 28997}#)
                                                          #{w2 28995}#
                                                          (cons (car #{w2 28995}#)
                                                                (let ((#{m2 29014}#
                                                                        (cdr #{w2 28995}#)))
                                                                  (if (null? #{m2 29014}#)
                                                                    #{s1 28997}#
                                                                    (append
                                                                      #{s1 28997}#
                                                                      #{m2 29014}#)))))
                                                        (cons (let ((#{m2 29022}#
                                                                      (car #{w2 28995}#)))
                                                                (if (null? #{m2 29022}#)
                                                                  #{m1 28996}#
                                                                  (append
                                                                    #{m1 28996}#
                                                                    #{m2 29022}#)))
                                                              (let ((#{m2 29030}#
                                                                      (cdr #{w2 28995}#)))
                                                                (if (null? #{m2 29030}#)
                                                                  #{s1 28997}#
                                                                  (append
                                                                    #{s1 28997}#
                                                                    #{m2 29030}#))))))))
                                                (#{module 28986}#
                                                  (vector-ref
                                                    #{value 28931}#
                                                    3)))
                                            (vector
                                              'syntax-object
                                              #{expression 28984}#
                                              #{wrap 28985}#
                                              #{module 28986}#))
                                          (if (null? #{value 28931}#)
                                            #{value 28931}#
                                            (vector
                                              'syntax-object
                                              #{value 28931}#
                                              #{w 28933}#
                                              #{mod 28935}#)))))
                                    (#{label 28940}#
                                      (symbol->string (gensym "i"))))
                                (let ((#{var 28941}#
                                        (let ((#{id 29091}#
                                                (if (if (vector? #{id 28939}#)
                                                      (if (= (vector-length
                                                               #{id 28939}#)
                                                             4)
                                                        (eq? (vector-ref
                                                               #{id 28939}#
                                                               0)
                                                             'syntax-object)
                                                        #f)
                                                      #f)
                                                  (vector-ref #{id 28939}# 1)
                                                  #{id 28939}#)))
                                          (gensym
                                            (string-append
                                              (symbol->string #{id 29091}#)
                                              " ")))))
                                  (begin
                                    (begin
                                      (let ((#{update 28950}#
                                              (cons (vector-ref #{id 28939}# 1)
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      1))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          1
                                          #{update 28950}#))
                                      (let ((#{update 29062}#
                                              (cons (car (vector-ref
                                                           #{id 28939}#
                                                           2))
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      2))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          2
                                          #{update 29062}#))
                                      (let ((#{update 29077}#
                                              (cons #{label 28940}#
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      3))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          3
                                          #{update 29077}#)))
                                    (#{parse 28608}#
                                      (cdr #{body 28716}#)
                                      (cons #{id 28939}# #{ids 28717}#)
                                      (cons #{label 28940}# #{labels 28718}#)
                                      (cons #{id 28939}# #{var-ids 28719}#)
                                      (cons #{var 28941}# #{vars 28720}#)
                                      (cons (cons #{er 28724}#
                                                  (if (if (null? (car #{w 28933}#))
                                                        (null? (cdr #{w 28933}#))
                                                        #f)
                                                    #{e 28932}#
                                                    (if (if (vector?
                                                              #{e 28932}#)
                                                          (if (= (vector-length
                                                                   #{e 28932}#)
                                                                 4)
                                                            (eq? (vector-ref
                                                                   #{e 28932}#
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
                                                      (let ((#{expression 29143}#
                                                              (vector-ref
                                                                #{e 28932}#
                                                                1))
                                                            (#{wrap 29144}#
                                                              (let ((#{w2 29154}#
                                                                      (vector-ref
                                                                        #{e 28932}#
                                                                        2)))
                                                                (let ((#{m1 29155}#
                                                                        (car #{w 28933}#))
                                                                      (#{s1 29156}#
                                                                        (cdr #{w 28933}#)))
                                                                  (if (null? #{m1 29155}#)
                                                                    (if (null? #{s1 29156}#)
                                                                      #{w2 29154}#
                                                                      (cons (car #{w2 29154}#)
                                                                            (let ((#{m2 29173}#
                                                                                    (cdr #{w2 29154}#)))
                                                                              (if (null? #{m2 29173}#)
                                                                                #{s1 29156}#
                                                                                (append
                                                                                  #{s1 29156}#
                                                                                  #{m2 29173}#)))))
                                                                    (cons (let ((#{m2 29181}#
                                                                                  (car #{w2 29154}#)))
                                                                            (if (null? #{m2 29181}#)
                                                                              #{m1 29155}#
                                                                              (append
                                                                                #{m1 29155}#
                                                                                #{m2 29181}#)))
                                                                          (let ((#{m2 29189}#
                                                                                  (cdr #{w2 29154}#)))
                                                                            (if (null? #{m2 29189}#)
                                                                              #{s1 29156}#
                                                                              (append
                                                                                #{s1 29156}#
                                                                                #{m2 29189}#))))))))
                                                            (#{module 29145}#
                                                              (vector-ref
                                                                #{e 28932}#
                                                                3)))
                                                        (vector
                                                          'syntax-object
                                                          #{expression 29143}#
                                                          #{wrap 29144}#
                                                          #{module 29145}#))
                                                      (if (null? #{e 28932}#)
                                                        #{e 28932}#
                                                        (vector
                                                          'syntax-object
                                                          #{e 28932}#
                                                          #{w 28933}#
                                                          #{mod 28935}#)))))
                                            #{vals 28721}#)
                                      (cons (cons 'lexical #{var 28941}#)
                                            #{bindings 28722}#)))))
                              (if (if (eqv? #{type 28930}# 'define-syntax-form)
                                    #t
                                    (eqv? #{type 28930}#
                                          'define-syntax-parameter-form))
                                (let ((#{id 29220}#
                                        (if (if (null? (car #{w 28933}#))
                                              (null? (cdr #{w 28933}#))
                                              #f)
                                          #{value 28931}#
                                          (if (if (vector? #{value 28931}#)
                                                (if (= (vector-length
                                                         #{value 28931}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{value 28931}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (let ((#{expression 29264}#
                                                    (vector-ref
                                                      #{value 28931}#
                                                      1))
                                                  (#{wrap 29265}#
                                                    (let ((#{w2 29275}#
                                                            (vector-ref
                                                              #{value 28931}#
                                                              2)))
                                                      (let ((#{m1 29276}#
                                                              (car #{w 28933}#))
                                                            (#{s1 29277}#
                                                              (cdr #{w 28933}#)))
                                                        (if (null? #{m1 29276}#)
                                                          (if (null? #{s1 29277}#)
                                                            #{w2 29275}#
                                                            (cons (car #{w2 29275}#)
                                                                  (let ((#{m2 29294}#
                                                                          (cdr #{w2 29275}#)))
                                                                    (if (null? #{m2 29294}#)
                                                                      #{s1 29277}#
                                                                      (append
                                                                        #{s1 29277}#
                                                                        #{m2 29294}#)))))
                                                          (cons (let ((#{m2 29302}#
                                                                        (car #{w2 29275}#)))
                                                                  (if (null? #{m2 29302}#)
                                                                    #{m1 29276}#
                                                                    (append
                                                                      #{m1 29276}#
                                                                      #{m2 29302}#)))
                                                                (let ((#{m2 29310}#
                                                                        (cdr #{w2 29275}#)))
                                                                  (if (null? #{m2 29310}#)
                                                                    #{s1 29277}#
                                                                    (append
                                                                      #{s1 29277}#
                                                                      #{m2 29310}#))))))))
                                                  (#{module 29266}#
                                                    (vector-ref
                                                      #{value 28931}#
                                                      3)))
                                              (vector
                                                'syntax-object
                                                #{expression 29264}#
                                                #{wrap 29265}#
                                                #{module 29266}#))
                                            (if (null? #{value 28931}#)
                                              #{value 28931}#
                                              (vector
                                                'syntax-object
                                                #{value 28931}#
                                                #{w 28933}#
                                                #{mod 28935}#)))))
                                      (#{label 29221}#
                                        (symbol->string (gensym "i"))))
                                  (begin
                                    (begin
                                      (let ((#{update 29230}#
                                              (cons (vector-ref #{id 29220}# 1)
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      1))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          1
                                          #{update 29230}#))
                                      (let ((#{update 29342}#
                                              (cons (car (vector-ref
                                                           #{id 29220}#
                                                           2))
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      2))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          2
                                          #{update 29342}#))
                                      (let ((#{update 29357}#
                                              (cons #{label 29221}#
                                                    (vector-ref
                                                      #{ribcage 28606}#
                                                      3))))
                                        (vector-set!
                                          #{ribcage 28606}#
                                          3
                                          #{update 29357}#)))
                                    (#{parse 28608}#
                                      (cdr #{body 28716}#)
                                      (cons #{id 29220}# #{ids 28717}#)
                                      (cons #{label 29221}# #{labels 28718}#)
                                      #{var-ids 28719}#
                                      #{vars 28720}#
                                      #{vals 28721}#
                                      (cons (cons (if (eq? #{type 28930}#
                                                           'define-syntax-parameter-form)
                                                    'syntax-parameter
                                                    'macro)
                                                  (cons #{er 28724}#
                                                        (if (if (null? (car #{w 28933}#))
                                                              (null? (cdr #{w 28933}#))
                                                              #f)
                                                          #{e 28932}#
                                                          (if (if (vector?
                                                                    #{e 28932}#)
                                                                (if (= (vector-length
                                                                         #{e 28932}#)
                                                                       4)
                                                                  (eq? (vector-ref
                                                                         #{e 28932}#
                                                                         0)
                                                                       'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (let ((#{expression 29396}#
                                                                    (vector-ref
                                                                      #{e 28932}#
                                                                      1))
                                                                  (#{wrap 29397}#
                                                                    (let ((#{w2 29407}#
                                                                            (vector-ref
                                                                              #{e 28932}#
                                                                              2)))
                                                                      (let ((#{m1 29408}#
                                                                              (car #{w 28933}#))
                                                                            (#{s1 29409}#
                                                                              (cdr #{w 28933}#)))
                                                                        (if (null? #{m1 29408}#)
                                                                          (if (null? #{s1 29409}#)
                                                                            #{w2 29407}#
                                                                            (cons (car #{w2 29407}#)
                                                                                  (let ((#{m2 29426}#
                                                                                          (cdr #{w2 29407}#)))
                                                                                    (if (null? #{m2 29426}#)
                                                                                      #{s1 29409}#
                                                                                      (append
                                                                                        #{s1 29409}#
                                                                                        #{m2 29426}#)))))
                                                                          (cons (let ((#{m2 29434}#
                                                                                        (car #{w2 29407}#)))
                                                                                  (if (null? #{m2 29434}#)
                                                                                    #{m1 29408}#
                                                                                    (append
                                                                                      #{m1 29408}#
                                                                                      #{m2 29434}#)))
                                                                                (let ((#{m2 29442}#
                                                                                        (cdr #{w2 29407}#)))
                                                                                  (if (null? #{m2 29442}#)
                                                                                    #{s1 29409}#
                                                                                    (append
                                                                                      #{s1 29409}#
                                                                                      #{m2 29442}#))))))))
                                                                  (#{module 29398}#
                                                                    (vector-ref
                                                                      #{e 28932}#
                                                                      3)))
                                                              (vector
                                                                'syntax-object
                                                                #{expression 29396}#
                                                                #{wrap 29397}#
                                                                #{module 29398}#))
                                                            (if (null? #{e 28932}#)
                                                              #{e 28932}#
                                                              (vector
                                                                'syntax-object
                                                                #{e 28932}#
                                                                #{w 28933}#
                                                                #{mod 28935}#))))))
                                            #{bindings 28722}#))))
                                (if (eqv? #{type 28930}# 'begin-form)
                                  (let ((#{tmp 29469}#
                                          ($sc-dispatch
                                            #{e 28932}#
                                            '(_ . each-any))))
                                    (if #{tmp 29469}#
                                      (@apply
                                        (lambda (#{e1 29473}#)
                                          (#{parse 28608}#
                                            (letrec*
                                              ((#{f 29474}#
                                                 (lambda (#{forms 29690}#)
                                                   (if (null? #{forms 29690}#)
                                                     (cdr #{body 28716}#)
                                                     (cons (cons #{er 28724}#
                                                                 (let ((#{x 29694}#
                                                                         (car #{forms 29690}#)))
                                                                   (if (if (null? (car #{w 28933}#))
                                                                         (null? (cdr #{w 28933}#))
                                                                         #f)
                                                                     #{x 29694}#
                                                                     (if (if (vector?
                                                                               #{x 29694}#)
                                                                           (if (= (vector-length
                                                                                    #{x 29694}#)
                                                                                  4)
                                                                             (eq? (vector-ref
                                                                                    #{x 29694}#
                                                                                    0)
                                                                                  'syntax-object)
                                                                             #f)
                                                                           #f)
                                                                       (let ((#{expression 29712}#
                                                                               (vector-ref
                                                                                 #{x 29694}#
                                                                                 1))
                                                                             (#{wrap 29713}#
                                                                               (let ((#{w2 29721}#
                                                                                       (vector-ref
                                                                                         #{x 29694}#
                                                                                         2)))
                                                                                 (let ((#{m1 29722}#
                                                                                         (car #{w 28933}#))
                                                                                       (#{s1 29723}#
                                                                                         (cdr #{w 28933}#)))
                                                                                   (if (null? #{m1 29722}#)
                                                                                     (if (null? #{s1 29723}#)
                                                                                       #{w2 29721}#
                                                                                       (cons (car #{w2 29721}#)
                                                                                             (let ((#{m2 29738}#
                                                                                                     (cdr #{w2 29721}#)))
                                                                                               (if (null? #{m2 29738}#)
                                                                                                 #{s1 29723}#
                                                                                                 (append
                                                                                                   #{s1 29723}#
                                                                                                   #{m2 29738}#)))))
                                                                                     (cons (let ((#{m2 29746}#
                                                                                                   (car #{w2 29721}#)))
                                                                                             (if (null? #{m2 29746}#)
                                                                                               #{m1 29722}#
                                                                                               (append
                                                                                                 #{m1 29722}#
                                                                                                 #{m2 29746}#)))
                                                                                           (let ((#{m2 29754}#
                                                                                                   (cdr #{w2 29721}#)))
                                                                                             (if (null? #{m2 29754}#)
                                                                                               #{s1 29723}#
                                                                                               (append
                                                                                                 #{s1 29723}#
                                                                                                 #{m2 29754}#))))))))
                                                                             (#{module 29714}#
                                                                               (vector-ref
                                                                                 #{x 29694}#
                                                                                 3)))
                                                                         (vector
                                                                           'syntax-object
                                                                           #{expression 29712}#
                                                                           #{wrap 29713}#
                                                                           #{module 29714}#))
                                                                       (if (null? #{x 29694}#)
                                                                         #{x 29694}#
                                                                         (vector
                                                                           'syntax-object
                                                                           #{x 29694}#
                                                                           #{w 28933}#
                                                                           #{mod 28935}#))))))
                                                           (#{f 29474}#
                                                             (cdr #{forms 29690}#)))))))
                                              (#{f 29474}# #{e1 29473}#))
                                            #{ids 28717}#
                                            #{labels 28718}#
                                            #{var-ids 28719}#
                                            #{vars 28720}#
                                            #{vals 28721}#
                                            #{bindings 28722}#))
                                        #{tmp 29469}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        #{e 28932}#)))
                                  (if (eqv? #{type 28930}# 'local-syntax-form)
                                    (#{expand-local-syntax 4448}#
                                      #{value 28931}#
                                      #{e 28932}#
                                      #{er 28724}#
                                      #{w 28933}#
                                      #{s 28934}#
                                      #{mod 28935}#
                                      (lambda (#{forms 29780}#
                                               #{er 29781}#
                                               #{w 29782}#
                                               #{s 29783}#
                                               #{mod 29784}#)
                                        (#{parse 28608}#
                                          (letrec*
                                            ((#{f 29785}#
                                               (lambda (#{forms 30001}#)
                                                 (if (null? #{forms 30001}#)
                                                   (cdr #{body 28716}#)
                                                   (cons (cons #{er 29781}#
                                                               (let ((#{x 30005}#
                                                                       (car #{forms 30001}#)))
                                                                 (if (if (null? (car #{w 29782}#))
                                                                       (null? (cdr #{w 29782}#))
                                                                       #f)
                                                                   #{x 30005}#
                                                                   (if (if (vector?
                                                                             #{x 30005}#)
                                                                         (if (= (vector-length
                                                                                  #{x 30005}#)
                                                                                4)
                                                                           (eq? (vector-ref
                                                                                  #{x 30005}#
                                                                                  0)
                                                                                'syntax-object)
                                                                           #f)
                                                                         #f)
                                                                     (let ((#{expression 30023}#
                                                                             (vector-ref
                                                                               #{x 30005}#
                                                                               1))
                                                                           (#{wrap 30024}#
                                                                             (let ((#{w2 30032}#
                                                                                     (vector-ref
                                                                                       #{x 30005}#
                                                                                       2)))
                                                                               (let ((#{m1 30033}#
                                                                                       (car #{w 29782}#))
                                                                                     (#{s1 30034}#
                                                                                       (cdr #{w 29782}#)))
                                                                                 (if (null? #{m1 30033}#)
                                                                                   (if (null? #{s1 30034}#)
                                                                                     #{w2 30032}#
                                                                                     (cons (car #{w2 30032}#)
                                                                                           (let ((#{m2 30049}#
                                                                                                   (cdr #{w2 30032}#)))
                                                                                             (if (null? #{m2 30049}#)
                                                                                               #{s1 30034}#
                                                                                               (append
                                                                                                 #{s1 30034}#
                                                                                                 #{m2 30049}#)))))
                                                                                   (cons (let ((#{m2 30057}#
                                                                                                 (car #{w2 30032}#)))
                                                                                           (if (null? #{m2 30057}#)
                                                                                             #{m1 30033}#
                                                                                             (append
                                                                                               #{m1 30033}#
                                                                                               #{m2 30057}#)))
                                                                                         (let ((#{m2 30065}#
                                                                                                 (cdr #{w2 30032}#)))
                                                                                           (if (null? #{m2 30065}#)
                                                                                             #{s1 30034}#
                                                                                             (append
                                                                                               #{s1 30034}#
                                                                                               #{m2 30065}#))))))))
                                                                           (#{module 30025}#
                                                                             (vector-ref
                                                                               #{x 30005}#
                                                                               3)))
                                                                       (vector
                                                                         'syntax-object
                                                                         #{expression 30023}#
                                                                         #{wrap 30024}#
                                                                         #{module 30025}#))
                                                                     (if (null? #{x 30005}#)
                                                                       #{x 30005}#
                                                                       (vector
                                                                         'syntax-object
                                                                         #{x 30005}#
                                                                         #{w 29782}#
                                                                         #{mod 29784}#))))))
                                                         (#{f 29785}#
                                                           (cdr #{forms 30001}#)))))))
                                            (#{f 29785}# #{forms 29780}#))
                                          #{ids 28717}#
                                          #{labels 28718}#
                                          #{var-ids 28719}#
                                          #{vars 28720}#
                                          #{vals 28721}#
                                          #{bindings 28722}#)))
                                    (if (null? #{ids 28717}#)
                                      (#{build-sequence 4392}#
                                        #f
                                        (map (lambda (#{x 30154}#)
                                               (#{expand 4443}#
                                                 (cdr #{x 30154}#)
                                                 (car #{x 30154}#)
                                                 '(())
                                                 #{mod 28935}#))
                                             (cons (cons #{er 28724}#
                                                         (let ((#{x 30233}#
                                                                 (begin
                                                                   (if (if (pair? #{e 28932}#)
                                                                         #{s 28934}#
                                                                         #f)
                                                                     (set-source-properties!
                                                                       #{e 28932}#
                                                                       #{s 28934}#))
                                                                   #{e 28932}#)))
                                                           (if (if (null? (car #{w 28933}#))
                                                                 (null? (cdr #{w 28933}#))
                                                                 #f)
                                                             #{x 30233}#
                                                             (if (if (vector?
                                                                       #{x 30233}#)
                                                                   (if (= (vector-length
                                                                            #{x 30233}#)
                                                                          4)
                                                                     (eq? (vector-ref
                                                                            #{x 30233}#
                                                                            0)
                                                                          'syntax-object)
                                                                     #f)
                                                                   #f)
                                                               (let ((#{expression 30265}#
                                                                       (vector-ref
                                                                         #{x 30233}#
                                                                         1))
                                                                     (#{wrap 30266}#
                                                                       (let ((#{w2 30274}#
                                                                               (vector-ref
                                                                                 #{x 30233}#
                                                                                 2)))
                                                                         (let ((#{m1 30275}#
                                                                                 (car #{w 28933}#))
                                                                               (#{s1 30276}#
                                                                                 (cdr #{w 28933}#)))
                                                                           (if (null? #{m1 30275}#)
                                                                             (if (null? #{s1 30276}#)
                                                                               #{w2 30274}#
                                                                               (cons (car #{w2 30274}#)
                                                                                     (let ((#{m2 30291}#
                                                                                             (cdr #{w2 30274}#)))
                                                                                       (if (null? #{m2 30291}#)
                                                                                         #{s1 30276}#
                                                                                         (append
                                                                                           #{s1 30276}#
                                                                                           #{m2 30291}#)))))
                                                                             (cons (let ((#{m2 30299}#
                                                                                           (car #{w2 30274}#)))
                                                                                     (if (null? #{m2 30299}#)
                                                                                       #{m1 30275}#
                                                                                       (append
                                                                                         #{m1 30275}#
                                                                                         #{m2 30299}#)))
                                                                                   (let ((#{m2 30307}#
                                                                                           (cdr #{w2 30274}#)))
                                                                                     (if (null? #{m2 30307}#)
                                                                                       #{s1 30276}#
                                                                                       (append
                                                                                         #{s1 30276}#
                                                                                         #{m2 30307}#))))))))
                                                                     (#{module 30267}#
                                                                       (vector-ref
                                                                         #{x 30233}#
                                                                         3)))
                                                                 (vector
                                                                   'syntax-object
                                                                   #{expression 30265}#
                                                                   #{wrap 30266}#
                                                                   #{module 30267}#))
                                                               (if (null? #{x 30233}#)
                                                                 #{x 30233}#
                                                                 (vector
                                                                   'syntax-object
                                                                   #{x 30233}#
                                                                   #{w 28933}#
                                                                   #{mod 28935}#))))))
                                                   (cdr #{body 28716}#))))
                                      (begin
                                        (if (not (#{valid-bound-ids? 4433}#
                                                   #{ids 28717}#))
                                          (syntax-violation
                                            #f
                                            "invalid or duplicate identifier in definition"
                                            #{outer-form 28601}#))
                                        (letrec*
                                          ((#{loop 30406}#
                                             (lambda (#{bs 30409}#
                                                      #{er-cache 30410}#
                                                      #{r-cache 30411}#)
                                               (if (not (null? #{bs 30409}#))
                                                 (let ((#{b 30412}#
                                                         (car #{bs 30409}#)))
                                                   (if (let ((#{t 30415}#
                                                               (car #{b 30412}#)))
                                                         (if (eq? #{t 30415}#
                                                                  'macro)
                                                           #t
                                                           (eq? #{t 30415}#
                                                                'syntax-parameter)))
                                                     (let ((#{er 30417}#
                                                             (car (cdr #{b 30412}#))))
                                                       (let ((#{r-cache 30418}#
                                                               (if (eq? #{er 30417}#
                                                                        #{er-cache 30410}#)
                                                                 #{r-cache 30411}#
                                                                 (#{macros-only-env 4407}#
                                                                   #{er 30417}#))))
                                                         (begin
                                                           (set-cdr!
                                                             #{b 30412}#
                                                             (#{eval-local-transformer 4449}#
                                                               (#{expand 4443}#
                                                                 (cdr (cdr #{b 30412}#))
                                                                 #{r-cache 30418}#
                                                                 '(())
                                                                 #{mod 28935}#)
                                                               #{mod 28935}#))
                                                           (if (eq? (car #{b 30412}#)
                                                                    'syntax-parameter)
                                                             (set-cdr!
                                                               #{b 30412}#
                                                               (list (cdr #{b 30412}#))))
                                                           (#{loop 30406}#
                                                             (cdr #{bs 30409}#)
                                                             #{er 30417}#
                                                             #{r-cache 30418}#))))
                                                     (#{loop 30406}#
                                                       (cdr #{bs 30409}#)
                                                       #{er-cache 30410}#
                                                       #{r-cache 30411}#)))))))
                                          (#{loop 30406}#
                                            #{bindings 28722}#
                                            #f
                                            #f))
                                        (set-cdr!
                                          #{r 28605}#
                                          (#{extend-env 4405}#
                                            #{labels 28718}#
                                            #{bindings 28722}#
                                            (cdr #{r 28605}#)))
                                        (#{build-letrec 4395}#
                                          #f
                                          #t
                                          (reverse
                                            (map syntax->datum
                                                 #{var-ids 28719}#))
                                          (reverse #{vars 28720}#)
                                          (map (lambda (#{x 30846}#)
                                                 (#{expand 4443}#
                                                   (cdr #{x 30846}#)
                                                   (car #{x 30846}#)
                                                   '(())
                                                   #{mod 28935}#))
                                               (reverse #{vals 28721}#))
                                          (#{build-sequence 4392}#
                                            #f
                                            (map (lambda (#{x 30990}#)
                                                   (#{expand 4443}#
                                                     (cdr #{x 30990}#)
                                                     (car #{x 30990}#)
                                                     '(())
                                                     #{mod 28935}#))
                                                 (cons (cons #{er 28724}#
                                                             (let ((#{x 31069}#
                                                                     (begin
                                                                       (if (if (pair? #{e 28932}#)
                                                                             #{s 28934}#
                                                                             #f)
                                                                         (set-source-properties!
                                                                           #{e 28932}#
                                                                           #{s 28934}#))
                                                                       #{e 28932}#)))
                                                               (if (if (null? (car #{w 28933}#))
                                                                     (null? (cdr #{w 28933}#))
                                                                     #f)
                                                                 #{x 31069}#
                                                                 (if (if (vector?
                                                                           #{x 31069}#)
                                                                       (if (= (vector-length
                                                                                #{x 31069}#)
                                                                              4)
                                                                         (eq? (vector-ref
                                                                                #{x 31069}#
                                                                                0)
                                                                              'syntax-object)
                                                                         #f)
                                                                       #f)
                                                                   (let ((#{expression 31101}#
                                                                           (vector-ref
                                                                             #{x 31069}#
                                                                             1))
                                                                         (#{wrap 31102}#
                                                                           (let ((#{w2 31110}#
                                                                                   (vector-ref
                                                                                     #{x 31069}#
                                                                                     2)))
                                                                             (let ((#{m1 31111}#
                                                                                     (car #{w 28933}#))
                                                                                   (#{s1 31112}#
                                                                                     (cdr #{w 28933}#)))
                                                                               (if (null? #{m1 31111}#)
                                                                                 (if (null? #{s1 31112}#)
                                                                                   #{w2 31110}#
                                                                                   (cons (car #{w2 31110}#)
                                                                                         (let ((#{m2 31127}#
                                                                                                 (cdr #{w2 31110}#)))
                                                                                           (if (null? #{m2 31127}#)
                                                                                             #{s1 31112}#
                                                                                             (append
                                                                                               #{s1 31112}#
                                                                                               #{m2 31127}#)))))
                                                                                 (cons (let ((#{m2 31135}#
                                                                                               (car #{w2 31110}#)))
                                                                                         (if (null? #{m2 31135}#)
                                                                                           #{m1 31111}#
                                                                                           (append
                                                                                             #{m1 31111}#
                                                                                             #{m2 31135}#)))
                                                                                       (let ((#{m2 31143}#
                                                                                               (cdr #{w2 31110}#)))
                                                                                         (if (null? #{m2 31143}#)
                                                                                           #{s1 31112}#
                                                                                           (append
                                                                                             #{s1 31112}#
                                                                                             #{m2 31143}#))))))))
                                                                         (#{module 31103}#
                                                                           (vector-ref
                                                                             #{x 31069}#
                                                                             3)))
                                                                     (vector
                                                                       'syntax-object
                                                                       #{expression 31101}#
                                                                       #{wrap 31102}#
                                                                       #{module 31103}#))
                                                                   (if (null? #{x 31069}#)
                                                                     #{x 31069}#
                                                                     (vector
                                                                       'syntax-object
                                                                       #{x 31069}#
                                                                       #{w 28933}#
                                                                       #{mod 28935}#))))))
                                                       (cdr #{body 28716}#))))))))))))))))))
               (#{parse 28608}#
                 (map (lambda (#{x 28611}#)
                        (cons #{r 28605}#
                              (if (if (null? (car #{w 28607}#))
                                    (null? (cdr #{w 28607}#))
                                    #f)
                                #{x 28611}#
                                (if (if (vector? #{x 28611}#)
                                      (if (= (vector-length #{x 28611}#) 4)
                                        (eq? (vector-ref #{x 28611}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (let ((#{expression 28647}#
                                          (vector-ref #{x 28611}# 1))
                                        (#{wrap 28648}#
                                          (let ((#{w2 28658}#
                                                  (vector-ref #{x 28611}# 2)))
                                            (let ((#{m1 28659}#
                                                    (car #{w 28607}#))
                                                  (#{s1 28660}#
                                                    (cdr #{w 28607}#)))
                                              (if (null? #{m1 28659}#)
                                                (if (null? #{s1 28660}#)
                                                  #{w2 28658}#
                                                  (cons (car #{w2 28658}#)
                                                        (let ((#{m2 28677}#
                                                                (cdr #{w2 28658}#)))
                                                          (if (null? #{m2 28677}#)
                                                            #{s1 28660}#
                                                            (append
                                                              #{s1 28660}#
                                                              #{m2 28677}#)))))
                                                (cons (let ((#{m2 28685}#
                                                              (car #{w2 28658}#)))
                                                        (if (null? #{m2 28685}#)
                                                          #{m1 28659}#
                                                          (append
                                                            #{m1 28659}#
                                                            #{m2 28685}#)))
                                                      (let ((#{m2 28693}#
                                                              (cdr #{w2 28658}#)))
                                                        (if (null? #{m2 28693}#)
                                                          #{s1 28660}#
                                                          (append
                                                            #{s1 28660}#
                                                            #{m2 28693}#))))))))
                                        (#{module 28649}#
                                          (vector-ref #{x 28611}# 3)))
                                    (vector
                                      'syntax-object
                                      #{expression 28647}#
                                      #{wrap 28648}#
                                      #{module 28649}#))
                                  (if (null? #{x 28611}#)
                                    #{x 28611}#
                                    (vector
                                      'syntax-object
                                      #{x 28611}#
                                      #{w 28607}#
                                      #{mod 28604}#))))))
                      #{body 28600}#)
                 '()
                 '()
                 '()
                 '()
                 '()
                 '())))))))
   (#{expand-local-syntax 4448}#
     (lambda (#{rec? 31158}#
              #{e 31159}#
              #{r 31160}#
              #{w 31161}#
              #{s 31162}#
              #{mod 31163}#
              #{k 31164}#)
       (let ((#{tmp 31166}#
               ($sc-dispatch
                 #{e 31159}#
                 '(_ #(each (any any)) any . each-any))))
         (if #{tmp 31166}#
           (@apply
             (lambda (#{id 31170}#
                      #{val 31171}#
                      #{e1 31172}#
                      #{e2 31173}#)
               (if (not (#{valid-bound-ids? 4433}# #{id 31170}#))
                 (syntax-violation
                   #f
                   "duplicate bound keyword"
                   #{e 31159}#)
                 (let ((#{labels 31270}#
                         (#{gen-labels 4413}# #{id 31170}#)))
                   (let ((#{new-w 31271}#
                           (#{make-binding-wrap 4424}#
                             #{id 31170}#
                             #{labels 31270}#
                             #{w 31161}#)))
                     (#{k 31164}#
                       (cons #{e1 31172}# #{e2 31173}#)
                       (#{extend-env 4405}#
                         #{labels 31270}#
                         (let ((#{trans-r 31311}#
                                 (#{macros-only-env 4407}# #{r 31160}#)))
                           (begin
                             (if #{rec? 31158}# (if #f #f))
                             (map (lambda (#{x 31312}#)
                                    (cons 'macro
                                          (#{eval-local-transformer 4449}#
                                            (#{expand 4443}#
                                              #{x 31312}#
                                              #{trans-r 31311}#
                                              (if #{rec? 31158}#
                                                #{new-w 31271}#
                                                #{w 31161}#)
                                              #{mod 31163}#)
                                            #{mod 31163}#)))
                                  #{val 31171}#)))
                         #{r 31160}#)
                       #{new-w 31271}#
                       #{s 31162}#
                       #{mod 31163}#)))))
             #{tmp 31166}#)
           (syntax-violation
             #f
             "bad local syntax definition"
             (let ((#{x 31645}#
                     (begin
                       (if (if (pair? #{e 31159}#) #{s 31162}# #f)
                         (set-source-properties! #{e 31159}# #{s 31162}#))
                       #{e 31159}#)))
               (if (if (null? (car #{w 31161}#))
                     (null? (cdr #{w 31161}#))
                     #f)
                 #{x 31645}#
                 (if (if (vector? #{x 31645}#)
                       (if (= (vector-length #{x 31645}#) 4)
                         (eq? (vector-ref #{x 31645}# 0) 'syntax-object)
                         #f)
                       #f)
                   (let ((#{expression 31677}# (vector-ref #{x 31645}# 1))
                         (#{wrap 31678}#
                           (let ((#{w2 31686}# (vector-ref #{x 31645}# 2)))
                             (let ((#{m1 31687}# (car #{w 31161}#))
                                   (#{s1 31688}# (cdr #{w 31161}#)))
                               (if (null? #{m1 31687}#)
                                 (if (null? #{s1 31688}#)
                                   #{w2 31686}#
                                   (cons (car #{w2 31686}#)
                                         (let ((#{m2 31703}#
                                                 (cdr #{w2 31686}#)))
                                           (if (null? #{m2 31703}#)
                                             #{s1 31688}#
                                             (append
                                               #{s1 31688}#
                                               #{m2 31703}#)))))
                                 (cons (let ((#{m2 31711}# (car #{w2 31686}#)))
                                         (if (null? #{m2 31711}#)
                                           #{m1 31687}#
                                           (append #{m1 31687}# #{m2 31711}#)))
                                       (let ((#{m2 31719}# (cdr #{w2 31686}#)))
                                         (if (null? #{m2 31719}#)
                                           #{s1 31688}#
                                           (append
                                             #{s1 31688}#
                                             #{m2 31719}#))))))))
                         (#{module 31679}# (vector-ref #{x 31645}# 3)))
                     (vector
                       'syntax-object
                       #{expression 31677}#
                       #{wrap 31678}#
                       #{module 31679}#))
                   (if (null? #{x 31645}#)
                     #{x 31645}#
                     (vector
                       'syntax-object
                       #{x 31645}#
                       #{w 31161}#
                       #{mod 31163}#))))))))))
   (#{eval-local-transformer 4449}#
     (lambda (#{expanded 31737}# #{mod 31738}#)
       (let ((#{p 31739}# (primitive-eval #{expanded 31737}#)))
         (if (procedure? #{p 31739}#)
           #{p 31739}#
           (syntax-violation
             #f
             "nonprocedure transformer"
             #{p 31739}#)))))
   (#{ellipsis? 4451}#
     (lambda (#{x 6020}#)
       (if (if (if (vector? #{x 6020}#)
                 (if (= (vector-length #{x 6020}#) 4)
                   (eq? (vector-ref #{x 6020}# 0) 'syntax-object)
                   #f)
                 #f)
             (symbol? (vector-ref #{x 6020}# 1))
             #f)
         (#{free-id=? 4431}#
           #{x 6020}#
           '#(syntax-object
              ...
              ((top)
               #(ribcage () () ())
               #(ribcage () () ())
               #(ribcage #(x) #((top)) #("i2338"))
               #(ribcage
                 (lambda-var-list
                   gen-var
                   strip
                   expand-lambda-case
                   lambda*-formals
                   expand-simple-lambda
                   lambda-formals
                   ellipsis?
                   expand-void
                   eval-local-transformer
                   expand-local-syntax
                   expand-body
                   expand-macro
                   expand-call
                   expand-expr
                   expand
                   syntax-type
                   parse-when-list
                   expand-install-global
                   expand-top-sequence
                   expand-sequence
                   source-wrap
                   wrap
                   bound-id-member?
                   distinct-bound-ids?
                   valid-bound-ids?
                   bound-id=?
                   free-id=?
                   resolve-identifier
                   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
                   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"
                  "i401"
                  "i400"
                  "i398"
                  "i395"
                  "i394"
                  "i393"
                  "i391"
                  "i390"
                  "i388"
                  "i386"
                  "i384"
                  "i382"
                  "i380"
                  "i378"
                  "i376"
                  "i374"
                  "i371"
                  "i369"
                  "i368"
                  "i366"
                  "i364"
                  "i362"
                  "i360"
                  "i359"
                  "i358"
                  "i357"
                  "i355"
                  "i354"
                  "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"))
               #(ribcage () () ()))
              (hygiene guile)))
         #f)))
   (#{lambda-formals 4452}#
     (lambda (#{orig-args 31744}#)
       (letrec*
         ((#{req 31745}#
            (lambda (#{args 31749}# #{rreq 31750}#)
              (let ((#{tmp 31752}# ($sc-dispatch #{args 31749}# '())))
                (if #{tmp 31752}#
                  (@apply
                    (lambda ()
                      (#{check 31746}# (reverse #{rreq 31750}#) #f))
                    #{tmp 31752}#)
                  (let ((#{tmp 31868}#
                          ($sc-dispatch #{args 31749}# '(any . any))))
                    (if (if #{tmp 31868}#
                          (@apply
                            (lambda (#{a 31872}# #{b 31873}#)
                              (if (symbol? #{a 31872}#)
                                #t
                                (if (if (vector? #{a 31872}#)
                                      (if (= (vector-length #{a 31872}#) 4)
                                        (eq? (vector-ref #{a 31872}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 31872}# 1))
                                  #f)))
                            #{tmp 31868}#)
                          #f)
                      (@apply
                        (lambda (#{a 31900}# #{b 31901}#)
                          (#{req 31745}#
                            #{b 31901}#
                            (cons #{a 31900}# #{rreq 31750}#)))
                        #{tmp 31868}#)
                      (let ((#{tmp 31902}# (list #{args 31749}#)))
                        (if (@apply
                              (lambda (#{r 31904}#)
                                (if (symbol? #{r 31904}#)
                                  #t
                                  (if (if (vector? #{r 31904}#)
                                        (if (= (vector-length #{r 31904}#) 4)
                                          (eq? (vector-ref #{r 31904}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref #{r 31904}# 1))
                                    #f)))
                              #{tmp 31902}#)
                          (@apply
                            (lambda (#{r 31934}#)
                              (#{check 31746}#
                                (reverse #{rreq 31750}#)
                                #{r 31934}#))
                            #{tmp 31902}#)
                          (syntax-violation
                            'lambda
                            "invalid argument list"
                            #{orig-args 31744}#
                            #{args 31749}#)))))))))
          (#{check 31746}#
            (lambda (#{req 32058}# #{rest 32059}#)
              (if (#{distinct-bound-ids? 4434}#
                    (if #{rest 32059}#
                      (cons #{rest 32059}# #{req 32058}#)
                      #{req 32058}#))
                (values #{req 32058}# #f #{rest 32059}# #f)
                (syntax-violation
                  'lambda
                  "duplicate identifier in argument list"
                  #{orig-args 31744}#)))))
         (#{req 31745}# #{orig-args 31744}# '()))))
   (#{expand-simple-lambda 4453}#
     (lambda (#{e 32168}#
              #{r 32169}#
              #{w 32170}#
              #{s 32171}#
              #{mod 32172}#
              #{req 32173}#
              #{rest 32174}#
              #{meta 32175}#
              #{body 32176}#)
       (let ((#{ids 32177}#
               (if #{rest 32174}#
                 (append #{req 32173}# (list #{rest 32174}#))
                 #{req 32173}#)))
         (let ((#{vars 32178}#
                 (map #{gen-var 4457}# #{ids 32177}#)))
           (let ((#{labels 32179}#
                   (#{gen-labels 4413}# #{ids 32177}#)))
             (#{build-simple-lambda 4386}#
               #{s 32171}#
               (map syntax->datum #{req 32173}#)
               (if #{rest 32174}#
                 (syntax->datum #{rest 32174}#)
                 #f)
               #{vars 32178}#
               #{meta 32175}#
               (#{expand-body 4447}#
                 #{body 32176}#
                 (let ((#{x 32368}#
                         (begin
                           (if (if (pair? #{e 32168}#) #{s 32171}# #f)
                             (set-source-properties! #{e 32168}# #{s 32171}#))
                           #{e 32168}#)))
                   (if (if (null? (car #{w 32170}#))
                         (null? (cdr #{w 32170}#))
                         #f)
                     #{x 32368}#
                     (if (if (vector? #{x 32368}#)
                           (if (= (vector-length #{x 32368}#) 4)
                             (eq? (vector-ref #{x 32368}# 0) 'syntax-object)
                             #f)
                           #f)
                       (let ((#{expression 32400}# (vector-ref #{x 32368}# 1))
                             (#{wrap 32401}#
                               (let ((#{w2 32409}# (vector-ref #{x 32368}# 2)))
                                 (let ((#{m1 32410}# (car #{w 32170}#))
                                       (#{s1 32411}# (cdr #{w 32170}#)))
                                   (if (null? #{m1 32410}#)
                                     (if (null? #{s1 32411}#)
                                       #{w2 32409}#
                                       (cons (car #{w2 32409}#)
                                             (let ((#{m2 32426}#
                                                     (cdr #{w2 32409}#)))
                                               (if (null? #{m2 32426}#)
                                                 #{s1 32411}#
                                                 (append
                                                   #{s1 32411}#
                                                   #{m2 32426}#)))))
                                     (cons (let ((#{m2 32434}#
                                                   (car #{w2 32409}#)))
                                             (if (null? #{m2 32434}#)
                                               #{m1 32410}#
                                               (append
                                                 #{m1 32410}#
                                                 #{m2 32434}#)))
                                           (let ((#{m2 32442}#
                                                   (cdr #{w2 32409}#)))
                                             (if (null? #{m2 32442}#)
                                               #{s1 32411}#
                                               (append
                                                 #{s1 32411}#
                                                 #{m2 32442}#))))))))
                             (#{module 32402}# (vector-ref #{x 32368}# 3)))
                         (vector
                           'syntax-object
                           #{expression 32400}#
                           #{wrap 32401}#
                           #{module 32402}#))
                       (if (null? #{x 32368}#)
                         #{x 32368}#
                         (vector
                           'syntax-object
                           #{x 32368}#
                           #{w 32170}#
                           #{mod 32172}#)))))
                 (#{extend-var-env 4406}#
                   #{labels 32179}#
                   #{vars 32178}#
                   #{r 32169}#)
                 (#{make-binding-wrap 4424}#
                   #{ids 32177}#
                   #{labels 32179}#
                   #{w 32170}#)
                 #{mod 32172}#)))))))
   (#{lambda*-formals 4454}#
     (lambda (#{orig-args 32673}#)
       (letrec*
         ((#{req 32674}#
            (lambda (#{args 32681}# #{rreq 32682}#)
              (let ((#{tmp 32684}# ($sc-dispatch #{args 32681}# '())))
                (if #{tmp 32684}#
                  (@apply
                    (lambda ()
                      (#{check 32678}#
                        (reverse #{rreq 32682}#)
                        '()
                        #f
                        '()))
                    #{tmp 32684}#)
                  (let ((#{tmp 32803}#
                          ($sc-dispatch #{args 32681}# '(any . any))))
                    (if (if #{tmp 32803}#
                          (@apply
                            (lambda (#{a 32807}# #{b 32808}#)
                              (if (symbol? #{a 32807}#)
                                #t
                                (if (if (vector? #{a 32807}#)
                                      (if (= (vector-length #{a 32807}#) 4)
                                        (eq? (vector-ref #{a 32807}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 32807}# 1))
                                  #f)))
                            #{tmp 32803}#)
                          #f)
                      (@apply
                        (lambda (#{a 32835}# #{b 32836}#)
                          (#{req 32674}#
                            #{b 32836}#
                            (cons #{a 32835}# #{rreq 32682}#)))
                        #{tmp 32803}#)
                      (let ((#{tmp 32837}#
                              ($sc-dispatch #{args 32681}# '(any . any))))
                        (if (if #{tmp 32837}#
                              (@apply
                                (lambda (#{a 32841}# #{b 32842}#)
                                  (eq? (syntax->datum #{a 32841}#) #:optional))
                                #{tmp 32837}#)
                              #f)
                          (@apply
                            (lambda (#{a 32843}# #{b 32844}#)
                              (#{opt 32675}#
                                #{b 32844}#
                                (reverse #{rreq 32682}#)
                                '()))
                            #{tmp 32837}#)
                          (let ((#{tmp 32847}#
                                  ($sc-dispatch #{args 32681}# '(any . any))))
                            (if (if #{tmp 32847}#
                                  (@apply
                                    (lambda (#{a 32851}# #{b 32852}#)
                                      (eq? (syntax->datum #{a 32851}#) #:key))
                                    #{tmp 32847}#)
                                  #f)
                              (@apply
                                (lambda (#{a 32853}# #{b 32854}#)
                                  (#{key 32676}#
                                    #{b 32854}#
                                    (reverse #{rreq 32682}#)
                                    '()
                                    '()))
                                #{tmp 32847}#)
                              (let ((#{tmp 32857}#
                                      ($sc-dispatch
                                        #{args 32681}#
                                        '(any any))))
                                (if (if #{tmp 32857}#
                                      (@apply
                                        (lambda (#{a 32861}# #{b 32862}#)
                                          (eq? (syntax->datum #{a 32861}#)
                                               #:rest))
                                        #{tmp 32857}#)
                                      #f)
                                  (@apply
                                    (lambda (#{a 32863}# #{b 32864}#)
                                      (#{rest 32677}#
                                        #{b 32864}#
                                        (reverse #{rreq 32682}#)
                                        '()
                                        '()))
                                    #{tmp 32857}#)
                                  (let ((#{tmp 32867}# (list #{args 32681}#)))
                                    (if (@apply
                                          (lambda (#{r 32869}#)
                                            (if (symbol? #{r 32869}#)
                                              #t
                                              (if (if (vector? #{r 32869}#)
                                                    (if (= (vector-length
                                                             #{r 32869}#)
                                                           4)
                                                      (eq? (vector-ref
                                                             #{r 32869}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref #{r 32869}# 1))
                                                #f)))
                                          #{tmp 32867}#)
                                      (@apply
                                        (lambda (#{r 32899}#)
                                          (#{rest 32677}#
                                            #{r 32899}#
                                            (reverse #{rreq 32682}#)
                                            '()
                                            '()))
                                        #{tmp 32867}#)
                                      (syntax-violation
                                        'lambda*
                                        "invalid argument list"
                                        #{orig-args 32673}#
                                        #{args 32681}#)))))))))))))))
          (#{opt 32675}#
            (lambda (#{args 32918}# #{req 32919}# #{ropt 32920}#)
              (let ((#{tmp 32922}# ($sc-dispatch #{args 32918}# '())))
                (if #{tmp 32922}#
                  (@apply
                    (lambda ()
                      (#{check 32678}#
                        #{req 32919}#
                        (reverse #{ropt 32920}#)
                        #f
                        '()))
                    #{tmp 32922}#)
                  (let ((#{tmp 33043}#
                          ($sc-dispatch #{args 32918}# '(any . any))))
                    (if (if #{tmp 33043}#
                          (@apply
                            (lambda (#{a 33047}# #{b 33048}#)
                              (if (symbol? #{a 33047}#)
                                #t
                                (if (if (vector? #{a 33047}#)
                                      (if (= (vector-length #{a 33047}#) 4)
                                        (eq? (vector-ref #{a 33047}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 33047}# 1))
                                  #f)))
                            #{tmp 33043}#)
                          #f)
                      (@apply
                        (lambda (#{a 33075}# #{b 33076}#)
                          (#{opt 32675}#
                            #{b 33076}#
                            #{req 32919}#
                            (cons (cons #{a 33075}#
                                        '(#(syntax-object
                                            #f
                                            ((top)
                                             #(ribcage
                                               #(a b)
                                               #((top) (top))
                                               #("i2477" "i2478"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(args req ropt)
                                               #((top) (top) (top))
                                               #("i2467" "i2468" "i2469"))
                                             #(ribcage
                                               (check rest key opt req)
                                               ((top) (top) (top) (top) (top))
                                               ("i2413"
                                                "i2411"
                                                "i2409"
                                                "i2407"
                                                "i2405"))
                                             #(ribcage
                                               #(orig-args)
                                               #((top))
                                               #("i2404"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
                                                 strip
                                                 expand-lambda-case
                                                 lambda*-formals
                                                 expand-simple-lambda
                                                 lambda-formals
                                                 ellipsis?
                                                 expand-void
                                                 eval-local-transformer
                                                 expand-local-syntax
                                                 expand-body
                                                 expand-macro
                                                 expand-call
                                                 expand-expr
                                                 expand
                                                 syntax-type
                                                 parse-when-list
                                                 expand-install-global
                                                 expand-top-sequence
                                                 expand-sequence
                                                 source-wrap
                                                 wrap
                                                 bound-id-member?
                                                 distinct-bound-ids?
                                                 valid-bound-ids?
                                                 bound-id=?
                                                 free-id=?
                                                 resolve-identifier
                                                 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
                                                 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"
                                                "i401"
                                                "i400"
                                                "i398"
                                                "i395"
                                                "i394"
                                                "i393"
                                                "i391"
                                                "i390"
                                                "i388"
                                                "i386"
                                                "i384"
                                                "i382"
                                                "i380"
                                                "i378"
                                                "i376"
                                                "i374"
                                                "i371"
                                                "i369"
                                                "i368"
                                                "i366"
                                                "i364"
                                                "i362"
                                                "i360"
                                                "i359"
                                                "i358"
                                                "i357"
                                                "i355"
                                                "i354"
                                                "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"))
                                             #(ribcage () () ()))
                                            (hygiene guile))))
                                  #{ropt 32920}#)))
                        #{tmp 33043}#)
                      (let ((#{tmp 33077}#
                              ($sc-dispatch
                                #{args 32918}#
                                '((any any) . any))))
                        (if (if #{tmp 33077}#
                              (@apply
                                (lambda (#{a 33081}#
                                         #{init 33082}#
                                         #{b 33083}#)
                                  (if (symbol? #{a 33081}#)
                                    #t
                                    (if (if (vector? #{a 33081}#)
                                          (if (= (vector-length #{a 33081}#) 4)
                                            (eq? (vector-ref #{a 33081}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{a 33081}# 1))
                                      #f)))
                                #{tmp 33077}#)
                              #f)
                          (@apply
                            (lambda (#{a 33110}# #{init 33111}# #{b 33112}#)
                              (#{opt 32675}#
                                #{b 33112}#
                                #{req 32919}#
                                (cons (list #{a 33110}# #{init 33111}#)
                                      #{ropt 32920}#)))
                            #{tmp 33077}#)
                          (let ((#{tmp 33113}#
                                  ($sc-dispatch #{args 32918}# '(any . any))))
                            (if (if #{tmp 33113}#
                                  (@apply
                                    (lambda (#{a 33117}# #{b 33118}#)
                                      (eq? (syntax->datum #{a 33117}#) #:key))
                                    #{tmp 33113}#)
                                  #f)
                              (@apply
                                (lambda (#{a 33119}# #{b 33120}#)
                                  (#{key 32676}#
                                    #{b 33120}#
                                    #{req 32919}#
                                    (reverse #{ropt 32920}#)
                                    '()))
                                #{tmp 33113}#)
                              (let ((#{tmp 33123}#
                                      ($sc-dispatch
                                        #{args 32918}#
                                        '(any any))))
                                (if (if #{tmp 33123}#
                                      (@apply
                                        (lambda (#{a 33127}# #{b 33128}#)
                                          (eq? (syntax->datum #{a 33127}#)
                                               #:rest))
                                        #{tmp 33123}#)
                                      #f)
                                  (@apply
                                    (lambda (#{a 33129}# #{b 33130}#)
                                      (#{rest 32677}#
                                        #{b 33130}#
                                        #{req 32919}#
                                        (reverse #{ropt 32920}#)
                                        '()))
                                    #{tmp 33123}#)
                                  (let ((#{tmp 33133}# (list #{args 32918}#)))
                                    (if (@apply
                                          (lambda (#{r 33135}#)
                                            (if (symbol? #{r 33135}#)
                                              #t
                                              (if (if (vector? #{r 33135}#)
                                                    (if (= (vector-length
                                                             #{r 33135}#)
                                                           4)
                                                      (eq? (vector-ref
                                                             #{r 33135}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref #{r 33135}# 1))
                                                #f)))
                                          #{tmp 33133}#)
                                      (@apply
                                        (lambda (#{r 33165}#)
                                          (#{rest 32677}#
                                            #{r 33165}#
                                            #{req 32919}#
                                            (reverse #{ropt 32920}#)
                                            '()))
                                        #{tmp 33133}#)
                                      (syntax-violation
                                        'lambda*
                                        "invalid optional argument list"
                                        #{orig-args 32673}#
                                        #{args 32918}#)))))))))))))))
          (#{key 32676}#
            (lambda (#{args 33184}#
                     #{req 33185}#
                     #{opt 33186}#
                     #{rkey 33187}#)
              (let ((#{tmp 33189}# ($sc-dispatch #{args 33184}# '())))
                (if #{tmp 33189}#
                  (@apply
                    (lambda ()
                      (#{check 32678}#
                        #{req 33185}#
                        #{opt 33186}#
                        #f
                        (cons #f (reverse #{rkey 33187}#))))
                    #{tmp 33189}#)
                  (let ((#{tmp 33311}#
                          ($sc-dispatch #{args 33184}# '(any . any))))
                    (if (if #{tmp 33311}#
                          (@apply
                            (lambda (#{a 33315}# #{b 33316}#)
                              (if (symbol? #{a 33315}#)
                                #t
                                (if (if (vector? #{a 33315}#)
                                      (if (= (vector-length #{a 33315}#) 4)
                                        (eq? (vector-ref #{a 33315}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (symbol? (vector-ref #{a 33315}# 1))
                                  #f)))
                            #{tmp 33311}#)
                          #f)
                      (@apply
                        (lambda (#{a 33343}# #{b 33344}#)
                          (let ((#{tmp 33345}#
                                  (symbol->keyword
                                    (syntax->datum #{a 33343}#))))
                            (#{key 32676}#
                              #{b 33344}#
                              #{req 33185}#
                              #{opt 33186}#
                              (cons (cons #{tmp 33345}#
                                          (cons #{a 33343}#
                                                '(#(syntax-object
                                                    #f
                                                    ((top)
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(k)
                                                       #((top))
                                                       #("i2540"))
                                                     #(ribcage
                                                       #(a b)
                                                       #((top) (top))
                                                       #("i2534" "i2535"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(args req opt rkey)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i2523"
                                                         "i2524"
                                                         "i2525"
                                                         "i2526"))
                                                     #(ribcage
                                                       (check rest key opt req)
                                                       ((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                       ("i2413"
                                                        "i2411"
                                                        "i2409"
                                                        "i2407"
                                                        "i2405"))
                                                     #(ribcage
                                                       #(orig-args)
                                                       #((top))
                                                       #("i2404"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
                                                         strip
                                                         expand-lambda-case
                                                         lambda*-formals
                                                         expand-simple-lambda
                                                         lambda-formals
                                                         ellipsis?
                                                         expand-void
                                                         eval-local-transformer
                                                         expand-local-syntax
                                                         expand-body
                                                         expand-macro
                                                         expand-call
                                                         expand-expr
                                                         expand
                                                         syntax-type
                                                         parse-when-list
                                                         expand-install-global
                                                         expand-top-sequence
                                                         expand-sequence
                                                         source-wrap
                                                         wrap
                                                         bound-id-member?
                                                         distinct-bound-ids?
                                                         valid-bound-ids?
                                                         bound-id=?
                                                         free-id=?
                                                         resolve-identifier
                                                         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
                                                         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"
                                                        "i401"
                                                        "i400"
                                                        "i398"
                                                        "i395"
                                                        "i394"
                                                        "i393"
                                                        "i391"
                                                        "i390"
                                                        "i388"
                                                        "i386"
                                                        "i384"
                                                        "i382"
                                                        "i380"
                                                        "i378"
                                                        "i376"
                                                        "i374"
                                                        "i371"
                                                        "i369"
                                                        "i368"
                                                        "i366"
                                                        "i364"
                                                        "i362"
                                                        "i360"
                                                        "i359"
                                                        "i358"
                                                        "i357"
                                                        "i355"
                                                        "i354"
                                                        "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"))
                                                     #(ribcage () () ()))
                                                    (hygiene guile)))))
                                    #{rkey 33187}#))))
                        #{tmp 33311}#)
                      (let ((#{tmp 33348}#
                              ($sc-dispatch
                                #{args 33184}#
                                '((any any) . any))))
                        (if (if #{tmp 33348}#
                              (@apply
                                (lambda (#{a 33352}#
                                         #{init 33353}#
                                         #{b 33354}#)
                                  (if (symbol? #{a 33352}#)
                                    #t
                                    (if (if (vector? #{a 33352}#)
                                          (if (= (vector-length #{a 33352}#) 4)
                                            (eq? (vector-ref #{a 33352}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{a 33352}# 1))
                                      #f)))
                                #{tmp 33348}#)
                              #f)
                          (@apply
                            (lambda (#{a 33381}# #{init 33382}# #{b 33383}#)
                              (let ((#{tmp 33384}#
                                      (symbol->keyword
                                        (syntax->datum #{a 33381}#))))
                                (#{key 32676}#
                                  #{b 33383}#
                                  #{req 33185}#
                                  #{opt 33186}#
                                  (cons (list #{tmp 33384}#
                                              #{a 33381}#
                                              #{init 33382}#)
                                        #{rkey 33187}#))))
                            #{tmp 33348}#)
                          (let ((#{tmp 33387}#
                                  ($sc-dispatch
                                    #{args 33184}#
                                    '((any any any) . any))))
                            (if (if #{tmp 33387}#
                                  (@apply
                                    (lambda (#{a 33391}#
                                             #{init 33392}#
                                             #{k 33393}#
                                             #{b 33394}#)
                                      (if (if (symbol? #{a 33391}#)
                                            #t
                                            (if (if (vector? #{a 33391}#)
                                                  (if (= (vector-length
                                                           #{a 33391}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{a 33391}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
                                                (vector-ref #{a 33391}# 1))
                                              #f))
                                        (keyword? (syntax->datum #{k 33393}#))
                                        #f))
                                    #{tmp 33387}#)
                                  #f)
                              (@apply
                                (lambda (#{a 33421}#
                                         #{init 33422}#
                                         #{k 33423}#
                                         #{b 33424}#)
                                  (#{key 32676}#
                                    #{b 33424}#
                                    #{req 33185}#
                                    #{opt 33186}#
                                    (cons (list #{k 33423}#
                                                #{a 33421}#
                                                #{init 33422}#)
                                          #{rkey 33187}#)))
                                #{tmp 33387}#)
                              (let ((#{tmp 33425}#
                                      ($sc-dispatch #{args 33184}# '(any))))
                                (if (if #{tmp 33425}#
                                      (@apply
                                        (lambda (#{aok 33429}#)
                                          (eq? (syntax->datum #{aok 33429}#)
                                               #:allow-other-keys))
                                        #{tmp 33425}#)
                                      #f)
                                  (@apply
                                    (lambda (#{aok 33430}#)
                                      (#{check 32678}#
                                        #{req 33185}#
                                        #{opt 33186}#
                                        #f
                                        (cons #t (reverse #{rkey 33187}#))))
                                    #{tmp 33425}#)
                                  (let ((#{tmp 33549}#
                                          ($sc-dispatch
                                            #{args 33184}#
                                            '(any any any))))
                                    (if (if #{tmp 33549}#
                                          (@apply
                                            (lambda (#{aok 33553}#
                                                     #{a 33554}#
                                                     #{b 33555}#)
                                              (if (eq? (syntax->datum
                                                         #{aok 33553}#)
                                                       #:allow-other-keys)
                                                (eq? (syntax->datum
                                                       #{a 33554}#)
                                                     #:rest)
                                                #f))
                                            #{tmp 33549}#)
                                          #f)
                                      (@apply
                                        (lambda (#{aok 33556}#
                                                 #{a 33557}#
                                                 #{b 33558}#)
                                          (#{rest 32677}#
                                            #{b 33558}#
                                            #{req 33185}#
                                            #{opt 33186}#
                                            (cons #t
                                                  (reverse #{rkey 33187}#))))
                                        #{tmp 33549}#)
                                      (let ((#{tmp 33561}#
                                              ($sc-dispatch
                                                #{args 33184}#
                                                '(any . any))))
                                        (if (if #{tmp 33561}#
                                              (@apply
                                                (lambda (#{aok 33565}#
                                                         #{r 33566}#)
                                                  (if (eq? (syntax->datum
                                                             #{aok 33565}#)
                                                           #:allow-other-keys)
                                                    (if (symbol? #{r 33566}#)
                                                      #t
                                                      (if (if (vector?
                                                                #{r 33566}#)
                                                            (if (= (vector-length
                                                                     #{r 33566}#)
                                                                   4)
                                                              (eq? (vector-ref
                                                                     #{r 33566}#
                                                                     0)
                                                                   'syntax-object)
                                                              #f)
                                                            #f)
                                                        (symbol?
                                                          (vector-ref
                                                            #{r 33566}#
                                                            1))
                                                        #f))
                                                    #f))
                                                #{tmp 33561}#)
                                              #f)
                                          (@apply
                                            (lambda (#{aok 33593}# #{r 33594}#)
                                              (#{rest 32677}#
                                                #{r 33594}#
                                                #{req 33185}#
                                                #{opt 33186}#
                                                (cons #t
                                                      (reverse
                                                        #{rkey 33187}#))))
                                            #{tmp 33561}#)
                                          (let ((#{tmp 33597}#
                                                  ($sc-dispatch
                                                    #{args 33184}#
                                                    '(any any))))
                                            (if (if #{tmp 33597}#
                                                  (@apply
                                                    (lambda (#{a 33601}#
                                                             #{b 33602}#)
                                                      (eq? (syntax->datum
                                                             #{a 33601}#)
                                                           #:rest))
                                                    #{tmp 33597}#)
                                                  #f)
                                              (@apply
                                                (lambda (#{a 33603}#
                                                         #{b 33604}#)
                                                  (#{rest 32677}#
                                                    #{b 33604}#
                                                    #{req 33185}#
                                                    #{opt 33186}#
                                                    (cons #f
                                                          (reverse
                                                            #{rkey 33187}#))))
                                                #{tmp 33597}#)
                                              (let ((#{tmp 33607}#
                                                      (list #{args 33184}#)))
                                                (if (@apply
                                                      (lambda (#{r 33609}#)
                                                        (if (symbol?
                                                              #{r 33609}#)
                                                          #t
                                                          (if (if (vector?
                                                                    #{r 33609}#)
                                                                (if (= (vector-length
                                                                         #{r 33609}#)
                                                                       4)
                                                                  (eq? (vector-ref
                                                                         #{r 33609}#
                                                                         0)
                                                                       'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
                                                                #{r 33609}#
                                                                1))
                                                            #f)))
                                                      #{tmp 33607}#)
                                                  (@apply
                                                    (lambda (#{r 33639}#)
                                                      (#{rest 32677}#
                                                        #{r 33639}#
                                                        #{req 33185}#
                                                        #{opt 33186}#
                                                        (cons #f
                                                              (reverse
                                                                #{rkey 33187}#))))
                                                    #{tmp 33607}#)
                                                  (syntax-violation
                                                    'lambda*
                                                    "invalid keyword argument list"
                                                    #{orig-args 32673}#
                                                    #{args 33184}#)))))))))))))))))))))
          (#{rest 32677}#
            (lambda (#{args 33667}#
                     #{req 33668}#
                     #{opt 33669}#
                     #{kw 33670}#)
              (let ((#{tmp 33672}# (list #{args 33667}#)))
                (if (@apply
                      (lambda (#{r 33674}#)
                        (if (symbol? #{r 33674}#)
                          #t
                          (if (if (vector? #{r 33674}#)
                                (if (= (vector-length #{r 33674}#) 4)
                                  (eq? (vector-ref #{r 33674}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{r 33674}# 1))
                            #f)))
                      #{tmp 33672}#)
                  (@apply
                    (lambda (#{r 33704}#)
                      (#{check 32678}#
                        #{req 33668}#
                        #{opt 33669}#
                        #{r 33704}#
                        #{kw 33670}#))
                    #{tmp 33672}#)
                  (syntax-violation
                    'lambda*
                    "invalid rest argument"
                    #{orig-args 32673}#
                    #{args 33667}#)))))
          (#{check 32678}#
            (lambda (#{req 33832}#
                     #{opt 33833}#
                     #{rest 33834}#
                     #{kw 33835}#)
              (if (#{distinct-bound-ids? 4434}#
                    (append
                      #{req 33832}#
                      (map car #{opt 33833}#)
                      (if #{rest 33834}# (list #{rest 33834}#) '())
                      (if (pair? #{kw 33835}#)
                        (map cadr (cdr #{kw 33835}#))
                        '())))
                (values
                  #{req 33832}#
                  #{opt 33833}#
                  #{rest 33834}#
                  #{kw 33835}#)
                (syntax-violation
                  'lambda*
                  "duplicate identifier in argument list"
                  #{orig-args 32673}#)))))
         (#{req 32674}# #{orig-args 32673}# '()))))
   (#{expand-lambda-case 4455}#
     (lambda (#{e 33944}#
              #{r 33945}#
              #{w 33946}#
              #{s 33947}#
              #{mod 33948}#
              #{get-formals 33949}#
              #{clauses 33950}#)
       (letrec*
         ((#{parse-req 33951}#
            (lambda (#{req 34087}#
                     #{opt 34088}#
                     #{rest 34089}#
                     #{kw 34090}#
                     #{body 34091}#)
              (let ((#{vars 34092}#
                      (map #{gen-var 4457}# #{req 34087}#))
                    (#{labels 34093}#
                      (#{gen-labels 4413}# #{req 34087}#)))
                (let ((#{r* 34094}#
                        (#{extend-var-env 4406}#
                          #{labels 34093}#
                          #{vars 34092}#
                          #{r 33945}#))
                      (#{w* 34095}#
                        (#{make-binding-wrap 4424}#
                          #{req 34087}#
                          #{labels 34093}#
                          #{w 33946}#)))
                  (#{parse-opt 33952}#
                    (map syntax->datum #{req 34087}#)
                    #{opt 34088}#
                    #{rest 34089}#
                    #{kw 34090}#
                    #{body 34091}#
                    (reverse #{vars 34092}#)
                    #{r* 34094}#
                    #{w* 34095}#
                    '()
                    '())))))
          (#{parse-opt 33952}#
            (lambda (#{req 34331}#
                     #{opt 34332}#
                     #{rest 34333}#
                     #{kw 34334}#
                     #{body 34335}#
                     #{vars 34336}#
                     #{r* 34337}#
                     #{w* 34338}#
                     #{out 34339}#
                     #{inits 34340}#)
              (if (pair? #{opt 34332}#)
                (let ((#{tmp 34341}# (car #{opt 34332}#)))
                  (let ((#{tmp 34342}#
                          ($sc-dispatch #{tmp 34341}# '(any any))))
                    (if #{tmp 34342}#
                      (@apply
                        (lambda (#{id 34344}# #{i 34345}#)
                          (let ((#{v 34346}#
                                  (let ((#{id 34354}#
                                          (if (if (vector? #{id 34344}#)
                                                (if (= (vector-length
                                                         #{id 34344}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{id 34344}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (vector-ref #{id 34344}# 1)
                                            #{id 34344}#)))
                                    (gensym
                                      (string-append
                                        (symbol->string #{id 34354}#)
                                        " ")))))
                            (let ((#{l 34347}#
                                    (#{gen-labels 4413}# (list #{v 34346}#))))
                              (let ((#{r** 34348}#
                                      (#{extend-var-env 4406}#
                                        #{l 34347}#
                                        (list #{v 34346}#)
                                        #{r* 34337}#)))
                                (let ((#{w** 34349}#
                                        (#{make-binding-wrap 4424}#
                                          (list #{id 34344}#)
                                          #{l 34347}#
                                          #{w* 34338}#)))
                                  (#{parse-opt 33952}#
                                    #{req 34331}#
                                    (cdr #{opt 34332}#)
                                    #{rest 34333}#
                                    #{kw 34334}#
                                    #{body 34335}#
                                    (cons #{v 34346}# #{vars 34336}#)
                                    #{r** 34348}#
                                    #{w** 34349}#
                                    (cons (syntax->datum #{id 34344}#)
                                          #{out 34339}#)
                                    (cons (#{expand 4443}#
                                            #{i 34345}#
                                            #{r* 34337}#
                                            #{w* 34338}#
                                            #{mod 33948}#)
                                          #{inits 34340}#)))))))
                        #{tmp 34342}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp 34341}#))))
                (if #{rest 34333}#
                  (let ((#{v 34655}#
                          (let ((#{id 34665}#
                                  (if (if (vector? #{rest 34333}#)
                                        (if (= (vector-length #{rest 34333}#)
                                               4)
                                          (eq? (vector-ref #{rest 34333}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (vector-ref #{rest 34333}# 1)
                                    #{rest 34333}#)))
                            (gensym
                              (string-append
                                (symbol->string #{id 34665}#)
                                " ")))))
                    (let ((#{l 34656}#
                            (#{gen-labels 4413}# (list #{v 34655}#))))
                      (let ((#{r* 34657}#
                              (#{extend-var-env 4406}#
                                #{l 34656}#
                                (list #{v 34655}#)
                                #{r* 34337}#)))
                        (let ((#{w* 34658}#
                                (#{make-binding-wrap 4424}#
                                  (list #{rest 34333}#)
                                  #{l 34656}#
                                  #{w* 34338}#)))
                          (#{parse-kw 33953}#
                            #{req 34331}#
                            (if (pair? #{out 34339}#)
                              (reverse #{out 34339}#)
                              #f)
                            (syntax->datum #{rest 34333}#)
                            (if (pair? #{kw 34334}#)
                              (cdr #{kw 34334}#)
                              #{kw 34334}#)
                            #{body 34335}#
                            (cons #{v 34655}# #{vars 34336}#)
                            #{r* 34657}#
                            #{w* 34658}#
                            (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
                            '()
                            #{inits 34340}#)))))
                  (#{parse-kw 33953}#
                    #{req 34331}#
                    (if (pair? #{out 34339}#)
                      (reverse #{out 34339}#)
                      #f)
                    #f
                    (if (pair? #{kw 34334}#)
                      (cdr #{kw 34334}#)
                      #{kw 34334}#)
                    #{body 34335}#
                    #{vars 34336}#
                    #{r* 34337}#
                    #{w* 34338}#
                    (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
                    '()
                    #{inits 34340}#)))))
          (#{parse-kw 33953}#
            (lambda (#{req 34887}#
                     #{opt 34888}#
                     #{rest 34889}#
                     #{kw 34890}#
                     #{body 34891}#
                     #{vars 34892}#
                     #{r* 34893}#
                     #{w* 34894}#
                     #{aok 34895}#
                     #{out 34896}#
                     #{inits 34897}#)
              (if (pair? #{kw 34890}#)
                (let ((#{tmp 34898}# (car #{kw 34890}#)))
                  (let ((#{tmp 34899}#
                          ($sc-dispatch #{tmp 34898}# '(any any any))))
                    (if #{tmp 34899}#
                      (@apply
                        (lambda (#{k 34901}# #{id 34902}# #{i 34903}#)
                          (let ((#{v 34904}#
                                  (let ((#{id 34912}#
                                          (if (if (vector? #{id 34902}#)
                                                (if (= (vector-length
                                                         #{id 34902}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{id 34902}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (vector-ref #{id 34902}# 1)
                                            #{id 34902}#)))
                                    (gensym
                                      (string-append
                                        (symbol->string #{id 34912}#)
                                        " ")))))
                            (let ((#{l 34905}#
                                    (#{gen-labels 4413}# (list #{v 34904}#))))
                              (let ((#{r** 34906}#
                                      (#{extend-var-env 4406}#
                                        #{l 34905}#
                                        (list #{v 34904}#)
                                        #{r* 34893}#)))
                                (let ((#{w** 34907}#
                                        (#{make-binding-wrap 4424}#
                                          (list #{id 34902}#)
                                          #{l 34905}#
                                          #{w* 34894}#)))
                                  (#{parse-kw 33953}#
                                    #{req 34887}#
                                    #{opt 34888}#
                                    #{rest 34889}#
                                    (cdr #{kw 34890}#)
                                    #{body 34891}#
                                    (cons #{v 34904}# #{vars 34892}#)
                                    #{r** 34906}#
                                    #{w** 34907}#
                                    #{aok 34895}#
                                    (cons (list (syntax->datum #{k 34901}#)
                                                (syntax->datum #{id 34902}#)
                                                #{v 34904}#)
                                          #{out 34896}#)
                                    (cons (#{expand 4443}#
                                            #{i 34903}#
                                            #{r* 34893}#
                                            #{w* 34894}#
                                            #{mod 33948}#)
                                          #{inits 34897}#)))))))
                        #{tmp 34899}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp 34898}#))))
                (#{parse-body 33954}#
                  #{req 34887}#
                  #{opt 34888}#
                  #{rest 34889}#
                  (if (if #{aok 34895}#
                        #{aok 34895}#
                        (pair? #{out 34896}#))
                    (cons #{aok 34895}# (reverse #{out 34896}#))
                    #f)
                  #{body 34891}#
                  (reverse #{vars 34892}#)
                  #{r* 34893}#
                  #{w* 34894}#
                  (reverse #{inits 34897}#)
                  '()))))
          (#{parse-body 33954}#
            (lambda (#{req 35222}#
                     #{opt 35223}#
                     #{rest 35224}#
                     #{kw 35225}#
                     #{body 35226}#
                     #{vars 35227}#
                     #{r* 35228}#
                     #{w* 35229}#
                     #{inits 35230}#
                     #{meta 35231}#)
              (let ((#{tmp 35233}#
                      ($sc-dispatch
                        #{body 35226}#
                        '(any any . each-any))))
                (if (if #{tmp 35233}#
                      (@apply
                        (lambda (#{docstring 35237}# #{e1 35238}# #{e2 35239}#)
                          (string? (syntax->datum #{docstring 35237}#)))
                        #{tmp 35233}#)
                      #f)
                  (@apply
                    (lambda (#{docstring 35240}# #{e1 35241}# #{e2 35242}#)
                      (#{parse-body 33954}#
                        #{req 35222}#
                        #{opt 35223}#
                        #{rest 35224}#
                        #{kw 35225}#
                        (cons #{e1 35241}# #{e2 35242}#)
                        #{vars 35227}#
                        #{r* 35228}#
                        #{w* 35229}#
                        #{inits 35230}#
                        (append
                          #{meta 35231}#
                          (list (cons 'documentation
                                      (syntax->datum #{docstring 35240}#))))))
                    #{tmp 35233}#)
                  (let ((#{tmp 35243}#
                          ($sc-dispatch
                            #{body 35226}#
                            '(#(vector #(each (any . any))) any . each-any))))
                    (if #{tmp 35243}#
                      (@apply
                        (lambda (#{k 35247}#
                                 #{v 35248}#
                                 #{e1 35249}#
                                 #{e2 35250}#)
                          (#{parse-body 33954}#
                            #{req 35222}#
                            #{opt 35223}#
                            #{rest 35224}#
                            #{kw 35225}#
                            (cons #{e1 35249}# #{e2 35250}#)
                            #{vars 35227}#
                            #{r* 35228}#
                            #{w* 35229}#
                            #{inits 35230}#
                            (append
                              #{meta 35231}#
                              (syntax->datum
                                (map cons #{k 35247}# #{v 35248}#)))))
                        #{tmp 35243}#)
                      (let ((#{tmp 35251}#
                              ($sc-dispatch #{body 35226}# '(any . each-any))))
                        (if #{tmp 35251}#
                          (@apply
                            (lambda (#{e1 35255}# #{e2 35256}#)
                              (values
                                #{meta 35231}#
                                #{req 35222}#
                                #{opt 35223}#
                                #{rest 35224}#
                                #{kw 35225}#
                                #{inits 35230}#
                                #{vars 35227}#
                                (#{expand-body 4447}#
                                  (cons #{e1 35255}# #{e2 35256}#)
                                  (let ((#{x 35268}#
                                          (begin
                                            (if (if (pair? #{e 33944}#)
                                                  #{s 33947}#
                                                  #f)
                                              (set-source-properties!
                                                #{e 33944}#
                                                #{s 33947}#))
                                            #{e 33944}#)))
                                    (if (if (null? (car #{w 33946}#))
                                          (null? (cdr #{w 33946}#))
                                          #f)
                                      #{x 35268}#
                                      (if (if (vector? #{x 35268}#)
                                            (if (= (vector-length #{x 35268}#)
                                                   4)
                                              (eq? (vector-ref #{x 35268}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (let ((#{expression 35300}#
                                                (vector-ref #{x 35268}# 1))
                                              (#{wrap 35301}#
                                                (let ((#{w2 35309}#
                                                        (vector-ref
                                                          #{x 35268}#
                                                          2)))
                                                  (let ((#{m1 35310}#
                                                          (car #{w 33946}#))
                                                        (#{s1 35311}#
                                                          (cdr #{w 33946}#)))
                                                    (if (null? #{m1 35310}#)
                                                      (if (null? #{s1 35311}#)
                                                        #{w2 35309}#
                                                        (cons (car #{w2 35309}#)
                                                              (let ((#{m2 35326}#
                                                                      (cdr #{w2 35309}#)))
                                                                (if (null? #{m2 35326}#)
                                                                  #{s1 35311}#
                                                                  (append
                                                                    #{s1 35311}#
                                                                    #{m2 35326}#)))))
                                                      (cons (let ((#{m2 35334}#
                                                                    (car #{w2 35309}#)))
                                                              (if (null? #{m2 35334}#)
                                                                #{m1 35310}#
                                                                (append
                                                                  #{m1 35310}#
                                                                  #{m2 35334}#)))
                                                            (let ((#{m2 35342}#
                                                                    (cdr #{w2 35309}#)))
                                                              (if (null? #{m2 35342}#)
                                                                #{s1 35311}#
                                                                (append
                                                                  #{s1 35311}#
                                                                  #{m2 35342}#))))))))
                                              (#{module 35302}#
                                                (vector-ref #{x 35268}# 3)))
                                          (vector
                                            'syntax-object
                                            #{expression 35300}#
                                            #{wrap 35301}#
                                            #{module 35302}#))
                                        (if (null? #{x 35268}#)
                                          #{x 35268}#
                                          (vector
                                            'syntax-object
                                            #{x 35268}#
                                            #{w 33946}#
                                            #{mod 33948}#)))))
                                  #{r* 35228}#
                                  #{w* 35229}#
                                  #{mod 33948}#)))
                            #{tmp 35251}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
                            #{body 35226}#))))))))))
         (let ((#{tmp 33956}#
                 ($sc-dispatch #{clauses 33950}# '())))
           (if #{tmp 33956}#
             (@apply
               (lambda () (values '() #f))
               #{tmp 33956}#)
             (let ((#{tmp 33961}#
                     ($sc-dispatch
                       #{clauses 33950}#
                       '((any any . each-any)
                         .
                         #(each (any any . each-any))))))
               (if #{tmp 33961}#
                 (@apply
                   (lambda (#{args 33965}#
                            #{e1 33966}#
                            #{e2 33967}#
                            #{args* 33968}#
                            #{e1* 33969}#
                            #{e2* 33970}#)
                     (call-with-values
                       (lambda ()
                         (#{get-formals 33949}# #{args 33965}#))
                       (lambda (#{req 33971}#
                                #{opt 33972}#
                                #{rest 33973}#
                                #{kw 33974}#)
                         (call-with-values
                           (lambda ()
                             (#{parse-req 33951}#
                               #{req 33971}#
                               #{opt 33972}#
                               #{rest 33973}#
                               #{kw 33974}#
                               (cons #{e1 33966}# #{e2 33967}#)))
                           (lambda (#{meta 34043}#
                                    #{req 34044}#
                                    #{opt 34045}#
                                    #{rest 34046}#
                                    #{kw 34047}#
                                    #{inits 34048}#
                                    #{vars 34049}#
                                    #{body 34050}#)
                             (call-with-values
                               (lambda ()
                                 (#{expand-lambda-case 4455}#
                                   #{e 33944}#
                                   #{r 33945}#
                                   #{w 33946}#
                                   #{s 33947}#
                                   #{mod 33948}#
                                   #{get-formals 33949}#
                                   (map (lambda (#{tmp 2883 34051}#
                                                 #{tmp 2882 34052}#
                                                 #{tmp 2881 34053}#)
                                          (cons #{tmp 2881 34053}#
                                                (cons #{tmp 2882 34052}#
                                                      #{tmp 2883 34051}#)))
                                        #{e2* 33970}#
                                        #{e1* 33969}#
                                        #{args* 33968}#)))
                               (lambda (#{meta* 34054}# #{else* 34055}#)
                                 (values
                                   (append #{meta 34043}# #{meta* 34054}#)
                                   (make-struct/no-tail
                                     (vector-ref %expanded-vtables 15)
                                     #{s 33947}#
                                     #{req 34044}#
                                     #{opt 34045}#
                                     #{rest 34046}#
                                     #{kw 34047}#
                                     #{inits 34048}#
                                     #{vars 34049}#
                                     #{body 34050}#
                                     #{else* 34055}#)))))))))
                   #{tmp 33961}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{clauses 33950}#))))))))
   (#{strip 4456}#
     (lambda (#{x 35369}# #{w 35370}#)
       (if (memq 'top (car #{w 35370}#))
         #{x 35369}#
         (letrec*
           ((#{f 35371}#
              (lambda (#{x 35374}#)
                (if (if (vector? #{x 35374}#)
                      (if (= (vector-length #{x 35374}#) 4)
                        (eq? (vector-ref #{x 35374}# 0) 'syntax-object)
                        #f)
                      #f)
                  (#{strip 4456}#
                    (vector-ref #{x 35374}# 1)
                    (vector-ref #{x 35374}# 2))
                  (if (pair? #{x 35374}#)
                    (let ((#{a 35393}# (#{f 35371}# (car #{x 35374}#)))
                          (#{d 35394}# (#{f 35371}# (cdr #{x 35374}#))))
                      (if (if (eq? #{a 35393}# (car #{x 35374}#))
                            (eq? #{d 35394}# (cdr #{x 35374}#))
                            #f)
                        #{x 35374}#
                        (cons #{a 35393}# #{d 35394}#)))
                    (if (vector? #{x 35374}#)
                      (let ((#{old 35397}# (vector->list #{x 35374}#)))
                        (let ((#{new 35398}# (map #{f 35371}# #{old 35397}#)))
                          (letrec*
                            ((#{lp 35399}#
                               (lambda (#{l1 35496}# #{l2 35497}#)
                                 (if (null? #{l1 35496}#)
                                   #{x 35374}#
                                   (if (eq? (car #{l1 35496}#)
                                            (car #{l2 35497}#))
                                     (#{lp 35399}#
                                       (cdr #{l1 35496}#)
                                       (cdr #{l2 35497}#))
                                     (list->vector #{new 35398}#))))))
                            (#{lp 35399}# #{old 35397}# #{new 35398}#))))
                      #{x 35374}#))))))
           (#{f 35371}# #{x 35369}#)))))
   (#{gen-var 4457}#
     (lambda (#{id 34099}#)
       (let ((#{id 34100}#
               (if (if (vector? #{id 34099}#)
                     (if (= (vector-length #{id 34099}#) 4)
                       (eq? (vector-ref #{id 34099}# 0) 'syntax-object)
                       #f)
                     #f)
                 (vector-ref #{id 34099}# 1)
                 #{id 34099}#)))
         (gensym
           (string-append (symbol->string #{id 34100}#) " ")))))
   (#{lambda-var-list 4458}#
     (lambda (#{vars 35498}#)
       (letrec*
         ((#{lvl 35499}#
            (lambda (#{vars 35502}# #{ls 35503}# #{w 35504}#)
              (if (pair? #{vars 35502}#)
                (#{lvl 35499}#
                  (cdr #{vars 35502}#)
                  (cons (let ((#{x 35508}# (car #{vars 35502}#)))
                          (if (if (null? (car #{w 35504}#))
                                (null? (cdr #{w 35504}#))
                                #f)
                            #{x 35508}#
                            (if (if (vector? #{x 35508}#)
                                  (if (= (vector-length #{x 35508}#) 4)
                                    (eq? (vector-ref #{x 35508}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (let ((#{expression 35526}#
                                      (vector-ref #{x 35508}# 1))
                                    (#{wrap 35527}#
                                      (let ((#{w2 35535}#
                                              (vector-ref #{x 35508}# 2)))
                                        (let ((#{m1 35536}# (car #{w 35504}#))
                                              (#{s1 35537}# (cdr #{w 35504}#)))
                                          (if (null? #{m1 35536}#)
                                            (if (null? #{s1 35537}#)
                                              #{w2 35535}#
                                              (cons (car #{w2 35535}#)
                                                    (let ((#{m2 35552}#
                                                            (cdr #{w2 35535}#)))
                                                      (if (null? #{m2 35552}#)
                                                        #{s1 35537}#
                                                        (append
                                                          #{s1 35537}#
                                                          #{m2 35552}#)))))
                                            (cons (let ((#{m2 35560}#
                                                          (car #{w2 35535}#)))
                                                    (if (null? #{m2 35560}#)
                                                      #{m1 35536}#
                                                      (append
                                                        #{m1 35536}#
                                                        #{m2 35560}#)))
                                                  (let ((#{m2 35568}#
                                                          (cdr #{w2 35535}#)))
                                                    (if (null? #{m2 35568}#)
                                                      #{s1 35537}#
                                                      (append
                                                        #{s1 35537}#
                                                        #{m2 35568}#))))))))
                                    (#{module 35528}#
                                      (vector-ref #{x 35508}# 3)))
                                (vector
                                  'syntax-object
                                  #{expression 35526}#
                                  #{wrap 35527}#
                                  #{module 35528}#))
                              (if (null? #{x 35508}#)
                                #{x 35508}#
                                (vector
                                  'syntax-object
                                  #{x 35508}#
                                  #{w 35504}#
                                  #f)))))
                        #{ls 35503}#)
                  #{w 35504}#)
                (if (if (symbol? #{vars 35502}#)
                      #t
                      (if (if (vector? #{vars 35502}#)
                            (if (= (vector-length #{vars 35502}#) 4)
                              (eq? (vector-ref #{vars 35502}# 0)
                                   'syntax-object)
                              #f)
                            #f)
                        (symbol? (vector-ref #{vars 35502}# 1))
                        #f))
                  (cons (if (if (null? (car #{w 35504}#))
                              (null? (cdr #{w 35504}#))
                              #f)
                          #{vars 35502}#
                          (if (if (vector? #{vars 35502}#)
                                (if (= (vector-length #{vars 35502}#) 4)
                                  (eq? (vector-ref #{vars 35502}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (let ((#{expression 35638}#
                                    (vector-ref #{vars 35502}# 1))
                                  (#{wrap 35639}#
                                    (let ((#{w2 35649}#
                                            (vector-ref #{vars 35502}# 2)))
                                      (let ((#{m1 35650}# (car #{w 35504}#))
                                            (#{s1 35651}# (cdr #{w 35504}#)))
                                        (if (null? #{m1 35650}#)
                                          (if (null? #{s1 35651}#)
                                            #{w2 35649}#
                                            (cons (car #{w2 35649}#)
                                                  (let ((#{m2 35668}#
                                                          (cdr #{w2 35649}#)))
                                                    (if (null? #{m2 35668}#)
                                                      #{s1 35651}#
                                                      (append
                                                        #{s1 35651}#
                                                        #{m2 35668}#)))))
                                          (cons (let ((#{m2 35676}#
                                                        (car #{w2 35649}#)))
                                                  (if (null? #{m2 35676}#)
                                                    #{m1 35650}#
                                                    (append
                                                      #{m1 35650}#
                                                      #{m2 35676}#)))
                                                (let ((#{m2 35684}#
                                                        (cdr #{w2 35649}#)))
                                                  (if (null? #{m2 35684}#)
                                                    #{s1 35651}#
                                                    (append
                                                      #{s1 35651}#
                                                      #{m2 35684}#))))))))
                                  (#{module 35640}#
                                    (vector-ref #{vars 35502}# 3)))
                              (vector
                                'syntax-object
                                #{expression 35638}#
                                #{wrap 35639}#
                                #{module 35640}#))
                            (if (null? #{vars 35502}#)
                              #{vars 35502}#
                              (vector
                                'syntax-object
                                #{vars 35502}#
                                #{w 35504}#
                                #f))))
                        #{ls 35503}#)
                  (if (null? #{vars 35502}#)
                    #{ls 35503}#
                    (if (if (vector? #{vars 35502}#)
                          (if (= (vector-length #{vars 35502}#) 4)
                            (eq? (vector-ref #{vars 35502}# 0)
                                 'syntax-object)
                            #f)
                          #f)
                      (#{lvl 35499}#
                        (vector-ref #{vars 35502}# 1)
                        #{ls 35503}#
                        (let ((#{w2 35725}# (vector-ref #{vars 35502}# 2)))
                          (let ((#{m1 35726}# (car #{w 35504}#))
                                (#{s1 35727}# (cdr #{w 35504}#)))
                            (if (null? #{m1 35726}#)
                              (if (null? #{s1 35727}#)
                                #{w2 35725}#
                                (cons (car #{w2 35725}#)
                                      (let ((#{m2 35738}# (cdr #{w2 35725}#)))
                                        (if (null? #{m2 35738}#)
                                          #{s1 35727}#
                                          (append
                                            #{s1 35727}#
                                            #{m2 35738}#)))))
                              (cons (let ((#{m2 35746}# (car #{w2 35725}#)))
                                      (if (null? #{m2 35746}#)
                                        #{m1 35726}#
                                        (append #{m1 35726}# #{m2 35746}#)))
                                    (let ((#{m2 35754}# (cdr #{w2 35725}#)))
                                      (if (null? #{m2 35754}#)
                                        #{s1 35727}#
                                        (append
                                          #{s1 35727}#
                                          #{m2 35754}#))))))))
                      (cons #{vars 35502}# #{ls 35503}#))))))))
         (#{lvl 35499}# #{vars 35498}# '() '(()))))))
  (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 4408}#
      'core
      'syntax-parameterize
      (lambda (#{e 4585}#
               #{r 4586}#
               #{w 4587}#
               #{s 4588}#
               #{mod 4589}#)
        (let ((#{tmp 4591}#
                ($sc-dispatch
                  #{e 4585}#
                  '(_ #(each (any any)) any . each-any))))
          (if (if #{tmp 4591}#
                (@apply
                  (lambda (#{var 4595}#
                           #{val 4596}#
                           #{e1 4597}#
                           #{e2 4598}#)
                    (#{valid-bound-ids? 4433}# #{var 4595}#))
                  #{tmp 4591}#)
                #f)
            (@apply
              (lambda (#{var 4683}#
                       #{val 4684}#
                       #{e1 4685}#
                       #{e2 4686}#)
                (let ((#{names 4687}#
                        (map (lambda (#{x 5036}#)
                               (call-with-values
                                 (lambda ()
                                   (#{resolve-identifier 4430}#
                                     #{x 5036}#
                                     #{w 4587}#
                                     #{r 4586}#
                                     #{mod 4589}#
                                     #f))
                                 (lambda (#{type 5039}#
                                          #{value 5040}#
                                          #{mod 5041}#)
                                   (if (eqv? #{type 5039}# 'displaced-lexical)
                                     (syntax-violation
                                       'syntax-parameterize
                                       "identifier out of context"
                                       #{e 4585}#
                                       (let ((#{x 5054}#
                                               (begin
                                                 (if (if (pair? #{x 5036}#)
                                                       #{s 4588}#
                                                       #f)
                                                   (set-source-properties!
                                                     #{x 5036}#
                                                     #{s 4588}#))
                                                 #{x 5036}#)))
                                         (if (if (null? (car #{w 4587}#))
                                               (null? (cdr #{w 4587}#))
                                               #f)
                                           #{x 5054}#
                                           (if (if (vector? #{x 5054}#)
                                                 (if (= (vector-length
                                                          #{x 5054}#)
                                                        4)
                                                   (eq? (vector-ref
                                                          #{x 5054}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (let ((#{expression 5086}#
                                                     (vector-ref #{x 5054}# 1))
                                                   (#{wrap 5087}#
                                                     (let ((#{w2 5095}#
                                                             (vector-ref
                                                               #{x 5054}#
                                                               2)))
                                                       (let ((#{m1 5096}#
                                                               (car #{w 4587}#))
                                                             (#{s1 5097}#
                                                               (cdr #{w 4587}#)))
                                                         (if (null? #{m1 5096}#)
                                                           (if (null? #{s1 5097}#)
                                                             #{w2 5095}#
                                                             (cons (car #{w2 5095}#)
                                                                   (let ((#{m2 5112}#
                                                                           (cdr #{w2 5095}#)))
                                                                     (if (null? #{m2 5112}#)
                                                                       #{s1 5097}#
                                                                       (append
                                                                         #{s1 5097}#
                                                                         #{m2 5112}#)))))
                                                           (cons (let ((#{m2 5120}#
                                                                         (car #{w2 5095}#)))
                                                                   (if (null? #{m2 5120}#)
                                                                     #{m1 5096}#
                                                                     (append
                                                                       #{m1 5096}#
                                                                       #{m2 5120}#)))
                                                                 (let ((#{m2 5128}#
                                                                         (cdr #{w2 5095}#)))
                                                                   (if (null? #{m2 5128}#)
                                                                     #{s1 5097}#
                                                                     (append
                                                                       #{s1 5097}#
                                                                       #{m2 5128}#))))))))
                                                   (#{module 5088}#
                                                     (vector-ref
                                                       #{x 5054}#
                                                       3)))
                                               (vector
                                                 'syntax-object
                                                 #{expression 5086}#
                                                 #{wrap 5087}#
                                                 #{module 5088}#))
                                             (if (null? #{x 5054}#)
                                               #{x 5054}#
                                               (vector
                                                 'syntax-object
                                                 #{x 5054}#
                                                 #{w 4587}#
                                                 #{mod 5041}#))))))
                                     (if (eqv? #{type 5039}# 'syntax-parameter)
                                       #{value 5040}#
                                       (syntax-violation
                                         'syntax-parameterize
                                         "invalid syntax parameter"
                                         #{e 4585}#
                                         (let ((#{x 5155}#
                                                 (begin
                                                   (if (if (pair? #{x 5036}#)
                                                         #{s 4588}#
                                                         #f)
                                                     (set-source-properties!
                                                       #{x 5036}#
                                                       #{s 4588}#))
                                                   #{x 5036}#)))
                                           (if (if (null? (car #{w 4587}#))
                                                 (null? (cdr #{w 4587}#))
                                                 #f)
                                             #{x 5155}#
                                             (if (if (vector? #{x 5155}#)
                                                   (if (= (vector-length
                                                            #{x 5155}#)
                                                          4)
                                                     (eq? (vector-ref
                                                            #{x 5155}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (let ((#{expression 5187}#
                                                       (vector-ref
                                                         #{x 5155}#
                                                         1))
                                                     (#{wrap 5188}#
                                                       (let ((#{w2 5196}#
                                                               (vector-ref
                                                                 #{x 5155}#
                                                                 2)))
                                                         (let ((#{m1 5197}#
                                                                 (car #{w 4587}#))
                                                               (#{s1 5198}#
                                                                 (cdr #{w 4587}#)))
                                                           (if (null? #{m1 5197}#)
                                                             (if (null? #{s1 5198}#)
                                                               #{w2 5196}#
                                                               (cons (car #{w2 5196}#)
                                                                     (let ((#{m2 5213}#
                                                                             (cdr #{w2 5196}#)))
                                                                       (if (null? #{m2 5213}#)
                                                                         #{s1 5198}#
                                                                         (append
                                                                           #{s1 5198}#
                                                                           #{m2 5213}#)))))
                                                             (cons (let ((#{m2 5221}#
                                                                           (car #{w2 5196}#)))
                                                                     (if (null? #{m2 5221}#)
                                                                       #{m1 5197}#
                                                                       (append
                                                                         #{m1 5197}#
                                                                         #{m2 5221}#)))
                                                                   (let ((#{m2 5229}#
                                                                           (cdr #{w2 5196}#)))
                                                                     (if (null? #{m2 5229}#)
                                                                       #{s1 5198}#
                                                                       (append
                                                                         #{s1 5198}#
                                                                         #{m2 5229}#))))))))
                                                     (#{module 5189}#
                                                       (vector-ref
                                                         #{x 5155}#
                                                         3)))
                                                 (vector
                                                   'syntax-object
                                                   #{expression 5187}#
                                                   #{wrap 5188}#
                                                   #{module 5189}#))
                                               (if (null? #{x 5155}#)
                                                 #{x 5155}#
                                                 (vector
                                                   'syntax-object
                                                   #{x 5155}#
                                                   #{w 4587}#
                                                   #{mod 5041}#)))))))))))
                             #{var 4683}#))
                      (#{bindings 4688}#
                        (let ((#{trans-r 5244}#
                                (#{macros-only-env 4407}# #{r 4586}#)))
                          (map (lambda (#{x 5245}#)
                                 (cons 'macro
                                       (#{eval-local-transformer 4449}#
                                         (#{expand 4443}#
                                           #{x 5245}#
                                           #{trans-r 5244}#
                                           #{w 4587}#
                                           #{mod 4589}#)
                                         #{mod 4589}#)))
                               #{val 4684}#))))
                  (#{expand-body 4447}#
                    (cons #{e1 4685}# #{e2 4686}#)
                    (let ((#{x 4700}#
                            (begin
                              (if (if (pair? #{e 4585}#) #{s 4588}# #f)
                                (set-source-properties! #{e 4585}# #{s 4588}#))
                              #{e 4585}#)))
                      (if (if (null? (car #{w 4587}#))
                            (null? (cdr #{w 4587}#))
                            #f)
                        #{x 4700}#
                        (if (if (vector? #{x 4700}#)
                              (if (= (vector-length #{x 4700}#) 4)
                                (eq? (vector-ref #{x 4700}# 0) 'syntax-object)
                                #f)
                              #f)
                          (let ((#{expression 4732}# (vector-ref #{x 4700}# 1))
                                (#{wrap 4733}#
                                  (let ((#{w2 4741}#
                                          (vector-ref #{x 4700}# 2)))
                                    (let ((#{m1 4742}# (car #{w 4587}#))
                                          (#{s1 4743}# (cdr #{w 4587}#)))
                                      (if (null? #{m1 4742}#)
                                        (if (null? #{s1 4743}#)
                                          #{w2 4741}#
                                          (cons (car #{w2 4741}#)
                                                (let ((#{m2 4758}#
                                                        (cdr #{w2 4741}#)))
                                                  (if (null? #{m2 4758}#)
                                                    #{s1 4743}#
                                                    (append
                                                      #{s1 4743}#
                                                      #{m2 4758}#)))))
                                        (cons (let ((#{m2 4766}#
                                                      (car #{w2 4741}#)))
                                                (if (null? #{m2 4766}#)
                                                  #{m1 4742}#
                                                  (append
                                                    #{m1 4742}#
                                                    #{m2 4766}#)))
                                              (let ((#{m2 4774}#
                                                      (cdr #{w2 4741}#)))
                                                (if (null? #{m2 4774}#)
                                                  #{s1 4743}#
                                                  (append
                                                    #{s1 4743}#
                                                    #{m2 4774}#))))))))
                                (#{module 4734}# (vector-ref #{x 4700}# 3)))
                            (vector
                              'syntax-object
                              #{expression 4732}#
                              #{wrap 4733}#
                              #{module 4734}#))
                          (if (null? #{x 4700}#)
                            #{x 4700}#
                            (vector
                              'syntax-object
                              #{x 4700}#
                              #{w 4587}#
                              #{mod 4589}#)))))
                    (#{extend-env 4405}#
                      #{names 4687}#
                      #{bindings 4688}#
                      #{r 4586}#)
                    #{w 4587}#
                    #{mod 4589}#)))
              #{tmp 4591}#)
            (syntax-violation
              'syntax-parameterize
              "bad syntax"
              (let ((#{x 5469}#
                      (begin
                        (if (if (pair? #{e 4585}#) #{s 4588}# #f)
                          (set-source-properties! #{e 4585}# #{s 4588}#))
                        #{e 4585}#)))
                (if (if (null? (car #{w 4587}#))
                      (null? (cdr #{w 4587}#))
                      #f)
                  #{x 5469}#
                  (if (if (vector? #{x 5469}#)
                        (if (= (vector-length #{x 5469}#) 4)
                          (eq? (vector-ref #{x 5469}# 0) 'syntax-object)
                          #f)
                        #f)
                    (let ((#{expression 5501}# (vector-ref #{x 5469}# 1))
                          (#{wrap 5502}#
                            (let ((#{w2 5510}# (vector-ref #{x 5469}# 2)))
                              (let ((#{m1 5511}# (car #{w 4587}#))
                                    (#{s1 5512}# (cdr #{w 4587}#)))
                                (if (null? #{m1 5511}#)
                                  (if (null? #{s1 5512}#)
                                    #{w2 5510}#
                                    (cons (car #{w2 5510}#)
                                          (let ((#{m2 5527}#
                                                  (cdr #{w2 5510}#)))
                                            (if (null? #{m2 5527}#)
                                              #{s1 5512}#
                                              (append
                                                #{s1 5512}#
                                                #{m2 5527}#)))))
                                  (cons (let ((#{m2 5535}# (car #{w2 5510}#)))
                                          (if (null? #{m2 5535}#)
                                            #{m1 5511}#
                                            (append #{m1 5511}# #{m2 5535}#)))
                                        (let ((#{m2 5543}# (cdr #{w2 5510}#)))
                                          (if (null? #{m2 5543}#)
                                            #{s1 5512}#
                                            (append
                                              #{s1 5512}#
                                              #{m2 5543}#))))))))
                          (#{module 5503}# (vector-ref #{x 5469}# 3)))
                      (vector
                        'syntax-object
                        #{expression 5501}#
                        #{wrap 5502}#
                        #{module 5503}#))
                    (if (null? #{x 5469}#)
                      #{x 5469}#
                      (vector
                        'syntax-object
                        #{x 5469}#
                        #{w 4587}#
                        #{mod 4589}#))))))))))
    (module-define!
      (current-module)
      'quote
      (make-syntax-transformer
        'quote
        'core
        (lambda (#{e 5571}#
                 #{r 5572}#
                 #{w 5573}#
                 #{s 5574}#
                 #{mod 5575}#)
          (let ((#{tmp 5577}# ($sc-dispatch #{e 5571}# '(_ any))))
            (if #{tmp 5577}#
              (@apply
                (lambda (#{e 5580}#)
                  (let ((#{exp 5584}#
                          (#{strip 4456}# #{e 5580}# #{w 5573}#)))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 1)
                      #{s 5574}#
                      #{exp 5584}#)))
                #{tmp 5577}#)
              (syntax-violation
                'quote
                "bad syntax"
                (let ((#{x 5598}#
                        (begin
                          (if (if (pair? #{e 5571}#) #{s 5574}# #f)
                            (set-source-properties! #{e 5571}# #{s 5574}#))
                          #{e 5571}#)))
                  (if (if (null? (car #{w 5573}#))
                        (null? (cdr #{w 5573}#))
                        #f)
                    #{x 5598}#
                    (if (if (vector? #{x 5598}#)
                          (if (= (vector-length #{x 5598}#) 4)
                            (eq? (vector-ref #{x 5598}# 0) 'syntax-object)
                            #f)
                          #f)
                      (let ((#{expression 5630}# (vector-ref #{x 5598}# 1))
                            (#{wrap 5631}#
                              (let ((#{w2 5639}# (vector-ref #{x 5598}# 2)))
                                (let ((#{m1 5640}# (car #{w 5573}#))
                                      (#{s1 5641}# (cdr #{w 5573}#)))
                                  (if (null? #{m1 5640}#)
                                    (if (null? #{s1 5641}#)
                                      #{w2 5639}#
                                      (cons (car #{w2 5639}#)
                                            (let ((#{m2 5656}#
                                                    (cdr #{w2 5639}#)))
                                              (if (null? #{m2 5656}#)
                                                #{s1 5641}#
                                                (append
                                                  #{s1 5641}#
                                                  #{m2 5656}#)))))
                                    (cons (let ((#{m2 5664}#
                                                  (car #{w2 5639}#)))
                                            (if (null? #{m2 5664}#)
                                              #{m1 5640}#
                                              (append
                                                #{m1 5640}#
                                                #{m2 5664}#)))
                                          (let ((#{m2 5672}#
                                                  (cdr #{w2 5639}#)))
                                            (if (null? #{m2 5672}#)
                                              #{s1 5641}#
                                              (append
                                                #{s1 5641}#
                                                #{m2 5672}#))))))))
                            (#{module 5632}# (vector-ref #{x 5598}# 3)))
                        (vector
                          'syntax-object
                          #{expression 5630}#
                          #{wrap 5631}#
                          #{module 5632}#))
                      (if (null? #{x 5598}#)
                        #{x 5598}#
                        (vector
                          'syntax-object
                          #{x 5598}#
                          #{w 5573}#
                          #{mod 5575}#)))))))))))
    (#{global-extend 4408}#
      'core
      'syntax
      (letrec*
        ((#{gen-syntax 5896}#
           (lambda (#{src 6359}#
                    #{e 6360}#
                    #{r 6361}#
                    #{maps 6362}#
                    #{ellipsis? 6363}#
                    #{mod 6364}#)
             (if (if (symbol? #{e 6360}#)
                   #t
                   (if (if (vector? #{e 6360}#)
                         (if (= (vector-length #{e 6360}#) 4)
                           (eq? (vector-ref #{e 6360}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{e 6360}# 1))
                     #f))
               (call-with-values
                 (lambda ()
                   (#{resolve-identifier 4430}#
                     #{e 6360}#
                     '(())
                     #{r 6361}#
                     #{mod 6364}#
                     #f))
                 (lambda (#{type 6393}# #{value 6394}# #{mod 6395}#)
                   (if (eqv? #{type 6393}# 'syntax)
                     (call-with-values
                       (lambda ()
                         (#{gen-ref 5897}#
                           #{src 6359}#
                           (car #{value 6394}#)
                           (cdr #{value 6394}#)
                           #{maps 6362}#))
                       (lambda (#{var 6401}# #{maps 6402}#)
                         (values (list 'ref #{var 6401}#) #{maps 6402}#)))
                     (if (#{ellipsis? 6363}# #{e 6360}#)
                       (syntax-violation
                         'syntax
                         "misplaced ellipsis"
                         #{src 6359}#)
                       (values (list 'quote #{e 6360}#) #{maps 6362}#)))))
               (let ((#{tmp 6404}#
                       ($sc-dispatch #{e 6360}# '(any any))))
                 (if (if #{tmp 6404}#
                       (@apply
                         (lambda (#{dots 6408}# #{e 6409}#)
                           (#{ellipsis? 6363}# #{dots 6408}#))
                         #{tmp 6404}#)
                       #f)
                   (@apply
                     (lambda (#{dots 6410}# #{e 6411}#)
                       (#{gen-syntax 5896}#
                         #{src 6359}#
                         #{e 6411}#
                         #{r 6361}#
                         #{maps 6362}#
                         (lambda (#{x 6412}#) #f)
                         #{mod 6364}#))
                     #{tmp 6404}#)
                   (let ((#{tmp 6413}#
                           ($sc-dispatch #{e 6360}# '(any any . any))))
                     (if (if #{tmp 6413}#
                           (@apply
                             (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
                               (#{ellipsis? 6363}# #{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? 6363}#
                                                #{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 6359}#)
                                                    (values
                                                      (let ((#{map-env 6448}#
                                                              (car #{maps 6444}#)))
                                                        (list 'apply
                                                              '(primitive
                                                                 append)
                                                              (#{gen-map 5899}#
                                                                #{x 6443}#
                                                                #{map-env 6448}#)))
                                                      (cdr #{maps 6444}#))))))))
                                        #{tmp 6434}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{gen-syntax 5896}#
                                            #{src 6359}#
                                            #{y 6431}#
                                            #{r 6361}#
                                            #{maps 6362}#
                                            #{ellipsis? 6363}#
                                            #{mod 6364}#))
                                        (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 5896}#
                                       #{src 6359}#
                                       #{x 6420}#
                                       #{r 6361}#
                                       (cons '() #{maps 6426}#)
                                       #{ellipsis? 6363}#
                                       #{mod 6364}#))
                                   (lambda (#{x 6427}# #{maps 6428}#)
                                     (if (null? (car #{maps 6428}#))
                                       (syntax-violation
                                         'syntax
                                         "extra ellipsis"
                                         #{src 6359}#)
                                       (values
                                         (#{gen-map 5899}#
                                           #{x 6427}#
                                           (car #{maps 6428}#))
                                         (cdr #{maps 6428}#)))))))))
                         #{tmp 6413}#)
                       (let ((#{tmp 6470}#
                               ($sc-dispatch #{e 6360}# '(any . any))))
                         (if #{tmp 6470}#
                           (@apply
                             (lambda (#{x 6474}# #{y 6475}#)
                               (call-with-values
                                 (lambda ()
                                   (#{gen-syntax 5896}#
                                     #{src 6359}#
                                     #{x 6474}#
                                     #{r 6361}#
                                     #{maps 6362}#
                                     #{ellipsis? 6363}#
                                     #{mod 6364}#))
                                 (lambda (#{x 6476}# #{maps 6477}#)
                                   (call-with-values
                                     (lambda ()
                                       (#{gen-syntax 5896}#
                                         #{src 6359}#
                                         #{y 6475}#
                                         #{r 6361}#
                                         #{maps 6477}#
                                         #{ellipsis? 6363}#
                                         #{mod 6364}#))
                                     (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 6360}#
                                     '#(vector (any . each-any)))))
                             (if #{tmp 6513}#
                               (@apply
                                 (lambda (#{e1 6517}# #{e2 6518}#)
                                   (call-with-values
                                     (lambda ()
                                       (#{gen-syntax 5896}#
                                         #{src 6359}#
                                         (cons #{e1 6517}# #{e2 6518}#)
                                         #{r 6361}#
                                         #{maps 6362}#
                                         #{ellipsis? 6363}#
                                         #{mod 6364}#))
                                     (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 6360}#)
                                 #{maps 6362}#))))))))))))
         (#{gen-ref 5897}#
           (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 5897}#
                       #{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 5899}#
           (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 5903}#
           (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 5903}#
                                   (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 5903}# (cdr #{x 6580}#))))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 12)
                           #f
                           #{name 6650}#
                           #{args 6651}#))))))))))
        (lambda (#{e 5904}#
                 #{r 5905}#
                 #{w 5906}#
                 #{s 5907}#
                 #{mod 5908}#)
          (let ((#{e 5909}#
                  (let ((#{x 6270}#
                          (begin
                            (if (if (pair? #{e 5904}#) #{s 5907}# #f)
                              (set-source-properties! #{e 5904}# #{s 5907}#))
                            #{e 5904}#)))
                    (if (if (null? (car #{w 5906}#))
                          (null? (cdr #{w 5906}#))
                          #f)
                      #{x 6270}#
                      (if (if (vector? #{x 6270}#)
                            (if (= (vector-length #{x 6270}#) 4)
                              (eq? (vector-ref #{x 6270}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 6302}# (vector-ref #{x 6270}# 1))
                              (#{wrap 6303}#
                                (let ((#{w2 6311}# (vector-ref #{x 6270}# 2)))
                                  (let ((#{m1 6312}# (car #{w 5906}#))
                                        (#{s1 6313}# (cdr #{w 5906}#)))
                                    (if (null? #{m1 6312}#)
                                      (if (null? #{s1 6313}#)
                                        #{w2 6311}#
                                        (cons (car #{w2 6311}#)
                                              (let ((#{m2 6328}#
                                                      (cdr #{w2 6311}#)))
                                                (if (null? #{m2 6328}#)
                                                  #{s1 6313}#
                                                  (append
                                                    #{s1 6313}#
                                                    #{m2 6328}#)))))
                                      (cons (let ((#{m2 6336}#
                                                    (car #{w2 6311}#)))
                                              (if (null? #{m2 6336}#)
                                                #{m1 6312}#
                                                (append
                                                  #{m1 6312}#
                                                  #{m2 6336}#)))
                                            (let ((#{m2 6344}#
                                                    (cdr #{w2 6311}#)))
                                              (if (null? #{m2 6344}#)
                                                #{s1 6313}#
                                                (append
                                                  #{s1 6313}#
                                                  #{m2 6344}#))))))))
                              (#{module 6304}# (vector-ref #{x 6270}# 3)))
                          (vector
                            'syntax-object
                            #{expression 6302}#
                            #{wrap 6303}#
                            #{module 6304}#))
                        (if (null? #{x 6270}#)
                          #{x 6270}#
                          (vector
                            'syntax-object
                            #{x 6270}#
                            #{w 5906}#
                            #{mod 5908}#)))))))
            (let ((#{tmp 5910}# #{e 5909}#))
              (let ((#{tmp 5911}#
                      ($sc-dispatch #{tmp 5910}# '(_ any))))
                (if #{tmp 5911}#
                  (@apply
                    (lambda (#{x 5963}#)
                      (call-with-values
                        (lambda ()
                          (#{gen-syntax 5896}#
                            #{e 5909}#
                            #{x 5963}#
                            #{r 5905}#
                            '()
                            #{ellipsis? 4451}#
                            #{mod 5908}#))
                        (lambda (#{e 6046}# #{maps 6047}#)
                          (#{regen 5903}# #{e 6046}#))))
                    #{tmp 5911}#)
                  (syntax-violation
                    'syntax
                    "bad `syntax' form"
                    #{e 5909}#))))))))
    (#{global-extend 4408}#
      '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 4452}# #{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}#)
                                   (#{expand-simple-lambda 4453}#
                                     #{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 4408}#
      '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 ()
                    (#{expand-lambda-case 4455}#
                      #{e 7313}#
                      #{r 7314}#
                      #{w 7315}#
                      #{s 7316}#
                      #{mod 7317}#
                      #{lambda*-formals 4454}#
                      (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 4408}#
      '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 ()
                    (#{expand-lambda-case 4455}#
                      #{e 7492}#
                      #{r 7493}#
                      #{w 7494}#
                      #{s 7495}#
                      #{mod 7496}#
                      #{lambda-formals 4452}#
                      (cons (cons #{args 7502}#
                                  (cons #{e1 7503}# #{e2 7504}#))
                            (map (lambda (#{tmp 3382 7510}#
                                          #{tmp 3381 7511}#
                                          #{tmp 3380 7512}#)
                                   (cons #{tmp 3380 7512}#
                                         (cons #{tmp 3381 7511}#
                                               #{tmp 3382 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 4408}#
      '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 ()
                    (#{expand-lambda-case 4455}#
                      #{e 7683}#
                      #{r 7684}#
                      #{w 7685}#
                      #{s 7686}#
                      #{mod 7687}#
                      #{lambda*-formals 4454}#
                      (cons (cons #{args 7693}#
                                  (cons #{e1 7694}# #{e2 7695}#))
                            (map (lambda (#{tmp 3417 7701}#
                                          #{tmp 3416 7702}#
                                          #{tmp 3415 7703}#)
                                   (cons #{tmp 3415 7703}#
                                         (cons #{tmp 3416 7702}#
                                               #{tmp 3417 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 4408}#
      'core
      'let
      (letrec*
        ((#{expand-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? 4433}# #{ids 8130}#))
               (syntax-violation
                 'let
                 "duplicate bound variable"
                 #{e 8124}#)
               (let ((#{labels 8217}#
                       (#{gen-labels 4413}# #{ids 8130}#))
                     (#{new-vars 8218}#
                       (map #{gen-var 4457}# #{ids 8130}#)))
                 (let ((#{nw 8219}#
                         (#{make-binding-wrap 4424}#
                           #{ids 8130}#
                           #{labels 8217}#
                           #{w 8126}#))
                       (#{nr 8220}#
                         (#{extend-var-env 4406}#
                           #{labels 8217}#
                           #{new-vars 8218}#
                           #{r 8125}#)))
                   (#{constructor 8129}#
                     #{s 8127}#
                     (map syntax->datum #{ids 8130}#)
                     #{new-vars 8218}#
                     (map (lambda (#{x 8237}#)
                            (#{expand 4443}#
                              #{x 8237}#
                              #{r 8125}#
                              #{w 8126}#
                              #{mod 8128}#))
                          #{vals 8131}#)
                     (#{expand-body 4447}#
                       #{exps 8132}#
                       (#{source-wrap 4437}#
                         #{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? 4410}# #{id 7925}#))
                    #{tmp 7921}#)
                  #f)
              (@apply
                (lambda (#{id 7944}#
                         #{val 7945}#
                         #{e1 7946}#
                         #{e2 7947}#)
                  (#{expand-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! 4375}#
                          #{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? 4410}# #{id 7967}#)
                            #f))
                        #{tmp 7962}#)
                      #f)
                  (@apply
                    (lambda (#{f 8012}#
                             #{id 8013}#
                             #{val 8014}#
                             #{e1 8015}#
                             #{e2 8016}#)
                      (#{expand-let 7914}#
                        #{e 7915}#
                        #{r 7916}#
                        #{w 7917}#
                        #{s 7918}#
                        #{mod 7919}#
                        #{build-named-let 4394}#
                        (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 4408}#
      '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? 4410}# #{id 8724}#))
                  #{tmp 8720}#)
                #f)
            (@apply
              (lambda (#{id 8743}#
                       #{val 8744}#
                       #{e1 8745}#
                       #{e2 8746}#)
                (if (not (#{valid-bound-ids? 4433}# #{id 8743}#))
                  (syntax-violation
                    'letrec
                    "duplicate bound variable"
                    #{e 8714}#)
                  (let ((#{labels 8843}#
                          (#{gen-labels 4413}# #{id 8743}#))
                        (#{new-vars 8844}#
                          (map #{gen-var 4457}# #{id 8743}#)))
                    (let ((#{w 8845}#
                            (#{make-binding-wrap 4424}#
                              #{id 8743}#
                              #{labels 8843}#
                              #{w 8716}#))
                          (#{r 8846}#
                            (#{extend-var-env 4406}#
                              #{labels 8843}#
                              #{new-vars 8844}#
                              #{r 8715}#)))
                      (#{build-letrec 4395}#
                        #{s 8717}#
                        #f
                        (map syntax->datum #{id 8743}#)
                        #{new-vars 8844}#
                        (map (lambda (#{x 8925}#)
                               (#{expand 4443}#
                                 #{x 8925}#
                                 #{r 8846}#
                                 #{w 8845}#
                                 #{mod 8718}#))
                             #{val 8744}#)
                        (#{expand-body 4447}#
                          (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 4408}#
      '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? 4410}# #{id 9536}#))
                  #{tmp 9532}#)
                #f)
            (@apply
              (lambda (#{id 9555}#
                       #{val 9556}#
                       #{e1 9557}#
                       #{e2 9558}#)
                (if (not (#{valid-bound-ids? 4433}# #{id 9555}#))
                  (syntax-violation
                    'letrec*
                    "duplicate bound variable"
                    #{e 9526}#)
                  (let ((#{labels 9655}#
                          (#{gen-labels 4413}# #{id 9555}#))
                        (#{new-vars 9656}#
                          (map #{gen-var 4457}# #{id 9555}#)))
                    (let ((#{w 9657}#
                            (#{make-binding-wrap 4424}#
                              #{id 9555}#
                              #{labels 9655}#
                              #{w 9528}#))
                          (#{r 9658}#
                            (#{extend-var-env 4406}#
                              #{labels 9655}#
                              #{new-vars 9656}#
                              #{r 9527}#)))
                      (#{build-letrec 4395}#
                        #{s 9529}#
                        #t
                        (map syntax->datum #{id 9555}#)
                        #{new-vars 9656}#
                        (map (lambda (#{x 9737}#)
                               (#{expand 4443}#
                                 #{x 9737}#
                                 #{r 9658}#
                                 #{w 9657}#
                                 #{mod 9530}#))
                             #{val 9556}#)
                        (#{expand-body 4447}#
                          (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 4408}#
      'core
      'set!
      (lambda (#{e 10350}#
               #{r 10351}#
               #{w 10352}#
               #{s 10353}#
               #{mod 10354}#)
        (let ((#{tmp 10356}#
                ($sc-dispatch #{e 10350}# '(_ any any))))
          (if (if #{tmp 10356}#
                (@apply
                  (lambda (#{id 10360}# #{val 10361}#)
                    (if (symbol? #{id 10360}#)
                      #t
                      (if (if (vector? #{id 10360}#)
                            (if (= (vector-length #{id 10360}#) 4)
                              (eq? (vector-ref #{id 10360}# 0) 'syntax-object)
                              #f)
                            #f)
                        (symbol? (vector-ref #{id 10360}# 1))
                        #f)))
                  #{tmp 10356}#)
                #f)
            (@apply
              (lambda (#{id 10388}# #{val 10389}#)
                (call-with-values
                  (lambda ()
                    (#{resolve-identifier 4430}#
                      #{id 10388}#
                      #{w 10352}#
                      #{r 10351}#
                      #{mod 10354}#
                      #t))
                  (lambda (#{type 10392}# #{value 10393}# #{id-mod 10394}#)
                    (if (eqv? #{type 10392}# 'lexical)
                      (#{build-lexical-assignment 4381}#
                        #{s 10353}#
                        (syntax->datum #{id 10388}#)
                        #{value 10393}#
                        (#{expand 4443}#
                          #{val 10389}#
                          #{r 10351}#
                          #{w 10352}#
                          #{mod 10354}#))
                      (if (eqv? #{type 10392}# 'global)
                        (#{build-global-assignment 4384}#
                          #{s 10353}#
                          #{value 10393}#
                          (#{expand 4443}#
                            #{val 10389}#
                            #{r 10351}#
                            #{w 10352}#
                            #{mod 10354}#)
                          #{id-mod 10394}#)
                        (if (eqv? #{type 10392}# 'macro)
                          (if (procedure-property
                                #{value 10393}#
                                'variable-transformer)
                            (#{expand 4443}#
                              (#{expand-macro 4446}#
                                #{value 10393}#
                                #{e 10350}#
                                #{r 10351}#
                                #{w 10352}#
                                #{s 10353}#
                                #f
                                #{mod 10354}#)
                              #{r 10351}#
                              '(())
                              #{mod 10354}#)
                            (syntax-violation
                              'set!
                              "not a variable transformer"
                              (if (if (null? (car #{w 10352}#))
                                    (null? (cdr #{w 10352}#))
                                    #f)
                                #{e 10350}#
                                (if (if (vector? #{e 10350}#)
                                      (if (= (vector-length #{e 10350}#) 4)
                                        (eq? (vector-ref #{e 10350}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (let ((#{expression 10854}#
                                          (vector-ref #{e 10350}# 1))
                                        (#{wrap 10855}#
                                          (let ((#{w2 10865}#
                                                  (vector-ref #{e 10350}# 2)))
                                            (let ((#{m1 10866}#
                                                    (car #{w 10352}#))
                                                  (#{s1 10867}#
                                                    (cdr #{w 10352}#)))
                                              (if (null? #{m1 10866}#)
                                                (if (null? #{s1 10867}#)
                                                  #{w2 10865}#
                                                  (cons (car #{w2 10865}#)
                                                        (let ((#{m2 10884}#
                                                                (cdr #{w2 10865}#)))
                                                          (if (null? #{m2 10884}#)
                                                            #{s1 10867}#
                                                            (append
                                                              #{s1 10867}#
                                                              #{m2 10884}#)))))
                                                (cons (let ((#{m2 10892}#
                                                              (car #{w2 10865}#)))
                                                        (if (null? #{m2 10892}#)
                                                          #{m1 10866}#
                                                          (append
                                                            #{m1 10866}#
                                                            #{m2 10892}#)))
                                                      (let ((#{m2 10900}#
                                                              (cdr #{w2 10865}#)))
                                                        (if (null? #{m2 10900}#)
                                                          #{s1 10867}#
                                                          (append
                                                            #{s1 10867}#
                                                            #{m2 10900}#))))))))
                                        (#{module 10856}#
                                          (vector-ref #{e 10350}# 3)))
                                    (vector
                                      'syntax-object
                                      #{expression 10854}#
                                      #{wrap 10855}#
                                      #{module 10856}#))
                                  (if (null? #{e 10350}#)
                                    #{e 10350}#
                                    (vector
                                      'syntax-object
                                      #{e 10350}#
                                      #{w 10352}#
                                      #{mod 10354}#))))
                              (if (if (null? (car #{w 10352}#))
                                    (null? (cdr #{w 10352}#))
                                    #f)
                                #{id 10388}#
                                (if (if (vector? #{id 10388}#)
                                      (if (= (vector-length #{id 10388}#) 4)
                                        (eq? (vector-ref #{id 10388}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (let ((#{expression 10952}#
                                          (vector-ref #{id 10388}# 1))
                                        (#{wrap 10953}#
                                          (let ((#{w2 10963}#
                                                  (vector-ref #{id 10388}# 2)))
                                            (let ((#{m1 10964}#
                                                    (car #{w 10352}#))
                                                  (#{s1 10965}#
                                                    (cdr #{w 10352}#)))
                                              (if (null? #{m1 10964}#)
                                                (if (null? #{s1 10965}#)
                                                  #{w2 10963}#
                                                  (cons (car #{w2 10963}#)
                                                        (let ((#{m2 10982}#
                                                                (cdr #{w2 10963}#)))
                                                          (if (null? #{m2 10982}#)
                                                            #{s1 10965}#
                                                            (append
                                                              #{s1 10965}#
                                                              #{m2 10982}#)))))
                                                (cons (let ((#{m2 10990}#
                                                              (car #{w2 10963}#)))
                                                        (if (null? #{m2 10990}#)
                                                          #{m1 10964}#
                                                          (append
                                                            #{m1 10964}#
                                                            #{m2 10990}#)))
                                                      (let ((#{m2 10998}#
                                                              (cdr #{w2 10963}#)))
                                                        (if (null? #{m2 10998}#)
                                                          #{s1 10965}#
                                                          (append
                                                            #{s1 10965}#
                                                            #{m2 10998}#))))))))
                                        (#{module 10954}#
                                          (vector-ref #{id 10388}# 3)))
                                    (vector
                                      'syntax-object
                                      #{expression 10952}#
                                      #{wrap 10953}#
                                      #{module 10954}#))
                                  (if (null? #{id 10388}#)
                                    #{id 10388}#
                                    (vector
                                      'syntax-object
                                      #{id 10388}#
                                      #{w 10352}#
                                      #{id-mod 10394}#))))))
                          (if (eqv? #{type 10392}# 'displaced-lexical)
                            (syntax-violation
                              'set!
                              "identifier out of context"
                              (if (if (null? (car #{w 10352}#))
                                    (null? (cdr #{w 10352}#))
                                    #f)
                                #{id 10388}#
                                (if (if (vector? #{id 10388}#)
                                      (if (= (vector-length #{id 10388}#) 4)
                                        (eq? (vector-ref #{id 10388}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
                                  (let ((#{expression 11053}#
                                          (vector-ref #{id 10388}# 1))
                                        (#{wrap 11054}#
                                          (let ((#{w2 11064}#
                                                  (vector-ref #{id 10388}# 2)))
                                            (let ((#{m1 11065}#
                                                    (car #{w 10352}#))
                                                  (#{s1 11066}#
                                                    (cdr #{w 10352}#)))
                                              (if (null? #{m1 11065}#)
                                                (if (null? #{s1 11066}#)
                                                  #{w2 11064}#
                                                  (cons (car #{w2 11064}#)
                                                        (let ((#{m2 11083}#
                                                                (cdr #{w2 11064}#)))
                                                          (if (null? #{m2 11083}#)
                                                            #{s1 11066}#
                                                            (append
                                                              #{s1 11066}#
                                                              #{m2 11083}#)))))
                                                (cons (let ((#{m2 11091}#
                                                              (car #{w2 11064}#)))
                                                        (if (null? #{m2 11091}#)
                                                          #{m1 11065}#
                                                          (append
                                                            #{m1 11065}#
                                                            #{m2 11091}#)))
                                                      (let ((#{m2 11099}#
                                                              (cdr #{w2 11064}#)))
                                                        (if (null? #{m2 11099}#)
                                                          #{s1 11066}#
                                                          (append
                                                            #{s1 11066}#
                                                            #{m2 11099}#))))))))
                                        (#{module 11055}#
                                          (vector-ref #{id 10388}# 3)))
                                    (vector
                                      'syntax-object
                                      #{expression 11053}#
                                      #{wrap 11054}#
                                      #{module 11055}#))
                                  (if (null? #{id 10388}#)
                                    #{id 10388}#
                                    (vector
                                      'syntax-object
                                      #{id 10388}#
                                      #{w 10352}#
                                      #{mod 10354}#)))))
                            (syntax-violation
                              'set!
                              "bad set!"
                              (let ((#{x 11131}#
                                      (begin
                                        (if (if (pair? #{e 10350}#)
                                              #{s 10353}#
                                              #f)
                                          (set-source-properties!
                                            #{e 10350}#
                                            #{s 10353}#))
                                        #{e 10350}#)))
                                (if (if (null? (car #{w 10352}#))
                                      (null? (cdr #{w 10352}#))
                                      #f)
                                  #{x 11131}#
                                  (if (if (vector? #{x 11131}#)
                                        (if (= (vector-length #{x 11131}#) 4)
                                          (eq? (vector-ref #{x 11131}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (let ((#{expression 11163}#
                                            (vector-ref #{x 11131}# 1))
                                          (#{wrap 11164}#
                                            (let ((#{w2 11172}#
                                                    (vector-ref
                                                      #{x 11131}#
                                                      2)))
                                              (let ((#{m1 11173}#
                                                      (car #{w 10352}#))
                                                    (#{s1 11174}#
                                                      (cdr #{w 10352}#)))
                                                (if (null? #{m1 11173}#)
                                                  (if (null? #{s1 11174}#)
                                                    #{w2 11172}#
                                                    (cons (car #{w2 11172}#)
                                                          (let ((#{m2 11189}#
                                                                  (cdr #{w2 11172}#)))
                                                            (if (null? #{m2 11189}#)
                                                              #{s1 11174}#
                                                              (append
                                                                #{s1 11174}#
                                                                #{m2 11189}#)))))
                                                  (cons (let ((#{m2 11197}#
                                                                (car #{w2 11172}#)))
                                                          (if (null? #{m2 11197}#)
                                                            #{m1 11173}#
                                                            (append
                                                              #{m1 11173}#
                                                              #{m2 11197}#)))
                                                        (let ((#{m2 11205}#
                                                                (cdr #{w2 11172}#)))
                                                          (if (null? #{m2 11205}#)
                                                            #{s1 11174}#
                                                            (append
                                                              #{s1 11174}#
                                                              #{m2 11205}#))))))))
                                          (#{module 11165}#
                                            (vector-ref #{x 11131}# 3)))
                                      (vector
                                        'syntax-object
                                        #{expression 11163}#
                                        #{wrap 11164}#
                                        #{module 11165}#))
                                    (if (null? #{x 11131}#)
                                      #{x 11131}#
                                      (vector
                                        'syntax-object
                                        #{x 11131}#
                                        #{w 10352}#
                                        #{mod 10354}#)))))))))))))
              #{tmp 10356}#)
            (let ((#{tmp 11220}#
                    ($sc-dispatch
                      #{e 10350}#
                      '(_ (any . each-any) any))))
              (if #{tmp 11220}#
                (@apply
                  (lambda (#{head 11224}# #{tail 11225}# #{val 11226}#)
                    (call-with-values
                      (lambda ()
                        (#{syntax-type 4442}#
                          #{head 11224}#
                          #{r 10351}#
                          '(())
                          #f
                          #f
                          #{mod 10354}#
                          #t))
                      (lambda (#{type 11229}#
                               #{value 11230}#
                               #{ee 11231}#
                               #{ww 11232}#
                               #{ss 11233}#
                               #{modmod 11234}#)
                        (if (eqv? #{type 11229}# 'module-ref)
                          (let ((#{val 11238}#
                                  (#{expand 4443}#
                                    #{val 11226}#
                                    #{r 10351}#
                                    #{w 10352}#
                                    #{mod 10354}#)))
                            (call-with-values
                              (lambda ()
                                (#{value 11230}#
                                  (cons #{head 11224}# #{tail 11225}#)
                                  #{r 10351}#
                                  #{w 10352}#))
                              (lambda (#{e 11239}#
                                       #{r 11240}#
                                       #{w 11241}#
                                       #{s* 11242}#
                                       #{mod 11243}#)
                                (let ((#{tmp 11245}# (list #{e 11239}#)))
                                  (if (@apply
                                        (lambda (#{e 11247}#)
                                          (if (symbol? #{e 11247}#)
                                            #t
                                            (if (if (vector? #{e 11247}#)
                                                  (if (= (vector-length
                                                           #{e 11247}#)
                                                         4)
                                                    (eq? (vector-ref
                                                           #{e 11247}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
                                                (vector-ref #{e 11247}# 1))
                                              #f)))
                                        #{tmp 11245}#)
                                    (@apply
                                      (lambda (#{e 11277}#)
                                        (#{build-global-assignment 4384}#
                                          #{s 10353}#
                                          (syntax->datum #{e 11277}#)
                                          #{val 11238}#
                                          #{mod 11243}#))
                                      #{tmp 11245}#)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any pattern"
                                      #{e 11239}#))))))
                          (#{build-call 4377}#
                            #{s 10353}#
                            (#{expand 4443}#
                              (list '#(syntax-object
                                       setter
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(type value ee ww ss modmod)
                                          #((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                          #("i3655"
                                            "i3656"
                                            "i3657"
                                            "i3658"
                                            "i3659"
                                            "i3660"))
                                        #(ribcage
                                          #(head tail val)
                                          #((top) (top) (top))
                                          #("i3641" "i3642" "i3643"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(e r w s mod)
                                          #((top) (top) (top) (top) (top))
                                          #("i3613"
                                            "i3614"
                                            "i3615"
                                            "i3616"
                                            "i3617"))
                                        #(ribcage
                                          (lambda-var-list
                                            gen-var
                                            strip
                                            expand-lambda-case
                                            lambda*-formals
                                            expand-simple-lambda
                                            lambda-formals
                                            ellipsis?
                                            expand-void
                                            eval-local-transformer
                                            expand-local-syntax
                                            expand-body
                                            expand-macro
                                            expand-call
                                            expand-expr
                                            expand
                                            syntax-type
                                            parse-when-list
                                            expand-install-global
                                            expand-top-sequence
                                            expand-sequence
                                            source-wrap
                                            wrap
                                            bound-id-member?
                                            distinct-bound-ids?
                                            valid-bound-ids?
                                            bound-id=?
                                            free-id=?
                                            resolve-identifier
                                            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
                                            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"
                                           "i401"
                                           "i400"
                                           "i398"
                                           "i395"
                                           "i394"
                                           "i393"
                                           "i391"
                                           "i390"
                                           "i388"
                                           "i386"
                                           "i384"
                                           "i382"
                                           "i380"
                                           "i378"
                                           "i376"
                                           "i374"
                                           "i371"
                                           "i369"
                                           "i368"
                                           "i366"
                                           "i364"
                                           "i362"
                                           "i360"
                                           "i359"
                                           "i358"
                                           "i357"
                                           "i355"
                                           "i354"
                                           "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"))
                                        #(ribcage () () ()))
                                       (hygiene guile))
                                    #{head 11224}#)
                              #{r 10351}#
                              #{w 10352}#
                              #{mod 10354}#)
                            (map (lambda (#{e 11606}#)
                                   (#{expand 4443}#
                                     #{e 11606}#
                                     #{r 10351}#
                                     #{w 10352}#
                                     #{mod 10354}#))
                                 (append
                                   #{tail 11225}#
                                   (list #{val 11226}#))))))))
                  #{tmp 11220}#)
                (syntax-violation
                  'set!
                  "bad set!"
                  (let ((#{x 11698}#
                          (begin
                            (if (if (pair? #{e 10350}#) #{s 10353}# #f)
                              (set-source-properties! #{e 10350}# #{s 10353}#))
                            #{e 10350}#)))
                    (if (if (null? (car #{w 10352}#))
                          (null? (cdr #{w 10352}#))
                          #f)
                      #{x 11698}#
                      (if (if (vector? #{x 11698}#)
                            (if (= (vector-length #{x 11698}#) 4)
                              (eq? (vector-ref #{x 11698}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 11730}# (vector-ref #{x 11698}# 1))
                              (#{wrap 11731}#
                                (let ((#{w2 11739}#
                                        (vector-ref #{x 11698}# 2)))
                                  (let ((#{m1 11740}# (car #{w 10352}#))
                                        (#{s1 11741}# (cdr #{w 10352}#)))
                                    (if (null? #{m1 11740}#)
                                      (if (null? #{s1 11741}#)
                                        #{w2 11739}#
                                        (cons (car #{w2 11739}#)
                                              (let ((#{m2 11756}#
                                                      (cdr #{w2 11739}#)))
                                                (if (null? #{m2 11756}#)
                                                  #{s1 11741}#
                                                  (append
                                                    #{s1 11741}#
                                                    #{m2 11756}#)))))
                                      (cons (let ((#{m2 11764}#
                                                    (car #{w2 11739}#)))
                                              (if (null? #{m2 11764}#)
                                                #{m1 11740}#
                                                (append
                                                  #{m1 11740}#
                                                  #{m2 11764}#)))
                                            (let ((#{m2 11772}#
                                                    (cdr #{w2 11739}#)))
                                              (if (null? #{m2 11772}#)
                                                #{s1 11741}#
                                                (append
                                                  #{s1 11741}#
                                                  #{m2 11772}#))))))))
                              (#{module 11732}# (vector-ref #{x 11698}# 3)))
                          (vector
                            'syntax-object
                            #{expression 11730}#
                            #{wrap 11731}#
                            #{module 11732}#))
                        (if (null? #{x 11698}#)
                          #{x 11698}#
                          (vector
                            'syntax-object
                            #{x 11698}#
                            #{w 10352}#
                            #{mod 10354}#))))))))))))
    (module-define!
      (current-module)
      '@
      (make-syntax-transformer
        '@
        'module-ref
        (lambda (#{e 11803}# #{r 11804}# #{w 11805}#)
          (let ((#{tmp 11807}#
                  ($sc-dispatch #{e 11803}# '(_ each-any any))))
            (if (if #{tmp 11807}#
                  (@apply
                    (lambda (#{mod 11810}# #{id 11811}#)
                      (if (and-map #{id? 4410}# #{mod 11810}#)
                        (if (symbol? #{id 11811}#)
                          #t
                          (if (if (vector? #{id 11811}#)
                                (if (= (vector-length #{id 11811}#) 4)
                                  (eq? (vector-ref #{id 11811}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{id 11811}# 1))
                            #f))
                        #f))
                    #{tmp 11807}#)
                  #f)
              (@apply
                (lambda (#{mod 11851}# #{id 11852}#)
                  (values
                    (syntax->datum #{id 11852}#)
                    #{r 11804}#
                    #{w 11805}#
                    #f
                    (syntax->datum
                      (cons '#(syntax-object
                               public
                               ((top)
                                #(ribcage
                                  #(mod id)
                                  #((top) (top))
                                  #("i3702" "i3703"))
                                #(ribcage () () ())
                                #(ribcage
                                  #(e r w)
                                  #((top) (top) (top))
                                  #("i3690" "i3691" "i3692"))
                                #(ribcage
                                  (lambda-var-list
                                    gen-var
                                    strip
                                    expand-lambda-case
                                    lambda*-formals
                                    expand-simple-lambda
                                    lambda-formals
                                    ellipsis?
                                    expand-void
                                    eval-local-transformer
                                    expand-local-syntax
                                    expand-body
                                    expand-macro
                                    expand-call
                                    expand-expr
                                    expand
                                    syntax-type
                                    parse-when-list
                                    expand-install-global
                                    expand-top-sequence
                                    expand-sequence
                                    source-wrap
                                    wrap
                                    bound-id-member?
                                    distinct-bound-ids?
                                    valid-bound-ids?
                                    bound-id=?
                                    free-id=?
                                    resolve-identifier
                                    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
                                    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"
                                   "i401"
                                   "i400"
                                   "i398"
                                   "i395"
                                   "i394"
                                   "i393"
                                   "i391"
                                   "i390"
                                   "i388"
                                   "i386"
                                   "i384"
                                   "i382"
                                   "i380"
                                   "i378"
                                   "i376"
                                   "i374"
                                   "i371"
                                   "i369"
                                   "i368"
                                   "i366"
                                   "i364"
                                   "i362"
                                   "i360"
                                   "i359"
                                   "i358"
                                   "i357"
                                   "i355"
                                   "i354"
                                   "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"))
                                #(ribcage () () ()))
                               (hygiene guile))
                            #{mod 11851}#))))
                #{tmp 11807}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{e 11803}#))))))
    (#{global-extend 4408}#
      'module-ref
      '@@
      (lambda (#{e 11956}# #{r 11957}# #{w 11958}#)
        (letrec*
          ((#{remodulate 11959}#
             (lambda (#{x 12195}# #{mod 12196}#)
               (if (pair? #{x 12195}#)
                 (cons (#{remodulate 11959}#
                         (car #{x 12195}#)
                         #{mod 12196}#)
                       (#{remodulate 11959}#
                         (cdr #{x 12195}#)
                         #{mod 12196}#))
                 (if (if (vector? #{x 12195}#)
                       (if (= (vector-length #{x 12195}#) 4)
                         (eq? (vector-ref #{x 12195}# 0) 'syntax-object)
                         #f)
                       #f)
                   (let ((#{expression 12210}#
                           (#{remodulate 11959}#
                             (vector-ref #{x 12195}# 1)
                             #{mod 12196}#))
                         (#{wrap 12211}# (vector-ref #{x 12195}# 2)))
                     (vector
                       'syntax-object
                       #{expression 12210}#
                       #{wrap 12211}#
                       #{mod 12196}#))
                   (if (vector? #{x 12195}#)
                     (let ((#{n 12219}# (vector-length #{x 12195}#)))
                       (let ((#{v 12220}# (make-vector #{n 12219}#)))
                         (letrec*
                           ((#{loop 12221}#
                              (lambda (#{i 12276}#)
                                (if (= #{i 12276}# #{n 12219}#)
                                  #{v 12220}#
                                  (begin
                                    (vector-set!
                                      #{v 12220}#
                                      #{i 12276}#
                                      (#{remodulate 11959}#
                                        (vector-ref #{x 12195}# #{i 12276}#)
                                        #{mod 12196}#))
                                    (#{loop 12221}# (#{1+}# #{i 12276}#)))))))
                           (#{loop 12221}# 0))))
                     #{x 12195}#))))))
          (let ((#{tmp 11961}#
                  ($sc-dispatch #{e 11956}# '(_ each-any any))))
            (if (if #{tmp 11961}#
                  (@apply
                    (lambda (#{mod 11965}# #{exp 11966}#)
                      (and-map #{id? 4410}# #{mod 11965}#))
                    #{tmp 11961}#)
                  #f)
              (@apply
                (lambda (#{mod 11982}# #{exp 11983}#)
                  (let ((#{mod 11984}#
                          (syntax->datum
                            (cons '#(syntax-object
                                     private
                                     ((top)
                                      #(ribcage
                                        #(mod exp)
                                        #((top) (top))
                                        #("i3746" "i3747"))
                                      #(ribcage (remodulate) ((top)) ("i3713"))
                                      #(ribcage
                                        #(e r w)
                                        #((top) (top) (top))
                                        #("i3710" "i3711" "i3712"))
                                      #(ribcage
                                        (lambda-var-list
                                          gen-var
                                          strip
                                          expand-lambda-case
                                          lambda*-formals
                                          expand-simple-lambda
                                          lambda-formals
                                          ellipsis?
                                          expand-void
                                          eval-local-transformer
                                          expand-local-syntax
                                          expand-body
                                          expand-macro
                                          expand-call
                                          expand-expr
                                          expand
                                          syntax-type
                                          parse-when-list
                                          expand-install-global
                                          expand-top-sequence
                                          expand-sequence
                                          source-wrap
                                          wrap
                                          bound-id-member?
                                          distinct-bound-ids?
                                          valid-bound-ids?
                                          bound-id=?
                                          free-id=?
                                          resolve-identifier
                                          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
                                          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"
                                         "i401"
                                         "i400"
                                         "i398"
                                         "i395"
                                         "i394"
                                         "i393"
                                         "i391"
                                         "i390"
                                         "i388"
                                         "i386"
                                         "i384"
                                         "i382"
                                         "i380"
                                         "i378"
                                         "i376"
                                         "i374"
                                         "i371"
                                         "i369"
                                         "i368"
                                         "i366"
                                         "i364"
                                         "i362"
                                         "i360"
                                         "i359"
                                         "i358"
                                         "i357"
                                         "i355"
                                         "i354"
                                         "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"))
                                      #(ribcage () () ()))
                                     (hygiene guile))
                                  #{mod 11982}#))))
                    (values
                      (#{remodulate 11959}#
                        #{exp 11983}#
                        #{mod 11984}#)
                      #{r 11957}#
                      #{w 11958}#
                      (#{source-annotation 4404}# #{exp 11983}#)
                      #{mod 11984}#)))
                #{tmp 11961}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{e 11956}#))))))
    (#{global-extend 4408}#
      'core
      'if
      (lambda (#{e 12389}#
               #{r 12390}#
               #{w 12391}#
               #{s 12392}#
               #{mod 12393}#)
        (let ((#{tmp 12395}#
                ($sc-dispatch #{e 12389}# '(_ any any))))
          (if #{tmp 12395}#
            (@apply
              (lambda (#{test 12399}# #{then 12400}#)
                (#{build-conditional 4378}#
                  #{s 12392}#
                  (#{expand 4443}#
                    #{test 12399}#
                    #{r 12390}#
                    #{w 12391}#
                    #{mod 12393}#)
                  (#{expand 4443}#
                    #{then 12400}#
                    #{r 12390}#
                    #{w 12391}#
                    #{mod 12393}#)
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 0)
                    #f)))
              #{tmp 12395}#)
            (let ((#{tmp 12661}#
                    ($sc-dispatch #{e 12389}# '(_ any any any))))
              (if #{tmp 12661}#
                (@apply
                  (lambda (#{test 12665}# #{then 12666}# #{else 12667}#)
                    (#{build-conditional 4378}#
                      #{s 12392}#
                      (#{expand 4443}#
                        #{test 12665}#
                        #{r 12390}#
                        #{w 12391}#
                        #{mod 12393}#)
                      (#{expand 4443}#
                        #{then 12666}#
                        #{r 12390}#
                        #{w 12391}#
                        #{mod 12393}#)
                      (#{expand 4443}#
                        #{else 12667}#
                        #{r 12390}#
                        #{w 12391}#
                        #{mod 12393}#)))
                  #{tmp 12661}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{e 12389}#)))))))
    (#{global-extend 4408}#
      'core
      'with-fluids
      (lambda (#{e 13126}#
               #{r 13127}#
               #{w 13128}#
               #{s 13129}#
               #{mod 13130}#)
        (let ((#{tmp 13132}#
                ($sc-dispatch
                  #{e 13126}#
                  '(_ #(each (any any)) any . each-any))))
          (if #{tmp 13132}#
            (@apply
              (lambda (#{fluid 13136}#
                       #{val 13137}#
                       #{b 13138}#
                       #{b* 13139}#)
                (#{build-dynlet 4379}#
                  #{s 13129}#
                  (map (lambda (#{x 13232}#)
                         (#{expand 4443}#
                           #{x 13232}#
                           #{r 13127}#
                           #{w 13128}#
                           #{mod 13130}#))
                       #{fluid 13136}#)
                  (map (lambda (#{x 13314}#)
                         (#{expand 4443}#
                           #{x 13314}#
                           #{r 13127}#
                           #{w 13128}#
                           #{mod 13130}#))
                       #{val 13137}#)
                  (#{expand-body 4447}#
                    (cons #{b 13138}# #{b* 13139}#)
                    (let ((#{x 13407}#
                            (begin
                              (if (if (pair? #{e 13126}#) #{s 13129}# #f)
                                (set-source-properties!
                                  #{e 13126}#
                                  #{s 13129}#))
                              #{e 13126}#)))
                      (if (if (null? (car #{w 13128}#))
                            (null? (cdr #{w 13128}#))
                            #f)
                        #{x 13407}#
                        (if (if (vector? #{x 13407}#)
                              (if (= (vector-length #{x 13407}#) 4)
                                (eq? (vector-ref #{x 13407}# 0) 'syntax-object)
                                #f)
                              #f)
                          (let ((#{expression 13439}#
                                  (vector-ref #{x 13407}# 1))
                                (#{wrap 13440}#
                                  (let ((#{w2 13448}#
                                          (vector-ref #{x 13407}# 2)))
                                    (let ((#{m1 13449}# (car #{w 13128}#))
                                          (#{s1 13450}# (cdr #{w 13128}#)))
                                      (if (null? #{m1 13449}#)
                                        (if (null? #{s1 13450}#)
                                          #{w2 13448}#
                                          (cons (car #{w2 13448}#)
                                                (let ((#{m2 13465}#
                                                        (cdr #{w2 13448}#)))
                                                  (if (null? #{m2 13465}#)
                                                    #{s1 13450}#
                                                    (append
                                                      #{s1 13450}#
                                                      #{m2 13465}#)))))
                                        (cons (let ((#{m2 13473}#
                                                      (car #{w2 13448}#)))
                                                (if (null? #{m2 13473}#)
                                                  #{m1 13449}#
                                                  (append
                                                    #{m1 13449}#
                                                    #{m2 13473}#)))
                                              (let ((#{m2 13481}#
                                                      (cdr #{w2 13448}#)))
                                                (if (null? #{m2 13481}#)
                                                  #{s1 13450}#
                                                  (append
                                                    #{s1 13450}#
                                                    #{m2 13481}#))))))))
                                (#{module 13441}# (vector-ref #{x 13407}# 3)))
                            (vector
                              'syntax-object
                              #{expression 13439}#
                              #{wrap 13440}#
                              #{module 13441}#))
                          (if (null? #{x 13407}#)
                            #{x 13407}#
                            (vector
                              'syntax-object
                              #{x 13407}#
                              #{w 13128}#
                              #{mod 13130}#)))))
                    #{r 13127}#
                    #{w 13128}#
                    #{mod 13130}#)))
              #{tmp 13132}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{e 13126}#)))))
    (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)
      'define-syntax-parameter
      (make-syntax-transformer
        'define-syntax-parameter
        'define-syntax-parameter
        '()))
    (module-define!
      (current-module)
      'eval-when
      (make-syntax-transformer
        'eval-when
        'eval-when
        '()))
    (#{global-extend 4408}#
      'core
      'syntax-case
      (letrec*
        ((#{convert-pattern 13785}#
           (lambda (#{pattern 15441}# #{keys 15442}#)
             (letrec*
               ((#{cvt* 15443}#
                  (lambda (#{p* 16242}# #{n 16243}# #{ids 16244}#)
                    (if (not (pair? #{p* 16242}#))
                      (#{cvt 15445}#
                        #{p* 16242}#
                        #{n 16243}#
                        #{ids 16244}#)
                      (call-with-values
                        (lambda ()
                          (#{cvt* 15443}#
                            (cdr #{p* 16242}#)
                            #{n 16243}#
                            #{ids 16244}#))
                        (lambda (#{y 16247}# #{ids 16248}#)
                          (call-with-values
                            (lambda ()
                              (#{cvt 15445}#
                                (car #{p* 16242}#)
                                #{n 16243}#
                                #{ids 16248}#))
                            (lambda (#{x 16251}# #{ids 16252}#)
                              (values
                                (cons #{x 16251}# #{y 16247}#)
                                #{ids 16252}#))))))))
                (#{v-reverse 15444}#
                  (lambda (#{x 16253}#)
                    (letrec*
                      ((#{loop 16254}#
                         (lambda (#{r 16355}# #{x 16356}#)
                           (if (not (pair? #{x 16356}#))
                             (values #{r 16355}# #{x 16356}#)
                             (#{loop 16254}#
                               (cons (car #{x 16356}#) #{r 16355}#)
                               (cdr #{x 16356}#))))))
                      (#{loop 16254}# '() #{x 16253}#))))
                (#{cvt 15445}#
                  (lambda (#{p 15448}# #{n 15449}# #{ids 15450}#)
                    (if (if (symbol? #{p 15448}#)
                          #t
                          (if (if (vector? #{p 15448}#)
                                (if (= (vector-length #{p 15448}#) 4)
                                  (eq? (vector-ref #{p 15448}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
                            (symbol? (vector-ref #{p 15448}# 1))
                            #f))
                      (if (#{bound-id-member? 4435}#
                            #{p 15448}#
                            #{keys 15442}#)
                        (values
                          (vector 'free-id #{p 15448}#)
                          #{ids 15450}#)
                        (if (#{free-id=? 4431}#
                              #{p 15448}#
                              '#(syntax-object
                                 _
                                 ((top)
                                  #(ribcage () () ())
                                  #(ribcage
                                    #(p n ids)
                                    #((top) (top) (top))
                                    #("i3847" "i3848" "i3849"))
                                  #(ribcage
                                    (cvt v-reverse cvt*)
                                    ((top) (top) (top))
                                    ("i3820" "i3818" "i3816"))
                                  #(ribcage
                                    #(pattern keys)
                                    #((top) (top))
                                    #("i3814" "i3815"))
                                  #(ribcage
                                    (gen-syntax-case
                                      gen-clause
                                      build-dispatch-call
                                      convert-pattern)
                                    ((top) (top) (top) (top))
                                    ("i3810" "i3808" "i3806" "i3804"))
                                  #(ribcage
                                    (lambda-var-list
                                      gen-var
                                      strip
                                      expand-lambda-case
                                      lambda*-formals
                                      expand-simple-lambda
                                      lambda-formals
                                      ellipsis?
                                      expand-void
                                      eval-local-transformer
                                      expand-local-syntax
                                      expand-body
                                      expand-macro
                                      expand-call
                                      expand-expr
                                      expand
                                      syntax-type
                                      parse-when-list
                                      expand-install-global
                                      expand-top-sequence
                                      expand-sequence
                                      source-wrap
                                      wrap
                                      bound-id-member?
                                      distinct-bound-ids?
                                      valid-bound-ids?
                                      bound-id=?
                                      free-id=?
                                      resolve-identifier
                                      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
                                      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"
                                     "i401"
                                     "i400"
                                     "i398"
                                     "i395"
                                     "i394"
                                     "i393"
                                     "i391"
                                     "i390"
                                     "i388"
                                     "i386"
                                     "i384"
                                     "i382"
                                     "i380"
                                     "i378"
                                     "i376"
                                     "i374"
                                     "i371"
                                     "i369"
                                     "i368"
                                     "i366"
                                     "i364"
                                     "i362"
                                     "i360"
                                     "i359"
                                     "i358"
                                     "i357"
                                     "i355"
                                     "i354"
                                     "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"))
                                  #(ribcage () () ()))
                                 (hygiene guile)))
                          (values '_ #{ids 15450}#)
                          (values
                            'any
                            (cons (cons #{p 15448}# #{n 15449}#)
                                  #{ids 15450}#))))
                      (let ((#{tmp 15582}#
                              ($sc-dispatch #{p 15448}# '(any any))))
                        (if (if #{tmp 15582}#
                              (@apply
                                (lambda (#{x 15586}# #{dots 15587}#)
                                  (if (if (if (vector? #{dots 15587}#)
                                            (if (= (vector-length
                                                     #{dots 15587}#)
                                                   4)
                                              (eq? (vector-ref
                                                     #{dots 15587}#
                                                     0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (symbol? (vector-ref #{dots 15587}# 1))
                                        #f)
                                    (#{free-id=? 4431}#
                                      #{dots 15587}#
                                      '#(syntax-object
                                         ...
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i2338"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
                                              strip
                                              expand-lambda-case
                                              lambda*-formals
                                              expand-simple-lambda
                                              lambda-formals
                                              ellipsis?
                                              expand-void
                                              eval-local-transformer
                                              expand-local-syntax
                                              expand-body
                                              expand-macro
                                              expand-call
                                              expand-expr
                                              expand
                                              syntax-type
                                              parse-when-list
                                              expand-install-global
                                              expand-top-sequence
                                              expand-sequence
                                              source-wrap
                                              wrap
                                              bound-id-member?
                                              distinct-bound-ids?
                                              valid-bound-ids?
                                              bound-id=?
                                              free-id=?
                                              resolve-identifier
                                              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
                                              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"
                                             "i401"
                                             "i400"
                                             "i398"
                                             "i395"
                                             "i394"
                                             "i393"
                                             "i391"
                                             "i390"
                                             "i388"
                                             "i386"
                                             "i384"
                                             "i382"
                                             "i380"
                                             "i378"
                                             "i376"
                                             "i374"
                                             "i371"
                                             "i369"
                                             "i368"
                                             "i366"
                                             "i364"
                                             "i362"
                                             "i360"
                                             "i359"
                                             "i358"
                                             "i357"
                                             "i355"
                                             "i354"
                                             "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"))
                                          #(ribcage () () ()))
                                         (hygiene guile)))
                                    #f))
                                #{tmp 15582}#)
                              #f)
                          (@apply
                            (lambda (#{x 15626}# #{dots 15627}#)
                              (call-with-values
                                (lambda ()
                                  (#{cvt 15445}#
                                    #{x 15626}#
                                    (#{1+}# #{n 15449}#)
                                    #{ids 15450}#))
                                (lambda (#{p 15628}# #{ids 15629}#)
                                  (values
                                    (if (eq? #{p 15628}# 'any)
                                      'each-any
                                      (vector 'each #{p 15628}#))
                                    #{ids 15629}#))))
                            #{tmp 15582}#)
                          (let ((#{tmp 15630}#
                                  ($sc-dispatch #{p 15448}# '(any any . any))))
                            (if (if #{tmp 15630}#
                                  (@apply
                                    (lambda (#{x 15634}#
                                             #{dots 15635}#
                                             #{ys 15636}#)
                                      (if (if (if (vector? #{dots 15635}#)
                                                (if (= (vector-length
                                                         #{dots 15635}#)
                                                       4)
                                                  (eq? (vector-ref
                                                         #{dots 15635}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
                                            (symbol?
                                              (vector-ref #{dots 15635}# 1))
                                            #f)
                                        (#{free-id=? 4431}#
                                          #{dots 15635}#
                                          '#(syntax-object
                                             ...
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i2338"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
                                                  strip
                                                  expand-lambda-case
                                                  lambda*-formals
                                                  expand-simple-lambda
                                                  lambda-formals
                                                  ellipsis?
                                                  expand-void
                                                  eval-local-transformer
                                                  expand-local-syntax
                                                  expand-body
                                                  expand-macro
                                                  expand-call
                                                  expand-expr
                                                  expand
                                                  syntax-type
                                                  parse-when-list
                                                  expand-install-global
                                                  expand-top-sequence
                                                  expand-sequence
                                                  source-wrap
                                                  wrap
                                                  bound-id-member?
                                                  distinct-bound-ids?
                                                  valid-bound-ids?
                                                  bound-id=?
                                                  free-id=?
                                                  resolve-identifier
                                                  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
                                                  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"
                                                 "i401"
                                                 "i400"
                                                 "i398"
                                                 "i395"
                                                 "i394"
                                                 "i393"
                                                 "i391"
                                                 "i390"
                                                 "i388"
                                                 "i386"
                                                 "i384"
                                                 "i382"
                                                 "i380"
                                                 "i378"
                                                 "i376"
                                                 "i374"
                                                 "i371"
                                                 "i369"
                                                 "i368"
                                                 "i366"
                                                 "i364"
                                                 "i362"
                                                 "i360"
                                                 "i359"
                                                 "i358"
                                                 "i357"
                                                 "i355"
                                                 "i354"
                                                 "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"))
                                              #(ribcage () () ()))
                                             (hygiene guile)))
                                        #f))
                                    #{tmp 15630}#)
                                  #f)
                              (@apply
                                (lambda (#{x 15675}#
                                         #{dots 15676}#
                                         #{ys 15677}#)
                                  (call-with-values
                                    (lambda ()
                                      (#{cvt* 15443}#
                                        #{ys 15677}#
                                        #{n 15449}#
                                        #{ids 15450}#))
                                    (lambda (#{ys 16162}# #{ids 16163}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{cvt 15445}#
                                            #{x 15675}#
                                            (#{1+}# #{n 15449}#)
                                            #{ids 16163}#))
                                        (lambda (#{x 16164}# #{ids 16165}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{v-reverse 15444}#
                                                #{ys 16162}#))
                                            (lambda (#{ys 16201}# #{e 16202}#)
                                              (values
                                                (vector
                                                  'each+
                                                  #{x 16164}#
                                                  #{ys 16201}#
                                                  #{e 16202}#)
                                                #{ids 16165}#))))))))
                                #{tmp 15630}#)
                              (let ((#{tmp 16203}#
                                      ($sc-dispatch #{p 15448}# '(any . any))))
                                (if #{tmp 16203}#
                                  (@apply
                                    (lambda (#{x 16207}# #{y 16208}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{cvt 15445}#
                                            #{y 16208}#
                                            #{n 15449}#
                                            #{ids 15450}#))
                                        (lambda (#{y 16209}# #{ids 16210}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{cvt 15445}#
                                                #{x 16207}#
                                                #{n 15449}#
                                                #{ids 16210}#))
                                            (lambda (#{x 16211}# #{ids 16212}#)
                                              (values
                                                (cons #{x 16211}# #{y 16209}#)
                                                #{ids 16212}#))))))
                                    #{tmp 16203}#)
                                  (let ((#{tmp 16213}#
                                          ($sc-dispatch #{p 15448}# '())))
                                    (if #{tmp 16213}#
                                      (@apply
                                        (lambda () (values '() #{ids 15450}#))
                                        #{tmp 16213}#)
                                      (let ((#{tmp 16217}#
                                              ($sc-dispatch
                                                #{p 15448}#
                                                '#(vector each-any))))
                                        (if #{tmp 16217}#
                                          (@apply
                                            (lambda (#{x 16221}#)
                                              (call-with-values
                                                (lambda ()
                                                  (#{cvt 15445}#
                                                    #{x 16221}#
                                                    #{n 15449}#
                                                    #{ids 15450}#))
                                                (lambda (#{p 16222}#
                                                         #{ids 16223}#)
                                                  (values
                                                    (vector
                                                      'vector
                                                      #{p 16222}#)
                                                    #{ids 16223}#))))
                                            #{tmp 16217}#)
                                          (values
                                            (vector
                                              'atom
                                              (#{strip 4456}#
                                                #{p 15448}#
                                                '(())))
                                            #{ids 15450}#)))))))))))))))
               (#{cvt 15445}# #{pattern 15441}# 0 '()))))
         (#{build-dispatch-call 13786}#
           (lambda (#{pvars 16357}#
                    #{exp 16358}#
                    #{y 16359}#
                    #{r 16360}#
                    #{mod 16361}#)
             (let ((#{ids 16362}# (map car #{pvars 16357}#)))
               (begin
                 (map cdr #{pvars 16357}#)
                 (let ((#{labels 16364}#
                         (#{gen-labels 4413}# #{ids 16362}#))
                       (#{new-vars 16365}#
                         (map #{gen-var 4457}# #{ids 16362}#)))
                   (#{build-primcall 4389}#
                     #f
                     'apply
                     (list (#{build-simple-lambda 4386}#
                             #f
                             (map syntax->datum #{ids 16362}#)
                             #f
                             #{new-vars 16365}#
                             '()
                             (#{expand 4443}#
                               #{exp 16358}#
                               (#{extend-env 4405}#
                                 #{labels 16364}#
                                 (map (lambda (#{var 16697}# #{level 16698}#)
                                        (cons 'syntax
                                              (cons #{var 16697}#
                                                    #{level 16698}#)))
                                      #{new-vars 16365}#
                                      (map cdr #{pvars 16357}#))
                                 #{r 16360}#)
                               (#{make-binding-wrap 4424}#
                                 #{ids 16362}#
                                 #{labels 16364}#
                                 '(()))
                               #{mod 16361}#))
                           #{y 16359}#)))))))
         (#{gen-clause 13787}#
           (lambda (#{x 15035}#
                    #{keys 15036}#
                    #{clauses 15037}#
                    #{r 15038}#
                    #{pat 15039}#
                    #{fender 15040}#
                    #{exp 15041}#
                    #{mod 15042}#)
             (call-with-values
               (lambda ()
                 (#{convert-pattern 13785}#
                   #{pat 15039}#
                   #{keys 15036}#))
               (lambda (#{p 15180}# #{pvars 15181}#)
                 (if (not (#{distinct-bound-ids? 4434}#
                            (map car #{pvars 15181}#)))
                   (syntax-violation
                     'syntax-case
                     "duplicate pattern variable"
                     #{pat 15039}#)
                   (if (not (and-map
                              (lambda (#{x 15290}#)
                                (not (let ((#{x 15294}# (car #{x 15290}#)))
                                       (if (if (if (vector? #{x 15294}#)
                                                 (if (= (vector-length
                                                          #{x 15294}#)
                                                        4)
                                                   (eq? (vector-ref
                                                          #{x 15294}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (symbol?
                                               (vector-ref #{x 15294}# 1))
                                             #f)
                                         (#{free-id=? 4431}#
                                           #{x 15294}#
                                           '#(syntax-object
                                              ...
                                              ((top)
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
                                                 #("i2338"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
                                                   strip
                                                   expand-lambda-case
                                                   lambda*-formals
                                                   expand-simple-lambda
                                                   lambda-formals
                                                   ellipsis?
                                                   expand-void
                                                   eval-local-transformer
                                                   expand-local-syntax
                                                   expand-body
                                                   expand-macro
                                                   expand-call
                                                   expand-expr
                                                   expand
                                                   syntax-type
                                                   parse-when-list
                                                   expand-install-global
                                                   expand-top-sequence
                                                   expand-sequence
                                                   source-wrap
                                                   wrap
                                                   bound-id-member?
                                                   distinct-bound-ids?
                                                   valid-bound-ids?
                                                   bound-id=?
                                                   free-id=?
                                                   resolve-identifier
                                                   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
                                                   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"
                                                  "i401"
                                                  "i400"
                                                  "i398"
                                                  "i395"
                                                  "i394"
                                                  "i393"
                                                  "i391"
                                                  "i390"
                                                  "i388"
                                                  "i386"
                                                  "i384"
                                                  "i382"
                                                  "i380"
                                                  "i378"
                                                  "i376"
                                                  "i374"
                                                  "i371"
                                                  "i369"
                                                  "i368"
                                                  "i366"
                                                  "i364"
                                                  "i362"
                                                  "i360"
                                                  "i359"
                                                  "i358"
                                                  "i357"
                                                  "i355"
                                                  "i354"
                                                  "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"))
                                               #(ribcage () () ()))
                                              (hygiene guile)))
                                         #f))))
                              #{pvars 15181}#))
                     (syntax-violation
                       'syntax-case
                       "misplaced ellipsis"
                       #{pat 15039}#)
                     (let ((#{y 15319}#
                             (gensym
                               (string-append (symbol->string 'tmp) " "))))
                       (let ((#{fun-exp 15324}#
                               (let ((#{req 15333}# (list 'tmp))
                                     (#{vars 15335}# (list #{y 15319}#))
                                     (#{exp 15337}#
                                       (let ((#{y 15366}#
                                               (make-struct/no-tail
                                                 (vector-ref
                                                   %expanded-vtables
                                                   3)
                                                 #f
                                                 'tmp
                                                 #{y 15319}#)))
                                         (let ((#{test-exp 15370}#
                                                 (let ((#{tmp 15379}#
                                                         ($sc-dispatch
                                                           #{fender 15040}#
                                                           '#(atom #t))))
                                                   (if #{tmp 15379}#
                                                     (@apply
                                                       (lambda () #{y 15366}#)
                                                       #{tmp 15379}#)
                                                     (let ((#{then-exp 15397}#
                                                             (#{build-dispatch-call 13786}#
                                                               #{pvars 15181}#
                                                               #{fender 15040}#
                                                               #{y 15366}#
                                                               #{r 15038}#
                                                               #{mod 15042}#))
                                                           (#{else-exp 15398}#
                                                             (make-struct/no-tail
                                                               (vector-ref
                                                                 %expanded-vtables
                                                                 1)
                                                               #f
                                                               #f)))
                                                       (make-struct/no-tail
                                                         (vector-ref
                                                           %expanded-vtables
                                                           10)
                                                         #f
                                                         #{y 15366}#
                                                         #{then-exp 15397}#
                                                         #{else-exp 15398}#)))))
                                               (#{then-exp 15371}#
                                                 (#{build-dispatch-call 13786}#
                                                   #{pvars 15181}#
                                                   #{exp 15041}#
                                                   #{y 15366}#
                                                   #{r 15038}#
                                                   #{mod 15042}#))
                                               (#{else-exp 15372}#
                                                 (#{gen-syntax-case 13788}#
                                                   #{x 15035}#
                                                   #{keys 15036}#
                                                   #{clauses 15037}#
                                                   #{r 15038}#
                                                   #{mod 15042}#)))
                                           (make-struct/no-tail
                                             (vector-ref %expanded-vtables 10)
                                             #f
                                             #{test-exp 15370}#
                                             #{then-exp 15371}#
                                             #{else-exp 15372}#)))))
                                 (let ((#{body 15342}#
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 15)
                                           #f
                                           #{req 15333}#
                                           #f
                                           #f
                                           #f
                                           '()
                                           #{vars 15335}#
                                           #{exp 15337}#
                                           #f)))
                                   (make-struct/no-tail
                                     (vector-ref %expanded-vtables 14)
                                     #f
                                     '()
                                     #{body 15342}#))))
                             (#{arg-exps 15325}#
                               (list (if (eq? #{p 15180}# 'any)
                                       (let ((#{args 15420}#
                                               (list #{x 15035}#)))
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 12)
                                           #f
                                           'list
                                           #{args 15420}#))
                                       (let ((#{args 15429}#
                                               (list #{x 15035}#
                                                     (make-struct/no-tail
                                                       (vector-ref
                                                         %expanded-vtables
                                                         1)
                                                       #f
                                                       #{p 15180}#))))
                                         (make-struct/no-tail
                                           (vector-ref %expanded-vtables 12)
                                           #f
                                           '$sc-dispatch
                                           #{args 15429}#))))))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 11)
                           #f
                           #{fun-exp 15324}#
                           #{arg-exps 15325}#)))))))))
         (#{gen-syntax-case 13788}#
           (lambda (#{x 14532}#
                    #{keys 14533}#
                    #{clauses 14534}#
                    #{r 14535}#
                    #{mod 14536}#)
             (if (null? #{clauses 14534}#)
               (let ((#{args 14542}#
                       (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 14532}#)))
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 12)
                   #f
                   'syntax-violation
                   #{args 14542}#))
               (let ((#{tmp 14561}# (car #{clauses 14534}#)))
                 (let ((#{tmp 14562}#
                         ($sc-dispatch #{tmp 14561}# '(any any))))
                   (if #{tmp 14562}#
                     (@apply
                       (lambda (#{pat 14564}# #{exp 14565}#)
                         (if (if (if (symbol? #{pat 14564}#)
                                   #t
                                   (if (if (vector? #{pat 14564}#)
                                         (if (= (vector-length #{pat 14564}#)
                                                4)
                                           (eq? (vector-ref #{pat 14564}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (symbol? (vector-ref #{pat 14564}# 1))
                                     #f))
                               (and-map
                                 (lambda (#{x 14592}#)
                                   (not (#{free-id=? 4431}#
                                          #{pat 14564}#
                                          #{x 14592}#)))
                                 (cons '#(syntax-object
                                          ...
                                          ((top)
                                           #(ribcage
                                             #(pat exp)
                                             #((top) (top))
                                             #("i4007" "i4008"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x keys clauses r mod)
                                             #((top) (top) (top) (top) (top))
                                             #("i3997"
                                               "i3998"
                                               "i3999"
                                               "i4000"
                                               "i4001"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
                                             ("i3810" "i3808" "i3806" "i3804"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
                                               strip
                                               expand-lambda-case
                                               lambda*-formals
                                               expand-simple-lambda
                                               lambda-formals
                                               ellipsis?
                                               expand-void
                                               eval-local-transformer
                                               expand-local-syntax
                                               expand-body
                                               expand-macro
                                               expand-call
                                               expand-expr
                                               expand
                                               syntax-type
                                               parse-when-list
                                               expand-install-global
                                               expand-top-sequence
                                               expand-sequence
                                               source-wrap
                                               wrap
                                               bound-id-member?
                                               distinct-bound-ids?
                                               valid-bound-ids?
                                               bound-id=?
                                               free-id=?
                                               resolve-identifier
                                               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
                                               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"
                                              "i401"
                                              "i400"
                                              "i398"
                                              "i395"
                                              "i394"
                                              "i393"
                                              "i391"
                                              "i390"
                                              "i388"
                                              "i386"
                                              "i384"
                                              "i382"
                                              "i380"
                                              "i378"
                                              "i376"
                                              "i374"
                                              "i371"
                                              "i369"
                                              "i368"
                                              "i366"
                                              "i364"
                                              "i362"
                                              "i360"
                                              "i359"
                                              "i358"
                                              "i357"
                                              "i355"
                                              "i354"
                                              "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"))
                                           #(ribcage () () ()))
                                          (hygiene guile))
                                       #{keys 14533}#))
                               #f)
                           (if (#{free-id=? 4431}#
                                 '#(syntax-object
                                    pad
                                    ((top)
                                     #(ribcage
                                       #(pat exp)
                                       #((top) (top))
                                       #("i4007" "i4008"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x keys clauses r mod)
                                       #((top) (top) (top) (top) (top))
                                       #("i3997"
                                         "i3998"
                                         "i3999"
                                         "i4000"
                                         "i4001"))
                                     #(ribcage
                                       (gen-syntax-case
                                         gen-clause
                                         build-dispatch-call
                                         convert-pattern)
                                       ((top) (top) (top) (top))
                                       ("i3810" "i3808" "i3806" "i3804"))
                                     #(ribcage
                                       (lambda-var-list
                                         gen-var
                                         strip
                                         expand-lambda-case
                                         lambda*-formals
                                         expand-simple-lambda
                                         lambda-formals
                                         ellipsis?
                                         expand-void
                                         eval-local-transformer
                                         expand-local-syntax
                                         expand-body
                                         expand-macro
                                         expand-call
                                         expand-expr
                                         expand
                                         syntax-type
                                         parse-when-list
                                         expand-install-global
                                         expand-top-sequence
                                         expand-sequence
                                         source-wrap
                                         wrap
                                         bound-id-member?
                                         distinct-bound-ids?
                                         valid-bound-ids?
                                         bound-id=?
                                         free-id=?
                                         resolve-identifier
                                         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
                                         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"
                                        "i401"
                                        "i400"
                                        "i398"
                                        "i395"
                                        "i394"
                                        "i393"
                                        "i391"
                                        "i390"
                                        "i388"
                                        "i386"
                                        "i384"
                                        "i382"
                                        "i380"
                                        "i378"
                                        "i376"
                                        "i374"
                                        "i371"
                                        "i369"
                                        "i368"
                                        "i366"
                                        "i364"
                                        "i362"
                                        "i360"
                                        "i359"
                                        "i358"
                                        "i357"
                                        "i355"
                                        "i354"
                                        "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"))
                                     #(ribcage () () ()))
                                    (hygiene guile))
                                 '#(syntax-object
                                    _
                                    ((top)
                                     #(ribcage
                                       #(pat exp)
                                       #((top) (top))
                                       #("i4007" "i4008"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x keys clauses r mod)
                                       #((top) (top) (top) (top) (top))
                                       #("i3997"
                                         "i3998"
                                         "i3999"
                                         "i4000"
                                         "i4001"))
                                     #(ribcage
                                       (gen-syntax-case
                                         gen-clause
                                         build-dispatch-call
                                         convert-pattern)
                                       ((top) (top) (top) (top))
                                       ("i3810" "i3808" "i3806" "i3804"))
                                     #(ribcage
                                       (lambda-var-list
                                         gen-var
                                         strip
                                         expand-lambda-case
                                         lambda*-formals
                                         expand-simple-lambda
                                         lambda-formals
                                         ellipsis?
                                         expand-void
                                         eval-local-transformer
                                         expand-local-syntax
                                         expand-body
                                         expand-macro
                                         expand-call
                                         expand-expr
                                         expand
                                         syntax-type
                                         parse-when-list
                                         expand-install-global
                                         expand-top-sequence
                                         expand-sequence
                                         source-wrap
                                         wrap
                                         bound-id-member?
                                         distinct-bound-ids?
                                         valid-bound-ids?
                                         bound-id=?
                                         free-id=?
                                         resolve-identifier
                                         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
                                         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"
                                        "i401"
                                        "i400"
                                        "i398"
                                        "i395"
                                        "i394"
                                        "i393"
                                        "i391"
                                        "i390"
                                        "i388"
                                        "i386"
                                        "i384"
                                        "i382"
                                        "i380"
                                        "i378"
                                        "i376"
                                        "i374"
                                        "i371"
                                        "i369"
                                        "i368"
                                        "i366"
                                        "i364"
                                        "i362"
                                        "i360"
                                        "i359"
                                        "i358"
                                        "i357"
                                        "i355"
                                        "i354"
                                        "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"))
                                     #(ribcage () () ()))
                                    (hygiene guile)))
                             (#{expand 4443}#
                               #{exp 14565}#
                               #{r 14535}#
                               '(())
                               #{mod 14536}#)
                             (let ((#{labels 14678}#
                                     (list (symbol->string (gensym "i"))))
                                   (#{var 14679}#
                                     (let ((#{id 14717}#
                                             (if (if (vector? #{pat 14564}#)
                                                   (if (= (vector-length
                                                            #{pat 14564}#)
                                                          4)
                                                     (eq? (vector-ref
                                                            #{pat 14564}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (vector-ref #{pat 14564}# 1)
                                               #{pat 14564}#)))
                                       (gensym
                                         (string-append
                                           (symbol->string #{id 14717}#)
                                           " ")))))
                               (#{build-call 4377}#
                                 #f
                                 (#{build-simple-lambda 4386}#
                                   #f
                                   (list (syntax->datum #{pat 14564}#))
                                   #f
                                   (list #{var 14679}#)
                                   '()
                                   (#{expand 4443}#
                                     #{exp 14565}#
                                     (#{extend-env 4405}#
                                       #{labels 14678}#
                                       (list (cons 'syntax
                                                   (cons #{var 14679}# 0)))
                                       #{r 14535}#)
                                     (#{make-binding-wrap 4424}#
                                       (list #{pat 14564}#)
                                       #{labels 14678}#
                                       '(()))
                                     #{mod 14536}#))
                                 (list #{x 14532}#))))
                           (#{gen-clause 13787}#
                             #{x 14532}#
                             #{keys 14533}#
                             (cdr #{clauses 14534}#)
                             #{r 14535}#
                             #{pat 14564}#
                             #t
                             #{exp 14565}#
                             #{mod 14536}#)))
                       #{tmp 14562}#)
                     (let ((#{tmp 15027}#
                             ($sc-dispatch #{tmp 14561}# '(any any any))))
                       (if #{tmp 15027}#
                         (@apply
                           (lambda (#{pat 15029}#
                                    #{fender 15030}#
                                    #{exp 15031}#)
                             (#{gen-clause 13787}#
                               #{x 14532}#
                               #{keys 14533}#
                               (cdr #{clauses 14534}#)
                               #{r 14535}#
                               #{pat 15029}#
                               #{fender 15030}#
                               #{exp 15031}#
                               #{mod 14536}#))
                           #{tmp 15027}#)
                         (syntax-violation
                           'syntax-case
                           "invalid clause"
                           (car #{clauses 14534}#)))))))))))
        (lambda (#{e 13789}#
                 #{r 13790}#
                 #{w 13791}#
                 #{s 13792}#
                 #{mod 13793}#)
          (let ((#{e 13794}#
                  (let ((#{x 14443}#
                          (begin
                            (if (if (pair? #{e 13789}#) #{s 13792}# #f)
                              (set-source-properties! #{e 13789}# #{s 13792}#))
                            #{e 13789}#)))
                    (if (if (null? (car #{w 13791}#))
                          (null? (cdr #{w 13791}#))
                          #f)
                      #{x 14443}#
                      (if (if (vector? #{x 14443}#)
                            (if (= (vector-length #{x 14443}#) 4)
                              (eq? (vector-ref #{x 14443}# 0) 'syntax-object)
                              #f)
                            #f)
                        (let ((#{expression 14475}# (vector-ref #{x 14443}# 1))
                              (#{wrap 14476}#
                                (let ((#{w2 14484}#
                                        (vector-ref #{x 14443}# 2)))
                                  (let ((#{m1 14485}# (car #{w 13791}#))
                                        (#{s1 14486}# (cdr #{w 13791}#)))
                                    (if (null? #{m1 14485}#)
                                      (if (null? #{s1 14486}#)
                                        #{w2 14484}#
                                        (cons (car #{w2 14484}#)
                                              (let ((#{m2 14501}#
                                                      (cdr #{w2 14484}#)))
                                                (if (null? #{m2 14501}#)
                                                  #{s1 14486}#
                                                  (append
                                                    #{s1 14486}#
                                                    #{m2 14501}#)))))
                                      (cons (let ((#{m2 14509}#
                                                    (car #{w2 14484}#)))
                                              (if (null? #{m2 14509}#)
                                                #{m1 14485}#
                                                (append
                                                  #{m1 14485}#
                                                  #{m2 14509}#)))
                                            (let ((#{m2 14517}#
                                                    (cdr #{w2 14484}#)))
                                              (if (null? #{m2 14517}#)
                                                #{s1 14486}#
                                                (append
                                                  #{s1 14486}#
                                                  #{m2 14517}#))))))))
                              (#{module 14477}# (vector-ref #{x 14443}# 3)))
                          (vector
                            'syntax-object
                            #{expression 14475}#
                            #{wrap 14476}#
                            #{module 14477}#))
                        (if (null? #{x 14443}#)
                          #{x 14443}#
                          (vector
                            'syntax-object
                            #{x 14443}#
                            #{w 13791}#
                            #{mod 13793}#)))))))
            (let ((#{tmp 13795}# #{e 13794}#))
              (let ((#{tmp 13796}#
                      ($sc-dispatch
                        #{tmp 13795}#
                        '(_ any each-any . each-any))))
                (if #{tmp 13796}#
                  (@apply
                    (lambda (#{val 13848}# #{key 13849}# #{m 13850}#)
                      (if (and-map
                            (lambda (#{x 13851}#)
                              (if (if (symbol? #{x 13851}#)
                                    #t
                                    (if (if (vector? #{x 13851}#)
                                          (if (= (vector-length #{x 13851}#) 4)
                                            (eq? (vector-ref #{x 13851}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref #{x 13851}# 1))
                                      #f))
                                (not (if (if (if (vector? #{x 13851}#)
                                               (if (= (vector-length
                                                        #{x 13851}#)
                                                      4)
                                                 (eq? (vector-ref
                                                        #{x 13851}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (symbol? (vector-ref #{x 13851}# 1))
                                           #f)
                                       (#{free-id=? 4431}#
                                         #{x 13851}#
                                         '#(syntax-object
                                            ...
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i2338"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
                                                 strip
                                                 expand-lambda-case
                                                 lambda*-formals
                                                 expand-simple-lambda
                                                 lambda-formals
                                                 ellipsis?
                                                 expand-void
                                                 eval-local-transformer
                                                 expand-local-syntax
                                                 expand-body
                                                 expand-macro
                                                 expand-call
                                                 expand-expr
                                                 expand
                                                 syntax-type
                                                 parse-when-list
                                                 expand-install-global
                                                 expand-top-sequence
                                                 expand-sequence
                                                 source-wrap
                                                 wrap
                                                 bound-id-member?
                                                 distinct-bound-ids?
                                                 valid-bound-ids?
                                                 bound-id=?
                                                 free-id=?
                                                 resolve-identifier
                                                 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
                                                 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"
                                                "i401"
                                                "i400"
                                                "i398"
                                                "i395"
                                                "i394"
                                                "i393"
                                                "i391"
                                                "i390"
                                                "i388"
                                                "i386"
                                                "i384"
                                                "i382"
                                                "i380"
                                                "i378"
                                                "i376"
                                                "i374"
                                                "i371"
                                                "i369"
                                                "i368"
                                                "i366"
                                                "i364"
                                                "i362"
                                                "i360"
                                                "i359"
                                                "i358"
                                                "i357"
                                                "i355"
                                                "i354"
                                                "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"))
                                             #(ribcage () () ()))
                                            (hygiene guile)))
                                       #f))
                                #f))
                            #{key 13849}#)
                        (let ((#{x 13916}#
                                (gensym
                                  (string-append (symbol->string 'tmp) " "))))
                          (#{build-call 4377}#
                            #{s 13792}#
                            (let ((#{req 14058}# (list 'tmp))
                                  (#{vars 14060}# (list #{x 13916}#))
                                  (#{exp 14062}#
                                    (#{gen-syntax-case 13788}#
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 3)
                                        #f
                                        'tmp
                                        #{x 13916}#)
                                      #{key 13849}#
                                      #{m 13850}#
                                      #{r 13790}#
                                      #{mod 13793}#)))
                              (let ((#{body 14067}#
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 15)
                                        #f
                                        #{req 14058}#
                                        #f
                                        #f
                                        #f
                                        '()
                                        #{vars 14060}#
                                        #{exp 14062}#
                                        #f)))
                                (make-struct/no-tail
                                  (vector-ref %expanded-vtables 14)
                                  #f
                                  '()
                                  #{body 14067}#)))
                            (list (#{expand 4443}#
                                    #{val 13848}#
                                    #{r 13790}#
                                    '(())
                                    #{mod 13793}#))))
                        (syntax-violation
                          'syntax-case
                          "invalid literals list"
                          #{e 13794}#)))
                    #{tmp 13796}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp 13795}#))))))))
    (set! macroexpand
      (lambda*
        (#{x 16799}#
          #:optional
          (#{m 16800}# 'e)
          (#{esew 16801}# '(eval)))
        (#{expand-top-sequence 4439}#
          (list #{x 16799}#)
          '()
          '((top))
          #f
          #{m 16800}#
          #{esew 16801}#
          (cons 'hygiene (module-name (current-module))))))
    (set! identifier?
      (lambda (#{x 16804}#)
        (if (if (vector? #{x 16804}#)
              (if (= (vector-length #{x 16804}#) 4)
                (eq? (vector-ref #{x 16804}# 0) 'syntax-object)
                #f)
              #f)
          (symbol? (vector-ref #{x 16804}# 1))
          #f)))
    (set! datum->syntax
      (lambda (#{id 16829}# #{datum 16830}#)
        (let ((#{wrap 16835}# (vector-ref #{id 16829}# 2))
              (#{module 16836}# (vector-ref #{id 16829}# 3)))
          (vector
            'syntax-object
            #{datum 16830}#
            #{wrap 16835}#
            #{module 16836}#))))
    (set! syntax->datum
      (lambda (#{x 16843}#)
        (#{strip 4456}# #{x 16843}# '(()))))
    (set! syntax-source
      (lambda (#{x 16846}#)
        (#{source-annotation 4404}# #{x 16846}#)))
    (set! generate-temporaries
      (lambda (#{ls 17048}#)
        (begin
          (if (not (list? #{ls 17048}#))
            (syntax-violation
              'generate-temporaries
              "invalid argument"
              #{ls 17048}#))
          (let ((#{mod 17056}#
                  (cons 'hygiene (module-name (current-module)))))
            (map (lambda (#{x 17057}#)
                   (let ((#{x 17061}# (gensym)))
                     (if (if (vector? #{x 17061}#)
                           (if (= (vector-length #{x 17061}#) 4)
                             (eq? (vector-ref #{x 17061}# 0) 'syntax-object)
                             #f)
                           #f)
                       (let ((#{expression 17076}# (vector-ref #{x 17061}# 1))
                             (#{wrap 17077}#
                               (let ((#{w2 17085}# (vector-ref #{x 17061}# 2)))
                                 (cons (let ((#{m2 17092}# (car #{w2 17085}#)))
                                         (if (null? #{m2 17092}#)
                                           '(top)
                                           (append '(top) #{m2 17092}#)))
                                       (let ((#{m2 17099}# (cdr #{w2 17085}#)))
                                         (if (null? #{m2 17099}#)
                                           '()
                                           (append '() #{m2 17099}#))))))
                             (#{module 17078}# (vector-ref #{x 17061}# 3)))
                         (vector
                           'syntax-object
                           #{expression 17076}#
                           #{wrap 17077}#
                           #{module 17078}#))
                       (if (null? #{x 17061}#)
                         #{x 17061}#
                         (vector
                           'syntax-object
                           #{x 17061}#
                           '((top))
                           #{mod 17056}#)))))
                 #{ls 17048}#)))))
    (set! free-identifier=?
      (lambda (#{x 17108}# #{y 17109}#)
        (begin
          (if (not (if (if (vector? #{x 17108}#)
                         (if (= (vector-length #{x 17108}#) 4)
                           (eq? (vector-ref #{x 17108}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{x 17108}# 1))
                     #f))
            (syntax-violation
              'free-identifier=?
              "invalid argument"
              #{x 17108}#))
          (if (not (if (if (vector? #{y 17109}#)
                         (if (= (vector-length #{y 17109}#) 4)
                           (eq? (vector-ref #{y 17109}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{y 17109}# 1))
                     #f))
            (syntax-violation
              'free-identifier=?
              "invalid argument"
              #{y 17109}#))
          (#{free-id=? 4431}# #{x 17108}# #{y 17109}#))))
    (set! bound-identifier=?
      (lambda (#{x 17184}# #{y 17185}#)
        (begin
          (if (not (if (if (vector? #{x 17184}#)
                         (if (= (vector-length #{x 17184}#) 4)
                           (eq? (vector-ref #{x 17184}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{x 17184}# 1))
                     #f))
            (syntax-violation
              'bound-identifier=?
              "invalid argument"
              #{x 17184}#))
          (if (not (if (if (vector? #{y 17185}#)
                         (if (= (vector-length #{y 17185}#) 4)
                           (eq? (vector-ref #{y 17185}# 0) 'syntax-object)
                           #f)
                         #f)
                     (symbol? (vector-ref #{y 17185}# 1))
                     #f))
            (syntax-violation
              'bound-identifier=?
              "invalid argument"
              #{y 17185}#))
          (#{bound-id=? 4432}# #{x 17184}# #{y 17185}#))))
    (set! syntax-violation
      (lambda*
        (#{who 17351}#
          #{message 17352}#
          #{form 17353}#
          #:optional
          (#{subform 17354}# #f))
        (begin
          (if (not (if (not #{who 17351}#)
                     (not #{who 17351}#)
                     (let ((#{t 17372}# (string? #{who 17351}#)))
                       (if #{t 17372}#
                         #{t 17372}#
                         (symbol? #{who 17351}#)))))
            (syntax-violation
              'syntax-violation
              "invalid argument"
              #{who 17351}#))
          (if (not (string? #{message 17352}#))
            (syntax-violation
              'syntax-violation
              "invalid argument"
              #{message 17352}#))
          (throw 'syntax-error
                 #{who 17351}#
                 #{message 17352}#
                 (#{source-annotation 4404}#
                   (if #{form 17353}#
                     #{form 17353}#
                     #{subform 17354}#))
                 (#{strip 4456}# #{form 17353}# '(()))
                 (if #{subform 17354}#
                   (#{strip 4456}# #{subform 17354}# '(()))
                   #f)))))
    (letrec*
      ((#{match-each 17623}#
         (lambda (#{e 18511}#
                  #{p 18512}#
                  #{w 18513}#
                  #{mod 18514}#)
           (if (pair? #{e 18511}#)
             (let ((#{first 18515}#
                     (#{match 17629}#
                       (car #{e 18511}#)
                       #{p 18512}#
                       #{w 18513}#
                       '()
                       #{mod 18514}#)))
               (if #{first 18515}#
                 (let ((#{rest 18518}#
                         (#{match-each 17623}#
                           (cdr #{e 18511}#)
                           #{p 18512}#
                           #{w 18513}#
                           #{mod 18514}#)))
                   (if #{rest 18518}#
                     (cons #{first 18515}# #{rest 18518}#)
                     #f))
                 #f))
             (if (null? #{e 18511}#)
               '()
               (if (if (vector? #{e 18511}#)
                     (if (= (vector-length #{e 18511}#) 4)
                       (eq? (vector-ref #{e 18511}# 0) 'syntax-object)
                       #f)
                     #f)
                 (#{match-each 17623}#
                   (vector-ref #{e 18511}# 1)
                   #{p 18512}#
                   (let ((#{w2 18540}# (vector-ref #{e 18511}# 2)))
                     (let ((#{m1 18541}# (car #{w 18513}#))
                           (#{s1 18542}# (cdr #{w 18513}#)))
                       (if (null? #{m1 18541}#)
                         (if (null? #{s1 18542}#)
                           #{w2 18540}#
                           (cons (car #{w2 18540}#)
                                 (let ((#{m2 18553}# (cdr #{w2 18540}#)))
                                   (if (null? #{m2 18553}#)
                                     #{s1 18542}#
                                     (append #{s1 18542}# #{m2 18553}#)))))
                         (cons (let ((#{m2 18561}# (car #{w2 18540}#)))
                                 (if (null? #{m2 18561}#)
                                   #{m1 18541}#
                                   (append #{m1 18541}# #{m2 18561}#)))
                               (let ((#{m2 18569}# (cdr #{w2 18540}#)))
                                 (if (null? #{m2 18569}#)
                                   #{s1 18542}#
                                   (append #{s1 18542}# #{m2 18569}#)))))))
                   (vector-ref #{e 18511}# 3))
                 #f)))))
       (#{match-each-any 17625}#
         (lambda (#{e 18578}# #{w 18579}# #{mod 18580}#)
           (if (pair? #{e 18578}#)
             (let ((#{l 18581}#
                     (#{match-each-any 17625}#
                       (cdr #{e 18578}#)
                       #{w 18579}#
                       #{mod 18580}#)))
               (if #{l 18581}#
                 (cons (let ((#{x 18586}# (car #{e 18578}#)))
                         (if (if (null? (car #{w 18579}#))
                               (null? (cdr #{w 18579}#))
                               #f)
                           #{x 18586}#
                           (if (if (vector? #{x 18586}#)
                                 (if (= (vector-length #{x 18586}#) 4)
                                   (eq? (vector-ref #{x 18586}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
                             (let ((#{expression 18604}#
                                     (vector-ref #{x 18586}# 1))
                                   (#{wrap 18605}#
                                     (let ((#{w2 18613}#
                                             (vector-ref #{x 18586}# 2)))
                                       (let ((#{m1 18614}# (car #{w 18579}#))
                                             (#{s1 18615}# (cdr #{w 18579}#)))
                                         (if (null? #{m1 18614}#)
                                           (if (null? #{s1 18615}#)
                                             #{w2 18613}#
                                             (cons (car #{w2 18613}#)
                                                   (let ((#{m2 18630}#
                                                           (cdr #{w2 18613}#)))
                                                     (if (null? #{m2 18630}#)
                                                       #{s1 18615}#
                                                       (append
                                                         #{s1 18615}#
                                                         #{m2 18630}#)))))
                                           (cons (let ((#{m2 18638}#
                                                         (car #{w2 18613}#)))
                                                   (if (null? #{m2 18638}#)
                                                     #{m1 18614}#
                                                     (append
                                                       #{m1 18614}#
                                                       #{m2 18638}#)))
                                                 (let ((#{m2 18646}#
                                                         (cdr #{w2 18613}#)))
                                                   (if (null? #{m2 18646}#)
                                                     #{s1 18615}#
                                                     (append
                                                       #{s1 18615}#
                                                       #{m2 18646}#))))))))
                                   (#{module 18606}#
                                     (vector-ref #{x 18586}# 3)))
                               (vector
                                 'syntax-object
                                 #{expression 18604}#
                                 #{wrap 18605}#
                                 #{module 18606}#))
                             (if (null? #{x 18586}#)
                               #{x 18586}#
                               (vector
                                 'syntax-object
                                 #{x 18586}#
                                 #{w 18579}#
                                 #{mod 18580}#)))))
                       #{l 18581}#)
                 #f))
             (if (null? #{e 18578}#)
               '()
               (if (if (vector? #{e 18578}#)
                     (if (= (vector-length #{e 18578}#) 4)
                       (eq? (vector-ref #{e 18578}# 0) 'syntax-object)
                       #f)
                     #f)
                 (#{match-each-any 17625}#
                   (vector-ref #{e 18578}# 1)
                   (let ((#{w2 18679}# (vector-ref #{e 18578}# 2)))
                     (let ((#{m1 18680}# (car #{w 18579}#))
                           (#{s1 18681}# (cdr #{w 18579}#)))
                       (if (null? #{m1 18680}#)
                         (if (null? #{s1 18681}#)
                           #{w2 18679}#
                           (cons (car #{w2 18679}#)
                                 (let ((#{m2 18692}# (cdr #{w2 18679}#)))
                                   (if (null? #{m2 18692}#)
                                     #{s1 18681}#
                                     (append #{s1 18681}# #{m2 18692}#)))))
                         (cons (let ((#{m2 18700}# (car #{w2 18679}#)))
                                 (if (null? #{m2 18700}#)
                                   #{m1 18680}#
                                   (append #{m1 18680}# #{m2 18700}#)))
                               (let ((#{m2 18708}# (cdr #{w2 18679}#)))
                                 (if (null? #{m2 18708}#)
                                   #{s1 18681}#
                                   (append #{s1 18681}# #{m2 18708}#)))))))
                   #{mod 18580}#)
                 #f)))))
       (#{match-empty 17626}#
         (lambda (#{p 18713}# #{r 18714}#)
           (if (null? #{p 18713}#)
             #{r 18714}#
             (if (eq? #{p 18713}# '_)
               #{r 18714}#
               (if (eq? #{p 18713}# 'any)
                 (cons '() #{r 18714}#)
                 (if (pair? #{p 18713}#)
                   (#{match-empty 17626}#
                     (car #{p 18713}#)
                     (#{match-empty 17626}#
                       (cdr #{p 18713}#)
                       #{r 18714}#))
                   (if (eq? #{p 18713}# 'each-any)
                     (cons '() #{r 18714}#)
                     (let ((#{atom-key 18715}# (vector-ref #{p 18713}# 0)))
                       (if (eqv? #{atom-key 18715}# 'each)
                         (#{match-empty 17626}#
                           (vector-ref #{p 18713}# 1)
                           #{r 18714}#)
                         (if (eqv? #{atom-key 18715}# 'each+)
                           (#{match-empty 17626}#
                             (vector-ref #{p 18713}# 1)
                             (#{match-empty 17626}#
                               (reverse (vector-ref #{p 18713}# 2))
                               (#{match-empty 17626}#
                                 (vector-ref #{p 18713}# 3)
                                 #{r 18714}#)))
                           (if (if (eqv? #{atom-key 18715}# 'free-id)
                                 #t
                                 (eqv? #{atom-key 18715}# 'atom))
                             #{r 18714}#
                             (if (eqv? #{atom-key 18715}# 'vector)
                               (#{match-empty 17626}#
                                 (vector-ref #{p 18713}# 1)
                                 #{r 18714}#)))))))))))))
       (#{combine 17627}#
         (lambda (#{r* 18734}# #{r 18735}#)
           (if (null? (car #{r* 18734}#))
             #{r 18735}#
             (cons (map car #{r* 18734}#)
                   (#{combine 17627}#
                     (map cdr #{r* 18734}#)
                     #{r 18735}#)))))
       (#{match* 17628}#
         (lambda (#{e 17658}#
                  #{p 17659}#
                  #{w 17660}#
                  #{r 17661}#
                  #{mod 17662}#)
           (if (null? #{p 17659}#)
             (if (null? #{e 17658}#) #{r 17661}# #f)
             (if (pair? #{p 17659}#)
               (if (pair? #{e 17658}#)
                 (#{match 17629}#
                   (car #{e 17658}#)
                   (car #{p 17659}#)
                   #{w 17660}#
                   (#{match 17629}#
                     (cdr #{e 17658}#)
                     (cdr #{p 17659}#)
                     #{w 17660}#
                     #{r 17661}#
                     #{mod 17662}#)
                   #{mod 17662}#)
                 #f)
               (if (eq? #{p 17659}# 'each-any)
                 (let ((#{l 17667}#
                         (#{match-each-any 17625}#
                           #{e 17658}#
                           #{w 17660}#
                           #{mod 17662}#)))
                   (if #{l 17667}#
                     (cons #{l 17667}# #{r 17661}#)
                     #f))
                 (let ((#{atom-key 17672}# (vector-ref #{p 17659}# 0)))
                   (if (eqv? #{atom-key 17672}# 'each)
                     (if (null? #{e 17658}#)
                       (#{match-empty 17626}#
                         (vector-ref #{p 17659}# 1)
                         #{r 17661}#)
                       (let ((#{l 17679}#
                               (#{match-each 17623}#
                                 #{e 17658}#
                                 (vector-ref #{p 17659}# 1)
                                 #{w 17660}#
                                 #{mod 17662}#)))
                         (if #{l 17679}#
                           (letrec*
                             ((#{collect 17682}#
                                (lambda (#{l 17743}#)
                                  (if (null? (car #{l 17743}#))
                                    #{r 17661}#
                                    (cons (map car #{l 17743}#)
                                          (#{collect 17682}#
                                            (map cdr #{l 17743}#)))))))
                             (#{collect 17682}# #{l 17679}#))
                           #f)))
                     (if (eqv? #{atom-key 17672}# 'each+)
                       (call-with-values
                         (lambda ()
                           (let ((#{x-pat 17752}# (vector-ref #{p 17659}# 1))
                                 (#{y-pat 17753}# (vector-ref #{p 17659}# 2))
                                 (#{z-pat 17754}# (vector-ref #{p 17659}# 3)))
                             (letrec*
                               ((#{f 17758}#
                                  (lambda (#{e 17760}# #{w 17761}#)
                                    (if (pair? #{e 17760}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{f 17758}#
                                            (cdr #{e 17760}#)
                                            #{w 17761}#))
                                        (lambda (#{xr* 17762}#
                                                 #{y-pat 17763}#
                                                 #{r 17764}#)
                                          (if #{r 17764}#
                                            (if (null? #{y-pat 17763}#)
                                              (let ((#{xr 17765}#
                                                      (#{match 17629}#
                                                        (car #{e 17760}#)
                                                        #{x-pat 17752}#
                                                        #{w 17761}#
                                                        '()
                                                        #{mod 17662}#)))
                                                (if #{xr 17765}#
                                                  (values
                                                    (cons #{xr 17765}#
                                                          #{xr* 17762}#)
                                                    #{y-pat 17763}#
                                                    #{r 17764}#)
                                                  (values #f #f #f)))
                                              (values
                                                '()
                                                (cdr #{y-pat 17763}#)
                                                (#{match 17629}#
                                                  (car #{e 17760}#)
                                                  (car #{y-pat 17763}#)
                                                  #{w 17761}#
                                                  #{r 17764}#
                                                  #{mod 17662}#)))
                                            (values #f #f #f))))
                                      (if (if (vector? #{e 17760}#)
                                            (if (= (vector-length #{e 17760}#)
                                                   4)
                                              (eq? (vector-ref #{e 17760}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (#{f 17758}#
                                          (vector-ref #{e 17760}# 1)
                                          (let ((#{m1 17793}#
                                                  (car #{w 17761}#))
                                                (#{s1 17794}#
                                                  (cdr #{w 17761}#)))
                                            (if (null? #{m1 17793}#)
                                              (if (null? #{s1 17794}#)
                                                #{e 17760}#
                                                (cons (car #{e 17760}#)
                                                      (let ((#{m2 17806}#
                                                              (cdr #{e 17760}#)))
                                                        (if (null? #{m2 17806}#)
                                                          #{s1 17794}#
                                                          (append
                                                            #{s1 17794}#
                                                            #{m2 17806}#)))))
                                              (cons (let ((#{m2 17816}#
                                                            (car #{e 17760}#)))
                                                      (if (null? #{m2 17816}#)
                                                        #{m1 17793}#
                                                        (append
                                                          #{m1 17793}#
                                                          #{m2 17816}#)))
                                                    (let ((#{m2 17826}#
                                                            (cdr #{e 17760}#)))
                                                      (if (null? #{m2 17826}#)
                                                        #{s1 17794}#
                                                        (append
                                                          #{s1 17794}#
                                                          #{m2 17826}#)))))))
                                        (values
                                          '()
                                          #{y-pat 17753}#
                                          (#{match 17629}#
                                            #{e 17760}#
                                            #{z-pat 17754}#
                                            #{w 17761}#
                                            #{r 17661}#
                                            #{mod 17662}#)))))))
                               (#{f 17758}# #{e 17658}# #{w 17660}#))))
                         (lambda (#{xr* 17836}# #{y-pat 17837}# #{r 17838}#)
                           (if #{r 17838}#
                             (if (null? #{y-pat 17837}#)
                               (if (null? #{xr* 17836}#)
                                 (#{match-empty 17626}#
                                   (vector-ref #{p 17659}# 1)
                                   #{r 17838}#)
                                 (#{combine 17627}# #{xr* 17836}# #{r 17838}#))
                               #f)
                             #f)))
                       (if (eqv? #{atom-key 17672}# 'free-id)
                         (if (if (symbol? #{e 17658}#)
                               #t
                               (if (if (vector? #{e 17658}#)
                                     (if (= (vector-length #{e 17658}#) 4)
                                       (eq? (vector-ref #{e 17658}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
                                 (symbol? (vector-ref #{e 17658}# 1))
                                 #f))
                           (if (#{free-id=? 4431}#
                                 (if (if (null? (car #{w 17660}#))
                                       (null? (cdr #{w 17660}#))
                                       #f)
                                   #{e 17658}#
                                   (if (if (vector? #{e 17658}#)
                                         (if (= (vector-length #{e 17658}#) 4)
                                           (eq? (vector-ref #{e 17658}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
                                     (let ((#{expression 18269}#
                                             (vector-ref #{e 17658}# 1))
                                           (#{wrap 18270}#
                                             (let ((#{w2 18280}#
                                                     (vector-ref
                                                       #{e 17658}#
                                                       2)))
                                               (let ((#{m1 18281}#
                                                       (car #{w 17660}#))
                                                     (#{s1 18282}#
                                                       (cdr #{w 17660}#)))
                                                 (if (null? #{m1 18281}#)
                                                   (if (null? #{s1 18282}#)
                                                     #{w2 18280}#
                                                     (cons (car #{w2 18280}#)
                                                           (let ((#{m2 18299}#
                                                                   (cdr #{w2 18280}#)))
                                                             (if (null? #{m2 18299}#)
                                                               #{s1 18282}#
                                                               (append
                                                                 #{s1 18282}#
                                                                 #{m2 18299}#)))))
                                                   (cons (let ((#{m2 18307}#
                                                                 (car #{w2 18280}#)))
                                                           (if (null? #{m2 18307}#)
                                                             #{m1 18281}#
                                                             (append
                                                               #{m1 18281}#
                                                               #{m2 18307}#)))
                                                         (let ((#{m2 18315}#
                                                                 (cdr #{w2 18280}#)))
                                                           (if (null? #{m2 18315}#)
                                                             #{s1 18282}#
                                                             (append
                                                               #{s1 18282}#
                                                               #{m2 18315}#))))))))
                                           (#{module 18271}#
                                             (vector-ref #{e 17658}# 3)))
                                       (vector
                                         'syntax-object
                                         #{expression 18269}#
                                         #{wrap 18270}#
                                         #{module 18271}#))
                                     (if (null? #{e 17658}#)
                                       #{e 17658}#
                                       (vector
                                         'syntax-object
                                         #{e 17658}#
                                         #{w 17660}#
                                         #{mod 17662}#))))
                                 (vector-ref #{p 17659}# 1))
                             #{r 17661}#
                             #f)
                           #f)
                         (if (eqv? #{atom-key 17672}# 'atom)
                           (if (equal?
                                 (vector-ref #{p 17659}# 1)
                                 (#{strip 4456}# #{e 17658}# #{w 17660}#))
                             #{r 17661}#
                             #f)
                           (if (eqv? #{atom-key 17672}# 'vector)
                             (if (vector? #{e 17658}#)
                               (#{match 17629}#
                                 (vector->list #{e 17658}#)
                                 (vector-ref #{p 17659}# 1)
                                 #{w 17660}#
                                 #{r 17661}#
                                 #{mod 17662}#)
                               #f))))))))))))
       (#{match 17629}#
         (lambda (#{e 18348}#
                  #{p 18349}#
                  #{w 18350}#
                  #{r 18351}#
                  #{mod 18352}#)
           (if (not #{r 18351}#)
             #f
             (if (eq? #{p 18349}# '_)
               #{r 18351}#
               (if (eq? #{p 18349}# 'any)
                 (cons (if (if (null? (car #{w 18350}#))
                             (null? (cdr #{w 18350}#))
                             #f)
                         #{e 18348}#
                         (if (if (vector? #{e 18348}#)
                               (if (= (vector-length #{e 18348}#) 4)
                                 (eq? (vector-ref #{e 18348}# 0)
                                      'syntax-object)
                                 #f)
                               #f)
                           (let ((#{expression 18382}#
                                   (vector-ref #{e 18348}# 1))
                                 (#{wrap 18383}#
                                   (let ((#{w2 18393}#
                                           (vector-ref #{e 18348}# 2)))
                                     (let ((#{m1 18394}# (car #{w 18350}#))
                                           (#{s1 18395}# (cdr #{w 18350}#)))
                                       (if (null? #{m1 18394}#)
                                         (if (null? #{s1 18395}#)
                                           #{w2 18393}#
                                           (cons (car #{w2 18393}#)
                                                 (let ((#{m2 18412}#
                                                         (cdr #{w2 18393}#)))
                                                   (if (null? #{m2 18412}#)
                                                     #{s1 18395}#
                                                     (append
                                                       #{s1 18395}#
                                                       #{m2 18412}#)))))
                                         (cons (let ((#{m2 18420}#
                                                       (car #{w2 18393}#)))
                                                 (if (null? #{m2 18420}#)
                                                   #{m1 18394}#
                                                   (append
                                                     #{m1 18394}#
                                                     #{m2 18420}#)))
                                               (let ((#{m2 18428}#
                                                       (cdr #{w2 18393}#)))
                                                 (if (null? #{m2 18428}#)
                                                   #{s1 18395}#
                                                   (append
                                                     #{s1 18395}#
                                                     #{m2 18428}#))))))))
                                 (#{module 18384}# (vector-ref #{e 18348}# 3)))
                             (vector
                               'syntax-object
                               #{expression 18382}#
                               #{wrap 18383}#
                               #{module 18384}#))
                           (if (null? #{e 18348}#)
                             #{e 18348}#
                             (vector
                               'syntax-object
                               #{e 18348}#
                               #{w 18350}#
                               #{mod 18352}#))))
                       #{r 18351}#)
                 (if (if (vector? #{e 18348}#)
                       (if (= (vector-length #{e 18348}#) 4)
                         (eq? (vector-ref #{e 18348}# 0) 'syntax-object)
                         #f)
                       #f)
                   (#{match* 17628}#
                     (vector-ref #{e 18348}# 1)
                     #{p 18349}#
                     (let ((#{w2 18471}# (vector-ref #{e 18348}# 2)))
                       (let ((#{m1 18472}# (car #{w 18350}#))
                             (#{s1 18473}# (cdr #{w 18350}#)))
                         (if (null? #{m1 18472}#)
                           (if (null? #{s1 18473}#)
                             #{w2 18471}#
                             (cons (car #{w2 18471}#)
                                   (let ((#{m2 18484}# (cdr #{w2 18471}#)))
                                     (if (null? #{m2 18484}#)
                                       #{s1 18473}#
                                       (append #{s1 18473}# #{m2 18484}#)))))
                           (cons (let ((#{m2 18492}# (car #{w2 18471}#)))
                                   (if (null? #{m2 18492}#)
                                     #{m1 18472}#
                                     (append #{m1 18472}# #{m2 18492}#)))
                                 (let ((#{m2 18500}# (cdr #{w2 18471}#)))
                                   (if (null? #{m2 18500}#)
                                     #{s1 18473}#
                                     (append #{s1 18473}# #{m2 18500}#)))))))
                     #{r 18351}#
                     (vector-ref #{e 18348}# 3))
                   (#{match* 17628}#
                     #{e 18348}#
                     #{p 18349}#
                     #{w 18350}#
                     #{r 18351}#
                     #{mod 18352}#))))))))
      (set! $sc-dispatch
        (lambda (#{e 17630}# #{p 17631}#)
          (if (eq? #{p 17631}# 'any)
            (list #{e 17630}#)
            (if (eq? #{p 17631}# '_)
              '()
              (if (if (vector? #{e 17630}#)
                    (if (= (vector-length #{e 17630}#) 4)
                      (eq? (vector-ref #{e 17630}# 0) 'syntax-object)
                      #f)
                    #f)
                (#{match* 17628}#
                  (vector-ref #{e 17630}# 1)
                  #{p 17631}#
                  (vector-ref #{e 17630}# 2)
                  '()
                  (vector-ref #{e 17630}# 3))
                (#{match* 17628}#
                  #{e 17630}#
                  #{p 17631}#
                  '(())
                  '()
                  #f)))))))))

(define with-syntax
  (make-syntax-transformer
    'with-syntax
    'macro
    (lambda (#{x 36772}#)
      (let ((#{tmp 36774}#
              ($sc-dispatch #{x 36772}# '(_ () any . each-any))))
        (if #{tmp 36774}#
          (@apply
            (lambda (#{e1 36778}# #{e2 36779}#)
              (cons '#(syntax-object
                       let
                       ((top)
                        #(ribcage
                          #(e1 e2)
                          #((top) (top))
                          #("i36745" "i36746"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i36742"))
                        #(ribcage
                          (with-syntax)
                          ((top))
                          (((hygiene guile)
                            .
                            #(syntax-object
                              with-syntax
                              ((top))
                              (hygiene guile))))))
                       (hygiene guile))
                    (cons '() (cons #{e1 36778}# #{e2 36779}#))))
            #{tmp 36774}#)
          (let ((#{tmp 36780}#
                  ($sc-dispatch
                    #{x 36772}#
                    '(_ ((any any)) any . each-any))))
            (if #{tmp 36780}#
              (@apply
                (lambda (#{out 36784}#
                         #{in 36785}#
                         #{e1 36786}#
                         #{e2 36787}#)
                  (list '#(syntax-object
                           syntax-case
                           ((top)
                            #(ribcage
                              #(out in e1 e2)
                              #((top) (top) (top) (top))
                              #("i36751" "i36752" "i36753" "i36754"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i36742"))
                            #(ribcage
                              (with-syntax)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  with-syntax
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        #{in 36785}#
                        '()
                        (list #{out 36784}#
                              (cons '#(syntax-object
                                       let
                                       ((top)
                                        #(ribcage
                                          #(out in e1 e2)
                                          #((top) (top) (top) (top))
                                          #("i36751"
                                            "i36752"
                                            "i36753"
                                            "i36754"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i36742"))
                                        #(ribcage
                                          (with-syntax)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              with-syntax
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile))
                                    (cons '()
                                          (cons #{e1 36786}# #{e2 36787}#))))))
                #{tmp 36780}#)
              (let ((#{tmp 36788}#
                      ($sc-dispatch
                        #{x 36772}#
                        '(_ #(each (any any)) any . each-any))))
                (if #{tmp 36788}#
                  (@apply
                    (lambda (#{out 36792}#
                             #{in 36793}#
                             #{e1 36794}#
                             #{e2 36795}#)
                      (list '#(syntax-object
                               syntax-case
                               ((top)
                                #(ribcage
                                  #(out in e1 e2)
                                  #((top) (top) (top) (top))
                                  #("i36761" "i36762" "i36763" "i36764"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i36742"))
                                #(ribcage
                                  (with-syntax)
                                  ((top))
                                  (((hygiene guile)
                                    .
                                    #(syntax-object
                                      with-syntax
                                      ((top))
                                      (hygiene guile))))))
                               (hygiene guile))
                            (cons '#(syntax-object
                                     list
                                     ((top)
                                      #(ribcage
                                        #(out in e1 e2)
                                        #((top) (top) (top) (top))
                                        #("i36761" "i36762" "i36763" "i36764"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i36742"))
                                      #(ribcage
                                        (with-syntax)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            with-syntax
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile))
                                  #{in 36793}#)
                            '()
                            (list #{out 36792}#
                                  (cons '#(syntax-object
                                           let
                                           ((top)
                                            #(ribcage
                                              #(out in e1 e2)
                                              #((top) (top) (top) (top))
                                              #("i36761"
                                                "i36762"
                                                "i36763"
                                                "i36764"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("i36742"))
                                            #(ribcage
                                              (with-syntax)
                                              ((top))
                                              (((hygiene guile)
                                                .
                                                #(syntax-object
                                                  with-syntax
                                                  ((top))
                                                  (hygiene guile))))))
                                           (hygiene guile))
                                        (cons '()
                                              (cons #{e1 36794}#
                                                    #{e2 36795}#))))))
                    #{tmp 36788}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{x 36772}#))))))))))

(define syntax-rules
  (make-syntax-transformer
    'syntax-rules
    'macro
    (lambda (#{x 36850}#)
      (let ((#{tmp 36852}#
              ($sc-dispatch
                #{x 36850}#
                '(_ each-any . #(each ((any . any) any))))))
        (if #{tmp 36852}#
          (@apply
            (lambda (#{k 36856}#
                     #{keyword 36857}#
                     #{pattern 36858}#
                     #{template 36859}#)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage
                          #(k keyword pattern template)
                          #((top) (top) (top) (top))
                          #("i36813" "i36814" "i36815" "i36816"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i36810"))
                        #(ribcage
                          (syntax-rules)
                          ((top))
                          (((hygiene guile)
                            .
                            #(syntax-object
                              syntax-rules
                              ((top))
                              (hygiene guile))))))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage
                           #(k keyword pattern template)
                           #((top) (top) (top) (top))
                           #("i36813" "i36814" "i36815" "i36816"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("i36810"))
                         #(ribcage
                           (syntax-rules)
                           ((top))
                           (((hygiene guile)
                             .
                             #(syntax-object
                               syntax-rules
                               ((top))
                               (hygiene guile))))))
                        (hygiene guile)))
                    (vector
                      '(#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("i36813" "i36814" "i36815" "i36816"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i36810"))
                           #(ribcage
                             (syntax-rules)
                             ((top))
                             (((hygiene guile)
                               .
                               #(syntax-object
                                 syntax-rules
                                 ((top))
                                 (hygiene guile))))))
                          (hygiene guile))
                        .
                        #(syntax-object
                          syntax-rules
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("i36813" "i36814" "i36815" "i36816"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i36810"))
                           #(ribcage
                             (syntax-rules)
                             ((top))
                             (((hygiene guile)
                               .
                               #(syntax-object
                                 syntax-rules
                                 ((top))
                                 (hygiene guile))))))
                          (hygiene guile)))
                      (cons '#(syntax-object
                               patterns
                               ((top)
                                #(ribcage
                                  #(k keyword pattern template)
                                  #((top) (top) (top) (top))
                                  #("i36813" "i36814" "i36815" "i36816"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i36810"))
                                #(ribcage
                                  (syntax-rules)
                                  ((top))
                                  (((hygiene guile)
                                    .
                                    #(syntax-object
                                      syntax-rules
                                      ((top))
                                      (hygiene guile))))))
                               (hygiene guile))
                            #{pattern 36858}#))
                    (cons '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
                                #("i36813" "i36814" "i36815" "i36816"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i36810"))
                              #(ribcage
                                (syntax-rules)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    syntax-rules
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                          (cons '#(syntax-object
                                   x
                                   ((top)
                                    #(ribcage
                                      #(k keyword pattern template)
                                      #((top) (top) (top) (top))
                                      #("i36813" "i36814" "i36815" "i36816"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i36810"))
                                    #(ribcage
                                      (syntax-rules)
                                      ((top))
                                      (((hygiene guile)
                                        .
                                        #(syntax-object
                                          syntax-rules
                                          ((top))
                                          (hygiene guile))))))
                                   (hygiene guile))
                                (cons #{k 36856}#
                                      (map (lambda (#{tmp 36824 36860}#
                                                    #{tmp 36823 36861}#)
                                             (list (cons '#(syntax-object
                                                            _
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i36813"
                                                                 "i36814"
                                                                 "i36815"
                                                                 "i36816"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i36810"))
                                                             #(ribcage
                                                               (syntax-rules)
                                                               ((top))
                                                               (((hygiene
                                                                   guile)
                                                                 .
                                                                 #(syntax-object
                                                                   syntax-rules
                                                                   ((top))
                                                                   (hygiene
                                                                     guile))))))
                                                            (hygiene guile))
                                                         #{tmp 36823 36861}#)
                                                   (list '#(syntax-object
                                                            syntax
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i36813"
                                                                 "i36814"
                                                                 "i36815"
                                                                 "i36816"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i36810"))
                                                             #(ribcage
                                                               (syntax-rules)
                                                               ((top))
                                                               (((hygiene
                                                                   guile)
                                                                 .
                                                                 #(syntax-object
                                                                   syntax-rules
                                                                   ((top))
                                                                   (hygiene
                                                                     guile))))))
                                                            (hygiene guile))
                                                         #{tmp 36824 36860}#)))
                                           #{template 36859}#
                                           #{pattern 36858}#))))))
            #{tmp 36852}#)
          (let ((#{tmp 36862}#
                  ($sc-dispatch
                    #{x 36850}#
                    '(_ each-any any . #(each ((any . any) any))))))
            (if (if #{tmp 36862}#
                  (@apply
                    (lambda (#{k 36866}#
                             #{docstring 36867}#
                             #{keyword 36868}#
                             #{pattern 36869}#
                             #{template 36870}#)
                      (string? (syntax->datum #{docstring 36867}#)))
                    #{tmp 36862}#)
                  #f)
              (@apply
                (lambda (#{k 36871}#
                         #{docstring 36872}#
                         #{keyword 36873}#
                         #{pattern 36874}#
                         #{template 36875}#)
                  (list '#(syntax-object
                           lambda
                           ((top)
                            #(ribcage
                              #(k docstring keyword pattern template)
                              #((top) (top) (top) (top) (top))
                              #("i36836" "i36837" "i36838" "i36839" "i36840"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i36810"))
                            #(ribcage
                              (syntax-rules)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  syntax-rules
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        '(#(syntax-object
                            x
                            ((top)
                             #(ribcage
                               #(k docstring keyword pattern template)
                               #((top) (top) (top) (top) (top))
                               #("i36836" "i36837" "i36838" "i36839" "i36840"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i36810"))
                             #(ribcage
                               (syntax-rules)
                               ((top))
                               (((hygiene guile)
                                 .
                                 #(syntax-object
                                   syntax-rules
                                   ((top))
                                   (hygiene guile))))))
                            (hygiene guile)))
                        #{docstring 36872}#
                        (vector
                          '(#(syntax-object
                              macro-type
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("i36836"
                                   "i36837"
                                   "i36838"
                                   "i36839"
                                   "i36840"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i36810"))
                               #(ribcage
                                 (syntax-rules)
                                 ((top))
                                 (((hygiene guile)
                                   .
                                   #(syntax-object
                                     syntax-rules
                                     ((top))
                                     (hygiene guile))))))
                              (hygiene guile))
                            .
                            #(syntax-object
                              syntax-rules
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("i36836"
                                   "i36837"
                                   "i36838"
                                   "i36839"
                                   "i36840"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i36810"))
                               #(ribcage
                                 (syntax-rules)
                                 ((top))
                                 (((hygiene guile)
                                   .
                                   #(syntax-object
                                     syntax-rules
                                     ((top))
                                     (hygiene guile))))))
                              (hygiene guile)))
                          (cons '#(syntax-object
                                   patterns
                                   ((top)
                                    #(ribcage
                                      #(k docstring keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("i36836"
                                        "i36837"
                                        "i36838"
                                        "i36839"
                                        "i36840"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i36810"))
                                    #(ribcage
                                      (syntax-rules)
                                      ((top))
                                      (((hygiene guile)
                                        .
                                        #(syntax-object
                                          syntax-rules
                                          ((top))
                                          (hygiene guile))))))
                                   (hygiene guile))
                                #{pattern 36874}#))
                        (cons '#(syntax-object
                                 syntax-case
                                 ((top)
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
                                    #("i36836"
                                      "i36837"
                                      "i36838"
                                      "i36839"
                                      "i36840"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i36810"))
                                  #(ribcage
                                    (syntax-rules)
                                    ((top))
                                    (((hygiene guile)
                                      .
                                      #(syntax-object
                                        syntax-rules
                                        ((top))
                                        (hygiene guile))))))
                                 (hygiene guile))
                              (cons '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(k
                                            docstring
                                            keyword
                                            pattern
                                            template)
                                          #((top) (top) (top) (top) (top))
                                          #("i36836"
                                            "i36837"
                                            "i36838"
                                            "i36839"
                                            "i36840"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i36810"))
                                        #(ribcage
                                          (syntax-rules)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              syntax-rules
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile))
                                    (cons #{k 36871}#
                                          (map (lambda (#{tmp 36849 36876}#
                                                        #{tmp 36848 36877}#)
                                                 (list (cons '#(syntax-object
                                                                _
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("i36836"
                                                                     "i36837"
                                                                     "i36838"
                                                                     "i36839"
                                                                     "i36840"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i36810"))
                                                                 #(ribcage
                                                                   (syntax-rules)
                                                                   ((top))
                                                                   (((hygiene
                                                                       guile)
                                                                     .
                                                                     #(syntax-object
                                                                       syntax-rules
                                                                       ((top))
                                                                       (hygiene
                                                                         guile))))))
                                                                (hygiene
                                                                  guile))
                                                             #{tmp 36848 36877}#)
                                                       (list '#(syntax-object
                                                                syntax
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("i36836"
                                                                     "i36837"
                                                                     "i36838"
                                                                     "i36839"
                                                                     "i36840"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i36810"))
                                                                 #(ribcage
                                                                   (syntax-rules)
                                                                   ((top))
                                                                   (((hygiene
                                                                       guile)
                                                                     .
                                                                     #(syntax-object
                                                                       syntax-rules
                                                                       ((top))
                                                                       (hygiene
                                                                         guile))))))
                                                                (hygiene
                                                                  guile))
                                                             #{tmp 36849 36876}#)))
                                               #{template 36875}#
                                               #{pattern 36874}#))))))
                #{tmp 36862}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 36850}#))))))))

(define define-syntax-rule
  (make-syntax-transformer
    'define-syntax-rule
    'macro
    (lambda (#{x 36915}#)
      (let ((#{tmp 36917}#
              ($sc-dispatch #{x 36915}# '(_ (any . any) any))))
        (if #{tmp 36917}#
          (@apply
            (lambda (#{name 36921}#
                     #{pattern 36922}#
                     #{template 36923}#)
              (list '#(syntax-object
                       define-syntax
                       ((top)
                        #(ribcage
                          #(name pattern template)
                          #((top) (top) (top))
                          #("i36892" "i36893" "i36894"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i36889"))
                        #(ribcage
                          (define-syntax-rule)
                          ((top))
                          (((hygiene guile)
                            .
                            #(syntax-object
                              define-syntax-rule
                              ((top))
                              (hygiene guile))))))
                       (hygiene guile))
                    #{name 36921}#
                    (list '#(syntax-object
                             syntax-rules
                             ((top)
                              #(ribcage
                                #(name pattern template)
                                #((top) (top) (top))
                                #("i36892" "i36893" "i36894"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i36889"))
                              #(ribcage
                                (define-syntax-rule)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    define-syntax-rule
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                          '()
                          (list (cons '#(syntax-object
                                         _
                                         ((top)
                                          #(ribcage
                                            #(name pattern template)
                                            #((top) (top) (top))
                                            #("i36892" "i36893" "i36894"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i36889"))
                                          #(ribcage
                                            (define-syntax-rule)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                define-syntax-rule
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                      #{pattern 36922}#)
                                #{template 36923}#))))
            #{tmp 36917}#)
          (let ((#{tmp 36924}#
                  ($sc-dispatch
                    #{x 36915}#
                    '(_ (any . any) any any))))
            (if (if #{tmp 36924}#
                  (@apply
                    (lambda (#{name 36928}#
                             #{pattern 36929}#
                             #{docstring 36930}#
                             #{template 36931}#)
                      (string? (syntax->datum #{docstring 36930}#)))
                    #{tmp 36924}#)
                  #f)
              (@apply
                (lambda (#{name 36932}#
                         #{pattern 36933}#
                         #{docstring 36934}#
                         #{template 36935}#)
                  (list '#(syntax-object
                           define-syntax
                           ((top)
                            #(ribcage
                              #(name pattern docstring template)
                              #((top) (top) (top) (top))
                              #("i36907" "i36908" "i36909" "i36910"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i36889"))
                            #(ribcage
                              (define-syntax-rule)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  define-syntax-rule
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        #{name 36932}#
                        (list '#(syntax-object
                                 syntax-rules
                                 ((top)
                                  #(ribcage
                                    #(name pattern docstring template)
                                    #((top) (top) (top) (top))
                                    #("i36907" "i36908" "i36909" "i36910"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i36889"))
                                  #(ribcage
                                    (define-syntax-rule)
                                    ((top))
                                    (((hygiene guile)
                                      .
                                      #(syntax-object
                                        define-syntax-rule
                                        ((top))
                                        (hygiene guile))))))
                                 (hygiene guile))
                              '()
                              #{docstring 36934}#
                              (list (cons '#(syntax-object
                                             _
                                             ((top)
                                              #(ribcage
                                                #(name
                                                  pattern
                                                  docstring
                                                  template)
                                                #((top) (top) (top) (top))
                                                #("i36907"
                                                  "i36908"
                                                  "i36909"
                                                  "i36910"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i36889"))
                                              #(ribcage
                                                (define-syntax-rule)
                                                ((top))
                                                (((hygiene guile)
                                                  .
                                                  #(syntax-object
                                                    define-syntax-rule
                                                    ((top))
                                                    (hygiene guile))))))
                                             (hygiene guile))
                                          #{pattern 36933}#)
                                    #{template 36935}#))))
                #{tmp 36924}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 36915}#))))))))

(define let*
  (make-syntax-transformer
    'let*
    'macro
    (lambda (#{x 36985}#)
      (let ((#{tmp 36987}#
              ($sc-dispatch
                #{x 36985}#
                '(any #(each (any any)) any . each-any))))
        (if (if #{tmp 36987}#
              (@apply
                (lambda (#{let* 36991}#
                         #{x 36992}#
                         #{v 36993}#
                         #{e1 36994}#
                         #{e2 36995}#)
                  (and-map identifier? #{x 36992}#))
                #{tmp 36987}#)
              #f)
          (@apply
            (lambda (#{let* 36996}#
                     #{x 36997}#
                     #{v 36998}#
                     #{e1 36999}#
                     #{e2 37000}#)
              (letrec*
                ((#{f 37001}#
                   (lambda (#{bindings 37004}#)
                     (if (null? #{bindings 37004}#)
                       (cons '#(syntax-object
                                let
                                ((top)
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(f bindings)
                                   #((top) (top))
                                   #("i36971" "i36972"))
                                 #(ribcage
                                   #(let* x v e1 e2)
                                   #((top) (top) (top) (top) (top))
                                   #("i36961"
                                     "i36962"
                                     "i36963"
                                     "i36964"
                                     "i36965"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i36947"))
                                 #(ribcage
                                   (let*)
                                   ((top))
                                   (((hygiene guile)
                                     .
                                     #(syntax-object
                                       let*
                                       ((top))
                                       (hygiene guile))))))
                                (hygiene guile))
                             (cons '() (cons #{e1 36999}# #{e2 37000}#)))
                       (let ((#{tmp 37005}#
                               (list (#{f 37001}# (cdr #{bindings 37004}#))
                                     (car #{bindings 37004}#))))
                         (let ((#{tmp 37006}#
                                 ($sc-dispatch #{tmp 37005}# '(any any))))
                           (if #{tmp 37006}#
                             (@apply
                               (lambda (#{body 37008}# #{binding 37009}#)
                                 (list '#(syntax-object
                                          let
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(body binding)
                                             #((top) (top))
                                             #("i36981" "i36982"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(f bindings)
                                             #((top) (top))
                                             #("i36971" "i36972"))
                                           #(ribcage
                                             #(let* x v e1 e2)
                                             #((top) (top) (top) (top) (top))
                                             #("i36961"
                                               "i36962"
                                               "i36963"
                                               "i36964"
                                               "i36965"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i36947"))
                                           #(ribcage
                                             (let*)
                                             ((top))
                                             (((hygiene guile)
                                               .
                                               #(syntax-object
                                                 let*
                                                 ((top))
                                                 (hygiene guile))))))
                                          (hygiene guile))
                                       (list #{binding 37009}#)
                                       #{body 37008}#))
                               #{tmp 37006}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{tmp 37005}#))))))))
                (#{f 37001}# (map list #{x 36997}# #{v 36998}#))))
            #{tmp 36987}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 36985}#))))))

(define do
  (make-syntax-transformer
    'do
    'macro
    (lambda (#{orig-x 37068}#)
      (let ((#{tmp 37070}#
              ($sc-dispatch
                #{orig-x 37068}#
                '(_ #(each (any any . any))
                    (any . each-any)
                    .
                    each-any))))
        (if #{tmp 37070}#
          (@apply
            (lambda (#{var 37074}#
                     #{init 37075}#
                     #{step 37076}#
                     #{e0 37077}#
                     #{e1 37078}#
                     #{c 37079}#)
              (let ((#{tmp 37080}#
                      (map (lambda (#{v 37083}# #{s 37084}#)
                             (let ((#{tmp 37086}#
                                     ($sc-dispatch #{s 37084}# '())))
                               (if #{tmp 37086}#
                                 (@apply (lambda () #{v 37083}#) #{tmp 37086}#)
                                 (let ((#{tmp 37089}#
                                         ($sc-dispatch #{s 37084}# '(any))))
                                   (if #{tmp 37089}#
                                     (@apply
                                       (lambda (#{e 37092}#) #{e 37092}#)
                                       #{tmp 37089}#)
                                     (syntax-violation
                                       'do
                                       "bad step expression"
                                       #{orig-x 37068}#
                                       #{s 37084}#))))))
                           #{var 37074}#
                           #{step 37076}#)))
                (let ((#{tmp 37081}#
                        ($sc-dispatch #{tmp 37080}# 'each-any)))
                  (if #{tmp 37081}#
                    (@apply
                      (lambda (#{step 37098}#)
                        (let ((#{tmp 37100}# ($sc-dispatch #{e1 37078}# '())))
                          (if #{tmp 37100}#
                            (@apply
                              (lambda ()
                                (list '#(syntax-object
                                         let
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("i37036"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("i37021"
                                              "i37022"
                                              "i37023"
                                              "i37024"
                                              "i37025"
                                              "i37026"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("i37018"))
                                          #(ribcage
                                            (do)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                do
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                      '#(syntax-object
                                         doloop
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("i37036"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("i37021"
                                              "i37022"
                                              "i37023"
                                              "i37024"
                                              "i37025"
                                              "i37026"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("i37018"))
                                          #(ribcage
                                            (do)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                do
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                      (map list #{var 37074}# #{init 37075}#)
                                      (list '#(syntax-object
                                               if
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(step)
                                                  #((top))
                                                  #("i37036"))
                                                #(ribcage
                                                  #(var init step e0 e1 c)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("i37021"
                                                    "i37022"
                                                    "i37023"
                                                    "i37024"
                                                    "i37025"
                                                    "i37026"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(orig-x)
                                                  #((top))
                                                  #("i37018"))
                                                #(ribcage
                                                  (do)
                                                  ((top))
                                                  (((hygiene guile)
                                                    .
                                                    #(syntax-object
                                                      do
                                                      ((top))
                                                      (hygiene guile))))))
                                               (hygiene guile))
                                            (list '#(syntax-object
                                                     not
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("i37036"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i37021"
                                                          "i37022"
                                                          "i37023"
                                                          "i37024"
                                                          "i37025"
                                                          "i37026"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("i37018"))
                                                      #(ribcage
                                                        (do)
                                                        ((top))
                                                        (((hygiene guile)
                                                          .
                                                          #(syntax-object
                                                            do
                                                            ((top))
                                                            (hygiene
                                                              guile))))))
                                                     (hygiene guile))
                                                  #{e0 37077}#)
                                            (cons '#(syntax-object
                                                     begin
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("i37036"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i37021"
                                                          "i37022"
                                                          "i37023"
                                                          "i37024"
                                                          "i37025"
                                                          "i37026"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("i37018"))
                                                      #(ribcage
                                                        (do)
                                                        ((top))
                                                        (((hygiene guile)
                                                          .
                                                          #(syntax-object
                                                            do
                                                            ((top))
                                                            (hygiene
                                                              guile))))))
                                                     (hygiene guile))
                                                  (append
                                                    #{c 37079}#
                                                    (list (cons '#(syntax-object
                                                                   doloop
                                                                   ((top)
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(step)
                                                                      #((top))
                                                                      #("i37036"))
                                                                    #(ribcage
                                                                      #(var
                                                                        init
                                                                        step
                                                                        e0
                                                                        e1
                                                                        c)
                                                                      #((top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                      #("i37021"
                                                                        "i37022"
                                                                        "i37023"
                                                                        "i37024"
                                                                        "i37025"
                                                                        "i37026"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(orig-x)
                                                                      #((top))
                                                                      #("i37018"))
                                                                    #(ribcage
                                                                      (do)
                                                                      ((top))
                                                                      (((hygiene
                                                                          guile)
                                                                        .
                                                                        #(syntax-object
                                                                          do
                                                                          ((top))
                                                                          (hygiene
                                                                            guile))))))
                                                                   (hygiene
                                                                     guile))
                                                                #{step 37098}#)))))))
                              #{tmp 37100}#)
                            (let ((#{tmp 37104}#
                                    ($sc-dispatch
                                      #{e1 37078}#
                                      '(any . each-any))))
                              (if #{tmp 37104}#
                                (@apply
                                  (lambda (#{e1 37108}# #{e2 37109}#)
                                    (list '#(syntax-object
                                             let
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("i37045" "i37046"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i37036"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i37021"
                                                  "i37022"
                                                  "i37023"
                                                  "i37024"
                                                  "i37025"
                                                  "i37026"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i37018"))
                                              #(ribcage
                                                (do)
                                                ((top))
                                                (((hygiene guile)
                                                  .
                                                  #(syntax-object
                                                    do
                                                    ((top))
                                                    (hygiene guile))))))
                                             (hygiene guile))
                                          '#(syntax-object
                                             doloop
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("i37045" "i37046"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i37036"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i37021"
                                                  "i37022"
                                                  "i37023"
                                                  "i37024"
                                                  "i37025"
                                                  "i37026"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i37018"))
                                              #(ribcage
                                                (do)
                                                ((top))
                                                (((hygiene guile)
                                                  .
                                                  #(syntax-object
                                                    do
                                                    ((top))
                                                    (hygiene guile))))))
                                             (hygiene guile))
                                          (map list
                                               #{var 37074}#
                                               #{init 37075}#)
                                          (list '#(syntax-object
                                                   if
                                                   ((top)
                                                    #(ribcage
                                                      #(e1 e2)
                                                      #((top) (top))
                                                      #("i37045" "i37046"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(step)
                                                      #((top))
                                                      #("i37036"))
                                                    #(ribcage
                                                      #(var init step e0 e1 c)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i37021"
                                                        "i37022"
                                                        "i37023"
                                                        "i37024"
                                                        "i37025"
                                                        "i37026"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(orig-x)
                                                      #((top))
                                                      #("i37018"))
                                                    #(ribcage
                                                      (do)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          do
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                #{e0 37077}#
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("i37045"
                                                              "i37046"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i37036"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i37021"
                                                              "i37022"
                                                              "i37023"
                                                              "i37024"
                                                              "i37025"
                                                              "i37026"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i37018"))
                                                          #(ribcage
                                                            (do)
                                                            ((top))
                                                            (((hygiene guile)
                                                              .
                                                              #(syntax-object
                                                                do
                                                                ((top))
                                                                (hygiene
                                                                  guile))))))
                                                         (hygiene guile))
                                                      (cons #{e1 37108}#
                                                            #{e2 37109}#))
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("i37045"
                                                              "i37046"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i37036"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i37021"
                                                              "i37022"
                                                              "i37023"
                                                              "i37024"
                                                              "i37025"
                                                              "i37026"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i37018"))
                                                          #(ribcage
                                                            (do)
                                                            ((top))
                                                            (((hygiene guile)
                                                              .
                                                              #(syntax-object
                                                                do
                                                                ((top))
                                                                (hygiene
                                                                  guile))))))
                                                         (hygiene guile))
                                                      (append
                                                        #{c 37079}#
                                                        (list (cons '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i37045"
                                                                            "i37046"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i37036"))
                                                                        #(ribcage
                                                                          #(var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i37021"
                                                                            "i37022"
                                                                            "i37023"
                                                                            "i37024"
                                                                            "i37025"
                                                                            "i37026"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i37018"))
                                                                        #(ribcage
                                                                          (do)
                                                                          ((top))
                                                                          (((hygiene
                                                                              guile)
                                                                            .
                                                                            #(syntax-object
                                                                              do
                                                                              ((top))
                                                                              (hygiene
                                                                                guile))))))
                                                                       (hygiene
                                                                         guile))
                                                                    #{step 37098}#)))))))
                                  #{tmp 37104}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  #{e1 37078}#))))))
                      #{tmp 37081}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp 37080}#)))))
            #{tmp 37070}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{orig-x 37068}#))))))

(define quasiquote
  (make-syntax-transformer
    'quasiquote
    'macro
    (letrec*
      ((#{quasi 37396}#
         (lambda (#{p 37420}# #{lev 37421}#)
           (let ((#{tmp 37423}#
                   ($sc-dispatch
                     #{p 37420}#
                     '(#(free-id
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37142" "i37143"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37138"
                               "i37136"
                               "i37134"
                               "i37132"
                               "i37130"
                               "i37128"
                               "i37126"))
                            #(ribcage
                              (quasiquote)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  quasiquote
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile)))
                       any))))
             (if #{tmp 37423}#
               (@apply
                 (lambda (#{p 37427}#)
                   (if (= #{lev 37421}# 0)
                     (list '#(syntax-object
                              "value"
                              ((top)
                               #(ribcage #(p) #((top)) #("i37146"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
                                 #("i37142" "i37143"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
                                       quasiappend
                                       quasicons
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
                                 ("i37138"
                                  "i37136"
                                  "i37134"
                                  "i37132"
                                  "i37130"
                                  "i37128"
                                  "i37126"))
                               #(ribcage
                                 (quasiquote)
                                 ((top))
                                 (((hygiene guile)
                                   .
                                   #(syntax-object
                                     quasiquote
                                     ((top))
                                     (hygiene guile))))))
                              (hygiene guile))
                           #{p 37427}#)
                     (#{quasicons 37398}#
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage #(p) #((top)) #("i37146"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37142" "i37143"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37138"
                               "i37136"
                               "i37134"
                               "i37132"
                               "i37130"
                               "i37128"
                               "i37126"))
                            #(ribcage
                              (quasiquote)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  quasiquote
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage #(p) #((top)) #("i37146"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37142" "i37143"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37138"
                               "i37136"
                               "i37134"
                               "i37132"
                               "i37130"
                               "i37128"
                               "i37126"))
                            #(ribcage
                              (quasiquote)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  quasiquote
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile)))
                       (#{quasi 37396}#
                         (list #{p 37427}#)
                         (#{1-}# #{lev 37421}#)))))
                 #{tmp 37423}#)
               (let ((#{tmp 37430}#
                       ($sc-dispatch
                         #{p 37420}#
                         '(#(free-id
                             #(syntax-object
                               quasiquote
                               ((top)
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
                                  #("i37142" "i37143"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
                                        quasiappend
                                        quasicons
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
                                  ("i37138"
                                   "i37136"
                                   "i37134"
                                   "i37132"
                                   "i37130"
                                   "i37128"
                                   "i37126"))
                                #(ribcage
                                  (quasiquote)
                                  ((top))
                                  (((hygiene guile)
                                    .
                                    #(syntax-object
                                      quasiquote
                                      ((top))
                                      (hygiene guile))))))
                               (hygiene guile)))
                           any))))
                 (if #{tmp 37430}#
                   (@apply
                     (lambda (#{p 37434}#)
                       (#{quasicons 37398}#
                         '(#(syntax-object
                             "quote"
                             ((top)
                              #(ribcage #(p) #((top)) #("i37149"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i37142" "i37143"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i37138"
                                 "i37136"
                                 "i37134"
                                 "i37132"
                                 "i37130"
                                 "i37128"
                                 "i37126"))
                              #(ribcage
                                (quasiquote)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    quasiquote
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                           #(syntax-object
                             quasiquote
                             ((top)
                              #(ribcage #(p) #((top)) #("i37149"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i37142" "i37143"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i37138"
                                 "i37136"
                                 "i37134"
                                 "i37132"
                                 "i37130"
                                 "i37128"
                                 "i37126"))
                              #(ribcage
                                (quasiquote)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    quasiquote
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile)))
                         (#{quasi 37396}#
                           (list #{p 37434}#)
                           (#{1+}# #{lev 37421}#))))
                     #{tmp 37430}#)
                   (let ((#{tmp 37437}#
                           ($sc-dispatch #{p 37420}# '(any . any))))
                     (if #{tmp 37437}#
                       (@apply
                         (lambda (#{p 37441}# #{q 37442}#)
                           (let ((#{tmp 37444}#
                                   ($sc-dispatch
                                     #{p 37441}#
                                     '(#(free-id
                                         #(syntax-object
                                           unquote
                                           ((top)
                                            #(ribcage
                                              #(p q)
                                              #((top) (top))
                                              #("i37152" "i37153"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(p lev)
                                              #((top) (top))
                                              #("i37142" "i37143"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
                                                    quasiappend
                                                    quasicons
                                                    vquasi
                                                    quasi)
                                              ((top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top))
                                              ("i37138"
                                               "i37136"
                                               "i37134"
                                               "i37132"
                                               "i37130"
                                               "i37128"
                                               "i37126"))
                                            #(ribcage
                                              (quasiquote)
                                              ((top))
                                              (((hygiene guile)
                                                .
                                                #(syntax-object
                                                  quasiquote
                                                  ((top))
                                                  (hygiene guile))))))
                                           (hygiene guile)))
                                       .
                                       each-any))))
                             (if #{tmp 37444}#
                               (@apply
                                 (lambda (#{p 37448}#)
                                   (if (= #{lev 37421}# 0)
                                     (#{quasilist* 37400}#
                                       (map (lambda (#{tmp 37160 37487}#)
                                              (list '#(syntax-object
                                                       "value"
                                                       ((top)
                                                        #(ribcage
                                                          #(p)
                                                          #((top))
                                                          #("i37158"))
                                                        #(ribcage
                                                          #(p q)
                                                          #((top) (top))
                                                          #("i37152" "i37153"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(p lev)
                                                          #((top) (top))
                                                          #("i37142" "i37143"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i37138"
                                                           "i37136"
                                                           "i37134"
                                                           "i37132"
                                                           "i37130"
                                                           "i37128"
                                                           "i37126"))
                                                        #(ribcage
                                                          (quasiquote)
                                                          ((top))
                                                          (((hygiene guile)
                                                            .
                                                            #(syntax-object
                                                              quasiquote
                                                              ((top))
                                                              (hygiene
                                                                guile))))))
                                                       (hygiene guile))
                                                    #{tmp 37160 37487}#))
                                            #{p 37448}#)
                                       (#{quasi 37396}#
                                         #{q 37442}#
                                         #{lev 37421}#))
                                     (#{quasicons 37398}#
                                       (#{quasicons 37398}#
                                         '(#(syntax-object
                                             "quote"
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i37158"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i37152" "i37153"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i37142" "i37143"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i37138"
                                                 "i37136"
                                                 "i37134"
                                                 "i37132"
                                                 "i37130"
                                                 "i37128"
                                                 "i37126"))
                                              #(ribcage
                                                (quasiquote)
                                                ((top))
                                                (((hygiene guile)
                                                  .
                                                  #(syntax-object
                                                    quasiquote
                                                    ((top))
                                                    (hygiene guile))))))
                                             (hygiene guile))
                                           #(syntax-object
                                             unquote
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i37158"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i37152" "i37153"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i37142" "i37143"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i37138"
                                                 "i37136"
                                                 "i37134"
                                                 "i37132"
                                                 "i37130"
                                                 "i37128"
                                                 "i37126"))
                                              #(ribcage
                                                (quasiquote)
                                                ((top))
                                                (((hygiene guile)
                                                  .
                                                  #(syntax-object
                                                    quasiquote
                                                    ((top))
                                                    (hygiene guile))))))
                                             (hygiene guile)))
                                         (#{quasi 37396}#
                                           #{p 37448}#
                                           (#{1-}# #{lev 37421}#)))
                                       (#{quasi 37396}#
                                         #{q 37442}#
                                         #{lev 37421}#))))
                                 #{tmp 37444}#)
                               (let ((#{tmp 37492}#
                                       ($sc-dispatch
                                         #{p 37441}#
                                         '(#(free-id
                                             #(syntax-object
                                               unquote-splicing
                                               ((top)
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("i37152" "i37153"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("i37142" "i37143"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("i37138"
                                                   "i37136"
                                                   "i37134"
                                                   "i37132"
                                                   "i37130"
                                                   "i37128"
                                                   "i37126"))
                                                #(ribcage
                                                  (quasiquote)
                                                  ((top))
                                                  (((hygiene guile)
                                                    .
                                                    #(syntax-object
                                                      quasiquote
                                                      ((top))
                                                      (hygiene guile))))))
                                               (hygiene guile)))
                                           .
                                           each-any))))
                                 (if #{tmp 37492}#
                                   (@apply
                                     (lambda (#{p 37496}#)
                                       (if (= #{lev 37421}# 0)
                                         (#{quasiappend 37399}#
                                           (map (lambda (#{tmp 37165 37499}#)
                                                  (list '#(syntax-object
                                                           "value"
                                                           ((top)
                                                            #(ribcage
                                                              #(p)
                                                              #((top))
                                                              #("i37163"))
                                                            #(ribcage
                                                              #(p q)
                                                              #((top) (top))
                                                              #("i37152"
                                                                "i37153"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(p lev)
                                                              #((top) (top))
                                                              #("i37142"
                                                                "i37143"))
                                                            #(ribcage
                                                              (emit quasivector
                                                                    quasilist*
                                                                    quasiappend
                                                                    quasicons
                                                                    vquasi
                                                                    quasi)
                                                              ((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                              ("i37138"
                                                               "i37136"
                                                               "i37134"
                                                               "i37132"
                                                               "i37130"
                                                               "i37128"
                                                               "i37126"))
                                                            #(ribcage
                                                              (quasiquote)
                                                              ((top))
                                                              (((hygiene guile)
                                                                .
                                                                #(syntax-object
                                                                  quasiquote
                                                                  ((top))
                                                                  (hygiene
                                                                    guile))))))
                                                           (hygiene guile))
                                                        #{tmp 37165 37499}#))
                                                #{p 37496}#)
                                           (#{quasi 37396}#
                                             #{q 37442}#
                                             #{lev 37421}#))
                                         (#{quasicons 37398}#
                                           (#{quasicons 37398}#
                                             '(#(syntax-object
                                                 "quote"
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i37163"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i37152" "i37153"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i37142" "i37143"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i37138"
                                                     "i37136"
                                                     "i37134"
                                                     "i37132"
                                                     "i37130"
                                                     "i37128"
                                                     "i37126"))
                                                  #(ribcage
                                                    (quasiquote)
                                                    ((top))
                                                    (((hygiene guile)
                                                      .
                                                      #(syntax-object
                                                        quasiquote
                                                        ((top))
                                                        (hygiene guile))))))
                                                 (hygiene guile))
                                               #(syntax-object
                                                 unquote-splicing
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i37163"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i37152" "i37153"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i37142" "i37143"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i37138"
                                                     "i37136"
                                                     "i37134"
                                                     "i37132"
                                                     "i37130"
                                                     "i37128"
                                                     "i37126"))
                                                  #(ribcage
                                                    (quasiquote)
                                                    ((top))
                                                    (((hygiene guile)
                                                      .
                                                      #(syntax-object
                                                        quasiquote
                                                        ((top))
                                                        (hygiene guile))))))
                                                 (hygiene guile)))
                                             (#{quasi 37396}#
                                               #{p 37496}#
                                               (#{1-}# #{lev 37421}#)))
                                           (#{quasi 37396}#
                                             #{q 37442}#
                                             #{lev 37421}#))))
                                     #{tmp 37492}#)
                                   (#{quasicons 37398}#
                                     (#{quasi 37396}#
                                       #{p 37441}#
                                       #{lev 37421}#)
                                     (#{quasi 37396}#
                                       #{q 37442}#
                                       #{lev 37421}#)))))))
                         #{tmp 37437}#)
                       (let ((#{tmp 37513}#
                               ($sc-dispatch #{p 37420}# '#(vector each-any))))
                         (if #{tmp 37513}#
                           (@apply
                             (lambda (#{x 37517}#)
                               (let ((#{x 37520}#
                                       (#{vquasi 37397}#
                                         #{x 37517}#
                                         #{lev 37421}#)))
                                 (let ((#{tmp 37522}#
                                         ($sc-dispatch
                                           #{x 37520}#
                                           '(#(atom "quote") each-any))))
                                   (if #{tmp 37522}#
                                     (@apply
                                       (lambda (#{x 37526}#)
                                         (list '#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37270"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37267"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37138"
                                                      "i37136"
                                                      "i37134"
                                                      "i37132"
                                                      "i37130"
                                                      "i37128"
                                                      "i37126"))
                                                   #(ribcage
                                                     (quasiquote)
                                                     ((top))
                                                     (((hygiene guile)
                                                       .
                                                       #(syntax-object
                                                         quasiquote
                                                         ((top))
                                                         (hygiene guile))))))
                                                  (hygiene guile))
                                               (list->vector #{x 37526}#)))
                                       #{tmp 37522}#)
                                     (letrec*
                                       ((#{f 37528}#
                                          (lambda (#{y 37540}# #{k 37541}#)
                                            (let ((#{tmp 37543}#
                                                    ($sc-dispatch
                                                      #{y 37540}#
                                                      '(#(atom "quote")
                                                        each-any))))
                                              (if #{tmp 37543}#
                                                (@apply
                                                  (lambda (#{y 37546}#)
                                                    (#{k 37541}#
                                                      (map (lambda (#{tmp 37295 37547}#)
                                                             (list '#(syntax-object
                                                                      "quote"
                                                                      ((top)
                                                                       #(ribcage
                                                                         #(y)
                                                                         #((top))
                                                                         #("i37293"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(f
                                                                           y
                                                                           k)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("i37275"
                                                                           "i37276"
                                                                           "i37277"))
                                                                       #(ribcage
                                                                         #(_)
                                                                         #((top))
                                                                         #("i37273"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(x)
                                                                         #((top))
                                                                         #("i37267"))
                                                                       #(ribcage
                                                                         (emit quasivector
                                                                               quasilist*
                                                                               quasiappend
                                                                               quasicons
                                                                               vquasi
                                                                               quasi)
                                                                         ((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                         ("i37138"
                                                                          "i37136"
                                                                          "i37134"
                                                                          "i37132"
                                                                          "i37130"
                                                                          "i37128"
                                                                          "i37126"))
                                                                       #(ribcage
                                                                         (quasiquote)
                                                                         ((top))
                                                                         (((hygiene
                                                                             guile)
                                                                           .
                                                                           #(syntax-object
                                                                             quasiquote
                                                                             ((top))
                                                                             (hygiene
                                                                               guile))))))
                                                                      (hygiene
                                                                        guile))
                                                                   #{tmp 37295 37547}#))
                                                           #{y 37546}#)))
                                                  #{tmp 37543}#)
                                                (let ((#{tmp 37548}#
                                                        ($sc-dispatch
                                                          #{y 37540}#
                                                          '(#(atom "list")
                                                            .
                                                            each-any))))
                                                  (if #{tmp 37548}#
                                                    (@apply
                                                      (lambda (#{y 37551}#)
                                                        (#{k 37541}#
                                                          #{y 37551}#))
                                                      #{tmp 37548}#)
                                                    (let ((#{tmp 37552}#
                                                            ($sc-dispatch
                                                              #{y 37540}#
                                                              '(#(atom "list*")
                                                                .
                                                                #(each+
                                                                  any
                                                                  (any)
                                                                  ())))))
                                                      (if #{tmp 37552}#
                                                        (@apply
                                                          (lambda (#{y 37555}#
                                                                   #{z 37556}#)
                                                            (#{f 37528}#
                                                              #{z 37556}#
                                                              (lambda (#{ls 37557}#)
                                                                (#{k 37541}#
                                                                  (append
                                                                    #{y 37555}#
                                                                    #{ls 37557}#)))))
                                                          #{tmp 37552}#)
                                                        (list '#(syntax-object
                                                                 "list->vector"
                                                                 ((top)
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(#{ g37310}#)
                                                                    #((m37311
                                                                        top))
                                                                    #("i37314"))
                                                                  #(ribcage
                                                                    #(else)
                                                                    #((top))
                                                                    #("i37308"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(f y k)
                                                                    #((top)
                                                                      (top)
                                                                      (top))
                                                                    #("i37275"
                                                                      "i37276"
                                                                      "i37277"))
                                                                  #(ribcage
                                                                    #(_)
                                                                    #((top))
                                                                    #("i37273"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
                                                                    #("i37267"))
                                                                  #(ribcage
                                                                    (emit quasivector
                                                                          quasilist*
                                                                          quasiappend
                                                                          quasicons
                                                                          vquasi
                                                                          quasi)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("i37138"
                                                                     "i37136"
                                                                     "i37134"
                                                                     "i37132"
                                                                     "i37130"
                                                                     "i37128"
                                                                     "i37126"))
                                                                  #(ribcage
                                                                    (quasiquote)
                                                                    ((top))
                                                                    (((hygiene
                                                                        guile)
                                                                      .
                                                                      #(syntax-object
                                                                        quasiquote
                                                                        ((top))
                                                                        (hygiene
                                                                          guile))))))
                                                                 (hygiene
                                                                   guile))
                                                              #{x 37520}#))))))))))
                                       (#{f 37528}#
                                         #{x 37520}#
                                         (lambda (#{ls 37530}#)
                                           (let ((#{tmp 37532}#
                                                   ($sc-dispatch
                                                     #{ls 37530}#
                                                     'each-any)))
                                             (if #{tmp 37532}#
                                               (@apply
                                                 (lambda (#{ g37283 37535}#)
                                                   (cons '#(syntax-object
                                                            "vector"
                                                            ((top)
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(#{ g37283}#)
                                                               #((m37284 top))
                                                               #("i37288"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(ls)
                                                               #((top))
                                                               #("i37282"))
                                                             #(ribcage
                                                               #(_)
                                                               #((top))
                                                               #("i37273"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i37267"))
                                                             #(ribcage
                                                               (emit quasivector
                                                                     quasilist*
                                                                     quasiappend
                                                                     quasicons
                                                                     vquasi
                                                                     quasi)
                                                               ((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                               ("i37138"
                                                                "i37136"
                                                                "i37134"
                                                                "i37132"
                                                                "i37130"
                                                                "i37128"
                                                                "i37126"))
                                                             #(ribcage
                                                               (quasiquote)
                                                               ((top))
                                                               (((hygiene
                                                                   guile)
                                                                 .
                                                                 #(syntax-object
                                                                   quasiquote
                                                                   ((top))
                                                                   (hygiene
                                                                     guile))))))
                                                            (hygiene guile))
                                                         #{ g37283 37535}#))
                                                 #{tmp 37532}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to match any pattern"
                                                 #{ls 37530}#))))))))))
                             #{tmp 37513}#)
                           (list '#(syntax-object
                                    "quote"
                                    ((top)
                                     #(ribcage #(p) #((top)) #("i37173"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p lev)
                                       #((top) (top))
                                       #("i37142" "i37143"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i37138"
                                        "i37136"
                                        "i37134"
                                        "i37132"
                                        "i37130"
                                        "i37128"
                                        "i37126"))
                                     #(ribcage
                                       (quasiquote)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           quasiquote
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                 #{p 37420}#)))))))))))
       (#{vquasi 37397}#
         (lambda (#{p 37585}# #{lev 37586}#)
           (let ((#{tmp 37588}#
                   ($sc-dispatch #{p 37585}# '(any . any))))
             (if #{tmp 37588}#
               (@apply
                 (lambda (#{p 37592}# #{q 37593}#)
                   (let ((#{tmp 37595}#
                           ($sc-dispatch
                             #{p 37592}#
                             '(#(free-id
                                 #(syntax-object
                                   unquote
                                   ((top)
                                    #(ribcage
                                      #(p q)
                                      #((top) (top))
                                      #("i37181" "i37182"))
                                    #(ribcage () () ())
                                    #(ribcage
                                      #(p lev)
                                      #((top) (top))
                                      #("i37177" "i37178"))
                                    #(ribcage
                                      (emit quasivector
                                            quasilist*
                                            quasiappend
                                            quasicons
                                            vquasi
                                            quasi)
                                      ((top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top))
                                      ("i37138"
                                       "i37136"
                                       "i37134"
                                       "i37132"
                                       "i37130"
                                       "i37128"
                                       "i37126"))
                                    #(ribcage
                                      (quasiquote)
                                      ((top))
                                      (((hygiene guile)
                                        .
                                        #(syntax-object
                                          quasiquote
                                          ((top))
                                          (hygiene guile))))))
                                   (hygiene guile)))
                               .
                               each-any))))
                     (if #{tmp 37595}#
                       (@apply
                         (lambda (#{p 37599}#)
                           (if (= #{lev 37586}# 0)
                             (#{quasilist* 37400}#
                               (map (lambda (#{tmp 37189 37638}#)
                                      (list '#(syntax-object
                                               "value"
                                               ((top)
                                                #(ribcage
                                                  #(p)
                                                  #((top))
                                                  #("i37187"))
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("i37181" "i37182"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("i37177" "i37178"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("i37138"
                                                   "i37136"
                                                   "i37134"
                                                   "i37132"
                                                   "i37130"
                                                   "i37128"
                                                   "i37126"))
                                                #(ribcage
                                                  (quasiquote)
                                                  ((top))
                                                  (((hygiene guile)
                                                    .
                                                    #(syntax-object
                                                      quasiquote
                                                      ((top))
                                                      (hygiene guile))))))
                                               (hygiene guile))
                                            #{tmp 37189 37638}#))
                                    #{p 37599}#)
                               (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))
                             (#{quasicons 37398}#
                               (#{quasicons 37398}#
                                 '(#(syntax-object
                                     "quote"
                                     ((top)
                                      #(ribcage #(p) #((top)) #("i37187"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("i37181" "i37182"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("i37177" "i37178"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("i37138"
                                         "i37136"
                                         "i37134"
                                         "i37132"
                                         "i37130"
                                         "i37128"
                                         "i37126"))
                                      #(ribcage
                                        (quasiquote)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            quasiquote
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile))
                                   #(syntax-object
                                     unquote
                                     ((top)
                                      #(ribcage #(p) #((top)) #("i37187"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("i37181" "i37182"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("i37177" "i37178"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("i37138"
                                         "i37136"
                                         "i37134"
                                         "i37132"
                                         "i37130"
                                         "i37128"
                                         "i37126"))
                                      #(ribcage
                                        (quasiquote)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            quasiquote
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile)))
                                 (#{quasi 37396}#
                                   #{p 37599}#
                                   (#{1-}# #{lev 37586}#)))
                               (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))))
                         #{tmp 37595}#)
                       (let ((#{tmp 37645}#
                               ($sc-dispatch
                                 #{p 37592}#
                                 '(#(free-id
                                     #(syntax-object
                                       unquote-splicing
                                       ((top)
                                        #(ribcage
                                          #(p q)
                                          #((top) (top))
                                          #("i37181" "i37182"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(p lev)
                                          #((top) (top))
                                          #("i37177" "i37178"))
                                        #(ribcage
                                          (emit quasivector
                                                quasilist*
                                                quasiappend
                                                quasicons
                                                vquasi
                                                quasi)
                                          ((top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top))
                                          ("i37138"
                                           "i37136"
                                           "i37134"
                                           "i37132"
                                           "i37130"
                                           "i37128"
                                           "i37126"))
                                        #(ribcage
                                          (quasiquote)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              quasiquote
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile)))
                                   .
                                   each-any))))
                         (if #{tmp 37645}#
                           (@apply
                             (lambda (#{p 37649}#)
                               (if (= #{lev 37586}# 0)
                                 (#{quasiappend 37399}#
                                   (map (lambda (#{tmp 37194 37652}#)
                                          (list '#(syntax-object
                                                   "value"
                                                   ((top)
                                                    #(ribcage
                                                      #(p)
                                                      #((top))
                                                      #("i37192"))
                                                    #(ribcage
                                                      #(p q)
                                                      #((top) (top))
                                                      #("i37181" "i37182"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(p lev)
                                                      #((top) (top))
                                                      #("i37177" "i37178"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
                                                            quasiappend
                                                            quasicons
                                                            vquasi
                                                            quasi)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("i37138"
                                                       "i37136"
                                                       "i37134"
                                                       "i37132"
                                                       "i37130"
                                                       "i37128"
                                                       "i37126"))
                                                    #(ribcage
                                                      (quasiquote)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          quasiquote
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                #{tmp 37194 37652}#))
                                        #{p 37649}#)
                                   (#{vquasi 37397}#
                                     #{q 37593}#
                                     #{lev 37586}#))
                                 (#{quasicons 37398}#
                                   (#{quasicons 37398}#
                                     '(#(syntax-object
                                         "quote"
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i37192"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i37181" "i37182"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i37177" "i37178"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i37138"
                                             "i37136"
                                             "i37134"
                                             "i37132"
                                             "i37130"
                                             "i37128"
                                             "i37126"))
                                          #(ribcage
                                            (quasiquote)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                quasiquote
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                       #(syntax-object
                                         unquote-splicing
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i37192"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i37181" "i37182"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i37177" "i37178"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i37138"
                                             "i37136"
                                             "i37134"
                                             "i37132"
                                             "i37130"
                                             "i37128"
                                             "i37126"))
                                          #(ribcage
                                            (quasiquote)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                quasiquote
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile)))
                                     (#{quasi 37396}#
                                       #{p 37649}#
                                       (#{1-}# #{lev 37586}#)))
                                   (#{vquasi 37397}#
                                     #{q 37593}#
                                     #{lev 37586}#))))
                             #{tmp 37645}#)
                           (#{quasicons 37398}#
                             (#{quasi 37396}# #{p 37592}# #{lev 37586}#)
                             (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)))))))
                 #{tmp 37588}#)
               (let ((#{tmp 37670}# ($sc-dispatch #{p 37585}# '())))
                 (if #{tmp 37670}#
                   (@apply
                     (lambda ()
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("i37177" "i37178"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i37138"
                               "i37136"
                               "i37134"
                               "i37132"
                               "i37130"
                               "i37128"
                               "i37126"))
                            #(ribcage
                              (quasiquote)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  quasiquote
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                         ()))
                     #{tmp 37670}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
                     #{p 37585}#)))))))
       (#{quasicons 37398}#
         (lambda (#{x 37683}# #{y 37684}#)
           (let ((#{tmp 37685}# (list #{x 37683}# #{y 37684}#)))
             (let ((#{tmp 37686}#
                     ($sc-dispatch #{tmp 37685}# '(any any))))
               (if #{tmp 37686}#
                 (@apply
                   (lambda (#{x 37688}# #{y 37689}#)
                     (let ((#{tmp 37691}#
                             ($sc-dispatch
                               #{y 37689}#
                               '(#(atom "quote") any))))
                       (if #{tmp 37691}#
                         (@apply
                           (lambda (#{dy 37695}#)
                             (let ((#{tmp 37697}#
                                     ($sc-dispatch
                                       #{x 37688}#
                                       '(#(atom "quote") any))))
                               (if #{tmp 37697}#
                                 (@apply
                                   (lambda (#{dx 37701}#)
                                     (list '#(syntax-object
                                              "quote"
                                              ((top)
                                               #(ribcage
                                                 #(dx)
                                                 #((top))
                                                 #("i37216"))
                                               #(ribcage
                                                 #(dy)
                                                 #((top))
                                                 #("i37212"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37206" "i37207"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37201" "i37202"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i37138"
                                                  "i37136"
                                                  "i37134"
                                                  "i37132"
                                                  "i37130"
                                                  "i37128"
                                                  "i37126"))
                                               #(ribcage
                                                 (quasiquote)
                                                 ((top))
                                                 (((hygiene guile)
                                                   .
                                                   #(syntax-object
                                                     quasiquote
                                                     ((top))
                                                     (hygiene guile))))))
                                              (hygiene guile))
                                           (cons #{dx 37701}# #{dy 37695}#)))
                                   #{tmp 37697}#)
                                 (if (null? #{dy 37695}#)
                                   (list '#(syntax-object
                                            "list"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("i37218"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("i37212"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37206" "i37207"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37201" "i37202"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i37138"
                                                "i37136"
                                                "i37134"
                                                "i37132"
                                                "i37130"
                                                "i37128"
                                                "i37126"))
                                             #(ribcage
                                               (quasiquote)
                                               ((top))
                                               (((hygiene guile)
                                                 .
                                                 #(syntax-object
                                                   quasiquote
                                                   ((top))
                                                   (hygiene guile))))))
                                            (hygiene guile))
                                         #{x 37688}#)
                                   (list '#(syntax-object
                                            "list*"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("i37218"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("i37212"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37206" "i37207"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i37201" "i37202"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i37138"
                                                "i37136"
                                                "i37134"
                                                "i37132"
                                                "i37130"
                                                "i37128"
                                                "i37126"))
                                             #(ribcage
                                               (quasiquote)
                                               ((top))
                                               (((hygiene guile)
                                                 .
                                                 #(syntax-object
                                                   quasiquote
                                                   ((top))
                                                   (hygiene guile))))))
                                            (hygiene guile))
                                         #{x 37688}#
                                         #{y 37689}#)))))
                           #{tmp 37691}#)
                         (let ((#{tmp 37706}#
                                 ($sc-dispatch
                                   #{y 37689}#
                                   '(#(atom "list") . any))))
                           (if #{tmp 37706}#
                             (@apply
                               (lambda (#{stuff 37710}#)
                                 (cons '#(syntax-object
                                          "list"
                                          ((top)
                                           #(ribcage
                                             #(stuff)
                                             #((top))
                                             #("i37221"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37206" "i37207"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37201" "i37202"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37138"
                                              "i37136"
                                              "i37134"
                                              "i37132"
                                              "i37130"
                                              "i37128"
                                              "i37126"))
                                           #(ribcage
                                             (quasiquote)
                                             ((top))
                                             (((hygiene guile)
                                               .
                                               #(syntax-object
                                                 quasiquote
                                                 ((top))
                                                 (hygiene guile))))))
                                          (hygiene guile))
                                       (cons #{x 37688}# #{stuff 37710}#)))
                               #{tmp 37706}#)
                             (let ((#{tmp 37711}#
                                     ($sc-dispatch
                                       #{y 37689}#
                                       '(#(atom "list*") . any))))
                               (if #{tmp 37711}#
                                 (@apply
                                   (lambda (#{stuff 37715}#)
                                     (cons '#(syntax-object
                                              "list*"
                                              ((top)
                                               #(ribcage
                                                 #(stuff)
                                                 #((top))
                                                 #("i37224"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37206" "i37207"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i37201" "i37202"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i37138"
                                                  "i37136"
                                                  "i37134"
                                                  "i37132"
                                                  "i37130"
                                                  "i37128"
                                                  "i37126"))
                                               #(ribcage
                                                 (quasiquote)
                                                 ((top))
                                                 (((hygiene guile)
                                                   .
                                                   #(syntax-object
                                                     quasiquote
                                                     ((top))
                                                     (hygiene guile))))))
                                              (hygiene guile))
                                           (cons #{x 37688}# #{stuff 37715}#)))
                                   #{tmp 37711}#)
                                 (list '#(syntax-object
                                          "list*"
                                          ((top)
                                           #(ribcage #(_) #((top)) #("i37226"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37206" "i37207"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("i37201" "i37202"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37138"
                                              "i37136"
                                              "i37134"
                                              "i37132"
                                              "i37130"
                                              "i37128"
                                              "i37126"))
                                           #(ribcage
                                             (quasiquote)
                                             ((top))
                                             (((hygiene guile)
                                               .
                                               #(syntax-object
                                                 quasiquote
                                                 ((top))
                                                 (hygiene guile))))))
                                          (hygiene guile))
                                       #{x 37688}#
                                       #{y 37689}#))))))))
                   #{tmp 37686}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{tmp 37685}#))))))
       (#{quasiappend 37399}#
         (lambda (#{x 37726}# #{y 37727}#)
           (let ((#{tmp 37729}#
                   ($sc-dispatch #{y 37727}# '(#(atom "quote") ()))))
             (if #{tmp 37729}#
               (@apply
                 (lambda ()
                   (if (null? #{x 37726}#)
                     '(#(syntax-object
                         "quote"
                         ((top)
                          #(ribcage () () ())
                          #(ribcage
                            #(x y)
                            #((top) (top))
                            #("i37230" "i37231"))
                          #(ribcage
                            (emit quasivector
                                  quasilist*
                                  quasiappend
                                  quasicons
                                  vquasi
                                  quasi)
                            ((top) (top) (top) (top) (top) (top) (top))
                            ("i37138"
                             "i37136"
                             "i37134"
                             "i37132"
                             "i37130"
                             "i37128"
                             "i37126"))
                          #(ribcage
                            (quasiquote)
                            ((top))
                            (((hygiene guile)
                              .
                              #(syntax-object
                                quasiquote
                                ((top))
                                (hygiene guile))))))
                         (hygiene guile))
                       ())
                     (if (null? (cdr #{x 37726}#))
                       (car #{x 37726}#)
                       (let ((#{tmp 37734}#
                               ($sc-dispatch #{x 37726}# 'each-any)))
                         (if #{tmp 37734}#
                           (@apply
                             (lambda (#{p 37738}#)
                               (cons '#(syntax-object
                                        "append"
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage #(p) #((top)) #("i37242"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(x y)
                                           #((top) (top))
                                           #("i37230" "i37231"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
                                                 quasiappend
                                                 quasicons
                                                 vquasi
                                                 quasi)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i37138"
                                            "i37136"
                                            "i37134"
                                            "i37132"
                                            "i37130"
                                            "i37128"
                                            "i37126"))
                                         #(ribcage
                                           (quasiquote)
                                           ((top))
                                           (((hygiene guile)
                                             .
                                             #(syntax-object
                                               quasiquote
                                               ((top))
                                               (hygiene guile))))))
                                        (hygiene guile))
                                     #{p 37738}#))
                             #{tmp 37734}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
                             #{x 37726}#))))))
                 #{tmp 37729}#)
               (if (null? #{x 37726}#)
                 #{y 37727}#
                 (let ((#{tmp 37746}# (list #{x 37726}# #{y 37727}#)))
                   (let ((#{tmp 37747}#
                           ($sc-dispatch #{tmp 37746}# '(each-any any))))
                     (if #{tmp 37747}#
                       (@apply
                         (lambda (#{p 37749}# #{y 37750}#)
                           (cons '#(syntax-object
                                    "append"
                                    ((top)
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p y)
                                       #((top) (top))
                                       #("i37253" "i37254"))
                                     #(ribcage #(_) #((top)) #("i37245"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x y)
                                       #((top) (top))
                                       #("i37230" "i37231"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("i37138"
                                        "i37136"
                                        "i37134"
                                        "i37132"
                                        "i37130"
                                        "i37128"
                                        "i37126"))
                                     #(ribcage
                                       (quasiquote)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           quasiquote
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                 (append #{p 37749}# (list #{y 37750}#))))
                         #{tmp 37747}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp 37746}#)))))))))
       (#{quasilist* 37400}#
         (lambda (#{x 37754}# #{y 37755}#)
           (letrec*
             ((#{f 37756}#
                (lambda (#{x 37860}#)
                  (if (null? #{x 37860}#)
                    #{y 37755}#
                    (#{quasicons 37398}#
                      (car #{x 37860}#)
                      (#{f 37756}# (cdr #{x 37860}#)))))))
             (#{f 37756}# #{x 37754}#))))
       (#{emit 37402}#
         (lambda (#{x 37863}#)
           (let ((#{tmp 37865}#
                   ($sc-dispatch #{x 37863}# '(#(atom "quote") any))))
             (if #{tmp 37865}#
               (@apply
                 (lambda (#{x 37869}#)
                   (list '#(syntax-object
                            quote
                            ((top)
                             #(ribcage #(x) #((top)) #("i37320"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i37317"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
                                     quasiappend
                                     quasicons
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
                               ("i37138"
                                "i37136"
                                "i37134"
                                "i37132"
                                "i37130"
                                "i37128"
                                "i37126"))
                             #(ribcage
                               (quasiquote)
                               ((top))
                               (((hygiene guile)
                                 .
                                 #(syntax-object
                                   quasiquote
                                   ((top))
                                   (hygiene guile))))))
                            (hygiene guile))
                         #{x 37869}#))
                 #{tmp 37865}#)
               (let ((#{tmp 37870}#
                       ($sc-dispatch
                         #{x 37863}#
                         '(#(atom "list") . each-any))))
                 (if #{tmp 37870}#
                   (@apply
                     (lambda (#{x 37874}#)
                       (let ((#{tmp 37875}# (map #{emit 37402}# #{x 37874}#)))
                         (let ((#{tmp 37876}#
                                 ($sc-dispatch #{tmp 37875}# 'each-any)))
                           (if #{tmp 37876}#
                             (@apply
                               (lambda (#{ g37325 37878}#)
                                 (cons '#(syntax-object
                                          list
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(#{ g37325}#)
                                             #((m37326 top))
                                             #("i37330"))
                                           #(ribcage #(x) #((top)) #("i37323"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i37317"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("i37138"
                                              "i37136"
                                              "i37134"
                                              "i37132"
                                              "i37130"
                                              "i37128"
                                              "i37126"))
                                           #(ribcage
                                             (quasiquote)
                                             ((top))
                                             (((hygiene guile)
                                               .
                                               #(syntax-object
                                                 quasiquote
                                                 ((top))
                                                 (hygiene guile))))))
                                          (hygiene guile))
                                       #{ g37325 37878}#))
                               #{tmp 37876}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               #{tmp 37875}#)))))
                     #{tmp 37870}#)
                   (let ((#{tmp 37879}#
                           ($sc-dispatch
                             #{x 37863}#
                             '(#(atom "list*") . #(each+ any (any) ())))))
                     (if #{tmp 37879}#
                       (@apply
                         (lambda (#{x 37883}# #{y 37884}#)
                           (letrec*
                             ((#{f 37885}#
                                (lambda (#{x* 37888}#)
                                  (if (null? #{x* 37888}#)
                                    (#{emit 37402}# #{y 37884}#)
                                    (let ((#{tmp 37889}#
                                            (list (#{emit 37402}#
                                                    (car #{x* 37888}#))
                                                  (#{f 37885}#
                                                    (cdr #{x* 37888}#)))))
                                      (let ((#{tmp 37890}#
                                              ($sc-dispatch
                                                #{tmp 37889}#
                                                '(any any))))
                                        (if #{tmp 37890}#
                                          (@apply
                                            (lambda (#{ g37345 37892}#
                                                     #{ g37344 37893}#)
                                              (list '#(syntax-object
                                                       cons
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(#{ g37345}#
                                                            #{ g37344}#)
                                                          #((m37346 top)
                                                            (m37346 top))
                                                          #("i37350" "i37351"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f x*)
                                                          #((top) (top))
                                                          #("i37339" "i37340"))
                                                        #(ribcage
                                                          #(x y)
                                                          #((top) (top))
                                                          #("i37335" "i37336"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("i37317"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i37138"
                                                           "i37136"
                                                           "i37134"
                                                           "i37132"
                                                           "i37130"
                                                           "i37128"
                                                           "i37126"))
                                                        #(ribcage
                                                          (quasiquote)
                                                          ((top))
                                                          (((hygiene guile)
                                                            .
                                                            #(syntax-object
                                                              quasiquote
                                                              ((top))
                                                              (hygiene
                                                                guile))))))
                                                       (hygiene guile))
                                                    #{ g37345 37892}#
                                                    #{ g37344 37893}#))
                                            #{tmp 37890}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match any pattern"
                                            #{tmp 37889}#))))))))
                             (#{f 37885}# #{x 37883}#)))
                         #{tmp 37879}#)
                       (let ((#{tmp 37894}#
                               ($sc-dispatch
                                 #{x 37863}#
                                 '(#(atom "append") . each-any))))
                         (if #{tmp 37894}#
                           (@apply
                             (lambda (#{x 37898}#)
                               (let ((#{tmp 37899}#
                                       (map #{emit 37402}# #{x 37898}#)))
                                 (let ((#{tmp 37900}#
                                         ($sc-dispatch
                                           #{tmp 37899}#
                                           'each-any)))
                                   (if #{tmp 37900}#
                                     (@apply
                                       (lambda (#{ g37357 37902}#)
                                         (cons '#(syntax-object
                                                  append
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(#{ g37357}#)
                                                     #((m37358 top))
                                                     #("i37362"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37355"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37317"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37138"
                                                      "i37136"
                                                      "i37134"
                                                      "i37132"
                                                      "i37130"
                                                      "i37128"
                                                      "i37126"))
                                                   #(ribcage
                                                     (quasiquote)
                                                     ((top))
                                                     (((hygiene guile)
                                                       .
                                                       #(syntax-object
                                                         quasiquote
                                                         ((top))
                                                         (hygiene guile))))))
                                                  (hygiene guile))
                                               #{ g37357 37902}#))
                                       #{tmp 37900}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any pattern"
                                       #{tmp 37899}#)))))
                             #{tmp 37894}#)
                           (let ((#{tmp 37903}#
                                   ($sc-dispatch
                                     #{x 37863}#
                                     '(#(atom "vector") . each-any))))
                             (if #{tmp 37903}#
                               (@apply
                                 (lambda (#{x 37907}#)
                                   (let ((#{tmp 37908}#
                                           (map #{emit 37402}# #{x 37907}#)))
                                     (let ((#{tmp 37909}#
                                             ($sc-dispatch
                                               #{tmp 37908}#
                                               'each-any)))
                                       (if #{tmp 37909}#
                                         (@apply
                                           (lambda (#{ g37369 37911}#)
                                             (cons '#(syntax-object
                                                      vector
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(#{ g37369}#)
                                                         #((m37370 top))
                                                         #("i37374"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i37367"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i37317"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
                                                               quasiappend
                                                               quasicons
                                                               vquasi
                                                               quasi)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("i37138"
                                                          "i37136"
                                                          "i37134"
                                                          "i37132"
                                                          "i37130"
                                                          "i37128"
                                                          "i37126"))
                                                       #(ribcage
                                                         (quasiquote)
                                                         ((top))
                                                         (((hygiene guile)
                                                           .
                                                           #(syntax-object
                                                             quasiquote
                                                             ((top))
                                                             (hygiene
                                                               guile))))))
                                                      (hygiene guile))
                                                   #{ g37369 37911}#))
                                           #{tmp 37909}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{tmp 37908}#)))))
                                 #{tmp 37903}#)
                               (let ((#{tmp 37912}#
                                       ($sc-dispatch
                                         #{x 37863}#
                                         '(#(atom "list->vector") any))))
                                 (if #{tmp 37912}#
                                   (@apply
                                     (lambda (#{x 37916}#)
                                       (let ((#{tmp 37917}#
                                               (#{emit 37402}# #{x 37916}#)))
                                         (list '#(syntax-object
                                                  list->vector
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(#{ g37381}#)
                                                     #((m37382 top))
                                                     #("i37385"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37379"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i37317"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i37138"
                                                      "i37136"
                                                      "i37134"
                                                      "i37132"
                                                      "i37130"
                                                      "i37128"
                                                      "i37126"))
                                                   #(ribcage
                                                     (quasiquote)
                                                     ((top))
                                                     (((hygiene guile)
                                                       .
                                                       #(syntax-object
                                                         quasiquote
                                                         ((top))
                                                         (hygiene guile))))))
                                                  (hygiene guile))
                                               #{tmp 37917}#)))
                                     #{tmp 37912}#)
                                   (let ((#{tmp 37920}#
                                           ($sc-dispatch
                                             #{x 37863}#
                                             '(#(atom "value") any))))
                                     (if #{tmp 37920}#
                                       (@apply
                                         (lambda (#{x 37924}#) #{x 37924}#)
                                         #{tmp 37920}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any pattern"
                                         #{x 37863}#))))))))))))))))))
      (lambda (#{x 37403}#)
        (let ((#{tmp 37405}#
                ($sc-dispatch #{x 37403}# '(_ any))))
          (if #{tmp 37405}#
            (@apply
              (lambda (#{e 37409}#)
                (#{emit 37402}# (#{quasi 37396}# #{e 37409}# 0)))
              #{tmp 37405}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{x 37403}#)))))))

(define include
  (make-syntax-transformer
    'include
    'macro
    (lambda (#{x 37980}#)
      (letrec*
        ((#{read-file 37981}#
           (lambda (#{fn 38097}# #{k 38098}#)
             (let ((#{p 38099}# (open-input-file #{fn 38097}#)))
               (letrec*
                 ((#{f 38100}#
                    (lambda (#{x 38157}# #{result 38158}#)
                      (if (eof-object? #{x 38157}#)
                        (begin
                          (close-input-port #{p 38099}#)
                          (reverse #{result 38158}#))
                        (#{f 38100}#
                          (read #{p 38099}#)
                          (cons (datum->syntax #{k 38098}# #{x 38157}#)
                                #{result 38158}#))))))
                 (#{f 38100}# (read #{p 38099}#) '()))))))
        (let ((#{tmp 37983}#
                ($sc-dispatch #{x 37980}# '(any any))))
          (if #{tmp 37983}#
            (@apply
              (lambda (#{k 37987}# #{filename 37988}#)
                (let ((#{fn 37989}# (syntax->datum #{filename 37988}#)))
                  (let ((#{tmp 37990}#
                          (#{read-file 37981}#
                            #{fn 37989}#
                            #{filename 37988}#)))
                    (let ((#{tmp 37991}#
                            ($sc-dispatch #{tmp 37990}# 'each-any)))
                      (if #{tmp 37991}#
                        (@apply
                          (lambda (#{exp 38009}#)
                            (cons '#(syntax-object
                                     begin
                                     ((top)
                                      #(ribcage () () ())
                                      #(ribcage #(exp) #((top)) #("i37977"))
                                      #(ribcage () () ())
                                      #(ribcage () () ())
                                      #(ribcage #(fn) #((top)) #("i37972"))
                                      #(ribcage
                                        #(k filename)
                                        #((top) (top))
                                        #("i37968" "i37969"))
                                      #(ribcage (read-file) ((top)) ("i37952"))
                                      #(ribcage #(x) #((top)) #("i37951"))
                                      #(ribcage
                                        (include)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            include
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile))
                                  #{exp 38009}#))
                          #{tmp 37991}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp 37990}#))))))
              #{tmp 37983}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{x 37980}#)))))))

(define include-from-path
  (make-syntax-transformer
    'include-from-path
    'macro
    (lambda (#{x 38178}#)
      (let ((#{tmp 38180}#
              ($sc-dispatch #{x 38178}# '(any any))))
        (if #{tmp 38180}#
          (@apply
            (lambda (#{k 38184}# #{filename 38185}#)
              (let ((#{fn 38186}# (syntax->datum #{filename 38185}#)))
                (let ((#{tmp 38187}#
                        (datum->syntax
                          #{filename 38185}#
                          (let ((#{t 38190}# (%search-load-path #{fn 38186}#)))
                            (if #{t 38190}#
                              #{t 38190}#
                              (syntax-violation
                                'include-from-path
                                "file not found in path"
                                #{x 38178}#
                                #{filename 38185}#))))))
                  (list '#(syntax-object
                           include
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("i38172"))
                            #(ribcage () () ())
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("i38168"))
                            #(ribcage
                              #(k filename)
                              #((top) (top))
                              #("i38164" "i38165"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38161"))
                            #(ribcage
                              (include-from-path)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  include-from-path
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        #{tmp 38187}#))))
            #{tmp 38180}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 38178}#))))))

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

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

(define case
  (make-syntax-transformer
    'case
    'macro
    (lambda (#{x 38261}#)
      (let ((#{tmp 38263}#
              ($sc-dispatch
                #{x 38261}#
                '(_ any any . each-any))))
        (if #{tmp 38263}#
          (@apply
            (lambda (#{e 38267}# #{m1 38268}# #{m2 38269}#)
              (let ((#{tmp 38270}#
                      (letrec*
                        ((#{f 38331}#
                           (lambda (#{clause 38334}# #{clauses 38335}#)
                             (if (null? #{clauses 38335}#)
                               (let ((#{tmp 38337}#
                                       ($sc-dispatch
                                         #{clause 38334}#
                                         '(#(free-id
                                             #(syntax-object
                                               else
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(f clause clauses)
                                                  #((top) (top) (top))
                                                  #("i38220"
                                                    "i38221"
                                                    "i38222"))
                                                #(ribcage
                                                  #(e m1 m2)
                                                  #((top) (top) (top))
                                                  #("i38210"
                                                    "i38211"
                                                    "i38212"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
                                                  #("i38207"))
                                                #(ribcage
                                                  (case)
                                                  ((top))
                                                  (((hygiene guile)
                                                    .
                                                    #(syntax-object
                                                      case
                                                      ((top))
                                                      (hygiene guile))))))
                                               (hygiene guile)))
                                           any
                                           .
                                           each-any))))
                                 (if #{tmp 38337}#
                                   (@apply
                                     (lambda (#{e1 38341}# #{e2 38342}#)
                                       (cons '#(syntax-object
                                                begin
                                                ((top)
                                                 #(ribcage
                                                   #(e1 e2)
                                                   #((top) (top))
                                                   #("i38229" "i38230"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(f clause clauses)
                                                   #((top) (top) (top))
                                                   #("i38220"
                                                     "i38221"
                                                     "i38222"))
                                                 #(ribcage
                                                   #(e m1 m2)
                                                   #((top) (top) (top))
                                                   #("i38210"
                                                     "i38211"
                                                     "i38212"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38207"))
                                                 #(ribcage
                                                   (case)
                                                   ((top))
                                                   (((hygiene guile)
                                                     .
                                                     #(syntax-object
                                                       case
                                                       ((top))
                                                       (hygiene guile))))))
                                                (hygiene guile))
                                             (cons #{e1 38341}# #{e2 38342}#)))
                                     #{tmp 38337}#)
                                   (let ((#{tmp 38343}#
                                           ($sc-dispatch
                                             #{clause 38334}#
                                             '(each-any any . each-any))))
                                     (if #{tmp 38343}#
                                       (@apply
                                         (lambda (#{k 38347}#
                                                  #{e1 38348}#
                                                  #{e2 38349}#)
                                           (list '#(syntax-object
                                                    if
                                                    ((top)
                                                     #(ribcage
                                                       #(k e1 e2)
                                                       #((top) (top) (top))
                                                       #("i38235"
                                                         "i38236"
                                                         "i38237"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f clause clauses)
                                                       #((top) (top) (top))
                                                       #("i38220"
                                                         "i38221"
                                                         "i38222"))
                                                     #(ribcage
                                                       #(e m1 m2)
                                                       #((top) (top) (top))
                                                       #("i38210"
                                                         "i38211"
                                                         "i38212"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38207"))
                                                     #(ribcage
                                                       (case)
                                                       ((top))
                                                       (((hygiene guile)
                                                         .
                                                         #(syntax-object
                                                           case
                                                           ((top))
                                                           (hygiene guile))))))
                                                    (hygiene guile))
                                                 (list '#(syntax-object
                                                          memv
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38235"
                                                               "i38236"
                                                               "i38237"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38220"
                                                               "i38221"
                                                               "i38222"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38210"
                                                               "i38211"
                                                               "i38212"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38207"))
                                                           #(ribcage
                                                             (case)
                                                             ((top))
                                                             (((hygiene guile)
                                                               .
                                                               #(syntax-object
                                                                 case
                                                                 ((top))
                                                                 (hygiene
                                                                   guile))))))
                                                          (hygiene guile))
                                                       '#(syntax-object
                                                          t
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38235"
                                                               "i38236"
                                                               "i38237"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38220"
                                                               "i38221"
                                                               "i38222"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38210"
                                                               "i38211"
                                                               "i38212"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38207"))
                                                           #(ribcage
                                                             (case)
                                                             ((top))
                                                             (((hygiene guile)
                                                               .
                                                               #(syntax-object
                                                                 case
                                                                 ((top))
                                                                 (hygiene
                                                                   guile))))))
                                                          (hygiene guile))
                                                       (list '#(syntax-object
                                                                quote
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k e1 e2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38235"
                                                                     "i38236"
                                                                     "i38237"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(f
                                                                     clause
                                                                     clauses)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38220"
                                                                     "i38221"
                                                                     "i38222"))
                                                                 #(ribcage
                                                                   #(e m1 m2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("i38210"
                                                                     "i38211"
                                                                     "i38212"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i38207"))
                                                                 #(ribcage
                                                                   (case)
                                                                   ((top))
                                                                   (((hygiene
                                                                       guile)
                                                                     .
                                                                     #(syntax-object
                                                                       case
                                                                       ((top))
                                                                       (hygiene
                                                                         guile))))))
                                                                (hygiene
                                                                  guile))
                                                             #{k 38347}#))
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38235"
                                                               "i38236"
                                                               "i38237"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38220"
                                                               "i38221"
                                                               "i38222"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("i38210"
                                                               "i38211"
                                                               "i38212"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38207"))
                                                           #(ribcage
                                                             (case)
                                                             ((top))
                                                             (((hygiene guile)
                                                               .
                                                               #(syntax-object
                                                                 case
                                                                 ((top))
                                                                 (hygiene
                                                                   guile))))))
                                                          (hygiene guile))
                                                       (cons #{e1 38348}#
                                                             #{e2 38349}#))))
                                         #{tmp 38343}#)
                                       (syntax-violation
                                         'case
                                         "bad clause"
                                         #{x 38261}#
                                         #{clause 38334}#)))))
                               (let ((#{tmp 38357}#
                                       (#{f 38331}#
                                         (car #{clauses 38335}#)
                                         (cdr #{clauses 38335}#))))
                                 (let ((#{tmp 38360}#
                                         ($sc-dispatch
                                           #{clause 38334}#
                                           '(each-any any . each-any))))
                                   (if #{tmp 38360}#
                                     (@apply
                                       (lambda (#{k 38364}#
                                                #{e1 38365}#
                                                #{e2 38366}#)
                                         (list '#(syntax-object
                                                  if
                                                  ((top)
                                                   #(ribcage
                                                     #(k e1 e2)
                                                     #((top) (top) (top))
                                                     #("i38251"
                                                       "i38252"
                                                       "i38253"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(rest)
                                                     #((top))
                                                     #("i38247"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f clause clauses)
                                                     #((top) (top) (top))
                                                     #("i38220"
                                                       "i38221"
                                                       "i38222"))
                                                   #(ribcage
                                                     #(e m1 m2)
                                                     #((top) (top) (top))
                                                     #("i38210"
                                                       "i38211"
                                                       "i38212"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i38207"))
                                                   #(ribcage
                                                     (case)
                                                     ((top))
                                                     (((hygiene guile)
                                                       .
                                                       #(syntax-object
                                                         case
                                                         ((top))
                                                         (hygiene guile))))))
                                                  (hygiene guile))
                                               (list '#(syntax-object
                                                        memv
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38251"
                                                             "i38252"
                                                             "i38253"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38247"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38220"
                                                             "i38221"
                                                             "i38222"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38210"
                                                             "i38211"
                                                             "i38212"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38207"))
                                                         #(ribcage
                                                           (case)
                                                           ((top))
                                                           (((hygiene guile)
                                                             .
                                                             #(syntax-object
                                                               case
                                                               ((top))
                                                               (hygiene
                                                                 guile))))))
                                                        (hygiene guile))
                                                     '#(syntax-object
                                                        t
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38251"
                                                             "i38252"
                                                             "i38253"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38247"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38220"
                                                             "i38221"
                                                             "i38222"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38210"
                                                             "i38211"
                                                             "i38212"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38207"))
                                                         #(ribcage
                                                           (case)
                                                           ((top))
                                                           (((hygiene guile)
                                                             .
                                                             #(syntax-object
                                                               case
                                                               ((top))
                                                               (hygiene
                                                                 guile))))))
                                                        (hygiene guile))
                                                     (list '#(syntax-object
                                                              quote
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38251"
                                                                   "i38252"
                                                                   "i38253"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("i38247"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38220"
                                                                   "i38221"
                                                                   "i38222"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i38210"
                                                                   "i38211"
                                                                   "i38212"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i38207"))
                                                               #(ribcage
                                                                 (case)
                                                                 ((top))
                                                                 (((hygiene
                                                                     guile)
                                                                   .
                                                                   #(syntax-object
                                                                     case
                                                                     ((top))
                                                                     (hygiene
                                                                       guile))))))
                                                              (hygiene guile))
                                                           #{k 38364}#))
                                               (cons '#(syntax-object
                                                        begin
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i38251"
                                                             "i38252"
                                                             "i38253"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i38247"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i38220"
                                                             "i38221"
                                                             "i38222"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i38210"
                                                             "i38211"
                                                             "i38212"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i38207"))
                                                         #(ribcage
                                                           (case)
                                                           ((top))
                                                           (((hygiene guile)
                                                             .
                                                             #(syntax-object
                                                               case
                                                               ((top))
                                                               (hygiene
                                                                 guile))))))
                                                        (hygiene guile))
                                                     (cons #{e1 38365}#
                                                           #{e2 38366}#))
                                               #{tmp 38357}#))
                                       #{tmp 38360}#)
                                     (syntax-violation
                                       'case
                                       "bad clause"
                                       #{x 38261}#
                                       #{clause 38334}#))))))))
                        (#{f 38331}# #{m1 38268}# #{m2 38269}#))))
                (let ((#{body 38271}# #{tmp 38270}#))
                  (list '#(syntax-object
                           let
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(body) #((top)) #("i38218"))
                            #(ribcage
                              #(e m1 m2)
                              #((top) (top) (top))
                              #("i38210" "i38211" "i38212"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38207"))
                            #(ribcage
                              (case)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  case
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        (list (list '#(syntax-object
                                       t
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage #(body) #((top)) #("i38218"))
                                        #(ribcage
                                          #(e m1 m2)
                                          #((top) (top) (top))
                                          #("i38210" "i38211" "i38212"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38207"))
                                        #(ribcage
                                          (case)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              case
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile))
                                    #{e 38267}#))
                        #{body 38271}#))))
            #{tmp 38263}#)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            #{x 38261}#))))))

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

(define identifier-syntax
  (make-syntax-transformer
    'identifier-syntax
    'macro
    (lambda (#{x 38425}#)
      (let ((#{tmp 38427}#
              ($sc-dispatch #{x 38425}# '(_ any))))
        (if #{tmp 38427}#
          (@apply
            (lambda (#{e 38431}#)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage #(e) #((top)) #("i38400"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i38397"))
                        #(ribcage
                          (identifier-syntax)
                          ((top))
                          (((hygiene guile)
                            .
                            #(syntax-object
                              identifier-syntax
                              ((top))
                              (hygiene guile))))))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage #(e) #((top)) #("i38400"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("i38397"))
                         #(ribcage
                           (identifier-syntax)
                           ((top))
                           (((hygiene guile)
                             .
                             #(syntax-object
                               identifier-syntax
                               ((top))
                               (hygiene guile))))))
                        (hygiene guile)))
                    '#((#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage #(e) #((top)) #("i38400"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i38397"))
                           #(ribcage
                             (identifier-syntax)
                             ((top))
                             (((hygiene guile)
                               .
                               #(syntax-object
                                 identifier-syntax
                                 ((top))
                                 (hygiene guile))))))
                          (hygiene guile))
                        .
                        #(syntax-object
                          identifier-syntax
                          ((top)
                           #(ribcage #(e) #((top)) #("i38400"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i38397"))
                           #(ribcage
                             (identifier-syntax)
                             ((top))
                             (((hygiene guile)
                               .
                               #(syntax-object
                                 identifier-syntax
                                 ((top))
                                 (hygiene guile))))))
                          (hygiene guile))))
                    (list '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage #(e) #((top)) #("i38400"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38397"))
                              #(ribcage
                                (identifier-syntax)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    identifier-syntax
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                          '#(syntax-object
                             x
                             ((top)
                              #(ribcage #(e) #((top)) #("i38400"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38397"))
                              #(ribcage
                                (identifier-syntax)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    identifier-syntax
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                          '()
                          (list '#(syntax-object
                                   id
                                   ((top)
                                    #(ribcage #(e) #((top)) #("i38400"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i38397"))
                                    #(ribcage
                                      (identifier-syntax)
                                      ((top))
                                      (((hygiene guile)
                                        .
                                        #(syntax-object
                                          identifier-syntax
                                          ((top))
                                          (hygiene guile))))))
                                   (hygiene guile))
                                '(#(syntax-object
                                    identifier?
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38400"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                  (#(syntax-object
                                     syntax
                                     ((top)
                                      #(ribcage #(e) #((top)) #("i38400"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i38397"))
                                      #(ribcage
                                        (identifier-syntax)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            identifier-syntax
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile))
                                   #(syntax-object
                                     id
                                     ((top)
                                      #(ribcage #(e) #((top)) #("i38400"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i38397"))
                                      #(ribcage
                                        (identifier-syntax)
                                        ((top))
                                        (((hygiene guile)
                                          .
                                          #(syntax-object
                                            identifier-syntax
                                            ((top))
                                            (hygiene guile))))))
                                     (hygiene guile))))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage #(e) #((top)) #("i38400"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i38397"))
                                          #(ribcage
                                            (identifier-syntax)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                identifier-syntax
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                      #{e 38431}#))
                          (list '(#(syntax-object
                                    _
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38400"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                  #(syntax-object
                                    x
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38400"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                  #(syntax-object
                                    ...
                                    ((top)
                                     #(ribcage #(e) #((top)) #("i38400"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile)))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage #(e) #((top)) #("i38400"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i38397"))
                                          #(ribcage
                                            (identifier-syntax)
                                            ((top))
                                            (((hygiene guile)
                                              .
                                              #(syntax-object
                                                identifier-syntax
                                                ((top))
                                                (hygiene guile))))))
                                         (hygiene guile))
                                      (cons #{e 38431}#
                                            '(#(syntax-object
                                                x
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("i38400"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38397"))
                                                 #(ribcage
                                                   (identifier-syntax)
                                                   ((top))
                                                   (((hygiene guile)
                                                     .
                                                     #(syntax-object
                                                       identifier-syntax
                                                       ((top))
                                                       (hygiene guile))))))
                                                (hygiene guile))
                                              #(syntax-object
                                                ...
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("i38400"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i38397"))
                                                 #(ribcage
                                                   (identifier-syntax)
                                                   ((top))
                                                   (((hygiene guile)
                                                     .
                                                     #(syntax-object
                                                       identifier-syntax
                                                       ((top))
                                                       (hygiene guile))))))
                                                (hygiene guile)))))))))
            #{tmp 38427}#)
          (let ((#{tmp 38432}#
                  ($sc-dispatch
                    #{x 38425}#
                    '(_ (any any)
                        ((#(free-id
                            #(syntax-object
                              set!
                              ((top)
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i38397"))
                               #(ribcage
                                 (identifier-syntax)
                                 ((top))
                                 (((hygiene guile)
                                   .
                                   #(syntax-object
                                     identifier-syntax
                                     ((top))
                                     (hygiene guile))))))
                              (hygiene guile)))
                          any
                          any)
                         any)))))
            (if (if #{tmp 38432}#
                  (@apply
                    (lambda (#{id 38436}#
                             #{exp1 38437}#
                             #{var 38438}#
                             #{val 38439}#
                             #{exp2 38440}#)
                      (if (identifier? #{id 38436}#)
                        (identifier? #{var 38438}#)
                        #f))
                    #{tmp 38432}#)
                  #f)
              (@apply
                (lambda (#{id 38441}#
                         #{exp1 38442}#
                         #{var 38443}#
                         #{val 38444}#
                         #{exp2 38445}#)
                  (list '#(syntax-object
                           make-variable-transformer
                           ((top)
                            #(ribcage
                              #(id exp1 var val exp2)
                              #((top) (top) (top) (top) (top))
                              #("i38415" "i38416" "i38417" "i38418" "i38419"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38397"))
                            #(ribcage
                              (identifier-syntax)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  identifier-syntax
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        (list '#(syntax-object
                                 lambda
                                 ((top)
                                  #(ribcage
                                    #(id exp1 var val exp2)
                                    #((top) (top) (top) (top) (top))
                                    #("i38415"
                                      "i38416"
                                      "i38417"
                                      "i38418"
                                      "i38419"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i38397"))
                                  #(ribcage
                                    (identifier-syntax)
                                    ((top))
                                    (((hygiene guile)
                                      .
                                      #(syntax-object
                                        identifier-syntax
                                        ((top))
                                        (hygiene guile))))))
                                 (hygiene guile))
                              '(#(syntax-object
                                  x
                                  ((top)
                                   #(ribcage
                                     #(id exp1 var val exp2)
                                     #((top) (top) (top) (top) (top))
                                     #("i38415"
                                       "i38416"
                                       "i38417"
                                       "i38418"
                                       "i38419"))
                                   #(ribcage () () ())
                                   #(ribcage #(x) #((top)) #("i38397"))
                                   #(ribcage
                                     (identifier-syntax)
                                     ((top))
                                     (((hygiene guile)
                                       .
                                       #(syntax-object
                                         identifier-syntax
                                         ((top))
                                         (hygiene guile))))))
                                  (hygiene guile)))
                              '#((#(syntax-object
                                    macro-type
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("i38415"
                                         "i38416"
                                         "i38417"
                                         "i38418"
                                         "i38419"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))
                                  .
                                  #(syntax-object
                                    variable-transformer
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("i38415"
                                         "i38416"
                                         "i38417"
                                         "i38418"
                                         "i38419"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i38397"))
                                     #(ribcage
                                       (identifier-syntax)
                                       ((top))
                                       (((hygiene guile)
                                         .
                                         #(syntax-object
                                           identifier-syntax
                                           ((top))
                                           (hygiene guile))))))
                                    (hygiene guile))))
                              (list '#(syntax-object
                                       syntax-case
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("i38415"
                                            "i38416"
                                            "i38417"
                                            "i38418"
                                            "i38419"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38397"))
                                        #(ribcage
                                          (identifier-syntax)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              identifier-syntax
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile))
                                    '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("i38415"
                                            "i38416"
                                            "i38417"
                                            "i38418"
                                            "i38419"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i38397"))
                                        #(ribcage
                                          (identifier-syntax)
                                          ((top))
                                          (((hygiene guile)
                                            .
                                            #(syntax-object
                                              identifier-syntax
                                              ((top))
                                              (hygiene guile))))))
                                       (hygiene guile))
                                    '(#(syntax-object
                                        set!
                                        ((top)
                                         #(ribcage
                                           #(id exp1 var val exp2)
                                           #((top) (top) (top) (top) (top))
                                           #("i38415"
                                             "i38416"
                                             "i38417"
                                             "i38418"
                                             "i38419"))
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i38397"))
                                         #(ribcage
                                           (identifier-syntax)
                                           ((top))
                                           (((hygiene guile)
                                             .
                                             #(syntax-object
                                               identifier-syntax
                                               ((top))
                                               (hygiene guile))))))
                                        (hygiene guile)))
                                    (list (list '#(syntax-object
                                                   set!
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38415"
                                                        "i38416"
                                                        "i38417"
                                                        "i38418"
                                                        "i38419"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38397"))
                                                    #(ribcage
                                                      (identifier-syntax)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          identifier-syntax
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                #{var 38443}#
                                                #{val 38444}#)
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38415"
                                                        "i38416"
                                                        "i38417"
                                                        "i38418"
                                                        "i38419"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38397"))
                                                    #(ribcage
                                                      (identifier-syntax)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          identifier-syntax
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                #{exp2 38445}#))
                                    (list (cons #{id 38441}#
                                                '(#(syntax-object
                                                    x
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i38415"
                                                         "i38416"
                                                         "i38417"
                                                         "i38418"
                                                         "i38419"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38397"))
                                                     #(ribcage
                                                       (identifier-syntax)
                                                       ((top))
                                                       (((hygiene guile)
                                                         .
                                                         #(syntax-object
                                                           identifier-syntax
                                                           ((top))
                                                           (hygiene guile))))))
                                                    (hygiene guile))
                                                  #(syntax-object
                                                    ...
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i38415"
                                                         "i38416"
                                                         "i38417"
                                                         "i38418"
                                                         "i38419"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i38397"))
                                                     #(ribcage
                                                       (identifier-syntax)
                                                       ((top))
                                                       (((hygiene guile)
                                                         .
                                                         #(syntax-object
                                                           identifier-syntax
                                                           ((top))
                                                           (hygiene guile))))))
                                                    (hygiene guile))))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38415"
                                                        "i38416"
                                                        "i38417"
                                                        "i38418"
                                                        "i38419"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38397"))
                                                    #(ribcage
                                                      (identifier-syntax)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          identifier-syntax
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                (cons #{exp1 38442}#
                                                      '(#(syntax-object
                                                          x
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("i38415"
                                                               "i38416"
                                                               "i38417"
                                                               "i38418"
                                                               "i38419"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38397"))
                                                           #(ribcage
                                                             (identifier-syntax)
                                                             ((top))
                                                             (((hygiene guile)
                                                               .
                                                               #(syntax-object
                                                                 identifier-syntax
                                                                 ((top))
                                                                 (hygiene
                                                                   guile))))))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("i38415"
                                                               "i38416"
                                                               "i38417"
                                                               "i38418"
                                                               "i38419"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("i38397"))
                                                           #(ribcage
                                                             (identifier-syntax)
                                                             ((top))
                                                             (((hygiene guile)
                                                               .
                                                               #(syntax-object
                                                                 identifier-syntax
                                                                 ((top))
                                                                 (hygiene
                                                                   guile))))))
                                                          (hygiene guile))))))
                                    (list #{id 38441}#
                                          (list '#(syntax-object
                                                   identifier?
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38415"
                                                        "i38416"
                                                        "i38417"
                                                        "i38418"
                                                        "i38419"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38397"))
                                                    #(ribcage
                                                      (identifier-syntax)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          identifier-syntax
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                (list '#(syntax-object
                                                         syntax
                                                         ((top)
                                                          #(ribcage
                                                            #(id
                                                              exp1
                                                              var
                                                              val
                                                              exp2)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i38415"
                                                              "i38416"
                                                              "i38417"
                                                              "i38418"
                                                              "i38419"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i38397"))
                                                          #(ribcage
                                                            (identifier-syntax)
                                                            ((top))
                                                            (((hygiene guile)
                                                              .
                                                              #(syntax-object
                                                                identifier-syntax
                                                                ((top))
                                                                (hygiene
                                                                  guile))))))
                                                         (hygiene guile))
                                                      #{id 38441}#))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i38415"
                                                        "i38416"
                                                        "i38417"
                                                        "i38418"
                                                        "i38419"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i38397"))
                                                    #(ribcage
                                                      (identifier-syntax)
                                                      ((top))
                                                      (((hygiene guile)
                                                        .
                                                        #(syntax-object
                                                          identifier-syntax
                                                          ((top))
                                                          (hygiene guile))))))
                                                   (hygiene guile))
                                                #{exp1 38442}#))))))
                #{tmp 38432}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 38425}#))))))))

(define define*
  (make-syntax-transformer
    'define*
    'macro
    (lambda (#{x 38478}#)
      (let ((#{tmp 38480}#
              ($sc-dispatch
                #{x 38478}#
                '(_ (any . any) any . each-any))))
        (if #{tmp 38480}#
          (@apply
            (lambda (#{id 38484}#
                     #{args 38485}#
                     #{b0 38486}#
                     #{b1 38487}#)
              (list '#(syntax-object
                       define
                       ((top)
                        #(ribcage
                          #(id args b0 b1)
                          #((top) (top) (top) (top))
                          #("i38460" "i38461" "i38462" "i38463"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("i38457"))
                        #(ribcage
                          (define*)
                          ((top))
                          (((hygiene guile)
                            .
                            #(syntax-object
                              define*
                              ((top))
                              (hygiene guile))))))
                       (hygiene guile))
                    #{id 38484}#
                    (cons '#(syntax-object
                             lambda*
                             ((top)
                              #(ribcage
                                #(id args b0 b1)
                                #((top) (top) (top) (top))
                                #("i38460" "i38461" "i38462" "i38463"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i38457"))
                              #(ribcage
                                (define*)
                                ((top))
                                (((hygiene guile)
                                  .
                                  #(syntax-object
                                    define*
                                    ((top))
                                    (hygiene guile))))))
                             (hygiene guile))
                          (cons #{args 38485}#
                                (cons #{b0 38486}# #{b1 38487}#)))))
            #{tmp 38480}#)
          (let ((#{tmp 38488}#
                  ($sc-dispatch #{x 38478}# '(_ any any))))
            (if (if #{tmp 38488}#
                  (@apply
                    (lambda (#{id 38492}# #{val 38493}#)
                      (identifier?
                        '#(syntax-object
                           x
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("i38470" "i38471"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38457"))
                            #(ribcage
                              (define*)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  define*
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))))
                    #{tmp 38488}#)
                  #f)
              (@apply
                (lambda (#{id 38494}# #{val 38495}#)
                  (list '#(syntax-object
                           define
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("i38474" "i38475"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("i38457"))
                            #(ribcage
                              (define*)
                              ((top))
                              (((hygiene guile)
                                .
                                #(syntax-object
                                  define*
                                  ((top))
                                  (hygiene guile))))))
                           (hygiene guile))
                        #{id 38494}#
                        #{val 38495}#))
                #{tmp 38488}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{x 38478}#))))))))