fix hook invocation during thread guilification

[bpt/guile.git] / module / ice-9 / psyntax-pp.scm

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

(let ((session-id-6510 (if #f #f))
      (transformer-environment-6571 (if #f #f)))
  (letrec*
    ((top-level-eval-hook-6508
       (lambda (x-29318 mod-29319)
         (primitive-eval x-29318)))
     (get-global-definition-hook-6512
       (lambda (symbol-17709 module-17710)
         (begin
           (if (if (not module-17710) (current-module) #f)
             (warn "module system is booted, we should have a module"
                   symbol-17709))
           (let ((v-17711
                   (module-variable
                     (if module-17710
                       (resolve-module (cdr module-17710))
                       (current-module))
                     symbol-17709)))
             (if v-17711
               (if (variable-bound? v-17711)
                 (let ((val-17713 (variable-ref v-17711)))
                   (if (macro? val-17713)
                     (if (macro-type val-17713)
                       (cons (macro-type val-17713)
                             (macro-binding val-17713))
                       #f)
                     #f))
                 #f)
               #f)))))
     (maybe-name-value!-6514
       (lambda (name-17990 val-17991)
         (if (if (struct? val-17991)
               (eq? (struct-vtable val-17991)
                    (vector-ref %expanded-vtables 13))
               #f)
           (let ((meta-17998 (struct-ref val-17991 1)))
             (if (not (assq 'name meta-17998))
               (let ((v-18003
                       (cons (cons 'name name-17990) meta-17998)))
                 (struct-set! val-17991 1 v-18003)))))))
     (build-application-6516
       (lambda (source-17715 fun-exp-17716 arg-exps-17717)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 11)
           source-17715
           fun-exp-17716
           arg-exps-17717)))
     (build-conditional-6517
       (lambda (source-17723
                test-exp-17724
                then-exp-17725
                else-exp-17726)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 10)
           source-17723
           test-exp-17724
           then-exp-17725
           else-exp-17726)))
     (build-dynlet-6518
       (lambda (source-17733 fluids-17734 vals-17735 body-17736)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 17)
           source-17733
           fluids-17734
           vals-17735
           body-17736)))
     (build-lexical-reference-6519
       (lambda (type-29320 source-29321 name-29322 var-29323)
         (make-struct/no-tail
           (vector-ref %expanded-vtables 3)
           source-29321
           name-29322
           var-29323)))
     (build-lexical-assignment-6520
       (lambda (source-17743 name-17744 var-17745 exp-17746)
         (begin
           (if (if (struct? exp-17746)
                 (eq? (struct-vtable exp-17746)
                      (vector-ref %expanded-vtables 13))
                 #f)
             (let ((meta-17762 (struct-ref exp-17746 1)))
               (if (not (assq 'name meta-17762))
                 (let ((v-17769
                         (cons (cons 'name name-17744) meta-17762)))
                   (struct-set! exp-17746 1 v-17769)))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 4)
             source-17743
             name-17744
             var-17745
             exp-17746))))
     (analyze-variable-6521
       (lambda (mod-29329
                var-29330
                modref-cont-29331
                bare-cont-29332)
         (if (not mod-29329)
           (bare-cont-29332 var-29330)
           (let ((kind-29333 (car mod-29329))
                 (mod-29334 (cdr mod-29329)))
             (if (eqv? kind-29333 'public)
               (modref-cont-29331 mod-29334 var-29330 #t)
               (if (eqv? kind-29333 'private)
                 (if (not (equal? mod-29334 (module-name (current-module))))
                   (modref-cont-29331 mod-29334 var-29330 #f)
                   (bare-cont-29332 var-29330))
                 (if (eqv? kind-29333 'bare)
                   (bare-cont-29332 var-29330)
                   (if (eqv? kind-29333 'hygiene)
                     (if (if (not (equal?
                                    mod-29334
                                    (module-name (current-module))))
                           (module-variable
                             (resolve-module mod-29334)
                             var-29330)
                           #f)
                       (modref-cont-29331 mod-29334 var-29330 #f)
                       (bare-cont-29332 var-29330))
                     (syntax-violation
                       #f
                       "bad module kind"
                       var-29330
                       mod-29334)))))))))
     (build-global-reference-6522
       (lambda (source-29349 var-29350 mod-29351)
         (analyze-variable-6521
           mod-29351
           var-29350
           (lambda (mod-29354 var-29355 public?-29356)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 5)
               source-29349
               mod-29354
               var-29355
               public?-29356))
           (lambda (var-29364)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 7)
               source-29349
               var-29364)))))
     (build-global-assignment-6523
       (lambda (source-17778 var-17779 exp-17780 mod-17781)
         (begin
           (if (if (struct? exp-17780)
                 (eq? (struct-vtable exp-17780)
                      (vector-ref %expanded-vtables 13))
                 #f)
             (let ((meta-17797 (struct-ref exp-17780 1)))
               (if (not (assq 'name meta-17797))
                 (let ((v-17804
                         (cons (cons 'name var-17779) meta-17797)))
                   (struct-set! exp-17780 1 v-17804)))))
           (analyze-variable-6521
             mod-17781
             var-17779
             (lambda (mod-17809 var-17810 public?-17811)
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 6)
                 source-17778
                 mod-17809
                 var-17810
                 public?-17811
                 exp-17780))
             (lambda (var-17819)
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 8)
                 source-17778
                 var-17819
                 exp-17780))))))
     (build-global-definition-6524
       (lambda (source-29370 var-29371 exp-29372)
         (begin
           (if (if (struct? exp-29372)
                 (eq? (struct-vtable exp-29372)
                      (vector-ref %expanded-vtables 13))
                 #f)
             (let ((meta-29388 (struct-ref exp-29372 1)))
               (if (not (assq 'name meta-29388))
                 (let ((v-29395
                         (cons (cons 'name var-29371) meta-29388)))
                   (struct-set! exp-29372 1 v-29395)))))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 9)
             source-29370
             var-29371
             exp-29372))))
     (build-simple-lambda-6525
       (lambda (src-17825
                req-17826
                rest-17827
                vars-17828
                meta-17829
                exp-17830)
         (let ((body-17836
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 14)
                   src-17825
                   req-17826
                   #f
                   rest-17827
                   #f
                   '()
                   vars-17828
                   exp-17830
                   #f)))
           (make-struct/no-tail
             (vector-ref %expanded-vtables 13)
             src-17825
             meta-17829
             body-17836))))
     (build-sequence-6530
       (lambda (src-29403 exps-29404)
         (if (null? (cdr exps-29404))
           (car exps-29404)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 12)
             src-29403
             exps-29404))))
     (build-let-6531
       (lambda (src-17848
                ids-17849
                vars-17850
                val-exps-17851
                body-exp-17852)
         (begin
           (for-each
             maybe-name-value!-6514
             ids-17849
             val-exps-17851)
           (if (null? vars-17850)
             body-exp-17852
             (make-struct/no-tail
               (vector-ref %expanded-vtables 15)
               src-17848
               ids-17849
               vars-17850
               val-exps-17851
               body-exp-17852)))))
     (build-named-let-6532
       (lambda (src-17876
                ids-17877
                vars-17878
                val-exps-17879
                body-exp-17880)
         (let ((f-17881 (car vars-17878))
               (f-name-17882 (car ids-17877))
               (vars-17883 (cdr vars-17878))
               (ids-17884 (cdr ids-17877)))
           (let ((proc-17885
                   (let ((body-17905
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 14)
                             src-17876
                             ids-17884
                             #f
                             #f
                             #f
                             '()
                             vars-17883
                             body-exp-17880
                             #f)))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 13)
                       src-17876
                       '()
                       body-17905))))
             (begin
               (if (if (struct? proc-17885)
                     (eq? (struct-vtable proc-17885)
                          (vector-ref %expanded-vtables 13))
                     #f)
                 (let ((meta-17929 (struct-ref proc-17885 1)))
                   (if (not (assq 'name meta-17929))
                     (let ((v-17936
                             (cons (cons 'name f-name-17882) meta-17929)))
                       (struct-set! proc-17885 1 v-17936)))))
               (for-each
                 maybe-name-value!-6514
                 ids-17884
                 val-exps-17879)
               (let ((names-17960 (list f-name-17882))
                     (gensyms-17961 (list f-17881))
                     (vals-17962 (list proc-17885))
                     (body-17963
                       (let ((fun-exp-17967
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 3)
                                 src-17876
                                 f-name-17882
                                 f-17881)))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 11)
                           src-17876
                           fun-exp-17967
                           val-exps-17879))))
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 16)
                   src-17876
                   #f
                   names-17960
                   gensyms-17961
                   vals-17962
                   body-17963)))))))
     (build-letrec-6533
       (lambda (src-17983
                in-order?-17984
                ids-17985
                vars-17986
                val-exps-17987
                body-exp-17988)
         (if (null? vars-17986)
           body-exp-17988
           (begin
             (for-each
               maybe-name-value!-6514
               ids-17985
               val-exps-17987)
             (make-struct/no-tail
               (vector-ref %expanded-vtables 16)
               src-17983
               in-order?-17984
               ids-17985
               vars-17986
               val-exps-17987
               body-exp-17988)))))
     (source-annotation-6542
       (lambda (x-18014)
         (if (if (vector? x-18014)
               (if (= (vector-length x-18014) 4)
                 (eq? (vector-ref x-18014 0) 'syntax-object)
                 #f)
               #f)
           (source-annotation-6542 (vector-ref x-18014 1))
           (if (pair? x-18014)
             (let ((props-18029 (source-properties x-18014)))
               (if (pair? props-18029) props-18029 #f))
             #f))))
     (extend-env-6543
       (lambda (labels-18031 bindings-18032 r-18033)
         (if (null? labels-18031)
           r-18033
           (extend-env-6543
             (cdr labels-18031)
             (cdr bindings-18032)
             (cons (cons (car labels-18031) (car bindings-18032))
                   r-18033)))))
     (extend-var-env-6544
       (lambda (labels-18034 vars-18035 r-18036)
         (if (null? labels-18034)
           r-18036
           (extend-var-env-6544
             (cdr labels-18034)
             (cdr vars-18035)
             (cons (cons (car labels-18034)
                         (cons 'lexical (car vars-18035)))
                   r-18036)))))
     (macros-only-env-6545
       (lambda (r-18037)
         (if (null? r-18037)
           '()
           (let ((a-18038 (car r-18037)))
             (if (eq? (car (cdr a-18038)) 'macro)
               (cons a-18038
                     (macros-only-env-6545 (cdr r-18037)))
               (macros-only-env-6545 (cdr r-18037)))))))
     (global-extend-6547
       (lambda (type-18040 sym-18041 val-18042)
         (module-define!
           (current-module)
           sym-18041
           (make-syntax-transformer
             sym-18041
             type-18040
             val-18042))))
     (id?-6549
       (lambda (x-11853)
         (if (symbol? x-11853)
           #t
           (if (if (vector? x-11853)
                 (if (= (vector-length x-11853) 4)
                   (eq? (vector-ref x-11853 0) 'syntax-object)
                   #f)
                 #f)
             (symbol? (vector-ref x-11853 1))
             #f))))
     (gen-labels-6552
       (lambda (ls-18052)
         (if (null? ls-18052)
           '()
           (cons (string-append
                   "l-"
                   (session-id-6510)
                   (symbol->string (gensym "-")))
                 (gen-labels-6552 (cdr ls-18052))))))
     (make-binding-wrap-6563
       (lambda (ids-18056 labels-18057 w-18058)
         (if (null? ids-18056)
           w-18058
           (cons (car w-18058)
                 (cons (let ((labelvec-18059 (list->vector labels-18057)))
                         (let ((n-18060 (vector-length labelvec-18059)))
                           (let ((symnamevec-18061 (make-vector n-18060))
                                 (marksvec-18062 (make-vector n-18060)))
                             (begin
                               (letrec*
                                 ((f-18063
                                    (lambda (ids-18066 i-18067)
                                      (if (not (null? ids-18066))
                                        (call-with-values
                                          (lambda ()
                                            (let ((x-18070 (car ids-18066)))
                                              (if (if (vector? x-18070)
                                                    (if (= (vector-length
                                                             x-18070)
                                                           4)
                                                      (eq? (vector-ref
                                                             x-18070
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (values
                                                  (vector-ref x-18070 1)
                                                  (let ((m1-18086
                                                          (car w-18058))
                                                        (m2-18087
                                                          (car (vector-ref
                                                                 x-18070
                                                                 2))))
                                                    (if (null? m2-18087)
                                                      m1-18086
                                                      (append
                                                        m1-18086
                                                        m2-18087))))
                                                (values
                                                  x-18070
                                                  (car w-18058)))))
                                          (lambda (symname-18107 marks-18108)
                                            (begin
                                              (vector-set!
                                                symnamevec-18061
                                                i-18067
                                                symname-18107)
                                              (vector-set!
                                                marksvec-18062
                                                i-18067
                                                marks-18108)
                                              (f-18063
                                                (cdr ids-18066)
                                                (#{1+}# i-18067)))))))))
                                 (f-18063 ids-18056 0))
                               (vector
                                 'ribcage
                                 symnamevec-18061
                                 marksvec-18062
                                 labelvec-18059)))))
                       (cdr w-18058))))))
     (join-wraps-6565
       (lambda (w1-18117 w2-18118)
         (let ((m1-18119 (car w1-18117))
               (s1-18120 (cdr w1-18117)))
           (if (null? m1-18119)
             (if (null? s1-18120)
               w2-18118
               (cons (car w2-18118)
                     (let ((m2-18127 (cdr w2-18118)))
                       (if (null? m2-18127)
                         s1-18120
                         (append s1-18120 m2-18127)))))
             (cons (let ((m2-18136 (car w2-18118)))
                     (if (null? m2-18136)
                       m1-18119
                       (append m1-18119 m2-18136)))
                   (let ((m2-18145 (cdr w2-18118)))
                     (if (null? m2-18145)
                       s1-18120
                       (append s1-18120 m2-18145))))))))
     (same-marks?-6567
       (lambda (x-18150 y-18151)
         (if (eq? x-18150 y-18151)
           (eq? x-18150 y-18151)
           (if (not (null? x-18150))
             (if (not (null? y-18151))
               (if (eq? (car x-18150) (car y-18151))
                 (same-marks?-6567 (cdr x-18150) (cdr y-18151))
                 #f)
               #f)
             #f))))
     (id-var-name-6568
       (lambda (id-18159 w-18160)
         (letrec*
           ((search-18161
              (lambda (sym-18222 subst-18223 marks-18224)
                (if (null? subst-18223)
                  (values #f marks-18224)
                  (let ((fst-18225 (car subst-18223)))
                    (if (eq? fst-18225 'shift)
                      (search-18161
                        sym-18222
                        (cdr subst-18223)
                        (cdr marks-18224))
                      (let ((symnames-18227 (vector-ref fst-18225 1)))
                        (if (vector? symnames-18227)
                          (let ((n-18239 (vector-length symnames-18227)))
                            (letrec*
                              ((f-18240
                                 (lambda (i-18242)
                                   (if (= i-18242 n-18239)
                                     (search-18161
                                       sym-18222
                                       (cdr subst-18223)
                                       marks-18224)
                                     (if (if (eq? (vector-ref
                                                    symnames-18227
                                                    i-18242)
                                                  sym-18222)
                                           (same-marks?-6567
                                             marks-18224
                                             (vector-ref
                                               (vector-ref fst-18225 2)
                                               i-18242))
                                           #f)
                                       (values
                                         (vector-ref
                                           (vector-ref fst-18225 3)
                                           i-18242)
                                         marks-18224)
                                       (f-18240 (#{1+}# i-18242)))))))
                              (f-18240 0)))
                          (letrec*
                            ((f-18275
                               (lambda (symnames-18277 i-18278)
                                 (if (null? symnames-18277)
                                   (search-18161
                                     sym-18222
                                     (cdr subst-18223)
                                     marks-18224)
                                   (if (if (eq? (car symnames-18277) sym-18222)
                                         (same-marks?-6567
                                           marks-18224
                                           (list-ref
                                             (vector-ref fst-18225 2)
                                             i-18278))
                                         #f)
                                     (values
                                       (list-ref
                                         (vector-ref fst-18225 3)
                                         i-18278)
                                       marks-18224)
                                     (f-18275
                                       (cdr symnames-18277)
                                       (#{1+}# i-18278)))))))
                            (f-18275 symnames-18227 0))))))))))
           (if (symbol? id-18159)
             (let ((t-18164
                     (search-18161
                       id-18159
                       (cdr w-18160)
                       (car w-18160))))
               (if t-18164 t-18164 id-18159))
             (if (if (vector? id-18159)
                   (if (= (vector-length id-18159) 4)
                     (eq? (vector-ref id-18159 0) 'syntax-object)
                     #f)
                   #f)
               (let ((id-18179 (vector-ref id-18159 1))
                     (w1-18180 (vector-ref id-18159 2)))
                 (let ((marks-18181
                         (let ((m1-18191 (car w-18160))
                               (m2-18192 (car w1-18180)))
                           (if (null? m2-18192)
                             m1-18191
                             (append m1-18191 m2-18192)))))
                   (call-with-values
                     (lambda ()
                       (search-18161 id-18179 (cdr w-18160) marks-18181))
                     (lambda (new-id-18208 marks-18209)
                       (if new-id-18208
                         new-id-18208
                         (let ((t-18217
                                 (search-18161
                                   id-18179
                                   (cdr w1-18180)
                                   marks-18209)))
                           (if t-18217 t-18217 id-18179)))))))
               (syntax-violation
                 'id-var-name
                 "invalid id"
                 id-18159))))))
     (locally-bound-identifiers-6569
       (lambda (w-18300 mod-18301)
         (letrec*
           ((scan-18302
              (lambda (subst-18307 results-18308)
                (if (null? subst-18307)
                  results-18308
                  (let ((fst-18309 (car subst-18307)))
                    (if (eq? fst-18309 'shift)
                      (scan-18302 (cdr subst-18307) results-18308)
                      (let ((symnames-18311 (vector-ref fst-18309 1))
                            (marks-18312 (vector-ref fst-18309 2)))
                        (if (vector? symnames-18311)
                          (scan-vector-rib-18304
                            subst-18307
                            symnames-18311
                            marks-18312
                            results-18308)
                          (scan-list-rib-18303
                            subst-18307
                            symnames-18311
                            marks-18312
                            results-18308))))))))
            (scan-list-rib-18303
              (lambda (subst-18410
                       symnames-18411
                       marks-18412
                       results-18413)
                (letrec*
                  ((f-18414
                     (lambda (symnames-18514 marks-18515 results-18516)
                       (if (null? symnames-18514)
                         (scan-18302 (cdr subst-18410) results-18516)
                         (f-18414
                           (cdr symnames-18514)
                           (cdr marks-18515)
                           (cons (wrap-6578
                                   (car symnames-18514)
                                   (let ((w-18524
                                           (cons (car marks-18515)
                                                 subst-18410)))
                                     (cons (cons #f (car w-18524))
                                           (cons 'shift (cdr w-18524))))
                                   mod-18301)
                                 results-18516))))))
                  (f-18414
                    symnames-18411
                    marks-18412
                    results-18413))))
            (scan-vector-rib-18304
              (lambda (subst-18525
                       symnames-18526
                       marks-18527
                       results-18528)
                (let ((n-18529 (vector-length symnames-18526)))
                  (letrec*
                    ((f-18530
                       (lambda (i-18613 results-18614)
                         (if (= i-18613 n-18529)
                           (scan-18302 (cdr subst-18525) results-18614)
                           (f-18530
                             (#{1+}# i-18613)
                             (cons (wrap-6578
                                     (vector-ref symnames-18526 i-18613)
                                     (let ((w-18622
                                             (cons (vector-ref
                                                     marks-18527
                                                     i-18613)
                                                   subst-18525)))
                                       (cons (cons #f (car w-18622))
                                             (cons 'shift (cdr w-18622))))
                                     mod-18301)
                                   results-18614))))))
                    (f-18530 0 results-18528))))))
           (scan-18302 (cdr w-18300) '()))))
     (valid-bound-ids?-6575
       (lambda (ids-18623)
         (if (letrec*
               ((all-ids?-18624
                  (lambda (ids-18786)
                    (if (null? ids-18786)
                      (null? ids-18786)
                      (if (let ((x-18797 (car ids-18786)))
                            (if (symbol? x-18797)
                              #t
                              (if (if (vector? x-18797)
                                    (if (= (vector-length x-18797) 4)
                                      (eq? (vector-ref x-18797 0)
                                           'syntax-object)
                                      #f)
                                    #f)
                                (symbol? (vector-ref x-18797 1))
                                #f)))
                        (all-ids?-18624 (cdr ids-18786))
                        #f)))))
               (all-ids?-18624 ids-18623))
           (distinct-bound-ids?-6576 ids-18623)
           #f)))
     (distinct-bound-ids?-6576
       (lambda (ids-18925)
         (letrec*
           ((distinct?-18926
              (lambda (ids-19038)
                (if (null? ids-19038)
                  (null? ids-19038)
                  (if (not (bound-id-member?-6577
                             (car ids-19038)
                             (cdr ids-19038)))
                    (distinct?-18926 (cdr ids-19038))
                    #f)))))
           (distinct?-18926 ids-18925))))
     (bound-id-member?-6577
       (lambda (x-19248 list-19249)
         (if (not (null? list-19249))
           (let ((t-19250
                   (let ((j-19331 (car list-19249)))
                     (if (if (if (vector? x-19248)
                               (if (= (vector-length x-19248) 4)
                                 (eq? (vector-ref x-19248 0) 'syntax-object)
                                 #f)
                               #f)
                           (if (vector? j-19331)
                             (if (= (vector-length j-19331) 4)
                               (eq? (vector-ref j-19331 0) 'syntax-object)
                               #f)
                             #f)
                           #f)
                       (if (eq? (vector-ref x-19248 1)
                                (vector-ref j-19331 1))
                         (same-marks?-6567
                           (car (vector-ref x-19248 2))
                           (car (vector-ref j-19331 2)))
                         #f)
                       (eq? x-19248 j-19331)))))
             (if t-19250
               t-19250
               (bound-id-member?-6577 x-19248 (cdr list-19249))))
           #f)))
     (wrap-6578
       (lambda (x-19375 w-19376 defmod-19377)
         (if (if (null? (car w-19376))
               (null? (cdr w-19376))
               #f)
           x-19375
           (if (if (vector? x-19375)
                 (if (= (vector-length x-19375) 4)
                   (eq? (vector-ref x-19375 0) 'syntax-object)
                   #f)
                 #f)
             (let ((expression-19391 (vector-ref x-19375 1))
                   (wrap-19392
                     (join-wraps-6565 w-19376 (vector-ref x-19375 2)))
                   (module-19393 (vector-ref x-19375 3)))
               (vector
                 'syntax-object
                 expression-19391
                 wrap-19392
                 module-19393))
             (if (null? x-19375)
               x-19375
               (vector
                 'syntax-object
                 x-19375
                 w-19376
                 defmod-19377))))))
     (source-wrap-6579
       (lambda (x-19410 w-19411 s-19412 defmod-19413)
         (wrap-6578
           (begin
             (if (if (pair? x-19410) s-19412 #f)
               (set-source-properties! x-19410 s-19412))
             x-19410)
           w-19411
           defmod-19413)))
     (expand-sequence-6580
       (lambda (body-29409 r-29410 w-29411 s-29412 mod-29413)
         (build-sequence-6530
           s-29412
           (letrec*
             ((dobody-29493
                (lambda (body-29833 r-29834 w-29835 mod-29836)
                  (if (null? body-29833)
                    '()
                    (let ((first-29837
                            (let ((e-29841 (car body-29833)))
                              (call-with-values
                                (lambda ()
                                  (syntax-type-6584
                                    e-29841
                                    r-29834
                                    w-29835
                                    (source-annotation-6542 e-29841)
                                    #f
                                    mod-29836
                                    #f))
                                (lambda (type-29848
                                         value-29849
                                         form-29850
                                         e-29851
                                         w-29852
                                         s-29853
                                         mod-29854)
                                  (expand-expr-6586
                                    type-29848
                                    value-29849
                                    form-29850
                                    e-29851
                                    r-29834
                                    w-29852
                                    s-29853
                                    mod-29854))))))
                      (cons first-29837
                            (dobody-29493
                              (cdr body-29833)
                              r-29834
                              w-29835
                              mod-29836)))))))
             (dobody-29493
               body-29409
               r-29410
               w-29411
               mod-29413)))))
     (expand-top-sequence-6581
       (lambda (body-19431
                r-19432
                w-19433
                s-19434
                m-19435
                esew-19436
                mod-19437)
         (letrec*
           ((scan-19438
              (lambda (body-19569
                       r-19570
                       w-19571
                       s-19572
                       m-19573
                       esew-19574
                       mod-19575
                       exps-19576)
                (if (null? body-19569)
                  exps-19576
                  (call-with-values
                    (lambda ()
                      (call-with-values
                        (lambda ()
                          (let ((e-19577 (car body-19569)))
                            (syntax-type-6584
                              e-19577
                              r-19570
                              w-19571
                              (let ((t-19581 (source-annotation-6542 e-19577)))
                                (if t-19581 t-19581 s-19572))
                              #f
                              mod-19575
                              #f)))
                        (lambda (type-19816
                                 value-19817
                                 form-19818
                                 e-19819
                                 w-19820
                                 s-19821
                                 mod-19822)
                          (if (eqv? type-19816 'begin-form)
                            (let ((tmp-19827 ($sc-dispatch e-19819 '(_))))
                              (if tmp-19827
                                (@apply (lambda () exps-19576) tmp-19827)
                                (let ((tmp-19831
                                        ($sc-dispatch
                                          e-19819
                                          '(_ any . each-any))))
                                  (if tmp-19831
                                    (@apply
                                      (lambda (e1-19835 e2-19836)
                                        (scan-19438
                                          (cons e1-19835 e2-19836)
                                          r-19570
                                          w-19820
                                          s-19821
                                          m-19573
                                          esew-19574
                                          mod-19822
                                          exps-19576))
                                      tmp-19831)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any pattern"
                                      e-19819)))))
                            (if (eqv? type-19816 'local-syntax-form)
                              (expand-local-syntax-6590
                                value-19817
                                e-19819
                                r-19570
                                w-19820
                                s-19821
                                mod-19822
                                (lambda (body-19851
                                         r-19852
                                         w-19853
                                         s-19854
                                         mod-19855)
                                  (scan-19438
                                    body-19851
                                    r-19852
                                    w-19853
                                    s-19854
                                    m-19573
                                    esew-19574
                                    mod-19855
                                    exps-19576)))
                              (if (eqv? type-19816 'eval-when-form)
                                (let ((tmp-19860
                                        ($sc-dispatch
                                          e-19819
                                          '(_ each-any any . each-any))))
                                  (if tmp-19860
                                    (@apply
                                      (lambda (x-19864 e1-19865 e2-19866)
                                        (let ((when-list-19867
                                                (parse-when-list-6583
                                                  e-19819
                                                  x-19864))
                                              (body-19868
                                                (cons e1-19865 e2-19866)))
                                          (if (eq? m-19573 'e)
                                            (if (memq 'eval when-list-19867)
                                              (scan-19438
                                                body-19868
                                                r-19570
                                                w-19820
                                                s-19821
                                                (if (memq 'expand
                                                          when-list-19867)
                                                  'c&e
                                                  'e)
                                                '(eval)
                                                mod-19822
                                                exps-19576)
                                              (begin
                                                (if (memq 'expand
                                                          when-list-19867)
                                                  (let ((x-19945
                                                          (expand-top-sequence-6581
                                                            body-19868
                                                            r-19570
                                                            w-19820
                                                            s-19821
                                                            'e
                                                            '(eval)
                                                            mod-19822)))
                                                    (primitive-eval x-19945)))
                                                exps-19576))
                                            (if (memq 'load when-list-19867)
                                              (if (let ((t-19971
                                                          (memq 'compile
                                                                when-list-19867)))
                                                    (if t-19971
                                                      t-19971
                                                      (let ((t-20020
                                                              (memq 'expand
                                                                    when-list-19867)))
                                                        (if t-20020
                                                          t-20020
                                                          (if (eq? m-19573
                                                                   'c&e)
                                                            (memq 'eval
                                                                  when-list-19867)
                                                            #f)))))
                                                (scan-19438
                                                  body-19868
                                                  r-19570
                                                  w-19820
                                                  s-19821
                                                  'c&e
                                                  '(compile load)
                                                  mod-19822
                                                  exps-19576)
                                                (if (if (eq? m-19573 'c)
                                                      #t
                                                      (eq? m-19573 'c&e))
                                                  (scan-19438
                                                    body-19868
                                                    r-19570
                                                    w-19820
                                                    s-19821
                                                    'c
                                                    '(load)
                                                    mod-19822
                                                    exps-19576)
                                                  exps-19576))
                                              (if (let ((t-20149
                                                          (memq 'compile
                                                                when-list-19867)))
                                                    (if t-20149
                                                      t-20149
                                                      (let ((t-20198
                                                              (memq 'expand
                                                                    when-list-19867)))
                                                        (if t-20198
                                                          t-20198
                                                          (if (eq? m-19573
                                                                   'c&e)
                                                            (memq 'eval
                                                                  when-list-19867)
                                                            #f)))))
                                                (begin
                                                  (let ((x-20322
                                                          (expand-top-sequence-6581
                                                            body-19868
                                                            r-19570
                                                            w-19820
                                                            s-19821
                                                            'e
                                                            '(eval)
                                                            mod-19822)))
                                                    (primitive-eval x-20322))
                                                  exps-19576)
                                                exps-19576)))))
                                      tmp-19860)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any pattern"
                                      e-19819)))
                                (if (if (eqv? type-19816 'define-syntax-form)
                                      #t
                                      (eqv? type-19816
                                            'define-syntax-parameter-form))
                                  (let ((n-20368
                                          (id-var-name-6568
                                            value-19817
                                            w-19820))
                                        (r-20369
                                          (macros-only-env-6545 r-19570)))
                                    (if (eqv? m-19573 'c)
                                      (if (memq 'compile esew-19574)
                                        (let ((e-20373
                                                (expand-install-global-6582
                                                  n-20368
                                                  (expand-6585
                                                    e-19819
                                                    r-20369
                                                    w-19820
                                                    mod-19822))))
                                          (begin
                                            (top-level-eval-hook-6508
                                              e-20373
                                              mod-19822)
                                            (if (memq 'load esew-19574)
                                              (cons e-20373 exps-19576)
                                              exps-19576)))
                                        (if (memq 'load esew-19574)
                                          (cons (expand-install-global-6582
                                                  n-20368
                                                  (expand-6585
                                                    e-19819
                                                    r-20369
                                                    w-19820
                                                    mod-19822))
                                                exps-19576)
                                          exps-19576))
                                      (if (eqv? m-19573 'c&e)
                                        (let ((e-21015
                                                (expand-install-global-6582
                                                  n-20368
                                                  (expand-6585
                                                    e-19819
                                                    r-20369
                                                    w-19820
                                                    mod-19822))))
                                          (begin
                                            (top-level-eval-hook-6508
                                              e-21015
                                              mod-19822)
                                            (cons e-21015 exps-19576)))
                                        (begin
                                          (if (memq 'eval esew-19574)
                                            (top-level-eval-hook-6508
                                              (expand-install-global-6582
                                                n-20368
                                                (expand-6585
                                                  e-19819
                                                  r-20369
                                                  w-19820
                                                  mod-19822))
                                              mod-19822))
                                          exps-19576))))
                                  (if (eqv? type-19816 'define-form)
                                    (let ((n-21689
                                            (id-var-name-6568
                                              value-19817
                                              w-19820)))
                                      (let ((type-21690
                                              (car (let ((t-21697
                                                           (assq n-21689
                                                                 r-19570)))
                                                     (if t-21697
                                                       (cdr t-21697)
                                                       (if (symbol? n-21689)
                                                         (let ((t-21703
                                                                 (get-global-definition-hook-6512
                                                                   n-21689
                                                                   mod-19822)))
                                                           (if t-21703
                                                             t-21703
                                                             '(global)))
                                                         '(displaced-lexical)))))))
                                        (if (if (eqv? type-21690 'global)
                                              #t
                                              (if (eqv? type-21690 'core)
                                                #t
                                                (if (eqv? type-21690 'macro)
                                                  #t
                                                  (eqv? type-21690
                                                        'module-ref))))
                                          (begin
                                            (if (if (if (eq? m-19573 'c)
                                                      #t
                                                      (eq? m-19573 'c&e))
                                                  (if (not (module-local-variable
                                                             (current-module)
                                                             n-21689))
                                                    (current-module)
                                                    #f)
                                                  #f)
                                              (let ((old-21734
                                                      (module-variable
                                                        (current-module)
                                                        n-21689)))
                                                (if (if (variable? old-21734)
                                                      (variable-bound?
                                                        old-21734)
                                                      #f)
                                                  (module-define!
                                                    (current-module)
                                                    n-21689
                                                    (variable-ref old-21734))
                                                  (module-add!
                                                    (current-module)
                                                    n-21689
                                                    (make-undefined-variable)))))
                                            (cons (if (eq? m-19573 'c&e)
                                                    (let ((x-22175
                                                            (build-global-definition-6524
                                                              s-19821
                                                              n-21689
                                                              (expand-6585
                                                                e-19819
                                                                r-19570
                                                                w-19820
                                                                mod-19822))))
                                                      (begin
                                                        (top-level-eval-hook-6508
                                                          x-22175
                                                          mod-19822)
                                                        x-22175))
                                                    (lambda ()
                                                      (build-global-definition-6524
                                                        s-19821
                                                        n-21689
                                                        (expand-6585
                                                          e-19819
                                                          r-19570
                                                          w-19820
                                                          mod-19822))))
                                                  exps-19576))
                                          (if (eqv? type-21690
                                                    'displaced-lexical)
                                            (syntax-violation
                                              #f
                                              "identifier out of context"
                                              (wrap-6578
                                                (begin
                                                  (if (if (pair? form-19818)
                                                        s-19821
                                                        #f)
                                                    (set-source-properties!
                                                      form-19818
                                                      s-19821))
                                                  form-19818)
                                                w-19820
                                                mod-19822)
                                              (wrap-6578
                                                value-19817
                                                w-19820
                                                mod-19822))
                                            (syntax-violation
                                              #f
                                              "cannot define keyword at top level"
                                              (wrap-6578
                                                (begin
                                                  (if (if (pair? form-19818)
                                                        s-19821
                                                        #f)
                                                    (set-source-properties!
                                                      form-19818
                                                      s-19821))
                                                  form-19818)
                                                w-19820
                                                mod-19822)
                                              (wrap-6578
                                                value-19817
                                                w-19820
                                                mod-19822))))))
                                    (cons (if (eq? m-19573 'c&e)
                                            (let ((x-22674
                                                    (expand-expr-6586
                                                      type-19816
                                                      value-19817
                                                      form-19818
                                                      e-19819
                                                      r-19570
                                                      w-19820
                                                      s-19821
                                                      mod-19822)))
                                              (begin
                                                (primitive-eval x-22674)
                                                x-22674))
                                            (lambda ()
                                              (expand-expr-6586
                                                type-19816
                                                value-19817
                                                form-19818
                                                e-19819
                                                r-19570
                                                w-19820
                                                s-19821
                                                mod-19822)))
                                          exps-19576)))))))))
                    (lambda (exps-22679)
                      (scan-19438
                        (cdr body-19569)
                        r-19570
                        w-19571
                        s-19572
                        m-19573
                        esew-19574
                        mod-19575
                        exps-22679)))))))
           (call-with-values
             (lambda ()
               (scan-19438
                 body-19431
                 r-19432
                 w-19433
                 s-19434
                 m-19435
                 esew-19436
                 mod-19437
                 '()))
             (lambda (exps-19441)
               (if (null? exps-19441)
                 (make-struct/no-tail
                   (vector-ref %expanded-vtables 0)
                   s-19434)
                 (build-sequence-6530
                   s-19434
                   (letrec*
                     ((lp-19481
                        (lambda (in-19565 out-19566)
                          (if (null? in-19565)
                            out-19566
                            (let ((e-19567 (car in-19565)))
                              (lp-19481
                                (cdr in-19565)
                                (cons (if (procedure? e-19567)
                                        (e-19567)
                                        e-19567)
                                      out-19566)))))))
                     (lp-19481 exps-19441 '())))))))))
     (expand-install-global-6582
       (lambda (name-22680 e-22681)
         (let ((exp-22687
                 (let ((fun-exp-22697
                         (if (equal? (module-name (current-module)) '(guile))
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 7)
                             #f
                             'make-syntax-transformer)
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 5)
                             #f
                             '(guile)
                             'make-syntax-transformer
                             #f)))
                       (arg-exps-22698
                         (list (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 name-22680)
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 1)
                                 #f
                                 'macro)
                               e-22681)))
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 11)
                     #f
                     fun-exp-22697
                     arg-exps-22698))))
           (begin
             (if (if (struct? exp-22687)
                   (eq? (struct-vtable exp-22687)
                        (vector-ref %expanded-vtables 13))
                   #f)
               (let ((meta-22739 (struct-ref exp-22687 1)))
                 (if (not (assq 'name meta-22739))
                   (let ((v-22746
                           (cons (cons 'name name-22680) meta-22739)))
                     (struct-set! exp-22687 1 v-22746)))))
             (make-struct/no-tail
               (vector-ref %expanded-vtables 9)
               #f
               name-22680
               exp-22687)))))
     (parse-when-list-6583
       (lambda (e-22757 when-list-22758)
         (let ((result-22759 (strip-6598 when-list-22758 '(()))))
           (letrec*
             ((lp-22760
                (lambda (l-22814)
                  (if (null? l-22814)
                    result-22759
                    (if (let ((t-22816 (car l-22814)))
                          (if (eq? t-22816 'compile)
                            #t
                            (if (eq? t-22816 'load)
                              #t
                              (if (eq? t-22816 'eval)
                                #t
                                (eq? t-22816 'expand)))))
                      (lp-22760 (cdr l-22814))
                      (syntax-violation
                        'eval-when
                        "invalid situation"
                        e-22757
                        (car l-22814)))))))
             (lp-22760 result-22759)))))
     (syntax-type-6584
       (lambda (e-22818
                r-22819
                w-22820
                s-22821
                rib-22822
                mod-22823
                for-car?-22824)
         (if (symbol? e-22818)
           (let ((n-22825 (id-var-name-6568 e-22818 w-22820)))
             (let ((b-22826
                     (let ((t-22834 (assq n-22825 r-22819)))
                       (if t-22834
                         (cdr t-22834)
                         (if (symbol? n-22825)
                           (let ((t-22840
                                   (get-global-definition-hook-6512
                                     n-22825
                                     mod-22823)))
                             (if t-22840 t-22840 '(global)))
                           '(displaced-lexical))))))
               (let ((type-22827 (car b-22826)))
                 (if (eqv? type-22827 'lexical)
                   (values
                     type-22827
                     (cdr b-22826)
                     e-22818
                     e-22818
                     w-22820
                     s-22821
                     mod-22823)
                   (if (eqv? type-22827 'global)
                     (values
                       type-22827
                       n-22825
                       e-22818
                       e-22818
                       w-22820
                       s-22821
                       mod-22823)
                     (if (eqv? type-22827 'macro)
                       (if for-car?-22824
                         (values
                           type-22827
                           (cdr b-22826)
                           e-22818
                           e-22818
                           w-22820
                           s-22821
                           mod-22823)
                         (syntax-type-6584
                           (expand-macro-6588
                             (cdr b-22826)
                             e-22818
                             r-22819
                             w-22820
                             s-22821
                             rib-22822
                             mod-22823)
                           r-22819
                           '(())
                           s-22821
                           rib-22822
                           mod-22823
                           #f))
                       (values
                         type-22827
                         (cdr b-22826)
                         e-22818
                         e-22818
                         w-22820
                         s-22821
                         mod-22823)))))))
           (if (pair? e-22818)
             (let ((first-22860 (car e-22818)))
               (call-with-values
                 (lambda ()
                   (syntax-type-6584
                     first-22860
                     r-22819
                     w-22820
                     s-22821
                     rib-22822
                     mod-22823
                     #t))
                 (lambda (ftype-22862
                          fval-22863
                          fform-22864
                          fe-22865
                          fw-22866
                          fs-22867
                          fmod-22868)
                   (if (eqv? ftype-22862 'lexical)
                     (values
                       'lexical-call
                       fval-22863
                       e-22818
                       e-22818
                       w-22820
                       s-22821
                       mod-22823)
                     (if (eqv? ftype-22862 'global)
                       (values
                         'global-call
                         (vector
                           'syntax-object
                           fval-22863
                           w-22820
                           fmod-22868)
                         e-22818
                         e-22818
                         w-22820
                         s-22821
                         mod-22823)
                       (if (eqv? ftype-22862 'macro)
                         (syntax-type-6584
                           (expand-macro-6588
                             fval-22863
                             e-22818
                             r-22819
                             w-22820
                             s-22821
                             rib-22822
                             mod-22823)
                           r-22819
                           '(())
                           s-22821
                           rib-22822
                           mod-22823
                           for-car?-22824)
                         (if (eqv? ftype-22862 'module-ref)
                           (call-with-values
                             (lambda () (fval-22863 e-22818 r-22819 w-22820))
                             (lambda (e-22889
                                      r-22890
                                      w-22891
                                      s-22892
                                      mod-22893)
                               (syntax-type-6584
                                 e-22889
                                 r-22890
                                 w-22891
                                 s-22892
                                 rib-22822
                                 mod-22893
                                 for-car?-22824)))
                           (if (eqv? ftype-22862 'core)
                             (values
                               'core-form
                               fval-22863
                               e-22818
                               e-22818
                               w-22820
                               s-22821
                               mod-22823)
                             (if (eqv? ftype-22862 'local-syntax)
                               (values
                                 'local-syntax-form
                                 fval-22863
                                 e-22818
                                 e-22818
                                 w-22820
                                 s-22821
                                 mod-22823)
                               (if (eqv? ftype-22862 'begin)
                                 (values
                                   'begin-form
                                   #f
                                   e-22818
                                   e-22818
                                   w-22820
                                   s-22821
                                   mod-22823)
                                 (if (eqv? ftype-22862 'eval-when)
                                   (values
                                     'eval-when-form
                                     #f
                                     e-22818
                                     e-22818
                                     w-22820
                                     s-22821
                                     mod-22823)
                                   (if (eqv? ftype-22862 'define)
                                     (let ((tmp-22910
                                             ($sc-dispatch
                                               e-22818
                                               '(_ any any))))
                                       (if (if tmp-22910
                                             (@apply
                                               (lambda (name-22914 val-22915)
                                                 (if (symbol? name-22914)
                                                   #t
                                                   (if (if (vector? name-22914)
                                                         (if (= (vector-length
                                                                  name-22914)
                                                                4)
                                                           (eq? (vector-ref
                                                                  name-22914
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (symbol?
                                                       (vector-ref
                                                         name-22914
                                                         1))
                                                     #f)))
                                               tmp-22910)
                                             #f)
                                         (@apply
                                           (lambda (name-22942 val-22943)
                                             (values
                                               'define-form
                                               name-22942
                                               e-22818
                                               val-22943
                                               w-22820
                                               s-22821
                                               mod-22823))
                                           tmp-22910)
                                         (let ((tmp-22944
                                                 ($sc-dispatch
                                                   e-22818
                                                   '(_ (any . any)
                                                       any
                                                       .
                                                       each-any))))
                                           (if (if tmp-22944
                                                 (@apply
                                                   (lambda (name-22948
                                                            args-22949
                                                            e1-22950
                                                            e2-22951)
                                                     (if (if (symbol?
                                                               name-22948)
                                                           #t
                                                           (if (if (vector?
                                                                     name-22948)
                                                                 (if (= (vector-length
                                                                          name-22948)
                                                                        4)
                                                                   (eq? (vector-ref
                                                                          name-22948
                                                                          0)
                                                                        'syntax-object)
                                                                   #f)
                                                                 #f)
                                                             (symbol?
                                                               (vector-ref
                                                                 name-22948
                                                                 1))
                                                             #f))
                                                       (valid-bound-ids?-6575
                                                         (letrec*
                                                           ((lvl-23100
                                                              (lambda (vars-23102
                                                                       ls-23103
                                                                       w-23104)
                                                                (if (pair? vars-23102)
                                                                  (lvl-23100
                                                                    (cdr vars-23102)
                                                                    (cons (wrap-6578
                                                                            (car vars-23102)
                                                                            w-23104
                                                                            #f)
                                                                          ls-23103)
                                                                    w-23104)
                                                                  (if (if (symbol?
                                                                            vars-23102)
                                                                        #t
                                                                        (if (if (vector?
                                                                                  vars-23102)
                                                                              (if (= (vector-length
                                                                                       vars-23102)
                                                                                     4)
                                                                                (eq? (vector-ref
                                                                                       vars-23102
                                                                                       0)
                                                                                     'syntax-object)
                                                                                #f)
                                                                              #f)
                                                                          (symbol?
                                                                            (vector-ref
                                                                              vars-23102
                                                                              1))
                                                                          #f))
                                                                    (cons (wrap-6578
                                                                            vars-23102
                                                                            w-23104
                                                                            #f)
                                                                          ls-23103)
                                                                    (if (null? vars-23102)
                                                                      ls-23103
                                                                      (if (if (vector?
                                                                                vars-23102)
                                                                            (if (= (vector-length
                                                                                     vars-23102)
                                                                                   4)
                                                                              (eq? (vector-ref
                                                                                     vars-23102
                                                                                     0)
                                                                                   'syntax-object)
                                                                              #f)
                                                                            #f)
                                                                        (lvl-23100
                                                                          (vector-ref
                                                                            vars-23102
                                                                            1)
                                                                          ls-23103
                                                                          (join-wraps-6565
                                                                            w-23104
                                                                            (vector-ref
                                                                              vars-23102
                                                                              2)))
                                                                        (cons vars-23102
                                                                              ls-23103))))))))
                                                           (lvl-23100
                                                             args-22949
                                                             '()
                                                             '(()))))
                                                       #f))
                                                   tmp-22944)
                                                 #f)
                                             (@apply
                                               (lambda (name-23148
                                                        args-23149
                                                        e1-23150
                                                        e2-23151)
                                                 (values
                                                   'define-form
                                                   (wrap-6578
                                                     name-23148
                                                     w-22820
                                                     mod-22823)
                                                   (wrap-6578
                                                     e-22818
                                                     w-22820
                                                     mod-22823)
                                                   (let ((e-23159
                                                           (cons '#(syntax-object
                                                                    lambda
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(name
                                                                         args
                                                                         e1
                                                                         e2)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("l-*-4009"
                                                                         "l-*-4010"
                                                                         "l-*-4011"
                                                                         "l-*-4012"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(ftype
                                                                         fval
                                                                         fform
                                                                         fe
                                                                         fw
                                                                         fs
                                                                         fmod)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("l-*-3961"
                                                                         "l-*-3962"
                                                                         "l-*-3963"
                                                                         "l-*-3964"
                                                                         "l-*-3965"
                                                                         "l-*-3966"
                                                                         "l-*-3967"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
                                                                       #("l-*-3952"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(e
                                                                         r
                                                                         w
                                                                         s
                                                                         rib
                                                                         mod
                                                                         for-car?)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("l-*-3924"
                                                                         "l-*-3925"
                                                                         "l-*-3926"
                                                                         "l-*-3927"
                                                                         "l-*-3928"
                                                                         "l-*-3929"
                                                                         "l-*-3930"))
                                                                     #(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-application
                                                                         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=?
                                                                         with-transformer-environment
                                                                         transformer-environment
                                                                         resolve-identifier
                                                                         locally-bound-identifiers
                                                                         id-var-name
                                                                         same-marks?
                                                                         join-marks
                                                                         join-wraps
                                                                         smart-append
                                                                         make-binding-wrap
                                                                         extend-ribcage!
                                                                         make-empty-ribcage
                                                                         new-mark
                                                                         anti-mark
                                                                         the-anti-mark
                                                                         top-marked?
                                                                         top-wrap
                                                                         empty-wrap
                                                                         set-ribcage-labels!
                                                                         set-ribcage-marks!
                                                                         set-ribcage-symnames!
                                                                         ribcage-labels
                                                                         ribcage-marks
                                                                         ribcage-symnames
                                                                         ribcage?
                                                                         make-ribcage
                                                                         gen-labels
                                                                         gen-label
                                                                         make-rename
                                                                         rename-marks
                                                                         rename-new
                                                                         rename-old
                                                                         subst-rename?
                                                                         wrap-subst
                                                                         wrap-marks
                                                                         make-wrap
                                                                         id-sym-name&marks
                                                                         id-sym-name
                                                                         id?
                                                                         nonsymbol-id?
                                                                         global-extend
                                                                         lookup
                                                                         macros-only-env
                                                                         extend-var-env
                                                                         extend-env
                                                                         null-env
                                                                         binding-value
                                                                         binding-type
                                                                         make-binding
                                                                         arg-check
                                                                         source-annotation
                                                                         no-source
                                                                         set-syntax-object-module!
                                                                         set-syntax-object-wrap!
                                                                         set-syntax-object-expression!
                                                                         syntax-object-module
                                                                         syntax-object-wrap
                                                                         syntax-object-expression
                                                                         syntax-object?
                                                                         make-syntax-object
                                                                         build-lexical-var
                                                                         build-letrec
                                                                         build-named-let
                                                                         build-let
                                                                         build-sequence
                                                                         build-data
                                                                         build-primref
                                                                         build-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-application
                                                                         build-void
                                                                         maybe-name-value!
                                                                         decorate-source
                                                                         get-global-definition-hook
                                                                         put-global-definition-hook
                                                                         session-id
                                                                         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-sequence
                                                                         make-application
                                                                         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)
                                                                        (top)
                                                                        (top))
                                                                       ("l-*-2527"
                                                                        "l-*-2525"
                                                                        "l-*-2523"
                                                                        "l-*-2521"
                                                                        "l-*-2519"
                                                                        "l-*-2517"
                                                                        "l-*-2515"
                                                                        "l-*-2513"
                                                                        "l-*-2511"
                                                                        "l-*-2509"
                                                                        "l-*-2507"
                                                                        "l-*-2505"
                                                                        "l-*-2503"
                                                                        "l-*-2501"
                                                                        "l-*-2499"
                                                                        "l-*-2497"
                                                                        "l-*-2495"
                                                                        "l-*-2493"
                                                                        "l-*-2491"
                                                                        "l-*-2489"
                                                                        "l-*-2487"
                                                                        "l-*-2485"
                                                                        "l-*-2483"
                                                                        "l-*-2481"
                                                                        "l-*-2479"
                                                                        "l-*-2477"
                                                                        "l-*-2475"
                                                                        "l-*-2473"
                                                                        "l-*-2471"
                                                                        "l-*-2469"
                                                                        "l-*-2467"
                                                                        "l-*-2465"
                                                                        "l-*-2463"
                                                                        "l-*-2461"
                                                                        "l-*-2459"
                                                                        "l-*-2457"
                                                                        "l-*-2455"
                                                                        "l-*-2453"
                                                                        "l-*-2451"
                                                                        "l-*-2450"
                                                                        "l-*-2448"
                                                                        "l-*-2445"
                                                                        "l-*-2444"
                                                                        "l-*-2443"
                                                                        "l-*-2441"
                                                                        "l-*-2440"
                                                                        "l-*-2438"
                                                                        "l-*-2436"
                                                                        "l-*-2434"
                                                                        "l-*-2432"
                                                                        "l-*-2430"
                                                                        "l-*-2428"
                                                                        "l-*-2426"
                                                                        "l-*-2424"
                                                                        "l-*-2421"
                                                                        "l-*-2419"
                                                                        "l-*-2418"
                                                                        "l-*-2416"
                                                                        "l-*-2414"
                                                                        "l-*-2412"
                                                                        "l-*-2410"
                                                                        "l-*-2409"
                                                                        "l-*-2408"
                                                                        "l-*-2407"
                                                                        "l-*-2405"
                                                                        "l-*-2404"
                                                                        "l-*-2401"
                                                                        "l-*-2399"
                                                                        "l-*-2397"
                                                                        "l-*-2395"
                                                                        "l-*-2393"
                                                                        "l-*-2391"
                                                                        "l-*-2389"
                                                                        "l-*-2388"
                                                                        "l-*-2387"
                                                                        "l-*-2385"
                                                                        "l-*-2383"
                                                                        "l-*-2382"
                                                                        "l-*-2379"
                                                                        "l-*-2378"
                                                                        "l-*-2376"
                                                                        "l-*-2374"
                                                                        "l-*-2372"
                                                                        "l-*-2370"
                                                                        "l-*-2368"
                                                                        "l-*-2366"
                                                                        "l-*-2364"
                                                                        "l-*-2362"
                                                                        "l-*-2360"
                                                                        "l-*-2357"
                                                                        "l-*-2355"
                                                                        "l-*-2353"
                                                                        "l-*-2351"
                                                                        "l-*-2349"
                                                                        "l-*-2347"
                                                                        "l-*-2345"
                                                                        "l-*-2343"
                                                                        "l-*-2341"
                                                                        "l-*-2339"
                                                                        "l-*-2337"
                                                                        "l-*-2335"
                                                                        "l-*-2333"
                                                                        "l-*-2331"
                                                                        "l-*-2329"
                                                                        "l-*-2327"
                                                                        "l-*-2325"
                                                                        "l-*-2323"
                                                                        "l-*-2321"
                                                                        "l-*-2319"
                                                                        "l-*-2317"
                                                                        "l-*-2315"
                                                                        "l-*-2313"
                                                                        "l-*-2311"
                                                                        "l-*-2309"
                                                                        "l-*-2307"
                                                                        "l-*-2306"
                                                                        "l-*-2305"
                                                                        "l-*-2304"
                                                                        "l-*-2303"
                                                                        "l-*-2301"
                                                                        "l-*-2299"
                                                                        "l-*-2297"
                                                                        "l-*-2294"
                                                                        "l-*-2292"
                                                                        "l-*-2290"
                                                                        "l-*-2288"
                                                                        "l-*-2286"
                                                                        "l-*-2284"
                                                                        "l-*-2282"
                                                                        "l-*-2280"
                                                                        "l-*-2278"
                                                                        "l-*-2276"
                                                                        "l-*-2274"
                                                                        "l-*-2272"
                                                                        "l-*-2270"
                                                                        "l-*-2268"
                                                                        "l-*-2266"
                                                                        "l-*-2264"
                                                                        "l-*-2262"
                                                                        "l-*-2260"))
                                                                     #(ribcage
                                                                       (define-structure
                                                                         define-expansion-accessors
                                                                         define-expansion-constructors)
                                                                       ((top)
                                                                        (top)
                                                                        (top))
                                                                       ("l-*-2098"
                                                                        "l-*-2097"
                                                                        "l-*-2096")))
                                                                    (hygiene
                                                                      guile))
                                                                 (wrap-6578
                                                                   (cons args-23149
                                                                         (cons e1-23150
                                                                               e2-23151))
                                                                   w-22820
                                                                   mod-22823))))
                                                     (begin
                                                       (if (if (pair? e-23159)
                                                             s-22821
                                                             #f)
                                                         (set-source-properties!
                                                           e-23159
                                                           s-22821))
                                                       e-23159))
                                                   '(())
                                                   s-22821
                                                   mod-22823))
                                               tmp-22944)
                                             (let ((tmp-23166
                                                     ($sc-dispatch
                                                       e-22818
                                                       '(_ any))))
                                               (if (if tmp-23166
                                                     (@apply
                                                       (lambda (name-23170)
                                                         (if (symbol?
                                                               name-23170)
                                                           #t
                                                           (if (if (vector?
                                                                     name-23170)
                                                                 (if (= (vector-length
                                                                          name-23170)
                                                                        4)
                                                                   (eq? (vector-ref
                                                                          name-23170
                                                                          0)
                                                                        'syntax-object)
                                                                   #f)
                                                                 #f)
                                                             (symbol?
                                                               (vector-ref
                                                                 name-23170
                                                                 1))
                                                             #f)))
                                                       tmp-23166)
                                                     #f)
                                                 (@apply
                                                   (lambda (name-23197)
                                                     (values
                                                       'define-form
                                                       (wrap-6578
                                                         name-23197
                                                         w-22820
                                                         mod-22823)
                                                       (wrap-6578
                                                         e-22818
                                                         w-22820
                                                         mod-22823)
                                                       '(#(syntax-object
                                                           if
                                                           ((top)
                                                            #(ribcage
                                                              #(name)
                                                              #((top))
                                                              #("l-*-4022"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(ftype
                                                                fval
                                                                fform
                                                                fe
                                                                fw
                                                                fs
                                                                fmod)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3961"
                                                                "l-*-3962"
                                                                "l-*-3963"
                                                                "l-*-3964"
                                                                "l-*-3965"
                                                                "l-*-3966"
                                                                "l-*-3967"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(first)
                                                              #((top))
                                                              #("l-*-3952"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(e
                                                                r
                                                                w
                                                                s
                                                                rib
                                                                mod
                                                                for-car?)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3924"
                                                                "l-*-3925"
                                                                "l-*-3926"
                                                                "l-*-3927"
                                                                "l-*-3928"
                                                                "l-*-3929"
                                                                "l-*-3930"))
                                                            #(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-application
                                                                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=?
                                                                with-transformer-environment
                                                                transformer-environment
                                                                resolve-identifier
                                                                locally-bound-identifiers
                                                                id-var-name
                                                                same-marks?
                                                                join-marks
                                                                join-wraps
                                                                smart-append
                                                                make-binding-wrap
                                                                extend-ribcage!
                                                                make-empty-ribcage
                                                                new-mark
                                                                anti-mark
                                                                the-anti-mark
                                                                top-marked?
                                                                top-wrap
                                                                empty-wrap
                                                                set-ribcage-labels!
                                                                set-ribcage-marks!
                                                                set-ribcage-symnames!
                                                                ribcage-labels
                                                                ribcage-marks
                                                                ribcage-symnames
                                                                ribcage?
                                                                make-ribcage
                                                                gen-labels
                                                                gen-label
                                                                make-rename
                                                                rename-marks
                                                                rename-new
                                                                rename-old
                                                                subst-rename?
                                                                wrap-subst
                                                                wrap-marks
                                                                make-wrap
                                                                id-sym-name&marks
                                                                id-sym-name
                                                                id?
                                                                nonsymbol-id?
                                                                global-extend
                                                                lookup
                                                                macros-only-env
                                                                extend-var-env
                                                                extend-env
                                                                null-env
                                                                binding-value
                                                                binding-type
                                                                make-binding
                                                                arg-check
                                                                source-annotation
                                                                no-source
                                                                set-syntax-object-module!
                                                                set-syntax-object-wrap!
                                                                set-syntax-object-expression!
                                                                syntax-object-module
                                                                syntax-object-wrap
                                                                syntax-object-expression
                                                                syntax-object?
                                                                make-syntax-object
                                                                build-lexical-var
                                                                build-letrec
                                                                build-named-let
                                                                build-let
                                                                build-sequence
                                                                build-data
                                                                build-primref
                                                                build-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-application
                                                                build-void
                                                                maybe-name-value!
                                                                decorate-source
                                                                get-global-definition-hook
                                                                put-global-definition-hook
                                                                session-id
                                                                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-sequence
                                                                make-application
                                                                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)
                                                               (top)
                                                               (top))
                                                              ("l-*-2527"
                                                               "l-*-2525"
                                                               "l-*-2523"
                                                               "l-*-2521"
                                                               "l-*-2519"
                                                               "l-*-2517"
                                                               "l-*-2515"
                                                               "l-*-2513"
                                                               "l-*-2511"
                                                               "l-*-2509"
                                                               "l-*-2507"
                                                               "l-*-2505"
                                                               "l-*-2503"
                                                               "l-*-2501"
                                                               "l-*-2499"
                                                               "l-*-2497"
                                                               "l-*-2495"
                                                               "l-*-2493"
                                                               "l-*-2491"
                                                               "l-*-2489"
                                                               "l-*-2487"
                                                               "l-*-2485"
                                                               "l-*-2483"
                                                               "l-*-2481"
                                                               "l-*-2479"
                                                               "l-*-2477"
                                                               "l-*-2475"
                                                               "l-*-2473"
                                                               "l-*-2471"
                                                               "l-*-2469"
                                                               "l-*-2467"
                                                               "l-*-2465"
                                                               "l-*-2463"
                                                               "l-*-2461"
                                                               "l-*-2459"
                                                               "l-*-2457"
                                                               "l-*-2455"
                                                               "l-*-2453"
                                                               "l-*-2451"
                                                               "l-*-2450"
                                                               "l-*-2448"
                                                               "l-*-2445"
                                                               "l-*-2444"
                                                               "l-*-2443"
                                                               "l-*-2441"
                                                               "l-*-2440"
                                                               "l-*-2438"
                                                               "l-*-2436"
                                                               "l-*-2434"
                                                               "l-*-2432"
                                                               "l-*-2430"
                                                               "l-*-2428"
                                                               "l-*-2426"
                                                               "l-*-2424"
                                                               "l-*-2421"
                                                               "l-*-2419"
                                                               "l-*-2418"
                                                               "l-*-2416"
                                                               "l-*-2414"
                                                               "l-*-2412"
                                                               "l-*-2410"
                                                               "l-*-2409"
                                                               "l-*-2408"
                                                               "l-*-2407"
                                                               "l-*-2405"
                                                               "l-*-2404"
                                                               "l-*-2401"
                                                               "l-*-2399"
                                                               "l-*-2397"
                                                               "l-*-2395"
                                                               "l-*-2393"
                                                               "l-*-2391"
                                                               "l-*-2389"
                                                               "l-*-2388"
                                                               "l-*-2387"
                                                               "l-*-2385"
                                                               "l-*-2383"
                                                               "l-*-2382"
                                                               "l-*-2379"
                                                               "l-*-2378"
                                                               "l-*-2376"
                                                               "l-*-2374"
                                                               "l-*-2372"
                                                               "l-*-2370"
                                                               "l-*-2368"
                                                               "l-*-2366"
                                                               "l-*-2364"
                                                               "l-*-2362"
                                                               "l-*-2360"
                                                               "l-*-2357"
                                                               "l-*-2355"
                                                               "l-*-2353"
                                                               "l-*-2351"
                                                               "l-*-2349"
                                                               "l-*-2347"
                                                               "l-*-2345"
                                                               "l-*-2343"
                                                               "l-*-2341"
                                                               "l-*-2339"
                                                               "l-*-2337"
                                                               "l-*-2335"
                                                               "l-*-2333"
                                                               "l-*-2331"
                                                               "l-*-2329"
                                                               "l-*-2327"
                                                               "l-*-2325"
                                                               "l-*-2323"
                                                               "l-*-2321"
                                                               "l-*-2319"
                                                               "l-*-2317"
                                                               "l-*-2315"
                                                               "l-*-2313"
                                                               "l-*-2311"
                                                               "l-*-2309"
                                                               "l-*-2307"
                                                               "l-*-2306"
                                                               "l-*-2305"
                                                               "l-*-2304"
                                                               "l-*-2303"
                                                               "l-*-2301"
                                                               "l-*-2299"
                                                               "l-*-2297"
                                                               "l-*-2294"
                                                               "l-*-2292"
                                                               "l-*-2290"
                                                               "l-*-2288"
                                                               "l-*-2286"
                                                               "l-*-2284"
                                                               "l-*-2282"
                                                               "l-*-2280"
                                                               "l-*-2278"
                                                               "l-*-2276"
                                                               "l-*-2274"
                                                               "l-*-2272"
                                                               "l-*-2270"
                                                               "l-*-2268"
                                                               "l-*-2266"
                                                               "l-*-2264"
                                                               "l-*-2262"
                                                               "l-*-2260"))
                                                            #(ribcage
                                                              (define-structure
                                                                define-expansion-accessors
                                                                define-expansion-constructors)
                                                              ((top)
                                                               (top)
                                                               (top))
                                                              ("l-*-2098"
                                                               "l-*-2097"
                                                               "l-*-2096")))
                                                           (hygiene guile))
                                                         #(syntax-object
                                                           #f
                                                           ((top)
                                                            #(ribcage
                                                              #(name)
                                                              #((top))
                                                              #("l-*-4022"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(ftype
                                                                fval
                                                                fform
                                                                fe
                                                                fw
                                                                fs
                                                                fmod)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3961"
                                                                "l-*-3962"
                                                                "l-*-3963"
                                                                "l-*-3964"
                                                                "l-*-3965"
                                                                "l-*-3966"
                                                                "l-*-3967"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(first)
                                                              #((top))
                                                              #("l-*-3952"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(e
                                                                r
                                                                w
                                                                s
                                                                rib
                                                                mod
                                                                for-car?)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3924"
                                                                "l-*-3925"
                                                                "l-*-3926"
                                                                "l-*-3927"
                                                                "l-*-3928"
                                                                "l-*-3929"
                                                                "l-*-3930"))
                                                            #(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-application
                                                                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=?
                                                                with-transformer-environment
                                                                transformer-environment
                                                                resolve-identifier
                                                                locally-bound-identifiers
                                                                id-var-name
                                                                same-marks?
                                                                join-marks
                                                                join-wraps
                                                                smart-append
                                                                make-binding-wrap
                                                                extend-ribcage!
                                                                make-empty-ribcage
                                                                new-mark
                                                                anti-mark
                                                                the-anti-mark
                                                                top-marked?
                                                                top-wrap
                                                                empty-wrap
                                                                set-ribcage-labels!
                                                                set-ribcage-marks!
                                                                set-ribcage-symnames!
                                                                ribcage-labels
                                                                ribcage-marks
                                                                ribcage-symnames
                                                                ribcage?
                                                                make-ribcage
                                                                gen-labels
                                                                gen-label
                                                                make-rename
                                                                rename-marks
                                                                rename-new
                                                                rename-old
                                                                subst-rename?
                                                                wrap-subst
                                                                wrap-marks
                                                                make-wrap
                                                                id-sym-name&marks
                                                                id-sym-name
                                                                id?
                                                                nonsymbol-id?
                                                                global-extend
                                                                lookup
                                                                macros-only-env
                                                                extend-var-env
                                                                extend-env
                                                                null-env
                                                                binding-value
                                                                binding-type
                                                                make-binding
                                                                arg-check
                                                                source-annotation
                                                                no-source
                                                                set-syntax-object-module!
                                                                set-syntax-object-wrap!
                                                                set-syntax-object-expression!
                                                                syntax-object-module
                                                                syntax-object-wrap
                                                                syntax-object-expression
                                                                syntax-object?
                                                                make-syntax-object
                                                                build-lexical-var
                                                                build-letrec
                                                                build-named-let
                                                                build-let
                                                                build-sequence
                                                                build-data
                                                                build-primref
                                                                build-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-application
                                                                build-void
                                                                maybe-name-value!
                                                                decorate-source
                                                                get-global-definition-hook
                                                                put-global-definition-hook
                                                                session-id
                                                                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-sequence
                                                                make-application
                                                                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)
                                                               (top)
                                                               (top))
                                                              ("l-*-2527"
                                                               "l-*-2525"
                                                               "l-*-2523"
                                                               "l-*-2521"
                                                               "l-*-2519"
                                                               "l-*-2517"
                                                               "l-*-2515"
                                                               "l-*-2513"
                                                               "l-*-2511"
                                                               "l-*-2509"
                                                               "l-*-2507"
                                                               "l-*-2505"
                                                               "l-*-2503"
                                                               "l-*-2501"
                                                               "l-*-2499"
                                                               "l-*-2497"
                                                               "l-*-2495"
                                                               "l-*-2493"
                                                               "l-*-2491"
                                                               "l-*-2489"
                                                               "l-*-2487"
                                                               "l-*-2485"
                                                               "l-*-2483"
                                                               "l-*-2481"
                                                               "l-*-2479"
                                                               "l-*-2477"
                                                               "l-*-2475"
                                                               "l-*-2473"
                                                               "l-*-2471"
                                                               "l-*-2469"
                                                               "l-*-2467"
                                                               "l-*-2465"
                                                               "l-*-2463"
                                                               "l-*-2461"
                                                               "l-*-2459"
                                                               "l-*-2457"
                                                               "l-*-2455"
                                                               "l-*-2453"
                                                               "l-*-2451"
                                                               "l-*-2450"
                                                               "l-*-2448"
                                                               "l-*-2445"
                                                               "l-*-2444"
                                                               "l-*-2443"
                                                               "l-*-2441"
                                                               "l-*-2440"
                                                               "l-*-2438"
                                                               "l-*-2436"
                                                               "l-*-2434"
                                                               "l-*-2432"
                                                               "l-*-2430"
                                                               "l-*-2428"
                                                               "l-*-2426"
                                                               "l-*-2424"
                                                               "l-*-2421"
                                                               "l-*-2419"
                                                               "l-*-2418"
                                                               "l-*-2416"
                                                               "l-*-2414"
                                                               "l-*-2412"
                                                               "l-*-2410"
                                                               "l-*-2409"
                                                               "l-*-2408"
                                                               "l-*-2407"
                                                               "l-*-2405"
                                                               "l-*-2404"
                                                               "l-*-2401"
                                                               "l-*-2399"
                                                               "l-*-2397"
                                                               "l-*-2395"
                                                               "l-*-2393"
                                                               "l-*-2391"
                                                               "l-*-2389"
                                                               "l-*-2388"
                                                               "l-*-2387"
                                                               "l-*-2385"
                                                               "l-*-2383"
                                                               "l-*-2382"
                                                               "l-*-2379"
                                                               "l-*-2378"
                                                               "l-*-2376"
                                                               "l-*-2374"
                                                               "l-*-2372"
                                                               "l-*-2370"
                                                               "l-*-2368"
                                                               "l-*-2366"
                                                               "l-*-2364"
                                                               "l-*-2362"
                                                               "l-*-2360"
                                                               "l-*-2357"
                                                               "l-*-2355"
                                                               "l-*-2353"
                                                               "l-*-2351"
                                                               "l-*-2349"
                                                               "l-*-2347"
                                                               "l-*-2345"
                                                               "l-*-2343"
                                                               "l-*-2341"
                                                               "l-*-2339"
                                                               "l-*-2337"
                                                               "l-*-2335"
                                                               "l-*-2333"
                                                               "l-*-2331"
                                                               "l-*-2329"
                                                               "l-*-2327"
                                                               "l-*-2325"
                                                               "l-*-2323"
                                                               "l-*-2321"
                                                               "l-*-2319"
                                                               "l-*-2317"
                                                               "l-*-2315"
                                                               "l-*-2313"
                                                               "l-*-2311"
                                                               "l-*-2309"
                                                               "l-*-2307"
                                                               "l-*-2306"
                                                               "l-*-2305"
                                                               "l-*-2304"
                                                               "l-*-2303"
                                                               "l-*-2301"
                                                               "l-*-2299"
                                                               "l-*-2297"
                                                               "l-*-2294"
                                                               "l-*-2292"
                                                               "l-*-2290"
                                                               "l-*-2288"
                                                               "l-*-2286"
                                                               "l-*-2284"
                                                               "l-*-2282"
                                                               "l-*-2280"
                                                               "l-*-2278"
                                                               "l-*-2276"
                                                               "l-*-2274"
                                                               "l-*-2272"
                                                               "l-*-2270"
                                                               "l-*-2268"
                                                               "l-*-2266"
                                                               "l-*-2264"
                                                               "l-*-2262"
                                                               "l-*-2260"))
                                                            #(ribcage
                                                              (define-structure
                                                                define-expansion-accessors
                                                                define-expansion-constructors)
                                                              ((top)
                                                               (top)
                                                               (top))
                                                              ("l-*-2098"
                                                               "l-*-2097"
                                                               "l-*-2096")))
                                                           (hygiene guile))
                                                         #(syntax-object
                                                           #f
                                                           ((top)
                                                            #(ribcage
                                                              #(name)
                                                              #((top))
                                                              #("l-*-4022"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(ftype
                                                                fval
                                                                fform
                                                                fe
                                                                fw
                                                                fs
                                                                fmod)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3961"
                                                                "l-*-3962"
                                                                "l-*-3963"
                                                                "l-*-3964"
                                                                "l-*-3965"
                                                                "l-*-3966"
                                                                "l-*-3967"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(first)
                                                              #((top))
                                                              #("l-*-3952"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(e
                                                                r
                                                                w
                                                                s
                                                                rib
                                                                mod
                                                                for-car?)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("l-*-3924"
                                                                "l-*-3925"
                                                                "l-*-3926"
                                                                "l-*-3927"
                                                                "l-*-3928"
                                                                "l-*-3929"
                                                                "l-*-3930"))
                                                            #(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-application
                                                                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=?
                                                                with-transformer-environment
                                                                transformer-environment
                                                                resolve-identifier
                                                                locally-bound-identifiers
                                                                id-var-name
                                                                same-marks?
                                                                join-marks
                                                                join-wraps
                                                                smart-append
                                                                make-binding-wrap
                                                                extend-ribcage!
                                                                make-empty-ribcage
                                                                new-mark
                                                                anti-mark
                                                                the-anti-mark
                                                                top-marked?
                                                                top-wrap
                                                                empty-wrap
                                                                set-ribcage-labels!
                                                                set-ribcage-marks!
                                                                set-ribcage-symnames!
                                                                ribcage-labels
                                                                ribcage-marks
                                                                ribcage-symnames
                                                                ribcage?
                                                                make-ribcage
                                                                gen-labels
                                                                gen-label
                                                                make-rename
                                                                rename-marks
                                                                rename-new
                                                                rename-old
                                                                subst-rename?
                                                                wrap-subst
                                                                wrap-marks
                                                                make-wrap
                                                                id-sym-name&marks
                                                                id-sym-name
                                                                id?
                                                                nonsymbol-id?
                                                                global-extend
                                                                lookup
                                                                macros-only-env
                                                                extend-var-env
                                                                extend-env
                                                                null-env
                                                                binding-value
                                                                binding-type
                                                                make-binding
                                                                arg-check
                                                                source-annotation
                                                                no-source
                                                                set-syntax-object-module!
                                                                set-syntax-object-wrap!
                                                                set-syntax-object-expression!
                                                                syntax-object-module
                                                                syntax-object-wrap
                                                                syntax-object-expression
                                                                syntax-object?
                                                                make-syntax-object
                                                                build-lexical-var
                                                                build-letrec
                                                                build-named-let
                                                                build-let
                                                                build-sequence
                                                                build-data
                                                                build-primref
                                                                build-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-application
                                                                build-void
                                                                maybe-name-value!
                                                                decorate-source
                                                                get-global-definition-hook
                                                                put-global-definition-hook
                                                                session-id
                                                                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-sequence
                                                                make-application
                                                                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)
                                                               (top)
                                                               (top))
                                                              ("l-*-2527"
                                                               "l-*-2525"
                                                               "l-*-2523"
                                                               "l-*-2521"
                                                               "l-*-2519"
                                                               "l-*-2517"
                                                               "l-*-2515"
                                                               "l-*-2513"
                                                               "l-*-2511"
                                                               "l-*-2509"
                                                               "l-*-2507"
                                                               "l-*-2505"
                                                               "l-*-2503"
                                                               "l-*-2501"
                                                               "l-*-2499"
                                                               "l-*-2497"
                                                               "l-*-2495"
                                                               "l-*-2493"
                                                               "l-*-2491"
                                                               "l-*-2489"
                                                               "l-*-2487"
                                                               "l-*-2485"
                                                               "l-*-2483"
                                                               "l-*-2481"
                                                               "l-*-2479"
                                                               "l-*-2477"
                                                               "l-*-2475"
                                                               "l-*-2473"
                                                               "l-*-2471"
                                                               "l-*-2469"
                                                               "l-*-2467"
                                                               "l-*-2465"
                                                               "l-*-2463"
                                                               "l-*-2461"
                                                               "l-*-2459"
                                                               "l-*-2457"
                                                               "l-*-2455"
                                                               "l-*-2453"
                                                               "l-*-2451"
                                                               "l-*-2450"
                                                               "l-*-2448"
                                                               "l-*-2445"
                                                               "l-*-2444"
                                                               "l-*-2443"
                                                               "l-*-2441"
                                                               "l-*-2440"
                                                               "l-*-2438"
                                                               "l-*-2436"
                                                               "l-*-2434"
                                                               "l-*-2432"
                                                               "l-*-2430"
                                                               "l-*-2428"
                                                               "l-*-2426"
                                                               "l-*-2424"
                                                               "l-*-2421"
                                                               "l-*-2419"
                                                               "l-*-2418"
                                                               "l-*-2416"
                                                               "l-*-2414"
                                                               "l-*-2412"
                                                               "l-*-2410"
                                                               "l-*-2409"
                                                               "l-*-2408"
                                                               "l-*-2407"
                                                               "l-*-2405"
                                                               "l-*-2404"
                                                               "l-*-2401"
                                                               "l-*-2399"
                                                               "l-*-2397"
                                                               "l-*-2395"
                                                               "l-*-2393"
                                                               "l-*-2391"
                                                               "l-*-2389"
                                                               "l-*-2388"
                                                               "l-*-2387"
                                                               "l-*-2385"
                                                               "l-*-2383"
                                                               "l-*-2382"
                                                               "l-*-2379"
                                                               "l-*-2378"
                                                               "l-*-2376"
                                                               "l-*-2374"
                                                               "l-*-2372"
                                                               "l-*-2370"
                                                               "l-*-2368"
                                                               "l-*-2366"
                                                               "l-*-2364"
                                                               "l-*-2362"
                                                               "l-*-2360"
                                                               "l-*-2357"
                                                               "l-*-2355"
                                                               "l-*-2353"
                                                               "l-*-2351"
                                                               "l-*-2349"
                                                               "l-*-2347"
                                                               "l-*-2345"
                                                               "l-*-2343"
                                                               "l-*-2341"
                                                               "l-*-2339"
                                                               "l-*-2337"
                                                               "l-*-2335"
                                                               "l-*-2333"
                                                               "l-*-2331"
                                                               "l-*-2329"
                                                               "l-*-2327"
                                                               "l-*-2325"
                                                               "l-*-2323"
                                                               "l-*-2321"
                                                               "l-*-2319"
                                                               "l-*-2317"
                                                               "l-*-2315"
                                                               "l-*-2313"
                                                               "l-*-2311"
                                                               "l-*-2309"
                                                               "l-*-2307"
                                                               "l-*-2306"
                                                               "l-*-2305"
                                                               "l-*-2304"
                                                               "l-*-2303"
                                                               "l-*-2301"
                                                               "l-*-2299"
                                                               "l-*-2297"
                                                               "l-*-2294"
                                                               "l-*-2292"
                                                               "l-*-2290"
                                                               "l-*-2288"
                                                               "l-*-2286"
                                                               "l-*-2284"
                                                               "l-*-2282"
                                                               "l-*-2280"
                                                               "l-*-2278"
                                                               "l-*-2276"
                                                               "l-*-2274"
                                                               "l-*-2272"
                                                               "l-*-2270"
                                                               "l-*-2268"
                                                               "l-*-2266"
                                                               "l-*-2264"
                                                               "l-*-2262"
                                                               "l-*-2260"))
                                                            #(ribcage
                                                              (define-structure
                                                                define-expansion-accessors
                                                                define-expansion-constructors)
                                                              ((top)
                                                               (top)
                                                               (top))
                                                              ("l-*-2098"
                                                               "l-*-2097"
                                                               "l-*-2096")))
                                                           (hygiene guile)))
                                                       '(())
                                                       s-22821
                                                       mod-22823))
                                                   tmp-23166)
                                                 (syntax-violation
                                                   #f
                                                   "source expression failed to match any pattern"
                                                   e-22818)))))))
                                     (if (eqv? ftype-22862 'define-syntax)
                                       (let ((tmp-23218
                                               ($sc-dispatch
                                                 e-22818
                                                 '(_ any any))))
                                         (if (if tmp-23218
                                               (@apply
                                                 (lambda (name-23222 val-23223)
                                                   (if (symbol? name-23222)
                                                     #t
                                                     (if (if (vector?
                                                               name-23222)
                                                           (if (= (vector-length
                                                                    name-23222)
                                                                  4)
                                                             (eq? (vector-ref
                                                                    name-23222
                                                                    0)
                                                                  'syntax-object)
                                                             #f)
                                                           #f)
                                                       (symbol?
                                                         (vector-ref
                                                           name-23222
                                                           1))
                                                       #f)))
                                                 tmp-23218)
                                               #f)
                                           (@apply
                                             (lambda (name-23250 val-23251)
                                               (values
                                                 'define-syntax-form
                                                 name-23250
                                                 e-22818
                                                 val-23251
                                                 w-22820
                                                 s-22821
                                                 mod-22823))
                                             tmp-23218)
                                           (syntax-violation
                                             #f
                                             "source expression failed to match any pattern"
                                             e-22818)))
                                       (if (eqv? ftype-22862
                                                 'define-syntax-parameter)
                                         (let ((tmp-23262
                                                 ($sc-dispatch
                                                   e-22818
                                                   '(_ any any))))
                                           (if (if tmp-23262
                                                 (@apply
                                                   (lambda (name-23266
                                                            val-23267)
                                                     (if (symbol? name-23266)
                                                       #t
                                                       (if (if (vector?
                                                                 name-23266)
                                                             (if (= (vector-length
                                                                      name-23266)
                                                                    4)
                                                               (eq? (vector-ref
                                                                      name-23266
                                                                      0)
                                                                    'syntax-object)
                                                               #f)
                                                             #f)
                                                         (symbol?
                                                           (vector-ref
                                                             name-23266
                                                             1))
                                                         #f)))
                                                   tmp-23262)
                                                 #f)
                                             (@apply
                                               (lambda (name-23294 val-23295)
                                                 (values
                                                   'define-syntax-parameter-form
                                                   name-23294
                                                   e-22818
                                                   val-23295
                                                   w-22820
                                                   s-22821
                                                   mod-22823))
                                               tmp-23262)
                                             (syntax-violation
                                               #f
                                               "source expression failed to match any pattern"
                                               e-22818)))
                                         (values
                                           'call
                                           #f
                                           e-22818
                                           e-22818
                                           w-22820
                                           s-22821
                                           mod-22823)))))))))))))))
             (if (if (vector? e-22818)
                   (if (= (vector-length e-22818) 4)
                     (eq? (vector-ref e-22818 0) 'syntax-object)
                     #f)
                   #f)
               (syntax-type-6584
                 (vector-ref e-22818 1)
                 r-22819
                 (join-wraps-6565 w-22820 (vector-ref e-22818 2))
                 (let ((t-23322 (source-annotation-6542 e-22818)))
                   (if t-23322 t-23322 s-22821))
                 rib-22822
                 (let ((t-23557 (vector-ref e-22818 3)))
                   (if t-23557 t-23557 mod-22823))
                 for-car?-22824)
               (if (self-evaluating? e-22818)
                 (values
                   'constant
                   #f
                   e-22818
                   e-22818
                   w-22820
                   s-22821
                   mod-22823)
                 (values
                   'other
                   #f
                   e-22818
                   e-22818
                   w-22820
                   s-22821
                   mod-22823)))))))
     (expand-6585
       (lambda (e-23566 r-23567 w-23568 mod-23569)
         (call-with-values
           (lambda ()
             (syntax-type-6584
               e-23566
               r-23567
               w-23568
               (source-annotation-6542 e-23566)
               #f
               mod-23569
               #f))
           (lambda (type-23724
                    value-23725
                    form-23726
                    e-23727
                    w-23728
                    s-23729
                    mod-23730)
             (expand-expr-6586
               type-23724
               value-23725
               form-23726
               e-23727
               r-23567
               w-23728
               s-23729
               mod-23730)))))
     (expand-expr-6586
       (lambda (type-23733
                value-23734
                form-23735
                e-23736
                r-23737
                w-23738
                s-23739
                mod-23740)
         (if (eqv? type-23733 'lexical)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 3)
             s-23739
             e-23736
             value-23734)
           (if (if (eqv? type-23733 'core)
                 #t
                 (eqv? type-23733 'core-form))
             (value-23734
               e-23736
               r-23737
               w-23738
               s-23739
               mod-23740)
             (if (eqv? type-23733 'module-ref)
               (call-with-values
                 (lambda () (value-23734 e-23736 r-23737 w-23738))
                 (lambda (e-23766 r-23767 w-23768 s-23769 mod-23770)
                   (expand-6585 e-23766 r-23767 w-23768 mod-23770)))
               (if (eqv? type-23733 'lexical-call)
                 (expand-application-6587
                   (let ((id-23845 (car e-23736)))
                     (build-lexical-reference-6519
                       'fun
                       (source-annotation-6542 id-23845)
                       (if (if (vector? id-23845)
                             (if (= (vector-length id-23845) 4)
                               (eq? (vector-ref id-23845 0) 'syntax-object)
                               #f)
                             #f)
                         (syntax->datum id-23845)
                         id-23845)
                       value-23734))
                   e-23736
                   r-23737
                   w-23738
                   s-23739
                   mod-23740)
                 (if (eqv? type-23733 'global-call)
                   (expand-application-6587
                     (build-global-reference-6522
                       (source-annotation-6542 (car e-23736))
                       (if (if (vector? value-23734)
                             (if (= (vector-length value-23734) 4)
                               (eq? (vector-ref value-23734 0) 'syntax-object)
                               #f)
                             #f)
                         (vector-ref value-23734 1)
                         value-23734)
                       (if (if (vector? value-23734)
                             (if (= (vector-length value-23734) 4)
                               (eq? (vector-ref value-23734 0) 'syntax-object)
                               #f)
                             #f)
                         (vector-ref value-23734 3)
                         mod-23740))
                     e-23736
                     r-23737
                     w-23738
                     s-23739
                     mod-23740)
                   (if (eqv? type-23733 'constant)
                     (let ((exp-24182
                             (strip-6598
                               (wrap-6578
                                 (begin
                                   (if (if (pair? e-23736) s-23739 #f)
                                     (set-source-properties! e-23736 s-23739))
                                   e-23736)
                                 w-23738
                                 mod-23740)
                               '(()))))
                       (make-struct/no-tail
                         (vector-ref %expanded-vtables 1)
                         s-23739
                         exp-24182))
                     (if (eqv? type-23733 'global)
                       (analyze-variable-6521
                         mod-23740
                         value-23734
                         (lambda (mod-24218 var-24219 public?-24220)
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 5)
                             s-23739
                             mod-24218
                             var-24219
                             public?-24220))
                         (lambda (var-24229)
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 7)
                             s-23739
                             var-24229)))
                       (if (eqv? type-23733 'call)
                         (expand-application-6587
                           (expand-6585
                             (car e-23736)
                             r-23737
                             w-23738
                             mod-23740)
                           e-23736
                           r-23737
                           w-23738
                           s-23739
                           mod-23740)
                         (if (eqv? type-23733 'begin-form)
                           (let ((tmp-24304
                                   ($sc-dispatch e-23736 '(_ any . each-any))))
                             (if tmp-24304
                               (@apply
                                 (lambda (e1-24308 e2-24309)
                                   (expand-sequence-6580
                                     (cons e1-24308 e2-24309)
                                     r-23737
                                     w-23738
                                     s-23739
                                     mod-23740))
                                 tmp-24304)
                               (let ((tmp-24396 ($sc-dispatch e-23736 '(_))))
                                 (if tmp-24396
                                   (@apply
                                     (lambda ()
                                       (if (include-deprecated-features)
                                         (begin
                                           (issue-deprecation-warning
                                             "Sequences of zero expressions are deprecated.  Use *unspecified*.")
                                           (make-struct/no-tail
                                             (vector-ref %expanded-vtables 0)
                                             #f))
                                         (syntax-violation
                                           #f
                                           "sequence of zero expressions"
                                           (wrap-6578
                                             (begin
                                               (if (if (pair? e-23736)
                                                     s-23739
                                                     #f)
                                                 (set-source-properties!
                                                   e-23736
                                                   s-23739))
                                               e-23736)
                                             w-23738
                                             mod-23740))))
                                     tmp-24396)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     e-23736)))))
                           (if (eqv? type-23733 'local-syntax-form)
                             (expand-local-syntax-6590
                               value-23734
                               e-23736
                               r-23737
                               w-23738
                               s-23739
                               mod-23740
                               expand-sequence-6580)
                             (if (eqv? type-23733 'eval-when-form)
                               (let ((tmp-24507
                                       ($sc-dispatch
                                         e-23736
                                         '(_ each-any any . each-any))))
                                 (if tmp-24507
                                   (@apply
                                     (lambda (x-24511 e1-24512 e2-24513)
                                       (let ((when-list-24514
                                               (parse-when-list-6583
                                                 e-23736
                                                 x-24511)))
                                         (if (memq 'eval when-list-24514)
                                           (expand-sequence-6580
                                             (cons e1-24512 e2-24513)
                                             r-23737
                                             w-23738
                                             s-23739
                                             mod-23740)
                                           (make-struct/no-tail
                                             (vector-ref %expanded-vtables 0)
                                             #f))))
                                     tmp-24507)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     e-23736)))
                               (if (if (eqv? type-23733 'define-form)
                                     #t
                                     (if (eqv? type-23733 'define-syntax-form)
                                       #t
                                       (eqv? type-23733
                                             'define-syntax-parameter-form)))
                                 (syntax-violation
                                   #f
                                   "definition in expression context, where definitions are not allowed,"
                                   (wrap-6578
                                     (begin
                                       (if (if (pair? form-23735) s-23739 #f)
                                         (set-source-properties!
                                           form-23735
                                           s-23739))
                                       form-23735)
                                     w-23738
                                     mod-23740))
                                 (if (eqv? type-23733 'syntax)
                                   (syntax-violation
                                     #f
                                     "reference to pattern variable outside syntax form"
                                     (wrap-6578
                                       (begin
                                         (if (if (pair? e-23736) s-23739 #f)
                                           (set-source-properties!
                                             e-23736
                                             s-23739))
                                         e-23736)
                                       w-23738
                                       mod-23740))
                                   (if (eqv? type-23733 'displaced-lexical)
                                     (syntax-violation
                                       #f
                                       "reference to identifier outside its scope"
                                       (wrap-6578
                                         (begin
                                           (if (if (pair? e-23736) s-23739 #f)
                                             (set-source-properties!
                                               e-23736
                                               s-23739))
                                           e-23736)
                                         w-23738
                                         mod-23740))
                                     (syntax-violation
                                       #f
                                       "unexpected syntax"
                                       (wrap-6578
                                         (begin
                                           (if (if (pair? e-23736) s-23739 #f)
                                             (set-source-properties!
                                               e-23736
                                               s-23739))
                                           e-23736)
                                         w-23738
                                         mod-23740))))))))))))))))))
     (expand-application-6587
       (lambda (x-24774
                e-24775
                r-24776
                w-24777
                s-24778
                mod-24779)
         (let ((tmp-24781
                 ($sc-dispatch e-24775 '(any . each-any))))
           (if tmp-24781
             (@apply
               (lambda (e0-24785 e1-24786)
                 (build-application-6516
                   s-24778
                   x-24774
                   (map (lambda (e-24866)
                          (expand-6585 e-24866 r-24776 w-24777 mod-24779))
                        e1-24786)))
               tmp-24781)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
               e-24775)))))
     (expand-macro-6588
       (lambda (p-24942
                e-24943
                r-24944
                w-24945
                s-24946
                rib-24947
                mod-24948)
         (letrec*
           ((rebuild-macro-output-24949
              (lambda (x-24982 m-24983)
                (if (pair? x-24982)
                  (let ((e-24987
                          (cons (rebuild-macro-output-24949
                                  (car x-24982)
                                  m-24983)
                                (rebuild-macro-output-24949
                                  (cdr x-24982)
                                  m-24983))))
                    (begin
                      (if (if (pair? e-24987) s-24946 #f)
                        (set-source-properties! e-24987 s-24946))
                      e-24987))
                  (if (if (vector? x-24982)
                        (if (= (vector-length x-24982) 4)
                          (eq? (vector-ref x-24982 0) 'syntax-object)
                          #f)
                        #f)
                    (let ((w-25003 (vector-ref x-24982 2)))
                      (let ((ms-25004 (car w-25003))
                            (s-25005 (cdr w-25003)))
                        (if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f)
                          (let ((expression-25013 (vector-ref x-24982 1))
                                (wrap-25014
                                  (cons (cdr ms-25004)
                                        (if rib-24947
                                          (cons rib-24947 (cdr s-25005))
                                          (cdr s-25005))))
                                (module-25015 (vector-ref x-24982 3)))
                            (vector
                              'syntax-object
                              expression-25013
                              wrap-25014
                              module-25015))
                          (let ((expression-25025
                                  (let ((e-25030 (vector-ref x-24982 1)))
                                    (begin
                                      (if (if (pair? e-25030) s-25005 #f)
                                        (set-source-properties!
                                          e-25030
                                          s-25005))
                                      e-25030)))
                                (wrap-25026
                                  (cons (cons m-24983 ms-25004)
                                        (if rib-24947
                                          (cons rib-24947
                                                (cons 'shift s-25005))
                                          (cons 'shift s-25005))))
                                (module-25027 (vector-ref x-24982 3)))
                            (vector
                              'syntax-object
                              expression-25025
                              wrap-25026
                              module-25027)))))
                    (if (vector? x-24982)
                      (let ((n-25042 (vector-length x-24982)))
                        (let ((v-25043
                                (let ((e-25051 (make-vector n-25042)))
                                  (begin
                                    (if (if (pair? e-25051) x-24982 #f)
                                      (set-source-properties! e-25051 x-24982))
                                    e-25051))))
                          (letrec*
                            ((loop-25044
                               (lambda (i-25096)
                                 (if (= i-25096 n-25042)
                                   v-25043
                                   (begin
                                     (vector-set!
                                       v-25043
                                       i-25096
                                       (rebuild-macro-output-24949
                                         (vector-ref x-24982 i-25096)
                                         m-24983))
                                     (loop-25044 (#{1+}# i-25096)))))))
                            (loop-25044 0))))
                      (if (symbol? x-24982)
                        (syntax-violation
                          #f
                          "encountered raw symbol in macro output"
                          (let ((s-25102 (cdr w-24945)))
                            (wrap-6578
                              (begin
                                (if (if (pair? e-24943) s-25102 #f)
                                  (set-source-properties! e-24943 s-25102))
                                e-24943)
                              w-24945
                              mod-24948))
                          x-24982)
                        (begin
                          (if (if (pair? x-24982) s-24946 #f)
                            (set-source-properties! x-24982 s-24946))
                          x-24982))))))))
           (with-fluids
             ((transformer-environment-6571
                (lambda (k-24950)
                  (k-24950
                    e-24943
                    r-24944
                    w-24945
                    s-24946
                    rib-24947
                    mod-24948))))
             (rebuild-macro-output-24949
               (p-24942
                 (let ((w-24957
                         (cons (cons #f (car w-24945))
                               (cons 'shift (cdr w-24945)))))
                   (wrap-6578
                     (begin
                       (if (if (pair? e-24943) s-24946 #f)
                         (set-source-properties! e-24943 s-24946))
                       e-24943)
                     w-24957
                     mod-24948)))
               (gensym
                 (string-append "m-" (session-id-6510) "-")))))))
     (expand-body-6589
       (lambda (body-25134
                outer-form-25135
                r-25136
                w-25137
                mod-25138)
         (let ((r-25139
                 (cons '("placeholder" placeholder) r-25136)))
           (let ((ribcage-25140 (vector 'ribcage '() '() '())))
             (let ((w-25141
                     (cons (car w-25137)
                           (cons ribcage-25140 (cdr w-25137)))))
               (letrec*
                 ((parse-25142
                    (lambda (body-25155
                             ids-25156
                             labels-25157
                             var-ids-25158
                             vars-25159
                             vals-25160
                             bindings-25161)
                      (if (null? body-25155)
                        (syntax-violation
                          #f
                          "no expressions in body"
                          outer-form-25135)
                        (let ((e-25162 (cdr (car body-25155)))
                              (er-25163 (car (car body-25155))))
                          (call-with-values
                            (lambda ()
                              (syntax-type-6584
                                e-25162
                                er-25163
                                '(())
                                (source-annotation-6542 er-25163)
                                ribcage-25140
                                mod-25138
                                #f))
                            (lambda (type-25320
                                     value-25321
                                     form-25322
                                     e-25323
                                     w-25324
                                     s-25325
                                     mod-25326)
                              (if (eqv? type-25320 'define-form)
                                (let ((id-25330
                                        (wrap-6578
                                          value-25321
                                          w-25324
                                          mod-25326))
                                      (label-25331
                                        (string-append
                                          "l-"
                                          (session-id-6510)
                                          (symbol->string (gensym "-")))))
                                  (let ((var-25332
                                          (let ((id-25392
                                                  (if (if (vector? id-25330)
                                                        (if (= (vector-length
                                                                 id-25330)
                                                               4)
                                                          (eq? (vector-ref
                                                                 id-25330
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
                                                    (vector-ref id-25330 1)
                                                    id-25330)))
                                            (gensym
                                              (string-append
                                                (symbol->string id-25392)
                                                "-")))))
                                    (begin
                                      (let ((update-25382
                                              (cons (vector-ref id-25330 1)
                                                    (vector-ref
                                                      ribcage-25140
                                                      1))))
                                        (vector-set!
                                          ribcage-25140
                                          1
                                          update-25382))
                                      (let ((update-25384
                                              (cons (car (vector-ref
                                                           id-25330
                                                           2))
                                                    (vector-ref
                                                      ribcage-25140
                                                      2))))
                                        (vector-set!
                                          ribcage-25140
                                          2
                                          update-25384))
                                      (let ((update-25386
                                              (cons label-25331
                                                    (vector-ref
                                                      ribcage-25140
                                                      3))))
                                        (vector-set!
                                          ribcage-25140
                                          3
                                          update-25386))
                                      (parse-25142
                                        (cdr body-25155)
                                        (cons id-25330 ids-25156)
                                        (cons label-25331 labels-25157)
                                        (cons id-25330 var-ids-25158)
                                        (cons var-25332 vars-25159)
                                        (cons (cons er-25163
                                                    (wrap-6578
                                                      e-25323
                                                      w-25324
                                                      mod-25326))
                                              vals-25160)
                                        (cons (cons 'lexical var-25332)
                                              bindings-25161)))))
                                (if (if (eqv? type-25320 'define-syntax-form)
                                      #t
                                      (eqv? type-25320
                                            'define-syntax-parameter-form))
                                  (let ((id-25425
                                          (wrap-6578
                                            value-25321
                                            w-25324
                                            mod-25326))
                                        (label-25426
                                          (string-append
                                            "l-"
                                            (session-id-6510)
                                            (symbol->string (gensym "-")))))
                                    (begin
                                      (let ((update-25476
                                              (cons (vector-ref id-25425 1)
                                                    (vector-ref
                                                      ribcage-25140
                                                      1))))
                                        (vector-set!
                                          ribcage-25140
                                          1
                                          update-25476))
                                      (let ((update-25478
                                              (cons (car (vector-ref
                                                           id-25425
                                                           2))
                                                    (vector-ref
                                                      ribcage-25140
                                                      2))))
                                        (vector-set!
                                          ribcage-25140
                                          2
                                          update-25478))
                                      (let ((update-25480
                                              (cons label-25426
                                                    (vector-ref
                                                      ribcage-25140
                                                      3))))
                                        (vector-set!
                                          ribcage-25140
                                          3
                                          update-25480))
                                      (parse-25142
                                        (cdr body-25155)
                                        (cons id-25425 ids-25156)
                                        (cons label-25426 labels-25157)
                                        var-ids-25158
                                        vars-25159
                                        vals-25160
                                        (cons (cons 'macro
                                                    (cons er-25163
                                                          (wrap-6578
                                                            e-25323
                                                            w-25324
                                                            mod-25326)))
                                              bindings-25161))))
                                  (if (eqv? type-25320 'begin-form)
                                    (let ((tmp-25488
                                            ($sc-dispatch
                                              e-25323
                                              '(_ . each-any))))
                                      (if tmp-25488
                                        (@apply
                                          (lambda (e1-25492)
                                            (parse-25142
                                              (letrec*
                                                ((f-25493
                                                   (lambda (forms-25556)
                                                     (if (null? forms-25556)
                                                       (cdr body-25155)
                                                       (cons (cons er-25163
                                                                   (wrap-6578
                                                                     (car forms-25556)
                                                                     w-25324
                                                                     mod-25326))
                                                             (f-25493
                                                               (cdr forms-25556)))))))
                                                (f-25493 e1-25492))
                                              ids-25156
                                              labels-25157
                                              var-ids-25158
                                              vars-25159
                                              vals-25160
                                              bindings-25161))
                                          tmp-25488)
                                        (syntax-violation
                                          #f
                                          "source expression failed to match any pattern"
                                          e-25323)))
                                    (if (eqv? type-25320 'local-syntax-form)
                                      (expand-local-syntax-6590
                                        value-25321
                                        e-25323
                                        er-25163
                                        w-25324
                                        s-25325
                                        mod-25326
                                        (lambda (forms-25570
                                                 er-25571
                                                 w-25572
                                                 s-25573
                                                 mod-25574)
                                          (parse-25142
                                            (letrec*
                                              ((f-25575
                                                 (lambda (forms-25638)
                                                   (if (null? forms-25638)
                                                     (cdr body-25155)
                                                     (cons (cons er-25571
                                                                 (wrap-6578
                                                                   (car forms-25638)
                                                                   w-25572
                                                                   mod-25574))
                                                           (f-25575
                                                             (cdr forms-25638)))))))
                                              (f-25575 forms-25570))
                                            ids-25156
                                            labels-25157
                                            var-ids-25158
                                            vars-25159
                                            vals-25160
                                            bindings-25161)))
                                      (if (null? ids-25156)
                                        (build-sequence-6530
                                          #f
                                          (map (lambda (x-25703)
                                                 (let ((e-25707 (cdr x-25703))
                                                       (r-25708 (car x-25703)))
                                                   (call-with-values
                                                     (lambda ()
                                                       (syntax-type-6584
                                                         e-25707
                                                         r-25708
                                                         '(())
                                                         (source-annotation-6542
                                                           e-25707)
                                                         #f
                                                         mod-25326
                                                         #f))
                                                     (lambda (type-25712
                                                              value-25713
                                                              form-25714
                                                              e-25715
                                                              w-25716
                                                              s-25717
                                                              mod-25718)
                                                       (expand-expr-6586
                                                         type-25712
                                                         value-25713
                                                         form-25714
                                                         e-25715
                                                         r-25708
                                                         w-25716
                                                         s-25717
                                                         mod-25718)))))
                                               (cons (cons er-25163
                                                           (wrap-6578
                                                             (begin
                                                               (if (if (pair? e-25323)
                                                                     s-25325
                                                                     #f)
                                                                 (set-source-properties!
                                                                   e-25323
                                                                   s-25325))
                                                               e-25323)
                                                             w-25324
                                                             mod-25326))
                                                     (cdr body-25155))))
                                        (begin
                                          (if (not (valid-bound-ids?-6575
                                                     ids-25156))
                                            (syntax-violation
                                              #f
                                              "invalid or duplicate identifier in definition"
                                              outer-form-25135))
                                          (letrec*
                                            ((loop-25819
                                               (lambda (bs-25822
                                                        er-cache-25823
                                                        r-cache-25824)
                                                 (if (not (null? bs-25822))
                                                   (let ((b-25825
                                                           (car bs-25822)))
                                                     (if (eq? (car b-25825)
                                                              'macro)
                                                       (let ((er-25827
                                                               (car (cdr b-25825))))
                                                         (let ((r-cache-25828
                                                                 (if (eq? er-25827
                                                                          er-cache-25823)
                                                                   r-cache-25824
                                                                   (macros-only-env-6545
                                                                     er-25827))))
                                                           (begin
                                                             (set-cdr!
                                                               b-25825
                                                               (eval-local-transformer-6591
                                                                 (expand-6585
                                                                   (cdr (cdr b-25825))
                                                                   r-cache-25828
                                                                   '(())
                                                                   mod-25326)
                                                                 mod-25326))
                                                             (loop-25819
                                                               (cdr bs-25822)
                                                               er-25827
                                                               r-cache-25828))))
                                                       (loop-25819
                                                         (cdr bs-25822)
                                                         er-cache-25823
                                                         r-cache-25824)))))))
                                            (loop-25819 bindings-25161 #f #f))
                                          (set-cdr!
                                            r-25139
                                            (extend-env-6543
                                              labels-25157
                                              bindings-25161
                                              (cdr r-25139)))
                                          (build-letrec-6533
                                            #f
                                            #t
                                            (reverse
                                              (map syntax->datum
                                                   var-ids-25158))
                                            (reverse vars-25159)
                                            (map (lambda (x-26171)
                                                   (let ((e-26175
                                                           (cdr x-26171))
                                                         (r-26176
                                                           (car x-26171)))
                                                     (call-with-values
                                                       (lambda ()
                                                         (syntax-type-6584
                                                           e-26175
                                                           r-26176
                                                           '(())
                                                           (source-annotation-6542
                                                             e-26175)
                                                           #f
                                                           mod-25326
                                                           #f))
                                                       (lambda (type-26180
                                                                value-26181
                                                                form-26182
                                                                e-26183
                                                                w-26184
                                                                s-26185
                                                                mod-26186)
                                                         (expand-expr-6586
                                                           type-26180
                                                           value-26181
                                                           form-26182
                                                           e-26183
                                                           r-26176
                                                           w-26184
                                                           s-26185
                                                           mod-26186)))))
                                                 (reverse vals-25160))
                                            (let ((exps-26192
                                                    (map (lambda (x-26193)
                                                           (let ((e-26196
                                                                   (cdr x-26193))
                                                                 (r-26197
                                                                   (car x-26193)))
                                                             (call-with-values
                                                               (lambda ()
                                                                 (syntax-type-6584
                                                                   e-26196
                                                                   r-26197
                                                                   '(())
                                                                   (source-annotation-6542
                                                                     e-26196)
                                                                   #f
                                                                   mod-25326
                                                                   #f))
                                                               (lambda (type-26201
                                                                        value-26202
                                                                        form-26203
                                                                        e-26204
                                                                        w-26205
                                                                        s-26206
                                                                        mod-26207)
                                                                 (expand-expr-6586
                                                                   type-26201
                                                                   value-26202
                                                                   form-26203
                                                                   e-26204
                                                                   r-26197
                                                                   w-26205
                                                                   s-26206
                                                                   mod-26207)))))
                                                         (cons (cons er-25163
                                                                     (wrap-6578
                                                                       (begin
                                                                         (if (if (pair? e-25323)
                                                                               s-25325
                                                                               #f)
                                                                           (set-source-properties!
                                                                             e-25323
                                                                             s-25325))
                                                                         e-25323)
                                                                       w-25324
                                                                       mod-25326))
                                                               (cdr body-25155)))))
                                              (if (null? (cdr exps-26192))
                                                (car exps-26192)
                                                (make-struct/no-tail
                                                  (vector-ref
                                                    %expanded-vtables
                                                    12)
                                                  #f
                                                  exps-26192)))))))))))))))))
                 (parse-25142
                   (map (lambda (x-25145)
                          (cons r-25139
                                (wrap-6578 x-25145 w-25141 mod-25138)))
                        body-25134)
                   '()
                   '()
                   '()
                   '()
                   '()
                   '())))))))
     (expand-local-syntax-6590
       (lambda (rec?-26233
                e-26234
                r-26235
                w-26236
                s-26237
                mod-26238
                k-26239)
         (let ((tmp-26241
                 ($sc-dispatch
                   e-26234
                   '(_ #(each (any any)) any . each-any))))
           (if tmp-26241
             (@apply
               (lambda (id-26245 val-26246 e1-26247 e2-26248)
                 (if (not (valid-bound-ids?-6575 id-26245))
                   (syntax-violation
                     #f
                     "duplicate bound keyword"
                     e-26234)
                   (let ((labels-26338 (gen-labels-6552 id-26245)))
                     (let ((new-w-26339
                             (make-binding-wrap-6563
                               id-26245
                               labels-26338
                               w-26236)))
                       (k-26239
                         (cons e1-26247 e2-26248)
                         (extend-env-6543
                           labels-26338
                           (let ((trans-r-26375
                                   (macros-only-env-6545 r-26235)))
                             (begin
                               (if rec?-26233 new-w-26339 w-26236)
                               (map (lambda (x-26376)
                                      (cons 'macro
                                            (eval-local-transformer-6591
                                              (expand-6585
                                                x-26376
                                                trans-r-26375
                                                (values
                                                  (if rec?-26233
                                                    new-w-26339
                                                    w-26236))
                                                mod-26238)
                                              mod-26238)))
                                    val-26246)))
                           r-26235)
                         new-w-26339
                         s-26237
                         mod-26238)))))
               tmp-26241)
             (syntax-violation
               #f
               "bad local syntax definition"
               (wrap-6578
                 (begin
                   (if (if (pair? e-26234) s-26237 #f)
                     (set-source-properties! e-26234 s-26237))
                   e-26234)
                 w-26236
                 mod-26238))))))
     (eval-local-transformer-6591
       (lambda (expanded-26656 mod-26657)
         (let ((p-26658 (primitive-eval expanded-26656)))
           (if (procedure? p-26658)
             p-26658
             (syntax-violation
               #f
               "nonprocedure transformer"
               p-26658)))))
     (ellipsis?-6593
       (lambda (x-7254)
         (if (if (if (vector? x-7254)
                   (if (= (vector-length x-7254) 4)
                     (eq? (vector-ref x-7254 0) 'syntax-object)
                     #f)
                   #f)
               (symbol? (vector-ref x-7254 1))
               #f)
           (if (eq? (if (if (vector? x-7254)
                          (if (= (vector-length x-7254) 4)
                            (eq? (vector-ref x-7254 0) 'syntax-object)
                            #f)
                          #f)
                      (vector-ref x-7254 1)
                      x-7254)
                    (if (if (= (vector-length
                                 '#(syntax-object
                                    ...
                                    ((top)
                                     #(ribcage () () ())
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-4404"))
                                     #(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-application
                                         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=?
                                         with-transformer-environment
                                         transformer-environment
                                         resolve-identifier
                                         locally-bound-identifiers
                                         id-var-name
                                         same-marks?
                                         join-marks
                                         join-wraps
                                         smart-append
                                         make-binding-wrap
                                         extend-ribcage!
                                         make-empty-ribcage
                                         new-mark
                                         anti-mark
                                         the-anti-mark
                                         top-marked?
                                         top-wrap
                                         empty-wrap
                                         set-ribcage-labels!
                                         set-ribcage-marks!
                                         set-ribcage-symnames!
                                         ribcage-labels
                                         ribcage-marks
                                         ribcage-symnames
                                         ribcage?
                                         make-ribcage
                                         gen-labels
                                         gen-label
                                         make-rename
                                         rename-marks
                                         rename-new
                                         rename-old
                                         subst-rename?
                                         wrap-subst
                                         wrap-marks
                                         make-wrap
                                         id-sym-name&marks
                                         id-sym-name
                                         id?
                                         nonsymbol-id?
                                         global-extend
                                         lookup
                                         macros-only-env
                                         extend-var-env
                                         extend-env
                                         null-env
                                         binding-value
                                         binding-type
                                         make-binding
                                         arg-check
                                         source-annotation
                                         no-source
                                         set-syntax-object-module!
                                         set-syntax-object-wrap!
                                         set-syntax-object-expression!
                                         syntax-object-module
                                         syntax-object-wrap
                                         syntax-object-expression
                                         syntax-object?
                                         make-syntax-object
                                         build-lexical-var
                                         build-letrec
                                         build-named-let
                                         build-let
                                         build-sequence
                                         build-data
                                         build-primref
                                         build-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-application
                                         build-void
                                         maybe-name-value!
                                         decorate-source
                                         get-global-definition-hook
                                         put-global-definition-hook
                                         session-id
                                         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-sequence
                                         make-application
                                         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)
                                        (top)
                                        (top))
                                       ("l-*-2527"
                                        "l-*-2525"
                                        "l-*-2523"
                                        "l-*-2521"
                                        "l-*-2519"
                                        "l-*-2517"
                                        "l-*-2515"
                                        "l-*-2513"
                                        "l-*-2511"
                                        "l-*-2509"
                                        "l-*-2507"
                                        "l-*-2505"
                                        "l-*-2503"
                                        "l-*-2501"
                                        "l-*-2499"
                                        "l-*-2497"
                                        "l-*-2495"
                                        "l-*-2493"
                                        "l-*-2491"
                                        "l-*-2489"
                                        "l-*-2487"
                                        "l-*-2485"
                                        "l-*-2483"
                                        "l-*-2481"
                                        "l-*-2479"
                                        "l-*-2477"
                                        "l-*-2475"
                                        "l-*-2473"
                                        "l-*-2471"
                                        "l-*-2469"
                                        "l-*-2467"
                                        "l-*-2465"
                                        "l-*-2463"
                                        "l-*-2461"
                                        "l-*-2459"
                                        "l-*-2457"
                                        "l-*-2455"
                                        "l-*-2453"
                                        "l-*-2451"
                                        "l-*-2450"
                                        "l-*-2448"
                                        "l-*-2445"
                                        "l-*-2444"
                                        "l-*-2443"
                                        "l-*-2441"
                                        "l-*-2440"
                                        "l-*-2438"
                                        "l-*-2436"
                                        "l-*-2434"
                                        "l-*-2432"
                                        "l-*-2430"
                                        "l-*-2428"
                                        "l-*-2426"
                                        "l-*-2424"
                                        "l-*-2421"
                                        "l-*-2419"
                                        "l-*-2418"
                                        "l-*-2416"
                                        "l-*-2414"
                                        "l-*-2412"
                                        "l-*-2410"
                                        "l-*-2409"
                                        "l-*-2408"
                                        "l-*-2407"
                                        "l-*-2405"
                                        "l-*-2404"
                                        "l-*-2401"
                                        "l-*-2399"
                                        "l-*-2397"
                                        "l-*-2395"
                                        "l-*-2393"
                                        "l-*-2391"
                                        "l-*-2389"
                                        "l-*-2388"
                                        "l-*-2387"
                                        "l-*-2385"
                                        "l-*-2383"
                                        "l-*-2382"
                                        "l-*-2379"
                                        "l-*-2378"
                                        "l-*-2376"
                                        "l-*-2374"
                                        "l-*-2372"
                                        "l-*-2370"
                                        "l-*-2368"
                                        "l-*-2366"
                                        "l-*-2364"
                                        "l-*-2362"
                                        "l-*-2360"
                                        "l-*-2357"
                                        "l-*-2355"
                                        "l-*-2353"
                                        "l-*-2351"
                                        "l-*-2349"
                                        "l-*-2347"
                                        "l-*-2345"
                                        "l-*-2343"
                                        "l-*-2341"
                                        "l-*-2339"
                                        "l-*-2337"
                                        "l-*-2335"
                                        "l-*-2333"
                                        "l-*-2331"
                                        "l-*-2329"
                                        "l-*-2327"
                                        "l-*-2325"
                                        "l-*-2323"
                                        "l-*-2321"
                                        "l-*-2319"
                                        "l-*-2317"
                                        "l-*-2315"
                                        "l-*-2313"
                                        "l-*-2311"
                                        "l-*-2309"
                                        "l-*-2307"
                                        "l-*-2306"
                                        "l-*-2305"
                                        "l-*-2304"
                                        "l-*-2303"
                                        "l-*-2301"
                                        "l-*-2299"
                                        "l-*-2297"
                                        "l-*-2294"
                                        "l-*-2292"
                                        "l-*-2290"
                                        "l-*-2288"
                                        "l-*-2286"
                                        "l-*-2284"
                                        "l-*-2282"
                                        "l-*-2280"
                                        "l-*-2278"
                                        "l-*-2276"
                                        "l-*-2274"
                                        "l-*-2272"
                                        "l-*-2270"
                                        "l-*-2268"
                                        "l-*-2266"
                                        "l-*-2264"
                                        "l-*-2262"
                                        "l-*-2260"))
                                     #(ribcage
                                       (define-structure
                                         define-expansion-accessors
                                         define-expansion-constructors)
                                       ((top) (top) (top))
                                       ("l-*-2098" "l-*-2097" "l-*-2096")))
                                    (hygiene guile)))
                               4)
                          #t
                          #f)
                      '...
                      '#(syntax-object
                         ...
                         ((top)
                          #(ribcage () () ())
                          #(ribcage () () ())
                          #(ribcage #(x) #((top)) #("l-*-4404"))
                          #(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-application
                              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=?
                              with-transformer-environment
                              transformer-environment
                              resolve-identifier
                              locally-bound-identifiers
                              id-var-name
                              same-marks?
                              join-marks
                              join-wraps
                              smart-append
                              make-binding-wrap
                              extend-ribcage!
                              make-empty-ribcage
                              new-mark
                              anti-mark
                              the-anti-mark
                              top-marked?
                              top-wrap
                              empty-wrap
                              set-ribcage-labels!
                              set-ribcage-marks!
                              set-ribcage-symnames!
                              ribcage-labels
                              ribcage-marks
                              ribcage-symnames
                              ribcage?
                              make-ribcage
                              gen-labels
                              gen-label
                              make-rename
                              rename-marks
                              rename-new
                              rename-old
                              subst-rename?
                              wrap-subst
                              wrap-marks
                              make-wrap
                              id-sym-name&marks
                              id-sym-name
                              id?
                              nonsymbol-id?
                              global-extend
                              lookup
                              macros-only-env
                              extend-var-env
                              extend-env
                              null-env
                              binding-value
                              binding-type
                              make-binding
                              arg-check
                              source-annotation
                              no-source
                              set-syntax-object-module!
                              set-syntax-object-wrap!
                              set-syntax-object-expression!
                              syntax-object-module
                              syntax-object-wrap
                              syntax-object-expression
                              syntax-object?
                              make-syntax-object
                              build-lexical-var
                              build-letrec
                              build-named-let
                              build-let
                              build-sequence
                              build-data
                              build-primref
                              build-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-application
                              build-void
                              maybe-name-value!
                              decorate-source
                              get-global-definition-hook
                              put-global-definition-hook
                              session-id
                              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-sequence
                              make-application
                              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)
                             (top)
                             (top))
                            ("l-*-2527"
                             "l-*-2525"
                             "l-*-2523"
                             "l-*-2521"
                             "l-*-2519"
                             "l-*-2517"
                             "l-*-2515"
                             "l-*-2513"
                             "l-*-2511"
                             "l-*-2509"
                             "l-*-2507"
                             "l-*-2505"
                             "l-*-2503"
                             "l-*-2501"
                             "l-*-2499"
                             "l-*-2497"
                             "l-*-2495"
                             "l-*-2493"
                             "l-*-2491"
                             "l-*-2489"
                             "l-*-2487"
                             "l-*-2485"
                             "l-*-2483"
                             "l-*-2481"
                             "l-*-2479"
                             "l-*-2477"
                             "l-*-2475"
                             "l-*-2473"
                             "l-*-2471"
                             "l-*-2469"
                             "l-*-2467"
                             "l-*-2465"
                             "l-*-2463"
                             "l-*-2461"
                             "l-*-2459"
                             "l-*-2457"
                             "l-*-2455"
                             "l-*-2453"
                             "l-*-2451"
                             "l-*-2450"
                             "l-*-2448"
                             "l-*-2445"
                             "l-*-2444"
                             "l-*-2443"
                             "l-*-2441"
                             "l-*-2440"
                             "l-*-2438"
                             "l-*-2436"
                             "l-*-2434"
                             "l-*-2432"
                             "l-*-2430"
                             "l-*-2428"
                             "l-*-2426"
                             "l-*-2424"
                             "l-*-2421"
                             "l-*-2419"
                             "l-*-2418"
                             "l-*-2416"
                             "l-*-2414"
                             "l-*-2412"
                             "l-*-2410"
                             "l-*-2409"
                             "l-*-2408"
                             "l-*-2407"
                             "l-*-2405"
                             "l-*-2404"
                             "l-*-2401"
                             "l-*-2399"
                             "l-*-2397"
                             "l-*-2395"
                             "l-*-2393"
                             "l-*-2391"
                             "l-*-2389"
                             "l-*-2388"
                             "l-*-2387"
                             "l-*-2385"
                             "l-*-2383"
                             "l-*-2382"
                             "l-*-2379"
                             "l-*-2378"
                             "l-*-2376"
                             "l-*-2374"
                             "l-*-2372"
                             "l-*-2370"
                             "l-*-2368"
                             "l-*-2366"
                             "l-*-2364"
                             "l-*-2362"
                             "l-*-2360"
                             "l-*-2357"
                             "l-*-2355"
                             "l-*-2353"
                             "l-*-2351"
                             "l-*-2349"
                             "l-*-2347"
                             "l-*-2345"
                             "l-*-2343"
                             "l-*-2341"
                             "l-*-2339"
                             "l-*-2337"
                             "l-*-2335"
                             "l-*-2333"
                             "l-*-2331"
                             "l-*-2329"
                             "l-*-2327"
                             "l-*-2325"
                             "l-*-2323"
                             "l-*-2321"
                             "l-*-2319"
                             "l-*-2317"
                             "l-*-2315"
                             "l-*-2313"
                             "l-*-2311"
                             "l-*-2309"
                             "l-*-2307"
                             "l-*-2306"
                             "l-*-2305"
                             "l-*-2304"
                             "l-*-2303"
                             "l-*-2301"
                             "l-*-2299"
                             "l-*-2297"
                             "l-*-2294"
                             "l-*-2292"
                             "l-*-2290"
                             "l-*-2288"
                             "l-*-2286"
                             "l-*-2284"
                             "l-*-2282"
                             "l-*-2280"
                             "l-*-2278"
                             "l-*-2276"
                             "l-*-2274"
                             "l-*-2272"
                             "l-*-2270"
                             "l-*-2268"
                             "l-*-2266"
                             "l-*-2264"
                             "l-*-2262"
                             "l-*-2260"))
                          #(ribcage
                            (define-structure
                              define-expansion-accessors
                              define-expansion-constructors)
                            ((top) (top) (top))
                            ("l-*-2098" "l-*-2097" "l-*-2096")))
                         (hygiene guile))))
             (eq? (id-var-name-6568 x-7254 '(()))
                  (id-var-name-6568
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-4404"))
                        #(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-application
                            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=?
                            with-transformer-environment
                            transformer-environment
                            resolve-identifier
                            locally-bound-identifiers
                            id-var-name
                            same-marks?
                            join-marks
                            join-wraps
                            smart-append
                            make-binding-wrap
                            extend-ribcage!
                            make-empty-ribcage
                            new-mark
                            anti-mark
                            the-anti-mark
                            top-marked?
                            top-wrap
                            empty-wrap
                            set-ribcage-labels!
                            set-ribcage-marks!
                            set-ribcage-symnames!
                            ribcage-labels
                            ribcage-marks
                            ribcage-symnames
                            ribcage?
                            make-ribcage
                            gen-labels
                            gen-label
                            make-rename
                            rename-marks
                            rename-new
                            rename-old
                            subst-rename?
                            wrap-subst
                            wrap-marks
                            make-wrap
                            id-sym-name&marks
                            id-sym-name
                            id?
                            nonsymbol-id?
                            global-extend
                            lookup
                            macros-only-env
                            extend-var-env
                            extend-env
                            null-env
                            binding-value
                            binding-type
                            make-binding
                            arg-check
                            source-annotation
                            no-source
                            set-syntax-object-module!
                            set-syntax-object-wrap!
                            set-syntax-object-expression!
                            syntax-object-module
                            syntax-object-wrap
                            syntax-object-expression
                            syntax-object?
                            make-syntax-object
                            build-lexical-var
                            build-letrec
                            build-named-let
                            build-let
                            build-sequence
                            build-data
                            build-primref
                            build-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-application
                            build-void
                            maybe-name-value!
                            decorate-source
                            get-global-definition-hook
                            put-global-definition-hook
                            session-id
                            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-sequence
                            make-application
                            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)
                           (top)
                           (top))
                          ("l-*-2527"
                           "l-*-2525"
                           "l-*-2523"
                           "l-*-2521"
                           "l-*-2519"
                           "l-*-2517"
                           "l-*-2515"
                           "l-*-2513"
                           "l-*-2511"
                           "l-*-2509"
                           "l-*-2507"
                           "l-*-2505"
                           "l-*-2503"
                           "l-*-2501"
                           "l-*-2499"
                           "l-*-2497"
                           "l-*-2495"
                           "l-*-2493"
                           "l-*-2491"
                           "l-*-2489"
                           "l-*-2487"
                           "l-*-2485"
                           "l-*-2483"
                           "l-*-2481"
                           "l-*-2479"
                           "l-*-2477"
                           "l-*-2475"
                           "l-*-2473"
                           "l-*-2471"
                           "l-*-2469"
                           "l-*-2467"
                           "l-*-2465"
                           "l-*-2463"
                           "l-*-2461"
                           "l-*-2459"
                           "l-*-2457"
                           "l-*-2455"
                           "l-*-2453"
                           "l-*-2451"
                           "l-*-2450"
                           "l-*-2448"
                           "l-*-2445"
                           "l-*-2444"
                           "l-*-2443"
                           "l-*-2441"
                           "l-*-2440"
                           "l-*-2438"
                           "l-*-2436"
                           "l-*-2434"
                           "l-*-2432"
                           "l-*-2430"
                           "l-*-2428"
                           "l-*-2426"
                           "l-*-2424"
                           "l-*-2421"
                           "l-*-2419"
                           "l-*-2418"
                           "l-*-2416"
                           "l-*-2414"
                           "l-*-2412"
                           "l-*-2410"
                           "l-*-2409"
                           "l-*-2408"
                           "l-*-2407"
                           "l-*-2405"
                           "l-*-2404"
                           "l-*-2401"
                           "l-*-2399"
                           "l-*-2397"
                           "l-*-2395"
                           "l-*-2393"
                           "l-*-2391"
                           "l-*-2389"
                           "l-*-2388"
                           "l-*-2387"
                           "l-*-2385"
                           "l-*-2383"
                           "l-*-2382"
                           "l-*-2379"
                           "l-*-2378"
                           "l-*-2376"
                           "l-*-2374"
                           "l-*-2372"
                           "l-*-2370"
                           "l-*-2368"
                           "l-*-2366"
                           "l-*-2364"
                           "l-*-2362"
                           "l-*-2360"
                           "l-*-2357"
                           "l-*-2355"
                           "l-*-2353"
                           "l-*-2351"
                           "l-*-2349"
                           "l-*-2347"
                           "l-*-2345"
                           "l-*-2343"
                           "l-*-2341"
                           "l-*-2339"
                           "l-*-2337"
                           "l-*-2335"
                           "l-*-2333"
                           "l-*-2331"
                           "l-*-2329"
                           "l-*-2327"
                           "l-*-2325"
                           "l-*-2323"
                           "l-*-2321"
                           "l-*-2319"
                           "l-*-2317"
                           "l-*-2315"
                           "l-*-2313"
                           "l-*-2311"
                           "l-*-2309"
                           "l-*-2307"
                           "l-*-2306"
                           "l-*-2305"
                           "l-*-2304"
                           "l-*-2303"
                           "l-*-2301"
                           "l-*-2299"
                           "l-*-2297"
                           "l-*-2294"
                           "l-*-2292"
                           "l-*-2290"
                           "l-*-2288"
                           "l-*-2286"
                           "l-*-2284"
                           "l-*-2282"
                           "l-*-2280"
                           "l-*-2278"
                           "l-*-2276"
                           "l-*-2274"
                           "l-*-2272"
                           "l-*-2270"
                           "l-*-2268"
                           "l-*-2266"
                           "l-*-2264"
                           "l-*-2262"
                           "l-*-2260"))
                        #(ribcage
                          (define-structure
                            define-expansion-accessors
                            define-expansion-constructors)
                          ((top) (top) (top))
                          ("l-*-2098" "l-*-2097" "l-*-2096")))
                       (hygiene guile))
                    '(())))
             #f)
           #f)))
     (lambda-formals-6594
       (lambda (orig-args-26663)
         (letrec*
           ((req-26664
              (lambda (args-26668 rreq-26669)
                (let ((tmp-26671 ($sc-dispatch args-26668 '())))
                  (if tmp-26671
                    (@apply
                      (lambda () (check-26665 (reverse rreq-26669) #f))
                      tmp-26671)
                    (let ((tmp-26794
                            ($sc-dispatch args-26668 '(any . any))))
                      (if (if tmp-26794
                            (@apply
                              (lambda (a-26798 b-26799)
                                (if (symbol? a-26798)
                                  #t
                                  (if (if (vector? a-26798)
                                        (if (= (vector-length a-26798) 4)
                                          (eq? (vector-ref a-26798 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref a-26798 1))
                                    #f)))
                              tmp-26794)
                            #f)
                        (@apply
                          (lambda (a-26826 b-26827)
                            (req-26664 b-26827 (cons a-26826 rreq-26669)))
                          tmp-26794)
                        (let ((tmp-26828 (list args-26668)))
                          (if (@apply
                                (lambda (r-26830)
                                  (if (symbol? r-26830)
                                    #t
                                    (if (if (vector? r-26830)
                                          (if (= (vector-length r-26830) 4)
                                            (eq? (vector-ref r-26830 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref r-26830 1))
                                      #f)))
                                tmp-26828)
                            (@apply
                              (lambda (r-26860)
                                (check-26665 (reverse rreq-26669) r-26860))
                              tmp-26828)
                            (syntax-violation
                              'lambda
                              "invalid argument list"
                              orig-args-26663
                              args-26668)))))))))
            (check-26665
              (lambda (req-26991 rest-26992)
                (if (distinct-bound-ids?-6576
                      (if rest-26992
                        (cons rest-26992 req-26991)
                        req-26991))
                  (values req-26991 #f rest-26992 #f)
                  (syntax-violation
                    'lambda
                    "duplicate identifier in argument list"
                    orig-args-26663)))))
           (req-26664 orig-args-26663 '()))))
     (expand-simple-lambda-6595
       (lambda (e-27108
                r-27109
                w-27110
                s-27111
                mod-27112
                req-27113
                rest-27114
                meta-27115
                body-27116)
         (let ((ids-27117
                 (if rest-27114
                   (append req-27113 (list rest-27114))
                   req-27113)))
           (let ((vars-27118 (map gen-var-6599 ids-27117)))
             (let ((labels-27119 (gen-labels-6552 ids-27117)))
               (build-simple-lambda-6525
                 s-27111
                 (map syntax->datum req-27113)
                 (if rest-27114 (syntax->datum rest-27114) #f)
                 vars-27118
                 meta-27115
                 (expand-body-6589
                   body-27116
                   (wrap-6578
                     (begin
                       (if (if (pair? e-27108) s-27111 #f)
                         (set-source-properties! e-27108 s-27111))
                       e-27108)
                     w-27110
                     mod-27112)
                   (extend-var-env-6544
                     labels-27119
                     vars-27118
                     r-27109)
                   (make-binding-wrap-6563
                     ids-27117
                     labels-27119
                     w-27110)
                   mod-27112)))))))
     (lambda*-formals-6596
       (lambda (orig-args-27399)
         (letrec*
           ((req-27400
              (lambda (args-27407 rreq-27408)
                (let ((tmp-27410 ($sc-dispatch args-27407 '())))
                  (if tmp-27410
                    (@apply
                      (lambda ()
                        (check-27404 (reverse rreq-27408) '() #f '()))
                      tmp-27410)
                    (let ((tmp-27416
                            ($sc-dispatch args-27407 '(any . any))))
                      (if (if tmp-27416
                            (@apply
                              (lambda (a-27420 b-27421)
                                (if (symbol? a-27420)
                                  #t
                                  (if (if (vector? a-27420)
                                        (if (= (vector-length a-27420) 4)
                                          (eq? (vector-ref a-27420 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref a-27420 1))
                                    #f)))
                              tmp-27416)
                            #f)
                        (@apply
                          (lambda (a-27448 b-27449)
                            (req-27400 b-27449 (cons a-27448 rreq-27408)))
                          tmp-27416)
                        (let ((tmp-27450
                                ($sc-dispatch args-27407 '(any . any))))
                          (if (if tmp-27450
                                (@apply
                                  (lambda (a-27454 b-27455)
                                    (eq? (syntax->datum a-27454) #:optional))
                                  tmp-27450)
                                #f)
                            (@apply
                              (lambda (a-27456 b-27457)
                                (opt-27401 b-27457 (reverse rreq-27408) '()))
                              tmp-27450)
                            (let ((tmp-27460
                                    ($sc-dispatch args-27407 '(any . any))))
                              (if (if tmp-27460
                                    (@apply
                                      (lambda (a-27464 b-27465)
                                        (eq? (syntax->datum a-27464) #:key))
                                      tmp-27460)
                                    #f)
                                (@apply
                                  (lambda (a-27466 b-27467)
                                    (key-27402
                                      b-27467
                                      (reverse rreq-27408)
                                      '()
                                      '()))
                                  tmp-27460)
                                (let ((tmp-27470
                                        ($sc-dispatch args-27407 '(any any))))
                                  (if (if tmp-27470
                                        (@apply
                                          (lambda (a-27474 b-27475)
                                            (eq? (syntax->datum a-27474)
                                                 #:rest))
                                          tmp-27470)
                                        #f)
                                    (@apply
                                      (lambda (a-27476 b-27477)
                                        (rest-27403
                                          b-27477
                                          (reverse rreq-27408)
                                          '()
                                          '()))
                                      tmp-27470)
                                    (let ((tmp-27480 (list args-27407)))
                                      (if (@apply
                                            (lambda (r-27482)
                                              (if (symbol? r-27482)
                                                #t
                                                (if (if (vector? r-27482)
                                                      (if (= (vector-length
                                                               r-27482)
                                                             4)
                                                        (eq? (vector-ref
                                                               r-27482
                                                               0)
                                                             'syntax-object)
                                                        #f)
                                                      #f)
                                                  (symbol?
                                                    (vector-ref r-27482 1))
                                                  #f)))
                                            tmp-27480)
                                        (@apply
                                          (lambda (r-27512)
                                            (rest-27403
                                              r-27512
                                              (reverse rreq-27408)
                                              '()
                                              '()))
                                          tmp-27480)
                                        (syntax-violation
                                          'lambda*
                                          "invalid argument list"
                                          orig-args-27399
                                          args-27407)))))))))))))))
            (opt-27401
              (lambda (args-27531 req-27532 ropt-27533)
                (let ((tmp-27535 ($sc-dispatch args-27531 '())))
                  (if tmp-27535
                    (@apply
                      (lambda ()
                        (check-27404
                          req-27532
                          (reverse ropt-27533)
                          #f
                          '()))
                      tmp-27535)
                    (let ((tmp-27541
                            ($sc-dispatch args-27531 '(any . any))))
                      (if (if tmp-27541
                            (@apply
                              (lambda (a-27545 b-27546)
                                (if (symbol? a-27545)
                                  #t
                                  (if (if (vector? a-27545)
                                        (if (= (vector-length a-27545) 4)
                                          (eq? (vector-ref a-27545 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref a-27545 1))
                                    #f)))
                              tmp-27541)
                            #f)
                        (@apply
                          (lambda (a-27573 b-27574)
                            (opt-27401
                              b-27574
                              req-27532
                              (cons (cons a-27573
                                          '(#(syntax-object
                                              #f
                                              ((top)
                                               #(ribcage
                                                 #(a b)
                                                 #((top) (top))
                                                 #("l-*-4543" "l-*-4544"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(args req ropt)
                                                 #((top) (top) (top))
                                                 #("l-*-4533"
                                                   "l-*-4534"
                                                   "l-*-4535"))
                                               #(ribcage
                                                 (check rest key opt req)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("l-*-4479"
                                                  "l-*-4477"
                                                  "l-*-4475"
                                                  "l-*-4473"
                                                  "l-*-4471"))
                                               #(ribcage
                                                 #(orig-args)
                                                 #((top))
                                                 #("l-*-4470"))
                                               #(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-application
                                                   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=?
                                                   with-transformer-environment
                                                   transformer-environment
                                                   resolve-identifier
                                                   locally-bound-identifiers
                                                   id-var-name
                                                   same-marks?
                                                   join-marks
                                                   join-wraps
                                                   smart-append
                                                   make-binding-wrap
                                                   extend-ribcage!
                                                   make-empty-ribcage
                                                   new-mark
                                                   anti-mark
                                                   the-anti-mark
                                                   top-marked?
                                                   top-wrap
                                                   empty-wrap
                                                   set-ribcage-labels!
                                                   set-ribcage-marks!
                                                   set-ribcage-symnames!
                                                   ribcage-labels
                                                   ribcage-marks
                                                   ribcage-symnames
                                                   ribcage?
                                                   make-ribcage
                                                   gen-labels
                                                   gen-label
                                                   make-rename
                                                   rename-marks
                                                   rename-new
                                                   rename-old
                                                   subst-rename?
                                                   wrap-subst
                                                   wrap-marks
                                                   make-wrap
                                                   id-sym-name&marks
                                                   id-sym-name
                                                   id?
                                                   nonsymbol-id?
                                                   global-extend
                                                   lookup
                                                   macros-only-env
                                                   extend-var-env
                                                   extend-env
                                                   null-env
                                                   binding-value
                                                   binding-type
                                                   make-binding
                                                   arg-check
                                                   source-annotation
                                                   no-source
                                                   set-syntax-object-module!
                                                   set-syntax-object-wrap!
                                                   set-syntax-object-expression!
                                                   syntax-object-module
                                                   syntax-object-wrap
                                                   syntax-object-expression
                                                   syntax-object?
                                                   make-syntax-object
                                                   build-lexical-var
                                                   build-letrec
                                                   build-named-let
                                                   build-let
                                                   build-sequence
                                                   build-data
                                                   build-primref
                                                   build-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-application
                                                   build-void
                                                   maybe-name-value!
                                                   decorate-source
                                                   get-global-definition-hook
                                                   put-global-definition-hook
                                                   session-id
                                                   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-sequence
                                                   make-application
                                                   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)
                                                  (top)
                                                  (top))
                                                 ("l-*-2527"
                                                  "l-*-2525"
                                                  "l-*-2523"
                                                  "l-*-2521"
                                                  "l-*-2519"
                                                  "l-*-2517"
                                                  "l-*-2515"
                                                  "l-*-2513"
                                                  "l-*-2511"
                                                  "l-*-2509"
                                                  "l-*-2507"
                                                  "l-*-2505"
                                                  "l-*-2503"
                                                  "l-*-2501"
                                                  "l-*-2499"
                                                  "l-*-2497"
                                                  "l-*-2495"
                                                  "l-*-2493"
                                                  "l-*-2491"
                                                  "l-*-2489"
                                                  "l-*-2487"
                                                  "l-*-2485"
                                                  "l-*-2483"
                                                  "l-*-2481"
                                                  "l-*-2479"
                                                  "l-*-2477"
                                                  "l-*-2475"
                                                  "l-*-2473"
                                                  "l-*-2471"
                                                  "l-*-2469"
                                                  "l-*-2467"
                                                  "l-*-2465"
                                                  "l-*-2463"
                                                  "l-*-2461"
                                                  "l-*-2459"
                                                  "l-*-2457"
                                                  "l-*-2455"
                                                  "l-*-2453"
                                                  "l-*-2451"
                                                  "l-*-2450"
                                                  "l-*-2448"
                                                  "l-*-2445"
                                                  "l-*-2444"
                                                  "l-*-2443"
                                                  "l-*-2441"
                                                  "l-*-2440"
                                                  "l-*-2438"
                                                  "l-*-2436"
                                                  "l-*-2434"
                                                  "l-*-2432"
                                                  "l-*-2430"
                                                  "l-*-2428"
                                                  "l-*-2426"
                                                  "l-*-2424"
                                                  "l-*-2421"
                                                  "l-*-2419"
                                                  "l-*-2418"
                                                  "l-*-2416"
                                                  "l-*-2414"
                                                  "l-*-2412"
                                                  "l-*-2410"
                                                  "l-*-2409"
                                                  "l-*-2408"
                                                  "l-*-2407"
                                                  "l-*-2405"
                                                  "l-*-2404"
                                                  "l-*-2401"
                                                  "l-*-2399"
                                                  "l-*-2397"
                                                  "l-*-2395"
                                                  "l-*-2393"
                                                  "l-*-2391"
                                                  "l-*-2389"
                                                  "l-*-2388"
                                                  "l-*-2387"
                                                  "l-*-2385"
                                                  "l-*-2383"
                                                  "l-*-2382"
                                                  "l-*-2379"
                                                  "l-*-2378"
                                                  "l-*-2376"
                                                  "l-*-2374"
                                                  "l-*-2372"
                                                  "l-*-2370"
                                                  "l-*-2368"
                                                  "l-*-2366"
                                                  "l-*-2364"
                                                  "l-*-2362"
                                                  "l-*-2360"
                                                  "l-*-2357"
                                                  "l-*-2355"
                                                  "l-*-2353"
                                                  "l-*-2351"
                                                  "l-*-2349"
                                                  "l-*-2347"
                                                  "l-*-2345"
                                                  "l-*-2343"
                                                  "l-*-2341"
                                                  "l-*-2339"
                                                  "l-*-2337"
                                                  "l-*-2335"
                                                  "l-*-2333"
                                                  "l-*-2331"
                                                  "l-*-2329"
                                                  "l-*-2327"
                                                  "l-*-2325"
                                                  "l-*-2323"
                                                  "l-*-2321"
                                                  "l-*-2319"
                                                  "l-*-2317"
                                                  "l-*-2315"
                                                  "l-*-2313"
                                                  "l-*-2311"
                                                  "l-*-2309"
                                                  "l-*-2307"
                                                  "l-*-2306"
                                                  "l-*-2305"
                                                  "l-*-2304"
                                                  "l-*-2303"
                                                  "l-*-2301"
                                                  "l-*-2299"
                                                  "l-*-2297"
                                                  "l-*-2294"
                                                  "l-*-2292"
                                                  "l-*-2290"
                                                  "l-*-2288"
                                                  "l-*-2286"
                                                  "l-*-2284"
                                                  "l-*-2282"
                                                  "l-*-2280"
                                                  "l-*-2278"
                                                  "l-*-2276"
                                                  "l-*-2274"
                                                  "l-*-2272"
                                                  "l-*-2270"
                                                  "l-*-2268"
                                                  "l-*-2266"
                                                  "l-*-2264"
                                                  "l-*-2262"
                                                  "l-*-2260"))
                                               #(ribcage
                                                 (define-structure
                                                   define-expansion-accessors
                                                   define-expansion-constructors)
                                                 ((top) (top) (top))
                                                 ("l-*-2098"
                                                  "l-*-2097"
                                                  "l-*-2096")))
                                              (hygiene guile))))
                                    ropt-27533)))
                          tmp-27541)
                        (let ((tmp-27575
                                ($sc-dispatch args-27531 '((any any) . any))))
                          (if (if tmp-27575
                                (@apply
                                  (lambda (a-27579 init-27580 b-27581)
                                    (if (symbol? a-27579)
                                      #t
                                      (if (if (vector? a-27579)
                                            (if (= (vector-length a-27579) 4)
                                              (eq? (vector-ref a-27579 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (symbol? (vector-ref a-27579 1))
                                        #f)))
                                  tmp-27575)
                                #f)
                            (@apply
                              (lambda (a-27608 init-27609 b-27610)
                                (opt-27401
                                  b-27610
                                  req-27532
                                  (cons (list a-27608 init-27609) ropt-27533)))
                              tmp-27575)
                            (let ((tmp-27611
                                    ($sc-dispatch args-27531 '(any . any))))
                              (if (if tmp-27611
                                    (@apply
                                      (lambda (a-27615 b-27616)
                                        (eq? (syntax->datum a-27615) #:key))
                                      tmp-27611)
                                    #f)
                                (@apply
                                  (lambda (a-27617 b-27618)
                                    (key-27402
                                      b-27618
                                      req-27532
                                      (reverse ropt-27533)
                                      '()))
                                  tmp-27611)
                                (let ((tmp-27621
                                        ($sc-dispatch args-27531 '(any any))))
                                  (if (if tmp-27621
                                        (@apply
                                          (lambda (a-27625 b-27626)
                                            (eq? (syntax->datum a-27625)
                                                 #:rest))
                                          tmp-27621)
                                        #f)
                                    (@apply
                                      (lambda (a-27627 b-27628)
                                        (rest-27403
                                          b-27628
                                          req-27532
                                          (reverse ropt-27533)
                                          '()))
                                      tmp-27621)
                                    (let ((tmp-27631 (list args-27531)))
                                      (if (@apply
                                            (lambda (r-27633)
                                              (if (symbol? r-27633)
                                                #t
                                                (if (if (vector? r-27633)
                                                      (if (= (vector-length
                                                               r-27633)
                                                             4)
                                                        (eq? (vector-ref
                                                               r-27633
                                                               0)
                                                             'syntax-object)
                                                        #f)
                                                      #f)
                                                  (symbol?
                                                    (vector-ref r-27633 1))
                                                  #f)))
                                            tmp-27631)
                                        (@apply
                                          (lambda (r-27663)
                                            (rest-27403
                                              r-27663
                                              req-27532
                                              (reverse ropt-27533)
                                              '()))
                                          tmp-27631)
                                        (syntax-violation
                                          'lambda*
                                          "invalid optional argument list"
                                          orig-args-27399
                                          args-27531)))))))))))))))
            (key-27402
              (lambda (args-27682 req-27683 opt-27684 rkey-27685)
                (let ((tmp-27687 ($sc-dispatch args-27682 '())))
                  (if tmp-27687
                    (@apply
                      (lambda ()
                        (check-27404
                          req-27683
                          opt-27684
                          #f
                          (cons #f (reverse rkey-27685))))
                      tmp-27687)
                    (let ((tmp-27693
                            ($sc-dispatch args-27682 '(any . any))))
                      (if (if tmp-27693
                            (@apply
                              (lambda (a-27697 b-27698)
                                (if (symbol? a-27697)
                                  #t
                                  (if (if (vector? a-27697)
                                        (if (= (vector-length a-27697) 4)
                                          (eq? (vector-ref a-27697 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref a-27697 1))
                                    #f)))
                              tmp-27693)
                            #f)
                        (@apply
                          (lambda (a-27725 b-27726)
                            (let ((tmp-27727
                                    (symbol->keyword (syntax->datum a-27725))))
                              (key-27402
                                b-27726
                                req-27683
                                opt-27684
                                (cons (cons tmp-27727
                                            (cons a-27725
                                                  '(#(syntax-object
                                                      #f
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(k)
                                                         #((top))
                                                         #("l-*-4606"))
                                                       #(ribcage
                                                         #(a b)
                                                         #((top) (top))
                                                         #("l-*-4600"
                                                           "l-*-4601"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(args req opt rkey)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("l-*-4589"
                                                           "l-*-4590"
                                                           "l-*-4591"
                                                           "l-*-4592"))
                                                       #(ribcage
                                                         (check rest
                                                                key
                                                                opt
                                                                req)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("l-*-4479"
                                                          "l-*-4477"
                                                          "l-*-4475"
                                                          "l-*-4473"
                                                          "l-*-4471"))
                                                       #(ribcage
                                                         #(orig-args)
                                                         #((top))
                                                         #("l-*-4470"))
                                                       #(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-application
                                                           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=?
                                                           with-transformer-environment
                                                           transformer-environment
                                                           resolve-identifier
                                                           locally-bound-identifiers
                                                           id-var-name
                                                           same-marks?
                                                           join-marks
                                                           join-wraps
                                                           smart-append
                                                           make-binding-wrap
                                                           extend-ribcage!
                                                           make-empty-ribcage
                                                           new-mark
                                                           anti-mark
                                                           the-anti-mark
                                                           top-marked?
                                                           top-wrap
                                                           empty-wrap
                                                           set-ribcage-labels!
                                                           set-ribcage-marks!
                                                           set-ribcage-symnames!
                                                           ribcage-labels
                                                           ribcage-marks
                                                           ribcage-symnames
                                                           ribcage?
                                                           make-ribcage
                                                           gen-labels
                                                           gen-label
                                                           make-rename
                                                           rename-marks
                                                           rename-new
                                                           rename-old
                                                           subst-rename?
                                                           wrap-subst
                                                           wrap-marks
                                                           make-wrap
                                                           id-sym-name&marks
                                                           id-sym-name
                                                           id?
                                                           nonsymbol-id?
                                                           global-extend
                                                           lookup
                                                           macros-only-env
                                                           extend-var-env
                                                           extend-env
                                                           null-env
                                                           binding-value
                                                           binding-type
                                                           make-binding
                                                           arg-check
                                                           source-annotation
                                                           no-source
                                                           set-syntax-object-module!
                                                           set-syntax-object-wrap!
                                                           set-syntax-object-expression!
                                                           syntax-object-module
                                                           syntax-object-wrap
                                                           syntax-object-expression
                                                           syntax-object?
                                                           make-syntax-object
                                                           build-lexical-var
                                                           build-letrec
                                                           build-named-let
                                                           build-let
                                                           build-sequence
                                                           build-data
                                                           build-primref
                                                           build-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-application
                                                           build-void
                                                           maybe-name-value!
                                                           decorate-source
                                                           get-global-definition-hook
                                                           put-global-definition-hook
                                                           session-id
                                                           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-sequence
                                                           make-application
                                                           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)
                                                          (top)
                                                          (top))
                                                         ("l-*-2527"
                                                          "l-*-2525"
                                                          "l-*-2523"
                                                          "l-*-2521"
                                                          "l-*-2519"
                                                          "l-*-2517"
                                                          "l-*-2515"
                                                          "l-*-2513"
                                                          "l-*-2511"
                                                          "l-*-2509"
                                                          "l-*-2507"
                                                          "l-*-2505"
                                                          "l-*-2503"
                                                          "l-*-2501"
                                                          "l-*-2499"
                                                          "l-*-2497"
                                                          "l-*-2495"
                                                          "l-*-2493"
                                                          "l-*-2491"
                                                          "l-*-2489"
                                                          "l-*-2487"
                                                          "l-*-2485"
                                                          "l-*-2483"
                                                          "l-*-2481"
                                                          "l-*-2479"
                                                          "l-*-2477"
                                                          "l-*-2475"
                                                          "l-*-2473"
                                                          "l-*-2471"
                                                          "l-*-2469"
                                                          "l-*-2467"
                                                          "l-*-2465"
                                                          "l-*-2463"
                                                          "l-*-2461"
                                                          "l-*-2459"
                                                          "l-*-2457"
                                                          "l-*-2455"
                                                          "l-*-2453"
                                                          "l-*-2451"
                                                          "l-*-2450"
                                                          "l-*-2448"
                                                          "l-*-2445"
                                                          "l-*-2444"
                                                          "l-*-2443"
                                                          "l-*-2441"
                                                          "l-*-2440"
                                                          "l-*-2438"
                                                          "l-*-2436"
                                                          "l-*-2434"
                                                          "l-*-2432"
                                                          "l-*-2430"
                                                          "l-*-2428"
                                                          "l-*-2426"
                                                          "l-*-2424"
                                                          "l-*-2421"
                                                          "l-*-2419"
                                                          "l-*-2418"
                                                          "l-*-2416"
                                                          "l-*-2414"
                                                          "l-*-2412"
                                                          "l-*-2410"
                                                          "l-*-2409"
                                                          "l-*-2408"
                                                          "l-*-2407"
                                                          "l-*-2405"
                                                          "l-*-2404"
                                                          "l-*-2401"
                                                          "l-*-2399"
                                                          "l-*-2397"
                                                          "l-*-2395"
                                                          "l-*-2393"
                                                          "l-*-2391"
                                                          "l-*-2389"
                                                          "l-*-2388"
                                                          "l-*-2387"
                                                          "l-*-2385"
                                                          "l-*-2383"
                                                          "l-*-2382"
                                                          "l-*-2379"
                                                          "l-*-2378"
                                                          "l-*-2376"
                                                          "l-*-2374"
                                                          "l-*-2372"
                                                          "l-*-2370"
                                                          "l-*-2368"
                                                          "l-*-2366"
                                                          "l-*-2364"
                                                          "l-*-2362"
                                                          "l-*-2360"
                                                          "l-*-2357"
                                                          "l-*-2355"
                                                          "l-*-2353"
                                                          "l-*-2351"
                                                          "l-*-2349"
                                                          "l-*-2347"
                                                          "l-*-2345"
                                                          "l-*-2343"
                                                          "l-*-2341"
                                                          "l-*-2339"
                                                          "l-*-2337"
                                                          "l-*-2335"
                                                          "l-*-2333"
                                                          "l-*-2331"
                                                          "l-*-2329"
                                                          "l-*-2327"
                                                          "l-*-2325"
                                                          "l-*-2323"
                                                          "l-*-2321"
                                                          "l-*-2319"
                                                          "l-*-2317"
                                                          "l-*-2315"
                                                          "l-*-2313"
                                                          "l-*-2311"
                                                          "l-*-2309"
                                                          "l-*-2307"
                                                          "l-*-2306"
                                                          "l-*-2305"
                                                          "l-*-2304"
                                                          "l-*-2303"
                                                          "l-*-2301"
                                                          "l-*-2299"
                                                          "l-*-2297"
                                                          "l-*-2294"
                                                          "l-*-2292"
                                                          "l-*-2290"
                                                          "l-*-2288"
                                                          "l-*-2286"
                                                          "l-*-2284"
                                                          "l-*-2282"
                                                          "l-*-2280"
                                                          "l-*-2278"
                                                          "l-*-2276"
                                                          "l-*-2274"
                                                          "l-*-2272"
                                                          "l-*-2270"
                                                          "l-*-2268"
                                                          "l-*-2266"
                                                          "l-*-2264"
                                                          "l-*-2262"
                                                          "l-*-2260"))
                                                       #(ribcage
                                                         (define-structure
                                                           define-expansion-accessors
                                                           define-expansion-constructors)
                                                         ((top) (top) (top))
                                                         ("l-*-2098"
                                                          "l-*-2097"
                                                          "l-*-2096")))
                                                      (hygiene guile)))))
                                      rkey-27685))))
                          tmp-27693)
                        (let ((tmp-27730
                                ($sc-dispatch args-27682 '((any any) . any))))
                          (if (if tmp-27730
                                (@apply
                                  (lambda (a-27734 init-27735 b-27736)
                                    (if (symbol? a-27734)
                                      #t
                                      (if (if (vector? a-27734)
                                            (if (= (vector-length a-27734) 4)
                                              (eq? (vector-ref a-27734 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (symbol? (vector-ref a-27734 1))
                                        #f)))
                                  tmp-27730)
                                #f)
                            (@apply
                              (lambda (a-27763 init-27764 b-27765)
                                (let ((tmp-27766
                                        (symbol->keyword
                                          (syntax->datum a-27763))))
                                  (key-27402
                                    b-27765
                                    req-27683
                                    opt-27684
                                    (cons (list tmp-27766 a-27763 init-27764)
                                          rkey-27685))))
                              tmp-27730)
                            (let ((tmp-27769
                                    ($sc-dispatch
                                      args-27682
                                      '((any any any) . any))))
                              (if (if tmp-27769
                                    (@apply
                                      (lambda (a-27773
                                               init-27774
                                               k-27775
                                               b-27776)
                                        (if (if (symbol? a-27773)
                                              #t
                                              (if (if (vector? a-27773)
                                                    (if (= (vector-length
                                                             a-27773)
                                                           4)
                                                      (eq? (vector-ref
                                                             a-27773
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref a-27773 1))
                                                #f))
                                          (keyword? (syntax->datum k-27775))
                                          #f))
                                      tmp-27769)
                                    #f)
                                (@apply
                                  (lambda (a-27803 init-27804 k-27805 b-27806)
                                    (key-27402
                                      b-27806
                                      req-27683
                                      opt-27684
                                      (cons (list k-27805 a-27803 init-27804)
                                            rkey-27685)))
                                  tmp-27769)
                                (let ((tmp-27807
                                        ($sc-dispatch args-27682 '(any))))
                                  (if (if tmp-27807
                                        (@apply
                                          (lambda (aok-27811)
                                            (eq? (syntax->datum aok-27811)
                                                 #:allow-other-keys))
                                          tmp-27807)
                                        #f)
                                    (@apply
                                      (lambda (aok-27812)
                                        (check-27404
                                          req-27683
                                          opt-27684
                                          #f
                                          (cons #t (reverse rkey-27685))))
                                      tmp-27807)
                                    (let ((tmp-27815
                                            ($sc-dispatch
                                              args-27682
                                              '(any any any))))
                                      (if (if tmp-27815
                                            (@apply
                                              (lambda (aok-27819
                                                       a-27820
                                                       b-27821)
                                                (if (eq? (syntax->datum
                                                           aok-27819)
                                                         #:allow-other-keys)
                                                  (eq? (syntax->datum a-27820)
                                                       #:rest)
                                                  #f))
                                              tmp-27815)
                                            #f)
                                        (@apply
                                          (lambda (aok-27822 a-27823 b-27824)
                                            (rest-27403
                                              b-27824
                                              req-27683
                                              opt-27684
                                              (cons #t (reverse rkey-27685))))
                                          tmp-27815)
                                        (let ((tmp-27827
                                                ($sc-dispatch
                                                  args-27682
                                                  '(any . any))))
                                          (if (if tmp-27827
                                                (@apply
                                                  (lambda (aok-27831 r-27832)
                                                    (if (eq? (syntax->datum
                                                               aok-27831)
                                                             #:allow-other-keys)
                                                      (if (symbol? r-27832)
                                                        #t
                                                        (if (if (vector?
                                                                  r-27832)
                                                              (if (= (vector-length
                                                                       r-27832)
                                                                     4)
                                                                (eq? (vector-ref
                                                                       r-27832
                                                                       0)
                                                                     'syntax-object)
                                                                #f)
                                                              #f)
                                                          (symbol?
                                                            (vector-ref
                                                              r-27832
                                                              1))
                                                          #f))
                                                      #f))
                                                  tmp-27827)
                                                #f)
                                            (@apply
                                              (lambda (aok-27859 r-27860)
                                                (rest-27403
                                                  r-27860
                                                  req-27683
                                                  opt-27684
                                                  (cons #t
                                                        (reverse rkey-27685))))
                                              tmp-27827)
                                            (let ((tmp-27863
                                                    ($sc-dispatch
                                                      args-27682
                                                      '(any any))))
                                              (if (if tmp-27863
                                                    (@apply
                                                      (lambda (a-27867 b-27868)
                                                        (eq? (syntax->datum
                                                               a-27867)
                                                             #:rest))
                                                      tmp-27863)
                                                    #f)
                                                (@apply
                                                  (lambda (a-27869 b-27870)
                                                    (rest-27403
                                                      b-27870
                                                      req-27683
                                                      opt-27684
                                                      (cons #f
                                                            (reverse
                                                              rkey-27685))))
                                                  tmp-27863)
                                                (let ((tmp-27873
                                                        (list args-27682)))
                                                  (if (@apply
                                                        (lambda (r-27875)
                                                          (if (symbol? r-27875)
                                                            #t
                                                            (if (if (vector?
                                                                      r-27875)
                                                                  (if (= (vector-length
                                                                           r-27875)
                                                                         4)
                                                                    (eq? (vector-ref
                                                                           r-27875
                                                                           0)
                                                                         'syntax-object)
                                                                    #f)
                                                                  #f)
                                                              (symbol?
                                                                (vector-ref
                                                                  r-27875
                                                                  1))
                                                              #f)))
                                                        tmp-27873)
                                                    (@apply
                                                      (lambda (r-27905)
                                                        (rest-27403
                                                          r-27905
                                                          req-27683
                                                          opt-27684
                                                          (cons #f
                                                                (reverse
                                                                  rkey-27685))))
                                                      tmp-27873)
                                                    (syntax-violation
                                                      'lambda*
                                                      "invalid keyword argument list"
                                                      orig-args-27399
                                                      args-27682)))))))))))))))))))))
            (rest-27403
              (lambda (args-27933 req-27934 opt-27935 kw-27936)
                (let ((tmp-27938 (list args-27933)))
                  (if (@apply
                        (lambda (r-27940)
                          (if (symbol? r-27940)
                            #t
                            (if (if (vector? r-27940)
                                  (if (= (vector-length r-27940) 4)
                                    (eq? (vector-ref r-27940 0) 'syntax-object)
                                    #f)
                                  #f)
                              (symbol? (vector-ref r-27940 1))
                              #f)))
                        tmp-27938)
                    (@apply
                      (lambda (r-27970)
                        (check-27404
                          req-27934
                          opt-27935
                          r-27970
                          kw-27936))
                      tmp-27938)
                    (syntax-violation
                      'lambda*
                      "invalid rest argument"
                      orig-args-27399
                      args-27933)))))
            (check-27404
              (lambda (req-27974 opt-27975 rest-27976 kw-27977)
                (if (distinct-bound-ids?-6576
                      (append
                        req-27974
                        (map car opt-27975)
                        (if rest-27976 (list rest-27976) '())
                        (if (pair? kw-27977)
                          (map cadr (cdr kw-27977))
                          '())))
                  (values req-27974 opt-27975 rest-27976 kw-27977)
                  (syntax-violation
                    'lambda*
                    "duplicate identifier in argument list"
                    orig-args-27399)))))
           (req-27400 orig-args-27399 '()))))
     (expand-lambda-case-6597
       (lambda (e-28093
                r-28094
                w-28095
                s-28096
                mod-28097
                get-formals-28098
                clauses-28099)
         (letrec*
           ((parse-req-28100
              (lambda (req-28231
                       opt-28232
                       rest-28233
                       kw-28234
                       body-28235)
                (let ((vars-28236 (map gen-var-6599 req-28231))
                      (labels-28237 (gen-labels-6552 req-28231)))
                  (let ((r*-28238
                          (extend-var-env-6544
                            labels-28237
                            vars-28236
                            r-28094))
                        (w*-28239
                          (make-binding-wrap-6563
                            req-28231
                            labels-28237
                            w-28095)))
                    (parse-opt-28101
                      (map syntax->datum req-28231)
                      opt-28232
                      rest-28233
                      kw-28234
                      body-28235
                      (reverse vars-28236)
                      r*-28238
                      w*-28239
                      '()
                      '())))))
            (parse-opt-28101
              (lambda (req-28425
                       opt-28426
                       rest-28427
                       kw-28428
                       body-28429
                       vars-28430
                       r*-28431
                       w*-28432
                       out-28433
                       inits-28434)
                (if (pair? opt-28426)
                  (let ((tmp-28435 (car opt-28426)))
                    (let ((tmp-28436 ($sc-dispatch tmp-28435 '(any any))))
                      (if tmp-28436
                        (@apply
                          (lambda (id-28438 i-28439)
                            (let ((v-28440
                                    (let ((id-28448
                                            (if (if (vector? id-28438)
                                                  (if (= (vector-length
                                                           id-28438)
                                                         4)
                                                    (eq? (vector-ref
                                                           id-28438
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (vector-ref id-28438 1)
                                              id-28438)))
                                      (gensym
                                        (string-append
                                          (symbol->string id-28448)
                                          "-")))))
                              (let ((l-28441 (gen-labels-6552 (list v-28440))))
                                (let ((r**-28442
                                        (extend-var-env-6544
                                          l-28441
                                          (list v-28440)
                                          r*-28431)))
                                  (let ((w**-28443
                                          (make-binding-wrap-6563
                                            (list id-28438)
                                            l-28441
                                            w*-28432)))
                                    (parse-opt-28101
                                      req-28425
                                      (cdr opt-28426)
                                      rest-28427
                                      kw-28428
                                      body-28429
                                      (cons v-28440 vars-28430)
                                      r**-28442
                                      w**-28443
                                      (cons (syntax->datum id-28438) out-28433)
                                      (cons (expand-6585
                                              i-28439
                                              r*-28431
                                              w*-28432
                                              mod-28097)
                                            inits-28434)))))))
                          tmp-28436)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          tmp-28435))))
                  (if rest-28427
                    (let ((v-28686
                            (let ((id-28696
                                    (if (if (vector? rest-28427)
                                          (if (= (vector-length rest-28427) 4)
                                            (eq? (vector-ref rest-28427 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (vector-ref rest-28427 1)
                                      rest-28427)))
                              (gensym
                                (string-append
                                  (symbol->string id-28696)
                                  "-")))))
                      (let ((l-28687 (gen-labels-6552 (list v-28686))))
                        (let ((r*-28688
                                (extend-var-env-6544
                                  l-28687
                                  (list v-28686)
                                  r*-28431)))
                          (let ((w*-28689
                                  (make-binding-wrap-6563
                                    (list rest-28427)
                                    l-28687
                                    w*-28432)))
                            (parse-kw-28102
                              req-28425
                              (if (pair? out-28433) (reverse out-28433) #f)
                              (syntax->datum rest-28427)
                              (if (pair? kw-28428) (cdr kw-28428) kw-28428)
                              body-28429
                              (cons v-28686 vars-28430)
                              r*-28688
                              w*-28689
                              (if (pair? kw-28428) (car kw-28428) #f)
                              '()
                              inits-28434)))))
                    (parse-kw-28102
                      req-28425
                      (if (pair? out-28433) (reverse out-28433) #f)
                      #f
                      (if (pair? kw-28428) (cdr kw-28428) kw-28428)
                      body-28429
                      vars-28430
                      r*-28431
                      w*-28432
                      (if (pair? kw-28428) (car kw-28428) #f)
                      '()
                      inits-28434)))))
            (parse-kw-28102
              (lambda (req-28867
                       opt-28868
                       rest-28869
                       kw-28870
                       body-28871
                       vars-28872
                       r*-28873
                       w*-28874
                       aok-28875
                       out-28876
                       inits-28877)
                (if (pair? kw-28870)
                  (let ((tmp-28878 (car kw-28870)))
                    (let ((tmp-28879
                            ($sc-dispatch tmp-28878 '(any any any))))
                      (if tmp-28879
                        (@apply
                          (lambda (k-28881 id-28882 i-28883)
                            (let ((v-28884
                                    (let ((id-28892
                                            (if (if (vector? id-28882)
                                                  (if (= (vector-length
                                                           id-28882)
                                                         4)
                                                    (eq? (vector-ref
                                                           id-28882
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (vector-ref id-28882 1)
                                              id-28882)))
                                      (gensym
                                        (string-append
                                          (symbol->string id-28892)
                                          "-")))))
                              (let ((l-28885 (gen-labels-6552 (list v-28884))))
                                (let ((r**-28886
                                        (extend-var-env-6544
                                          l-28885
                                          (list v-28884)
                                          r*-28873)))
                                  (let ((w**-28887
                                          (make-binding-wrap-6563
                                            (list id-28882)
                                            l-28885
                                            w*-28874)))
                                    (parse-kw-28102
                                      req-28867
                                      opt-28868
                                      rest-28869
                                      (cdr kw-28870)
                                      body-28871
                                      (cons v-28884 vars-28872)
                                      r**-28886
                                      w**-28887
                                      aok-28875
                                      (cons (list (syntax->datum k-28881)
                                                  (syntax->datum id-28882)
                                                  v-28884)
                                            out-28876)
                                      (cons (expand-6585
                                              i-28883
                                              r*-28873
                                              w*-28874
                                              mod-28097)
                                            inits-28877)))))))
                          tmp-28879)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          tmp-28878))))
                  (parse-body-28103
                    req-28867
                    opt-28868
                    rest-28869
                    (if (if aok-28875 aok-28875 (pair? out-28876))
                      (cons aok-28875 (reverse out-28876))
                      #f)
                    body-28871
                    (reverse vars-28872)
                    r*-28873
                    w*-28874
                    (reverse inits-28877)
                    '()))))
            (parse-body-28103
              (lambda (req-29139
                       opt-29140
                       rest-29141
                       kw-29142
                       body-29143
                       vars-29144
                       r*-29145
                       w*-29146
                       inits-29147
                       meta-29148)
                (let ((tmp-29150
                        ($sc-dispatch body-29143 '(any any . each-any))))
                  (if (if tmp-29150
                        (@apply
                          (lambda (docstring-29154 e1-29155 e2-29156)
                            (string? (syntax->datum docstring-29154)))
                          tmp-29150)
                        #f)
                    (@apply
                      (lambda (docstring-29157 e1-29158 e2-29159)
                        (parse-body-28103
                          req-29139
                          opt-29140
                          rest-29141
                          kw-29142
                          (cons e1-29158 e2-29159)
                          vars-29144
                          r*-29145
                          w*-29146
                          inits-29147
                          (append
                            meta-29148
                            (list (cons 'documentation
                                        (syntax->datum docstring-29157))))))
                      tmp-29150)
                    (let ((tmp-29160
                            ($sc-dispatch
                              body-29143
                              '(#(vector #(each (any . any)))
                                any
                                .
                                each-any))))
                      (if tmp-29160
                        (@apply
                          (lambda (k-29164 v-29165 e1-29166 e2-29167)
                            (parse-body-28103
                              req-29139
                              opt-29140
                              rest-29141
                              kw-29142
                              (cons e1-29166 e2-29167)
                              vars-29144
                              r*-29145
                              w*-29146
                              inits-29147
                              (append
                                meta-29148
                                (syntax->datum (map cons k-29164 v-29165)))))
                          tmp-29160)
                        (let ((tmp-29168
                                ($sc-dispatch body-29143 '(any . each-any))))
                          (if tmp-29168
                            (@apply
                              (lambda (e1-29172 e2-29173)
                                (values
                                  meta-29148
                                  req-29139
                                  opt-29140
                                  rest-29141
                                  kw-29142
                                  inits-29147
                                  vars-29144
                                  (expand-body-6589
                                    (cons e1-29172 e2-29173)
                                    (wrap-6578
                                      (begin
                                        (if (if (pair? e-28093) s-28096 #f)
                                          (set-source-properties!
                                            e-28093
                                            s-28096))
                                        e-28093)
                                      w-28095
                                      mod-28097)
                                    r*-29145
                                    w*-29146
                                    mod-28097)))
                              tmp-29168)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
                              body-29143))))))))))
           (let ((tmp-28105 ($sc-dispatch clauses-28099 '())))
             (if tmp-28105
               (@apply (lambda () (values '() #f)) tmp-28105)
               (let ((tmp-28109
                       ($sc-dispatch
                         clauses-28099
                         '((any any . each-any)
                           .
                           #(each (any any . each-any))))))
                 (if tmp-28109
                   (@apply
                     (lambda (args-28113
                              e1-28114
                              e2-28115
                              args*-28116
                              e1*-28117
                              e2*-28118)
                       (call-with-values
                         (lambda () (get-formals-28098 args-28113))
                         (lambda (req-28119 opt-28120 rest-28121 kw-28122)
                           (call-with-values
                             (lambda ()
                               (parse-req-28100
                                 req-28119
                                 opt-28120
                                 rest-28121
                                 kw-28122
                                 (cons e1-28114 e2-28115)))
                             (lambda (meta-28187
                                      req-28188
                                      opt-28189
                                      rest-28190
                                      kw-28191
                                      inits-28192
                                      vars-28193
                                      body-28194)
                               (call-with-values
                                 (lambda ()
                                   (expand-lambda-case-6597
                                     e-28093
                                     r-28094
                                     w-28095
                                     s-28096
                                     mod-28097
                                     get-formals-28098
                                     (map (lambda (tmp-4949-28195
                                                   tmp-4948-28196
                                                   tmp-4947-28197)
                                            (cons tmp-4947-28197
                                                  (cons tmp-4948-28196
                                                        tmp-4949-28195)))
                                          e2*-28118
                                          e1*-28117
                                          args*-28116)))
                                 (lambda (meta*-28198 else*-28199)
                                   (values
                                     (append meta-28187 meta*-28198)
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 14)
                                       s-28096
                                       req-28188
                                       opt-28189
                                       rest-28190
                                       kw-28191
                                       inits-28192
                                       vars-28193
                                       body-28194
                                       else*-28199)))))))))
                     tmp-28109)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
                     clauses-28099))))))))
     (strip-6598
       (lambda (x-29210 w-29211)
         (if (memq 'top (car w-29211))
           x-29210
           (letrec*
             ((f-29212
                (lambda (x-29215)
                  (if (if (vector? x-29215)
                        (if (= (vector-length x-29215) 4)
                          (eq? (vector-ref x-29215 0) 'syntax-object)
                          #f)
                        #f)
                    (strip-6598
                      (vector-ref x-29215 1)
                      (vector-ref x-29215 2))
                    (if (pair? x-29215)
                      (let ((a-29234 (f-29212 (car x-29215)))
                            (d-29235 (f-29212 (cdr x-29215))))
                        (if (if (eq? a-29234 (car x-29215))
                              (eq? d-29235 (cdr x-29215))
                              #f)
                          x-29215
                          (cons a-29234 d-29235)))
                      (if (vector? x-29215)
                        (let ((old-29238 (vector->list x-29215)))
                          (let ((new-29239 (map f-29212 old-29238)))
                            (letrec*
                              ((lp-29240
                                 (lambda (l1-29316 l2-29317)
                                   (if (null? l1-29316)
                                     x-29215
                                     (if (eq? (car l1-29316) (car l2-29317))
                                       (lp-29240 (cdr l1-29316) (cdr l2-29317))
                                       (list->vector new-29239))))))
                              (lp-29240 old-29238 new-29239))))
                        x-29215))))))
             (f-29212 x-29210)))))
     (gen-var-6599
       (lambda (id-28243)
         (let ((id-28244
                 (if (if (vector? id-28243)
                       (if (= (vector-length id-28243) 4)
                         (eq? (vector-ref id-28243 0) 'syntax-object)
                         #f)
                       #f)
                   (vector-ref id-28243 1)
                   id-28243)))
           (gensym
             (string-append (symbol->string id-28244) "-"))))))
    (begin
      (set! session-id-6510
        (let ((v-17707
                (module-variable
                  (current-module)
                  'syntax-session-id)))
          (lambda () ((variable-ref v-17707)))))
      (set! transformer-environment-6571
        (make-fluid
          (lambda (k-16750)
            (error "called outside the dynamic extent of a syntax transformer"))))
      (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-6547
        'core
        'syntax-parameterize
        (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724)
          (let ((tmp-6726
                  ($sc-dispatch
                    e-6720
                    '(_ #(each (any any)) any . each-any))))
            (if (if tmp-6726
                  (@apply
                    (lambda (var-6730 val-6731 e1-6732 e2-6733)
                      (valid-bound-ids?-6575 var-6730))
                    tmp-6726)
                  #f)
              (@apply
                (lambda (var-6811 val-6812 e1-6813 e2-6814)
                  (let ((names-6815
                          (map (lambda (x-6865)
                                 (id-var-name-6568 x-6865 w-6722))
                               var-6811)))
                    (begin
                      (for-each
                        (lambda (id-6816 n-6817)
                          (let ((atom-key-6818
                                  (car (let ((t-6825 (assq n-6817 r-6721)))
                                         (if t-6825
                                           (cdr t-6825)
                                           (if (symbol? n-6817)
                                             (let ((t-6830
                                                     (get-global-definition-hook-6512
                                                       n-6817
                                                       mod-6724)))
                                               (if t-6830 t-6830 '(global)))
                                             '(displaced-lexical)))))))
                            (if (eqv? atom-key-6818 'displaced-lexical)
                              (syntax-violation
                                'syntax-parameterize
                                "identifier out of context"
                                e-6720
                                (wrap-6578
                                  (begin
                                    (if (if (pair? id-6816) s-6723 #f)
                                      (set-source-properties! id-6816 s-6723))
                                    id-6816)
                                  w-6722
                                  mod-6724)))))
                        var-6811
                        names-6815)
                      (expand-body-6589
                        (cons e1-6813 e2-6814)
                        (wrap-6578
                          (begin
                            (if (if (pair? e-6720) s-6723 #f)
                              (set-source-properties! e-6720 s-6723))
                            e-6720)
                          w-6722
                          mod-6724)
                        (extend-env-6543
                          names-6815
                          (let ((trans-r-6951 (macros-only-env-6545 r-6721)))
                            (map (lambda (x-6952)
                                   (cons 'macro
                                         (eval-local-transformer-6591
                                           (expand-6585
                                             x-6952
                                             trans-r-6951
                                             w-6722
                                             mod-6724)
                                           mod-6724)))
                                 val-6812))
                          r-6721)
                        w-6722
                        mod-6724))))
                tmp-6726)
              (syntax-violation
                'syntax-parameterize
                "bad syntax"
                (wrap-6578
                  (begin
                    (if (if (pair? e-6720) s-6723 #f)
                      (set-source-properties! e-6720 s-6723))
                    e-6720)
                  w-6722
                  mod-6724))))))
      (module-define!
        (current-module)
        'quote
        (make-syntax-transformer
          'quote
          'core
          (lambda (e-7161 r-7162 w-7163 s-7164 mod-7165)
            (let ((tmp-7167 ($sc-dispatch e-7161 '(_ any))))
              (if tmp-7167
                (@apply
                  (lambda (e-7170)
                    (let ((exp-7174 (strip-6598 e-7170 w-7163)))
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 1)
                        s-7164
                        exp-7174)))
                  tmp-7167)
                (syntax-violation
                  'quote
                  "bad syntax"
                  (wrap-6578
                    (begin
                      (if (if (pair? e-7161) s-7164 #f)
                        (set-source-properties! e-7161 s-7164))
                      e-7161)
                    w-7163
                    mod-7165)))))))
      (global-extend-6547
        'core
        'syntax
        (letrec*
          ((gen-syntax-7394
             (lambda (src-7496
                      e-7497
                      r-7498
                      maps-7499
                      ellipsis?-7500
                      mod-7501)
               (if (if (symbol? e-7497)
                     #t
                     (if (if (vector? e-7497)
                           (if (= (vector-length e-7497) 4)
                             (eq? (vector-ref e-7497 0) 'syntax-object)
                             #f)
                           #f)
                       (symbol? (vector-ref e-7497 1))
                       #f))
                 (let ((label-7528 (id-var-name-6568 e-7497 '(()))))
                   (let ((b-7529
                           (let ((t-7536 (assq label-7528 r-7498)))
                             (if t-7536
                               (cdr t-7536)
                               (if (symbol? label-7528)
                                 (let ((t-7542
                                         (get-global-definition-hook-6512
                                           label-7528
                                           mod-7501)))
                                   (if t-7542 t-7542 '(global)))
                                 '(displaced-lexical))))))
                     (if (eq? (car b-7529) 'syntax)
                       (call-with-values
                         (lambda ()
                           (let ((var.lev-7551 (cdr b-7529)))
                             (gen-ref-7395
                               src-7496
                               (car var.lev-7551)
                               (cdr var.lev-7551)
                               maps-7499)))
                         (lambda (var-7555 maps-7556)
                           (values (list 'ref var-7555) maps-7556)))
                       (if (ellipsis?-7500 e-7497)
                         (syntax-violation
                           'syntax
                           "misplaced ellipsis"
                           src-7496)
                         (values (list 'quote e-7497) maps-7499)))))
                 (let ((tmp-7558 ($sc-dispatch e-7497 '(any any))))
                   (if (if tmp-7558
                         (@apply
                           (lambda (dots-7562 e-7563)
                             (ellipsis?-7500 dots-7562))
                           tmp-7558)
                         #f)
                     (@apply
                       (lambda (dots-7564 e-7565)
                         (gen-syntax-7394
                           src-7496
                           e-7565
                           r-7498
                           maps-7499
                           (lambda (x-7566) #f)
                           mod-7501))
                       tmp-7558)
                     (let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any))))
                       (if (if tmp-7567
                             (@apply
                               (lambda (x-7571 dots-7572 y-7573)
                                 (ellipsis?-7500 dots-7572))
                               tmp-7567)
                             #f)
                         (@apply
                           (lambda (x-7574 dots-7575 y-7576)
                             (letrec*
                               ((f-7577
                                  (lambda (y-7585 k-7586)
                                    (let ((tmp-7588
                                            ($sc-dispatch
                                              y-7585
                                              '(any . any))))
                                      (if (if tmp-7588
                                            (@apply
                                              (lambda (dots-7592 y-7593)
                                                (ellipsis?-7500 dots-7592))
                                              tmp-7588)
                                            #f)
                                        (@apply
                                          (lambda (dots-7594 y-7595)
                                            (f-7577
                                              y-7595
                                              (lambda (maps-7596)
                                                (call-with-values
                                                  (lambda ()
                                                    (k-7586
                                                      (cons '() maps-7596)))
                                                  (lambda (x-7597 maps-7598)
                                                    (if (null? (car maps-7598))
                                                      (syntax-violation
                                                        'syntax
                                                        "extra ellipsis"
                                                        src-7496)
                                                      (values
                                                        (let ((map-env-7602
                                                                (car maps-7598)))
                                                          (list 'apply
                                                                '(primitive
                                                                   append)
                                                                (gen-map-7397
                                                                  x-7597
                                                                  map-env-7602)))
                                                        (cdr maps-7598))))))))
                                          tmp-7588)
                                        (call-with-values
                                          (lambda ()
                                            (gen-syntax-7394
                                              src-7496
                                              y-7585
                                              r-7498
                                              maps-7499
                                              ellipsis?-7500
                                              mod-7501))
                                          (lambda (y-7605 maps-7606)
                                            (call-with-values
                                              (lambda () (k-7586 maps-7606))
                                              (lambda (x-7607 maps-7608)
                                                (values
                                                  (if (equal? y-7605 ''())
                                                    x-7607
                                                    (list 'append
                                                          x-7607
                                                          y-7605))
                                                  maps-7608))))))))))
                               (f-7577
                                 y-7576
                                 (lambda (maps-7580)
                                   (call-with-values
                                     (lambda ()
                                       (gen-syntax-7394
                                         src-7496
                                         x-7574
                                         r-7498
                                         (cons '() maps-7580)
                                         ellipsis?-7500
                                         mod-7501))
                                     (lambda (x-7581 maps-7582)
                                       (if (null? (car maps-7582))
                                         (syntax-violation
                                           'syntax
                                           "extra ellipsis"
                                           src-7496)
                                         (values
                                           (gen-map-7397
                                             x-7581
                                             (car maps-7582))
                                           (cdr maps-7582)))))))))
                           tmp-7567)
                         (let ((tmp-7624 ($sc-dispatch e-7497 '(any . any))))
                           (if tmp-7624
                             (@apply
                               (lambda (x-7628 y-7629)
                                 (call-with-values
                                   (lambda ()
                                     (gen-syntax-7394
                                       src-7496
                                       x-7628
                                       r-7498
                                       maps-7499
                                       ellipsis?-7500
                                       mod-7501))
                                   (lambda (x-7630 maps-7631)
                                     (call-with-values
                                       (lambda ()
                                         (gen-syntax-7394
                                           src-7496
                                           y-7629
                                           r-7498
                                           maps-7631
                                           ellipsis?-7500
                                           mod-7501))
                                       (lambda (y-7632 maps-7633)
                                         (values
                                           (let ((atom-key-7638 (car y-7632)))
                                             (if (eqv? atom-key-7638 'quote)
                                               (if (eq? (car x-7630) 'quote)
                                                 (list 'quote
                                                       (cons (car (cdr x-7630))
                                                             (car (cdr y-7632))))
                                                 (if (eq? (car (cdr y-7632))
                                                          '())
                                                   (list 'list x-7630)
                                                   (list 'cons x-7630 y-7632)))
                                               (if (eqv? atom-key-7638 'list)
                                                 (cons 'list
                                                       (cons x-7630
                                                             (cdr y-7632)))
                                                 (list 'cons x-7630 y-7632))))
                                           maps-7633))))))
                               tmp-7624)
                             (let ((tmp-7667
                                     ($sc-dispatch
                                       e-7497
                                       '#(vector (any . each-any)))))
                               (if tmp-7667
                                 (@apply
                                   (lambda (e1-7671 e2-7672)
                                     (call-with-values
                                       (lambda ()
                                         (gen-syntax-7394
                                           src-7496
                                           (cons e1-7671 e2-7672)
                                           r-7498
                                           maps-7499
                                           ellipsis?-7500
                                           mod-7501))
                                       (lambda (e-7673 maps-7674)
                                         (values
                                           (if (eq? (car e-7673) 'list)
                                             (cons 'vector (cdr e-7673))
                                             (if (eq? (car e-7673) 'quote)
                                               (list 'quote
                                                     (list->vector
                                                       (car (cdr e-7673))))
                                               (list 'list->vector e-7673)))
                                           maps-7674))))
                                   tmp-7667)
                                 (values
                                   (list 'quote e-7497)
                                   maps-7499))))))))))))
           (gen-ref-7395
             (lambda (src-7701 var-7702 level-7703 maps-7704)
               (if (= level-7703 0)
                 (values var-7702 maps-7704)
                 (if (null? maps-7704)
                   (syntax-violation
                     'syntax
                     "missing ellipsis"
                     src-7701)
                   (call-with-values
                     (lambda ()
                       (gen-ref-7395
                         src-7701
                         var-7702
                         (#{1-}# level-7703)
                         (cdr maps-7704)))
                     (lambda (outer-var-7705 outer-maps-7706)
                       (let ((b-7707 (assq outer-var-7705 (car maps-7704))))
                         (if b-7707
                           (values (cdr b-7707) maps-7704)
                           (let ((inner-var-7709
                                   (gensym
                                     (string-append
                                       (symbol->string 'tmp)
                                       "-"))))
                             (values
                               inner-var-7709
                               (cons (cons (cons outer-var-7705 inner-var-7709)
                                           (car maps-7704))
                                     outer-maps-7706)))))))))))
           (gen-map-7397
             (lambda (e-7723 map-env-7724)
               (let ((formals-7725 (map cdr map-env-7724))
                     (actuals-7726
                       (map (lambda (x-7728) (list 'ref (car x-7728)))
                            map-env-7724)))
                 (if (eq? (car e-7723) 'ref)
                   (car actuals-7726)
                   (if (and-map
                         (lambda (x-7729)
                           (if (eq? (car x-7729) 'ref)
                             (memq (car (cdr x-7729)) formals-7725)
                             #f))
                         (cdr e-7723))
                     (cons 'map
                           (cons (list 'primitive (car e-7723))
                                 (map (let ((r-7731
                                              (map cons
                                                   formals-7725
                                                   actuals-7726)))
                                        (lambda (x-7732)
                                          (cdr (assq (car (cdr x-7732))
                                                     r-7731))))
                                      (cdr e-7723))))
                     (cons 'map
                           (cons (list 'lambda formals-7725 e-7723)
                                 actuals-7726)))))))
           (regen-7401
             (lambda (x-7734)
               (let ((atom-key-7735 (car x-7734)))
                 (if (eqv? atom-key-7735 'ref)
                   (let ((name-7745 (car (cdr x-7734)))
                         (var-7746 (car (cdr x-7734))))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 3)
                       #f
                       name-7745
                       var-7746))
                   (if (eqv? atom-key-7735 'primitive)
                     (let ((name-7758 (car (cdr x-7734))))
                       (if (equal? (module-name (current-module)) '(guile))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 7)
                           #f
                           name-7758)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 5)
                           #f
                           '(guile)
                           name-7758
                           #f)))
                     (if (eqv? atom-key-7735 'quote)
                       (let ((exp-7776 (car (cdr x-7734))))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 1)
                           #f
                           exp-7776))
                       (if (eqv? atom-key-7735 'lambda)
                         (if (list? (car (cdr x-7734)))
                           (let ((req-7787 (car (cdr x-7734)))
                                 (vars-7789 (car (cdr x-7734)))
                                 (exp-7791
                                   (regen-7401 (car (cdr (cdr x-7734))))))
                             (let ((body-7796
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 14)
                                       #f
                                       req-7787
                                       #f
                                       #f
                                       #f
                                       '()
                                       vars-7789
                                       exp-7791
                                       #f)))
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 13)
                                 #f
                                 '()
                                 body-7796)))
                           (error "how did we get here" x-7734))
                         (let ((fun-exp-7812
                                 (let ((name-7821 (car x-7734)))
                                   (if (equal?
                                         (module-name (current-module))
                                         '(guile))
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 7)
                                       #f
                                       name-7821)
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 5)
                                       #f
                                       '(guile)
                                       name-7821
                                       #f))))
                               (arg-exps-7813 (map regen-7401 (cdr x-7734))))
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 11)
                             #f
                             fun-exp-7812
                             arg-exps-7813))))))))))
          (lambda (e-7402 r-7403 w-7404 s-7405 mod-7406)
            (let ((e-7407
                    (wrap-6578
                      (begin
                        (if (if (pair? e-7402) s-7405 #f)
                          (set-source-properties! e-7402 s-7405))
                        e-7402)
                      w-7404
                      mod-7406)))
              (let ((tmp-7409 ($sc-dispatch e-7407 '(_ any))))
                (if tmp-7409
                  (@apply
                    (lambda (x-7434)
                      (call-with-values
                        (lambda ()
                          (gen-syntax-7394
                            e-7407
                            x-7434
                            r-7403
                            '()
                            ellipsis?-6593
                            mod-7406))
                        (lambda (e-7488 maps-7489) (regen-7401 e-7488))))
                    tmp-7409)
                  (syntax-violation
                    'syntax
                    "bad `syntax' form"
                    e-7407)))))))
      (global-extend-6547
        'core
        'lambda
        (lambda (e-8009 r-8010 w-8011 s-8012 mod-8013)
          (let ((tmp-8015
                  ($sc-dispatch e-8009 '(_ any any . each-any))))
            (if tmp-8015
              (@apply
                (lambda (args-8019 e1-8020 e2-8021)
                  (call-with-values
                    (lambda () (lambda-formals-6594 args-8019))
                    (lambda (req-8024 opt-8025 rest-8026 kw-8027)
                      (letrec*
                        ((lp-8028
                           (lambda (body-8031 meta-8032)
                             (let ((tmp-8034
                                     ($sc-dispatch
                                       body-8031
                                       '(any any . each-any))))
                               (if (if tmp-8034
                                     (@apply
                                       (lambda (docstring-8038 e1-8039 e2-8040)
                                         (string?
                                           (syntax->datum docstring-8038)))
                                       tmp-8034)
                                     #f)
                                 (@apply
                                   (lambda (docstring-8041 e1-8042 e2-8043)
                                     (lp-8028
                                       (cons e1-8042 e2-8043)
                                       (append
                                         meta-8032
                                         (list (cons 'documentation
                                                     (syntax->datum
                                                       docstring-8041))))))
                                   tmp-8034)
                                 (let ((tmp-8044
                                         ($sc-dispatch
                                           body-8031
                                           '(#(vector #(each (any . any)))
                                             any
                                             .
                                             each-any))))
                                   (if tmp-8044
                                     (@apply
                                       (lambda (k-8048 v-8049 e1-8050 e2-8051)
                                         (lp-8028
                                           (cons e1-8050 e2-8051)
                                           (append
                                             meta-8032
                                             (syntax->datum
                                               (map cons k-8048 v-8049)))))
                                       tmp-8044)
                                     (expand-simple-lambda-6595
                                       e-8009
                                       r-8010
                                       w-8011
                                       s-8012
                                       mod-8013
                                       req-8024
                                       rest-8026
                                       meta-8032
                                       body-8031))))))))
                        (lp-8028 (cons e1-8020 e2-8021) '())))))
                tmp-8015)
              (syntax-violation 'lambda "bad lambda" e-8009)))))
      (global-extend-6547
        'core
        'lambda*
        (lambda (e-8340 r-8341 w-8342 s-8343 mod-8344)
          (let ((tmp-8346
                  ($sc-dispatch e-8340 '(_ any any . each-any))))
            (if tmp-8346
              (@apply
                (lambda (args-8350 e1-8351 e2-8352)
                  (call-with-values
                    (lambda ()
                      (expand-lambda-case-6597
                        e-8340
                        r-8341
                        w-8342
                        s-8343
                        mod-8344
                        lambda*-formals-6596
                        (list (cons args-8350 (cons e1-8351 e2-8352)))))
                    (lambda (meta-8355 lcase-8356)
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 13)
                        s-8343
                        meta-8355
                        lcase-8356))))
                tmp-8346)
              (syntax-violation 'lambda "bad lambda*" e-8340)))))
      (global-extend-6547
        'core
        'case-lambda
        (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530)
          (let ((tmp-8532
                  ($sc-dispatch
                    e-8526
                    '(_ (any any . each-any)
                        .
                        #(each (any any . each-any))))))
            (if tmp-8532
              (@apply
                (lambda (args-8536
                         e1-8537
                         e2-8538
                         args*-8539
                         e1*-8540
                         e2*-8541)
                  (call-with-values
                    (lambda ()
                      (expand-lambda-case-6597
                        e-8526
                        r-8527
                        w-8528
                        s-8529
                        mod-8530
                        lambda-formals-6594
                        (cons (cons args-8536 (cons e1-8537 e2-8538))
                              (map (lambda (tmp-5448-8544
                                            tmp-5447-8545
                                            tmp-5446-8546)
                                     (cons tmp-5446-8546
                                           (cons tmp-5447-8545 tmp-5448-8544)))
                                   e2*-8541
                                   e1*-8540
                                   args*-8539))))
                    (lambda (meta-8547 lcase-8548)
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 13)
                        s-8529
                        meta-8547
                        lcase-8548))))
                tmp-8532)
              (syntax-violation
                'case-lambda
                "bad case-lambda"
                e-8526)))))
      (global-extend-6547
        'core
        'case-lambda*
        (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714)
          (let ((tmp-8716
                  ($sc-dispatch
                    e-8710
                    '(_ (any any . each-any)
                        .
                        #(each (any any . each-any))))))
            (if tmp-8716
              (@apply
                (lambda (args-8720
                         e1-8721
                         e2-8722
                         args*-8723
                         e1*-8724
                         e2*-8725)
                  (call-with-values
                    (lambda ()
                      (expand-lambda-case-6597
                        e-8710
                        r-8711
                        w-8712
                        s-8713
                        mod-8714
                        lambda*-formals-6596
                        (cons (cons args-8720 (cons e1-8721 e2-8722))
                              (map (lambda (tmp-5483-8728
                                            tmp-5482-8729
                                            tmp-5481-8730)
                                     (cons tmp-5481-8730
                                           (cons tmp-5482-8729 tmp-5483-8728)))
                                   e2*-8725
                                   e1*-8724
                                   args*-8723))))
                    (lambda (meta-8731 lcase-8732)
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 13)
                        s-8713
                        meta-8731
                        lcase-8732))))
                tmp-8716)
              (syntax-violation
                'case-lambda
                "bad case-lambda*"
                e-8710)))))
      (global-extend-6547
        'core
        'let
        (letrec*
          ((expand-let-8923
             (lambda (e-9072
                      r-9073
                      w-9074
                      s-9075
                      mod-9076
                      constructor-9077
                      ids-9078
                      vals-9079
                      exps-9080)
               (if (not (valid-bound-ids?-6575 ids-9078))
                 (syntax-violation
                   'let
                   "duplicate bound variable"
                   e-9072)
                 (let ((labels-9158 (gen-labels-6552 ids-9078))
                       (new-vars-9159 (map gen-var-6599 ids-9078)))
                   (let ((nw-9160
                           (make-binding-wrap-6563
                             ids-9078
                             labels-9158
                             w-9074))
                         (nr-9161
                           (extend-var-env-6544
                             labels-9158
                             new-vars-9159
                             r-9073)))
                     (constructor-9077
                       s-9075
                       (map syntax->datum ids-9078)
                       new-vars-9159
                       (map (lambda (x-9178)
                              (expand-6585 x-9178 r-9073 w-9074 mod-9076))
                            vals-9079)
                       (expand-body-6589
                         exps-9080
                         (source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076)
                         nr-9161
                         nw-9160
                         mod-9076))))))))
          (lambda (e-8924 r-8925 w-8926 s-8927 mod-8928)
            (let ((tmp-8930
                    ($sc-dispatch
                      e-8924
                      '(_ #(each (any any)) any . each-any))))
              (if (if tmp-8930
                    (@apply
                      (lambda (id-8934 val-8935 e1-8936 e2-8937)
                        (and-map id?-6549 id-8934))
                      tmp-8930)
                    #f)
                (@apply
                  (lambda (id-8953 val-8954 e1-8955 e2-8956)
                    (expand-let-8923
                      e-8924
                      r-8925
                      w-8926
                      s-8927
                      mod-8928
                      build-let-6531
                      id-8953
                      val-8954
                      (cons e1-8955 e2-8956)))
                  tmp-8930)
                (let ((tmp-8986
                        ($sc-dispatch
                          e-8924
                          '(_ any #(each (any any)) any . each-any))))
                  (if (if tmp-8986
                        (@apply
                          (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994)
                            (if (if (symbol? f-8990)
                                  #t
                                  (if (if (vector? f-8990)
                                        (if (= (vector-length f-8990) 4)
                                          (eq? (vector-ref f-8990 0)
                                               'syntax-object)
                                          #f)
                                        #f)
                                    (symbol? (vector-ref f-8990 1))
                                    #f))
                              (and-map id?-6549 id-8991)
                              #f))
                          tmp-8986)
                        #f)
                    (@apply
                      (lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040)
                        (expand-let-8923
                          e-8924
                          r-8925
                          w-8926
                          s-8927
                          mod-8928
                          build-named-let-6532
                          (cons f-9036 id-9037)
                          val-9038
                          (cons e1-9039 e2-9040)))
                      tmp-8986)
                    (syntax-violation
                      'let
                      "bad let"
                      (wrap-6578
                        (begin
                          (if (if (pair? e-8924) s-8927 #f)
                            (set-source-properties! e-8924 s-8927))
                          e-8924)
                        w-8926
                        mod-8928)))))))))
      (global-extend-6547
        'core
        'letrec
        (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594)
          (let ((tmp-9596
                  ($sc-dispatch
                    e-9590
                    '(_ #(each (any any)) any . each-any))))
            (if (if tmp-9596
                  (@apply
                    (lambda (id-9600 val-9601 e1-9602 e2-9603)
                      (and-map id?-6549 id-9600))
                    tmp-9596)
                  #f)
              (@apply
                (lambda (id-9619 val-9620 e1-9621 e2-9622)
                  (if (not (valid-bound-ids?-6575 id-9619))
                    (syntax-violation
                      'letrec
                      "duplicate bound variable"
                      e-9590)
                    (let ((labels-9712 (gen-labels-6552 id-9619))
                          (new-vars-9713 (map gen-var-6599 id-9619)))
                      (let ((w-9714
                              (make-binding-wrap-6563
                                id-9619
                                labels-9712
                                w-9592))
                            (r-9715
                              (extend-var-env-6544
                                labels-9712
                                new-vars-9713
                                r-9591)))
                        (build-letrec-6533
                          s-9593
                          #f
                          (map syntax->datum id-9619)
                          new-vars-9713
                          (map (lambda (x-9800)
                                 (expand-6585 x-9800 r-9715 w-9714 mod-9594))
                               val-9620)
                          (expand-body-6589
                            (cons e1-9621 e2-9622)
                            (wrap-6578
                              (begin
                                (if (if (pair? e-9590) s-9593 #f)
                                  (set-source-properties! e-9590 s-9593))
                                e-9590)
                              w-9714
                              mod-9594)
                            r-9715
                            w-9714
                            mod-9594))))))
                tmp-9596)
              (syntax-violation
                'letrec
                "bad letrec"
                (wrap-6578
                  (begin
                    (if (if (pair? e-9590) s-9593 #f)
                      (set-source-properties! e-9590 s-9593))
                    e-9590)
                  w-9592
                  mod-9594))))))
      (global-extend-6547
        'core
        'letrec*
        (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199)
          (let ((tmp-10201
                  ($sc-dispatch
                    e-10195
                    '(_ #(each (any any)) any . each-any))))
            (if (if tmp-10201
                  (@apply
                    (lambda (id-10205 val-10206 e1-10207 e2-10208)
                      (and-map id?-6549 id-10205))
                    tmp-10201)
                  #f)
              (@apply
                (lambda (id-10224 val-10225 e1-10226 e2-10227)
                  (if (not (valid-bound-ids?-6575 id-10224))
                    (syntax-violation
                      'letrec*
                      "duplicate bound variable"
                      e-10195)
                    (let ((labels-10317 (gen-labels-6552 id-10224))
                          (new-vars-10318 (map gen-var-6599 id-10224)))
                      (let ((w-10319
                              (make-binding-wrap-6563
                                id-10224
                                labels-10317
                                w-10197))
                            (r-10320
                              (extend-var-env-6544
                                labels-10317
                                new-vars-10318
                                r-10196)))
                        (build-letrec-6533
                          s-10198
                          #t
                          (map syntax->datum id-10224)
                          new-vars-10318
                          (map (lambda (x-10405)
                                 (expand-6585
                                   x-10405
                                   r-10320
                                   w-10319
                                   mod-10199))
                               val-10225)
                          (expand-body-6589
                            (cons e1-10226 e2-10227)
                            (wrap-6578
                              (begin
                                (if (if (pair? e-10195) s-10198 #f)
                                  (set-source-properties! e-10195 s-10198))
                                e-10195)
                              w-10319
                              mod-10199)
                            r-10320
                            w-10319
                            mod-10199))))))
                tmp-10201)
              (syntax-violation
                'letrec*
                "bad letrec*"
                (wrap-6578
                  (begin
                    (if (if (pair? e-10195) s-10198 #f)
                      (set-source-properties! e-10195 s-10198))
                    e-10195)
                  w-10197
                  mod-10199))))))
      (global-extend-6547
        'core
        'set!
        (lambda (e-10839 r-10840 w-10841 s-10842 mod-10843)
          (let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any))))
            (if (if tmp-10845
                  (@apply
                    (lambda (id-10849 val-10850)
                      (if (symbol? id-10849)
                        #t
                        (if (if (vector? id-10849)
                              (if (= (vector-length id-10849) 4)
                                (eq? (vector-ref id-10849 0) 'syntax-object)
                                #f)
                              #f)
                          (symbol? (vector-ref id-10849 1))
                          #f)))
                    tmp-10845)
                  #f)
              (@apply
                (lambda (id-10877 val-10878)
                  (let ((n-10879 (id-var-name-6568 id-10877 w-10841))
                        (id-mod-10880
                          (if (if (vector? id-10877)
                                (if (= (vector-length id-10877) 4)
                                  (eq? (vector-ref id-10877 0) 'syntax-object)
                                  #f)
                                #f)
                            (vector-ref id-10877 3)
                            mod-10843)))
                    (let ((b-10881
                            (let ((t-10922 (assq n-10879 r-10840)))
                              (if t-10922
                                (cdr t-10922)
                                (if (symbol? n-10879)
                                  (let ((t-10927
                                          (get-global-definition-hook-6512
                                            n-10879
                                            id-mod-10880)))
                                    (if t-10927 t-10927 '(global)))
                                  '(displaced-lexical))))))
                      (let ((atom-key-10882 (car b-10881)))
                        (if (eqv? atom-key-10882 'lexical)
                          (build-lexical-assignment-6520
                            s-10842
                            (syntax->datum id-10877)
                            (cdr b-10881)
                            (expand-6585 val-10878 r-10840 w-10841 mod-10843))
                          (if (eqv? atom-key-10882 'global)
                            (build-global-assignment-6523
                              s-10842
                              n-10879
                              (expand-6585 val-10878 r-10840 w-10841 mod-10843)
                              id-mod-10880)
                            (if (eqv? atom-key-10882 'macro)
                              (let ((p-11241 (cdr b-10881)))
                                (if (procedure-property
                                      p-11241
                                      'variable-transformer)
                                  (expand-6585
                                    (expand-macro-6588
                                      p-11241
                                      e-10839
                                      r-10840
                                      w-10841
                                      s-10842
                                      #f
                                      mod-10843)
                                    r-10840
                                    '(())
                                    mod-10843)
                                  (syntax-violation
                                    'set!
                                    "not a variable transformer"
                                    (wrap-6578 e-10839 w-10841 mod-10843)
                                    (wrap-6578
                                      id-10877
                                      w-10841
                                      id-mod-10880))))
                              (if (eqv? atom-key-10882 'displaced-lexical)
                                (syntax-violation
                                  'set!
                                  "identifier out of context"
                                  (wrap-6578 id-10877 w-10841 mod-10843))
                                (syntax-violation
                                  'set!
                                  "bad set!"
                                  (wrap-6578
                                    (begin
                                      (if (if (pair? e-10839) s-10842 #f)
                                        (set-source-properties!
                                          e-10839
                                          s-10842))
                                      e-10839)
                                    w-10841
                                    mod-10843))))))))))
                tmp-10845)
              (let ((tmp-11336
                      ($sc-dispatch e-10839 '(_ (any . each-any) any))))
                (if tmp-11336
                  (@apply
                    (lambda (head-11340 tail-11341 val-11342)
                      (call-with-values
                        (lambda ()
                          (syntax-type-6584
                            head-11340
                            r-10840
                            '(())
                            #f
                            #f
                            mod-10843
                            #t))
                        (lambda (type-11345
                                 value-11346
                                 formform-11347
                                 ee-11348
                                 ww-11349
                                 ss-11350
                                 modmod-11351)
                          (if (eqv? type-11345 'module-ref)
                            (let ((val-11355
                                    (expand-6585
                                      val-11342
                                      r-10840
                                      w-10841
                                      mod-10843)))
                              (call-with-values
                                (lambda ()
                                  (value-11346
                                    (cons head-11340 tail-11341)
                                    r-10840
                                    w-10841))
                                (lambda (e-11356
                                         r-11357
                                         w-11358
                                         s*-11359
                                         mod-11360)
                                  (let ((tmp-11362 (list e-11356)))
                                    (if (@apply
                                          (lambda (e-11364)
                                            (if (symbol? e-11364)
                                              #t
                                              (if (if (vector? e-11364)
                                                    (if (= (vector-length
                                                             e-11364)
                                                           4)
                                                      (eq? (vector-ref
                                                             e-11364
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
                                                (symbol?
                                                  (vector-ref e-11364 1))
                                                #f)))
                                          tmp-11362)
                                      (@apply
                                        (lambda (e-11394)
                                          (build-global-assignment-6523
                                            s-10842
                                            (syntax->datum e-11394)
                                            val-11355
                                            mod-11360))
                                        tmp-11362)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        e-11356))))))
                            (build-application-6516
                              s-10842
                              (let ((e-11619
                                      (list '#(syntax-object
                                               setter
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(type
                                                    value
                                                    formform
                                                    ee
                                                    ww
                                                    ss
                                                    modmod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("l-*-5730"
                                                    "l-*-5731"
                                                    "l-*-5732"
                                                    "l-*-5733"
                                                    "l-*-5734"
                                                    "l-*-5735"
                                                    "l-*-5736"))
                                                #(ribcage
                                                  #(head tail val)
                                                  #((top) (top) (top))
                                                  #("l-*-5715"
                                                    "l-*-5716"
                                                    "l-*-5717"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(e r w s mod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("l-*-5679"
                                                    "l-*-5680"
                                                    "l-*-5681"
                                                    "l-*-5682"
                                                    "l-*-5683"))
                                                #(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-application
                                                    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=?
                                                    with-transformer-environment
                                                    transformer-environment
                                                    resolve-identifier
                                                    locally-bound-identifiers
                                                    id-var-name
                                                    same-marks?
                                                    join-marks
                                                    join-wraps
                                                    smart-append
                                                    make-binding-wrap
                                                    extend-ribcage!
                                                    make-empty-ribcage
                                                    new-mark
                                                    anti-mark
                                                    the-anti-mark
                                                    top-marked?
                                                    top-wrap
                                                    empty-wrap
                                                    set-ribcage-labels!
                                                    set-ribcage-marks!
                                                    set-ribcage-symnames!
                                                    ribcage-labels
                                                    ribcage-marks
                                                    ribcage-symnames
                                                    ribcage?
                                                    make-ribcage
                                                    gen-labels
                                                    gen-label
                                                    make-rename
                                                    rename-marks
                                                    rename-new
                                                    rename-old
                                                    subst-rename?
                                                    wrap-subst
                                                    wrap-marks
                                                    make-wrap
                                                    id-sym-name&marks
                                                    id-sym-name
                                                    id?
                                                    nonsymbol-id?
                                                    global-extend
                                                    lookup
                                                    macros-only-env
                                                    extend-var-env
                                                    extend-env
                                                    null-env
                                                    binding-value
                                                    binding-type
                                                    make-binding
                                                    arg-check
                                                    source-annotation
                                                    no-source
                                                    set-syntax-object-module!
                                                    set-syntax-object-wrap!
                                                    set-syntax-object-expression!
                                                    syntax-object-module
                                                    syntax-object-wrap
                                                    syntax-object-expression
                                                    syntax-object?
                                                    make-syntax-object
                                                    build-lexical-var
                                                    build-letrec
                                                    build-named-let
                                                    build-let
                                                    build-sequence
                                                    build-data
                                                    build-primref
                                                    build-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-application
                                                    build-void
                                                    maybe-name-value!
                                                    decorate-source
                                                    get-global-definition-hook
                                                    put-global-definition-hook
                                                    session-id
                                                    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-sequence
                                                    make-application
                                                    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)
                                                   (top)
                                                   (top))
                                                  ("l-*-2527"
                                                   "l-*-2525"
                                                   "l-*-2523"
                                                   "l-*-2521"
                                                   "l-*-2519"
                                                   "l-*-2517"
                                                   "l-*-2515"
                                                   "l-*-2513"
                                                   "l-*-2511"
                                                   "l-*-2509"
                                                   "l-*-2507"
                                                   "l-*-2505"
                                                   "l-*-2503"
                                                   "l-*-2501"
                                                   "l-*-2499"
                                                   "l-*-2497"
                                                   "l-*-2495"
                                                   "l-*-2493"
                                                   "l-*-2491"
                                                   "l-*-2489"
                                                   "l-*-2487"
                                                   "l-*-2485"
                                                   "l-*-2483"
                                                   "l-*-2481"
                                                   "l-*-2479"
                                                   "l-*-2477"
                                                   "l-*-2475"
                                                   "l-*-2473"
                                                   "l-*-2471"
                                                   "l-*-2469"
                                                   "l-*-2467"
                                                   "l-*-2465"
                                                   "l-*-2463"
                                                   "l-*-2461"
                                                   "l-*-2459"
                                                   "l-*-2457"
                                                   "l-*-2455"
                                                   "l-*-2453"
                                                   "l-*-2451"
                                                   "l-*-2450"
                                                   "l-*-2448"
                                                   "l-*-2445"
                                                   "l-*-2444"
                                                   "l-*-2443"
                                                   "l-*-2441"
                                                   "l-*-2440"
                                                   "l-*-2438"
                                                   "l-*-2436"
                                                   "l-*-2434"
                                                   "l-*-2432"
                                                   "l-*-2430"
                                                   "l-*-2428"
                                                   "l-*-2426"
                                                   "l-*-2424"
                                                   "l-*-2421"
                                                   "l-*-2419"
                                                   "l-*-2418"
                                                   "l-*-2416"
                                                   "l-*-2414"
                                                   "l-*-2412"
                                                   "l-*-2410"
                                                   "l-*-2409"
                                                   "l-*-2408"
                                                   "l-*-2407"
                                                   "l-*-2405"
                                                   "l-*-2404"
                                                   "l-*-2401"
                                                   "l-*-2399"
                                                   "l-*-2397"
                                                   "l-*-2395"
                                                   "l-*-2393"
                                                   "l-*-2391"
                                                   "l-*-2389"
                                                   "l-*-2388"
                                                   "l-*-2387"
                                                   "l-*-2385"
                                                   "l-*-2383"
                                                   "l-*-2382"
                                                   "l-*-2379"
                                                   "l-*-2378"
                                                   "l-*-2376"
                                                   "l-*-2374"
                                                   "l-*-2372"
                                                   "l-*-2370"
                                                   "l-*-2368"
                                                   "l-*-2366"
                                                   "l-*-2364"
                                                   "l-*-2362"
                                                   "l-*-2360"
                                                   "l-*-2357"
                                                   "l-*-2355"
                                                   "l-*-2353"
                                                   "l-*-2351"
                                                   "l-*-2349"
                                                   "l-*-2347"
                                                   "l-*-2345"
                                                   "l-*-2343"
                                                   "l-*-2341"
                                                   "l-*-2339"
                                                   "l-*-2337"
                                                   "l-*-2335"
                                                   "l-*-2333"
                                                   "l-*-2331"
                                                   "l-*-2329"
                                                   "l-*-2327"
                                                   "l-*-2325"
                                                   "l-*-2323"
                                                   "l-*-2321"
                                                   "l-*-2319"
                                                   "l-*-2317"
                                                   "l-*-2315"
                                                   "l-*-2313"
                                                   "l-*-2311"
                                                   "l-*-2309"
                                                   "l-*-2307"
                                                   "l-*-2306"
                                                   "l-*-2305"
                                                   "l-*-2304"
                                                   "l-*-2303"
                                                   "l-*-2301"
                                                   "l-*-2299"
                                                   "l-*-2297"
                                                   "l-*-2294"
                                                   "l-*-2292"
                                                   "l-*-2290"
                                                   "l-*-2288"
                                                   "l-*-2286"
                                                   "l-*-2284"
                                                   "l-*-2282"
                                                   "l-*-2280"
                                                   "l-*-2278"
                                                   "l-*-2276"
                                                   "l-*-2274"
                                                   "l-*-2272"
                                                   "l-*-2270"
                                                   "l-*-2268"
                                                   "l-*-2266"
                                                   "l-*-2264"
                                                   "l-*-2262"
                                                   "l-*-2260"))
                                                #(ribcage
                                                  (define-structure
                                                    define-expansion-accessors
                                                    define-expansion-constructors)
                                                  ((top) (top) (top))
                                                  ("l-*-2098"
                                                   "l-*-2097"
                                                   "l-*-2096")))
                                               (hygiene guile))
                                            head-11340)))
                                (call-with-values
                                  (lambda ()
                                    (syntax-type-6584
                                      e-11619
                                      r-10840
                                      w-10841
                                      (source-annotation-6542 e-11619)
                                      #f
                                      mod-10843
                                      #f))
                                  (lambda (type-11626
                                           value-11627
                                           form-11628
                                           e-11629
                                           w-11630
                                           s-11631
                                           mod-11632)
                                    (expand-expr-6586
                                      type-11626
                                      value-11627
                                      form-11628
                                      e-11629
                                      r-10840
                                      w-11630
                                      s-11631
                                      mod-11632))))
                              (map (lambda (e-11636)
                                     (call-with-values
                                       (lambda ()
                                         (syntax-type-6584
                                           e-11636
                                           r-10840
                                           w-10841
                                           (source-annotation-6542 e-11636)
                                           #f
                                           mod-10843
                                           #f))
                                       (lambda (type-11651
                                                value-11652
                                                form-11653
                                                e-11654
                                                w-11655
                                                s-11656
                                                mod-11657)
                                         (expand-expr-6586
                                           type-11651
                                           value-11652
                                           form-11653
                                           e-11654
                                           r-10840
                                           w-11655
                                           s-11656
                                           mod-11657))))
                                   (append tail-11341 (list val-11342))))))))
                    tmp-11336)
                  (syntax-violation
                    'set!
                    "bad set!"
                    (wrap-6578
                      (begin
                        (if (if (pair? e-10839) s-10842 #f)
                          (set-source-properties! e-10839 s-10842))
                        e-10839)
                      w-10841
                      mod-10843))))))))
      (module-define!
        (current-module)
        '@
        (make-syntax-transformer
          '@
          'module-ref
          (lambda (e-11700 r-11701 w-11702)
            (let ((tmp-11704
                    ($sc-dispatch e-11700 '(_ each-any any))))
              (if (if tmp-11704
                    (@apply
                      (lambda (mod-11707 id-11708)
                        (if (and-map id?-6549 mod-11707)
                          (if (symbol? id-11708)
                            #t
                            (if (if (vector? id-11708)
                                  (if (= (vector-length id-11708) 4)
                                    (eq? (vector-ref id-11708 0)
                                         'syntax-object)
                                    #f)
                                  #f)
                              (symbol? (vector-ref id-11708 1))
                              #f))
                          #f))
                      tmp-11704)
                    #f)
                (@apply
                  (lambda (mod-11748 id-11749)
                    (values
                      (syntax->datum id-11749)
                      r-11701
                      w-11702
                      #f
                      (syntax->datum
                        (cons '#(syntax-object
                                 public
                                 ((top)
                                  #(ribcage
                                    #(mod id)
                                    #((top) (top))
                                    #("l-*-5778" "l-*-5779"))
                                  #(ribcage () () ())
                                  #(ribcage
                                    #(e r w)
                                    #((top) (top) (top))
                                    #("l-*-5766" "l-*-5767" "l-*-5768"))
                                  #(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-application
                                      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=?
                                      with-transformer-environment
                                      transformer-environment
                                      resolve-identifier
                                      locally-bound-identifiers
                                      id-var-name
                                      same-marks?
                                      join-marks
                                      join-wraps
                                      smart-append
                                      make-binding-wrap
                                      extend-ribcage!
                                      make-empty-ribcage
                                      new-mark
                                      anti-mark
                                      the-anti-mark
                                      top-marked?
                                      top-wrap
                                      empty-wrap
                                      set-ribcage-labels!
                                      set-ribcage-marks!
                                      set-ribcage-symnames!
                                      ribcage-labels
                                      ribcage-marks
                                      ribcage-symnames
                                      ribcage?
                                      make-ribcage
                                      gen-labels
                                      gen-label
                                      make-rename
                                      rename-marks
                                      rename-new
                                      rename-old
                                      subst-rename?
                                      wrap-subst
                                      wrap-marks
                                      make-wrap
                                      id-sym-name&marks
                                      id-sym-name
                                      id?
                                      nonsymbol-id?
                                      global-extend
                                      lookup
                                      macros-only-env
                                      extend-var-env
                                      extend-env
                                      null-env
                                      binding-value
                                      binding-type
                                      make-binding
                                      arg-check
                                      source-annotation
                                      no-source
                                      set-syntax-object-module!
                                      set-syntax-object-wrap!
                                      set-syntax-object-expression!
                                      syntax-object-module
                                      syntax-object-wrap
                                      syntax-object-expression
                                      syntax-object?
                                      make-syntax-object
                                      build-lexical-var
                                      build-letrec
                                      build-named-let
                                      build-let
                                      build-sequence
                                      build-data
                                      build-primref
                                      build-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-application
                                      build-void
                                      maybe-name-value!
                                      decorate-source
                                      get-global-definition-hook
                                      put-global-definition-hook
                                      session-id
                                      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-sequence
                                      make-application
                                      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)
                                     (top)
                                     (top))
                                    ("l-*-2527"
                                     "l-*-2525"
                                     "l-*-2523"
                                     "l-*-2521"
                                     "l-*-2519"
                                     "l-*-2517"
                                     "l-*-2515"
                                     "l-*-2513"
                                     "l-*-2511"
                                     "l-*-2509"
                                     "l-*-2507"
                                     "l-*-2505"
                                     "l-*-2503"
                                     "l-*-2501"
                                     "l-*-2499"
                                     "l-*-2497"
                                     "l-*-2495"
                                     "l-*-2493"
                                     "l-*-2491"
                                     "l-*-2489"
                                     "l-*-2487"
                                     "l-*-2485"
                                     "l-*-2483"
                                     "l-*-2481"
                                     "l-*-2479"
                                     "l-*-2477"
                                     "l-*-2475"
                                     "l-*-2473"
                                     "l-*-2471"
                                     "l-*-2469"
                                     "l-*-2467"
                                     "l-*-2465"
                                     "l-*-2463"
                                     "l-*-2461"
                                     "l-*-2459"
                                     "l-*-2457"
                                     "l-*-2455"
                                     "l-*-2453"
                                     "l-*-2451"
                                     "l-*-2450"
                                     "l-*-2448"
                                     "l-*-2445"
                                     "l-*-2444"
                                     "l-*-2443"
                                     "l-*-2441"
                                     "l-*-2440"
                                     "l-*-2438"
                                     "l-*-2436"
                                     "l-*-2434"
                                     "l-*-2432"
                                     "l-*-2430"
                                     "l-*-2428"
                                     "l-*-2426"
                                     "l-*-2424"
                                     "l-*-2421"
                                     "l-*-2419"
                                     "l-*-2418"
                                     "l-*-2416"
                                     "l-*-2414"
                                     "l-*-2412"
                                     "l-*-2410"
                                     "l-*-2409"
                                     "l-*-2408"
                                     "l-*-2407"
                                     "l-*-2405"
                                     "l-*-2404"
                                     "l-*-2401"
                                     "l-*-2399"
                                     "l-*-2397"
                                     "l-*-2395"
                                     "l-*-2393"
                                     "l-*-2391"
                                     "l-*-2389"
                                     "l-*-2388"
                                     "l-*-2387"
                                     "l-*-2385"
                                     "l-*-2383"
                                     "l-*-2382"
                                     "l-*-2379"
                                     "l-*-2378"
                                     "l-*-2376"
                                     "l-*-2374"
                                     "l-*-2372"
                                     "l-*-2370"
                                     "l-*-2368"
                                     "l-*-2366"
                                     "l-*-2364"
                                     "l-*-2362"
                                     "l-*-2360"
                                     "l-*-2357"
                                     "l-*-2355"
                                     "l-*-2353"
                                     "l-*-2351"
                                     "l-*-2349"
                                     "l-*-2347"
                                     "l-*-2345"
                                     "l-*-2343"
                                     "l-*-2341"
                                     "l-*-2339"
                                     "l-*-2337"
                                     "l-*-2335"
                                     "l-*-2333"
                                     "l-*-2331"
                                     "l-*-2329"
                                     "l-*-2327"
                                     "l-*-2325"
                                     "l-*-2323"
                                     "l-*-2321"
                                     "l-*-2319"
                                     "l-*-2317"
                                     "l-*-2315"
                                     "l-*-2313"
                                     "l-*-2311"
                                     "l-*-2309"
                                     "l-*-2307"
                                     "l-*-2306"
                                     "l-*-2305"
                                     "l-*-2304"
                                     "l-*-2303"
                                     "l-*-2301"
                                     "l-*-2299"
                                     "l-*-2297"
                                     "l-*-2294"
                                     "l-*-2292"
                                     "l-*-2290"
                                     "l-*-2288"
                                     "l-*-2286"
                                     "l-*-2284"
                                     "l-*-2282"
                                     "l-*-2280"
                                     "l-*-2278"
                                     "l-*-2276"
                                     "l-*-2274"
                                     "l-*-2272"
                                     "l-*-2270"
                                     "l-*-2268"
                                     "l-*-2266"
                                     "l-*-2264"
                                     "l-*-2262"
                                     "l-*-2260"))
                                  #(ribcage
                                    (define-structure
                                      define-expansion-accessors
                                      define-expansion-constructors)
                                    ((top) (top) (top))
                                    ("l-*-2098" "l-*-2097" "l-*-2096")))
                                 (hygiene guile))
                              mod-11748))))
                  tmp-11704)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  e-11700))))))
      (global-extend-6547
        'module-ref
        '@@
        (lambda (e-11841 r-11842 w-11843)
          (letrec*
            ((remodulate-11844
               (lambda (x-11879 mod-11880)
                 (if (pair? x-11879)
                   (cons (remodulate-11844 (car x-11879) mod-11880)
                         (remodulate-11844 (cdr x-11879) mod-11880))
                   (if (if (vector? x-11879)
                         (if (= (vector-length x-11879) 4)
                           (eq? (vector-ref x-11879 0) 'syntax-object)
                           #f)
                         #f)
                     (let ((expression-11894
                             (remodulate-11844
                               (vector-ref x-11879 1)
                               mod-11880))
                           (wrap-11895 (vector-ref x-11879 2)))
                       (vector
                         'syntax-object
                         expression-11894
                         wrap-11895
                         mod-11880))
                     (if (vector? x-11879)
                       (let ((n-11903 (vector-length x-11879)))
                         (let ((v-11904 (make-vector n-11903)))
                           (letrec*
                             ((loop-11905
                                (lambda (i-11952)
                                  (if (= i-11952 n-11903)
                                    v-11904
                                    (begin
                                      (vector-set!
                                        v-11904
                                        i-11952
                                        (remodulate-11844
                                          (vector-ref x-11879 i-11952)
                                          mod-11880))
                                      (loop-11905 (#{1+}# i-11952)))))))
                             (loop-11905 0))))
                       x-11879))))))
            (let ((tmp-11846
                    ($sc-dispatch e-11841 '(_ each-any any))))
              (if (if tmp-11846
                    (@apply
                      (lambda (mod-11850 exp-11851)
                        (and-map id?-6549 mod-11850))
                      tmp-11846)
                    #f)
                (@apply
                  (lambda (mod-11867 exp-11868)
                    (let ((mod-11869
                            (syntax->datum
                              (cons '#(syntax-object
                                       private
                                       ((top)
                                        #(ribcage
                                          #(mod exp)
                                          #((top) (top))
                                          #("l-*-5822" "l-*-5823"))
                                        #(ribcage
                                          (remodulate)
                                          ((top))
                                          ("l-*-5789"))
                                        #(ribcage
                                          #(e r w)
                                          #((top) (top) (top))
                                          #("l-*-5786" "l-*-5787" "l-*-5788"))
                                        #(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-application
                                            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=?
                                            with-transformer-environment
                                            transformer-environment
                                            resolve-identifier
                                            locally-bound-identifiers
                                            id-var-name
                                            same-marks?
                                            join-marks
                                            join-wraps
                                            smart-append
                                            make-binding-wrap
                                            extend-ribcage!
                                            make-empty-ribcage
                                            new-mark
                                            anti-mark
                                            the-anti-mark
                                            top-marked?
                                            top-wrap
                                            empty-wrap
                                            set-ribcage-labels!
                                            set-ribcage-marks!
                                            set-ribcage-symnames!
                                            ribcage-labels
                                            ribcage-marks
                                            ribcage-symnames
                                            ribcage?
                                            make-ribcage
                                            gen-labels
                                            gen-label
                                            make-rename
                                            rename-marks
                                            rename-new
                                            rename-old
                                            subst-rename?
                                            wrap-subst
                                            wrap-marks
                                            make-wrap
                                            id-sym-name&marks
                                            id-sym-name
                                            id?
                                            nonsymbol-id?
                                            global-extend
                                            lookup
                                            macros-only-env
                                            extend-var-env
                                            extend-env
                                            null-env
                                            binding-value
                                            binding-type
                                            make-binding
                                            arg-check
                                            source-annotation
                                            no-source
                                            set-syntax-object-module!
                                            set-syntax-object-wrap!
                                            set-syntax-object-expression!
                                            syntax-object-module
                                            syntax-object-wrap
                                            syntax-object-expression
                                            syntax-object?
                                            make-syntax-object
                                            build-lexical-var
                                            build-letrec
                                            build-named-let
                                            build-let
                                            build-sequence
                                            build-data
                                            build-primref
                                            build-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-application
                                            build-void
                                            maybe-name-value!
                                            decorate-source
                                            get-global-definition-hook
                                            put-global-definition-hook
                                            session-id
                                            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-sequence
                                            make-application
                                            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)
                                           (top)
                                           (top))
                                          ("l-*-2527"
                                           "l-*-2525"
                                           "l-*-2523"
                                           "l-*-2521"
                                           "l-*-2519"
                                           "l-*-2517"
                                           "l-*-2515"
                                           "l-*-2513"
                                           "l-*-2511"
                                           "l-*-2509"
                                           "l-*-2507"
                                           "l-*-2505"
                                           "l-*-2503"
                                           "l-*-2501"
                                           "l-*-2499"
                                           "l-*-2497"
                                           "l-*-2495"
                                           "l-*-2493"
                                           "l-*-2491"
                                           "l-*-2489"
                                           "l-*-2487"
                                           "l-*-2485"
                                           "l-*-2483"
                                           "l-*-2481"
                                           "l-*-2479"
                                           "l-*-2477"
                                           "l-*-2475"
                                           "l-*-2473"
                                           "l-*-2471"
                                           "l-*-2469"
                                           "l-*-2467"
                                           "l-*-2465"
                                           "l-*-2463"
                                           "l-*-2461"
                                           "l-*-2459"
                                           "l-*-2457"
                                           "l-*-2455"
                                           "l-*-2453"
                                           "l-*-2451"
                                           "l-*-2450"
                                           "l-*-2448"
                                           "l-*-2445"
                                           "l-*-2444"
                                           "l-*-2443"
                                           "l-*-2441"
                                           "l-*-2440"
                                           "l-*-2438"
                                           "l-*-2436"
                                           "l-*-2434"
                                           "l-*-2432"
                                           "l-*-2430"
                                           "l-*-2428"
                                           "l-*-2426"
                                           "l-*-2424"
                                           "l-*-2421"
                                           "l-*-2419"
                                           "l-*-2418"
                                           "l-*-2416"
                                           "l-*-2414"
                                           "l-*-2412"
                                           "l-*-2410"
                                           "l-*-2409"
                                           "l-*-2408"
                                           "l-*-2407"
                                           "l-*-2405"
                                           "l-*-2404"
                                           "l-*-2401"
                                           "l-*-2399"
                                           "l-*-2397"
                                           "l-*-2395"
                                           "l-*-2393"
                                           "l-*-2391"
                                           "l-*-2389"
                                           "l-*-2388"
                                           "l-*-2387"
                                           "l-*-2385"
                                           "l-*-2383"
                                           "l-*-2382"
                                           "l-*-2379"
                                           "l-*-2378"
                                           "l-*-2376"
                                           "l-*-2374"
                                           "l-*-2372"
                                           "l-*-2370"
                                           "l-*-2368"
                                           "l-*-2366"
                                           "l-*-2364"
                                           "l-*-2362"
                                           "l-*-2360"
                                           "l-*-2357"
                                           "l-*-2355"
                                           "l-*-2353"
                                           "l-*-2351"
                                           "l-*-2349"
                                           "l-*-2347"
                                           "l-*-2345"
                                           "l-*-2343"
                                           "l-*-2341"
                                           "l-*-2339"
                                           "l-*-2337"
                                           "l-*-2335"
                                           "l-*-2333"
                                           "l-*-2331"
                                           "l-*-2329"
                                           "l-*-2327"
                                           "l-*-2325"
                                           "l-*-2323"
                                           "l-*-2321"
                                           "l-*-2319"
                                           "l-*-2317"
                                           "l-*-2315"
                                           "l-*-2313"
                                           "l-*-2311"
                                           "l-*-2309"
                                           "l-*-2307"
                                           "l-*-2306"
                                           "l-*-2305"
                                           "l-*-2304"
                                           "l-*-2303"
                                           "l-*-2301"
                                           "l-*-2299"
                                           "l-*-2297"
                                           "l-*-2294"
                                           "l-*-2292"
                                           "l-*-2290"
                                           "l-*-2288"
                                           "l-*-2286"
                                           "l-*-2284"
                                           "l-*-2282"
                                           "l-*-2280"
                                           "l-*-2278"
                                           "l-*-2276"
                                           "l-*-2274"
                                           "l-*-2272"
                                           "l-*-2270"
                                           "l-*-2268"
                                           "l-*-2266"
                                           "l-*-2264"
                                           "l-*-2262"
                                           "l-*-2260"))
                                        #(ribcage
                                          (define-structure
                                            define-expansion-accessors
                                            define-expansion-constructors)
                                          ((top) (top) (top))
                                          ("l-*-2098" "l-*-2097" "l-*-2096")))
                                       (hygiene guile))
                                    mod-11867))))
                      (values
                        (remodulate-11844 exp-11868 mod-11869)
                        r-11842
                        w-11843
                        (source-annotation-6542 exp-11868)
                        mod-11869)))
                  tmp-11846)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  e-11841))))))
      (global-extend-6547
        'core
        'if
        (lambda (e-12053 r-12054 w-12055 s-12056 mod-12057)
          (let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any))))
            (if tmp-12059
              (@apply
                (lambda (test-12063 then-12064)
                  (build-conditional-6517
                    s-12056
                    (expand-6585
                      test-12063
                      r-12054
                      w-12055
                      mod-12057)
                    (expand-6585
                      then-12064
                      r-12054
                      w-12055
                      mod-12057)
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 0)
                      #f)))
                tmp-12059)
              (let ((tmp-12289
                      ($sc-dispatch e-12053 '(_ any any any))))
                (if tmp-12289
                  (@apply
                    (lambda (test-12293 then-12294 else-12295)
                      (build-conditional-6517
                        s-12056
                        (expand-6585
                          test-12293
                          r-12054
                          w-12055
                          mod-12057)
                        (expand-6585
                          then-12294
                          r-12054
                          w-12055
                          mod-12057)
                        (expand-6585
                          else-12295
                          r-12054
                          w-12055
                          mod-12057)))
                    tmp-12289)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    e-12053)))))))
      (global-extend-6547
        'core
        'with-fluids
        (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698)
          (let ((tmp-12700
                  ($sc-dispatch
                    e-12694
                    '(_ #(each (any any)) any . each-any))))
            (if tmp-12700
              (@apply
                (lambda (fluid-12704 val-12705 b-12706 b*-12707)
                  (build-dynlet-6518
                    s-12697
                    (map (lambda (x-12788)
                           (expand-6585 x-12788 r-12695 w-12696 mod-12698))
                         fluid-12704)
                    (map (lambda (x-12858)
                           (expand-6585 x-12858 r-12695 w-12696 mod-12698))
                         val-12705)
                    (expand-body-6589
                      (cons b-12706 b*-12707)
                      (wrap-6578
                        (begin
                          (if (if (pair? e-12694) s-12697 #f)
                            (set-source-properties! e-12694 s-12697))
                          e-12694)
                        w-12696
                        mod-12698)
                      r-12695
                      w-12696
                      mod-12698)))
                tmp-12700)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                e-12694)))))
      (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-6547
        'core
        'syntax-case
        (letrec*
          ((convert-pattern-13226
             (lambda (pattern-14823 keys-14824)
               (letrec*
                 ((cvt*-14825
                    (lambda (p*-15449 n-15450 ids-15451)
                      (if (not (pair? p*-15449))
                        (cvt-14827 p*-15449 n-15450 ids-15451)
                        (call-with-values
                          (lambda ()
                            (cvt*-14825 (cdr p*-15449) n-15450 ids-15451))
                          (lambda (y-15454 ids-15455)
                            (call-with-values
                              (lambda ()
                                (cvt-14827 (car p*-15449) n-15450 ids-15455))
                              (lambda (x-15458 ids-15459)
                                (values
                                  (cons x-15458 y-15454)
                                  ids-15459))))))))
                  (v-reverse-14826
                    (lambda (x-15460)
                      (letrec*
                        ((loop-15461
                           (lambda (r-15541 x-15542)
                             (if (not (pair? x-15542))
                               (values r-15541 x-15542)
                               (loop-15461
                                 (cons (car x-15542) r-15541)
                                 (cdr x-15542))))))
                        (loop-15461 '() x-15460))))
                  (cvt-14827
                    (lambda (p-14830 n-14831 ids-14832)
                      (if (if (symbol? p-14830)
                            #t
                            (if (if (vector? p-14830)
                                  (if (= (vector-length p-14830) 4)
                                    (eq? (vector-ref p-14830 0) 'syntax-object)
                                    #f)
                                  #f)
                              (symbol? (vector-ref p-14830 1))
                              #f))
                        (if (bound-id-member?-6577 p-14830 keys-14824)
                          (values (vector 'free-id p-14830) ids-14832)
                          (if (if (eq? (if (if (vector? p-14830)
                                             (if (= (vector-length p-14830) 4)
                                               (eq? (vector-ref p-14830 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
                                         (vector-ref p-14830 1)
                                         p-14830)
                                       (if (if (= (vector-length
                                                    '#(syntax-object
                                                       _
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(p n ids)
                                                          #((top) (top) (top))
                                                          #("l-*-5923"
                                                            "l-*-5924"
                                                            "l-*-5925"))
                                                        #(ribcage
                                                          (cvt v-reverse cvt*)
                                                          ((top) (top) (top))
                                                          ("l-*-5896"
                                                           "l-*-5894"
                                                           "l-*-5892"))
                                                        #(ribcage
                                                          #(pattern keys)
                                                          #((top) (top))
                                                          #("l-*-5890"
                                                            "l-*-5891"))
                                                        #(ribcage
                                                          (gen-syntax-case
                                                            gen-clause
                                                            build-dispatch-call
                                                            convert-pattern)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("l-*-5886"
                                                           "l-*-5884"
                                                           "l-*-5882"
                                                           "l-*-5880"))
                                                        #(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-application
                                                            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=?
                                                            with-transformer-environment
                                                            transformer-environment
                                                            resolve-identifier
                                                            locally-bound-identifiers
                                                            id-var-name
                                                            same-marks?
                                                            join-marks
                                                            join-wraps
                                                            smart-append
                                                            make-binding-wrap
                                                            extend-ribcage!
                                                            make-empty-ribcage
                                                            new-mark
                                                            anti-mark
                                                            the-anti-mark
                                                            top-marked?
                                                            top-wrap
                                                            empty-wrap
                                                            set-ribcage-labels!
                                                            set-ribcage-marks!
                                                            set-ribcage-symnames!
                                                            ribcage-labels
                                                            ribcage-marks
                                                            ribcage-symnames
                                                            ribcage?
                                                            make-ribcage
                                                            gen-labels
                                                            gen-label
                                                            make-rename
                                                            rename-marks
                                                            rename-new
                                                            rename-old
                                                            subst-rename?
                                                            wrap-subst
                                                            wrap-marks
                                                            make-wrap
                                                            id-sym-name&marks
                                                            id-sym-name
                                                            id?
                                                            nonsymbol-id?
                                                            global-extend
                                                            lookup
                                                            macros-only-env
                                                            extend-var-env
                                                            extend-env
                                                            null-env
                                                            binding-value
                                                            binding-type
                                                            make-binding
                                                            arg-check
                                                            source-annotation
                                                            no-source
                                                            set-syntax-object-module!
                                                            set-syntax-object-wrap!
                                                            set-syntax-object-expression!
                                                            syntax-object-module
                                                            syntax-object-wrap
                                                            syntax-object-expression
                                                            syntax-object?
                                                            make-syntax-object
                                                            build-lexical-var
                                                            build-letrec
                                                            build-named-let
                                                            build-let
                                                            build-sequence
                                                            build-data
                                                            build-primref
                                                            build-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-application
                                                            build-void
                                                            maybe-name-value!
                                                            decorate-source
                                                            get-global-definition-hook
                                                            put-global-definition-hook
                                                            session-id
                                                            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-sequence
                                                            make-application
                                                            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)
                                                           (top)
                                                           (top))
                                                          ("l-*-2527"
                                                           "l-*-2525"
                                                           "l-*-2523"
                                                           "l-*-2521"
                                                           "l-*-2519"
                                                           "l-*-2517"
                                                           "l-*-2515"
                                                           "l-*-2513"
                                                           "l-*-2511"
                                                           "l-*-2509"
                                                           "l-*-2507"
                                                           "l-*-2505"
                                                           "l-*-2503"
                                                           "l-*-2501"
                                                           "l-*-2499"
                                                           "l-*-2497"
                                                           "l-*-2495"
                                                           "l-*-2493"
                                                           "l-*-2491"
                                                           "l-*-2489"
                                                           "l-*-2487"
                                                           "l-*-2485"
                                                           "l-*-2483"
                                                           "l-*-2481"
                                                           "l-*-2479"
                                                           "l-*-2477"
                                                           "l-*-2475"
                                                           "l-*-2473"
                                                           "l-*-2471"
                                                           "l-*-2469"
                                                           "l-*-2467"
                                                           "l-*-2465"
                                                           "l-*-2463"
                                                           "l-*-2461"
                                                           "l-*-2459"
                                                           "l-*-2457"
                                                           "l-*-2455"
                                                           "l-*-2453"
                                                           "l-*-2451"
                                                           "l-*-2450"
                                                           "l-*-2448"
                                                           "l-*-2445"
                                                           "l-*-2444"
                                                           "l-*-2443"
                                                           "l-*-2441"
                                                           "l-*-2440"
                                                           "l-*-2438"
                                                           "l-*-2436"
                                                           "l-*-2434"
                                                           "l-*-2432"
                                                           "l-*-2430"
                                                           "l-*-2428"
                                                           "l-*-2426"
                                                           "l-*-2424"
                                                           "l-*-2421"
                                                           "l-*-2419"
                                                           "l-*-2418"
                                                           "l-*-2416"
                                                           "l-*-2414"
                                                           "l-*-2412"
                                                           "l-*-2410"
                                                           "l-*-2409"
                                                           "l-*-2408"
                                                           "l-*-2407"
                                                           "l-*-2405"
                                                           "l-*-2404"
                                                           "l-*-2401"
                                                           "l-*-2399"
                                                           "l-*-2397"
                                                           "l-*-2395"
                                                           "l-*-2393"
                                                           "l-*-2391"
                                                           "l-*-2389"
                                                           "l-*-2388"
                                                           "l-*-2387"
                                                           "l-*-2385"
                                                           "l-*-2383"
                                                           "l-*-2382"
                                                           "l-*-2379"
                                                           "l-*-2378"
                                                           "l-*-2376"
                                                           "l-*-2374"
                                                           "l-*-2372"
                                                           "l-*-2370"
                                                           "l-*-2368"
                                                           "l-*-2366"
                                                           "l-*-2364"
                                                           "l-*-2362"
                                                           "l-*-2360"
                                                           "l-*-2357"
                                                           "l-*-2355"
                                                           "l-*-2353"
                                                           "l-*-2351"
                                                           "l-*-2349"
                                                           "l-*-2347"
                                                           "l-*-2345"
                                                           "l-*-2343"
                                                           "l-*-2341"
                                                           "l-*-2339"
                                                           "l-*-2337"
                                                           "l-*-2335"
                                                           "l-*-2333"
                                                           "l-*-2331"
                                                           "l-*-2329"
                                                           "l-*-2327"
                                                           "l-*-2325"
                                                           "l-*-2323"
                                                           "l-*-2321"
                                                           "l-*-2319"
                                                           "l-*-2317"
                                                           "l-*-2315"
                                                           "l-*-2313"
                                                           "l-*-2311"
                                                           "l-*-2309"
                                                           "l-*-2307"
                                                           "l-*-2306"
                                                           "l-*-2305"
                                                           "l-*-2304"
                                                           "l-*-2303"
                                                           "l-*-2301"
                                                           "l-*-2299"
                                                           "l-*-2297"
                                                           "l-*-2294"
                                                           "l-*-2292"
                                                           "l-*-2290"
                                                           "l-*-2288"
                                                           "l-*-2286"
                                                           "l-*-2284"
                                                           "l-*-2282"
                                                           "l-*-2280"
                                                           "l-*-2278"
                                                           "l-*-2276"
                                                           "l-*-2274"
                                                           "l-*-2272"
                                                           "l-*-2270"
                                                           "l-*-2268"
                                                           "l-*-2266"
                                                           "l-*-2264"
                                                           "l-*-2262"
                                                           "l-*-2260"))
                                                        #(ribcage
                                                          (define-structure
                                                            define-expansion-accessors
                                                            define-expansion-constructors)
                                                          ((top) (top) (top))
                                                          ("l-*-2098"
                                                           "l-*-2097"
                                                           "l-*-2096")))
                                                       (hygiene guile)))
                                                  4)
                                             #t
                                             #f)
                                         '_
                                         '#(syntax-object
                                            _
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(p n ids)
                                               #((top) (top) (top))
                                               #("l-*-5923"
                                                 "l-*-5924"
                                                 "l-*-5925"))
                                             #(ribcage
                                               (cvt v-reverse cvt*)
                                               ((top) (top) (top))
                                               ("l-*-5896"
                                                "l-*-5894"
                                                "l-*-5892"))
                                             #(ribcage
                                               #(pattern keys)
                                               #((top) (top))
                                               #("l-*-5890" "l-*-5891"))
                                             #(ribcage
                                               (gen-syntax-case
                                                 gen-clause
                                                 build-dispatch-call
                                                 convert-pattern)
                                               ((top) (top) (top) (top))
                                               ("l-*-5886"
                                                "l-*-5884"
                                                "l-*-5882"
                                                "l-*-5880"))
                                             #(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-application
                                                 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=?
                                                 with-transformer-environment
                                                 transformer-environment
                                                 resolve-identifier
                                                 locally-bound-identifiers
                                                 id-var-name
                                                 same-marks?
                                                 join-marks
                                                 join-wraps
                                                 smart-append
                                                 make-binding-wrap
                                                 extend-ribcage!
                                                 make-empty-ribcage
                                                 new-mark
                                                 anti-mark
                                                 the-anti-mark
                                                 top-marked?
                                                 top-wrap
                                                 empty-wrap
                                                 set-ribcage-labels!
                                                 set-ribcage-marks!
                                                 set-ribcage-symnames!
                                                 ribcage-labels
                                                 ribcage-marks
                                                 ribcage-symnames
                                                 ribcage?
                                                 make-ribcage
                                                 gen-labels
                                                 gen-label
                                                 make-rename
                                                 rename-marks
                                                 rename-new
                                                 rename-old
                                                 subst-rename?
                                                 wrap-subst
                                                 wrap-marks
                                                 make-wrap
                                                 id-sym-name&marks
                                                 id-sym-name
                                                 id?
                                                 nonsymbol-id?
                                                 global-extend
                                                 lookup
                                                 macros-only-env
                                                 extend-var-env
                                                 extend-env
                                                 null-env
                                                 binding-value
                                                 binding-type
                                                 make-binding
                                                 arg-check
                                                 source-annotation
                                                 no-source
                                                 set-syntax-object-module!
                                                 set-syntax-object-wrap!
                                                 set-syntax-object-expression!
                                                 syntax-object-module
                                                 syntax-object-wrap
                                                 syntax-object-expression
                                                 syntax-object?
                                                 make-syntax-object
                                                 build-lexical-var
                                                 build-letrec
                                                 build-named-let
                                                 build-let
                                                 build-sequence
                                                 build-data
                                                 build-primref
                                                 build-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-application
                                                 build-void
                                                 maybe-name-value!
                                                 decorate-source
                                                 get-global-definition-hook
                                                 put-global-definition-hook
                                                 session-id
                                                 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-sequence
                                                 make-application
                                                 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)
                                                (top)
                                                (top))
                                               ("l-*-2527"
                                                "l-*-2525"
                                                "l-*-2523"
                                                "l-*-2521"
                                                "l-*-2519"
                                                "l-*-2517"
                                                "l-*-2515"
                                                "l-*-2513"
                                                "l-*-2511"
                                                "l-*-2509"
                                                "l-*-2507"
                                                "l-*-2505"
                                                "l-*-2503"
                                                "l-*-2501"
                                                "l-*-2499"
                                                "l-*-2497"
                                                "l-*-2495"
                                                "l-*-2493"
                                                "l-*-2491"
                                                "l-*-2489"
                                                "l-*-2487"
                                                "l-*-2485"
                                                "l-*-2483"
                                                "l-*-2481"
                                                "l-*-2479"
                                                "l-*-2477"
                                                "l-*-2475"
                                                "l-*-2473"
                                                "l-*-2471"
                                                "l-*-2469"
                                                "l-*-2467"
                                                "l-*-2465"
                                                "l-*-2463"
                                                "l-*-2461"
                                                "l-*-2459"
                                                "l-*-2457"
                                                "l-*-2455"
                                                "l-*-2453"
                                                "l-*-2451"
                                                "l-*-2450"
                                                "l-*-2448"
                                                "l-*-2445"
                                                "l-*-2444"
                                                "l-*-2443"
                                                "l-*-2441"
                                                "l-*-2440"
                                                "l-*-2438"
                                                "l-*-2436"
                                                "l-*-2434"
                                                "l-*-2432"
                                                "l-*-2430"
                                                "l-*-2428"
                                                "l-*-2426"
                                                "l-*-2424"
                                                "l-*-2421"
                                                "l-*-2419"
                                                "l-*-2418"
                                                "l-*-2416"
                                                "l-*-2414"
                                                "l-*-2412"
                                                "l-*-2410"
                                                "l-*-2409"
                                                "l-*-2408"
                                                "l-*-2407"
                                                "l-*-2405"
                                                "l-*-2404"
                                                "l-*-2401"
                                                "l-*-2399"
                                                "l-*-2397"
                                                "l-*-2395"
                                                "l-*-2393"
                                                "l-*-2391"
                                                "l-*-2389"
                                                "l-*-2388"
                                                "l-*-2387"
                                                "l-*-2385"
                                                "l-*-2383"
                                                "l-*-2382"
                                                "l-*-2379"
                                                "l-*-2378"
                                                "l-*-2376"
                                                "l-*-2374"
                                                "l-*-2372"
                                                "l-*-2370"
                                                "l-*-2368"
                                                "l-*-2366"
                                                "l-*-2364"
                                                "l-*-2362"
                                                "l-*-2360"
                                                "l-*-2357"
                                                "l-*-2355"
                                                "l-*-2353"
                                                "l-*-2351"
                                                "l-*-2349"
                                                "l-*-2347"
                                                "l-*-2345"
                                                "l-*-2343"
                                                "l-*-2341"
                                                "l-*-2339"
                                                "l-*-2337"
                                                "l-*-2335"
                                                "l-*-2333"
                                                "l-*-2331"
                                                "l-*-2329"
                                                "l-*-2327"
                                                "l-*-2325"
                                                "l-*-2323"
                                                "l-*-2321"
                                                "l-*-2319"
                                                "l-*-2317"
                                                "l-*-2315"
                                                "l-*-2313"
                                                "l-*-2311"
                                                "l-*-2309"
                                                "l-*-2307"
                                                "l-*-2306"
                                                "l-*-2305"
                                                "l-*-2304"
                                                "l-*-2303"
                                                "l-*-2301"
                                                "l-*-2299"
                                                "l-*-2297"
                                                "l-*-2294"
                                                "l-*-2292"
                                                "l-*-2290"
                                                "l-*-2288"
                                                "l-*-2286"
                                                "l-*-2284"
                                                "l-*-2282"
                                                "l-*-2280"
                                                "l-*-2278"
                                                "l-*-2276"
                                                "l-*-2274"
                                                "l-*-2272"
                                                "l-*-2270"
                                                "l-*-2268"
                                                "l-*-2266"
                                                "l-*-2264"
                                                "l-*-2262"
                                                "l-*-2260"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors)
                                               ((top) (top) (top))
                                               ("l-*-2098"
                                                "l-*-2097"
                                                "l-*-2096")))
                                            (hygiene guile))))
                                (eq? (id-var-name-6568 p-14830 '(()))
                                     (id-var-name-6568
                                       '#(syntax-object
                                          _
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p n ids)
                                             #((top) (top) (top))
                                             #("l-*-5923"
                                               "l-*-5924"
                                               "l-*-5925"))
                                           #(ribcage
                                             (cvt v-reverse cvt*)
                                             ((top) (top) (top))
                                             ("l-*-5896"
                                              "l-*-5894"
                                              "l-*-5892"))
                                           #(ribcage
                                             #(pattern keys)
                                             #((top) (top))
                                             #("l-*-5890" "l-*-5891"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
                                             ("l-*-5886"
                                              "l-*-5884"
                                              "l-*-5882"
                                              "l-*-5880"))
                                           #(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-application
                                               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=?
                                               with-transformer-environment
                                               transformer-environment
                                               resolve-identifier
                                               locally-bound-identifiers
                                               id-var-name
                                               same-marks?
                                               join-marks
                                               join-wraps
                                               smart-append
                                               make-binding-wrap
                                               extend-ribcage!
                                               make-empty-ribcage
                                               new-mark
                                               anti-mark
                                               the-anti-mark
                                               top-marked?
                                               top-wrap
                                               empty-wrap
                                               set-ribcage-labels!
                                               set-ribcage-marks!
                                               set-ribcage-symnames!
                                               ribcage-labels
                                               ribcage-marks
                                               ribcage-symnames
                                               ribcage?
                                               make-ribcage
                                               gen-labels
                                               gen-label
                                               make-rename
                                               rename-marks
                                               rename-new
                                               rename-old
                                               subst-rename?
                                               wrap-subst
                                               wrap-marks
                                               make-wrap
                                               id-sym-name&marks
                                               id-sym-name
                                               id?
                                               nonsymbol-id?
                                               global-extend
                                               lookup
                                               macros-only-env
                                               extend-var-env
                                               extend-env
                                               null-env
                                               binding-value
                                               binding-type
                                               make-binding
                                               arg-check
                                               source-annotation
                                               no-source
                                               set-syntax-object-module!
                                               set-syntax-object-wrap!
                                               set-syntax-object-expression!
                                               syntax-object-module
                                               syntax-object-wrap
                                               syntax-object-expression
                                               syntax-object?
                                               make-syntax-object
                                               build-lexical-var
                                               build-letrec
                                               build-named-let
                                               build-let
                                               build-sequence
                                               build-data
                                               build-primref
                                               build-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-application
                                               build-void
                                               maybe-name-value!
                                               decorate-source
                                               get-global-definition-hook
                                               put-global-definition-hook
                                               session-id
                                               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-sequence
                                               make-application
                                               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)
                                              (top)
                                              (top))
                                             ("l-*-2527"
                                              "l-*-2525"
                                              "l-*-2523"
                                              "l-*-2521"
                                              "l-*-2519"
                                              "l-*-2517"
                                              "l-*-2515"
                                              "l-*-2513"
                                              "l-*-2511"
                                              "l-*-2509"
                                              "l-*-2507"
                                              "l-*-2505"
                                              "l-*-2503"
                                              "l-*-2501"
                                              "l-*-2499"
                                              "l-*-2497"
                                              "l-*-2495"
                                              "l-*-2493"
                                              "l-*-2491"
                                              "l-*-2489"
                                              "l-*-2487"
                                              "l-*-2485"
                                              "l-*-2483"
                                              "l-*-2481"
                                              "l-*-2479"
                                              "l-*-2477"
                                              "l-*-2475"
                                              "l-*-2473"
                                              "l-*-2471"
                                              "l-*-2469"
                                              "l-*-2467"
                                              "l-*-2465"
                                              "l-*-2463"
                                              "l-*-2461"
                                              "l-*-2459"
                                              "l-*-2457"
                                              "l-*-2455"
                                              "l-*-2453"
                                              "l-*-2451"
                                              "l-*-2450"
                                              "l-*-2448"
                                              "l-*-2445"
                                              "l-*-2444"
                                              "l-*-2443"
                                              "l-*-2441"
                                              "l-*-2440"
                                              "l-*-2438"
                                              "l-*-2436"
                                              "l-*-2434"
                                              "l-*-2432"
                                              "l-*-2430"
                                              "l-*-2428"
                                              "l-*-2426"
                                              "l-*-2424"
                                              "l-*-2421"
                                              "l-*-2419"
                                              "l-*-2418"
                                              "l-*-2416"
                                              "l-*-2414"
                                              "l-*-2412"
                                              "l-*-2410"
                                              "l-*-2409"
                                              "l-*-2408"
                                              "l-*-2407"
                                              "l-*-2405"
                                              "l-*-2404"
                                              "l-*-2401"
                                              "l-*-2399"
                                              "l-*-2397"
                                              "l-*-2395"
                                              "l-*-2393"
                                              "l-*-2391"
                                              "l-*-2389"
                                              "l-*-2388"
                                              "l-*-2387"
                                              "l-*-2385"
                                              "l-*-2383"
                                              "l-*-2382"
                                              "l-*-2379"
                                              "l-*-2378"
                                              "l-*-2376"
                                              "l-*-2374"
                                              "l-*-2372"
                                              "l-*-2370"
                                              "l-*-2368"
                                              "l-*-2366"
                                              "l-*-2364"
                                              "l-*-2362"
                                              "l-*-2360"
                                              "l-*-2357"
                                              "l-*-2355"
                                              "l-*-2353"
                                              "l-*-2351"
                                              "l-*-2349"
                                              "l-*-2347"
                                              "l-*-2345"
                                              "l-*-2343"
                                              "l-*-2341"
                                              "l-*-2339"
                                              "l-*-2337"
                                              "l-*-2335"
                                              "l-*-2333"
                                              "l-*-2331"
                                              "l-*-2329"
                                              "l-*-2327"
                                              "l-*-2325"
                                              "l-*-2323"
                                              "l-*-2321"
                                              "l-*-2319"
                                              "l-*-2317"
                                              "l-*-2315"
                                              "l-*-2313"
                                              "l-*-2311"
                                              "l-*-2309"
                                              "l-*-2307"
                                              "l-*-2306"
                                              "l-*-2305"
                                              "l-*-2304"
                                              "l-*-2303"
                                              "l-*-2301"
                                              "l-*-2299"
                                              "l-*-2297"
                                              "l-*-2294"
                                              "l-*-2292"
                                              "l-*-2290"
                                              "l-*-2288"
                                              "l-*-2286"
                                              "l-*-2284"
                                              "l-*-2282"
                                              "l-*-2280"
                                              "l-*-2278"
                                              "l-*-2276"
                                              "l-*-2274"
                                              "l-*-2272"
                                              "l-*-2270"
                                              "l-*-2268"
                                              "l-*-2266"
                                              "l-*-2264"
                                              "l-*-2262"
                                              "l-*-2260"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors)
                                             ((top) (top) (top))
                                             ("l-*-2098"
                                              "l-*-2097"
                                              "l-*-2096")))
                                          (hygiene guile))
                                       '(())))
                                #f)
                            (values '_ ids-14832)
                            (values
                              'any
                              (cons (cons p-14830 n-14831) ids-14832))))
                        (let ((tmp-15152 ($sc-dispatch p-14830 '(any any))))
                          (if (if tmp-15152
                                (@apply
                                  (lambda (x-15156 dots-15157)
                                    (if (if (if (vector? dots-15157)
                                              (if (= (vector-length dots-15157)
                                                     4)
                                                (eq? (vector-ref dots-15157 0)
                                                     'syntax-object)
                                                #f)
                                              #f)
                                          (symbol? (vector-ref dots-15157 1))
                                          #f)
                                      (if (eq? (if (if (vector? dots-15157)
                                                     (if (= (vector-length
                                                              dots-15157)
                                                            4)
                                                       (eq? (vector-ref
                                                              dots-15157
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (vector-ref dots-15157 1)
                                                 dots-15157)
                                               (if (if (= (vector-length
                                                            '#(syntax-object
                                                               ...
                                                               ((top)
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
                                                                  #("l-*-4404"))
                                                                #(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-application
                                                                    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=?
                                                                    with-transformer-environment
                                                                    transformer-environment
                                                                    resolve-identifier
                                                                    locally-bound-identifiers
                                                                    id-var-name
                                                                    same-marks?
                                                                    join-marks
                                                                    join-wraps
                                                                    smart-append
                                                                    make-binding-wrap
                                                                    extend-ribcage!
                                                                    make-empty-ribcage
                                                                    new-mark
                                                                    anti-mark
                                                                    the-anti-mark
                                                                    top-marked?
                                                                    top-wrap
                                                                    empty-wrap
                                                                    set-ribcage-labels!
                                                                    set-ribcage-marks!
                                                                    set-ribcage-symnames!
                                                                    ribcage-labels
                                                                    ribcage-marks
                                                                    ribcage-symnames
                                                                    ribcage?
                                                                    make-ribcage
                                                                    gen-labels
                                                                    gen-label
                                                                    make-rename
                                                                    rename-marks
                                                                    rename-new
                                                                    rename-old
                                                                    subst-rename?
                                                                    wrap-subst
                                                                    wrap-marks
                                                                    make-wrap
                                                                    id-sym-name&marks
                                                                    id-sym-name
                                                                    id?
                                                                    nonsymbol-id?
                                                                    global-extend
                                                                    lookup
                                                                    macros-only-env
                                                                    extend-var-env
                                                                    extend-env
                                                                    null-env
                                                                    binding-value
                                                                    binding-type
                                                                    make-binding
                                                                    arg-check
                                                                    source-annotation
                                                                    no-source
                                                                    set-syntax-object-module!
                                                                    set-syntax-object-wrap!
                                                                    set-syntax-object-expression!
                                                                    syntax-object-module
                                                                    syntax-object-wrap
                                                                    syntax-object-expression
                                                                    syntax-object?
                                                                    make-syntax-object
                                                                    build-lexical-var
                                                                    build-letrec
                                                                    build-named-let
                                                                    build-let
                                                                    build-sequence
                                                                    build-data
                                                                    build-primref
                                                                    build-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-application
                                                                    build-void
                                                                    maybe-name-value!
                                                                    decorate-source
                                                                    get-global-definition-hook
                                                                    put-global-definition-hook
                                                                    session-id
                                                                    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-sequence
                                                                    make-application
                                                                    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)
                                                                   (top)
                                                                   (top))
                                                                  ("l-*-2527"
                                                                   "l-*-2525"
                                                                   "l-*-2523"
                                                                   "l-*-2521"
                                                                   "l-*-2519"
                                                                   "l-*-2517"
                                                                   "l-*-2515"
                                                                   "l-*-2513"
                                                                   "l-*-2511"
                                                                   "l-*-2509"
                                                                   "l-*-2507"
                                                                   "l-*-2505"
                                                                   "l-*-2503"
                                                                   "l-*-2501"
                                                                   "l-*-2499"
                                                                   "l-*-2497"
                                                                   "l-*-2495"
                                                                   "l-*-2493"
                                                                   "l-*-2491"
                                                                   "l-*-2489"
                                                                   "l-*-2487"
                                                                   "l-*-2485"
                                                                   "l-*-2483"
                                                                   "l-*-2481"
                                                                   "l-*-2479"
                                                                   "l-*-2477"
                                                                   "l-*-2475"
                                                                   "l-*-2473"
                                                                   "l-*-2471"
                                                                   "l-*-2469"
                                                                   "l-*-2467"
                                                                   "l-*-2465"
                                                                   "l-*-2463"
                                                                   "l-*-2461"
                                                                   "l-*-2459"
                                                                   "l-*-2457"
                                                                   "l-*-2455"
                                                                   "l-*-2453"
                                                                   "l-*-2451"
                                                                   "l-*-2450"
                                                                   "l-*-2448"
                                                                   "l-*-2445"
                                                                   "l-*-2444"
                                                                   "l-*-2443"
                                                                   "l-*-2441"
                                                                   "l-*-2440"
                                                                   "l-*-2438"
                                                                   "l-*-2436"
                                                                   "l-*-2434"
                                                                   "l-*-2432"
                                                                   "l-*-2430"
                                                                   "l-*-2428"
                                                                   "l-*-2426"
                                                                   "l-*-2424"
                                                                   "l-*-2421"
                                                                   "l-*-2419"
                                                                   "l-*-2418"
                                                                   "l-*-2416"
                                                                   "l-*-2414"
                                                                   "l-*-2412"
                                                                   "l-*-2410"
                                                                   "l-*-2409"
                                                                   "l-*-2408"
                                                                   "l-*-2407"
                                                                   "l-*-2405"
                                                                   "l-*-2404"
                                                                   "l-*-2401"
                                                                   "l-*-2399"
                                                                   "l-*-2397"
                                                                   "l-*-2395"
                                                                   "l-*-2393"
                                                                   "l-*-2391"
                                                                   "l-*-2389"
                                                                   "l-*-2388"
                                                                   "l-*-2387"
                                                                   "l-*-2385"
                                                                   "l-*-2383"
                                                                   "l-*-2382"
                                                                   "l-*-2379"
                                                                   "l-*-2378"
                                                                   "l-*-2376"
                                                                   "l-*-2374"
                                                                   "l-*-2372"
                                                                   "l-*-2370"
                                                                   "l-*-2368"
                                                                   "l-*-2366"
                                                                   "l-*-2364"
                                                                   "l-*-2362"
                                                                   "l-*-2360"
                                                                   "l-*-2357"
                                                                   "l-*-2355"
                                                                   "l-*-2353"
                                                                   "l-*-2351"
                                                                   "l-*-2349"
                                                                   "l-*-2347"
                                                                   "l-*-2345"
                                                                   "l-*-2343"
                                                                   "l-*-2341"
                                                                   "l-*-2339"
                                                                   "l-*-2337"
                                                                   "l-*-2335"
                                                                   "l-*-2333"
                                                                   "l-*-2331"
                                                                   "l-*-2329"
                                                                   "l-*-2327"
                                                                   "l-*-2325"
                                                                   "l-*-2323"
                                                                   "l-*-2321"
                                                                   "l-*-2319"
                                                                   "l-*-2317"
                                                                   "l-*-2315"
                                                                   "l-*-2313"
                                                                   "l-*-2311"
                                                                   "l-*-2309"
                                                                   "l-*-2307"
                                                                   "l-*-2306"
                                                                   "l-*-2305"
                                                                   "l-*-2304"
                                                                   "l-*-2303"
                                                                   "l-*-2301"
                                                                   "l-*-2299"
                                                                   "l-*-2297"
                                                                   "l-*-2294"
                                                                   "l-*-2292"
                                                                   "l-*-2290"
                                                                   "l-*-2288"
                                                                   "l-*-2286"
                                                                   "l-*-2284"
                                                                   "l-*-2282"
                                                                   "l-*-2280"
                                                                   "l-*-2278"
                                                                   "l-*-2276"
                                                                   "l-*-2274"
                                                                   "l-*-2272"
                                                                   "l-*-2270"
                                                                   "l-*-2268"
                                                                   "l-*-2266"
                                                                   "l-*-2264"
                                                                   "l-*-2262"
                                                                   "l-*-2260"))
                                                                #(ribcage
                                                                  (define-structure
                                                                    define-expansion-accessors
                                                                    define-expansion-constructors)
                                                                  ((top)
                                                                   (top)
                                                                   (top))
                                                                  ("l-*-2098"
                                                                   "l-*-2097"
                                                                   "l-*-2096")))
                                                               (hygiene
                                                                 guile)))
                                                          4)
                                                     #t
                                                     #f)
                                                 '...
                                                 '#(syntax-object
                                                    ...
                                                    ((top)
                                                     #(ribcage () () ())
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("l-*-4404"))
                                                     #(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-application
                                                         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=?
                                                         with-transformer-environment
                                                         transformer-environment
                                                         resolve-identifier
                                                         locally-bound-identifiers
                                                         id-var-name
                                                         same-marks?
                                                         join-marks
                                                         join-wraps
                                                         smart-append
                                                         make-binding-wrap
                                                         extend-ribcage!
                                                         make-empty-ribcage
                                                         new-mark
                                                         anti-mark
                                                         the-anti-mark
                                                         top-marked?
                                                         top-wrap
                                                         empty-wrap
                                                         set-ribcage-labels!
                                                         set-ribcage-marks!
                                                         set-ribcage-symnames!
                                                         ribcage-labels
                                                         ribcage-marks
                                                         ribcage-symnames
                                                         ribcage?
                                                         make-ribcage
                                                         gen-labels
                                                         gen-label
                                                         make-rename
                                                         rename-marks
                                                         rename-new
                                                         rename-old
                                                         subst-rename?
                                                         wrap-subst
                                                         wrap-marks
                                                         make-wrap
                                                         id-sym-name&marks
                                                         id-sym-name
                                                         id?
                                                         nonsymbol-id?
                                                         global-extend
                                                         lookup
                                                         macros-only-env
                                                         extend-var-env
                                                         extend-env
                                                         null-env
                                                         binding-value
                                                         binding-type
                                                         make-binding
                                                         arg-check
                                                         source-annotation
                                                         no-source
                                                         set-syntax-object-module!
                                                         set-syntax-object-wrap!
                                                         set-syntax-object-expression!
                                                         syntax-object-module
                                                         syntax-object-wrap
                                                         syntax-object-expression
                                                         syntax-object?
                                                         make-syntax-object
                                                         build-lexical-var
                                                         build-letrec
                                                         build-named-let
                                                         build-let
                                                         build-sequence
                                                         build-data
                                                         build-primref
                                                         build-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-application
                                                         build-void
                                                         maybe-name-value!
                                                         decorate-source
                                                         get-global-definition-hook
                                                         put-global-definition-hook
                                                         session-id
                                                         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-sequence
                                                         make-application
                                                         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)
                                                        (top)
                                                        (top))
                                                       ("l-*-2527"
                                                        "l-*-2525"
                                                        "l-*-2523"
                                                        "l-*-2521"
                                                        "l-*-2519"
                                                        "l-*-2517"
                                                        "l-*-2515"
                                                        "l-*-2513"
                                                        "l-*-2511"
                                                        "l-*-2509"
                                                        "l-*-2507"
                                                        "l-*-2505"
                                                        "l-*-2503"
                                                        "l-*-2501"
                                                        "l-*-2499"
                                                        "l-*-2497"
                                                        "l-*-2495"
                                                        "l-*-2493"
                                                        "l-*-2491"
                                                        "l-*-2489"
                                                        "l-*-2487"
                                                        "l-*-2485"
                                                        "l-*-2483"
                                                        "l-*-2481"
                                                        "l-*-2479"
                                                        "l-*-2477"
                                                        "l-*-2475"
                                                        "l-*-2473"
                                                        "l-*-2471"
                                                        "l-*-2469"
                                                        "l-*-2467"
                                                        "l-*-2465"
                                                        "l-*-2463"
                                                        "l-*-2461"
                                                        "l-*-2459"
                                                        "l-*-2457"
                                                        "l-*-2455"
                                                        "l-*-2453"
                                                        "l-*-2451"
                                                        "l-*-2450"
                                                        "l-*-2448"
                                                        "l-*-2445"
                                                        "l-*-2444"
                                                        "l-*-2443"
                                                        "l-*-2441"
                                                        "l-*-2440"
                                                        "l-*-2438"
                                                        "l-*-2436"
                                                        "l-*-2434"
                                                        "l-*-2432"
                                                        "l-*-2430"
                                                        "l-*-2428"
                                                        "l-*-2426"
                                                        "l-*-2424"
                                                        "l-*-2421"
                                                        "l-*-2419"
                                                        "l-*-2418"
                                                        "l-*-2416"
                                                        "l-*-2414"
                                                        "l-*-2412"
                                                        "l-*-2410"
                                                        "l-*-2409"
                                                        "l-*-2408"
                                                        "l-*-2407"
                                                        "l-*-2405"
                                                        "l-*-2404"
                                                        "l-*-2401"
                                                        "l-*-2399"
                                                        "l-*-2397"
                                                        "l-*-2395"
                                                        "l-*-2393"
                                                        "l-*-2391"
                                                        "l-*-2389"
                                                        "l-*-2388"
                                                        "l-*-2387"
                                                        "l-*-2385"
                                                        "l-*-2383"
                                                        "l-*-2382"
                                                        "l-*-2379"
                                                        "l-*-2378"
                                                        "l-*-2376"
                                                        "l-*-2374"
                                                        "l-*-2372"
                                                        "l-*-2370"
                                                        "l-*-2368"
                                                        "l-*-2366"
                                                        "l-*-2364"
                                                        "l-*-2362"
                                                        "l-*-2360"
                                                        "l-*-2357"
                                                        "l-*-2355"
                                                        "l-*-2353"
                                                        "l-*-2351"
                                                        "l-*-2349"
                                                        "l-*-2347"
                                                        "l-*-2345"
                                                        "l-*-2343"
                                                        "l-*-2341"
                                                        "l-*-2339"
                                                        "l-*-2337"
                                                        "l-*-2335"
                                                        "l-*-2333"
                                                        "l-*-2331"
                                                        "l-*-2329"
                                                        "l-*-2327"
                                                        "l-*-2325"
                                                        "l-*-2323"
                                                        "l-*-2321"
                                                        "l-*-2319"
                                                        "l-*-2317"
                                                        "l-*-2315"
                                                        "l-*-2313"
                                                        "l-*-2311"
                                                        "l-*-2309"
                                                        "l-*-2307"
                                                        "l-*-2306"
                                                        "l-*-2305"
                                                        "l-*-2304"
                                                        "l-*-2303"
                                                        "l-*-2301"
                                                        "l-*-2299"
                                                        "l-*-2297"
                                                        "l-*-2294"
                                                        "l-*-2292"
                                                        "l-*-2290"
                                                        "l-*-2288"
                                                        "l-*-2286"
                                                        "l-*-2284"
                                                        "l-*-2282"
                                                        "l-*-2280"
                                                        "l-*-2278"
                                                        "l-*-2276"
                                                        "l-*-2274"
                                                        "l-*-2272"
                                                        "l-*-2270"
                                                        "l-*-2268"
                                                        "l-*-2266"
                                                        "l-*-2264"
                                                        "l-*-2262"
                                                        "l-*-2260"))
                                                     #(ribcage
                                                       (define-structure
                                                         define-expansion-accessors
                                                         define-expansion-constructors)
                                                       ((top) (top) (top))
                                                       ("l-*-2098"
                                                        "l-*-2097"
                                                        "l-*-2096")))
                                                    (hygiene guile))))
                                        (eq? (id-var-name-6568
                                               dots-15157
                                               '(()))
                                             (id-var-name-6568
                                               '#(syntax-object
                                                  ...
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-4404"))
                                                   #(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-application
                                                       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=?
                                                       with-transformer-environment
                                                       transformer-environment
                                                       resolve-identifier
                                                       locally-bound-identifiers
                                                       id-var-name
                                                       same-marks?
                                                       join-marks
                                                       join-wraps
                                                       smart-append
                                                       make-binding-wrap
                                                       extend-ribcage!
                                                       make-empty-ribcage
                                                       new-mark
                                                       anti-mark
                                                       the-anti-mark
                                                       top-marked?
                                                       top-wrap
                                                       empty-wrap
                                                       set-ribcage-labels!
                                                       set-ribcage-marks!
                                                       set-ribcage-symnames!
                                                       ribcage-labels
                                                       ribcage-marks
                                                       ribcage-symnames
                                                       ribcage?
                                                       make-ribcage
                                                       gen-labels
                                                       gen-label
                                                       make-rename
                                                       rename-marks
                                                       rename-new
                                                       rename-old
                                                       subst-rename?
                                                       wrap-subst
                                                       wrap-marks
                                                       make-wrap
                                                       id-sym-name&marks
                                                       id-sym-name
                                                       id?
                                                       nonsymbol-id?
                                                       global-extend
                                                       lookup
                                                       macros-only-env
                                                       extend-var-env
                                                       extend-env
                                                       null-env
                                                       binding-value
                                                       binding-type
                                                       make-binding
                                                       arg-check
                                                       source-annotation
                                                       no-source
                                                       set-syntax-object-module!
                                                       set-syntax-object-wrap!
                                                       set-syntax-object-expression!
                                                       syntax-object-module
                                                       syntax-object-wrap
                                                       syntax-object-expression
                                                       syntax-object?
                                                       make-syntax-object
                                                       build-lexical-var
                                                       build-letrec
                                                       build-named-let
                                                       build-let
                                                       build-sequence
                                                       build-data
                                                       build-primref
                                                       build-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-application
                                                       build-void
                                                       maybe-name-value!
                                                       decorate-source
                                                       get-global-definition-hook
                                                       put-global-definition-hook
                                                       session-id
                                                       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-sequence
                                                       make-application
                                                       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)
                                                      (top)
                                                      (top))
                                                     ("l-*-2527"
                                                      "l-*-2525"
                                                      "l-*-2523"
                                                      "l-*-2521"
                                                      "l-*-2519"
                                                      "l-*-2517"
                                                      "l-*-2515"
                                                      "l-*-2513"
                                                      "l-*-2511"
                                                      "l-*-2509"
                                                      "l-*-2507"
                                                      "l-*-2505"
                                                      "l-*-2503"
                                                      "l-*-2501"
                                                      "l-*-2499"
                                                      "l-*-2497"
                                                      "l-*-2495"
                                                      "l-*-2493"
                                                      "l-*-2491"
                                                      "l-*-2489"
                                                      "l-*-2487"
                                                      "l-*-2485"
                                                      "l-*-2483"
                                                      "l-*-2481"
                                                      "l-*-2479"
                                                      "l-*-2477"
                                                      "l-*-2475"
                                                      "l-*-2473"
                                                      "l-*-2471"
                                                      "l-*-2469"
                                                      "l-*-2467"
                                                      "l-*-2465"
                                                      "l-*-2463"
                                                      "l-*-2461"
                                                      "l-*-2459"
                                                      "l-*-2457"
                                                      "l-*-2455"
                                                      "l-*-2453"
                                                      "l-*-2451"
                                                      "l-*-2450"
                                                      "l-*-2448"
                                                      "l-*-2445"
                                                      "l-*-2444"
                                                      "l-*-2443"
                                                      "l-*-2441"
                                                      "l-*-2440"
                                                      "l-*-2438"
                                                      "l-*-2436"
                                                      "l-*-2434"
                                                      "l-*-2432"
                                                      "l-*-2430"
                                                      "l-*-2428"
                                                      "l-*-2426"
                                                      "l-*-2424"
                                                      "l-*-2421"
                                                      "l-*-2419"
                                                      "l-*-2418"
                                                      "l-*-2416"
                                                      "l-*-2414"
                                                      "l-*-2412"
                                                      "l-*-2410"
                                                      "l-*-2409"
                                                      "l-*-2408"
                                                      "l-*-2407"
                                                      "l-*-2405"
                                                      "l-*-2404"
                                                      "l-*-2401"
                                                      "l-*-2399"
                                                      "l-*-2397"
                                                      "l-*-2395"
                                                      "l-*-2393"
                                                      "l-*-2391"
                                                      "l-*-2389"
                                                      "l-*-2388"
                                                      "l-*-2387"
                                                      "l-*-2385"
                                                      "l-*-2383"
                                                      "l-*-2382"
                                                      "l-*-2379"
                                                      "l-*-2378"
                                                      "l-*-2376"
                                                      "l-*-2374"
                                                      "l-*-2372"
                                                      "l-*-2370"
                                                      "l-*-2368"
                                                      "l-*-2366"
                                                      "l-*-2364"
                                                      "l-*-2362"
                                                      "l-*-2360"
                                                      "l-*-2357"
                                                      "l-*-2355"
                                                      "l-*-2353"
                                                      "l-*-2351"
                                                      "l-*-2349"
                                                      "l-*-2347"
                                                      "l-*-2345"
                                                      "l-*-2343"
                                                      "l-*-2341"
                                                      "l-*-2339"
                                                      "l-*-2337"
                                                      "l-*-2335"
                                                      "l-*-2333"
                                                      "l-*-2331"
                                                      "l-*-2329"
                                                      "l-*-2327"
                                                      "l-*-2325"
                                                      "l-*-2323"
                                                      "l-*-2321"
                                                      "l-*-2319"
                                                      "l-*-2317"
                                                      "l-*-2315"
                                                      "l-*-2313"
                                                      "l-*-2311"
                                                      "l-*-2309"
                                                      "l-*-2307"
                                                      "l-*-2306"
                                                      "l-*-2305"
                                                      "l-*-2304"
                                                      "l-*-2303"
                                                      "l-*-2301"
                                                      "l-*-2299"
                                                      "l-*-2297"
                                                      "l-*-2294"
                                                      "l-*-2292"
                                                      "l-*-2290"
                                                      "l-*-2288"
                                                      "l-*-2286"
                                                      "l-*-2284"
                                                      "l-*-2282"
                                                      "l-*-2280"
                                                      "l-*-2278"
                                                      "l-*-2276"
                                                      "l-*-2274"
                                                      "l-*-2272"
                                                      "l-*-2270"
                                                      "l-*-2268"
                                                      "l-*-2266"
                                                      "l-*-2264"
                                                      "l-*-2262"
                                                      "l-*-2260"))
                                                   #(ribcage
                                                     (define-structure
                                                       define-expansion-accessors
                                                       define-expansion-constructors)
                                                     ((top) (top) (top))
                                                     ("l-*-2098"
                                                      "l-*-2097"
                                                      "l-*-2096")))
                                                  (hygiene guile))
                                               '(())))
                                        #f)
                                      #f))
                                  tmp-15152)
                                #f)
                            (@apply
                              (lambda (x-15257 dots-15258)
                                (call-with-values
                                  (lambda ()
                                    (cvt-14827
                                      x-15257
                                      (#{1+}# n-14831)
                                      ids-14832))
                                  (lambda (p-15259 ids-15260)
                                    (values
                                      (if (eq? p-15259 'any)
                                        'each-any
                                        (vector 'each p-15259))
                                      ids-15260))))
                              tmp-15152)
                            (let ((tmp-15261
                                    ($sc-dispatch p-14830 '(any any . any))))
                              (if (if tmp-15261
                                    (@apply
                                      (lambda (x-15265 dots-15266 ys-15267)
                                        (if (if (if (vector? dots-15266)
                                                  (if (= (vector-length
                                                           dots-15266)
                                                         4)
                                                    (eq? (vector-ref
                                                           dots-15266
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
                                                (vector-ref dots-15266 1))
                                              #f)
                                          (if (eq? (if (if (vector? dots-15266)
                                                         (if (= (vector-length
                                                                  dots-15266)
                                                                4)
                                                           (eq? (vector-ref
                                                                  dots-15266
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (vector-ref dots-15266 1)
                                                     dots-15266)
                                                   (if (if (= (vector-length
                                                                '#(syntax-object
                                                                   ...
                                                                   ((top)
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(x)
                                                                      #((top))
                                                                      #("l-*-4404"))
                                                                    #(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-application
                                                                        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=?
                                                                        with-transformer-environment
                                                                        transformer-environment
                                                                        resolve-identifier
                                                                        locally-bound-identifiers
                                                                        id-var-name
                                                                        same-marks?
                                                                        join-marks
                                                                        join-wraps
                                                                        smart-append
                                                                        make-binding-wrap
                                                                        extend-ribcage!
                                                                        make-empty-ribcage
                                                                        new-mark
                                                                        anti-mark
                                                                        the-anti-mark
                                                                        top-marked?
                                                                        top-wrap
                                                                        empty-wrap
                                                                        set-ribcage-labels!
                                                                        set-ribcage-marks!
                                                                        set-ribcage-symnames!
                                                                        ribcage-labels
                                                                        ribcage-marks
                                                                        ribcage-symnames
                                                                        ribcage?
                                                                        make-ribcage
                                                                        gen-labels
                                                                        gen-label
                                                                        make-rename
                                                                        rename-marks
                                                                        rename-new
                                                                        rename-old
                                                                        subst-rename?
                                                                        wrap-subst
                                                                        wrap-marks
                                                                        make-wrap
                                                                        id-sym-name&marks
                                                                        id-sym-name
                                                                        id?
                                                                        nonsymbol-id?
                                                                        global-extend
                                                                        lookup
                                                                        macros-only-env
                                                                        extend-var-env
                                                                        extend-env
                                                                        null-env
                                                                        binding-value
                                                                        binding-type
                                                                        make-binding
                                                                        arg-check
                                                                        source-annotation
                                                                        no-source
                                                                        set-syntax-object-module!
                                                                        set-syntax-object-wrap!
                                                                        set-syntax-object-expression!
                                                                        syntax-object-module
                                                                        syntax-object-wrap
                                                                        syntax-object-expression
                                                                        syntax-object?
                                                                        make-syntax-object
                                                                        build-lexical-var
                                                                        build-letrec
                                                                        build-named-let
                                                                        build-let
                                                                        build-sequence
                                                                        build-data
                                                                        build-primref
                                                                        build-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-application
                                                                        build-void
                                                                        maybe-name-value!
                                                                        decorate-source
                                                                        get-global-definition-hook
                                                                        put-global-definition-hook
                                                                        session-id
                                                                        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-sequence
                                                                        make-application
                                                                        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)
                                                                       (top)
                                                                       (top))
                                                                      ("l-*-2527"
                                                                       "l-*-2525"
                                                                       "l-*-2523"
                                                                       "l-*-2521"
                                                                       "l-*-2519"
                                                                       "l-*-2517"
                                                                       "l-*-2515"
                                                                       "l-*-2513"
                                                                       "l-*-2511"
                                                                       "l-*-2509"
                                                                       "l-*-2507"
                                                                       "l-*-2505"
                                                                       "l-*-2503"
                                                                       "l-*-2501"
                                                                       "l-*-2499"
                                                                       "l-*-2497"
                                                                       "l-*-2495"
                                                                       "l-*-2493"
                                                                       "l-*-2491"
                                                                       "l-*-2489"
                                                                       "l-*-2487"
                                                                       "l-*-2485"
                                                                       "l-*-2483"
                                                                       "l-*-2481"
                                                                       "l-*-2479"
                                                                       "l-*-2477"
                                                                       "l-*-2475"
                                                                       "l-*-2473"
                                                                       "l-*-2471"
                                                                       "l-*-2469"
                                                                       "l-*-2467"
                                                                       "l-*-2465"
                                                                       "l-*-2463"
                                                                       "l-*-2461"
                                                                       "l-*-2459"
                                                                       "l-*-2457"
                                                                       "l-*-2455"
                                                                       "l-*-2453"
                                                                       "l-*-2451"
                                                                       "l-*-2450"
                                                                       "l-*-2448"
                                                                       "l-*-2445"
                                                                       "l-*-2444"
                                                                       "l-*-2443"
                                                                       "l-*-2441"
                                                                       "l-*-2440"
                                                                       "l-*-2438"
                                                                       "l-*-2436"
                                                                       "l-*-2434"
                                                                       "l-*-2432"
                                                                       "l-*-2430"
                                                                       "l-*-2428"
                                                                       "l-*-2426"
                                                                       "l-*-2424"
                                                                       "l-*-2421"
                                                                       "l-*-2419"
                                                                       "l-*-2418"
                                                                       "l-*-2416"
                                                                       "l-*-2414"
                                                                       "l-*-2412"
                                                                       "l-*-2410"
                                                                       "l-*-2409"
                                                                       "l-*-2408"
                                                                       "l-*-2407"
                                                                       "l-*-2405"
                                                                       "l-*-2404"
                                                                       "l-*-2401"
                                                                       "l-*-2399"
                                                                       "l-*-2397"
                                                                       "l-*-2395"
                                                                       "l-*-2393"
                                                                       "l-*-2391"
                                                                       "l-*-2389"
                                                                       "l-*-2388"
                                                                       "l-*-2387"
                                                                       "l-*-2385"
                                                                       "l-*-2383"
                                                                       "l-*-2382"
                                                                       "l-*-2379"
                                                                       "l-*-2378"
                                                                       "l-*-2376"
                                                                       "l-*-2374"
                                                                       "l-*-2372"
                                                                       "l-*-2370"
                                                                       "l-*-2368"
                                                                       "l-*-2366"
                                                                       "l-*-2364"
                                                                       "l-*-2362"
                                                                       "l-*-2360"
                                                                       "l-*-2357"
                                                                       "l-*-2355"
                                                                       "l-*-2353"
                                                                       "l-*-2351"
                                                                       "l-*-2349"
                                                                       "l-*-2347"
                                                                       "l-*-2345"
                                                                       "l-*-2343"
                                                                       "l-*-2341"
                                                                       "l-*-2339"
                                                                       "l-*-2337"
                                                                       "l-*-2335"
                                                                       "l-*-2333"
                                                                       "l-*-2331"
                                                                       "l-*-2329"
                                                                       "l-*-2327"
                                                                       "l-*-2325"
                                                                       "l-*-2323"
                                                                       "l-*-2321"
                                                                       "l-*-2319"
                                                                       "l-*-2317"
                                                                       "l-*-2315"
                                                                       "l-*-2313"
                                                                       "l-*-2311"
                                                                       "l-*-2309"
                                                                       "l-*-2307"
                                                                       "l-*-2306"
                                                                       "l-*-2305"
                                                                       "l-*-2304"
                                                                       "l-*-2303"
                                                                       "l-*-2301"
                                                                       "l-*-2299"
                                                                       "l-*-2297"
                                                                       "l-*-2294"
                                                                       "l-*-2292"
                                                                       "l-*-2290"
                                                                       "l-*-2288"
                                                                       "l-*-2286"
                                                                       "l-*-2284"
                                                                       "l-*-2282"
                                                                       "l-*-2280"
                                                                       "l-*-2278"
                                                                       "l-*-2276"
                                                                       "l-*-2274"
                                                                       "l-*-2272"
                                                                       "l-*-2270"
                                                                       "l-*-2268"
                                                                       "l-*-2266"
                                                                       "l-*-2264"
                                                                       "l-*-2262"
                                                                       "l-*-2260"))
                                                                    #(ribcage
                                                                      (define-structure
                                                                        define-expansion-accessors
                                                                        define-expansion-constructors)
                                                                      ((top)
                                                                       (top)
                                                                       (top))
                                                                      ("l-*-2098"
                                                                       "l-*-2097"
                                                                       "l-*-2096")))
                                                                   (hygiene
                                                                     guile)))
                                                              4)
                                                         #t
                                                         #f)
                                                     '...
                                                     '#(syntax-object
                                                        ...
                                                        ((top)
                                                         #(ribcage () () ())
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("l-*-4404"))
                                                         #(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-application
                                                             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=?
                                                             with-transformer-environment
                                                             transformer-environment
                                                             resolve-identifier
                                                             locally-bound-identifiers
                                                             id-var-name
                                                             same-marks?
                                                             join-marks
                                                             join-wraps
                                                             smart-append
                                                             make-binding-wrap
                                                             extend-ribcage!
                                                             make-empty-ribcage
                                                             new-mark
                                                             anti-mark
                                                             the-anti-mark
                                                             top-marked?
                                                             top-wrap
                                                             empty-wrap
                                                             set-ribcage-labels!
                                                             set-ribcage-marks!
                                                             set-ribcage-symnames!
                                                             ribcage-labels
                                                             ribcage-marks
                                                             ribcage-symnames
                                                             ribcage?
                                                             make-ribcage
                                                             gen-labels
                                                             gen-label
                                                             make-rename
                                                             rename-marks
                                                             rename-new
                                                             rename-old
                                                             subst-rename?
                                                             wrap-subst
                                                             wrap-marks
                                                             make-wrap
                                                             id-sym-name&marks
                                                             id-sym-name
                                                             id?
                                                             nonsymbol-id?
                                                             global-extend
                                                             lookup
                                                             macros-only-env
                                                             extend-var-env
                                                             extend-env
                                                             null-env
                                                             binding-value
                                                             binding-type
                                                             make-binding
                                                             arg-check
                                                             source-annotation
                                                             no-source
                                                             set-syntax-object-module!
                                                             set-syntax-object-wrap!
                                                             set-syntax-object-expression!
                                                             syntax-object-module
                                                             syntax-object-wrap
                                                             syntax-object-expression
                                                             syntax-object?
                                                             make-syntax-object
                                                             build-lexical-var
                                                             build-letrec
                                                             build-named-let
                                                             build-let
                                                             build-sequence
                                                             build-data
                                                             build-primref
                                                             build-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-application
                                                             build-void
                                                             maybe-name-value!
                                                             decorate-source
                                                             get-global-definition-hook
                                                             put-global-definition-hook
                                                             session-id
                                                             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-sequence
                                                             make-application
                                                             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)
                                                            (top)
                                                            (top))
                                                           ("l-*-2527"
                                                            "l-*-2525"
                                                            "l-*-2523"
                                                            "l-*-2521"
                                                            "l-*-2519"
                                                            "l-*-2517"
                                                            "l-*-2515"
                                                            "l-*-2513"
                                                            "l-*-2511"
                                                            "l-*-2509"
                                                            "l-*-2507"
                                                            "l-*-2505"
                                                            "l-*-2503"
                                                            "l-*-2501"
                                                            "l-*-2499"
                                                            "l-*-2497"
                                                            "l-*-2495"
                                                            "l-*-2493"
                                                            "l-*-2491"
                                                            "l-*-2489"
                                                            "l-*-2487"
                                                            "l-*-2485"
                                                            "l-*-2483"
                                                            "l-*-2481"
                                                            "l-*-2479"
                                                            "l-*-2477"
                                                            "l-*-2475"
                                                            "l-*-2473"
                                                            "l-*-2471"
                                                            "l-*-2469"
                                                            "l-*-2467"
                                                            "l-*-2465"
                                                            "l-*-2463"
                                                            "l-*-2461"
                                                            "l-*-2459"
                                                            "l-*-2457"
                                                            "l-*-2455"
                                                            "l-*-2453"
                                                            "l-*-2451"
                                                            "l-*-2450"
                                                            "l-*-2448"
                                                            "l-*-2445"
                                                            "l-*-2444"
                                                            "l-*-2443"
                                                            "l-*-2441"
                                                            "l-*-2440"
                                                            "l-*-2438"
                                                            "l-*-2436"
                                                            "l-*-2434"
                                                            "l-*-2432"
                                                            "l-*-2430"
                                                            "l-*-2428"
                                                            "l-*-2426"
                                                            "l-*-2424"
                                                            "l-*-2421"
                                                            "l-*-2419"
                                                            "l-*-2418"
                                                            "l-*-2416"
                                                            "l-*-2414"
                                                            "l-*-2412"
                                                            "l-*-2410"
                                                            "l-*-2409"
                                                            "l-*-2408"
                                                            "l-*-2407"
                                                            "l-*-2405"
                                                            "l-*-2404"
                                                            "l-*-2401"
                                                            "l-*-2399"
                                                            "l-*-2397"
                                                            "l-*-2395"
                                                            "l-*-2393"
                                                            "l-*-2391"
                                                            "l-*-2389"
                                                            "l-*-2388"
                                                            "l-*-2387"
                                                            "l-*-2385"
                                                            "l-*-2383"
                                                            "l-*-2382"
                                                            "l-*-2379"
                                                            "l-*-2378"
                                                            "l-*-2376"
                                                            "l-*-2374"
                                                            "l-*-2372"
                                                            "l-*-2370"
                                                            "l-*-2368"
                                                            "l-*-2366"
                                                            "l-*-2364"
                                                            "l-*-2362"
                                                            "l-*-2360"
                                                            "l-*-2357"
                                                            "l-*-2355"
                                                            "l-*-2353"
                                                            "l-*-2351"
                                                            "l-*-2349"
                                                            "l-*-2347"
                                                            "l-*-2345"
                                                            "l-*-2343"
                                                            "l-*-2341"
                                                            "l-*-2339"
                                                            "l-*-2337"
                                                            "l-*-2335"
                                                            "l-*-2333"
                                                            "l-*-2331"
                                                            "l-*-2329"
                                                            "l-*-2327"
                                                            "l-*-2325"
                                                            "l-*-2323"
                                                            "l-*-2321"
                                                            "l-*-2319"
                                                            "l-*-2317"
                                                            "l-*-2315"
                                                            "l-*-2313"
                                                            "l-*-2311"
                                                            "l-*-2309"
                                                            "l-*-2307"
                                                            "l-*-2306"
                                                            "l-*-2305"
                                                            "l-*-2304"
                                                            "l-*-2303"
                                                            "l-*-2301"
                                                            "l-*-2299"
                                                            "l-*-2297"
                                                            "l-*-2294"
                                                            "l-*-2292"
                                                            "l-*-2290"
                                                            "l-*-2288"
                                                            "l-*-2286"
                                                            "l-*-2284"
                                                            "l-*-2282"
                                                            "l-*-2280"
                                                            "l-*-2278"
                                                            "l-*-2276"
                                                            "l-*-2274"
                                                            "l-*-2272"
                                                            "l-*-2270"
                                                            "l-*-2268"
                                                            "l-*-2266"
                                                            "l-*-2264"
                                                            "l-*-2262"
                                                            "l-*-2260"))
                                                         #(ribcage
                                                           (define-structure
                                                             define-expansion-accessors
                                                             define-expansion-constructors)
                                                           ((top) (top) (top))
                                                           ("l-*-2098"
                                                            "l-*-2097"
                                                            "l-*-2096")))
                                                        (hygiene guile))))
                                            (eq? (id-var-name-6568
                                                   dots-15266
                                                   '(()))
                                                 (id-var-name-6568
                                                   '#(syntax-object
                                                      ...
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("l-*-4404"))
                                                       #(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-application
                                                           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=?
                                                           with-transformer-environment
                                                           transformer-environment
                                                           resolve-identifier
                                                           locally-bound-identifiers
                                                           id-var-name
                                                           same-marks?
                                                           join-marks
                                                           join-wraps
                                                           smart-append
                                                           make-binding-wrap
                                                           extend-ribcage!
                                                           make-empty-ribcage
                                                           new-mark
                                                           anti-mark
                                                           the-anti-mark
                                                           top-marked?
                                                           top-wrap
                                                           empty-wrap
                                                           set-ribcage-labels!
                                                           set-ribcage-marks!
                                                           set-ribcage-symnames!
                                                           ribcage-labels
                                                           ribcage-marks
                                                           ribcage-symnames
                                                           ribcage?
                                                           make-ribcage
                                                           gen-labels
                                                           gen-label
                                                           make-rename
                                                           rename-marks
                                                           rename-new
                                                           rename-old
                                                           subst-rename?
                                                           wrap-subst
                                                           wrap-marks
                                                           make-wrap
                                                           id-sym-name&marks
                                                           id-sym-name
                                                           id?
                                                           nonsymbol-id?
                                                           global-extend
                                                           lookup
                                                           macros-only-env
                                                           extend-var-env
                                                           extend-env
                                                           null-env
                                                           binding-value
                                                           binding-type
                                                           make-binding
                                                           arg-check
                                                           source-annotation
                                                           no-source
                                                           set-syntax-object-module!
                                                           set-syntax-object-wrap!
                                                           set-syntax-object-expression!
                                                           syntax-object-module
                                                           syntax-object-wrap
                                                           syntax-object-expression
                                                           syntax-object?
                                                           make-syntax-object
                                                           build-lexical-var
                                                           build-letrec
                                                           build-named-let
                                                           build-let
                                                           build-sequence
                                                           build-data
                                                           build-primref
                                                           build-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-application
                                                           build-void
                                                           maybe-name-value!
                                                           decorate-source
                                                           get-global-definition-hook
                                                           put-global-definition-hook
                                                           session-id
                                                           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-sequence
                                                           make-application
                                                           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)
                                                          (top)
                                                          (top))
                                                         ("l-*-2527"
                                                          "l-*-2525"
                                                          "l-*-2523"
                                                          "l-*-2521"
                                                          "l-*-2519"
                                                          "l-*-2517"
                                                          "l-*-2515"
                                                          "l-*-2513"
                                                          "l-*-2511"
                                                          "l-*-2509"
                                                          "l-*-2507"
                                                          "l-*-2505"
                                                          "l-*-2503"
                                                          "l-*-2501"
                                                          "l-*-2499"
                                                          "l-*-2497"
                                                          "l-*-2495"
                                                          "l-*-2493"
                                                          "l-*-2491"
                                                          "l-*-2489"
                                                          "l-*-2487"
                                                          "l-*-2485"
                                                          "l-*-2483"
                                                          "l-*-2481"
                                                          "l-*-2479"
                                                          "l-*-2477"
                                                          "l-*-2475"
                                                          "l-*-2473"
                                                          "l-*-2471"
                                                          "l-*-2469"
                                                          "l-*-2467"
                                                          "l-*-2465"
                                                          "l-*-2463"
                                                          "l-*-2461"
                                                          "l-*-2459"
                                                          "l-*-2457"
                                                          "l-*-2455"
                                                          "l-*-2453"
                                                          "l-*-2451"
                                                          "l-*-2450"
                                                          "l-*-2448"
                                                          "l-*-2445"
                                                          "l-*-2444"
                                                          "l-*-2443"
                                                          "l-*-2441"
                                                          "l-*-2440"
                                                          "l-*-2438"
                                                          "l-*-2436"
                                                          "l-*-2434"
                                                          "l-*-2432"
                                                          "l-*-2430"
                                                          "l-*-2428"
                                                          "l-*-2426"
                                                          "l-*-2424"
                                                          "l-*-2421"
                                                          "l-*-2419"
                                                          "l-*-2418"
                                                          "l-*-2416"
                                                          "l-*-2414"
                                                          "l-*-2412"
                                                          "l-*-2410"
                                                          "l-*-2409"
                                                          "l-*-2408"
                                                          "l-*-2407"
                                                          "l-*-2405"
                                                          "l-*-2404"
                                                          "l-*-2401"
                                                          "l-*-2399"
                                                          "l-*-2397"
                                                          "l-*-2395"
                                                          "l-*-2393"
                                                          "l-*-2391"
                                                          "l-*-2389"
                                                          "l-*-2388"
                                                          "l-*-2387"
                                                          "l-*-2385"
                                                          "l-*-2383"
                                                          "l-*-2382"
                                                          "l-*-2379"
                                                          "l-*-2378"
                                                          "l-*-2376"
                                                          "l-*-2374"
                                                          "l-*-2372"
                                                          "l-*-2370"
                                                          "l-*-2368"
                                                          "l-*-2366"
                                                          "l-*-2364"
                                                          "l-*-2362"
                                                          "l-*-2360"
                                                          "l-*-2357"
                                                          "l-*-2355"
                                                          "l-*-2353"
                                                          "l-*-2351"
                                                          "l-*-2349"
                                                          "l-*-2347"
                                                          "l-*-2345"
                                                          "l-*-2343"
                                                          "l-*-2341"
                                                          "l-*-2339"
                                                          "l-*-2337"
                                                          "l-*-2335"
                                                          "l-*-2333"
                                                          "l-*-2331"
                                                          "l-*-2329"
                                                          "l-*-2327"
                                                          "l-*-2325"
                                                          "l-*-2323"
                                                          "l-*-2321"
                                                          "l-*-2319"
                                                          "l-*-2317"
                                                          "l-*-2315"
                                                          "l-*-2313"
                                                          "l-*-2311"
                                                          "l-*-2309"
                                                          "l-*-2307"
                                                          "l-*-2306"
                                                          "l-*-2305"
                                                          "l-*-2304"
                                                          "l-*-2303"
                                                          "l-*-2301"
                                                          "l-*-2299"
                                                          "l-*-2297"
                                                          "l-*-2294"
                                                          "l-*-2292"
                                                          "l-*-2290"
                                                          "l-*-2288"
                                                          "l-*-2286"
                                                          "l-*-2284"
                                                          "l-*-2282"
                                                          "l-*-2280"
                                                          "l-*-2278"
                                                          "l-*-2276"
                                                          "l-*-2274"
                                                          "l-*-2272"
                                                          "l-*-2270"
                                                          "l-*-2268"
                                                          "l-*-2266"
                                                          "l-*-2264"
                                                          "l-*-2262"
                                                          "l-*-2260"))
                                                       #(ribcage
                                                         (define-structure
                                                           define-expansion-accessors
                                                           define-expansion-constructors)
                                                         ((top) (top) (top))
                                                         ("l-*-2098"
                                                          "l-*-2097"
                                                          "l-*-2096")))
                                                      (hygiene guile))
                                                   '(())))
                                            #f)
                                          #f))
                                      tmp-15261)
                                    #f)
                                (@apply
                                  (lambda (x-15367 dots-15368 ys-15369)
                                    (call-with-values
                                      (lambda ()
                                        (cvt*-14825
                                          ys-15369
                                          n-14831
                                          ids-14832))
                                      (lambda (ys-15372 ids-15373)
                                        (call-with-values
                                          (lambda ()
                                            (cvt-14827
                                              x-15367
                                              (#{1+}# n-14831)
                                              ids-15373))
                                          (lambda (x-15374 ids-15375)
                                            (call-with-values
                                              (lambda ()
                                                (v-reverse-14826 ys-15372))
                                              (lambda (ys-15408 e-15409)
                                                (values
                                                  (vector
                                                    'each+
                                                    x-15374
                                                    ys-15408
                                                    e-15409)
                                                  ids-15375))))))))
                                  tmp-15261)
                                (let ((tmp-15410
                                        ($sc-dispatch p-14830 '(any . any))))
                                  (if tmp-15410
                                    (@apply
                                      (lambda (x-15414 y-15415)
                                        (call-with-values
                                          (lambda ()
                                            (cvt-14827
                                              y-15415
                                              n-14831
                                              ids-14832))
                                          (lambda (y-15416 ids-15417)
                                            (call-with-values
                                              (lambda ()
                                                (cvt-14827
                                                  x-15414
                                                  n-14831
                                                  ids-15417))
                                              (lambda (x-15418 ids-15419)
                                                (values
                                                  (cons x-15418 y-15416)
                                                  ids-15419))))))
                                      tmp-15410)
                                    (let ((tmp-15420
                                            ($sc-dispatch p-14830 '())))
                                      (if tmp-15420
                                        (@apply
                                          (lambda () (values '() ids-14832))
                                          tmp-15420)
                                        (let ((tmp-15424
                                                ($sc-dispatch
                                                  p-14830
                                                  '#(vector each-any))))
                                          (if tmp-15424
                                            (@apply
                                              (lambda (x-15428)
                                                (call-with-values
                                                  (lambda ()
                                                    (cvt-14827
                                                      x-15428
                                                      n-14831
                                                      ids-14832))
                                                  (lambda (p-15429 ids-15430)
                                                    (values
                                                      (vector 'vector p-15429)
                                                      ids-15430))))
                                              tmp-15424)
                                            (values
                                              (vector
                                                'atom
                                                (strip-6598 p-14830 '(())))
                                              ids-14832)))))))))))))))
                 (cvt-14827 pattern-14823 0 '()))))
           (build-dispatch-call-13227
             (lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547)
               (let ((ids-15548 (map car pvars-15543)))
                 (begin
                   (map cdr pvars-15543)
                   (let ((labels-15550 (gen-labels-6552 ids-15548))
                         (new-vars-15551 (map gen-var-6599 ids-15548)))
                     (build-application-6516
                       #f
                       (if (equal? (module-name (current-module)) '(guile))
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 7)
                           #f
                           'apply)
                         (make-struct/no-tail
                           (vector-ref %expanded-vtables 5)
                           #f
                           '(guile)
                           'apply
                           #f))
                       (list (build-simple-lambda-6525
                               #f
                               (map syntax->datum ids-15548)
                               #f
                               new-vars-15551
                               '()
                               (expand-6585
                                 exp-15544
                                 (extend-env-6543
                                   labels-15550
                                   (map (lambda (var-15874 level-15875)
                                          (cons 'syntax
                                                (cons var-15874 level-15875)))
                                        new-vars-15551
                                        (map cdr pvars-15543))
                                   r-15546)
                                 (make-binding-wrap-6563
                                   ids-15548
                                   labels-15550
                                   '(()))
                                 mod-15547))
                             y-15545)))))))
           (gen-clause-13228
             (lambda (x-14195
                      keys-14196
                      clauses-14197
                      r-14198
                      pat-14199
                      fender-14200
                      exp-14201
                      mod-14202)
               (call-with-values
                 (lambda ()
                   (convert-pattern-13226 pat-14199 keys-14196))
                 (lambda (p-14357 pvars-14358)
                   (if (not (distinct-bound-ids?-6576 (map car pvars-14358)))
                     (syntax-violation
                       'syntax-case
                       "duplicate pattern variable"
                       pat-14199)
                     (if (not (and-map
                                (lambda (x-14474)
                                  (not (let ((x-14478 (car x-14474)))
                                         (if (if (if (vector? x-14478)
                                                   (if (= (vector-length
                                                            x-14478)
                                                          4)
                                                     (eq? (vector-ref
                                                            x-14478
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (symbol? (vector-ref x-14478 1))
                                               #f)
                                           (if (eq? (if (if (vector? x-14478)
                                                          (if (= (vector-length
                                                                   x-14478)
                                                                 4)
                                                            (eq? (vector-ref
                                                                   x-14478
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
                                                      (vector-ref x-14478 1)
                                                      x-14478)
                                                    (if (if (= (vector-length
                                                                 '#(syntax-object
                                                                    ...
                                                                    ((top)
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(x)
                                                                       #((top))
                                                                       #("l-*-4404"))
                                                                     #(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-application
                                                                         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=?
                                                                         with-transformer-environment
                                                                         transformer-environment
                                                                         resolve-identifier
                                                                         locally-bound-identifiers
                                                                         id-var-name
                                                                         same-marks?
                                                                         join-marks
                                                                         join-wraps
                                                                         smart-append
                                                                         make-binding-wrap
                                                                         extend-ribcage!
                                                                         make-empty-ribcage
                                                                         new-mark
                                                                         anti-mark
                                                                         the-anti-mark
                                                                         top-marked?
                                                                         top-wrap
                                                                         empty-wrap
                                                                         set-ribcage-labels!
                                                                         set-ribcage-marks!
                                                                         set-ribcage-symnames!
                                                                         ribcage-labels
                                                                         ribcage-marks
                                                                         ribcage-symnames
                                                                         ribcage?
                                                                         make-ribcage
                                                                         gen-labels
                                                                         gen-label
                                                                         make-rename
                                                                         rename-marks
                                                                         rename-new
                                                                         rename-old
                                                                         subst-rename?
                                                                         wrap-subst
                                                                         wrap-marks
                                                                         make-wrap
                                                                         id-sym-name&marks
                                                                         id-sym-name
                                                                         id?
                                                                         nonsymbol-id?
                                                                         global-extend
                                                                         lookup
                                                                         macros-only-env
                                                                         extend-var-env
                                                                         extend-env
                                                                         null-env
                                                                         binding-value
                                                                         binding-type
                                                                         make-binding
                                                                         arg-check
                                                                         source-annotation
                                                                         no-source
                                                                         set-syntax-object-module!
                                                                         set-syntax-object-wrap!
                                                                         set-syntax-object-expression!
                                                                         syntax-object-module
                                                                         syntax-object-wrap
                                                                         syntax-object-expression
                                                                         syntax-object?
                                                                         make-syntax-object
                                                                         build-lexical-var
                                                                         build-letrec
                                                                         build-named-let
                                                                         build-let
                                                                         build-sequence
                                                                         build-data
                                                                         build-primref
                                                                         build-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-application
                                                                         build-void
                                                                         maybe-name-value!
                                                                         decorate-source
                                                                         get-global-definition-hook
                                                                         put-global-definition-hook
                                                                         session-id
                                                                         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-sequence
                                                                         make-application
                                                                         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)
                                                                        (top)
                                                                        (top))
                                                                       ("l-*-2527"
                                                                        "l-*-2525"
                                                                        "l-*-2523"
                                                                        "l-*-2521"
                                                                        "l-*-2519"
                                                                        "l-*-2517"
                                                                        "l-*-2515"
                                                                        "l-*-2513"
                                                                        "l-*-2511"
                                                                        "l-*-2509"
                                                                        "l-*-2507"
                                                                        "l-*-2505"
                                                                        "l-*-2503"
                                                                        "l-*-2501"
                                                                        "l-*-2499"
                                                                        "l-*-2497"
                                                                        "l-*-2495"
                                                                        "l-*-2493"
                                                                        "l-*-2491"
                                                                        "l-*-2489"
                                                                        "l-*-2487"
                                                                        "l-*-2485"
                                                                        "l-*-2483"
                                                                        "l-*-2481"
                                                                        "l-*-2479"
                                                                        "l-*-2477"
                                                                        "l-*-2475"
                                                                        "l-*-2473"
                                                                        "l-*-2471"
                                                                        "l-*-2469"
                                                                        "l-*-2467"
                                                                        "l-*-2465"
                                                                        "l-*-2463"
                                                                        "l-*-2461"
                                                                        "l-*-2459"
                                                                        "l-*-2457"
                                                                        "l-*-2455"
                                                                        "l-*-2453"
                                                                        "l-*-2451"
                                                                        "l-*-2450"
                                                                        "l-*-2448"
                                                                        "l-*-2445"
                                                                        "l-*-2444"
                                                                        "l-*-2443"
                                                                        "l-*-2441"
                                                                        "l-*-2440"
                                                                        "l-*-2438"
                                                                        "l-*-2436"
                                                                        "l-*-2434"
                                                                        "l-*-2432"
                                                                        "l-*-2430"
                                                                        "l-*-2428"
                                                                        "l-*-2426"
                                                                        "l-*-2424"
                                                                        "l-*-2421"
                                                                        "l-*-2419"
                                                                        "l-*-2418"
                                                                        "l-*-2416"
                                                                        "l-*-2414"
                                                                        "l-*-2412"
                                                                        "l-*-2410"
                                                                        "l-*-2409"
                                                                        "l-*-2408"
                                                                        "l-*-2407"
                                                                        "l-*-2405"
                                                                        "l-*-2404"
                                                                        "l-*-2401"
                                                                        "l-*-2399"
                                                                        "l-*-2397"
                                                                        "l-*-2395"
                                                                        "l-*-2393"
                                                                        "l-*-2391"
                                                                        "l-*-2389"
                                                                        "l-*-2388"
                                                                        "l-*-2387"
                                                                        "l-*-2385"
                                                                        "l-*-2383"
                                                                        "l-*-2382"
                                                                        "l-*-2379"
                                                                        "l-*-2378"
                                                                        "l-*-2376"
                                                                        "l-*-2374"
                                                                        "l-*-2372"
                                                                        "l-*-2370"
                                                                        "l-*-2368"
                                                                        "l-*-2366"
                                                                        "l-*-2364"
                                                                        "l-*-2362"
                                                                        "l-*-2360"
                                                                        "l-*-2357"
                                                                        "l-*-2355"
                                                                        "l-*-2353"
                                                                        "l-*-2351"
                                                                        "l-*-2349"
                                                                        "l-*-2347"
                                                                        "l-*-2345"
                                                                        "l-*-2343"
                                                                        "l-*-2341"
                                                                        "l-*-2339"
                                                                        "l-*-2337"
                                                                        "l-*-2335"
                                                                        "l-*-2333"
                                                                        "l-*-2331"
                                                                        "l-*-2329"
                                                                        "l-*-2327"
                                                                        "l-*-2325"
                                                                        "l-*-2323"
                                                                        "l-*-2321"
                                                                        "l-*-2319"
                                                                        "l-*-2317"
                                                                        "l-*-2315"
                                                                        "l-*-2313"
                                                                        "l-*-2311"
                                                                        "l-*-2309"
                                                                        "l-*-2307"
                                                                        "l-*-2306"
                                                                        "l-*-2305"
                                                                        "l-*-2304"
                                                                        "l-*-2303"
                                                                        "l-*-2301"
                                                                        "l-*-2299"
                                                                        "l-*-2297"
                                                                        "l-*-2294"
                                                                        "l-*-2292"
                                                                        "l-*-2290"
                                                                        "l-*-2288"
                                                                        "l-*-2286"
                                                                        "l-*-2284"
                                                                        "l-*-2282"
                                                                        "l-*-2280"
                                                                        "l-*-2278"
                                                                        "l-*-2276"
                                                                        "l-*-2274"
                                                                        "l-*-2272"
                                                                        "l-*-2270"
                                                                        "l-*-2268"
                                                                        "l-*-2266"
                                                                        "l-*-2264"
                                                                        "l-*-2262"
                                                                        "l-*-2260"))
                                                                     #(ribcage
                                                                       (define-structure
                                                                         define-expansion-accessors
                                                                         define-expansion-constructors)
                                                                       ((top)
                                                                        (top)
                                                                        (top))
                                                                       ("l-*-2098"
                                                                        "l-*-2097"
                                                                        "l-*-2096")))
                                                                    (hygiene
                                                                      guile)))
                                                               4)
                                                          #t
                                                          #f)
                                                      '...
                                                      '#(syntax-object
                                                         ...
                                                         ((top)
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("l-*-4404"))
                                                          #(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-application
                                                              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=?
                                                              with-transformer-environment
                                                              transformer-environment
                                                              resolve-identifier
                                                              locally-bound-identifiers
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-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-application
                                                              build-void
                                                              maybe-name-value!
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              session-id
                                                              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-sequence
                                                              make-application
                                                              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)
                                                             (top)
                                                             (top))
                                                            ("l-*-2527"
                                                             "l-*-2525"
                                                             "l-*-2523"
                                                             "l-*-2521"
                                                             "l-*-2519"
                                                             "l-*-2517"
                                                             "l-*-2515"
                                                             "l-*-2513"
                                                             "l-*-2511"
                                                             "l-*-2509"
                                                             "l-*-2507"
                                                             "l-*-2505"
                                                             "l-*-2503"
                                                             "l-*-2501"
                                                             "l-*-2499"
                                                             "l-*-2497"
                                                             "l-*-2495"
                                                             "l-*-2493"
                                                             "l-*-2491"
                                                             "l-*-2489"
                                                             "l-*-2487"
                                                             "l-*-2485"
                                                             "l-*-2483"
                                                             "l-*-2481"
                                                             "l-*-2479"
                                                             "l-*-2477"
                                                             "l-*-2475"
                                                             "l-*-2473"
                                                             "l-*-2471"
                                                             "l-*-2469"
                                                             "l-*-2467"
                                                             "l-*-2465"
                                                             "l-*-2463"
                                                             "l-*-2461"
                                                             "l-*-2459"
                                                             "l-*-2457"
                                                             "l-*-2455"
                                                             "l-*-2453"
                                                             "l-*-2451"
                                                             "l-*-2450"
                                                             "l-*-2448"
                                                             "l-*-2445"
                                                             "l-*-2444"
                                                             "l-*-2443"
                                                             "l-*-2441"
                                                             "l-*-2440"
                                                             "l-*-2438"
                                                             "l-*-2436"
                                                             "l-*-2434"
                                                             "l-*-2432"
                                                             "l-*-2430"
                                                             "l-*-2428"
                                                             "l-*-2426"
                                                             "l-*-2424"
                                                             "l-*-2421"
                                                             "l-*-2419"
                                                             "l-*-2418"
                                                             "l-*-2416"
                                                             "l-*-2414"
                                                             "l-*-2412"
                                                             "l-*-2410"
                                                             "l-*-2409"
                                                             "l-*-2408"
                                                             "l-*-2407"
                                                             "l-*-2405"
                                                             "l-*-2404"
                                                             "l-*-2401"
                                                             "l-*-2399"
                                                             "l-*-2397"
                                                             "l-*-2395"
                                                             "l-*-2393"
                                                             "l-*-2391"
                                                             "l-*-2389"
                                                             "l-*-2388"
                                                             "l-*-2387"
                                                             "l-*-2385"
                                                             "l-*-2383"
                                                             "l-*-2382"
                                                             "l-*-2379"
                                                             "l-*-2378"
                                                             "l-*-2376"
                                                             "l-*-2374"
                                                             "l-*-2372"
                                                             "l-*-2370"
                                                             "l-*-2368"
                                                             "l-*-2366"
                                                             "l-*-2364"
                                                             "l-*-2362"
                                                             "l-*-2360"
                                                             "l-*-2357"
                                                             "l-*-2355"
                                                             "l-*-2353"
                                                             "l-*-2351"
                                                             "l-*-2349"
                                                             "l-*-2347"
                                                             "l-*-2345"
                                                             "l-*-2343"
                                                             "l-*-2341"
                                                             "l-*-2339"
                                                             "l-*-2337"
                                                             "l-*-2335"
                                                             "l-*-2333"
                                                             "l-*-2331"
                                                             "l-*-2329"
                                                             "l-*-2327"
                                                             "l-*-2325"
                                                             "l-*-2323"
                                                             "l-*-2321"
                                                             "l-*-2319"
                                                             "l-*-2317"
                                                             "l-*-2315"
                                                             "l-*-2313"
                                                             "l-*-2311"
                                                             "l-*-2309"
                                                             "l-*-2307"
                                                             "l-*-2306"
                                                             "l-*-2305"
                                                             "l-*-2304"
                                                             "l-*-2303"
                                                             "l-*-2301"
                                                             "l-*-2299"
                                                             "l-*-2297"
                                                             "l-*-2294"
                                                             "l-*-2292"
                                                             "l-*-2290"
                                                             "l-*-2288"
                                                             "l-*-2286"
                                                             "l-*-2284"
                                                             "l-*-2282"
                                                             "l-*-2280"
                                                             "l-*-2278"
                                                             "l-*-2276"
                                                             "l-*-2274"
                                                             "l-*-2272"
                                                             "l-*-2270"
                                                             "l-*-2268"
                                                             "l-*-2266"
                                                             "l-*-2264"
                                                             "l-*-2262"
                                                             "l-*-2260"))
                                                          #(ribcage
                                                            (define-structure
                                                              define-expansion-accessors
                                                              define-expansion-constructors)
                                                            ((top) (top) (top))
                                                            ("l-*-2098"
                                                             "l-*-2097"
                                                             "l-*-2096")))
                                                         (hygiene guile))))
                                             (eq? (id-var-name-6568
                                                    x-14478
                                                    '(()))
                                                  (id-var-name-6568
                                                    '#(syntax-object
                                                       ...
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("l-*-4404"))
                                                        #(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-application
                                                            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=?
                                                            with-transformer-environment
                                                            transformer-environment
                                                            resolve-identifier
                                                            locally-bound-identifiers
                                                            id-var-name
                                                            same-marks?
                                                            join-marks
                                                            join-wraps
                                                            smart-append
                                                            make-binding-wrap
                                                            extend-ribcage!
                                                            make-empty-ribcage
                                                            new-mark
                                                            anti-mark
                                                            the-anti-mark
                                                            top-marked?
                                                            top-wrap
                                                            empty-wrap
                                                            set-ribcage-labels!
                                                            set-ribcage-marks!
                                                            set-ribcage-symnames!
                                                            ribcage-labels
                                                            ribcage-marks
                                                            ribcage-symnames
                                                            ribcage?
                                                            make-ribcage
                                                            gen-labels
                                                            gen-label
                                                            make-rename
                                                            rename-marks
                                                            rename-new
                                                            rename-old
                                                            subst-rename?
                                                            wrap-subst
                                                            wrap-marks
                                                            make-wrap
                                                            id-sym-name&marks
                                                            id-sym-name
                                                            id?
                                                            nonsymbol-id?
                                                            global-extend
                                                            lookup
                                                            macros-only-env
                                                            extend-var-env
                                                            extend-env
                                                            null-env
                                                            binding-value
                                                            binding-type
                                                            make-binding
                                                            arg-check
                                                            source-annotation
                                                            no-source
                                                            set-syntax-object-module!
                                                            set-syntax-object-wrap!
                                                            set-syntax-object-expression!
                                                            syntax-object-module
                                                            syntax-object-wrap
                                                            syntax-object-expression
                                                            syntax-object?
                                                            make-syntax-object
                                                            build-lexical-var
                                                            build-letrec
                                                            build-named-let
                                                            build-let
                                                            build-sequence
                                                            build-data
                                                            build-primref
                                                            build-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-application
                                                            build-void
                                                            maybe-name-value!
                                                            decorate-source
                                                            get-global-definition-hook
                                                            put-global-definition-hook
                                                            session-id
                                                            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-sequence
                                                            make-application
                                                            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)
                                                           (top)
                                                           (top))
                                                          ("l-*-2527"
                                                           "l-*-2525"
                                                           "l-*-2523"
                                                           "l-*-2521"
                                                           "l-*-2519"
                                                           "l-*-2517"
                                                           "l-*-2515"
                                                           "l-*-2513"
                                                           "l-*-2511"
                                                           "l-*-2509"
                                                           "l-*-2507"
                                                           "l-*-2505"
                                                           "l-*-2503"
                                                           "l-*-2501"
                                                           "l-*-2499"
                                                           "l-*-2497"
                                                           "l-*-2495"
                                                           "l-*-2493"
                                                           "l-*-2491"
                                                           "l-*-2489"
                                                           "l-*-2487"
                                                           "l-*-2485"
                                                           "l-*-2483"
                                                           "l-*-2481"
                                                           "l-*-2479"
                                                           "l-*-2477"
                                                           "l-*-2475"
                                                           "l-*-2473"
                                                           "l-*-2471"
                                                           "l-*-2469"
                                                           "l-*-2467"
                                                           "l-*-2465"
                                                           "l-*-2463"
                                                           "l-*-2461"
                                                           "l-*-2459"
                                                           "l-*-2457"
                                                           "l-*-2455"
                                                           "l-*-2453"
                                                           "l-*-2451"
                                                           "l-*-2450"
                                                           "l-*-2448"
                                                           "l-*-2445"
                                                           "l-*-2444"
                                                           "l-*-2443"
                                                           "l-*-2441"
                                                           "l-*-2440"
                                                           "l-*-2438"
                                                           "l-*-2436"
                                                           "l-*-2434"
                                                           "l-*-2432"
                                                           "l-*-2430"
                                                           "l-*-2428"
                                                           "l-*-2426"
                                                           "l-*-2424"
                                                           "l-*-2421"
                                                           "l-*-2419"
                                                           "l-*-2418"
                                                           "l-*-2416"
                                                           "l-*-2414"
                                                           "l-*-2412"
                                                           "l-*-2410"
                                                           "l-*-2409"
                                                           "l-*-2408"
                                                           "l-*-2407"
                                                           "l-*-2405"
                                                           "l-*-2404"
                                                           "l-*-2401"
                                                           "l-*-2399"
                                                           "l-*-2397"
                                                           "l-*-2395"
                                                           "l-*-2393"
                                                           "l-*-2391"
                                                           "l-*-2389"
                                                           "l-*-2388"
                                                           "l-*-2387"
                                                           "l-*-2385"
                                                           "l-*-2383"
                                                           "l-*-2382"
                                                           "l-*-2379"
                                                           "l-*-2378"
                                                           "l-*-2376"
                                                           "l-*-2374"
                                                           "l-*-2372"
                                                           "l-*-2370"
                                                           "l-*-2368"
                                                           "l-*-2366"
                                                           "l-*-2364"
                                                           "l-*-2362"
                                                           "l-*-2360"
                                                           "l-*-2357"
                                                           "l-*-2355"
                                                           "l-*-2353"
                                                           "l-*-2351"
                                                           "l-*-2349"
                                                           "l-*-2347"
                                                           "l-*-2345"
                                                           "l-*-2343"
                                                           "l-*-2341"
                                                           "l-*-2339"
                                                           "l-*-2337"
                                                           "l-*-2335"
                                                           "l-*-2333"
                                                           "l-*-2331"
                                                           "l-*-2329"
                                                           "l-*-2327"
                                                           "l-*-2325"
                                                           "l-*-2323"
                                                           "l-*-2321"
                                                           "l-*-2319"
                                                           "l-*-2317"
                                                           "l-*-2315"
                                                           "l-*-2313"
                                                           "l-*-2311"
                                                           "l-*-2309"
                                                           "l-*-2307"
                                                           "l-*-2306"
                                                           "l-*-2305"
                                                           "l-*-2304"
                                                           "l-*-2303"
                                                           "l-*-2301"
                                                           "l-*-2299"
                                                           "l-*-2297"
                                                           "l-*-2294"
                                                           "l-*-2292"
                                                           "l-*-2290"
                                                           "l-*-2288"
                                                           "l-*-2286"
                                                           "l-*-2284"
                                                           "l-*-2282"
                                                           "l-*-2280"
                                                           "l-*-2278"
                                                           "l-*-2276"
                                                           "l-*-2274"
                                                           "l-*-2272"
                                                           "l-*-2270"
                                                           "l-*-2268"
                                                           "l-*-2266"
                                                           "l-*-2264"
                                                           "l-*-2262"
                                                           "l-*-2260"))
                                                        #(ribcage
                                                          (define-structure
                                                            define-expansion-accessors
                                                            define-expansion-constructors)
                                                          ((top) (top) (top))
                                                          ("l-*-2098"
                                                           "l-*-2097"
                                                           "l-*-2096")))
                                                       (hygiene guile))
                                                    '(())))
                                             #f)
                                           #f))))
                                pvars-14358))
                       (syntax-violation
                         'syntax-case
                         "misplaced ellipsis"
                         pat-14199)
                       (let ((y-14554
                               (gensym
                                 (string-append (symbol->string 'tmp) "-"))))
                         (build-application-6516
                           #f
                           (let ((req-14697 (list 'tmp))
                                 (vars-14699 (list y-14554))
                                 (exp-14701
                                   (let ((y-14718
                                           (make-struct/no-tail
                                             (vector-ref %expanded-vtables 3)
                                             #f
                                             'tmp
                                             y-14554)))
                                     (let ((test-exp-14722
                                             (let ((tmp-14731
                                                     ($sc-dispatch
                                                       fender-14200
                                                       '#(atom #t))))
                                               (if tmp-14731
                                                 (@apply
                                                   (lambda () y-14718)
                                                   tmp-14731)
                                                 (let ((then-exp-14749
                                                         (build-dispatch-call-13227
                                                           pvars-14358
                                                           fender-14200
                                                           y-14718
                                                           r-14198
                                                           mod-14202))
                                                       (else-exp-14750
                                                         (make-struct/no-tail
                                                           (vector-ref
                                                             %expanded-vtables
                                                             1)
                                                           #f
                                                           #f)))
                                                   (make-struct/no-tail
                                                     (vector-ref
                                                       %expanded-vtables
                                                       10)
                                                     #f
                                                     y-14718
                                                     then-exp-14749
                                                     else-exp-14750)))))
                                           (then-exp-14723
                                             (build-dispatch-call-13227
                                               pvars-14358
                                               exp-14201
                                               y-14718
                                               r-14198
                                               mod-14202))
                                           (else-exp-14724
                                             (gen-syntax-case-13229
                                               x-14195
                                               keys-14196
                                               clauses-14197
                                               r-14198
                                               mod-14202)))
                                       (make-struct/no-tail
                                         (vector-ref %expanded-vtables 10)
                                         #f
                                         test-exp-14722
                                         then-exp-14723
                                         else-exp-14724)))))
                             (let ((body-14706
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 14)
                                       #f
                                       req-14697
                                       #f
                                       #f
                                       #f
                                       '()
                                       vars-14699
                                       exp-14701
                                       #f)))
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 13)
                                 #f
                                 '()
                                 body-14706)))
                           (list (if (eq? p-14357 'any)
                                   (let ((fun-exp-14772
                                           (if (equal?
                                                 (module-name (current-module))
                                                 '(guile))
                                             (make-struct/no-tail
                                               (vector-ref %expanded-vtables 7)
                                               #f
                                               'list)
                                             (make-struct/no-tail
                                               (vector-ref %expanded-vtables 5)
                                               #f
                                               '(guile)
                                               'list
                                               #f)))
                                         (arg-exps-14773 (list x-14195)))
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 11)
                                       #f
                                       fun-exp-14772
                                       arg-exps-14773))
                                   (let ((fun-exp-14796
                                           (if (equal?
                                                 (module-name (current-module))
                                                 '(guile))
                                             (make-struct/no-tail
                                               (vector-ref %expanded-vtables 7)
                                               #f
                                               '$sc-dispatch)
                                             (make-struct/no-tail
                                               (vector-ref %expanded-vtables 5)
                                               #f
                                               '(guile)
                                               '$sc-dispatch
                                               #f)))
                                         (arg-exps-14797
                                           (list x-14195
                                                 (make-struct/no-tail
                                                   (vector-ref
                                                     %expanded-vtables
                                                     1)
                                                   #f
                                                   p-14357))))
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 11)
                                       #f
                                       fun-exp-14796
                                       arg-exps-14797))))))))))))
           (gen-syntax-case-13229
             (lambda (x-13628
                      keys-13629
                      clauses-13630
                      r-13631
                      mod-13632)
               (if (null? clauses-13630)
                 (let ((fun-exp-13637
                         (if (equal? (module-name (current-module)) '(guile))
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 7)
                             #f
                             'syntax-violation)
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 5)
                             #f
                             '(guile)
                             'syntax-violation
                             #f)))
                       (arg-exps-13638
                         (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-13628)))
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 11)
                     #f
                     fun-exp-13637
                     arg-exps-13638))
                 (let ((tmp-13671 (car clauses-13630)))
                   (let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any))))
                     (if tmp-13672
                       (@apply
                         (lambda (pat-13674 exp-13675)
                           (if (if (if (symbol? pat-13674)
                                     #t
                                     (if (if (vector? pat-13674)
                                           (if (= (vector-length pat-13674) 4)
                                             (eq? (vector-ref pat-13674 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
                                       (symbol? (vector-ref pat-13674 1))
                                       #f))
                                 (and-map
                                   (lambda (x-13702)
                                     (not (if (eq? (if (if (vector? pat-13674)
                                                         (if (= (vector-length
                                                                  pat-13674)
                                                                4)
                                                           (eq? (vector-ref
                                                                  pat-13674
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (vector-ref pat-13674 1)
                                                     pat-13674)
                                                   (if (if (vector? x-13702)
                                                         (if (= (vector-length
                                                                  x-13702)
                                                                4)
                                                           (eq? (vector-ref
                                                                  x-13702
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
                                                     (vector-ref x-13702 1)
                                                     x-13702))
                                            (eq? (id-var-name-6568
                                                   pat-13674
                                                   '(()))
                                                 (id-var-name-6568
                                                   x-13702
                                                   '(())))
                                            #f)))
                                   (cons '#(syntax-object
                                            ...
                                            ((top)
                                             #(ribcage
                                               #(pat exp)
                                               #((top) (top))
                                               #("l-*-6087" "l-*-6088"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x keys clauses r mod)
                                               #((top) (top) (top) (top) (top))
                                               #("l-*-6076"
                                                 "l-*-6077"
                                                 "l-*-6078"
                                                 "l-*-6079"
                                                 "l-*-6080"))
                                             #(ribcage
                                               (gen-syntax-case
                                                 gen-clause
                                                 build-dispatch-call
                                                 convert-pattern)
                                               ((top) (top) (top) (top))
                                               ("l-*-5886"
                                                "l-*-5884"
                                                "l-*-5882"
                                                "l-*-5880"))
                                             #(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-application
                                                 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=?
                                                 with-transformer-environment
                                                 transformer-environment
                                                 resolve-identifier
                                                 locally-bound-identifiers
                                                 id-var-name
                                                 same-marks?
                                                 join-marks
                                                 join-wraps
                                                 smart-append
                                                 make-binding-wrap
                                                 extend-ribcage!
                                                 make-empty-ribcage
                                                 new-mark
                                                 anti-mark
                                                 the-anti-mark
                                                 top-marked?
                                                 top-wrap
                                                 empty-wrap
                                                 set-ribcage-labels!
                                                 set-ribcage-marks!
                                                 set-ribcage-symnames!
                                                 ribcage-labels
                                                 ribcage-marks
                                                 ribcage-symnames
                                                 ribcage?
                                                 make-ribcage
                                                 gen-labels
                                                 gen-label
                                                 make-rename
                                                 rename-marks
                                                 rename-new
                                                 rename-old
                                                 subst-rename?
                                                 wrap-subst
                                                 wrap-marks
                                                 make-wrap
                                                 id-sym-name&marks
                                                 id-sym-name
                                                 id?
                                                 nonsymbol-id?
                                                 global-extend
                                                 lookup
                                                 macros-only-env
                                                 extend-var-env
                                                 extend-env
                                                 null-env
                                                 binding-value
                                                 binding-type
                                                 make-binding
                                                 arg-check
                                                 source-annotation
                                                 no-source
                                                 set-syntax-object-module!
                                                 set-syntax-object-wrap!
                                                 set-syntax-object-expression!
                                                 syntax-object-module
                                                 syntax-object-wrap
                                                 syntax-object-expression
                                                 syntax-object?
                                                 make-syntax-object
                                                 build-lexical-var
                                                 build-letrec
                                                 build-named-let
                                                 build-let
                                                 build-sequence
                                                 build-data
                                                 build-primref
                                                 build-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-application
                                                 build-void
                                                 maybe-name-value!
                                                 decorate-source
                                                 get-global-definition-hook
                                                 put-global-definition-hook
                                                 session-id
                                                 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-sequence
                                                 make-application
                                                 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)
                                                (top)
                                                (top))
                                               ("l-*-2527"
                                                "l-*-2525"
                                                "l-*-2523"
                                                "l-*-2521"
                                                "l-*-2519"
                                                "l-*-2517"
                                                "l-*-2515"
                                                "l-*-2513"
                                                "l-*-2511"
                                                "l-*-2509"
                                                "l-*-2507"
                                                "l-*-2505"
                                                "l-*-2503"
                                                "l-*-2501"
                                                "l-*-2499"
                                                "l-*-2497"
                                                "l-*-2495"
                                                "l-*-2493"
                                                "l-*-2491"
                                                "l-*-2489"
                                                "l-*-2487"
                                                "l-*-2485"
                                                "l-*-2483"
                                                "l-*-2481"
                                                "l-*-2479"
                                                "l-*-2477"
                                                "l-*-2475"
                                                "l-*-2473"
                                                "l-*-2471"
                                                "l-*-2469"
                                                "l-*-2467"
                                                "l-*-2465"
                                                "l-*-2463"
                                                "l-*-2461"
                                                "l-*-2459"
                                                "l-*-2457"
                                                "l-*-2455"
                                                "l-*-2453"
                                                "l-*-2451"
                                                "l-*-2450"
                                                "l-*-2448"
                                                "l-*-2445"
                                                "l-*-2444"
                                                "l-*-2443"
                                                "l-*-2441"
                                                "l-*-2440"
                                                "l-*-2438"
                                                "l-*-2436"
                                                "l-*-2434"
                                                "l-*-2432"
                                                "l-*-2430"
                                                "l-*-2428"
                                                "l-*-2426"
                                                "l-*-2424"
                                                "l-*-2421"
                                                "l-*-2419"
                                                "l-*-2418"
                                                "l-*-2416"
                                                "l-*-2414"
                                                "l-*-2412"
                                                "l-*-2410"
                                                "l-*-2409"
                                                "l-*-2408"
                                                "l-*-2407"
                                                "l-*-2405"
                                                "l-*-2404"
                                                "l-*-2401"
                                                "l-*-2399"
                                                "l-*-2397"
                                                "l-*-2395"
                                                "l-*-2393"
                                                "l-*-2391"
                                                "l-*-2389"
                                                "l-*-2388"
                                                "l-*-2387"
                                                "l-*-2385"
                                                "l-*-2383"
                                                "l-*-2382"
                                                "l-*-2379"
                                                "l-*-2378"
                                                "l-*-2376"
                                                "l-*-2374"
                                                "l-*-2372"
                                                "l-*-2370"
                                                "l-*-2368"
                                                "l-*-2366"
                                                "l-*-2364"
                                                "l-*-2362"
                                                "l-*-2360"
                                                "l-*-2357"
                                                "l-*-2355"
                                                "l-*-2353"
                                                "l-*-2351"
                                                "l-*-2349"
                                                "l-*-2347"
                                                "l-*-2345"
                                                "l-*-2343"
                                                "l-*-2341"
                                                "l-*-2339"
                                                "l-*-2337"
                                                "l-*-2335"
                                                "l-*-2333"
                                                "l-*-2331"
                                                "l-*-2329"
                                                "l-*-2327"
                                                "l-*-2325"
                                                "l-*-2323"
                                                "l-*-2321"
                                                "l-*-2319"
                                                "l-*-2317"
                                                "l-*-2315"
                                                "l-*-2313"
                                                "l-*-2311"
                                                "l-*-2309"
                                                "l-*-2307"
                                                "l-*-2306"
                                                "l-*-2305"
                                                "l-*-2304"
                                                "l-*-2303"
                                                "l-*-2301"
                                                "l-*-2299"
                                                "l-*-2297"
                                                "l-*-2294"
                                                "l-*-2292"
                                                "l-*-2290"
                                                "l-*-2288"
                                                "l-*-2286"
                                                "l-*-2284"
                                                "l-*-2282"
                                                "l-*-2280"
                                                "l-*-2278"
                                                "l-*-2276"
                                                "l-*-2274"
                                                "l-*-2272"
                                                "l-*-2270"
                                                "l-*-2268"
                                                "l-*-2266"
                                                "l-*-2264"
                                                "l-*-2262"
                                                "l-*-2260"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors)
                                               ((top) (top) (top))
                                               ("l-*-2098"
                                                "l-*-2097"
                                                "l-*-2096")))
                                            (hygiene guile))
                                         keys-13629))
                                 #f)
                             (if (if (eq? (if (if (= (vector-length
                                                       '#(syntax-object
                                                          pad
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
                                                             #("l-*-6087"
                                                               "l-*-6088"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
                                                               keys
                                                               clauses
                                                               r
                                                               mod)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("l-*-6076"
                                                               "l-*-6077"
                                                               "l-*-6078"
                                                               "l-*-6079"
                                                               "l-*-6080"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
                                                               build-dispatch-call
                                                               convert-pattern)
                                                             ((top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                             ("l-*-5886"
                                                              "l-*-5884"
                                                              "l-*-5882"
                                                              "l-*-5880"))
                                                           #(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-application
                                                               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=?
                                                               with-transformer-environment
                                                               transformer-environment
                                                               resolve-identifier
                                                               locally-bound-identifiers
                                                               id-var-name
                                                               same-marks?
                                                               join-marks
                                                               join-wraps
                                                               smart-append
                                                               make-binding-wrap
                                                               extend-ribcage!
                                                               make-empty-ribcage
                                                               new-mark
                                                               anti-mark
                                                               the-anti-mark
                                                               top-marked?
                                                               top-wrap
                                                               empty-wrap
                                                               set-ribcage-labels!
                                                               set-ribcage-marks!
                                                               set-ribcage-symnames!
                                                               ribcage-labels
                                                               ribcage-marks
                                                               ribcage-symnames
                                                               ribcage?
                                                               make-ribcage
                                                               gen-labels
                                                               gen-label
                                                               make-rename
                                                               rename-marks
                                                               rename-new
                                                               rename-old
                                                               subst-rename?
                                                               wrap-subst
                                                               wrap-marks
                                                               make-wrap
                                                               id-sym-name&marks
                                                               id-sym-name
                                                               id?
                                                               nonsymbol-id?
                                                               global-extend
                                                               lookup
                                                               macros-only-env
                                                               extend-var-env
                                                               extend-env
                                                               null-env
                                                               binding-value
                                                               binding-type
                                                               make-binding
                                                               arg-check
                                                               source-annotation
                                                               no-source
                                                               set-syntax-object-module!
                                                               set-syntax-object-wrap!
                                                               set-syntax-object-expression!
                                                               syntax-object-module
                                                               syntax-object-wrap
                                                               syntax-object-expression
                                                               syntax-object?
                                                               make-syntax-object
                                                               build-lexical-var
                                                               build-letrec
                                                               build-named-let
                                                               build-let
                                                               build-sequence
                                                               build-data
                                                               build-primref
                                                               build-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-application
                                                               build-void
                                                               maybe-name-value!
                                                               decorate-source
                                                               get-global-definition-hook
                                                               put-global-definition-hook
                                                               session-id
                                                               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-sequence
                                                               make-application
                                                               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)
                                                              (top)
                                                              (top))
                                                             ("l-*-2527"
                                                              "l-*-2525"
                                                              "l-*-2523"
                                                              "l-*-2521"
                                                              "l-*-2519"
                                                              "l-*-2517"
                                                              "l-*-2515"
                                                              "l-*-2513"
                                                              "l-*-2511"
                                                              "l-*-2509"
                                                              "l-*-2507"
                                                              "l-*-2505"
                                                              "l-*-2503"
                                                              "l-*-2501"
                                                              "l-*-2499"
                                                              "l-*-2497"
                                                              "l-*-2495"
                                                              "l-*-2493"
                                                              "l-*-2491"
                                                              "l-*-2489"
                                                              "l-*-2487"
                                                              "l-*-2485"
                                                              "l-*-2483"
                                                              "l-*-2481"
                                                              "l-*-2479"
                                                              "l-*-2477"
                                                              "l-*-2475"
                                                              "l-*-2473"
                                                              "l-*-2471"
                                                              "l-*-2469"
                                                              "l-*-2467"
                                                              "l-*-2465"
                                                              "l-*-2463"
                                                              "l-*-2461"
                                                              "l-*-2459"
                                                              "l-*-2457"
                                                              "l-*-2455"
                                                              "l-*-2453"
                                                              "l-*-2451"
                                                              "l-*-2450"
                                                              "l-*-2448"
                                                              "l-*-2445"
                                                              "l-*-2444"
                                                              "l-*-2443"
                                                              "l-*-2441"
                                                              "l-*-2440"
                                                              "l-*-2438"
                                                              "l-*-2436"
                                                              "l-*-2434"
                                                              "l-*-2432"
                                                              "l-*-2430"
                                                              "l-*-2428"
                                                              "l-*-2426"
                                                              "l-*-2424"
                                                              "l-*-2421"
                                                              "l-*-2419"
                                                              "l-*-2418"
                                                              "l-*-2416"
                                                              "l-*-2414"
                                                              "l-*-2412"
                                                              "l-*-2410"
                                                              "l-*-2409"
                                                              "l-*-2408"
                                                              "l-*-2407"
                                                              "l-*-2405"
                                                              "l-*-2404"
                                                              "l-*-2401"
                                                              "l-*-2399"
                                                              "l-*-2397"
                                                              "l-*-2395"
                                                              "l-*-2393"
                                                              "l-*-2391"
                                                              "l-*-2389"
                                                              "l-*-2388"
                                                              "l-*-2387"
                                                              "l-*-2385"
                                                              "l-*-2383"
                                                              "l-*-2382"
                                                              "l-*-2379"
                                                              "l-*-2378"
                                                              "l-*-2376"
                                                              "l-*-2374"
                                                              "l-*-2372"
                                                              "l-*-2370"
                                                              "l-*-2368"
                                                              "l-*-2366"
                                                              "l-*-2364"
                                                              "l-*-2362"
                                                              "l-*-2360"
                                                              "l-*-2357"
                                                              "l-*-2355"
                                                              "l-*-2353"
                                                              "l-*-2351"
                                                              "l-*-2349"
                                                              "l-*-2347"
                                                              "l-*-2345"
                                                              "l-*-2343"
                                                              "l-*-2341"
                                                              "l-*-2339"
                                                              "l-*-2337"
                                                              "l-*-2335"
                                                              "l-*-2333"
                                                              "l-*-2331"
                                                              "l-*-2329"
                                                              "l-*-2327"
                                                              "l-*-2325"
                                                              "l-*-2323"
                                                              "l-*-2321"
                                                              "l-*-2319"
                                                              "l-*-2317"
                                                              "l-*-2315"
                                                              "l-*-2313"
                                                              "l-*-2311"
                                                              "l-*-2309"
                                                              "l-*-2307"
                                                              "l-*-2306"
                                                              "l-*-2305"
                                                              "l-*-2304"
                                                              "l-*-2303"
                                                              "l-*-2301"
                                                              "l-*-2299"
                                                              "l-*-2297"
                                                              "l-*-2294"
                                                              "l-*-2292"
                                                              "l-*-2290"
                                                              "l-*-2288"
                                                              "l-*-2286"
                                                              "l-*-2284"
                                                              "l-*-2282"
                                                              "l-*-2280"
                                                              "l-*-2278"
                                                              "l-*-2276"
                                                              "l-*-2274"
                                                              "l-*-2272"
                                                              "l-*-2270"
                                                              "l-*-2268"
                                                              "l-*-2266"
                                                              "l-*-2264"
                                                              "l-*-2262"
                                                              "l-*-2260"))
                                                           #(ribcage
                                                             (define-structure
                                                               define-expansion-accessors
                                                               define-expansion-constructors)
                                                             ((top)
                                                              (top)
                                                              (top))
                                                             ("l-*-2098"
                                                              "l-*-2097"
                                                              "l-*-2096")))
                                                          (hygiene guile)))
                                                     4)
                                                #t
                                                #f)
                                            'pad
                                            '#(syntax-object
                                               pad
                                               ((top)
                                                #(ribcage
                                                  #(pat exp)
                                                  #((top) (top))
                                                  #("l-*-6087" "l-*-6088"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x keys clauses r mod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("l-*-6076"
                                                    "l-*-6077"
                                                    "l-*-6078"
                                                    "l-*-6079"
                                                    "l-*-6080"))
                                                #(ribcage
                                                  (gen-syntax-case
                                                    gen-clause
                                                    build-dispatch-call
                                                    convert-pattern)
                                                  ((top) (top) (top) (top))
                                                  ("l-*-5886"
                                                   "l-*-5884"
                                                   "l-*-5882"
                                                   "l-*-5880"))
                                                #(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-application
                                                    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=?
                                                    with-transformer-environment
                                                    transformer-environment
                                                    resolve-identifier
                                                    locally-bound-identifiers
                                                    id-var-name
                                                    same-marks?
                                                    join-marks
                                                    join-wraps
                                                    smart-append
                                                    make-binding-wrap
                                                    extend-ribcage!
                                                    make-empty-ribcage
                                                    new-mark
                                                    anti-mark
                                                    the-anti-mark
                                                    top-marked?
                                                    top-wrap
                                                    empty-wrap
                                                    set-ribcage-labels!
                                                    set-ribcage-marks!
                                                    set-ribcage-symnames!
                                                    ribcage-labels
                                                    ribcage-marks
                                                    ribcage-symnames
                                                    ribcage?
                                                    make-ribcage
                                                    gen-labels
                                                    gen-label
                                                    make-rename
                                                    rename-marks
                                                    rename-new
                                                    rename-old
                                                    subst-rename?
                                                    wrap-subst
                                                    wrap-marks
                                                    make-wrap
                                                    id-sym-name&marks
                                                    id-sym-name
                                                    id?
                                                    nonsymbol-id?
                                                    global-extend
                                                    lookup
                                                    macros-only-env
                                                    extend-var-env
                                                    extend-env
                                                    null-env
                                                    binding-value
                                                    binding-type
                                                    make-binding
                                                    arg-check
                                                    source-annotation
                                                    no-source
                                                    set-syntax-object-module!
                                                    set-syntax-object-wrap!
                                                    set-syntax-object-expression!
                                                    syntax-object-module
                                                    syntax-object-wrap
                                                    syntax-object-expression
                                                    syntax-object?
                                                    make-syntax-object
                                                    build-lexical-var
                                                    build-letrec
                                                    build-named-let
                                                    build-let
                                                    build-sequence
                                                    build-data
                                                    build-primref
                                                    build-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-application
                                                    build-void
                                                    maybe-name-value!
                                                    decorate-source
                                                    get-global-definition-hook
                                                    put-global-definition-hook
                                                    session-id
                                                    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-sequence
                                                    make-application
                                                    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)
                                                   (top)
                                                   (top))
                                                  ("l-*-2527"
                                                   "l-*-2525"
                                                   "l-*-2523"
                                                   "l-*-2521"
                                                   "l-*-2519"
                                                   "l-*-2517"
                                                   "l-*-2515"
                                                   "l-*-2513"
                                                   "l-*-2511"
                                                   "l-*-2509"
                                                   "l-*-2507"
                                                   "l-*-2505"
                                                   "l-*-2503"
                                                   "l-*-2501"
                                                   "l-*-2499"
                                                   "l-*-2497"
                                                   "l-*-2495"
                                                   "l-*-2493"
                                                   "l-*-2491"
                                                   "l-*-2489"
                                                   "l-*-2487"
                                                   "l-*-2485"
                                                   "l-*-2483"
                                                   "l-*-2481"
                                                   "l-*-2479"
                                                   "l-*-2477"
                                                   "l-*-2475"
                                                   "l-*-2473"
                                                   "l-*-2471"
                                                   "l-*-2469"
                                                   "l-*-2467"
                                                   "l-*-2465"
                                                   "l-*-2463"
                                                   "l-*-2461"
                                                   "l-*-2459"
                                                   "l-*-2457"
                                                   "l-*-2455"
                                                   "l-*-2453"
                                                   "l-*-2451"
                                                   "l-*-2450"
                                                   "l-*-2448"
                                                   "l-*-2445"
                                                   "l-*-2444"
                                                   "l-*-2443"
                                                   "l-*-2441"
                                                   "l-*-2440"
                                                   "l-*-2438"
                                                   "l-*-2436"
                                                   "l-*-2434"
                                                   "l-*-2432"
                                                   "l-*-2430"
                                                   "l-*-2428"
                                                   "l-*-2426"
                                                   "l-*-2424"
                                                   "l-*-2421"
                                                   "l-*-2419"
                                                   "l-*-2418"
                                                   "l-*-2416"
                                                   "l-*-2414"
                                                   "l-*-2412"
                                                   "l-*-2410"
                                                   "l-*-2409"
                                                   "l-*-2408"
                                                   "l-*-2407"
                                                   "l-*-2405"
                                                   "l-*-2404"
                                                   "l-*-2401"
                                                   "l-*-2399"
                                                   "l-*-2397"
                                                   "l-*-2395"
                                                   "l-*-2393"
                                                   "l-*-2391"
                                                   "l-*-2389"
                                                   "l-*-2388"
                                                   "l-*-2387"
                                                   "l-*-2385"
                                                   "l-*-2383"
                                                   "l-*-2382"
                                                   "l-*-2379"
                                                   "l-*-2378"
                                                   "l-*-2376"
                                                   "l-*-2374"
                                                   "l-*-2372"
                                                   "l-*-2370"
                                                   "l-*-2368"
                                                   "l-*-2366"
                                                   "l-*-2364"
                                                   "l-*-2362"
                                                   "l-*-2360"
                                                   "l-*-2357"
                                                   "l-*-2355"
                                                   "l-*-2353"
                                                   "l-*-2351"
                                                   "l-*-2349"
                                                   "l-*-2347"
                                                   "l-*-2345"
                                                   "l-*-2343"
                                                   "l-*-2341"
                                                   "l-*-2339"
                                                   "l-*-2337"
                                                   "l-*-2335"
                                                   "l-*-2333"
                                                   "l-*-2331"
                                                   "l-*-2329"
                                                   "l-*-2327"
                                                   "l-*-2325"
                                                   "l-*-2323"
                                                   "l-*-2321"
                                                   "l-*-2319"
                                                   "l-*-2317"
                                                   "l-*-2315"
                                                   "l-*-2313"
                                                   "l-*-2311"
                                                   "l-*-2309"
                                                   "l-*-2307"
                                                   "l-*-2306"
                                                   "l-*-2305"
                                                   "l-*-2304"
                                                   "l-*-2303"
                                                   "l-*-2301"
                                                   "l-*-2299"
                                                   "l-*-2297"
                                                   "l-*-2294"
                                                   "l-*-2292"
                                                   "l-*-2290"
                                                   "l-*-2288"
                                                   "l-*-2286"
                                                   "l-*-2284"
                                                   "l-*-2282"
                                                   "l-*-2280"
                                                   "l-*-2278"
                                                   "l-*-2276"
                                                   "l-*-2274"
                                                   "l-*-2272"
                                                   "l-*-2270"
                                                   "l-*-2268"
                                                   "l-*-2266"
                                                   "l-*-2264"
                                                   "l-*-2262"
                                                   "l-*-2260"))
                                                #(ribcage
                                                  (define-structure
                                                    define-expansion-accessors
                                                    define-expansion-constructors)
                                                  ((top) (top) (top))
                                                  ("l-*-2098"
                                                   "l-*-2097"
                                                   "l-*-2096")))
                                               (hygiene guile)))
                                          (if (if (= (vector-length
                                                       '#(syntax-object
                                                          _
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
                                                             #("l-*-6087"
                                                               "l-*-6088"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
                                                               keys
                                                               clauses
                                                               r
                                                               mod)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("l-*-6076"
                                                               "l-*-6077"
                                                               "l-*-6078"
                                                               "l-*-6079"
                                                               "l-*-6080"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
                                                               build-dispatch-call
                                                               convert-pattern)
                                                             ((top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                             ("l-*-5886"
                                                              "l-*-5884"
                                                              "l-*-5882"
                                                              "l-*-5880"))
                                                           #(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-application
                                                               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=?
                                                               with-transformer-environment
                                                               transformer-environment
                                                               resolve-identifier
                                                               locally-bound-identifiers
                                                               id-var-name
                                                               same-marks?
                                                               join-marks
                                                               join-wraps
                                                               smart-append
                                                               make-binding-wrap
                                                               extend-ribcage!
                                                               make-empty-ribcage
                                                               new-mark
                                                               anti-mark
                                                               the-anti-mark
                                                               top-marked?
                                                               top-wrap
                                                               empty-wrap
                                                               set-ribcage-labels!
                                                               set-ribcage-marks!
                                                               set-ribcage-symnames!
                                                               ribcage-labels
                                                               ribcage-marks
                                                               ribcage-symnames
                                                               ribcage?
                                                               make-ribcage
                                                               gen-labels
                                                               gen-label
                                                               make-rename
                                                               rename-marks
                                                               rename-new
                                                               rename-old
                                                               subst-rename?
                                                               wrap-subst
                                                               wrap-marks
                                                               make-wrap
                                                               id-sym-name&marks
                                                               id-sym-name
                                                               id?
                                                               nonsymbol-id?
                                                               global-extend
                                                               lookup
                                                               macros-only-env
                                                               extend-var-env
                                                               extend-env
                                                               null-env
                                                               binding-value
                                                               binding-type
                                                               make-binding
                                                               arg-check
                                                               source-annotation
                                                               no-source
                                                               set-syntax-object-module!
                                                               set-syntax-object-wrap!
                                                               set-syntax-object-expression!
                                                               syntax-object-module
                                                               syntax-object-wrap
                                                               syntax-object-expression
                                                               syntax-object?
                                                               make-syntax-object
                                                               build-lexical-var
                                                               build-letrec
                                                               build-named-let
                                                               build-let
                                                               build-sequence
                                                               build-data
                                                               build-primref
                                                               build-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-application
                                                               build-void
                                                               maybe-name-value!
                                                               decorate-source
                                                               get-global-definition-hook
                                                               put-global-definition-hook
                                                               session-id
                                                               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-sequence
                                                               make-application
                                                               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)
                                                              (top)
                                                              (top))
                                                             ("l-*-2527"
                                                              "l-*-2525"
                                                              "l-*-2523"
                                                              "l-*-2521"
                                                              "l-*-2519"
                                                              "l-*-2517"
                                                              "l-*-2515"
                                                              "l-*-2513"
                                                              "l-*-2511"
                                                              "l-*-2509"
                                                              "l-*-2507"
                                                              "l-*-2505"
                                                              "l-*-2503"
                                                              "l-*-2501"
                                                              "l-*-2499"
                                                              "l-*-2497"
                                                              "l-*-2495"
                                                              "l-*-2493"
                                                              "l-*-2491"
                                                              "l-*-2489"
                                                              "l-*-2487"
                                                              "l-*-2485"
                                                              "l-*-2483"
                                                              "l-*-2481"
                                                              "l-*-2479"
                                                              "l-*-2477"
                                                              "l-*-2475"
                                                              "l-*-2473"
                                                              "l-*-2471"
                                                              "l-*-2469"
                                                              "l-*-2467"
                                                              "l-*-2465"
                                                              "l-*-2463"
                                                              "l-*-2461"
                                                              "l-*-2459"
                                                              "l-*-2457"
                                                              "l-*-2455"
                                                              "l-*-2453"
                                                              "l-*-2451"
                                                              "l-*-2450"
                                                              "l-*-2448"
                                                              "l-*-2445"
                                                              "l-*-2444"
                                                              "l-*-2443"
                                                              "l-*-2441"
                                                              "l-*-2440"
                                                              "l-*-2438"
                                                              "l-*-2436"
                                                              "l-*-2434"
                                                              "l-*-2432"
                                                              "l-*-2430"
                                                              "l-*-2428"
                                                              "l-*-2426"
                                                              "l-*-2424"
                                                              "l-*-2421"
                                                              "l-*-2419"
                                                              "l-*-2418"
                                                              "l-*-2416"
                                                              "l-*-2414"
                                                              "l-*-2412"
                                                              "l-*-2410"
                                                              "l-*-2409"
                                                              "l-*-2408"
                                                              "l-*-2407"
                                                              "l-*-2405"
                                                              "l-*-2404"
                                                              "l-*-2401"
                                                              "l-*-2399"
                                                              "l-*-2397"
                                                              "l-*-2395"
                                                              "l-*-2393"
                                                              "l-*-2391"
                                                              "l-*-2389"
                                                              "l-*-2388"
                                                              "l-*-2387"
                                                              "l-*-2385"
                                                              "l-*-2383"
                                                              "l-*-2382"
                                                              "l-*-2379"
                                                              "l-*-2378"
                                                              "l-*-2376"
                                                              "l-*-2374"
                                                              "l-*-2372"
                                                              "l-*-2370"
                                                              "l-*-2368"
                                                              "l-*-2366"
                                                              "l-*-2364"
                                                              "l-*-2362"
                                                              "l-*-2360"
                                                              "l-*-2357"
                                                              "l-*-2355"
                                                              "l-*-2353"
                                                              "l-*-2351"
                                                              "l-*-2349"
                                                              "l-*-2347"
                                                              "l-*-2345"
                                                              "l-*-2343"
                                                              "l-*-2341"
                                                              "l-*-2339"
                                                              "l-*-2337"
                                                              "l-*-2335"
                                                              "l-*-2333"
                                                              "l-*-2331"
                                                              "l-*-2329"
                                                              "l-*-2327"
                                                              "l-*-2325"
                                                              "l-*-2323"
                                                              "l-*-2321"
                                                              "l-*-2319"
                                                              "l-*-2317"
                                                              "l-*-2315"
                                                              "l-*-2313"
                                                              "l-*-2311"
                                                              "l-*-2309"
                                                              "l-*-2307"
                                                              "l-*-2306"
                                                              "l-*-2305"
                                                              "l-*-2304"
                                                              "l-*-2303"
                                                              "l-*-2301"
                                                              "l-*-2299"
                                                              "l-*-2297"
                                                              "l-*-2294"
                                                              "l-*-2292"
                                                              "l-*-2290"
                                                              "l-*-2288"
                                                              "l-*-2286"
                                                              "l-*-2284"
                                                              "l-*-2282"
                                                              "l-*-2280"
                                                              "l-*-2278"
                                                              "l-*-2276"
                                                              "l-*-2274"
                                                              "l-*-2272"
                                                              "l-*-2270"
                                                              "l-*-2268"
                                                              "l-*-2266"
                                                              "l-*-2264"
                                                              "l-*-2262"
                                                              "l-*-2260"))
                                                           #(ribcage
                                                             (define-structure
                                                               define-expansion-accessors
                                                               define-expansion-constructors)
                                                             ((top)
                                                              (top)
                                                              (top))
                                                             ("l-*-2098"
                                                              "l-*-2097"
                                                              "l-*-2096")))
                                                          (hygiene guile)))
                                                     4)
                                                #t
                                                #f)
                                            '_
                                            '#(syntax-object
                                               _
                                               ((top)
                                                #(ribcage
                                                  #(pat exp)
                                                  #((top) (top))
                                                  #("l-*-6087" "l-*-6088"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x keys clauses r mod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("l-*-6076"
                                                    "l-*-6077"
                                                    "l-*-6078"
                                                    "l-*-6079"
                                                    "l-*-6080"))
                                                #(ribcage
                                                  (gen-syntax-case
                                                    gen-clause
                                                    build-dispatch-call
                                                    convert-pattern)
                                                  ((top) (top) (top) (top))
                                                  ("l-*-5886"
                                                   "l-*-5884"
                                                   "l-*-5882"
                                                   "l-*-5880"))
                                                #(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-application
                                                    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=?
                                                    with-transformer-environment
                                                    transformer-environment
                                                    resolve-identifier
                                                    locally-bound-identifiers
                                                    id-var-name
                                                    same-marks?
                                                    join-marks
                                                    join-wraps
                                                    smart-append
                                                    make-binding-wrap
                                                    extend-ribcage!
                                                    make-empty-ribcage
                                                    new-mark
                                                    anti-mark
                                                    the-anti-mark
                                                    top-marked?
                                                    top-wrap
                                                    empty-wrap
                                                    set-ribcage-labels!
                                                    set-ribcage-marks!
                                                    set-ribcage-symnames!
                                                    ribcage-labels
                                                    ribcage-marks
                                                    ribcage-symnames
                                                    ribcage?
                                                    make-ribcage
                                                    gen-labels
                                                    gen-label
                                                    make-rename
                                                    rename-marks
                                                    rename-new
                                                    rename-old
                                                    subst-rename?
                                                    wrap-subst
                                                    wrap-marks
                                                    make-wrap
                                                    id-sym-name&marks
                                                    id-sym-name
                                                    id?
                                                    nonsymbol-id?
                                                    global-extend
                                                    lookup
                                                    macros-only-env
                                                    extend-var-env
                                                    extend-env
                                                    null-env
                                                    binding-value
                                                    binding-type
                                                    make-binding
                                                    arg-check
                                                    source-annotation
                                                    no-source
                                                    set-syntax-object-module!
                                                    set-syntax-object-wrap!
                                                    set-syntax-object-expression!
                                                    syntax-object-module
                                                    syntax-object-wrap
                                                    syntax-object-expression
                                                    syntax-object?
                                                    make-syntax-object
                                                    build-lexical-var
                                                    build-letrec
                                                    build-named-let
                                                    build-let
                                                    build-sequence
                                                    build-data
                                                    build-primref
                                                    build-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-application
                                                    build-void
                                                    maybe-name-value!
                                                    decorate-source
                                                    get-global-definition-hook
                                                    put-global-definition-hook
                                                    session-id
                                                    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-sequence
                                                    make-application
                                                    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)
                                                   (top)
                                                   (top))
                                                  ("l-*-2527"
                                                   "l-*-2525"
                                                   "l-*-2523"
                                                   "l-*-2521"
                                                   "l-*-2519"
                                                   "l-*-2517"
                                                   "l-*-2515"
                                                   "l-*-2513"
                                                   "l-*-2511"
                                                   "l-*-2509"
                                                   "l-*-2507"
                                                   "l-*-2505"
                                                   "l-*-2503"
                                                   "l-*-2501"
                                                   "l-*-2499"
                                                   "l-*-2497"
                                                   "l-*-2495"
                                                   "l-*-2493"
                                                   "l-*-2491"
                                                   "l-*-2489"
                                                   "l-*-2487"
                                                   "l-*-2485"
                                                   "l-*-2483"
                                                   "l-*-2481"
                                                   "l-*-2479"
                                                   "l-*-2477"
                                                   "l-*-2475"
                                                   "l-*-2473"
                                                   "l-*-2471"
                                                   "l-*-2469"
                                                   "l-*-2467"
                                                   "l-*-2465"
                                                   "l-*-2463"
                                                   "l-*-2461"
                                                   "l-*-2459"
                                                   "l-*-2457"
                                                   "l-*-2455"
                                                   "l-*-2453"
                                                   "l-*-2451"
                                                   "l-*-2450"
                                                   "l-*-2448"
                                                   "l-*-2445"
                                                   "l-*-2444"
                                                   "l-*-2443"
                                                   "l-*-2441"
                                                   "l-*-2440"
                                                   "l-*-2438"
                                                   "l-*-2436"
                                                   "l-*-2434"
                                                   "l-*-2432"
                                                   "l-*-2430"
                                                   "l-*-2428"
                                                   "l-*-2426"
                                                   "l-*-2424"
                                                   "l-*-2421"
                                                   "l-*-2419"
                                                   "l-*-2418"
                                                   "l-*-2416"
                                                   "l-*-2414"
                                                   "l-*-2412"
                                                   "l-*-2410"
                                                   "l-*-2409"
                                                   "l-*-2408"
                                                   "l-*-2407"
                                                   "l-*-2405"
                                                   "l-*-2404"
                                                   "l-*-2401"
                                                   "l-*-2399"
                                                   "l-*-2397"
                                                   "l-*-2395"
                                                   "l-*-2393"
                                                   "l-*-2391"
                                                   "l-*-2389"
                                                   "l-*-2388"
                                                   "l-*-2387"
                                                   "l-*-2385"
                                                   "l-*-2383"
                                                   "l-*-2382"
                                                   "l-*-2379"
                                                   "l-*-2378"
                                                   "l-*-2376"
                                                   "l-*-2374"
                                                   "l-*-2372"
                                                   "l-*-2370"
                                                   "l-*-2368"
                                                   "l-*-2366"
                                                   "l-*-2364"
                                                   "l-*-2362"
                                                   "l-*-2360"
                                                   "l-*-2357"
                                                   "l-*-2355"
                                                   "l-*-2353"
                                                   "l-*-2351"
                                                   "l-*-2349"
                                                   "l-*-2347"
                                                   "l-*-2345"
                                                   "l-*-2343"
                                                   "l-*-2341"
                                                   "l-*-2339"
                                                   "l-*-2337"
                                                   "l-*-2335"
                                                   "l-*-2333"
                                                   "l-*-2331"
                                                   "l-*-2329"
                                                   "l-*-2327"
                                                   "l-*-2325"
                                                   "l-*-2323"
                                                   "l-*-2321"
                                                   "l-*-2319"
                                                   "l-*-2317"
                                                   "l-*-2315"
                                                   "l-*-2313"
                                                   "l-*-2311"
                                                   "l-*-2309"
                                                   "l-*-2307"
                                                   "l-*-2306"
                                                   "l-*-2305"
                                                   "l-*-2304"
                                                   "l-*-2303"
                                                   "l-*-2301"
                                                   "l-*-2299"
                                                   "l-*-2297"
                                                   "l-*-2294"
                                                   "l-*-2292"
                                                   "l-*-2290"
                                                   "l-*-2288"
                                                   "l-*-2286"
                                                   "l-*-2284"
                                                   "l-*-2282"
                                                   "l-*-2280"
                                                   "l-*-2278"
                                                   "l-*-2276"
                                                   "l-*-2274"
                                                   "l-*-2272"
                                                   "l-*-2270"
                                                   "l-*-2268"
                                                   "l-*-2266"
                                                   "l-*-2264"
                                                   "l-*-2262"
                                                   "l-*-2260"))
                                                #(ribcage
                                                  (define-structure
                                                    define-expansion-accessors
                                                    define-expansion-constructors)
                                                  ((top) (top) (top))
                                                  ("l-*-2098"
                                                   "l-*-2097"
                                                   "l-*-2096")))
                                               (hygiene guile))))
                                   (eq? (id-var-name-6568
                                          '#(syntax-object
                                             pad
                                             ((top)
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
                                                #("l-*-6087" "l-*-6088"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("l-*-6076"
                                                  "l-*-6077"
                                                  "l-*-6078"
                                                  "l-*-6079"
                                                  "l-*-6080"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
                                                ("l-*-5886"
                                                 "l-*-5884"
                                                 "l-*-5882"
                                                 "l-*-5880"))
                                              #(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-application
                                                  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=?
                                                  with-transformer-environment
                                                  transformer-environment
                                                  resolve-identifier
                                                  locally-bound-identifiers
                                                  id-var-name
                                                  same-marks?
                                                  join-marks
                                                  join-wraps
                                                  smart-append
                                                  make-binding-wrap
                                                  extend-ribcage!
                                                  make-empty-ribcage
                                                  new-mark
                                                  anti-mark
                                                  the-anti-mark
                                                  top-marked?
                                                  top-wrap
                                                  empty-wrap
                                                  set-ribcage-labels!
                                                  set-ribcage-marks!
                                                  set-ribcage-symnames!
                                                  ribcage-labels
                                                  ribcage-marks
                                                  ribcage-symnames
                                                  ribcage?
                                                  make-ribcage
                                                  gen-labels
                                                  gen-label
                                                  make-rename
                                                  rename-marks
                                                  rename-new
                                                  rename-old
                                                  subst-rename?
                                                  wrap-subst
                                                  wrap-marks
                                                  make-wrap
                                                  id-sym-name&marks
                                                  id-sym-name
                                                  id?
                                                  nonsymbol-id?
                                                  global-extend
                                                  lookup
                                                  macros-only-env
                                                  extend-var-env
                                                  extend-env
                                                  null-env
                                                  binding-value
                                                  binding-type
                                                  make-binding
                                                  arg-check
                                                  source-annotation
                                                  no-source
                                                  set-syntax-object-module!
                                                  set-syntax-object-wrap!
                                                  set-syntax-object-expression!
                                                  syntax-object-module
                                                  syntax-object-wrap
                                                  syntax-object-expression
                                                  syntax-object?
                                                  make-syntax-object
                                                  build-lexical-var
                                                  build-letrec
                                                  build-named-let
                                                  build-let
                                                  build-sequence
                                                  build-data
                                                  build-primref
                                                  build-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-application
                                                  build-void
                                                  maybe-name-value!
                                                  decorate-source
                                                  get-global-definition-hook
                                                  put-global-definition-hook
                                                  session-id
                                                  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-sequence
                                                  make-application
                                                  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)
                                                 (top)
                                                 (top))
                                                ("l-*-2527"
                                                 "l-*-2525"
                                                 "l-*-2523"
                                                 "l-*-2521"
                                                 "l-*-2519"
                                                 "l-*-2517"
                                                 "l-*-2515"
                                                 "l-*-2513"
                                                 "l-*-2511"
                                                 "l-*-2509"
                                                 "l-*-2507"
                                                 "l-*-2505"
                                                 "l-*-2503"
                                                 "l-*-2501"
                                                 "l-*-2499"
                                                 "l-*-2497"
                                                 "l-*-2495"
                                                 "l-*-2493"
                                                 "l-*-2491"
                                                 "l-*-2489"
                                                 "l-*-2487"
                                                 "l-*-2485"
                                                 "l-*-2483"
                                                 "l-*-2481"
                                                 "l-*-2479"
                                                 "l-*-2477"
                                                 "l-*-2475"
                                                 "l-*-2473"
                                                 "l-*-2471"
                                                 "l-*-2469"
                                                 "l-*-2467"
                                                 "l-*-2465"
                                                 "l-*-2463"
                                                 "l-*-2461"
                                                 "l-*-2459"
                                                 "l-*-2457"
                                                 "l-*-2455"
                                                 "l-*-2453"
                                                 "l-*-2451"
                                                 "l-*-2450"
                                                 "l-*-2448"
                                                 "l-*-2445"
                                                 "l-*-2444"
                                                 "l-*-2443"
                                                 "l-*-2441"
                                                 "l-*-2440"
                                                 "l-*-2438"
                                                 "l-*-2436"
                                                 "l-*-2434"
                                                 "l-*-2432"
                                                 "l-*-2430"
                                                 "l-*-2428"
                                                 "l-*-2426"
                                                 "l-*-2424"
                                                 "l-*-2421"
                                                 "l-*-2419"
                                                 "l-*-2418"
                                                 "l-*-2416"
                                                 "l-*-2414"
                                                 "l-*-2412"
                                                 "l-*-2410"
                                                 "l-*-2409"
                                                 "l-*-2408"
                                                 "l-*-2407"
                                                 "l-*-2405"
                                                 "l-*-2404"
                                                 "l-*-2401"
                                                 "l-*-2399"
                                                 "l-*-2397"
                                                 "l-*-2395"
                                                 "l-*-2393"
                                                 "l-*-2391"
                                                 "l-*-2389"
                                                 "l-*-2388"
                                                 "l-*-2387"
                                                 "l-*-2385"
                                                 "l-*-2383"
                                                 "l-*-2382"
                                                 "l-*-2379"
                                                 "l-*-2378"
                                                 "l-*-2376"
                                                 "l-*-2374"
                                                 "l-*-2372"
                                                 "l-*-2370"
                                                 "l-*-2368"
                                                 "l-*-2366"
                                                 "l-*-2364"
                                                 "l-*-2362"
                                                 "l-*-2360"
                                                 "l-*-2357"
                                                 "l-*-2355"
                                                 "l-*-2353"
                                                 "l-*-2351"
                                                 "l-*-2349"
                                                 "l-*-2347"
                                                 "l-*-2345"
                                                 "l-*-2343"
                                                 "l-*-2341"
                                                 "l-*-2339"
                                                 "l-*-2337"
                                                 "l-*-2335"
                                                 "l-*-2333"
                                                 "l-*-2331"
                                                 "l-*-2329"
                                                 "l-*-2327"
                                                 "l-*-2325"
                                                 "l-*-2323"
                                                 "l-*-2321"
                                                 "l-*-2319"
                                                 "l-*-2317"
                                                 "l-*-2315"
                                                 "l-*-2313"
                                                 "l-*-2311"
                                                 "l-*-2309"
                                                 "l-*-2307"
                                                 "l-*-2306"
                                                 "l-*-2305"
                                                 "l-*-2304"
                                                 "l-*-2303"
                                                 "l-*-2301"
                                                 "l-*-2299"
                                                 "l-*-2297"
                                                 "l-*-2294"
                                                 "l-*-2292"
                                                 "l-*-2290"
                                                 "l-*-2288"
                                                 "l-*-2286"
                                                 "l-*-2284"
                                                 "l-*-2282"
                                                 "l-*-2280"
                                                 "l-*-2278"
                                                 "l-*-2276"
                                                 "l-*-2274"
                                                 "l-*-2272"
                                                 "l-*-2270"
                                                 "l-*-2268"
                                                 "l-*-2266"
                                                 "l-*-2264"
                                                 "l-*-2262"
                                                 "l-*-2260"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors)
                                                ((top) (top) (top))
                                                ("l-*-2098"
                                                 "l-*-2097"
                                                 "l-*-2096")))
                                             (hygiene guile))
                                          '(()))
                                        (id-var-name-6568
                                          '#(syntax-object
                                             _
                                             ((top)
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
                                                #("l-*-6087" "l-*-6088"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("l-*-6076"
                                                  "l-*-6077"
                                                  "l-*-6078"
                                                  "l-*-6079"
                                                  "l-*-6080"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
                                                ("l-*-5886"
                                                 "l-*-5884"
                                                 "l-*-5882"
                                                 "l-*-5880"))
                                              #(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-application
                                                  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=?
                                                  with-transformer-environment
                                                  transformer-environment
                                                  resolve-identifier
                                                  locally-bound-identifiers
                                                  id-var-name
                                                  same-marks?
                                                  join-marks
                                                  join-wraps
                                                  smart-append
                                                  make-binding-wrap
                                                  extend-ribcage!
                                                  make-empty-ribcage
                                                  new-mark
                                                  anti-mark
                                                  the-anti-mark
                                                  top-marked?
                                                  top-wrap
                                                  empty-wrap
                                                  set-ribcage-labels!
                                                  set-ribcage-marks!
                                                  set-ribcage-symnames!
                                                  ribcage-labels
                                                  ribcage-marks
                                                  ribcage-symnames
                                                  ribcage?
                                                  make-ribcage
                                                  gen-labels
                                                  gen-label
                                                  make-rename
                                                  rename-marks
                                                  rename-new
                                                  rename-old
                                                  subst-rename?
                                                  wrap-subst
                                                  wrap-marks
                                                  make-wrap
                                                  id-sym-name&marks
                                                  id-sym-name
                                                  id?
                                                  nonsymbol-id?
                                                  global-extend
                                                  lookup
                                                  macros-only-env
                                                  extend-var-env
                                                  extend-env
                                                  null-env
                                                  binding-value
                                                  binding-type
                                                  make-binding
                                                  arg-check
                                                  source-annotation
                                                  no-source
                                                  set-syntax-object-module!
                                                  set-syntax-object-wrap!
                                                  set-syntax-object-expression!
                                                  syntax-object-module
                                                  syntax-object-wrap
                                                  syntax-object-expression
                                                  syntax-object?
                                                  make-syntax-object
                                                  build-lexical-var
                                                  build-letrec
                                                  build-named-let
                                                  build-let
                                                  build-sequence
                                                  build-data
                                                  build-primref
                                                  build-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-application
                                                  build-void
                                                  maybe-name-value!
                                                  decorate-source
                                                  get-global-definition-hook
                                                  put-global-definition-hook
                                                  session-id
                                                  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-sequence
                                                  make-application
                                                  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)
                                                 (top)
                                                 (top))
                                                ("l-*-2527"
                                                 "l-*-2525"
                                                 "l-*-2523"
                                                 "l-*-2521"
                                                 "l-*-2519"
                                                 "l-*-2517"
                                                 "l-*-2515"
                                                 "l-*-2513"
                                                 "l-*-2511"
                                                 "l-*-2509"
                                                 "l-*-2507"
                                                 "l-*-2505"
                                                 "l-*-2503"
                                                 "l-*-2501"
                                                 "l-*-2499"
                                                 "l-*-2497"
                                                 "l-*-2495"
                                                 "l-*-2493"
                                                 "l-*-2491"
                                                 "l-*-2489"
                                                 "l-*-2487"
                                                 "l-*-2485"
                                                 "l-*-2483"
                                                 "l-*-2481"
                                                 "l-*-2479"
                                                 "l-*-2477"
                                                 "l-*-2475"
                                                 "l-*-2473"
                                                 "l-*-2471"
                                                 "l-*-2469"
                                                 "l-*-2467"
                                                 "l-*-2465"
                                                 "l-*-2463"
                                                 "l-*-2461"
                                                 "l-*-2459"
                                                 "l-*-2457"
                                                 "l-*-2455"
                                                 "l-*-2453"
                                                 "l-*-2451"
                                                 "l-*-2450"
                                                 "l-*-2448"
                                                 "l-*-2445"
                                                 "l-*-2444"
                                                 "l-*-2443"
                                                 "l-*-2441"
                                                 "l-*-2440"
                                                 "l-*-2438"
                                                 "l-*-2436"
                                                 "l-*-2434"
                                                 "l-*-2432"
                                                 "l-*-2430"
                                                 "l-*-2428"
                                                 "l-*-2426"
                                                 "l-*-2424"
                                                 "l-*-2421"
                                                 "l-*-2419"
                                                 "l-*-2418"
                                                 "l-*-2416"
                                                 "l-*-2414"
                                                 "l-*-2412"
                                                 "l-*-2410"
                                                 "l-*-2409"
                                                 "l-*-2408"
                                                 "l-*-2407"
                                                 "l-*-2405"
                                                 "l-*-2404"
                                                 "l-*-2401"
                                                 "l-*-2399"
                                                 "l-*-2397"
                                                 "l-*-2395"
                                                 "l-*-2393"
                                                 "l-*-2391"
                                                 "l-*-2389"
                                                 "l-*-2388"
                                                 "l-*-2387"
                                                 "l-*-2385"
                                                 "l-*-2383"
                                                 "l-*-2382"
                                                 "l-*-2379"
                                                 "l-*-2378"
                                                 "l-*-2376"
                                                 "l-*-2374"
                                                 "l-*-2372"
                                                 "l-*-2370"
                                                 "l-*-2368"
                                                 "l-*-2366"
                                                 "l-*-2364"
                                                 "l-*-2362"
                                                 "l-*-2360"
                                                 "l-*-2357"
                                                 "l-*-2355"
                                                 "l-*-2353"
                                                 "l-*-2351"
                                                 "l-*-2349"
                                                 "l-*-2347"
                                                 "l-*-2345"
                                                 "l-*-2343"
                                                 "l-*-2341"
                                                 "l-*-2339"
                                                 "l-*-2337"
                                                 "l-*-2335"
                                                 "l-*-2333"
                                                 "l-*-2331"
                                                 "l-*-2329"
                                                 "l-*-2327"
                                                 "l-*-2325"
                                                 "l-*-2323"
                                                 "l-*-2321"
                                                 "l-*-2319"
                                                 "l-*-2317"
                                                 "l-*-2315"
                                                 "l-*-2313"
                                                 "l-*-2311"
                                                 "l-*-2309"
                                                 "l-*-2307"
                                                 "l-*-2306"
                                                 "l-*-2305"
                                                 "l-*-2304"
                                                 "l-*-2303"
                                                 "l-*-2301"
                                                 "l-*-2299"
                                                 "l-*-2297"
                                                 "l-*-2294"
                                                 "l-*-2292"
                                                 "l-*-2290"
                                                 "l-*-2288"
                                                 "l-*-2286"
                                                 "l-*-2284"
                                                 "l-*-2282"
                                                 "l-*-2280"
                                                 "l-*-2278"
                                                 "l-*-2276"
                                                 "l-*-2274"
                                                 "l-*-2272"
                                                 "l-*-2270"
                                                 "l-*-2268"
                                                 "l-*-2266"
                                                 "l-*-2264"
                                                 "l-*-2262"
                                                 "l-*-2260"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors)
                                                ((top) (top) (top))
                                                ("l-*-2098"
                                                 "l-*-2097"
                                                 "l-*-2096")))
                                             (hygiene guile))
                                          '(())))
                                   #f)
                               (expand-6585 exp-13675 r-13631 '(()) mod-13632)
                               (let ((labels-13878
                                       (list (string-append
                                               "l-"
                                               (session-id-6510)
                                               (symbol->string (gensym "-")))))
                                     (var-13879
                                       (let ((id-13917
                                               (if (if (vector? pat-13674)
                                                     (if (= (vector-length
                                                              pat-13674)
                                                            4)
                                                       (eq? (vector-ref
                                                              pat-13674
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (vector-ref pat-13674 1)
                                                 pat-13674)))
                                         (gensym
                                           (string-append
                                             (symbol->string id-13917)
                                             "-")))))
                                 (build-application-6516
                                   #f
                                   (build-simple-lambda-6525
                                     #f
                                     (list (syntax->datum pat-13674))
                                     #f
                                     (list var-13879)
                                     '()
                                     (expand-6585
                                       exp-13675
                                       (extend-env-6543
                                         labels-13878
                                         (list (cons 'syntax
                                                     (cons var-13879 0)))
                                         r-13631)
                                       (make-binding-wrap-6563
                                         (list pat-13674)
                                         labels-13878
                                         '(()))
                                       mod-13632))
                                   (list x-13628))))
                             (gen-clause-13228
                               x-13628
                               keys-13629
                               (cdr clauses-13630)
                               r-13631
                               pat-13674
                               #t
                               exp-13675
                               mod-13632)))
                         tmp-13672)
                       (let ((tmp-14187
                               ($sc-dispatch tmp-13671 '(any any any))))
                         (if tmp-14187
                           (@apply
                             (lambda (pat-14189 fender-14190 exp-14191)
                               (gen-clause-13228
                                 x-13628
                                 keys-13629
                                 (cdr clauses-13630)
                                 r-13631
                                 pat-14189
                                 fender-14190
                                 exp-14191
                                 mod-13632))
                             tmp-14187)
                           (syntax-violation
                             'syntax-case
                             "invalid clause"
                             (car clauses-13630)))))))))))
          (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234)
            (let ((e-13235
                    (wrap-6578
                      (begin
                        (if (if (pair? e-13230) s-13233 #f)
                          (set-source-properties! e-13230 s-13233))
                        e-13230)
                      w-13232
                      mod-13234)))
              (let ((tmp-13237
                      ($sc-dispatch
                        e-13235
                        '(_ any each-any . each-any))))
                (if tmp-13237
                  (@apply
                    (lambda (val-13262 key-13263 m-13264)
                      (if (and-map
                            (lambda (x-13265)
                              (if (if (symbol? x-13265)
                                    #t
                                    (if (if (vector? x-13265)
                                          (if (= (vector-length x-13265) 4)
                                            (eq? (vector-ref x-13265 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (symbol? (vector-ref x-13265 1))
                                      #f))
                                (not (if (if (if (vector? x-13265)
                                               (if (= (vector-length x-13265)
                                                      4)
                                                 (eq? (vector-ref x-13265 0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
                                           (symbol? (vector-ref x-13265 1))
                                           #f)
                                       (if (eq? (if (if (vector? x-13265)
                                                      (if (= (vector-length
                                                               x-13265)
                                                             4)
                                                        (eq? (vector-ref
                                                               x-13265
                                                               0)
                                                             'syntax-object)
                                                        #f)
                                                      #f)
                                                  (vector-ref x-13265 1)
                                                  x-13265)
                                                (if (if (= (vector-length
                                                             '#(syntax-object
                                                                ...
                                                                ((top)
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("l-*-4404"))
                                                                 #(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-application
                                                                     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=?
                                                                     with-transformer-environment
                                                                     transformer-environment
                                                                     resolve-identifier
                                                                     locally-bound-identifiers
                                                                     id-var-name
                                                                     same-marks?
                                                                     join-marks
                                                                     join-wraps
                                                                     smart-append
                                                                     make-binding-wrap
                                                                     extend-ribcage!
                                                                     make-empty-ribcage
                                                                     new-mark
                                                                     anti-mark
                                                                     the-anti-mark
                                                                     top-marked?
                                                                     top-wrap
                                                                     empty-wrap
                                                                     set-ribcage-labels!
                                                                     set-ribcage-marks!
                                                                     set-ribcage-symnames!
                                                                     ribcage-labels
                                                                     ribcage-marks
                                                                     ribcage-symnames
                                                                     ribcage?
                                                                     make-ribcage
                                                                     gen-labels
                                                                     gen-label
                                                                     make-rename
                                                                     rename-marks
                                                                     rename-new
                                                                     rename-old
                                                                     subst-rename?
                                                                     wrap-subst
                                                                     wrap-marks
                                                                     make-wrap
                                                                     id-sym-name&marks
                                                                     id-sym-name
                                                                     id?
                                                                     nonsymbol-id?
                                                                     global-extend
                                                                     lookup
                                                                     macros-only-env
                                                                     extend-var-env
                                                                     extend-env
                                                                     null-env
                                                                     binding-value
                                                                     binding-type
                                                                     make-binding
                                                                     arg-check
                                                                     source-annotation
                                                                     no-source
                                                                     set-syntax-object-module!
                                                                     set-syntax-object-wrap!
                                                                     set-syntax-object-expression!
                                                                     syntax-object-module
                                                                     syntax-object-wrap
                                                                     syntax-object-expression
                                                                     syntax-object?
                                                                     make-syntax-object
                                                                     build-lexical-var
                                                                     build-letrec
                                                                     build-named-let
                                                                     build-let
                                                                     build-sequence
                                                                     build-data
                                                                     build-primref
                                                                     build-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-application
                                                                     build-void
                                                                     maybe-name-value!
                                                                     decorate-source
                                                                     get-global-definition-hook
                                                                     put-global-definition-hook
                                                                     session-id
                                                                     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-sequence
                                                                     make-application
                                                                     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)
                                                                    (top)
                                                                    (top))
                                                                   ("l-*-2527"
                                                                    "l-*-2525"
                                                                    "l-*-2523"
                                                                    "l-*-2521"
                                                                    "l-*-2519"
                                                                    "l-*-2517"
                                                                    "l-*-2515"
                                                                    "l-*-2513"
                                                                    "l-*-2511"
                                                                    "l-*-2509"
                                                                    "l-*-2507"
                                                                    "l-*-2505"
                                                                    "l-*-2503"
                                                                    "l-*-2501"
                                                                    "l-*-2499"
                                                                    "l-*-2497"
                                                                    "l-*-2495"
                                                                    "l-*-2493"
                                                                    "l-*-2491"
                                                                    "l-*-2489"
                                                                    "l-*-2487"
                                                                    "l-*-2485"
                                                                    "l-*-2483"
                                                                    "l-*-2481"
                                                                    "l-*-2479"
                                                                    "l-*-2477"
                                                                    "l-*-2475"
                                                                    "l-*-2473"
                                                                    "l-*-2471"
                                                                    "l-*-2469"
                                                                    "l-*-2467"
                                                                    "l-*-2465"
                                                                    "l-*-2463"
                                                                    "l-*-2461"
                                                                    "l-*-2459"
                                                                    "l-*-2457"
                                                                    "l-*-2455"
                                                                    "l-*-2453"
                                                                    "l-*-2451"
                                                                    "l-*-2450"
                                                                    "l-*-2448"
                                                                    "l-*-2445"
                                                                    "l-*-2444"
                                                                    "l-*-2443"
                                                                    "l-*-2441"
                                                                    "l-*-2440"
                                                                    "l-*-2438"
                                                                    "l-*-2436"
                                                                    "l-*-2434"
                                                                    "l-*-2432"
                                                                    "l-*-2430"
                                                                    "l-*-2428"
                                                                    "l-*-2426"
                                                                    "l-*-2424"
                                                                    "l-*-2421"
                                                                    "l-*-2419"
                                                                    "l-*-2418"
                                                                    "l-*-2416"
                                                                    "l-*-2414"
                                                                    "l-*-2412"
                                                                    "l-*-2410"
                                                                    "l-*-2409"
                                                                    "l-*-2408"
                                                                    "l-*-2407"
                                                                    "l-*-2405"
                                                                    "l-*-2404"
                                                                    "l-*-2401"
                                                                    "l-*-2399"
                                                                    "l-*-2397"
                                                                    "l-*-2395"
                                                                    "l-*-2393"
                                                                    "l-*-2391"
                                                                    "l-*-2389"
                                                                    "l-*-2388"
                                                                    "l-*-2387"
                                                                    "l-*-2385"
                                                                    "l-*-2383"
                                                                    "l-*-2382"
                                                                    "l-*-2379"
                                                                    "l-*-2378"
                                                                    "l-*-2376"
                                                                    "l-*-2374"
                                                                    "l-*-2372"
                                                                    "l-*-2370"
                                                                    "l-*-2368"
                                                                    "l-*-2366"
                                                                    "l-*-2364"
                                                                    "l-*-2362"
                                                                    "l-*-2360"
                                                                    "l-*-2357"
                                                                    "l-*-2355"
                                                                    "l-*-2353"
                                                                    "l-*-2351"
                                                                    "l-*-2349"
                                                                    "l-*-2347"
                                                                    "l-*-2345"
                                                                    "l-*-2343"
                                                                    "l-*-2341"
                                                                    "l-*-2339"
                                                                    "l-*-2337"
                                                                    "l-*-2335"
                                                                    "l-*-2333"
                                                                    "l-*-2331"
                                                                    "l-*-2329"
                                                                    "l-*-2327"
                                                                    "l-*-2325"
                                                                    "l-*-2323"
                                                                    "l-*-2321"
                                                                    "l-*-2319"
                                                                    "l-*-2317"
                                                                    "l-*-2315"
                                                                    "l-*-2313"
                                                                    "l-*-2311"
                                                                    "l-*-2309"
                                                                    "l-*-2307"
                                                                    "l-*-2306"
                                                                    "l-*-2305"
                                                                    "l-*-2304"
                                                                    "l-*-2303"
                                                                    "l-*-2301"
                                                                    "l-*-2299"
                                                                    "l-*-2297"
                                                                    "l-*-2294"
                                                                    "l-*-2292"
                                                                    "l-*-2290"
                                                                    "l-*-2288"
                                                                    "l-*-2286"
                                                                    "l-*-2284"
                                                                    "l-*-2282"
                                                                    "l-*-2280"
                                                                    "l-*-2278"
                                                                    "l-*-2276"
                                                                    "l-*-2274"
                                                                    "l-*-2272"
                                                                    "l-*-2270"
                                                                    "l-*-2268"
                                                                    "l-*-2266"
                                                                    "l-*-2264"
                                                                    "l-*-2262"
                                                                    "l-*-2260"))
                                                                 #(ribcage
                                                                   (define-structure
                                                                     define-expansion-accessors
                                                                     define-expansion-constructors)
                                                                   ((top)
                                                                    (top)
                                                                    (top))
                                                                   ("l-*-2098"
                                                                    "l-*-2097"
                                                                    "l-*-2096")))
                                                                (hygiene
                                                                  guile)))
                                                           4)
                                                      #t
                                                      #f)
                                                  '...
                                                  '#(syntax-object
                                                     ...
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("l-*-4404"))
                                                      #(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-application
                                                          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=?
                                                          with-transformer-environment
                                                          transformer-environment
                                                          resolve-identifier
                                                          locally-bound-identifiers
                                                          id-var-name
                                                          same-marks?
                                                          join-marks
                                                          join-wraps
                                                          smart-append
                                                          make-binding-wrap
                                                          extend-ribcage!
                                                          make-empty-ribcage
                                                          new-mark
                                                          anti-mark
                                                          the-anti-mark
                                                          top-marked?
                                                          top-wrap
                                                          empty-wrap
                                                          set-ribcage-labels!
                                                          set-ribcage-marks!
                                                          set-ribcage-symnames!
                                                          ribcage-labels
                                                          ribcage-marks
                                                          ribcage-symnames
                                                          ribcage?
                                                          make-ribcage
                                                          gen-labels
                                                          gen-label
                                                          make-rename
                                                          rename-marks
                                                          rename-new
                                                          rename-old
                                                          subst-rename?
                                                          wrap-subst
                                                          wrap-marks
                                                          make-wrap
                                                          id-sym-name&marks
                                                          id-sym-name
                                                          id?
                                                          nonsymbol-id?
                                                          global-extend
                                                          lookup
                                                          macros-only-env
                                                          extend-var-env
                                                          extend-env
                                                          null-env
                                                          binding-value
                                                          binding-type
                                                          make-binding
                                                          arg-check
                                                          source-annotation
                                                          no-source
                                                          set-syntax-object-module!
                                                          set-syntax-object-wrap!
                                                          set-syntax-object-expression!
                                                          syntax-object-module
                                                          syntax-object-wrap
                                                          syntax-object-expression
                                                          syntax-object?
                                                          make-syntax-object
                                                          build-lexical-var
                                                          build-letrec
                                                          build-named-let
                                                          build-let
                                                          build-sequence
                                                          build-data
                                                          build-primref
                                                          build-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-application
                                                          build-void
                                                          maybe-name-value!
                                                          decorate-source
                                                          get-global-definition-hook
                                                          put-global-definition-hook
                                                          session-id
                                                          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-sequence
                                                          make-application
                                                          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)
                                                         (top)
                                                         (top))
                                                        ("l-*-2527"
                                                         "l-*-2525"
                                                         "l-*-2523"
                                                         "l-*-2521"
                                                         "l-*-2519"
                                                         "l-*-2517"
                                                         "l-*-2515"
                                                         "l-*-2513"
                                                         "l-*-2511"
                                                         "l-*-2509"
                                                         "l-*-2507"
                                                         "l-*-2505"
                                                         "l-*-2503"
                                                         "l-*-2501"
                                                         "l-*-2499"
                                                         "l-*-2497"
                                                         "l-*-2495"
                                                         "l-*-2493"
                                                         "l-*-2491"
                                                         "l-*-2489"
                                                         "l-*-2487"
                                                         "l-*-2485"
                                                         "l-*-2483"
                                                         "l-*-2481"
                                                         "l-*-2479"
                                                         "l-*-2477"
                                                         "l-*-2475"
                                                         "l-*-2473"
                                                         "l-*-2471"
                                                         "l-*-2469"
                                                         "l-*-2467"
                                                         "l-*-2465"
                                                         "l-*-2463"
                                                         "l-*-2461"
                                                         "l-*-2459"
                                                         "l-*-2457"
                                                         "l-*-2455"
                                                         "l-*-2453"
                                                         "l-*-2451"
                                                         "l-*-2450"
                                                         "l-*-2448"
                                                         "l-*-2445"
                                                         "l-*-2444"
                                                         "l-*-2443"
                                                         "l-*-2441"
                                                         "l-*-2440"
                                                         "l-*-2438"
                                                         "l-*-2436"
                                                         "l-*-2434"
                                                         "l-*-2432"
                                                         "l-*-2430"
                                                         "l-*-2428"
                                                         "l-*-2426"
                                                         "l-*-2424"
                                                         "l-*-2421"
                                                         "l-*-2419"
                                                         "l-*-2418"
                                                         "l-*-2416"
                                                         "l-*-2414"
                                                         "l-*-2412"
                                                         "l-*-2410"
                                                         "l-*-2409"
                                                         "l-*-2408"
                                                         "l-*-2407"
                                                         "l-*-2405"
                                                         "l-*-2404"
                                                         "l-*-2401"
                                                         "l-*-2399"
                                                         "l-*-2397"
                                                         "l-*-2395"
                                                         "l-*-2393"
                                                         "l-*-2391"
                                                         "l-*-2389"
                                                         "l-*-2388"
                                                         "l-*-2387"
                                                         "l-*-2385"
                                                         "l-*-2383"
                                                         "l-*-2382"
                                                         "l-*-2379"
                                                         "l-*-2378"
                                                         "l-*-2376"
                                                         "l-*-2374"
                                                         "l-*-2372"
                                                         "l-*-2370"
                                                         "l-*-2368"
                                                         "l-*-2366"
                                                         "l-*-2364"
                                                         "l-*-2362"
                                                         "l-*-2360"
                                                         "l-*-2357"
                                                         "l-*-2355"
                                                         "l-*-2353"
                                                         "l-*-2351"
                                                         "l-*-2349"
                                                         "l-*-2347"
                                                         "l-*-2345"
                                                         "l-*-2343"
                                                         "l-*-2341"
                                                         "l-*-2339"
                                                         "l-*-2337"
                                                         "l-*-2335"
                                                         "l-*-2333"
                                                         "l-*-2331"
                                                         "l-*-2329"
                                                         "l-*-2327"
                                                         "l-*-2325"
                                                         "l-*-2323"
                                                         "l-*-2321"
                                                         "l-*-2319"
                                                         "l-*-2317"
                                                         "l-*-2315"
                                                         "l-*-2313"
                                                         "l-*-2311"
                                                         "l-*-2309"
                                                         "l-*-2307"
                                                         "l-*-2306"
                                                         "l-*-2305"
                                                         "l-*-2304"
                                                         "l-*-2303"
                                                         "l-*-2301"
                                                         "l-*-2299"
                                                         "l-*-2297"
                                                         "l-*-2294"
                                                         "l-*-2292"
                                                         "l-*-2290"
                                                         "l-*-2288"
                                                         "l-*-2286"
                                                         "l-*-2284"
                                                         "l-*-2282"
                                                         "l-*-2280"
                                                         "l-*-2278"
                                                         "l-*-2276"
                                                         "l-*-2274"
                                                         "l-*-2272"
                                                         "l-*-2270"
                                                         "l-*-2268"
                                                         "l-*-2266"
                                                         "l-*-2264"
                                                         "l-*-2262"
                                                         "l-*-2260"))
                                                      #(ribcage
                                                        (define-structure
                                                          define-expansion-accessors
                                                          define-expansion-constructors)
                                                        ((top) (top) (top))
                                                        ("l-*-2098"
                                                         "l-*-2097"
                                                         "l-*-2096")))
                                                     (hygiene guile))))
                                         (eq? (id-var-name-6568 x-13265 '(()))
                                              (id-var-name-6568
                                                '#(syntax-object
                                                   ...
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-4404"))
                                                    #(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-application
                                                        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=?
                                                        with-transformer-environment
                                                        transformer-environment
                                                        resolve-identifier
                                                        locally-bound-identifiers
                                                        id-var-name
                                                        same-marks?
                                                        join-marks
                                                        join-wraps
                                                        smart-append
                                                        make-binding-wrap
                                                        extend-ribcage!
                                                        make-empty-ribcage
                                                        new-mark
                                                        anti-mark
                                                        the-anti-mark
                                                        top-marked?
                                                        top-wrap
                                                        empty-wrap
                                                        set-ribcage-labels!
                                                        set-ribcage-marks!
                                                        set-ribcage-symnames!
                                                        ribcage-labels
                                                        ribcage-marks
                                                        ribcage-symnames
                                                        ribcage?
                                                        make-ribcage
                                                        gen-labels
                                                        gen-label
                                                        make-rename
                                                        rename-marks
                                                        rename-new
                                                        rename-old
                                                        subst-rename?
                                                        wrap-subst
                                                        wrap-marks
                                                        make-wrap
                                                        id-sym-name&marks
                                                        id-sym-name
                                                        id?
                                                        nonsymbol-id?
                                                        global-extend
                                                        lookup
                                                        macros-only-env
                                                        extend-var-env
                                                        extend-env
                                                        null-env
                                                        binding-value
                                                        binding-type
                                                        make-binding
                                                        arg-check
                                                        source-annotation
                                                        no-source
                                                        set-syntax-object-module!
                                                        set-syntax-object-wrap!
                                                        set-syntax-object-expression!
                                                        syntax-object-module
                                                        syntax-object-wrap
                                                        syntax-object-expression
                                                        syntax-object?
                                                        make-syntax-object
                                                        build-lexical-var
                                                        build-letrec
                                                        build-named-let
                                                        build-let
                                                        build-sequence
                                                        build-data
                                                        build-primref
                                                        build-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-application
                                                        build-void
                                                        maybe-name-value!
                                                        decorate-source
                                                        get-global-definition-hook
                                                        put-global-definition-hook
                                                        session-id
                                                        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-sequence
                                                        make-application
                                                        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)
                                                       (top)
                                                       (top))
                                                      ("l-*-2527"
                                                       "l-*-2525"
                                                       "l-*-2523"
                                                       "l-*-2521"
                                                       "l-*-2519"
                                                       "l-*-2517"
                                                       "l-*-2515"
                                                       "l-*-2513"
                                                       "l-*-2511"
                                                       "l-*-2509"
                                                       "l-*-2507"
                                                       "l-*-2505"
                                                       "l-*-2503"
                                                       "l-*-2501"
                                                       "l-*-2499"
                                                       "l-*-2497"
                                                       "l-*-2495"
                                                       "l-*-2493"
                                                       "l-*-2491"
                                                       "l-*-2489"
                                                       "l-*-2487"
                                                       "l-*-2485"
                                                       "l-*-2483"
                                                       "l-*-2481"
                                                       "l-*-2479"
                                                       "l-*-2477"
                                                       "l-*-2475"
                                                       "l-*-2473"
                                                       "l-*-2471"
                                                       "l-*-2469"
                                                       "l-*-2467"
                                                       "l-*-2465"
                                                       "l-*-2463"
                                                       "l-*-2461"
                                                       "l-*-2459"
                                                       "l-*-2457"
                                                       "l-*-2455"
                                                       "l-*-2453"
                                                       "l-*-2451"
                                                       "l-*-2450"
                                                       "l-*-2448"
                                                       "l-*-2445"
                                                       "l-*-2444"
                                                       "l-*-2443"
                                                       "l-*-2441"
                                                       "l-*-2440"
                                                       "l-*-2438"
                                                       "l-*-2436"
                                                       "l-*-2434"
                                                       "l-*-2432"
                                                       "l-*-2430"
                                                       "l-*-2428"
                                                       "l-*-2426"
                                                       "l-*-2424"
                                                       "l-*-2421"
                                                       "l-*-2419"
                                                       "l-*-2418"
                                                       "l-*-2416"
                                                       "l-*-2414"
                                                       "l-*-2412"
                                                       "l-*-2410"
                                                       "l-*-2409"
                                                       "l-*-2408"
                                                       "l-*-2407"
                                                       "l-*-2405"
                                                       "l-*-2404"
                                                       "l-*-2401"
                                                       "l-*-2399"
                                                       "l-*-2397"
                                                       "l-*-2395"
                                                       "l-*-2393"
                                                       "l-*-2391"
                                                       "l-*-2389"
                                                       "l-*-2388"
                                                       "l-*-2387"
                                                       "l-*-2385"
                                                       "l-*-2383"
                                                       "l-*-2382"
                                                       "l-*-2379"
                                                       "l-*-2378"
                                                       "l-*-2376"
                                                       "l-*-2374"
                                                       "l-*-2372"
                                                       "l-*-2370"
                                                       "l-*-2368"
                                                       "l-*-2366"
                                                       "l-*-2364"
                                                       "l-*-2362"
                                                       "l-*-2360"
                                                       "l-*-2357"
                                                       "l-*-2355"
                                                       "l-*-2353"
                                                       "l-*-2351"
                                                       "l-*-2349"
                                                       "l-*-2347"
                                                       "l-*-2345"
                                                       "l-*-2343"
                                                       "l-*-2341"
                                                       "l-*-2339"
                                                       "l-*-2337"
                                                       "l-*-2335"
                                                       "l-*-2333"
                                                       "l-*-2331"
                                                       "l-*-2329"
                                                       "l-*-2327"
                                                       "l-*-2325"
                                                       "l-*-2323"
                                                       "l-*-2321"
                                                       "l-*-2319"
                                                       "l-*-2317"
                                                       "l-*-2315"
                                                       "l-*-2313"
                                                       "l-*-2311"
                                                       "l-*-2309"
                                                       "l-*-2307"
                                                       "l-*-2306"
                                                       "l-*-2305"
                                                       "l-*-2304"
                                                       "l-*-2303"
                                                       "l-*-2301"
                                                       "l-*-2299"
                                                       "l-*-2297"
                                                       "l-*-2294"
                                                       "l-*-2292"
                                                       "l-*-2290"
                                                       "l-*-2288"
                                                       "l-*-2286"
                                                       "l-*-2284"
                                                       "l-*-2282"
                                                       "l-*-2280"
                                                       "l-*-2278"
                                                       "l-*-2276"
                                                       "l-*-2274"
                                                       "l-*-2272"
                                                       "l-*-2270"
                                                       "l-*-2268"
                                                       "l-*-2266"
                                                       "l-*-2264"
                                                       "l-*-2262"
                                                       "l-*-2260"))
                                                    #(ribcage
                                                      (define-structure
                                                        define-expansion-accessors
                                                        define-expansion-constructors)
                                                      ((top) (top) (top))
                                                      ("l-*-2098"
                                                       "l-*-2097"
                                                       "l-*-2096")))
                                                   (hygiene guile))
                                                '(())))
                                         #f)
                                       #f))
                                #f))
                            key-13263)
                        (let ((x-13391
                                (gensym
                                  (string-append (symbol->string 'tmp) "-"))))
                          (build-application-6516
                            s-13233
                            (let ((req-13521 (list 'tmp))
                                  (vars-13523 (list x-13391))
                                  (exp-13525
                                    (gen-syntax-case-13229
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 3)
                                        #f
                                        'tmp
                                        x-13391)
                                      key-13263
                                      m-13264
                                      r-13231
                                      mod-13234)))
                              (let ((body-13530
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 14)
                                        #f
                                        req-13521
                                        #f
                                        #f
                                        #f
                                        '()
                                        vars-13523
                                        exp-13525
                                        #f)))
                                (make-struct/no-tail
                                  (vector-ref %expanded-vtables 13)
                                  #f
                                  '()
                                  body-13530)))
                            (list (expand-6585
                                    val-13262
                                    r-13231
                                    '(())
                                    mod-13234))))
                        (syntax-violation
                          'syntax-case
                          "invalid literals list"
                          e-13235)))
                    tmp-13237)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    e-13235)))))))
      (set! macroexpand
        (lambda*
          (x-15948
            #:optional
            (m-15949 'e)
            (esew-15950 '(eval)))
          (expand-top-sequence-6581
            (list x-15948)
            '()
            '((top))
            #f
            m-15949
            esew-15950
            (cons 'hygiene (module-name (current-module))))))
      (set! identifier?
        (lambda (x-15953)
          (if (if (vector? x-15953)
                (if (= (vector-length x-15953) 4)
                  (eq? (vector-ref x-15953 0) 'syntax-object)
                  #f)
                #f)
            (symbol? (vector-ref x-15953 1))
            #f)))
      (set! datum->syntax
        (lambda (id-15978 datum-15979)
          (let ((wrap-15984 (vector-ref id-15978 2))
                (module-15985 (vector-ref id-15978 3)))
            (vector
              'syntax-object
              datum-15979
              wrap-15984
              module-15985))))
      (set! syntax->datum
        (lambda (x-15992) (strip-6598 x-15992 '(()))))
      (set! syntax-source
        (lambda (x-15995)
          (source-annotation-6542 x-15995)))
      (set! generate-temporaries
        (lambda (ls-16148)
          (begin
            (if (not (list? ls-16148))
              (syntax-violation
                'generate-temporaries
                "invalid argument"
                ls-16148))
            (let ((mod-16156
                    (cons 'hygiene (module-name (current-module)))))
              (map (lambda (x-16157)
                     (wrap-6578 (gensym "t-") '((top)) mod-16156))
                   ls-16148)))))
      (set! free-identifier=?
        (lambda (x-16161 y-16162)
          (begin
            (if (not (if (if (vector? x-16161)
                           (if (= (vector-length x-16161) 4)
                             (eq? (vector-ref x-16161 0) 'syntax-object)
                             #f)
                           #f)
                       (symbol? (vector-ref x-16161 1))
                       #f))
              (syntax-violation
                'free-identifier=?
                "invalid argument"
                x-16161))
            (if (not (if (if (vector? y-16162)
                           (if (= (vector-length y-16162) 4)
                             (eq? (vector-ref y-16162 0) 'syntax-object)
                             #f)
                           #f)
                       (symbol? (vector-ref y-16162 1))
                       #f))
              (syntax-violation
                'free-identifier=?
                "invalid argument"
                y-16162))
            (if (eq? (if (if (vector? x-16161)
                           (if (= (vector-length x-16161) 4)
                             (eq? (vector-ref x-16161 0) 'syntax-object)
                             #f)
                           #f)
                       (vector-ref x-16161 1)
                       x-16161)
                     (if (if (vector? y-16162)
                           (if (= (vector-length y-16162) 4)
                             (eq? (vector-ref y-16162 0) 'syntax-object)
                             #f)
                           #f)
                       (vector-ref y-16162 1)
                       y-16162))
              (eq? (id-var-name-6568 x-16161 '(()))
                   (id-var-name-6568 y-16162 '(())))
              #f))))
      (set! bound-identifier=?
        (lambda (x-16312 y-16313)
          (begin
            (if (not (if (if (vector? x-16312)
                           (if (= (vector-length x-16312) 4)
                             (eq? (vector-ref x-16312 0) 'syntax-object)
                             #f)
                           #f)
                       (symbol? (vector-ref x-16312 1))
                       #f))
              (syntax-violation
                'bound-identifier=?
                "invalid argument"
                x-16312))
            (if (not (if (if (vector? y-16313)
                           (if (= (vector-length y-16313) 4)
                             (eq? (vector-ref y-16313 0) 'syntax-object)
                             #f)
                           #f)
                       (symbol? (vector-ref y-16313 1))
                       #f))
              (syntax-violation
                'bound-identifier=?
                "invalid argument"
                y-16313))
            (if (if (if (vector? x-16312)
                      (if (= (vector-length x-16312) 4)
                        (eq? (vector-ref x-16312 0) 'syntax-object)
                        #f)
                      #f)
                  (if (vector? y-16313)
                    (if (= (vector-length y-16313) 4)
                      (eq? (vector-ref y-16313 0) 'syntax-object)
                      #f)
                    #f)
                  #f)
              (if (eq? (vector-ref x-16312 1)
                       (vector-ref y-16313 1))
                (same-marks?-6567
                  (car (vector-ref x-16312 2))
                  (car (vector-ref y-16313 2)))
                #f)
              (eq? x-16312 y-16313)))))
      (set! syntax-violation
        (lambda*
          (who-16446
            message-16447
            form-16448
            #:optional
            (subform-16449 #f))
          (begin
            (if (not (if (not who-16446)
                       (not who-16446)
                       (let ((t-16467 (string? who-16446)))
                         (if t-16467 t-16467 (symbol? who-16446)))))
              (syntax-violation
                'syntax-violation
                "invalid argument"
                who-16446))
            (if (not (string? message-16447))
              (syntax-violation
                'syntax-violation
                "invalid argument"
                message-16447))
            (throw 'syntax-error
                   who-16446
                   message-16447
                   (source-annotation-6542
                     (if form-16448 form-16448 subform-16449))
                   (strip-6598 form-16448 '(()))
                   (if subform-16449
                     (strip-6598 subform-16449 '(()))
                     #f)))))
      (letrec*
        ((syntax-local-binding-16671
           (lambda (id-16804)
             (begin
               (if (not (if (if (vector? id-16804)
                              (if (= (vector-length id-16804) 4)
                                (eq? (vector-ref id-16804 0) 'syntax-object)
                                #f)
                              #f)
                          (symbol? (vector-ref id-16804 1))
                          #f))
                 (syntax-violation
                   'syntax-local-binding
                   "invalid argument"
                   id-16804))
               ((fluid-ref transformer-environment-6571)
                (lambda (e-16844
                         r-16845
                         w-16846
                         s-16847
                         rib-16848
                         mod-16849)
                  (call-with-values
                    (lambda ()
                      (let ((id-16852 (vector-ref id-16804 1))
                            (w-16853
                              (let ((w-16864 (vector-ref id-16804 2)))
                                (let ((ms-16865 (car w-16864))
                                      (s-16866 (cdr w-16864)))
                                  (if (if (pair? ms-16865)
                                        (eq? (car ms-16865) #f)
                                        #f)
                                    (cons (cdr ms-16865)
                                          (if rib-16848
                                            (cons rib-16848 (cdr s-16866))
                                            (cdr s-16866)))
                                    (cons ms-16865
                                          (if rib-16848
                                            (cons rib-16848 s-16866)
                                            s-16866))))))
                            (mod-16855 (vector-ref id-16804 3)))
                        (let ((n-16858 (id-var-name-6568 id-16852 w-16853)))
                          (if (symbol? n-16858)
                            (let ((mod-16872
                                    (if (if (vector? id-16852)
                                          (if (= (vector-length id-16852) 4)
                                            (eq? (vector-ref id-16852 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
                                      (vector-ref id-16852 3)
                                      mod-16855)))
                              (let ((b-16873
                                      (let ((t-16874
                                              (get-global-definition-hook-6512
                                                n-16858
                                                mod-16872)))
                                        (if t-16874 t-16874 '(global)))))
                                (if (eq? (car b-16873) 'global)
                                  (values 'global n-16858 mod-16872)
                                  (values
                                    (car b-16873)
                                    (cdr b-16873)
                                    mod-16872))))
                            (if (string? n-16858)
                              (let ((mod-16900
                                      (if (if (vector? id-16852)
                                            (if (= (vector-length id-16852) 4)
                                              (eq? (vector-ref id-16852 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
                                        (vector-ref id-16852 3)
                                        mod-16855)))
                                (let ((b-16901
                                        (let ((t-16902
                                                (assq-ref r-16845 n-16858)))
                                          (if t-16902
                                            t-16902
                                            '(displaced-lexical)))))
                                  (values
                                    (car b-16901)
                                    (cdr b-16901)
                                    mod-16900)))
                              (error "unexpected id-var-name"
                                     id-16852
                                     w-16853
                                     n-16858))))))
                    (lambda (type-16915 value-16916 mod-16917)
                      (if (eqv? type-16915 'lexical)
                        (values 'lexical value-16916)
                        (if (eqv? type-16915 'macro)
                          (values 'macro value-16916)
                          (if (eqv? type-16915 'syntax)
                            (values 'pattern-variable value-16916)
                            (if (eqv? type-16915 'displaced-lexical)
                              (values 'displaced-lexical #f)
                              (if (eqv? type-16915 'global)
                                (values
                                  'global
                                  (cons value-16916 (cdr mod-16917)))
                                (values 'other #f)))))))))))))
         (syntax-locally-bound-identifiers-16672
           (lambda (id-16928)
             (begin
               (if (not (if (if (vector? id-16928)
                              (if (= (vector-length id-16928) 4)
                                (eq? (vector-ref id-16928 0) 'syntax-object)
                                #f)
                              #f)
                          (symbol? (vector-ref id-16928 1))
                          #f))
                 (syntax-violation
                   'syntax-locally-bound-identifiers
                   "invalid argument"
                   id-16928))
               (locally-bound-identifiers-6569
                 (vector-ref id-16928 2)
                 (vector-ref id-16928 3))))))
        (begin
          (define!
            'syntax-module
            (lambda (id-16674)
              (begin
                (if (not (if (if (vector? id-16674)
                               (if (= (vector-length id-16674) 4)
                                 (eq? (vector-ref id-16674 0) 'syntax-object)
                                 #f)
                               #f)
                           (symbol? (vector-ref id-16674 1))
                           #f))
                  (syntax-violation
                    'syntax-module
                    "invalid argument"
                    id-16674))
                (cdr (vector-ref id-16674 3)))))
          (define!
            'syntax-local-binding
            syntax-local-binding-16671)
          (define!
            'syntax-locally-bound-identifiers
            syntax-locally-bound-identifiers-16672)))
      (letrec*
        ((match-each-17035
           (lambda (e-17622 p-17623 w-17624 mod-17625)
             (if (pair? e-17622)
               (let ((first-17626
                       (match-17041
                         (car e-17622)
                         p-17623
                         w-17624
                         '()
                         mod-17625)))
                 (if first-17626
                   (let ((rest-17629
                           (match-each-17035
                             (cdr e-17622)
                             p-17623
                             w-17624
                             mod-17625)))
                     (if rest-17629 (cons first-17626 rest-17629) #f))
                   #f))
               (if (null? e-17622)
                 '()
                 (if (if (vector? e-17622)
                       (if (= (vector-length e-17622) 4)
                         (eq? (vector-ref e-17622 0) 'syntax-object)
                         #f)
                       #f)
                   (match-each-17035
                     (vector-ref e-17622 1)
                     p-17623
                     (join-wraps-6565 w-17624 (vector-ref e-17622 2))
                     (vector-ref e-17622 3))
                   #f)))))
         (match-each-any-17037
           (lambda (e-17657 w-17658 mod-17659)
             (if (pair? e-17657)
               (let ((l-17660
                       (match-each-any-17037
                         (cdr e-17657)
                         w-17658
                         mod-17659)))
                 (if l-17660
                   (cons (wrap-6578 (car e-17657) w-17658 mod-17659)
                         l-17660)
                   #f))
               (if (null? e-17657)
                 '()
                 (if (if (vector? e-17657)
                       (if (= (vector-length e-17657) 4)
                         (eq? (vector-ref e-17657 0) 'syntax-object)
                         #f)
                       #f)
                   (match-each-any-17037
                     (vector-ref e-17657 1)
                     (join-wraps-6565 w-17658 (vector-ref e-17657 2))
                     mod-17659)
                   #f)))))
         (match-empty-17038
           (lambda (p-17684 r-17685)
             (if (null? p-17684)
               r-17685
               (if (eq? p-17684 '_)
                 r-17685
                 (if (eq? p-17684 'any)
                   (cons '() r-17685)
                   (if (pair? p-17684)
                     (match-empty-17038
                       (car p-17684)
                       (match-empty-17038 (cdr p-17684) r-17685))
                     (if (eq? p-17684 'each-any)
                       (cons '() r-17685)
                       (let ((atom-key-17686 (vector-ref p-17684 0)))
                         (if (eqv? atom-key-17686 'each)
                           (match-empty-17038
                             (vector-ref p-17684 1)
                             r-17685)
                           (if (eqv? atom-key-17686 'each+)
                             (match-empty-17038
                               (vector-ref p-17684 1)
                               (match-empty-17038
                                 (reverse (vector-ref p-17684 2))
                                 (match-empty-17038
                                   (vector-ref p-17684 3)
                                   r-17685)))
                             (if (if (eqv? atom-key-17686 'free-id)
                                   #t
                                   (eqv? atom-key-17686 'atom))
                               r-17685
                               (if (eqv? atom-key-17686 'vector)
                                 (match-empty-17038
                                   (vector-ref p-17684 1)
                                   r-17685)))))))))))))
         (combine-17039
           (lambda (r*-17705 r-17706)
             (if (null? (car r*-17705))
               r-17706
               (cons (map car r*-17705)
                     (combine-17039 (map cdr r*-17705) r-17706)))))
         (match*-17040
           (lambda (e-17070 p-17071 w-17072 r-17073 mod-17074)
             (if (null? p-17071)
               (if (null? e-17070) r-17073 #f)
               (if (pair? p-17071)
                 (if (pair? e-17070)
                   (match-17041
                     (car e-17070)
                     (car p-17071)
                     w-17072
                     (match-17041
                       (cdr e-17070)
                       (cdr p-17071)
                       w-17072
                       r-17073
                       mod-17074)
                     mod-17074)
                   #f)
                 (if (eq? p-17071 'each-any)
                   (let ((l-17079
                           (match-each-any-17037 e-17070 w-17072 mod-17074)))
                     (if l-17079 (cons l-17079 r-17073) #f))
                   (let ((atom-key-17084 (vector-ref p-17071 0)))
                     (if (eqv? atom-key-17084 'each)
                       (if (null? e-17070)
                         (match-empty-17038
                           (vector-ref p-17071 1)
                           r-17073)
                         (let ((l-17091
                                 (match-each-17035
                                   e-17070
                                   (vector-ref p-17071 1)
                                   w-17072
                                   mod-17074)))
                           (if l-17091
                             (letrec*
                               ((collect-17094
                                  (lambda (l-17145)
                                    (if (null? (car l-17145))
                                      r-17073
                                      (cons (map car l-17145)
                                            (collect-17094
                                              (map cdr l-17145)))))))
                               (collect-17094 l-17091))
                             #f)))
                       (if (eqv? atom-key-17084 'each+)
                         (call-with-values
                           (lambda ()
                             (let ((x-pat-17154 (vector-ref p-17071 1))
                                   (y-pat-17155 (vector-ref p-17071 2))
                                   (z-pat-17156 (vector-ref p-17071 3)))
                               (letrec*
                                 ((f-17160
                                    (lambda (e-17162 w-17163)
                                      (if (pair? e-17162)
                                        (call-with-values
                                          (lambda ()
                                            (f-17160 (cdr e-17162) w-17163))
                                          (lambda (xr*-17164
                                                   y-pat-17165
                                                   r-17166)
                                            (if r-17166
                                              (if (null? y-pat-17165)
                                                (let ((xr-17167
                                                        (match-17041
                                                          (car e-17162)
                                                          x-pat-17154
                                                          w-17163
                                                          '()
                                                          mod-17074)))
                                                  (if xr-17167
                                                    (values
                                                      (cons xr-17167 xr*-17164)
                                                      y-pat-17165
                                                      r-17166)
                                                    (values #f #f #f)))
                                                (values
                                                  '()
                                                  (cdr y-pat-17165)
                                                  (match-17041
                                                    (car e-17162)
                                                    (car y-pat-17165)
                                                    w-17163
                                                    r-17166
                                                    mod-17074)))
                                              (values #f #f #f))))
                                        (if (if (vector? e-17162)
                                              (if (= (vector-length e-17162) 4)
                                                (eq? (vector-ref e-17162 0)
                                                     'syntax-object)
                                                #f)
                                              #f)
                                          (f-17160
                                            (vector-ref e-17162 1)
                                            (join-wraps-6565 w-17163 e-17162))
                                          (values
                                            '()
                                            y-pat-17155
                                            (match-17041
                                              e-17162
                                              z-pat-17156
                                              w-17163
                                              r-17073
                                              mod-17074)))))))
                                 (f-17160 e-17070 w-17072))))
                           (lambda (xr*-17193 y-pat-17194 r-17195)
                             (if r-17195
                               (if (null? y-pat-17194)
                                 (if (null? xr*-17193)
                                   (match-empty-17038
                                     (vector-ref p-17071 1)
                                     r-17195)
                                   (combine-17039 xr*-17193 r-17195))
                                 #f)
                               #f)))
                         (if (eqv? atom-key-17084 'free-id)
                           (if (if (symbol? e-17070)
                                 #t
                                 (if (if (vector? e-17070)
                                       (if (= (vector-length e-17070) 4)
                                         (eq? (vector-ref e-17070 0)
                                              'syntax-object)
                                         #f)
                                       #f)
                                   (symbol? (vector-ref e-17070 1))
                                   #f))
                             (if (let ((i-17526
                                         (wrap-6578 e-17070 w-17072 mod-17074))
                                       (j-17527 (vector-ref p-17071 1)))
                                   (if (eq? (if (if (vector? i-17526)
                                                  (if (= (vector-length
                                                           i-17526)
                                                         4)
                                                    (eq? (vector-ref i-17526 0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (vector-ref i-17526 1)
                                              i-17526)
                                            (if (if (vector? j-17527)
                                                  (if (= (vector-length
                                                           j-17527)
                                                         4)
                                                    (eq? (vector-ref j-17527 0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (vector-ref j-17527 1)
                                              j-17527))
                                     (eq? (id-var-name-6568 i-17526 '(()))
                                          (id-var-name-6568 j-17527 '(())))
                                     #f))
                               r-17073
                               #f)
                             #f)
                           (if (eqv? atom-key-17084 'atom)
                             (if (equal?
                                   (vector-ref p-17071 1)
                                   (strip-6598 e-17070 w-17072))
                               r-17073
                               #f)
                             (if (eqv? atom-key-17084 'vector)
                               (if (vector? e-17070)
                                 (match-17041
                                   (vector->list e-17070)
                                   (vector-ref p-17071 1)
                                   w-17072
                                   r-17073
                                   mod-17074)
                                 #f))))))))))))
         (match-17041
           (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591)
             (if (not r-17590)
               #f
               (if (eq? p-17588 '_)
                 r-17590
                 (if (eq? p-17588 'any)
                   (cons (wrap-6578 e-17587 w-17589 mod-17591)
                         r-17590)
                   (if (if (vector? e-17587)
                         (if (= (vector-length e-17587) 4)
                           (eq? (vector-ref e-17587 0) 'syntax-object)
                           #f)
                         #f)
                     (match*-17040
                       (vector-ref e-17587 1)
                       p-17588
                       (join-wraps-6565 w-17589 (vector-ref e-17587 2))
                       r-17590
                       (vector-ref e-17587 3))
                     (match*-17040
                       e-17587
                       p-17588
                       w-17589
                       r-17590
                       mod-17591))))))))
        (set! $sc-dispatch
          (lambda (e-17042 p-17043)
            (if (eq? p-17043 'any)
              (list e-17042)
              (if (eq? p-17043 '_)
                '()
                (if (if (vector? e-17042)
                      (if (= (vector-length e-17042) 4)
                        (eq? (vector-ref e-17042 0) 'syntax-object)
                        #f)
                      #f)
                  (match*-17040
                    (vector-ref e-17042 1)
                    p-17043
                    (vector-ref e-17042 2)
                    '()
                    (vector-ref e-17042 3))
                  (match*-17040 e-17042 p-17043 '(()) '() #f))))))))))

(define with-syntax
  (make-syntax-transformer
    'with-syntax
    'macro
    (lambda (x-29889)
      (let ((tmp-29891
              ($sc-dispatch x-29889 '(_ () any . each-any))))
        (if tmp-29891
          (@apply
            (lambda (e1-29895 e2-29896)
              (cons '#(syntax-object
                       let
                       ((top)
                        #(ribcage
                          #(e1 e2)
                          #((top) (top))
                          #("l-*-29862" "l-*-29863"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-29859")))
                       (hygiene guile))
                    (cons '() (cons e1-29895 e2-29896))))
            tmp-29891)
          (let ((tmp-29897
                  ($sc-dispatch
                    x-29889
                    '(_ ((any any)) any . each-any))))
            (if tmp-29897
              (@apply
                (lambda (out-29901 in-29902 e1-29903 e2-29904)
                  (list '#(syntax-object
                           syntax-case
                           ((top)
                            #(ribcage
                              #(out in e1 e2)
                              #((top) (top) (top) (top))
                              #("l-*-29868"
                                "l-*-29869"
                                "l-*-29870"
                                "l-*-29871"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-29859")))
                           (hygiene guile))
                        in-29902
                        '()
                        (list out-29901
                              (cons '#(syntax-object
                                       let
                                       ((top)
                                        #(ribcage
                                          #(out in e1 e2)
                                          #((top) (top) (top) (top))
                                          #("l-*-29868"
                                            "l-*-29869"
                                            "l-*-29870"
                                            "l-*-29871"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x)
                                          #((top))
                                          #("l-*-29859")))
                                       (hygiene guile))
                                    (cons '() (cons e1-29903 e2-29904))))))
                tmp-29897)
              (let ((tmp-29905
                      ($sc-dispatch
                        x-29889
                        '(_ #(each (any any)) any . each-any))))
                (if tmp-29905
                  (@apply
                    (lambda (out-29909 in-29910 e1-29911 e2-29912)
                      (list '#(syntax-object
                               syntax-case
                               ((top)
                                #(ribcage
                                  #(out in e1 e2)
                                  #((top) (top) (top) (top))
                                  #("l-*-29878"
                                    "l-*-29879"
                                    "l-*-29880"
                                    "l-*-29881"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("l-*-29859")))
                               (hygiene guile))
                            (cons '#(syntax-object
                                     list
                                     ((top)
                                      #(ribcage
                                        #(out in e1 e2)
                                        #((top) (top) (top) (top))
                                        #("l-*-29878"
                                          "l-*-29879"
                                          "l-*-29880"
                                          "l-*-29881"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("l-*-29859")))
                                     (hygiene guile))
                                  in-29910)
                            '()
                            (list out-29909
                                  (cons '#(syntax-object
                                           let
                                           ((top)
                                            #(ribcage
                                              #(out in e1 e2)
                                              #((top) (top) (top) (top))
                                              #("l-*-29878"
                                                "l-*-29879"
                                                "l-*-29880"
                                                "l-*-29881"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("l-*-29859")))
                                           (hygiene guile))
                                        (cons '() (cons e1-29911 e2-29912))))))
                    tmp-29905)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    x-29889))))))))))

(define syntax-rules
  (make-syntax-transformer
    'syntax-rules
    'macro
    (lambda (x-29966)
      (let ((tmp-29968
              ($sc-dispatch
                x-29966
                '(_ each-any . #(each ((any . any) any))))))
        (if tmp-29968
          (@apply
            (lambda (k-29972
                     keyword-29973
                     pattern-29974
                     template-29975)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage
                          #(k keyword pattern template)
                          #((top) (top) (top) (top))
                          #("l-*-29929"
                            "l-*-29930"
                            "l-*-29931"
                            "l-*-29932"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-29926")))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage
                           #(k keyword pattern template)
                           #((top) (top) (top) (top))
                           #("l-*-29929"
                             "l-*-29930"
                             "l-*-29931"
                             "l-*-29932"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("l-*-29926")))
                        (hygiene guile)))
                    (vector
                      '(#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("l-*-29929"
                               "l-*-29930"
                               "l-*-29931"
                               "l-*-29932"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("l-*-29926")))
                          (hygiene guile))
                        .
                        #(syntax-object
                          syntax-rules
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("l-*-29929"
                               "l-*-29930"
                               "l-*-29931"
                               "l-*-29932"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("l-*-29926")))
                          (hygiene guile)))
                      (cons '#(syntax-object
                               patterns
                               ((top)
                                #(ribcage
                                  #(k keyword pattern template)
                                  #((top) (top) (top) (top))
                                  #("l-*-29929"
                                    "l-*-29930"
                                    "l-*-29931"
                                    "l-*-29932"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("l-*-29926")))
                               (hygiene guile))
                            pattern-29974))
                    (cons '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
                                #("l-*-29929"
                                  "l-*-29930"
                                  "l-*-29931"
                                  "l-*-29932"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("l-*-29926")))
                             (hygiene guile))
                          (cons '#(syntax-object
                                   x
                                   ((top)
                                    #(ribcage
                                      #(k keyword pattern template)
                                      #((top) (top) (top) (top))
                                      #("l-*-29929"
                                        "l-*-29930"
                                        "l-*-29931"
                                        "l-*-29932"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("l-*-29926")))
                                   (hygiene guile))
                                (cons k-29972
                                      (map (lambda (tmp-29940-29976
                                                    tmp-29939-29977)
                                             (list (cons '#(syntax-object
                                                            dummy
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("l-*-29929"
                                                                 "l-*-29930"
                                                                 "l-*-29931"
                                                                 "l-*-29932"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("l-*-29926")))
                                                            (hygiene guile))
                                                         tmp-29939-29977)
                                                   (list '#(syntax-object
                                                            syntax
                                                            ((top)
                                                             #(ribcage
                                                               #(k
                                                                 keyword
                                                                 pattern
                                                                 template)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("l-*-29929"
                                                                 "l-*-29930"
                                                                 "l-*-29931"
                                                                 "l-*-29932"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("l-*-29926")))
                                                            (hygiene guile))
                                                         tmp-29940-29976)))
                                           template-29975
                                           pattern-29974))))))
            tmp-29968)
          (let ((tmp-29978
                  ($sc-dispatch
                    x-29966
                    '(_ each-any any . #(each ((any . any) any))))))
            (if (if tmp-29978
                  (@apply
                    (lambda (k-29982
                             docstring-29983
                             keyword-29984
                             pattern-29985
                             template-29986)
                      (string? (syntax->datum docstring-29983)))
                    tmp-29978)
                  #f)
              (@apply
                (lambda (k-29987
                         docstring-29988
                         keyword-29989
                         pattern-29990
                         template-29991)
                  (list '#(syntax-object
                           lambda
                           ((top)
                            #(ribcage
                              #(k docstring keyword pattern template)
                              #((top) (top) (top) (top) (top))
                              #("l-*-29952"
                                "l-*-29953"
                                "l-*-29954"
                                "l-*-29955"
                                "l-*-29956"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-29926")))
                           (hygiene guile))
                        '(#(syntax-object
                            x
                            ((top)
                             #(ribcage
                               #(k docstring keyword pattern template)
                               #((top) (top) (top) (top) (top))
                               #("l-*-29952"
                                 "l-*-29953"
                                 "l-*-29954"
                                 "l-*-29955"
                                 "l-*-29956"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("l-*-29926")))
                            (hygiene guile)))
                        docstring-29988
                        (vector
                          '(#(syntax-object
                              macro-type
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("l-*-29952"
                                   "l-*-29953"
                                   "l-*-29954"
                                   "l-*-29955"
                                   "l-*-29956"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("l-*-29926")))
                              (hygiene guile))
                            .
                            #(syntax-object
                              syntax-rules
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("l-*-29952"
                                   "l-*-29953"
                                   "l-*-29954"
                                   "l-*-29955"
                                   "l-*-29956"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("l-*-29926")))
                              (hygiene guile)))
                          (cons '#(syntax-object
                                   patterns
                                   ((top)
                                    #(ribcage
                                      #(k docstring keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("l-*-29952"
                                        "l-*-29953"
                                        "l-*-29954"
                                        "l-*-29955"
                                        "l-*-29956"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("l-*-29926")))
                                   (hygiene guile))
                                pattern-29990))
                        (cons '#(syntax-object
                                 syntax-case
                                 ((top)
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
                                    #("l-*-29952"
                                      "l-*-29953"
                                      "l-*-29954"
                                      "l-*-29955"
                                      "l-*-29956"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("l-*-29926")))
                                 (hygiene guile))
                              (cons '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(k
                                            docstring
                                            keyword
                                            pattern
                                            template)
                                          #((top) (top) (top) (top) (top))
                                          #("l-*-29952"
                                            "l-*-29953"
                                            "l-*-29954"
                                            "l-*-29955"
                                            "l-*-29956"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x)
                                          #((top))
                                          #("l-*-29926")))
                                       (hygiene guile))
                                    (cons k-29987
                                          (map (lambda (tmp-29965-29992
                                                        tmp-29964-29993)
                                                 (list (cons '#(syntax-object
                                                                dummy
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("l-*-29952"
                                                                     "l-*-29953"
                                                                     "l-*-29954"
                                                                     "l-*-29955"
                                                                     "l-*-29956"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("l-*-29926")))
                                                                (hygiene
                                                                  guile))
                                                             tmp-29964-29993)
                                                       (list '#(syntax-object
                                                                syntax
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k
                                                                     docstring
                                                                     keyword
                                                                     pattern
                                                                     template)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("l-*-29952"
                                                                     "l-*-29953"
                                                                     "l-*-29954"
                                                                     "l-*-29955"
                                                                     "l-*-29956"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("l-*-29926")))
                                                                (hygiene
                                                                  guile))
                                                             tmp-29965-29992)))
                                               template-29991
                                               pattern-29990))))))
                tmp-29978)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                x-29966))))))))

(define define-syntax-rule
  (make-syntax-transformer
    'define-syntax-rule
    'macro
    (lambda (x-30030)
      (let ((tmp-30032
              ($sc-dispatch x-30030 '(_ (any . any) any))))
        (if tmp-30032
          (@apply
            (lambda (name-30036 pattern-30037 template-30038)
              (list '#(syntax-object
                       define-syntax
                       ((top)
                        #(ribcage
                          #(name pattern template)
                          #((top) (top) (top))
                          #("l-*-30007" "l-*-30008" "l-*-30009"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-30004")))
                       (hygiene guile))
                    name-30036
                    (list '#(syntax-object
                             syntax-rules
                             ((top)
                              #(ribcage
                                #(name pattern template)
                                #((top) (top) (top))
                                #("l-*-30007" "l-*-30008" "l-*-30009"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("l-*-30004")))
                             (hygiene guile))
                          '()
                          (list (cons '#(syntax-object
                                         _
                                         ((top)
                                          #(ribcage
                                            #(name pattern template)
                                            #((top) (top) (top))
                                            #("l-*-30007"
                                              "l-*-30008"
                                              "l-*-30009"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(x)
                                            #((top))
                                            #("l-*-30004")))
                                         (hygiene guile))
                                      pattern-30037)
                                template-30038))))
            tmp-30032)
          (let ((tmp-30039
                  ($sc-dispatch x-30030 '(_ (any . any) any any))))
            (if (if tmp-30039
                  (@apply
                    (lambda (name-30043
                             pattern-30044
                             docstring-30045
                             template-30046)
                      (string? (syntax->datum docstring-30045)))
                    tmp-30039)
                  #f)
              (@apply
                (lambda (name-30047
                         pattern-30048
                         docstring-30049
                         template-30050)
                  (list '#(syntax-object
                           define-syntax
                           ((top)
                            #(ribcage
                              #(name pattern docstring template)
                              #((top) (top) (top) (top))
                              #("l-*-30022"
                                "l-*-30023"
                                "l-*-30024"
                                "l-*-30025"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-30004")))
                           (hygiene guile))
                        name-30047
                        (list '#(syntax-object
                                 syntax-rules
                                 ((top)
                                  #(ribcage
                                    #(name pattern docstring template)
                                    #((top) (top) (top) (top))
                                    #("l-*-30022"
                                      "l-*-30023"
                                      "l-*-30024"
                                      "l-*-30025"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("l-*-30004")))
                                 (hygiene guile))
                              '()
                              docstring-30049
                              (list (cons '#(syntax-object
                                             _
                                             ((top)
                                              #(ribcage
                                                #(name
                                                  pattern
                                                  docstring
                                                  template)
                                                #((top) (top) (top) (top))
                                                #("l-*-30022"
                                                  "l-*-30023"
                                                  "l-*-30024"
                                                  "l-*-30025"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("l-*-30004")))
                                             (hygiene guile))
                                          pattern-30048)
                                    template-30050))))
                tmp-30039)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                x-30030))))))))

(define let*
  (make-syntax-transformer
    'let*
    'macro
    (lambda (x-30099)
      (let ((tmp-30101
              ($sc-dispatch
                x-30099
                '(any #(each (any any)) any . each-any))))
        (if (if tmp-30101
              (@apply
                (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109)
                  (and-map identifier? x-30106))
                tmp-30101)
              #f)
          (@apply
            (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114)
              (letrec*
                ((f-30115
                   (lambda (bindings-30118)
                     (if (null? bindings-30118)
                       (cons '#(syntax-object
                                let
                                ((top)
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(f bindings)
                                   #((top) (top))
                                   #("l-*-30085" "l-*-30086"))
                                 #(ribcage
                                   #(let* x v e1 e2)
                                   #((top) (top) (top) (top) (top))
                                   #("l-*-30075"
                                     "l-*-30076"
                                     "l-*-30077"
                                     "l-*-30078"
                                     "l-*-30079"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("l-*-30061")))
                                (hygiene guile))
                             (cons '() (cons e1-30113 e2-30114)))
                       (let ((tmp-30119
                               (list (f-30115 (cdr bindings-30118))
                                     (car bindings-30118))))
                         (let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any))))
                           (if tmp-30120
                             (@apply
                               (lambda (body-30122 binding-30123)
                                 (list '#(syntax-object
                                          let
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(body binding)
                                             #((top) (top))
                                             #("l-*-30095" "l-*-30096"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(f bindings)
                                             #((top) (top))
                                             #("l-*-30085" "l-*-30086"))
                                           #(ribcage
                                             #(let* x v e1 e2)
                                             #((top) (top) (top) (top) (top))
                                             #("l-*-30075"
                                               "l-*-30076"
                                               "l-*-30077"
                                               "l-*-30078"
                                               "l-*-30079"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x)
                                             #((top))
                                             #("l-*-30061")))
                                          (hygiene guile))
                                       (list binding-30123)
                                       body-30122))
                               tmp-30120)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               tmp-30119))))))))
                (f-30115 (map list x-30111 v-30112))))
            tmp-30101)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            x-30099))))))

(define do
  (make-syntax-transformer
    'do
    'macro
    (lambda (orig-x-30181)
      (let ((tmp-30183
              ($sc-dispatch
                orig-x-30181
                '(_ #(each (any any . any))
                    (any . each-any)
                    .
                    each-any))))
        (if tmp-30183
          (@apply
            (lambda (var-30187
                     init-30188
                     step-30189
                     e0-30190
                     e1-30191
                     c-30192)
              (let ((tmp-30193
                      (map (lambda (v-30196 s-30197)
                             (let ((tmp-30199 ($sc-dispatch s-30197 '())))
                               (if tmp-30199
                                 (@apply (lambda () v-30196) tmp-30199)
                                 (let ((tmp-30202
                                         ($sc-dispatch s-30197 '(any))))
                                   (if tmp-30202
                                     (@apply
                                       (lambda (e-30205) e-30205)
                                       tmp-30202)
                                     (syntax-violation
                                       'do
                                       "bad step expression"
                                       orig-x-30181
                                       s-30197))))))
                           var-30187
                           step-30189)))
                (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any)))
                  (if tmp-30194
                    (@apply
                      (lambda (step-30211)
                        (let ((tmp-30213 ($sc-dispatch e1-30191 '())))
                          (if tmp-30213
                            (@apply
                              (lambda ()
                                (list '#(syntax-object
                                         let
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("l-*-30149"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("l-*-30134"
                                              "l-*-30135"
                                              "l-*-30136"
                                              "l-*-30137"
                                              "l-*-30138"
                                              "l-*-30139"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("l-*-30131")))
                                         (hygiene guile))
                                      '#(syntax-object
                                         doloop
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(step)
                                            #((top))
                                            #("l-*-30149"))
                                          #(ribcage
                                            #(var init step e0 e1 c)
                                            #((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                            #("l-*-30134"
                                              "l-*-30135"
                                              "l-*-30136"
                                              "l-*-30137"
                                              "l-*-30138"
                                              "l-*-30139"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(orig-x)
                                            #((top))
                                            #("l-*-30131")))
                                         (hygiene guile))
                                      (map list var-30187 init-30188)
                                      (list '#(syntax-object
                                               if
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(step)
                                                  #((top))
                                                  #("l-*-30149"))
                                                #(ribcage
                                                  #(var init step e0 e1 c)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("l-*-30134"
                                                    "l-*-30135"
                                                    "l-*-30136"
                                                    "l-*-30137"
                                                    "l-*-30138"
                                                    "l-*-30139"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(orig-x)
                                                  #((top))
                                                  #("l-*-30131")))
                                               (hygiene guile))
                                            (list '#(syntax-object
                                                     not
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("l-*-30149"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("l-*-30134"
                                                          "l-*-30135"
                                                          "l-*-30136"
                                                          "l-*-30137"
                                                          "l-*-30138"
                                                          "l-*-30139"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("l-*-30131")))
                                                     (hygiene guile))
                                                  e0-30190)
                                            (cons '#(syntax-object
                                                     begin
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(step)
                                                        #((top))
                                                        #("l-*-30149"))
                                                      #(ribcage
                                                        #(var
                                                          init
                                                          step
                                                          e0
                                                          e1
                                                          c)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("l-*-30134"
                                                          "l-*-30135"
                                                          "l-*-30136"
                                                          "l-*-30137"
                                                          "l-*-30138"
                                                          "l-*-30139"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(orig-x)
                                                        #((top))
                                                        #("l-*-30131")))
                                                     (hygiene guile))
                                                  (append
                                                    c-30192
                                                    (list (cons '#(syntax-object
                                                                   doloop
                                                                   ((top)
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(step)
                                                                      #((top))
                                                                      #("l-*-30149"))
                                                                    #(ribcage
                                                                      #(var
                                                                        init
                                                                        step
                                                                        e0
                                                                        e1
                                                                        c)
                                                                      #((top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                      #("l-*-30134"
                                                                        "l-*-30135"
                                                                        "l-*-30136"
                                                                        "l-*-30137"
                                                                        "l-*-30138"
                                                                        "l-*-30139"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(orig-x)
                                                                      #((top))
                                                                      #("l-*-30131")))
                                                                   (hygiene
                                                                     guile))
                                                                step-30211)))))))
                              tmp-30213)
                            (let ((tmp-30217
                                    ($sc-dispatch e1-30191 '(any . each-any))))
                              (if tmp-30217
                                (@apply
                                  (lambda (e1-30221 e2-30222)
                                    (list '#(syntax-object
                                             let
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("l-*-30158" "l-*-30159"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("l-*-30149"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("l-*-30134"
                                                  "l-*-30135"
                                                  "l-*-30136"
                                                  "l-*-30137"
                                                  "l-*-30138"
                                                  "l-*-30139"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("l-*-30131")))
                                             (hygiene guile))
                                          '#(syntax-object
                                             doloop
                                             ((top)
                                              #(ribcage
                                                #(e1 e2)
                                                #((top) (top))
                                                #("l-*-30158" "l-*-30159"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("l-*-30149"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("l-*-30134"
                                                  "l-*-30135"
                                                  "l-*-30136"
                                                  "l-*-30137"
                                                  "l-*-30138"
                                                  "l-*-30139"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("l-*-30131")))
                                             (hygiene guile))
                                          (map list var-30187 init-30188)
                                          (list '#(syntax-object
                                                   if
                                                   ((top)
                                                    #(ribcage
                                                      #(e1 e2)
                                                      #((top) (top))
                                                      #("l-*-30158"
                                                        "l-*-30159"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(step)
                                                      #((top))
                                                      #("l-*-30149"))
                                                    #(ribcage
                                                      #(var init step e0 e1 c)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-30134"
                                                        "l-*-30135"
                                                        "l-*-30136"
                                                        "l-*-30137"
                                                        "l-*-30138"
                                                        "l-*-30139"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(orig-x)
                                                      #((top))
                                                      #("l-*-30131")))
                                                   (hygiene guile))
                                                e0-30190
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("l-*-30158"
                                                              "l-*-30159"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("l-*-30149"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("l-*-30134"
                                                              "l-*-30135"
                                                              "l-*-30136"
                                                              "l-*-30137"
                                                              "l-*-30138"
                                                              "l-*-30139"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("l-*-30131")))
                                                         (hygiene guile))
                                                      (cons e1-30221 e2-30222))
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(e1 e2)
                                                            #((top) (top))
                                                            #("l-*-30158"
                                                              "l-*-30159"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("l-*-30149"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("l-*-30134"
                                                              "l-*-30135"
                                                              "l-*-30136"
                                                              "l-*-30137"
                                                              "l-*-30138"
                                                              "l-*-30139"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("l-*-30131")))
                                                         (hygiene guile))
                                                      (append
                                                        c-30192
                                                        (list (cons '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("l-*-30158"
                                                                            "l-*-30159"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("l-*-30149"))
                                                                        #(ribcage
                                                                          #(var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("l-*-30134"
                                                                            "l-*-30135"
                                                                            "l-*-30136"
                                                                            "l-*-30137"
                                                                            "l-*-30138"
                                                                            "l-*-30139"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("l-*-30131")))
                                                                       (hygiene
                                                                         guile))
                                                                    step-30211)))))))
                                  tmp-30217)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  e1-30191))))))
                      tmp-30194)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      tmp-30193)))))
            tmp-30183)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            orig-x-30181))))))

(define quasiquote
  (make-syntax-transformer
    'quasiquote
    'macro
    (letrec*
      ((quasi-30508
         (lambda (p-30532 lev-30533)
           (let ((tmp-30535
                   ($sc-dispatch
                     p-30532
                     '(#(free-id
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("l-*-30254" "l-*-30255"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("l-*-30250"
                               "l-*-30248"
                               "l-*-30246"
                               "l-*-30244"
                               "l-*-30242"
                               "l-*-30240"
                               "l-*-30238")))
                           (hygiene guile)))
                       any))))
             (if tmp-30535
               (@apply
                 (lambda (p-30539)
                   (if (= lev-30533 0)
                     (list '#(syntax-object
                              "value"
                              ((top)
                               #(ribcage #(p) #((top)) #("l-*-30258"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
                                 #("l-*-30254" "l-*-30255"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
                                       quasiappend
                                       quasicons
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
                                 ("l-*-30250"
                                  "l-*-30248"
                                  "l-*-30246"
                                  "l-*-30244"
                                  "l-*-30242"
                                  "l-*-30240"
                                  "l-*-30238")))
                              (hygiene guile))
                           p-30539)
                     (quasicons-30510
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage #(p) #((top)) #("l-*-30258"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("l-*-30254" "l-*-30255"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("l-*-30250"
                               "l-*-30248"
                               "l-*-30246"
                               "l-*-30244"
                               "l-*-30242"
                               "l-*-30240"
                               "l-*-30238")))
                           (hygiene guile))
                         #(syntax-object
                           unquote
                           ((top)
                            #(ribcage #(p) #((top)) #("l-*-30258"))
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("l-*-30254" "l-*-30255"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("l-*-30250"
                               "l-*-30248"
                               "l-*-30246"
                               "l-*-30244"
                               "l-*-30242"
                               "l-*-30240"
                               "l-*-30238")))
                           (hygiene guile)))
                       (quasi-30508 (list p-30539) (#{1-}# lev-30533)))))
                 tmp-30535)
               (let ((tmp-30542
                       ($sc-dispatch
                         p-30532
                         '(#(free-id
                             #(syntax-object
                               quasiquote
                               ((top)
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
                                  #("l-*-30254" "l-*-30255"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
                                        quasiappend
                                        quasicons
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
                                  ("l-*-30250"
                                   "l-*-30248"
                                   "l-*-30246"
                                   "l-*-30244"
                                   "l-*-30242"
                                   "l-*-30240"
                                   "l-*-30238")))
                               (hygiene guile)))
                           any))))
                 (if tmp-30542
                   (@apply
                     (lambda (p-30546)
                       (quasicons-30510
                         '(#(syntax-object
                             "quote"
                             ((top)
                              #(ribcage #(p) #((top)) #("l-*-30261"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("l-*-30254" "l-*-30255"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("l-*-30250"
                                 "l-*-30248"
                                 "l-*-30246"
                                 "l-*-30244"
                                 "l-*-30242"
                                 "l-*-30240"
                                 "l-*-30238")))
                             (hygiene guile))
                           #(syntax-object
                             quasiquote
                             ((top)
                              #(ribcage #(p) #((top)) #("l-*-30261"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("l-*-30254" "l-*-30255"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("l-*-30250"
                                 "l-*-30248"
                                 "l-*-30246"
                                 "l-*-30244"
                                 "l-*-30242"
                                 "l-*-30240"
                                 "l-*-30238")))
                             (hygiene guile)))
                         (quasi-30508 (list p-30546) (#{1+}# lev-30533))))
                     tmp-30542)
                   (let ((tmp-30549 ($sc-dispatch p-30532 '(any . any))))
                     (if tmp-30549
                       (@apply
                         (lambda (p-30553 q-30554)
                           (let ((tmp-30556
                                   ($sc-dispatch
                                     p-30553
                                     '(#(free-id
                                         #(syntax-object
                                           unquote
                                           ((top)
                                            #(ribcage
                                              #(p q)
                                              #((top) (top))
                                              #("l-*-30264" "l-*-30265"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(p lev)
                                              #((top) (top))
                                              #("l-*-30254" "l-*-30255"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
                                                    quasiappend
                                                    quasicons
                                                    vquasi
                                                    quasi)
                                              ((top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top))
                                              ("l-*-30250"
                                               "l-*-30248"
                                               "l-*-30246"
                                               "l-*-30244"
                                               "l-*-30242"
                                               "l-*-30240"
                                               "l-*-30238")))
                                           (hygiene guile)))
                                       .
                                       each-any))))
                             (if tmp-30556
                               (@apply
                                 (lambda (p-30560)
                                   (if (= lev-30533 0)
                                     (quasilist*-30512
                                       (map (lambda (tmp-30272-30596)
                                              (list '#(syntax-object
                                                       "value"
                                                       ((top)
                                                        #(ribcage
                                                          #(p)
                                                          #((top))
                                                          #("l-*-30270"))
                                                        #(ribcage
                                                          #(p q)
                                                          #((top) (top))
                                                          #("l-*-30264"
                                                            "l-*-30265"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(p lev)
                                                          #((top) (top))
                                                          #("l-*-30254"
                                                            "l-*-30255"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("l-*-30250"
                                                           "l-*-30248"
                                                           "l-*-30246"
                                                           "l-*-30244"
                                                           "l-*-30242"
                                                           "l-*-30240"
                                                           "l-*-30238")))
                                                       (hygiene guile))
                                                    tmp-30272-30596))
                                            p-30560)
                                       (quasi-30508 q-30554 lev-30533))
                                     (quasicons-30510
                                       (quasicons-30510
                                         '(#(syntax-object
                                             "quote"
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("l-*-30270"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("l-*-30264" "l-*-30265"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("l-*-30254" "l-*-30255"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("l-*-30250"
                                                 "l-*-30248"
                                                 "l-*-30246"
                                                 "l-*-30244"
                                                 "l-*-30242"
                                                 "l-*-30240"
                                                 "l-*-30238")))
                                             (hygiene guile))
                                           #(syntax-object
                                             unquote
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("l-*-30270"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("l-*-30264" "l-*-30265"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("l-*-30254" "l-*-30255"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("l-*-30250"
                                                 "l-*-30248"
                                                 "l-*-30246"
                                                 "l-*-30244"
                                                 "l-*-30242"
                                                 "l-*-30240"
                                                 "l-*-30238")))
                                             (hygiene guile)))
                                         (quasi-30508
                                           p-30560
                                           (#{1-}# lev-30533)))
                                       (quasi-30508 q-30554 lev-30533))))
                                 tmp-30556)
                               (let ((tmp-30601
                                       ($sc-dispatch
                                         p-30553
                                         '(#(free-id
                                             #(syntax-object
                                               unquote-splicing
                                               ((top)
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("l-*-30264" "l-*-30265"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("l-*-30254" "l-*-30255"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("l-*-30250"
                                                   "l-*-30248"
                                                   "l-*-30246"
                                                   "l-*-30244"
                                                   "l-*-30242"
                                                   "l-*-30240"
                                                   "l-*-30238")))
                                               (hygiene guile)))
                                           .
                                           each-any))))
                                 (if tmp-30601
                                   (@apply
                                     (lambda (p-30605)
                                       (if (= lev-30533 0)
                                         (quasiappend-30511
                                           (map (lambda (tmp-30277-30608)
                                                  (list '#(syntax-object
                                                           "value"
                                                           ((top)
                                                            #(ribcage
                                                              #(p)
                                                              #((top))
                                                              #("l-*-30275"))
                                                            #(ribcage
                                                              #(p q)
                                                              #((top) (top))
                                                              #("l-*-30264"
                                                                "l-*-30265"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(p lev)
                                                              #((top) (top))
                                                              #("l-*-30254"
                                                                "l-*-30255"))
                                                            #(ribcage
                                                              (emit quasivector
                                                                    quasilist*
                                                                    quasiappend
                                                                    quasicons
                                                                    vquasi
                                                                    quasi)
                                                              ((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                              ("l-*-30250"
                                                               "l-*-30248"
                                                               "l-*-30246"
                                                               "l-*-30244"
                                                               "l-*-30242"
                                                               "l-*-30240"
                                                               "l-*-30238")))
                                                           (hygiene guile))
                                                        tmp-30277-30608))
                                                p-30605)
                                           (quasi-30508 q-30554 lev-30533))
                                         (quasicons-30510
                                           (quasicons-30510
                                             '(#(syntax-object
                                                 "quote"
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("l-*-30275"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("l-*-30264" "l-*-30265"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("l-*-30254" "l-*-30255"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("l-*-30250"
                                                     "l-*-30248"
                                                     "l-*-30246"
                                                     "l-*-30244"
                                                     "l-*-30242"
                                                     "l-*-30240"
                                                     "l-*-30238")))
                                                 (hygiene guile))
                                               #(syntax-object
                                                 unquote-splicing
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("l-*-30275"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("l-*-30264" "l-*-30265"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("l-*-30254" "l-*-30255"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("l-*-30250"
                                                     "l-*-30248"
                                                     "l-*-30246"
                                                     "l-*-30244"
                                                     "l-*-30242"
                                                     "l-*-30240"
                                                     "l-*-30238")))
                                                 (hygiene guile)))
                                             (quasi-30508
                                               p-30605
                                               (#{1-}# lev-30533)))
                                           (quasi-30508 q-30554 lev-30533))))
                                     tmp-30601)
                                   (quasicons-30510
                                     (quasi-30508 p-30553 lev-30533)
                                     (quasi-30508 q-30554 lev-30533)))))))
                         tmp-30549)
                       (let ((tmp-30622
                               ($sc-dispatch p-30532 '#(vector each-any))))
                         (if tmp-30622
                           (@apply
                             (lambda (x-30626)
                               (let ((x-30629
                                       (vquasi-30509 x-30626 lev-30533)))
                                 (let ((tmp-30631
                                         ($sc-dispatch
                                           x-30629
                                           '(#(atom "quote") each-any))))
                                   (if tmp-30631
                                     (@apply
                                       (lambda (x-30635)
                                         (list '#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30382"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30379"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("l-*-30250"
                                                      "l-*-30248"
                                                      "l-*-30246"
                                                      "l-*-30244"
                                                      "l-*-30242"
                                                      "l-*-30240"
                                                      "l-*-30238")))
                                                  (hygiene guile))
                                               (list->vector x-30635)))
                                       tmp-30631)
                                     (letrec*
                                       ((f-30637
                                          (lambda (y-30649 k-30650)
                                            (let ((tmp-30652
                                                    ($sc-dispatch
                                                      y-30649
                                                      '(#(atom "quote")
                                                        each-any))))
                                              (if tmp-30652
                                                (@apply
                                                  (lambda (y-30655)
                                                    (k-30650
                                                      (map (lambda (tmp-30407-30656)
                                                             (list '#(syntax-object
                                                                      "quote"
                                                                      ((top)
                                                                       #(ribcage
                                                                         #(y)
                                                                         #((top))
                                                                         #("l-*-30405"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(f
                                                                           y
                                                                           k)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("l-*-30387"
                                                                           "l-*-30388"
                                                                           "l-*-30389"))
                                                                       #(ribcage
                                                                         #(_)
                                                                         #((top))
                                                                         #("l-*-30385"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(x)
                                                                         #((top))
                                                                         #("l-*-30379"))
                                                                       #(ribcage
                                                                         (emit quasivector
                                                                               quasilist*
                                                                               quasiappend
                                                                               quasicons
                                                                               vquasi
                                                                               quasi)
                                                                         ((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                         ("l-*-30250"
                                                                          "l-*-30248"
                                                                          "l-*-30246"
                                                                          "l-*-30244"
                                                                          "l-*-30242"
                                                                          "l-*-30240"
                                                                          "l-*-30238")))
                                                                      (hygiene
                                                                        guile))
                                                                   tmp-30407-30656))
                                                           y-30655)))
                                                  tmp-30652)
                                                (let ((tmp-30657
                                                        ($sc-dispatch
                                                          y-30649
                                                          '(#(atom "list")
                                                            .
                                                            each-any))))
                                                  (if tmp-30657
                                                    (@apply
                                                      (lambda (y-30660)
                                                        (k-30650 y-30660))
                                                      tmp-30657)
                                                    (let ((tmp-30661
                                                            ($sc-dispatch
                                                              y-30649
                                                              '(#(atom "list*")
                                                                .
                                                                #(each+
                                                                  any
                                                                  (any)
                                                                  ())))))
                                                      (if tmp-30661
                                                        (@apply
                                                          (lambda (y-30664
                                                                   z-30665)
                                                            (f-30637
                                                              z-30665
                                                              (lambda (ls-30666)
                                                                (k-30650
                                                                  (append
                                                                    y-30664
                                                                    ls-30666)))))
                                                          tmp-30661)
                                                        (list '#(syntax-object
                                                                 "list->vector"
                                                                 ((top)
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(t-30422)
                                                                    #((m-*-30423
                                                                        top))
                                                                    #("l-*-30426"))
                                                                  #(ribcage
                                                                    #(else)
                                                                    #((top))
                                                                    #("l-*-30420"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(f y k)
                                                                    #((top)
                                                                      (top)
                                                                      (top))
                                                                    #("l-*-30387"
                                                                      "l-*-30388"
                                                                      "l-*-30389"))
                                                                  #(ribcage
                                                                    #(_)
                                                                    #((top))
                                                                    #("l-*-30385"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
                                                                    #("l-*-30379"))
                                                                  #(ribcage
                                                                    (emit quasivector
                                                                          quasilist*
                                                                          quasiappend
                                                                          quasicons
                                                                          vquasi
                                                                          quasi)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("l-*-30250"
                                                                     "l-*-30248"
                                                                     "l-*-30246"
                                                                     "l-*-30244"
                                                                     "l-*-30242"
                                                                     "l-*-30240"
                                                                     "l-*-30238")))
                                                                 (hygiene
                                                                   guile))
                                                              x-30629))))))))))
                                       (f-30637
                                         x-30629
                                         (lambda (ls-30639)
                                           (let ((tmp-30641
                                                   ($sc-dispatch
                                                     ls-30639
                                                     'each-any)))
                                             (if tmp-30641
                                               (@apply
                                                 (lambda (t-30395-30644)
                                                   (cons '#(syntax-object
                                                            "vector"
                                                            ((top)
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(t-30395)
                                                               #((m-*-30396
                                                                   top))
                                                               #("l-*-30400"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(ls)
                                                               #((top))
                                                               #("l-*-30394"))
                                                             #(ribcage
                                                               #(_)
                                                               #((top))
                                                               #("l-*-30385"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("l-*-30379"))
                                                             #(ribcage
                                                               (emit quasivector
                                                                     quasilist*
                                                                     quasiappend
                                                                     quasicons
                                                                     vquasi
                                                                     quasi)
                                                               ((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                               ("l-*-30250"
                                                                "l-*-30248"
                                                                "l-*-30246"
                                                                "l-*-30244"
                                                                "l-*-30242"
                                                                "l-*-30240"
                                                                "l-*-30238")))
                                                            (hygiene guile))
                                                         t-30395-30644))
                                                 tmp-30641)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to match any pattern"
                                                 ls-30639))))))))))
                             tmp-30622)
                           (list '#(syntax-object
                                    "quote"
                                    ((top)
                                     #(ribcage #(p) #((top)) #("l-*-30285"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p lev)
                                       #((top) (top))
                                       #("l-*-30254" "l-*-30255"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("l-*-30250"
                                        "l-*-30248"
                                        "l-*-30246"
                                        "l-*-30244"
                                        "l-*-30242"
                                        "l-*-30240"
                                        "l-*-30238")))
                                    (hygiene guile))
                                 p-30532)))))))))))
       (vquasi-30509
         (lambda (p-30694 lev-30695)
           (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any))))
             (if tmp-30697
               (@apply
                 (lambda (p-30701 q-30702)
                   (let ((tmp-30704
                           ($sc-dispatch
                             p-30701
                             '(#(free-id
                                 #(syntax-object
                                   unquote
                                   ((top)
                                    #(ribcage
                                      #(p q)
                                      #((top) (top))
                                      #("l-*-30293" "l-*-30294"))
                                    #(ribcage () () ())
                                    #(ribcage
                                      #(p lev)
                                      #((top) (top))
                                      #("l-*-30289" "l-*-30290"))
                                    #(ribcage
                                      (emit quasivector
                                            quasilist*
                                            quasiappend
                                            quasicons
                                            vquasi
                                            quasi)
                                      ((top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top)
                                       (top))
                                      ("l-*-30250"
                                       "l-*-30248"
                                       "l-*-30246"
                                       "l-*-30244"
                                       "l-*-30242"
                                       "l-*-30240"
                                       "l-*-30238")))
                                   (hygiene guile)))
                               .
                               each-any))))
                     (if tmp-30704
                       (@apply
                         (lambda (p-30708)
                           (if (= lev-30695 0)
                             (quasilist*-30512
                               (map (lambda (tmp-30301-30744)
                                      (list '#(syntax-object
                                               "value"
                                               ((top)
                                                #(ribcage
                                                  #(p)
                                                  #((top))
                                                  #("l-*-30299"))
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("l-*-30293" "l-*-30294"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("l-*-30289" "l-*-30290"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("l-*-30250"
                                                   "l-*-30248"
                                                   "l-*-30246"
                                                   "l-*-30244"
                                                   "l-*-30242"
                                                   "l-*-30240"
                                                   "l-*-30238")))
                                               (hygiene guile))
                                            tmp-30301-30744))
                                    p-30708)
                               (vquasi-30509 q-30702 lev-30695))
                             (quasicons-30510
                               (quasicons-30510
                                 '(#(syntax-object
                                     "quote"
                                     ((top)
                                      #(ribcage #(p) #((top)) #("l-*-30299"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("l-*-30293" "l-*-30294"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("l-*-30289" "l-*-30290"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("l-*-30250"
                                         "l-*-30248"
                                         "l-*-30246"
                                         "l-*-30244"
                                         "l-*-30242"
                                         "l-*-30240"
                                         "l-*-30238")))
                                     (hygiene guile))
                                   #(syntax-object
                                     unquote
                                     ((top)
                                      #(ribcage #(p) #((top)) #("l-*-30299"))
                                      #(ribcage
                                        #(p q)
                                        #((top) (top))
                                        #("l-*-30293" "l-*-30294"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
                                        #("l-*-30289" "l-*-30290"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
                                              quasiappend
                                              quasicons
                                              vquasi
                                              quasi)
                                        ((top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top)
                                         (top))
                                        ("l-*-30250"
                                         "l-*-30248"
                                         "l-*-30246"
                                         "l-*-30244"
                                         "l-*-30242"
                                         "l-*-30240"
                                         "l-*-30238")))
                                     (hygiene guile)))
                                 (quasi-30508 p-30708 (#{1-}# lev-30695)))
                               (vquasi-30509 q-30702 lev-30695))))
                         tmp-30704)
                       (let ((tmp-30751
                               ($sc-dispatch
                                 p-30701
                                 '(#(free-id
                                     #(syntax-object
                                       unquote-splicing
                                       ((top)
                                        #(ribcage
                                          #(p q)
                                          #((top) (top))
                                          #("l-*-30293" "l-*-30294"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(p lev)
                                          #((top) (top))
                                          #("l-*-30289" "l-*-30290"))
                                        #(ribcage
                                          (emit quasivector
                                                quasilist*
                                                quasiappend
                                                quasicons
                                                vquasi
                                                quasi)
                                          ((top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top))
                                          ("l-*-30250"
                                           "l-*-30248"
                                           "l-*-30246"
                                           "l-*-30244"
                                           "l-*-30242"
                                           "l-*-30240"
                                           "l-*-30238")))
                                       (hygiene guile)))
                                   .
                                   each-any))))
                         (if tmp-30751
                           (@apply
                             (lambda (p-30755)
                               (if (= lev-30695 0)
                                 (quasiappend-30511
                                   (map (lambda (tmp-30306-30758)
                                          (list '#(syntax-object
                                                   "value"
                                                   ((top)
                                                    #(ribcage
                                                      #(p)
                                                      #((top))
                                                      #("l-*-30304"))
                                                    #(ribcage
                                                      #(p q)
                                                      #((top) (top))
                                                      #("l-*-30293"
                                                        "l-*-30294"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(p lev)
                                                      #((top) (top))
                                                      #("l-*-30289"
                                                        "l-*-30290"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
                                                            quasiappend
                                                            quasicons
                                                            vquasi
                                                            quasi)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("l-*-30250"
                                                       "l-*-30248"
                                                       "l-*-30246"
                                                       "l-*-30244"
                                                       "l-*-30242"
                                                       "l-*-30240"
                                                       "l-*-30238")))
                                                   (hygiene guile))
                                                tmp-30306-30758))
                                        p-30755)
                                   (vquasi-30509 q-30702 lev-30695))
                                 (quasicons-30510
                                   (quasicons-30510
                                     '(#(syntax-object
                                         "quote"
                                         ((top)
                                          #(ribcage
                                            #(p)
                                            #((top))
                                            #("l-*-30304"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("l-*-30293" "l-*-30294"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("l-*-30289" "l-*-30290"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("l-*-30250"
                                             "l-*-30248"
                                             "l-*-30246"
                                             "l-*-30244"
                                             "l-*-30242"
                                             "l-*-30240"
                                             "l-*-30238")))
                                         (hygiene guile))
                                       #(syntax-object
                                         unquote-splicing
                                         ((top)
                                          #(ribcage
                                            #(p)
                                            #((top))
                                            #("l-*-30304"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("l-*-30293" "l-*-30294"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("l-*-30289" "l-*-30290"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("l-*-30250"
                                             "l-*-30248"
                                             "l-*-30246"
                                             "l-*-30244"
                                             "l-*-30242"
                                             "l-*-30240"
                                             "l-*-30238")))
                                         (hygiene guile)))
                                     (quasi-30508 p-30755 (#{1-}# lev-30695)))
                                   (vquasi-30509 q-30702 lev-30695))))
                             tmp-30751)
                           (quasicons-30510
                             (quasi-30508 p-30701 lev-30695)
                             (vquasi-30509 q-30702 lev-30695)))))))
                 tmp-30697)
               (let ((tmp-30776 ($sc-dispatch p-30694 '())))
                 (if tmp-30776
                   (@apply
                     (lambda ()
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(p lev)
                              #((top) (top))
                              #("l-*-30289" "l-*-30290"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("l-*-30250"
                               "l-*-30248"
                               "l-*-30246"
                               "l-*-30244"
                               "l-*-30242"
                               "l-*-30240"
                               "l-*-30238")))
                           (hygiene guile))
                         ()))
                     tmp-30776)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
                     p-30694)))))))
       (quasicons-30510
         (lambda (x-30789 y-30790)
           (let ((tmp-30791 (list x-30789 y-30790)))
             (let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any))))
               (if tmp-30792
                 (@apply
                   (lambda (x-30794 y-30795)
                     (let ((tmp-30797
                             ($sc-dispatch y-30795 '(#(atom "quote") any))))
                       (if tmp-30797
                         (@apply
                           (lambda (dy-30801)
                             (let ((tmp-30803
                                     ($sc-dispatch
                                       x-30794
                                       '(#(atom "quote") any))))
                               (if tmp-30803
                                 (@apply
                                   (lambda (dx-30807)
                                     (list '#(syntax-object
                                              "quote"
                                              ((top)
                                               #(ribcage
                                                 #(dx)
                                                 #((top))
                                                 #("l-*-30328"))
                                               #(ribcage
                                                 #(dy)
                                                 #((top))
                                                 #("l-*-30324"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("l-*-30318" "l-*-30319"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("l-*-30313" "l-*-30314"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("l-*-30250"
                                                  "l-*-30248"
                                                  "l-*-30246"
                                                  "l-*-30244"
                                                  "l-*-30242"
                                                  "l-*-30240"
                                                  "l-*-30238")))
                                              (hygiene guile))
                                           (cons dx-30807 dy-30801)))
                                   tmp-30803)
                                 (if (null? dy-30801)
                                   (list '#(syntax-object
                                            "list"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("l-*-30330"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("l-*-30324"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("l-*-30318" "l-*-30319"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("l-*-30313" "l-*-30314"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("l-*-30250"
                                                "l-*-30248"
                                                "l-*-30246"
                                                "l-*-30244"
                                                "l-*-30242"
                                                "l-*-30240"
                                                "l-*-30238")))
                                            (hygiene guile))
                                         x-30794)
                                   (list '#(syntax-object
                                            "list*"
                                            ((top)
                                             #(ribcage
                                               #(_)
                                               #((top))
                                               #("l-*-30330"))
                                             #(ribcage
                                               #(dy)
                                               #((top))
                                               #("l-*-30324"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("l-*-30318" "l-*-30319"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("l-*-30313" "l-*-30314"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("l-*-30250"
                                                "l-*-30248"
                                                "l-*-30246"
                                                "l-*-30244"
                                                "l-*-30242"
                                                "l-*-30240"
                                                "l-*-30238")))
                                            (hygiene guile))
                                         x-30794
                                         y-30795)))))
                           tmp-30797)
                         (let ((tmp-30812
                                 ($sc-dispatch
                                   y-30795
                                   '(#(atom "list") . any))))
                           (if tmp-30812
                             (@apply
                               (lambda (stuff-30816)
                                 (cons '#(syntax-object
                                          "list"
                                          ((top)
                                           #(ribcage
                                             #(stuff)
                                             #((top))
                                             #("l-*-30333"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("l-*-30318" "l-*-30319"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("l-*-30313" "l-*-30314"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("l-*-30250"
                                              "l-*-30248"
                                              "l-*-30246"
                                              "l-*-30244"
                                              "l-*-30242"
                                              "l-*-30240"
                                              "l-*-30238")))
                                          (hygiene guile))
                                       (cons x-30794 stuff-30816)))
                               tmp-30812)
                             (let ((tmp-30817
                                     ($sc-dispatch
                                       y-30795
                                       '(#(atom "list*") . any))))
                               (if tmp-30817
                                 (@apply
                                   (lambda (stuff-30821)
                                     (cons '#(syntax-object
                                              "list*"
                                              ((top)
                                               #(ribcage
                                                 #(stuff)
                                                 #((top))
                                                 #("l-*-30336"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("l-*-30318" "l-*-30319"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("l-*-30313" "l-*-30314"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("l-*-30250"
                                                  "l-*-30248"
                                                  "l-*-30246"
                                                  "l-*-30244"
                                                  "l-*-30242"
                                                  "l-*-30240"
                                                  "l-*-30238")))
                                              (hygiene guile))
                                           (cons x-30794 stuff-30821)))
                                   tmp-30817)
                                 (list '#(syntax-object
                                          "list*"
                                          ((top)
                                           #(ribcage
                                             #(_)
                                             #((top))
                                             #("l-*-30338"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("l-*-30318" "l-*-30319"))
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x y)
                                             #((top) (top))
                                             #("l-*-30313" "l-*-30314"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("l-*-30250"
                                              "l-*-30248"
                                              "l-*-30246"
                                              "l-*-30244"
                                              "l-*-30242"
                                              "l-*-30240"
                                              "l-*-30238")))
                                          (hygiene guile))
                                       x-30794
                                       y-30795))))))))
                   tmp-30792)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   tmp-30791))))))
       (quasiappend-30511
         (lambda (x-30832 y-30833)
           (let ((tmp-30835
                   ($sc-dispatch y-30833 '(#(atom "quote") ()))))
             (if tmp-30835
               (@apply
                 (lambda ()
                   (if (null? x-30832)
                     '(#(syntax-object
                         "quote"
                         ((top)
                          #(ribcage () () ())
                          #(ribcage
                            #(x y)
                            #((top) (top))
                            #("l-*-30342" "l-*-30343"))
                          #(ribcage
                            (emit quasivector
                                  quasilist*
                                  quasiappend
                                  quasicons
                                  vquasi
                                  quasi)
                            ((top) (top) (top) (top) (top) (top) (top))
                            ("l-*-30250"
                             "l-*-30248"
                             "l-*-30246"
                             "l-*-30244"
                             "l-*-30242"
                             "l-*-30240"
                             "l-*-30238")))
                         (hygiene guile))
                       ())
                     (if (null? (cdr x-30832))
                       (car x-30832)
                       (let ((tmp-30840 ($sc-dispatch x-30832 'each-any)))
                         (if tmp-30840
                           (@apply
                             (lambda (p-30844)
                               (cons '#(syntax-object
                                        "append"
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p)
                                           #((top))
                                           #("l-*-30354"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(x y)
                                           #((top) (top))
                                           #("l-*-30342" "l-*-30343"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
                                                 quasiappend
                                                 quasicons
                                                 vquasi
                                                 quasi)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("l-*-30250"
                                            "l-*-30248"
                                            "l-*-30246"
                                            "l-*-30244"
                                            "l-*-30242"
                                            "l-*-30240"
                                            "l-*-30238")))
                                        (hygiene guile))
                                     p-30844))
                             tmp-30840)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
                             x-30832))))))
                 tmp-30835)
               (if (null? x-30832)
                 y-30833
                 (let ((tmp-30852 (list x-30832 y-30833)))
                   (let ((tmp-30853
                           ($sc-dispatch tmp-30852 '(each-any any))))
                     (if tmp-30853
                       (@apply
                         (lambda (p-30855 y-30856)
                           (cons '#(syntax-object
                                    "append"
                                    ((top)
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p y)
                                       #((top) (top))
                                       #("l-*-30365" "l-*-30366"))
                                     #(ribcage #(_) #((top)) #("l-*-30357"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(x y)
                                       #((top) (top))
                                       #("l-*-30342" "l-*-30343"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
                                             quasiappend
                                             quasicons
                                             vquasi
                                             quasi)
                                       ((top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top)
                                        (top))
                                       ("l-*-30250"
                                        "l-*-30248"
                                        "l-*-30246"
                                        "l-*-30244"
                                        "l-*-30242"
                                        "l-*-30240"
                                        "l-*-30238")))
                                    (hygiene guile))
                                 (append p-30855 (list y-30856))))
                         tmp-30853)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         tmp-30852)))))))))
       (quasilist*-30512
         (lambda (x-30860 y-30861)
           (letrec*
             ((f-30862
                (lambda (x-30951)
                  (if (null? x-30951)
                    y-30861
                    (quasicons-30510
                      (car x-30951)
                      (f-30862 (cdr x-30951)))))))
             (f-30862 x-30860))))
       (emit-30514
         (lambda (x-30954)
           (let ((tmp-30956
                   ($sc-dispatch x-30954 '(#(atom "quote") any))))
             (if tmp-30956
               (@apply
                 (lambda (x-30960)
                   (list '#(syntax-object
                            quote
                            ((top)
                             #(ribcage #(x) #((top)) #("l-*-30432"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("l-*-30429"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
                                     quasiappend
                                     quasicons
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
                               ("l-*-30250"
                                "l-*-30248"
                                "l-*-30246"
                                "l-*-30244"
                                "l-*-30242"
                                "l-*-30240"
                                "l-*-30238")))
                            (hygiene guile))
                         x-30960))
                 tmp-30956)
               (let ((tmp-30961
                       ($sc-dispatch
                         x-30954
                         '(#(atom "list") . each-any))))
                 (if tmp-30961
                   (@apply
                     (lambda (x-30965)
                       (let ((tmp-30966 (map emit-30514 x-30965)))
                         (let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any)))
                           (if tmp-30967
                             (@apply
                               (lambda (t-30437-30969)
                                 (cons '#(syntax-object
                                          list
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(t-30437)
                                             #((m-*-30438 top))
                                             #("l-*-30442"))
                                           #(ribcage
                                             #(x)
                                             #((top))
                                             #("l-*-30435"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x)
                                             #((top))
                                             #("l-*-30429"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
                                                   quasiappend
                                                   quasicons
                                                   vquasi
                                                   quasi)
                                             ((top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top)
                                              (top))
                                             ("l-*-30250"
                                              "l-*-30248"
                                              "l-*-30246"
                                              "l-*-30244"
                                              "l-*-30242"
                                              "l-*-30240"
                                              "l-*-30238")))
                                          (hygiene guile))
                                       t-30437-30969))
                               tmp-30967)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
                               tmp-30966)))))
                     tmp-30961)
                   (let ((tmp-30970
                           ($sc-dispatch
                             x-30954
                             '(#(atom "list*") . #(each+ any (any) ())))))
                     (if tmp-30970
                       (@apply
                         (lambda (x-30974 y-30975)
                           (letrec*
                             ((f-30976
                                (lambda (x*-30979)
                                  (if (null? x*-30979)
                                    (emit-30514 y-30975)
                                    (let ((tmp-30980
                                            (list (emit-30514 (car x*-30979))
                                                  (f-30976 (cdr x*-30979)))))
                                      (let ((tmp-30981
                                              ($sc-dispatch
                                                tmp-30980
                                                '(any any))))
                                        (if tmp-30981
                                          (@apply
                                            (lambda (t-30457-30983
                                                     t-30456-30984)
                                              (list '#(syntax-object
                                                       cons
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(t-30457 t-30456)
                                                          #((m-*-30458 top)
                                                            (m-*-30458 top))
                                                          #("l-*-30462"
                                                            "l-*-30463"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f x*)
                                                          #((top) (top))
                                                          #("l-*-30451"
                                                            "l-*-30452"))
                                                        #(ribcage
                                                          #(x y)
                                                          #((top) (top))
                                                          #("l-*-30447"
                                                            "l-*-30448"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("l-*-30429"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("l-*-30250"
                                                           "l-*-30248"
                                                           "l-*-30246"
                                                           "l-*-30244"
                                                           "l-*-30242"
                                                           "l-*-30240"
                                                           "l-*-30238")))
                                                       (hygiene guile))
                                                    t-30457-30983
                                                    t-30456-30984))
                                            tmp-30981)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match any pattern"
                                            tmp-30980))))))))
                             (f-30976 x-30974)))
                         tmp-30970)
                       (let ((tmp-30985
                               ($sc-dispatch
                                 x-30954
                                 '(#(atom "append") . each-any))))
                         (if tmp-30985
                           (@apply
                             (lambda (x-30989)
                               (let ((tmp-30990 (map emit-30514 x-30989)))
                                 (let ((tmp-30991
                                         ($sc-dispatch tmp-30990 'each-any)))
                                   (if tmp-30991
                                     (@apply
                                       (lambda (t-30469-30993)
                                         (cons '#(syntax-object
                                                  append
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(t-30469)
                                                     #((m-*-30470 top))
                                                     #("l-*-30474"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30467"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30429"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("l-*-30250"
                                                      "l-*-30248"
                                                      "l-*-30246"
                                                      "l-*-30244"
                                                      "l-*-30242"
                                                      "l-*-30240"
                                                      "l-*-30238")))
                                                  (hygiene guile))
                                               t-30469-30993))
                                       tmp-30991)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any pattern"
                                       tmp-30990)))))
                             tmp-30985)
                           (let ((tmp-30994
                                   ($sc-dispatch
                                     x-30954
                                     '(#(atom "vector") . each-any))))
                             (if tmp-30994
                               (@apply
                                 (lambda (x-30998)
                                   (let ((tmp-30999 (map emit-30514 x-30998)))
                                     (let ((tmp-31000
                                             ($sc-dispatch
                                               tmp-30999
                                               'each-any)))
                                       (if tmp-31000
                                         (@apply
                                           (lambda (t-30481-31002)
                                             (cons '#(syntax-object
                                                      vector
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(t-30481)
                                                         #((m-*-30482 top))
                                                         #("l-*-30486"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("l-*-30479"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("l-*-30429"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
                                                               quasiappend
                                                               quasicons
                                                               vquasi
                                                               quasi)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("l-*-30250"
                                                          "l-*-30248"
                                                          "l-*-30246"
                                                          "l-*-30244"
                                                          "l-*-30242"
                                                          "l-*-30240"
                                                          "l-*-30238")))
                                                      (hygiene guile))
                                                   t-30481-31002))
                                           tmp-31000)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           tmp-30999)))))
                                 tmp-30994)
                               (let ((tmp-31003
                                       ($sc-dispatch
                                         x-30954
                                         '(#(atom "list->vector") any))))
                                 (if tmp-31003
                                   (@apply
                                     (lambda (x-31007)
                                       (let ((tmp-31008 (emit-30514 x-31007)))
                                         (list '#(syntax-object
                                                  list->vector
                                                  ((top)
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(t-30493)
                                                     #((m-*-30494 top))
                                                     #("l-*-30497"))
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30491"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-30429"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("l-*-30250"
                                                      "l-*-30248"
                                                      "l-*-30246"
                                                      "l-*-30244"
                                                      "l-*-30242"
                                                      "l-*-30240"
                                                      "l-*-30238")))
                                                  (hygiene guile))
                                               tmp-31008)))
                                     tmp-31003)
                                   (let ((tmp-31011
                                           ($sc-dispatch
                                             x-30954
                                             '(#(atom "value") any))))
                                     (if tmp-31011
                                       (@apply
                                         (lambda (x-31015) x-31015)
                                         tmp-31011)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any pattern"
                                         x-30954))))))))))))))))))
      (lambda (x-30515)
        (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any))))
          (if tmp-30517
            (@apply
              (lambda (e-30521)
                (emit-30514 (quasi-30508 e-30521 0)))
              tmp-30517)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              x-30515)))))))

(define include
  (make-syntax-transformer
    'include
    'macro
    (lambda (x-31070)
      (letrec*
        ((read-file-31071
           (lambda (fn-31180 k-31181)
             (let ((p-31182 (open-input-file fn-31180)))
               (letrec*
                 ((f-31183
                    (lambda (x-31237 result-31238)
                      (if (eof-object? x-31237)
                        (begin
                          (close-input-port p-31182)
                          (reverse result-31238))
                        (f-31183
                          (read p-31182)
                          (cons (datum->syntax k-31181 x-31237)
                                result-31238))))))
                 (f-31183 (read p-31182) '()))))))
        (let ((tmp-31073 ($sc-dispatch x-31070 '(any any))))
          (if tmp-31073
            (@apply
              (lambda (k-31077 filename-31078)
                (let ((fn-31079 (syntax->datum filename-31078)))
                  (let ((tmp-31080
                          (read-file-31071 fn-31079 filename-31078)))
                    (let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any)))
                      (if tmp-31081
                        (@apply
                          (lambda (exp-31099)
                            (cons '#(syntax-object
                                     begin
                                     ((top)
                                      #(ribcage () () ())
                                      #(ribcage #(exp) #((top)) #("l-*-31067"))
                                      #(ribcage () () ())
                                      #(ribcage () () ())
                                      #(ribcage #(fn) #((top)) #("l-*-31062"))
                                      #(ribcage
                                        #(k filename)
                                        #((top) (top))
                                        #("l-*-31058" "l-*-31059"))
                                      #(ribcage
                                        (read-file)
                                        ((top))
                                        ("l-*-31042"))
                                      #(ribcage #(x) #((top)) #("l-*-31041")))
                                     (hygiene guile))
                                  exp-31099))
                          tmp-31081)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          tmp-31080))))))
              tmp-31073)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              x-31070)))))))

(define include-from-path
  (make-syntax-transformer
    'include-from-path
    'macro
    (lambda (x-31257)
      (let ((tmp-31259 ($sc-dispatch x-31257 '(any any))))
        (if tmp-31259
          (@apply
            (lambda (k-31263 filename-31264)
              (let ((fn-31265 (syntax->datum filename-31264)))
                (let ((tmp-31266
                        (datum->syntax
                          filename-31264
                          (let ((t-31269 (%search-load-path fn-31265)))
                            (if t-31269
                              t-31269
                              (syntax-violation
                                'include-from-path
                                "file not found in path"
                                x-31257
                                filename-31264))))))
                  (list '#(syntax-object
                           include
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("l-*-31251"))
                            #(ribcage () () ())
                            #(ribcage () () ())
                            #(ribcage #(fn) #((top)) #("l-*-31247"))
                            #(ribcage
                              #(k filename)
                              #((top) (top))
                              #("l-*-31243" "l-*-31244"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-31240")))
                           (hygiene guile))
                        tmp-31266))))
            tmp-31259)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            x-31257))))))

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

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

(define case
  (make-syntax-transformer
    'case
    'macro
    (lambda (x-31337)
      (let ((tmp-31339
              ($sc-dispatch x-31337 '(_ any any . each-any))))
        (if tmp-31339
          (@apply
            (lambda (e-31343 m1-31344 m2-31345)
              (let ((tmp-31346
                      (letrec*
                        ((f-31388
                           (lambda (clause-31391 clauses-31392)
                             (if (null? clauses-31392)
                               (let ((tmp-31394
                                       ($sc-dispatch
                                         clause-31391
                                         '(#(free-id
                                             #(syntax-object
                                               else
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(f clause clauses)
                                                  #((top) (top) (top))
                                                  #("l-*-31296"
                                                    "l-*-31297"
                                                    "l-*-31298"))
                                                #(ribcage
                                                  #(e m1 m2)
                                                  #((top) (top) (top))
                                                  #("l-*-31286"
                                                    "l-*-31287"
                                                    "l-*-31288"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
                                                  #("l-*-31283")))
                                               (hygiene guile)))
                                           any
                                           .
                                           each-any))))
                                 (if tmp-31394
                                   (@apply
                                     (lambda (e1-31398 e2-31399)
                                       (cons '#(syntax-object
                                                begin
                                                ((top)
                                                 #(ribcage
                                                   #(e1 e2)
                                                   #((top) (top))
                                                   #("l-*-31305" "l-*-31306"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(f clause clauses)
                                                   #((top) (top) (top))
                                                   #("l-*-31296"
                                                     "l-*-31297"
                                                     "l-*-31298"))
                                                 #(ribcage
                                                   #(e m1 m2)
                                                   #((top) (top) (top))
                                                   #("l-*-31286"
                                                     "l-*-31287"
                                                     "l-*-31288"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("l-*-31283")))
                                                (hygiene guile))
                                             (cons e1-31398 e2-31399)))
                                     tmp-31394)
                                   (let ((tmp-31400
                                           ($sc-dispatch
                                             clause-31391
                                             '(each-any any . each-any))))
                                     (if tmp-31400
                                       (@apply
                                         (lambda (k-31404 e1-31405 e2-31406)
                                           (list '#(syntax-object
                                                    if
                                                    ((top)
                                                     #(ribcage
                                                       #(k e1 e2)
                                                       #((top) (top) (top))
                                                       #("l-*-31311"
                                                         "l-*-31312"
                                                         "l-*-31313"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f clause clauses)
                                                       #((top) (top) (top))
                                                       #("l-*-31296"
                                                         "l-*-31297"
                                                         "l-*-31298"))
                                                     #(ribcage
                                                       #(e m1 m2)
                                                       #((top) (top) (top))
                                                       #("l-*-31286"
                                                         "l-*-31287"
                                                         "l-*-31288"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("l-*-31283")))
                                                    (hygiene guile))
                                                 (list '#(syntax-object
                                                          memv
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31311"
                                                               "l-*-31312"
                                                               "l-*-31313"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31296"
                                                               "l-*-31297"
                                                               "l-*-31298"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31286"
                                                               "l-*-31287"
                                                               "l-*-31288"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("l-*-31283")))
                                                          (hygiene guile))
                                                       '#(syntax-object
                                                          t
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31311"
                                                               "l-*-31312"
                                                               "l-*-31313"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31296"
                                                               "l-*-31297"
                                                               "l-*-31298"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31286"
                                                               "l-*-31287"
                                                               "l-*-31288"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("l-*-31283")))
                                                          (hygiene guile))
                                                       (list '#(syntax-object
                                                                quote
                                                                ((top)
                                                                 #(ribcage
                                                                   #(k e1 e2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("l-*-31311"
                                                                     "l-*-31312"
                                                                     "l-*-31313"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(f
                                                                     clause
                                                                     clauses)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("l-*-31296"
                                                                     "l-*-31297"
                                                                     "l-*-31298"))
                                                                 #(ribcage
                                                                   #(e m1 m2)
                                                                   #((top)
                                                                     (top)
                                                                     (top))
                                                                   #("l-*-31286"
                                                                     "l-*-31287"
                                                                     "l-*-31288"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("l-*-31283")))
                                                                (hygiene
                                                                  guile))
                                                             k-31404))
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
                                                           #(ribcage
                                                             #(k e1 e2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31311"
                                                               "l-*-31312"
                                                               "l-*-31313"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(f
                                                               clause
                                                               clauses)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31296"
                                                               "l-*-31297"
                                                               "l-*-31298"))
                                                           #(ribcage
                                                             #(e m1 m2)
                                                             #((top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31286"
                                                               "l-*-31287"
                                                               "l-*-31288"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("l-*-31283")))
                                                          (hygiene guile))
                                                       (cons e1-31405
                                                             e2-31406))))
                                         tmp-31400)
                                       (syntax-violation
                                         'case
                                         "bad clause"
                                         x-31337
                                         clause-31391)))))
                               (let ((tmp-31414
                                       (f-31388
                                         (car clauses-31392)
                                         (cdr clauses-31392))))
                                 (let ((tmp-31417
                                         ($sc-dispatch
                                           clause-31391
                                           '(each-any any . each-any))))
                                   (if tmp-31417
                                     (@apply
                                       (lambda (k-31421 e1-31422 e2-31423)
                                         (list '#(syntax-object
                                                  if
                                                  ((top)
                                                   #(ribcage
                                                     #(k e1 e2)
                                                     #((top) (top) (top))
                                                     #("l-*-31327"
                                                       "l-*-31328"
                                                       "l-*-31329"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(rest)
                                                     #((top))
                                                     #("l-*-31323"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f clause clauses)
                                                     #((top) (top) (top))
                                                     #("l-*-31296"
                                                       "l-*-31297"
                                                       "l-*-31298"))
                                                   #(ribcage
                                                     #(e m1 m2)
                                                     #((top) (top) (top))
                                                     #("l-*-31286"
                                                       "l-*-31287"
                                                       "l-*-31288"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("l-*-31283")))
                                                  (hygiene guile))
                                               (list '#(syntax-object
                                                        memv
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("l-*-31327"
                                                             "l-*-31328"
                                                             "l-*-31329"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("l-*-31323"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("l-*-31296"
                                                             "l-*-31297"
                                                             "l-*-31298"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("l-*-31286"
                                                             "l-*-31287"
                                                             "l-*-31288"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("l-*-31283")))
                                                        (hygiene guile))
                                                     '#(syntax-object
                                                        t
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("l-*-31327"
                                                             "l-*-31328"
                                                             "l-*-31329"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("l-*-31323"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("l-*-31296"
                                                             "l-*-31297"
                                                             "l-*-31298"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("l-*-31286"
                                                             "l-*-31287"
                                                             "l-*-31288"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("l-*-31283")))
                                                        (hygiene guile))
                                                     (list '#(syntax-object
                                                              quote
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("l-*-31327"
                                                                   "l-*-31328"
                                                                   "l-*-31329"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("l-*-31323"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("l-*-31296"
                                                                   "l-*-31297"
                                                                   "l-*-31298"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("l-*-31286"
                                                                   "l-*-31287"
                                                                   "l-*-31288"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("l-*-31283")))
                                                              (hygiene guile))
                                                           k-31421))
                                               (cons '#(syntax-object
                                                        begin
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("l-*-31327"
                                                             "l-*-31328"
                                                             "l-*-31329"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("l-*-31323"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("l-*-31296"
                                                             "l-*-31297"
                                                             "l-*-31298"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("l-*-31286"
                                                             "l-*-31287"
                                                             "l-*-31288"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("l-*-31283")))
                                                        (hygiene guile))
                                                     (cons e1-31422 e2-31423))
                                               tmp-31414))
                                       tmp-31417)
                                     (syntax-violation
                                       'case
                                       "bad clause"
                                       x-31337
                                       clause-31391))))))))
                        (f-31388 m1-31344 m2-31345))))
                (let ((body-31347 tmp-31346))
                  (list '#(syntax-object
                           let
                           ((top)
                            #(ribcage () () ())
                            #(ribcage #(body) #((top)) #("l-*-31294"))
                            #(ribcage
                              #(e m1 m2)
                              #((top) (top) (top))
                              #("l-*-31286" "l-*-31287" "l-*-31288"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-31283")))
                           (hygiene guile))
                        (list (list '#(syntax-object
                                       t
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(body)
                                          #((top))
                                          #("l-*-31294"))
                                        #(ribcage
                                          #(e m1 m2)
                                          #((top) (top) (top))
                                          #("l-*-31286"
                                            "l-*-31287"
                                            "l-*-31288"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x)
                                          #((top))
                                          #("l-*-31283")))
                                       (hygiene guile))
                                    e-31343))
                        body-31347))))
            tmp-31339)
          (syntax-violation
            #f
            "source expression failed to match any pattern"
            x-31337))))))

(define make-variable-transformer
  (lambda (proc-31441)
    (if (procedure? proc-31441)
      (letrec*
        ((trans-31442
           (lambda (x-31448) (proc-31441 x-31448))))
        (begin
          (set-procedure-property!
            trans-31442
            'variable-transformer
            #t)
          trans-31442))
      (error "variable transformer not a procedure"
             proc-31441))))

(define identifier-syntax
  (make-syntax-transformer
    'identifier-syntax
    'macro
    (lambda (x-31480)
      (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any))))
        (if tmp-31482
          (@apply
            (lambda (e-31486)
              (list '#(syntax-object
                       lambda
                       ((top)
                        #(ribcage #(e) #((top)) #("l-*-31455"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-31452")))
                       (hygiene guile))
                    '(#(syntax-object
                        x
                        ((top)
                         #(ribcage #(e) #((top)) #("l-*-31455"))
                         #(ribcage () () ())
                         #(ribcage #(x) #((top)) #("l-*-31452")))
                        (hygiene guile)))
                    '#((#(syntax-object
                          macro-type
                          ((top)
                           #(ribcage #(e) #((top)) #("l-*-31455"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("l-*-31452")))
                          (hygiene guile))
                        .
                        #(syntax-object
                          identifier-syntax
                          ((top)
                           #(ribcage #(e) #((top)) #("l-*-31455"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("l-*-31452")))
                          (hygiene guile))))
                    (list '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage #(e) #((top)) #("l-*-31455"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("l-*-31452")))
                             (hygiene guile))
                          '#(syntax-object
                             x
                             ((top)
                              #(ribcage #(e) #((top)) #("l-*-31455"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("l-*-31452")))
                             (hygiene guile))
                          '()
                          (list '#(syntax-object
                                   id
                                   ((top)
                                    #(ribcage #(e) #((top)) #("l-*-31455"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("l-*-31452")))
                                   (hygiene guile))
                                '(#(syntax-object
                                    identifier?
                                    ((top)
                                     #(ribcage #(e) #((top)) #("l-*-31455"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile))
                                  (#(syntax-object
                                     syntax
                                     ((top)
                                      #(ribcage #(e) #((top)) #("l-*-31455"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("l-*-31452")))
                                     (hygiene guile))
                                   #(syntax-object
                                     id
                                     ((top)
                                      #(ribcage #(e) #((top)) #("l-*-31455"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("l-*-31452")))
                                     (hygiene guile))))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage
                                            #(e)
                                            #((top))
                                            #("l-*-31455"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(x)
                                            #((top))
                                            #("l-*-31452")))
                                         (hygiene guile))
                                      e-31486))
                          (list '(#(syntax-object
                                    _
                                    ((top)
                                     #(ribcage #(e) #((top)) #("l-*-31455"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile))
                                  #(syntax-object
                                    x
                                    ((top)
                                     #(ribcage #(e) #((top)) #("l-*-31455"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile))
                                  #(syntax-object
                                    ...
                                    ((top)
                                     #(ribcage #(e) #((top)) #("l-*-31455"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile)))
                                (list '#(syntax-object
                                         syntax
                                         ((top)
                                          #(ribcage
                                            #(e)
                                            #((top))
                                            #("l-*-31455"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(x)
                                            #((top))
                                            #("l-*-31452")))
                                         (hygiene guile))
                                      (cons e-31486
                                            '(#(syntax-object
                                                x
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("l-*-31455"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("l-*-31452")))
                                                (hygiene guile))
                                              #(syntax-object
                                                ...
                                                ((top)
                                                 #(ribcage
                                                   #(e)
                                                   #((top))
                                                   #("l-*-31455"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("l-*-31452")))
                                                (hygiene guile)))))))))
            tmp-31482)
          (let ((tmp-31487
                  ($sc-dispatch
                    x-31480
                    '(_ (any any)
                        ((#(free-id
                            #(syntax-object
                              set!
                              ((top)
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("l-*-31452")))
                              (hygiene guile)))
                          any
                          any)
                         any)))))
            (if (if tmp-31487
                  (@apply
                    (lambda (id-31491
                             exp1-31492
                             var-31493
                             val-31494
                             exp2-31495)
                      (if (identifier? id-31491)
                        (identifier? var-31493)
                        #f))
                    tmp-31487)
                  #f)
              (@apply
                (lambda (id-31496
                         exp1-31497
                         var-31498
                         val-31499
                         exp2-31500)
                  (list '#(syntax-object
                           make-variable-transformer
                           ((top)
                            #(ribcage
                              #(id exp1 var val exp2)
                              #((top) (top) (top) (top) (top))
                              #("l-*-31470"
                                "l-*-31471"
                                "l-*-31472"
                                "l-*-31473"
                                "l-*-31474"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-31452")))
                           (hygiene guile))
                        (list '#(syntax-object
                                 lambda
                                 ((top)
                                  #(ribcage
                                    #(id exp1 var val exp2)
                                    #((top) (top) (top) (top) (top))
                                    #("l-*-31470"
                                      "l-*-31471"
                                      "l-*-31472"
                                      "l-*-31473"
                                      "l-*-31474"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("l-*-31452")))
                                 (hygiene guile))
                              '(#(syntax-object
                                  x
                                  ((top)
                                   #(ribcage
                                     #(id exp1 var val exp2)
                                     #((top) (top) (top) (top) (top))
                                     #("l-*-31470"
                                       "l-*-31471"
                                       "l-*-31472"
                                       "l-*-31473"
                                       "l-*-31474"))
                                   #(ribcage () () ())
                                   #(ribcage #(x) #((top)) #("l-*-31452")))
                                  (hygiene guile)))
                              '#((#(syntax-object
                                    macro-type
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("l-*-31470"
                                         "l-*-31471"
                                         "l-*-31472"
                                         "l-*-31473"
                                         "l-*-31474"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile))
                                  .
                                  #(syntax-object
                                    variable-transformer
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("l-*-31470"
                                         "l-*-31471"
                                         "l-*-31472"
                                         "l-*-31473"
                                         "l-*-31474"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("l-*-31452")))
                                    (hygiene guile))))
                              (list '#(syntax-object
                                       syntax-case
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("l-*-31470"
                                            "l-*-31471"
                                            "l-*-31472"
                                            "l-*-31473"
                                            "l-*-31474"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x)
                                          #((top))
                                          #("l-*-31452")))
                                       (hygiene guile))
                                    '#(syntax-object
                                       x
                                       ((top)
                                        #(ribcage
                                          #(id exp1 var val exp2)
                                          #((top) (top) (top) (top) (top))
                                          #("l-*-31470"
                                            "l-*-31471"
                                            "l-*-31472"
                                            "l-*-31473"
                                            "l-*-31474"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x)
                                          #((top))
                                          #("l-*-31452")))
                                       (hygiene guile))
                                    '(#(syntax-object
                                        set!
                                        ((top)
                                         #(ribcage
                                           #(id exp1 var val exp2)
                                           #((top) (top) (top) (top) (top))
                                           #("l-*-31470"
                                             "l-*-31471"
                                             "l-*-31472"
                                             "l-*-31473"
                                             "l-*-31474"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(x)
                                           #((top))
                                           #("l-*-31452")))
                                        (hygiene guile)))
                                    (list (list '#(syntax-object
                                                   set!
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-31470"
                                                        "l-*-31471"
                                                        "l-*-31472"
                                                        "l-*-31473"
                                                        "l-*-31474"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-31452")))
                                                   (hygiene guile))
                                                var-31498
                                                val-31499)
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-31470"
                                                        "l-*-31471"
                                                        "l-*-31472"
                                                        "l-*-31473"
                                                        "l-*-31474"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-31452")))
                                                   (hygiene guile))
                                                exp2-31500))
                                    (list (cons id-31496
                                                '(#(syntax-object
                                                    x
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("l-*-31470"
                                                         "l-*-31471"
                                                         "l-*-31472"
                                                         "l-*-31473"
                                                         "l-*-31474"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("l-*-31452")))
                                                    (hygiene guile))
                                                  #(syntax-object
                                                    ...
                                                    ((top)
                                                     #(ribcage
                                                       #(id exp1 var val exp2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("l-*-31470"
                                                         "l-*-31471"
                                                         "l-*-31472"
                                                         "l-*-31473"
                                                         "l-*-31474"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("l-*-31452")))
                                                    (hygiene guile))))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-31470"
                                                        "l-*-31471"
                                                        "l-*-31472"
                                                        "l-*-31473"
                                                        "l-*-31474"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-31452")))
                                                   (hygiene guile))
                                                (cons exp1-31497
                                                      '(#(syntax-object
                                                          x
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31470"
                                                               "l-*-31471"
                                                               "l-*-31472"
                                                               "l-*-31473"
                                                               "l-*-31474"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("l-*-31452")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(id
                                                               exp1
                                                               var
                                                               val
                                                               exp2)
                                                             #((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                             #("l-*-31470"
                                                               "l-*-31471"
                                                               "l-*-31472"
                                                               "l-*-31473"
                                                               "l-*-31474"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x)
                                                             #((top))
                                                             #("l-*-31452")))
                                                          (hygiene guile))))))
                                    (list id-31496
                                          (list '#(syntax-object
                                                   identifier?
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-31470"
                                                        "l-*-31471"
                                                        "l-*-31472"
                                                        "l-*-31473"
                                                        "l-*-31474"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-31452")))
                                                   (hygiene guile))
                                                (list '#(syntax-object
                                                         syntax
                                                         ((top)
                                                          #(ribcage
                                                            #(id
                                                              exp1
                                                              var
                                                              val
                                                              exp2)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("l-*-31470"
                                                              "l-*-31471"
                                                              "l-*-31472"
                                                              "l-*-31473"
                                                              "l-*-31474"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("l-*-31452")))
                                                         (hygiene guile))
                                                      id-31496))
                                          (list '#(syntax-object
                                                   syntax
                                                   ((top)
                                                    #(ribcage
                                                      #(id exp1 var val exp2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("l-*-31470"
                                                        "l-*-31471"
                                                        "l-*-31472"
                                                        "l-*-31473"
                                                        "l-*-31474"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("l-*-31452")))
                                                   (hygiene guile))
                                                exp1-31497))))))
                tmp-31487)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                x-31480))))))))

(define define*
  (make-syntax-transformer
    'define*
    'macro
    (lambda (x-31532)
      (let ((tmp-31534
              ($sc-dispatch
                x-31532
                '(_ (any . any) any . each-any))))
        (if tmp-31534
          (@apply
            (lambda (id-31538 args-31539 b0-31540 b1-31541)
              (list '#(syntax-object
                       define
                       ((top)
                        #(ribcage
                          #(id args b0 b1)
                          #((top) (top) (top) (top))
                          #("l-*-31514"
                            "l-*-31515"
                            "l-*-31516"
                            "l-*-31517"))
                        #(ribcage () () ())
                        #(ribcage #(x) #((top)) #("l-*-31511")))
                       (hygiene guile))
                    id-31538
                    (cons '#(syntax-object
                             lambda*
                             ((top)
                              #(ribcage
                                #(id args b0 b1)
                                #((top) (top) (top) (top))
                                #("l-*-31514"
                                  "l-*-31515"
                                  "l-*-31516"
                                  "l-*-31517"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("l-*-31511")))
                             (hygiene guile))
                          (cons args-31539 (cons b0-31540 b1-31541)))))
            tmp-31534)
          (let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any))))
            (if (if tmp-31542
                  (@apply
                    (lambda (id-31546 val-31547)
                      (identifier?
                        '#(syntax-object
                           x
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("l-*-31524" "l-*-31525"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-31511")))
                           (hygiene guile))))
                    tmp-31542)
                  #f)
              (@apply
                (lambda (id-31548 val-31549)
                  (list '#(syntax-object
                           define
                           ((top)
                            #(ribcage
                              #(id val)
                              #((top) (top))
                              #("l-*-31528" "l-*-31529"))
                            #(ribcage () () ())
                            #(ribcage #(x) #((top)) #("l-*-31511")))
                           (hygiene guile))
                        id-31548
                        val-31549))
                tmp-31542)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                x-31532))))))))