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

(letrec ((and-map*17
           (lambda (f57 first56 . rest55)
             (let ((t58 (null? first56)))
               (if t58
                 t58
                 (if (null? rest55)
                   (letrec ((andmap59
                              (lambda (first60)
                                (let ((x61 (car first60))
                                      (first62 (cdr first60)))
                                  (if (null? first62)
                                    (f57 x61)
                                    (if (f57 x61) (andmap59 first62) #f))))))
                     (andmap59 first56))
                   (letrec ((andmap63
                              (lambda (first64 rest65)
                                (let ((x66 (car first64))
                                      (xr67 (map car rest65))
                                      (first68 (cdr first64))
                                      (rest69 (map cdr rest65)))
                                  (if (null? first68)
                                    (apply f57 (cons x66 xr67))
                                    (if (apply f57 (cons x66 xr67))
                                      (andmap63 first68 rest69)
                                      #f))))))
                     (andmap63 first56 rest55))))))))
  (letrec ((lambda-var-list163
             (lambda (vars287)
               (letrec ((lvl288
                          (lambda (vars289 ls290 w291)
                            (if (pair? vars289)
                              (lvl288
                                (cdr vars289)
                                (cons (wrap143 (car vars289) w291 #f) ls290)
                                w291)
                              (if (id?115 vars289)
                                (cons (wrap143 vars289 w291 #f) ls290)
                                (if (null? vars289)
                                  ls290
                                  (if (syntax-object?99 vars289)
                                    (lvl288
                                      (syntax-object-expression100 vars289)
                                      ls290
                                      (join-wraps134
                                        w291
                                        (syntax-object-wrap101 vars289)))
                                    (cons vars289 ls290))))))))
                 (lvl288 vars287 (quote ()) (quote (()))))))
           (gen-var162
             (lambda (id292)
               (let ((id293 (if (syntax-object?99 id292)
                              (syntax-object-expression100 id292)
                              id292)))
                 (gensym (symbol->string id293)))))
           (strip161
             (lambda (x294 w295)
               (if (memq (quote top) (wrap-marks118 w295))
                 x294
                 (letrec ((f296 (lambda (x297)
                                  (if (syntax-object?99 x297)
                                    (strip161
                                      (syntax-object-expression100 x297)
                                      (syntax-object-wrap101 x297))
                                    (if (pair? x297)
                                      (let ((a298 (f296 (car x297)))
                                            (d299 (f296 (cdr x297))))
                                        (if (if (eq? a298 (car x297))
                                              (eq? d299 (cdr x297))
                                              #f)
                                          x297
                                          (cons a298 d299)))
                                      (if (vector? x297)
                                        (let ((old300 (vector->list x297)))
                                          (let ((new301 (map f296 old300)))
                                            (if (and-map*17 eq? old300 new301)
                                              x297
                                              (list->vector new301))))
                                        x297))))))
                   (f296 x294)))))
           (ellipsis?160
             (lambda (x302)
               (if (nonsymbol-id?114 x302)
                 (free-id=?138
                   x302
                   '#(syntax-object
                      ...
                      ((top)
                       #(ribcage () () ())
                       #(ribcage () () ())
                       #(ribcage #(x) #((top)) #("i"))
                       #(ribcage
                         (lambda-var-list
                           gen-var
                           strip
                           ellipsis?
                           chi-void
                           eval-local-transformer
                           chi-local-syntax
                           chi-lambda-clause
                           chi-body
                           chi-macro
                           chi-application
                           chi-expr
                           chi
                           chi-top
                           syntax-type
                           chi-when-list
                           chi-install-global
                           chi-top-sequence
                           chi-sequence
                           source-wrap
                           wrap
                           bound-id-member?
                           distinct-bound-ids?
                           valid-bound-ids?
                           bound-id=?
                           free-id=?
                           id-var-name
                           same-marks?
                           join-marks
                           join-wraps
                           smart-append
                           make-binding-wrap
                           extend-ribcage!
                           make-empty-ribcage
                           new-mark
                           anti-mark
                           the-anti-mark
                           top-marked?
                           top-wrap
                           empty-wrap
                           set-ribcage-labels!
                           set-ribcage-marks!
                           set-ribcage-symnames!
                           ribcage-labels
                           ribcage-marks
                           ribcage-symnames
                           ribcage?
                           make-ribcage
                           gen-labels
                           gen-label
                           make-rename
                           rename-marks
                           rename-new
                           rename-old
                           subst-rename?
                           wrap-subst
                           wrap-marks
                           make-wrap
                           id-sym-name&marks
                           id-sym-name
                           id?
                           nonsymbol-id?
                           global-extend
                           lookup
                           macros-only-env
                           extend-var-env
                           extend-env
                           null-env
                           binding-value
                           binding-type
                           make-binding
                           arg-check
                           source-annotation
                           no-source
                           set-syntax-object-module!
                           set-syntax-object-wrap!
                           set-syntax-object-expression!
                           syntax-object-module
                           syntax-object-wrap
                           syntax-object-expression
                           syntax-object?
                           make-syntax-object
                           build-lexical-var
                           build-letrec
                           build-named-let
                           build-let
                           build-sequence
                           build-data
                           build-primref
                           build-lambda
                           build-global-definition
                           maybe-name-value!
                           build-global-assignment
                           build-global-reference
                           analyze-variable
                           build-lexical-assignment
                           build-lexical-reference
                           build-conditional
                           build-application
                           build-void
                           decorate-source
                           get-global-definition-hook
                           put-global-definition-hook
                           gensym-hook
                           local-eval-hook
                           top-level-eval-hook
                           fx<
                           fx=
                           fx-
                           fx+
                           *mode*
                           noexpand)
                         ((top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top)
                          (top))
                         ("i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"
                          "i"))
                       #(ribcage
                         (define-structure and-map*)
                         ((top) (top))
                         ("i" "i")))
                      (hygiene guile)))
                 #f)))
           (chi-void159 (lambda () (build-void81 #f)))
           (eval-local-transformer158
             (lambda (expanded303 mod304)
               (let ((p305 (local-eval-hook77 expanded303 mod304)))
                 (if (procedure? p305)
                   p305
                   (syntax-violation
                     #f
                     "nonprocedure transformer"
                     p305)))))
           (chi-local-syntax157
             (lambda (rec?306 e307 r308 w309 s310 mod311 k312)
               ((lambda (tmp313)
                  ((lambda (tmp314)
                     (if tmp314
                       (apply (lambda (_315 id316 val317 e1318 e2319)
                                (let ((ids320 id316))
                                  (if (not (valid-bound-ids?140 ids320))
                                    (syntax-violation
                                      #f
                                      "duplicate bound keyword"
                                      e307)
                                    (let ((labels322 (gen-labels121 ids320)))
                                      (let ((new-w323
                                              (make-binding-wrap132
                                                ids320
                                                labels322
                                                w309)))
                                        (k312 (cons e1318 e2319)
                                              (extend-env109
                                                labels322
                                                (let ((w325 (if rec?306
                                                              new-w323
                                                              w309))
                                                      (trans-r326
                                                        (macros-only-env111
                                                          r308)))
                                                  (map (lambda (x327)
                                                         (cons 'macro
                                                               (eval-local-transformer158
                                                                 (chi151
                                                                   x327
                                                                   trans-r326
                                                                   w325
                                                                   mod311)
                                                                 mod311)))
                                                       val317))
                                                r308)
                                              new-w323
                                              s310
                                              mod311))))))
                              tmp314)
                       ((lambda (_329)
                          (syntax-violation
                            #f
                            "bad local syntax definition"
                            (source-wrap144 e307 w309 s310 mod311)))
                        tmp313)))
                   ($sc-dispatch
                     tmp313
                     '(any #(each (any any)) any . each-any))))
                e307)))
           (chi-lambda-clause156
             (lambda (e330 docstring331 c332 r333 w334 mod335 k336)
               ((lambda (tmp337)
                  ((lambda (tmp338)
                     (if (if tmp338
                           (apply (lambda (args339 doc340 e1341 e2342)
                                    (if (string? (syntax->datum doc340))
                                      (not docstring331)
                                      #f))
                                  tmp338)
                           #f)
                       (apply (lambda (args343 doc344 e1345 e2346)
                                (chi-lambda-clause156
                                  e330
                                  doc344
                                  (cons args343 (cons e1345 e2346))
                                  r333
                                  w334
                                  mod335
                                  k336))
                              tmp338)
                       ((lambda (tmp348)
                          (if tmp348
                            (apply (lambda (id349 e1350 e2351)
                                     (let ((ids352 id349))
                                       (if (not (valid-bound-ids?140 ids352))
                                         (syntax-violation
                                           'lambda
                                           "invalid parameter list"
                                           e330)
                                         (let ((labels354
                                                 (gen-labels121 ids352))
                                               (new-vars355
                                                 (map gen-var162 ids352)))
                                           (k336 (map syntax->datum ids352)
                                                 new-vars355
                                                 (if docstring331
                                                   (syntax->datum docstring331)
                                                   #f)
                                                 (chi-body155
                                                   (cons e1350 e2351)
                                                   e330
                                                   (extend-var-env110
                                                     labels354
                                                     new-vars355
                                                     r333)
                                                   (make-binding-wrap132
                                                     ids352
                                                     labels354
                                                     w334)
                                                   mod335))))))
                                   tmp348)
                            ((lambda (tmp357)
                               (if tmp357
                                 (apply (lambda (ids358 e1359 e2360)
                                          (let ((old-ids361
                                                  (lambda-var-list163 ids358)))
                                            (if (not (valid-bound-ids?140
                                                       old-ids361))
                                              (syntax-violation
                                                'lambda
                                                "invalid parameter list"
                                                e330)
                                              (let ((labels362
                                                      (gen-labels121
                                                        old-ids361))
                                                    (new-vars363
                                                      (map gen-var162
                                                           old-ids361)))
                                                (k336 (letrec ((f364 (lambda (ls1365
                                                                              ls2366)
                                                                       (if (null? ls1365)
                                                                         (syntax->datum
                                                                           ls2366)
                                                                         (f364 (cdr ls1365)
                                                                               (cons (syntax->datum
                                                                                       (car ls1365))
                                                                                     ls2366))))))
                                                        (f364 (cdr old-ids361)
                                                              (car old-ids361)))
                                                      (letrec ((f367 (lambda (ls1368
                                                                              ls2369)
                                                                       (if (null? ls1368)
                                                                         ls2369
                                                                         (f367 (cdr ls1368)
                                                                               (cons (car ls1368)
                                                                                     ls2369))))))
                                                        (f367 (cdr new-vars363)
                                                              (car new-vars363)))
                                                      (if docstring331
                                                        (syntax->datum
                                                          docstring331)
                                                        #f)
                                                      (chi-body155
                                                        (cons e1359 e2360)
                                                        e330
                                                        (extend-var-env110
                                                          labels362
                                                          new-vars363
                                                          r333)
                                                        (make-binding-wrap132
                                                          old-ids361
                                                          labels362
                                                          w334)
                                                        mod335))))))
                                        tmp357)
                                 ((lambda (_371)
                                    (syntax-violation
                                      'lambda
                                      "bad lambda"
                                      e330))
                                  tmp337)))
                             ($sc-dispatch
                               tmp337
                               '(any any . each-any)))))
                        ($sc-dispatch
                          tmp337
                          '(each-any any . each-any)))))
                   ($sc-dispatch
                     tmp337
                     '(any any any . each-any))))
                c332)))
           (chi-body155
             (lambda (body372 outer-form373 r374 w375 mod376)
               (let ((r377 (cons (quote ("placeholder" placeholder)) r374)))
                 (let ((ribcage378
                         (make-ribcage122
                           '()
                           '()
                           '())))
                   (let ((w379 (make-wrap117
                                 (wrap-marks118 w375)
                                 (cons ribcage378 (wrap-subst119 w375)))))
                     (letrec ((parse380
                                (lambda (body381
                                         ids382
                                         labels383
                                         var-ids384
                                         vars385
                                         vals386
                                         bindings387)
                                  (if (null? body381)
                                    (syntax-violation
                                      #f
                                      "no expressions in body"
                                      outer-form373)
                                    (let ((e389 (cdar body381))
                                          (er390 (caar body381)))
                                      (call-with-values
                                        (lambda ()
                                          (syntax-type149
                                            e389
                                            er390
                                            '(())
                                            (source-annotation106 er390)
                                            ribcage378
                                            mod376
                                            #f))
                                        (lambda (type391
                                                 value392
                                                 e393
                                                 w394
                                                 s395
                                                 mod396)
                                          (if (memv type391
                                                    '(define-form))
                                            (let ((id397 (wrap143
                                                           value392
                                                           w394
                                                           mod396))
                                                  (label398 (gen-label120)))
                                              (let ((var399
                                                      (gen-var162 id397)))
                                                (begin
                                                  (extend-ribcage!131
                                                    ribcage378
                                                    id397
                                                    label398)
                                                  (parse380
                                                    (cdr body381)
                                                    (cons id397 ids382)
                                                    (cons label398 labels383)
                                                    (cons id397 var-ids384)
                                                    (cons var399 vars385)
                                                    (cons (cons er390
                                                                (wrap143
                                                                  e393
                                                                  w394
                                                                  mod396))
                                                          vals386)
                                                    (cons (cons 'lexical
                                                                var399)
                                                          bindings387)))))
                                            (if (memv type391
                                                      '(define-syntax-form))
                                              (let ((id400 (wrap143
                                                             value392
                                                             w394
                                                             mod396))
                                                    (label401 (gen-label120)))
                                                (begin
                                                  (extend-ribcage!131
                                                    ribcage378
                                                    id400
                                                    label401)
                                                  (parse380
                                                    (cdr body381)
                                                    (cons id400 ids382)
                                                    (cons label401 labels383)
                                                    var-ids384
                                                    vars385
                                                    vals386
                                                    (cons (cons 'macro
                                                                (cons er390
                                                                      (wrap143
                                                                        e393
                                                                        w394
                                                                        mod396)))
                                                          bindings387))))
                                              (if (memv type391
                                                        '(begin-form))
                                                ((lambda (tmp402)
                                                   ((lambda (tmp403)
                                                      (if tmp403
                                                        (apply (lambda (_404
                                                                        e1405)
                                                                 (parse380
                                                                   (letrec ((f406 (lambda (forms407)
                                                                                    (if (null? forms407)
                                                                                      (cdr body381)
                                                                                      (cons (cons er390
                                                                                                  (wrap143
                                                                                                    (car forms407)
                                                                                                    w394
                                                                                                    mod396))
                                                                                            (f406 (cdr forms407)))))))
                                                                     (f406 e1405))
                                                                   ids382
                                                                   labels383
                                                                   var-ids384
                                                                   vars385
                                                                   vals386
                                                                   bindings387))
                                                               tmp403)
                                                        (syntax-violation
                                                          #f
                                                          "source expression failed to match any pattern"
                                                          tmp402)))
                                                    ($sc-dispatch
                                                      tmp402
                                                      '(any . each-any))))
                                                 e393)
                                                (if (memv type391
                                                          '(local-syntax-form))
                                                  (chi-local-syntax157
                                                    value392
                                                    e393
                                                    er390
                                                    w394
                                                    s395
                                                    mod396
                                                    (lambda (forms409
                                                             er410
                                                             w411
                                                             s412
                                                             mod413)
                                                      (parse380
                                                        (letrec ((f414 (lambda (forms415)
                                                                         (if (null? forms415)
                                                                           (cdr body381)
                                                                           (cons (cons er410
                                                                                       (wrap143
                                                                                         (car forms415)
                                                                                         w411
                                                                                         mod413))
                                                                                 (f414 (cdr forms415)))))))
                                                          (f414 forms409))
                                                        ids382
                                                        labels383
                                                        var-ids384
                                                        vars385
                                                        vals386
                                                        bindings387)))
                                                  (if (null? ids382)
                                                    (build-sequence94
                                                      #f
                                                      (map (lambda (x416)
                                                             (chi151
                                                               (cdr x416)
                                                               (car x416)
                                                               '(())
                                                               mod396))
                                                           (cons (cons er390
                                                                       (source-wrap144
                                                                         e393
                                                                         w394
                                                                         s395
                                                                         mod396))
                                                                 (cdr body381))))
                                                    (begin
                                                      (if (not (valid-bound-ids?140
                                                                 ids382))
                                                        (syntax-violation
                                                          #f
                                                          "invalid or duplicate identifier in definition"
                                                          outer-form373))
                                                      (letrec ((loop417
                                                                 (lambda (bs418
                                                                          er-cache419
                                                                          r-cache420)
                                                                   (if (not (null? bs418))
                                                                     (let ((b421 (car bs418)))
                                                                       (if (eq? (car b421)
                                                                                'macro)
                                                                         (let ((er422 (cadr b421)))
                                                                           (let ((r-cache423
                                                                                   (if (eq? er422
                                                                                            er-cache419)
                                                                                     r-cache420
                                                                                     (macros-only-env111
                                                                                       er422))))
                                                                             (begin
                                                                               (set-cdr!
                                                                                 b421
                                                                                 (eval-local-transformer158
                                                                                   (chi151
                                                                                     (cddr b421)
                                                                                     r-cache423
                                                                                     '(())
                                                                                     mod396)
                                                                                   mod396))
                                                                               (loop417
                                                                                 (cdr bs418)
                                                                                 er422
                                                                                 r-cache423))))
                                                                         (loop417
                                                                           (cdr bs418)
                                                                           er-cache419
                                                                           r-cache420)))))))
                                                        (loop417
                                                          bindings387
                                                          #f
                                                          #f))
                                                      (set-cdr!
                                                        r377
                                                        (extend-env109
                                                          labels383
                                                          bindings387
                                                          (cdr r377)))
                                                      (build-letrec97
                                                        #f
                                                        (map syntax->datum
                                                             var-ids384)
                                                        vars385
                                                        (map (lambda (x424)
                                                               (chi151
                                                                 (cdr x424)
                                                                 (car x424)
                                                                 '(())
                                                                 mod396))
                                                             vals386)
                                                        (build-sequence94
                                                          #f
                                                          (map (lambda (x425)
                                                                 (chi151
                                                                   (cdr x425)
                                                                   (car x425)
                                                                   '(())
                                                                   mod396))
                                                               (cons (cons er390
                                                                           (source-wrap144
                                                                             e393
                                                                             w394
                                                                             s395
                                                                             mod396))
                                                                     (cdr body381))))))))))))))))))
                       (parse380
                         (map (lambda (x388)
                                (cons r377 (wrap143 x388 w379 mod376)))
                              body372)
                         '()
                         '()
                         '()
                         '()
                         '()
                         '())))))))
           (chi-macro154
             (lambda (p426 e427 r428 w429 rib430 mod431)
               (letrec ((rebuild-macro-output432
                          (lambda (x433 m434)
                            (if (pair? x433)
                              (cons (rebuild-macro-output432 (car x433) m434)
                                    (rebuild-macro-output432 (cdr x433) m434))
                              (if (syntax-object?99 x433)
                                (let ((w435 (syntax-object-wrap101 x433)))
                                  (let ((ms436 (wrap-marks118 w435))
                                        (s437 (wrap-subst119 w435)))
                                    (if (if (pair? ms436)
                                          (eq? (car ms436) #f)
                                          #f)
                                      (make-syntax-object98
                                        (syntax-object-expression100 x433)
                                        (make-wrap117
                                          (cdr ms436)
                                          (if rib430
                                            (cons rib430 (cdr s437))
                                            (cdr s437)))
                                        (syntax-object-module102 x433))
                                      (make-syntax-object98
                                        (syntax-object-expression100 x433)
                                        (make-wrap117
                                          (cons m434 ms436)
                                          (if rib430
                                            (cons rib430
                                                  (cons (quote shift) s437))
                                            (cons (quote shift) s437)))
                                        (let ((pmod438
                                                (procedure-module p426)))
                                          (if pmod438
                                            (cons 'hygiene
                                                  (module-name pmod438))
                                            '(hygiene guile)))))))
                                (if (vector? x433)
                                  (let ((n439 (vector-length x433)))
                                    (let ((v440 (make-vector n439)))
                                      (letrec ((loop441
                                                 (lambda (i442)
                                                   (if (fx=74 i442 n439)
                                                     (begin (if #f #f) v440)
                                                     (begin
                                                       (vector-set!
                                                         v440
                                                         i442
                                                         (rebuild-macro-output432
                                                           (vector-ref
                                                             x433
                                                             i442)
                                                           m434))
                                                       (loop441
                                                         (fx+72 i442 1)))))))
                                        (loop441 0))))
                                  (if (symbol? x433)
                                    (syntax-violation
                                      #f
                                      "encountered raw symbol in macro output"
                                      (source-wrap144 e427 w429 s mod431)
                                      x433)
                                    x433)))))))
                 (rebuild-macro-output432
                   (p426 (wrap143 e427 (anti-mark130 w429) mod431))
                   (string #\m)))))
           (chi-application153
             (lambda (x443 e444 r445 w446 s447 mod448)
               ((lambda (tmp449)
                  ((lambda (tmp450)
                     (if tmp450
                       (apply (lambda (e0451 e1452)
                                (build-application82
                                  s447
                                  x443
                                  (map (lambda (e453)
                                         (chi151 e453 r445 w446 mod448))
                                       e1452)))
                              tmp450)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         tmp449)))
                   ($sc-dispatch tmp449 (quote (any . each-any)))))
                e444)))
           (chi-expr152
             (lambda (type455 value456 e457 r458 w459 s460 mod461)
               (if (memv type455 (quote (lexical)))
                 (build-lexical-reference84
                   'value
                   s460
                   e457
                   value456)
                 (if (memv type455 (quote (core core-form)))
                   (value456 e457 r458 w459 s460 mod461)
                   (if (memv type455 (quote (module-ref)))
                     (call-with-values
                       (lambda () (value456 e457))
                       (lambda (id462 mod463)
                         (build-global-reference87 s460 id462 mod463)))
                     (if (memv type455 (quote (lexical-call)))
                       (chi-application153
                         (build-lexical-reference84
                           'fun
                           (source-annotation106 (car e457))
                           (car e457)
                           value456)
                         e457
                         r458
                         w459
                         s460
                         mod461)
                       (if (memv type455 (quote (global-call)))
                         (chi-application153
                           (build-global-reference87
                             (source-annotation106 (car e457))
                             (if (syntax-object?99 value456)
                               (syntax-object-expression100 value456)
                               value456)
                             (if (syntax-object?99 value456)
                               (syntax-object-module102 value456)
                               mod461))
                           e457
                           r458
                           w459
                           s460
                           mod461)
                         (if (memv type455 (quote (constant)))
                           (build-data93
                             s460
                             (strip161
                               (source-wrap144 e457 w459 s460 mod461)
                               '(())))
                           (if (memv type455 (quote (global)))
                             (build-global-reference87 s460 value456 mod461)
                             (if (memv type455 (quote (call)))
                               (chi-application153
                                 (chi151 (car e457) r458 w459 mod461)
                                 e457
                                 r458
                                 w459
                                 s460
                                 mod461)
                               (if (memv type455 (quote (begin-form)))
                                 ((lambda (tmp464)
                                    ((lambda (tmp465)
                                       (if tmp465
                                         (apply (lambda (_466 e1467 e2468)
                                                  (chi-sequence145
                                                    (cons e1467 e2468)
                                                    r458
                                                    w459
                                                    s460
                                                    mod461))
                                                tmp465)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           tmp464)))
                                     ($sc-dispatch
                                       tmp464
                                       '(any any . each-any))))
                                  e457)
                                 (if (memv type455 (quote (local-syntax-form)))
                                   (chi-local-syntax157
                                     value456
                                     e457
                                     r458
                                     w459
                                     s460
                                     mod461
                                     chi-sequence145)
                                   (if (memv type455 (quote (eval-when-form)))
                                     ((lambda (tmp470)
                                        ((lambda (tmp471)
                                           (if tmp471
                                             (apply (lambda (_472
                                                             x473
                                                             e1474
                                                             e2475)
                                                      (let ((when-list476
                                                              (chi-when-list148
                                                                e457
                                                                x473
                                                                w459)))
                                                        (if (memq 'eval
                                                                  when-list476)
                                                          (chi-sequence145
                                                            (cons e1474 e2475)
                                                            r458
                                                            w459
                                                            s460
                                                            mod461)
                                                          (chi-void159))))
                                                    tmp471)
                                             (syntax-violation
                                               #f
                                               "source expression failed to match any pattern"
                                               tmp470)))
                                         ($sc-dispatch
                                           tmp470
                                           '(any each-any any . each-any))))
                                      e457)
                                     (if (memv type455
                                               '(define-form
                                                  define-syntax-form))
                                       (syntax-violation
                                         #f
                                         "definition in expression context"
                                         e457
                                         (wrap143 value456 w459 mod461))
                                       (if (memv type455 (quote (syntax)))
                                         (syntax-violation
                                           #f
                                           "reference to pattern variable outside syntax form"
                                           (source-wrap144
                                             e457
                                             w459
                                             s460
                                             mod461))
                                         (if (memv type455
                                                   '(displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "reference to identifier outside its scope"
                                             (source-wrap144
                                               e457
                                               w459
                                               s460
                                               mod461))
                                           (syntax-violation
                                             #f
                                             "unexpected syntax"
                                             (source-wrap144
                                               e457
                                               w459
                                               s460
                                               mod461))))))))))))))))))
           (chi151
             (lambda (e479 r480 w481 mod482)
               (call-with-values
                 (lambda ()
                   (syntax-type149
                     e479
                     r480
                     w481
                     (source-annotation106 e479)
                     #f
                     mod482
                     #f))
                 (lambda (type483 value484 e485 w486 s487 mod488)
                   (chi-expr152
                     type483
                     value484
                     e485
                     r480
                     w486
                     s487
                     mod488)))))
           (chi-top150
             (lambda (e489 r490 w491 m492 esew493 mod494)
               (call-with-values
                 (lambda ()
                   (syntax-type149
                     e489
                     r490
                     w491
                     (source-annotation106 e489)
                     #f
                     mod494
                     #f))
                 (lambda (type502 value503 e504 w505 s506 mod507)
                   (if (memv type502 (quote (begin-form)))
                     ((lambda (tmp508)
                        ((lambda (tmp509)
                           (if tmp509
                             (apply (lambda (_510) (chi-void159)) tmp509)
                             ((lambda (tmp511)
                                (if tmp511
                                  (apply (lambda (_512 e1513 e2514)
                                           (chi-top-sequence146
                                             (cons e1513 e2514)
                                             r490
                                             w505
                                             s506
                                             m492
                                             esew493
                                             mod507))
                                         tmp511)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any pattern"
                                    tmp508)))
                              ($sc-dispatch
                                tmp508
                                '(any any . each-any)))))
                         ($sc-dispatch tmp508 (quote (any)))))
                      e504)
                     (if (memv type502 (quote (local-syntax-form)))
                       (chi-local-syntax157
                         value503
                         e504
                         r490
                         w505
                         s506
                         mod507
                         (lambda (body516 r517 w518 s519 mod520)
                           (chi-top-sequence146
                             body516
                             r517
                             w518
                             s519
                             m492
                             esew493
                             mod520)))
                       (if (memv type502 (quote (eval-when-form)))
                         ((lambda (tmp521)
                            ((lambda (tmp522)
                               (if tmp522
                                 (apply (lambda (_523 x524 e1525 e2526)
                                          (let ((when-list527
                                                  (chi-when-list148
                                                    e504
                                                    x524
                                                    w505))
                                                (body528 (cons e1525 e2526)))
                                            (if (eq? m492 (quote e))
                                              (if (memq 'eval
                                                        when-list527)
                                                (chi-top-sequence146
                                                  body528
                                                  r490
                                                  w505
                                                  s506
                                                  'e
                                                  '(eval)
                                                  mod507)
                                                (chi-void159))
                                              (if (memq 'load
                                                        when-list527)
                                                (if (let ((t531 (memq 'compile
                                                                      when-list527)))
                                                      (if t531
                                                        t531
                                                        (if (eq? m492
                                                                 'c&e)
                                                          (memq 'eval
                                                                when-list527)
                                                          #f)))
                                                  (chi-top-sequence146
                                                    body528
                                                    r490
                                                    w505
                                                    s506
                                                    'c&e
                                                    '(compile load)
                                                    mod507)
                                                  (if (memq m492
                                                            '(c c&e))
                                                    (chi-top-sequence146
                                                      body528
                                                      r490
                                                      w505
                                                      s506
                                                      'c
                                                      '(load)
                                                      mod507)
                                                    (chi-void159)))
                                                (if (let ((t532 (memq 'compile
                                                                      when-list527)))
                                                      (if t532
                                                        t532
                                                        (if (eq? m492
                                                                 'c&e)
                                                          (memq 'eval
                                                                when-list527)
                                                          #f)))
                                                  (begin
                                                    (top-level-eval-hook76
                                                      (chi-top-sequence146
                                                        body528
                                                        r490
                                                        w505
                                                        s506
                                                        'e
                                                        '(eval)
                                                        mod507)
                                                      mod507)
                                                    (chi-void159))
                                                  (chi-void159))))))
                                        tmp522)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   tmp521)))
                             ($sc-dispatch
                               tmp521
                               '(any each-any any . each-any))))
                          e504)
                         (if (memv type502 (quote (define-syntax-form)))
                           (let ((n533 (id-var-name137 value503 w505))
                                 (r534 (macros-only-env111 r490)))
                             (if (memv m492 (quote (c)))
                               (if (memq (quote compile) esew493)
                                 (let ((e535 (chi-install-global147
                                               n533
                                               (chi151
                                                 e504
                                                 r534
                                                 w505
                                                 mod507))))
                                   (begin
                                     (top-level-eval-hook76 e535 mod507)
                                     (if (memq (quote load) esew493)
                                       e535
                                       (chi-void159))))
                                 (if (memq (quote load) esew493)
                                   (chi-install-global147
                                     n533
                                     (chi151 e504 r534 w505 mod507))
                                   (chi-void159)))
                               (if (memv m492 (quote (c&e)))
                                 (let ((e536 (chi-install-global147
                                               n533
                                               (chi151
                                                 e504
                                                 r534
                                                 w505
                                                 mod507))))
                                   (begin
                                     (top-level-eval-hook76 e536 mod507)
                                     e536))
                                 (begin
                                   (if (memq (quote eval) esew493)
                                     (top-level-eval-hook76
                                       (chi-install-global147
                                         n533
                                         (chi151 e504 r534 w505 mod507))
                                       mod507))
                                   (chi-void159)))))
                           (if (memv type502 (quote (define-form)))
                             (let ((n537 (id-var-name137 value503 w505)))
                               (let ((type538
                                       (binding-type107
                                         (lookup112 n537 r490 mod507))))
                                 (if (memv type538
                                           '(global core macro module-ref))
                                   (begin
                                     (if (if (not (module-local-variable
                                                    (current-module)
                                                    n537))
                                           (current-module)
                                           #f)
                                       (module-define!
                                         (current-module)
                                         n537
                                         #f))
                                     (let ((x539 (build-global-definition90
                                                   s506
                                                   n537
                                                   (chi151
                                                     e504
                                                     r490
                                                     w505
                                                     mod507))))
                                       (begin
                                         (if (eq? m492 (quote c&e))
                                           (top-level-eval-hook76 x539 mod507))
                                         x539)))
                                   (if (memv type538
                                             '(displaced-lexical))
                                     (syntax-violation
                                       #f
                                       "identifier out of context"
                                       e504
                                       (wrap143 value503 w505 mod507))
                                     (syntax-violation
                                       #f
                                       "cannot define keyword at top level"
                                       e504
                                       (wrap143 value503 w505 mod507))))))
                             (let ((x540 (chi-expr152
                                           type502
                                           value503
                                           e504
                                           r490
                                           w505
                                           s506
                                           mod507)))
                               (begin
                                 (if (eq? m492 (quote c&e))
                                   (top-level-eval-hook76 x540 mod507))
                                 x540)))))))))))
           (syntax-type149
             (lambda (e541 r542 w543 s544 rib545 mod546 for-car?547)
               (if (symbol? e541)
                 (let ((n548 (id-var-name137 e541 w543)))
                   (let ((b549 (lookup112 n548 r542 mod546)))
                     (let ((type550 (binding-type107 b549)))
                       (if (memv type550 (quote (lexical)))
                         (values
                           type550
                           (binding-value108 b549)
                           e541
                           w543
                           s544
                           mod546)
                         (if (memv type550 (quote (global)))
                           (values type550 n548 e541 w543 s544 mod546)
                           (if (memv type550 (quote (macro)))
                             (if for-car?547
                               (values
                                 type550
                                 (binding-value108 b549)
                                 e541
                                 w543
                                 s544
                                 mod546)
                               (syntax-type149
                                 (chi-macro154
                                   (binding-value108 b549)
                                   e541
                                   r542
                                   w543
                                   rib545
                                   mod546)
                                 r542
                                 '(())
                                 s544
                                 rib545
                                 mod546
                                 #f))
                             (values
                               type550
                               (binding-value108 b549)
                               e541
                               w543
                               s544
                               mod546)))))))
                 (if (pair? e541)
                   (let ((first551 (car e541)))
                     (call-with-values
                       (lambda ()
                         (syntax-type149
                           first551
                           r542
                           w543
                           s544
                           rib545
                           mod546
                           #t))
                       (lambda (ftype552 fval553 fe554 fw555 fs556 fmod557)
                         (if (memv ftype552 (quote (lexical)))
                           (values
                             'lexical-call
                             fval553
                             e541
                             w543
                             s544
                             mod546)
                           (if (memv ftype552 (quote (global)))
                             (values
                               'global-call
                               (make-syntax-object98 fval553 w543 fmod557)
                               e541
                               w543
                               s544
                               mod546)
                             (if (memv ftype552 (quote (macro)))
                               (syntax-type149
                                 (chi-macro154
                                   fval553
                                   e541
                                   r542
                                   w543
                                   rib545
                                   mod546)
                                 r542
                                 '(())
                                 s544
                                 rib545
                                 mod546
                                 for-car?547)
                               (if (memv ftype552 (quote (module-ref)))
                                 (call-with-values
                                   (lambda () (fval553 e541))
                                   (lambda (sym558 mod559)
                                     (syntax-type149
                                       sym558
                                       r542
                                       w543
                                       s544
                                       rib545
                                       mod559
                                       for-car?547)))
                                 (if (memv ftype552 (quote (core)))
                                   (values
                                     'core-form
                                     fval553
                                     e541
                                     w543
                                     s544
                                     mod546)
                                   (if (memv ftype552 (quote (local-syntax)))
                                     (values
                                       'local-syntax-form
                                       fval553
                                       e541
                                       w543
                                       s544
                                       mod546)
                                     (if (memv ftype552 (quote (begin)))
                                       (values
                                         'begin-form
                                         #f
                                         e541
                                         w543
                                         s544
                                         mod546)
                                       (if (memv ftype552 (quote (eval-when)))
                                         (values
                                           'eval-when-form
                                           #f
                                           e541
                                           w543
                                           s544
                                           mod546)
                                         (if (memv ftype552 (quote (define)))
                                           ((lambda (tmp560)
                                              ((lambda (tmp561)
                                                 (if (if tmp561
                                                       (apply (lambda (_562
                                                                       name563
                                                                       val564)
                                                                (id?115
                                                                  name563))
                                                              tmp561)
                                                       #f)
                                                   (apply (lambda (_565
                                                                   name566
                                                                   val567)
                                                            (values
                                                              'define-form
                                                              name566
                                                              val567
                                                              w543
                                                              s544
                                                              mod546))
                                                          tmp561)
                                                   ((lambda (tmp568)
                                                      (if (if tmp568
                                                            (apply (lambda (_569
                                                                            name570
                                                                            args571
                                                                            e1572
                                                                            e2573)
                                                                     (if (id?115
                                                                           name570)
                                                                       (valid-bound-ids?140
                                                                         (lambda-var-list163
                                                                           args571))
                                                                       #f))
                                                                   tmp568)
                                                            #f)
                                                        (apply (lambda (_574
                                                                        name575
                                                                        args576
                                                                        e1577
                                                                        e2578)
                                                                 (values
                                                                   'define-form
                                                                   (wrap143
                                                                     name575
                                                                     w543
                                                                     mod546)
                                                                   (decorate-source80
                                                                     (cons '#(syntax-object
                                                                              lambda
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(_
                                                                                   name
                                                                                   args
                                                                                   e1
                                                                                   e2)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(ftype
                                                                                   fval
                                                                                   fe
                                                                                   fw
                                                                                   fs
                                                                                   fmod)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(first)
                                                                                 #((top))
                                                                                 #("i"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(e
                                                                                   r
                                                                                   w
                                                                                   s
                                                                                   rib
                                                                                   mod
                                                                                   for-car?)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"))
                                                                               #(ribcage
                                                                                 (lambda-var-list
                                                                                   gen-var
                                                                                   strip
                                                                                   ellipsis?
                                                                                   chi-void
                                                                                   eval-local-transformer
                                                                                   chi-local-syntax
                                                                                   chi-lambda-clause
                                                                                   chi-body
                                                                                   chi-macro
                                                                                   chi-application
                                                                                   chi-expr
                                                                                   chi
                                                                                   chi-top
                                                                                   syntax-type
                                                                                   chi-when-list
                                                                                   chi-install-global
                                                                                   chi-top-sequence
                                                                                   chi-sequence
                                                                                   source-wrap
                                                                                   wrap
                                                                                   bound-id-member?
                                                                                   distinct-bound-ids?
                                                                                   valid-bound-ids?
                                                                                   bound-id=?
                                                                                   free-id=?
                                                                                   id-var-name
                                                                                   same-marks?
                                                                                   join-marks
                                                                                   join-wraps
                                                                                   smart-append
                                                                                   make-binding-wrap
                                                                                   extend-ribcage!
                                                                                   make-empty-ribcage
                                                                                   new-mark
                                                                                   anti-mark
                                                                                   the-anti-mark
                                                                                   top-marked?
                                                                                   top-wrap
                                                                                   empty-wrap
                                                                                   set-ribcage-labels!
                                                                                   set-ribcage-marks!
                                                                                   set-ribcage-symnames!
                                                                                   ribcage-labels
                                                                                   ribcage-marks
                                                                                   ribcage-symnames
                                                                                   ribcage?
                                                                                   make-ribcage
                                                                                   gen-labels
                                                                                   gen-label
                                                                                   make-rename
                                                                                   rename-marks
                                                                                   rename-new
                                                                                   rename-old
                                                                                   subst-rename?
                                                                                   wrap-subst
                                                                                   wrap-marks
                                                                                   make-wrap
                                                                                   id-sym-name&marks
                                                                                   id-sym-name
                                                                                   id?
                                                                                   nonsymbol-id?
                                                                                   global-extend
                                                                                   lookup
                                                                                   macros-only-env
                                                                                   extend-var-env
                                                                                   extend-env
                                                                                   null-env
                                                                                   binding-value
                                                                                   binding-type
                                                                                   make-binding
                                                                                   arg-check
                                                                                   source-annotation
                                                                                   no-source
                                                                                   set-syntax-object-module!
                                                                                   set-syntax-object-wrap!
                                                                                   set-syntax-object-expression!
                                                                                   syntax-object-module
                                                                                   syntax-object-wrap
                                                                                   syntax-object-expression
                                                                                   syntax-object?
                                                                                   make-syntax-object
                                                                                   build-lexical-var
                                                                                   build-letrec
                                                                                   build-named-let
                                                                                   build-let
                                                                                   build-sequence
                                                                                   build-data
                                                                                   build-primref
                                                                                   build-lambda
                                                                                   build-global-definition
                                                                                   maybe-name-value!
                                                                                   build-global-assignment
                                                                                   build-global-reference
                                                                                   analyze-variable
                                                                                   build-lexical-assignment
                                                                                   build-lexical-reference
                                                                                   build-conditional
                                                                                   build-application
                                                                                   build-void
                                                                                   decorate-source
                                                                                   get-global-definition-hook
                                                                                   put-global-definition-hook
                                                                                   gensym-hook
                                                                                   local-eval-hook
                                                                                   top-level-eval-hook
                                                                                   fx<
                                                                                   fx=
                                                                                   fx-
                                                                                   fx+
                                                                                   *mode*
                                                                                   noexpand)
                                                                                 ((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                 ("i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"))
                                                                               #(ribcage
                                                                                 (define-structure
                                                                                   and-map*)
                                                                                 ((top)
                                                                                  (top))
                                                                                 ("i"
                                                                                  "i")))
                                                                              (hygiene
                                                                                guile))
                                                                           (wrap143
                                                                             (cons args576
                                                                                   (cons e1577
                                                                                         e2578))
                                                                             w543
                                                                             mod546))
                                                                     s544)
                                                                   '(())
                                                                   s544
                                                                   mod546))
                                                               tmp568)
                                                        ((lambda (tmp580)
                                                           (if (if tmp580
                                                                 (apply (lambda (_581
                                                                                 name582)
                                                                          (id?115
                                                                            name582))
                                                                        tmp580)
                                                                 #f)
                                                             (apply (lambda (_583
                                                                             name584)
                                                                      (values
                                                                        'define-form
                                                                        (wrap143
                                                                          name584
                                                                          w543
                                                                          mod546)
                                                                        '(#(syntax-object
                                                                            if
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               (lambda-var-list
                                                                                 gen-var
                                                                                 strip
                                                                                 ellipsis?
                                                                                 chi-void
                                                                                 eval-local-transformer
                                                                                 chi-local-syntax
                                                                                 chi-lambda-clause
                                                                                 chi-body
                                                                                 chi-macro
                                                                                 chi-application
                                                                                 chi-expr
                                                                                 chi
                                                                                 chi-top
                                                                                 syntax-type
                                                                                 chi-when-list
                                                                                 chi-install-global
                                                                                 chi-top-sequence
                                                                                 chi-sequence
                                                                                 source-wrap
                                                                                 wrap
                                                                                 bound-id-member?
                                                                                 distinct-bound-ids?
                                                                                 valid-bound-ids?
                                                                                 bound-id=?
                                                                                 free-id=?
                                                                                 id-var-name
                                                                                 same-marks?
                                                                                 join-marks
                                                                                 join-wraps
                                                                                 smart-append
                                                                                 make-binding-wrap
                                                                                 extend-ribcage!
                                                                                 make-empty-ribcage
                                                                                 new-mark
                                                                                 anti-mark
                                                                                 the-anti-mark
                                                                                 top-marked?
                                                                                 top-wrap
                                                                                 empty-wrap
                                                                                 set-ribcage-labels!
                                                                                 set-ribcage-marks!
                                                                                 set-ribcage-symnames!
                                                                                 ribcage-labels
                                                                                 ribcage-marks
                                                                                 ribcage-symnames
                                                                                 ribcage?
                                                                                 make-ribcage
                                                                                 gen-labels
                                                                                 gen-label
                                                                                 make-rename
                                                                                 rename-marks
                                                                                 rename-new
                                                                                 rename-old
                                                                                 subst-rename?
                                                                                 wrap-subst
                                                                                 wrap-marks
                                                                                 make-wrap
                                                                                 id-sym-name&marks
                                                                                 id-sym-name
                                                                                 id?
                                                                                 nonsymbol-id?
                                                                                 global-extend
                                                                                 lookup
                                                                                 macros-only-env
                                                                                 extend-var-env
                                                                                 extend-env
                                                                                 null-env
                                                                                 binding-value
                                                                                 binding-type
                                                                                 make-binding
                                                                                 arg-check
                                                                                 source-annotation
                                                                                 no-source
                                                                                 set-syntax-object-module!
                                                                                 set-syntax-object-wrap!
                                                                                 set-syntax-object-expression!
                                                                                 syntax-object-module
                                                                                 syntax-object-wrap
                                                                                 syntax-object-expression
                                                                                 syntax-object?
                                                                                 make-syntax-object
                                                                                 build-lexical-var
                                                                                 build-letrec
                                                                                 build-named-let
                                                                                 build-let
                                                                                 build-sequence
                                                                                 build-data
                                                                                 build-primref
                                                                                 build-lambda
                                                                                 build-global-definition
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 decorate-source
                                                                                 get-global-definition-hook
                                                                                 put-global-definition-hook
                                                                                 gensym-hook
                                                                                 local-eval-hook
                                                                                 top-level-eval-hook
                                                                                 fx<
                                                                                 fx=
                                                                                 fx-
                                                                                 fx+
                                                                                 *mode*
                                                                                 noexpand)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top))
                                                                               ("i"
                                                                                "i")))
                                                                            (hygiene
                                                                              guile))
                                                                          #(syntax-object
                                                                            #f
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               (lambda-var-list
                                                                                 gen-var
                                                                                 strip
                                                                                 ellipsis?
                                                                                 chi-void
                                                                                 eval-local-transformer
                                                                                 chi-local-syntax
                                                                                 chi-lambda-clause
                                                                                 chi-body
                                                                                 chi-macro
                                                                                 chi-application
                                                                                 chi-expr
                                                                                 chi
                                                                                 chi-top
                                                                                 syntax-type
                                                                                 chi-when-list
                                                                                 chi-install-global
                                                                                 chi-top-sequence
                                                                                 chi-sequence
                                                                                 source-wrap
                                                                                 wrap
                                                                                 bound-id-member?
                                                                                 distinct-bound-ids?
                                                                                 valid-bound-ids?
                                                                                 bound-id=?
                                                                                 free-id=?
                                                                                 id-var-name
                                                                                 same-marks?
                                                                                 join-marks
                                                                                 join-wraps
                                                                                 smart-append
                                                                                 make-binding-wrap
                                                                                 extend-ribcage!
                                                                                 make-empty-ribcage
                                                                                 new-mark
                                                                                 anti-mark
                                                                                 the-anti-mark
                                                                                 top-marked?
                                                                                 top-wrap
                                                                                 empty-wrap
                                                                                 set-ribcage-labels!
                                                                                 set-ribcage-marks!
                                                                                 set-ribcage-symnames!
                                                                                 ribcage-labels
                                                                                 ribcage-marks
                                                                                 ribcage-symnames
                                                                                 ribcage?
                                                                                 make-ribcage
                                                                                 gen-labels
                                                                                 gen-label
                                                                                 make-rename
                                                                                 rename-marks
                                                                                 rename-new
                                                                                 rename-old
                                                                                 subst-rename?
                                                                                 wrap-subst
                                                                                 wrap-marks
                                                                                 make-wrap
                                                                                 id-sym-name&marks
                                                                                 id-sym-name
                                                                                 id?
                                                                                 nonsymbol-id?
                                                                                 global-extend
                                                                                 lookup
                                                                                 macros-only-env
                                                                                 extend-var-env
                                                                                 extend-env
                                                                                 null-env
                                                                                 binding-value
                                                                                 binding-type
                                                                                 make-binding
                                                                                 arg-check
                                                                                 source-annotation
                                                                                 no-source
                                                                                 set-syntax-object-module!
                                                                                 set-syntax-object-wrap!
                                                                                 set-syntax-object-expression!
                                                                                 syntax-object-module
                                                                                 syntax-object-wrap
                                                                                 syntax-object-expression
                                                                                 syntax-object?
                                                                                 make-syntax-object
                                                                                 build-lexical-var
                                                                                 build-letrec
                                                                                 build-named-let
                                                                                 build-let
                                                                                 build-sequence
                                                                                 build-data
                                                                                 build-primref
                                                                                 build-lambda
                                                                                 build-global-definition
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 decorate-source
                                                                                 get-global-definition-hook
                                                                                 put-global-definition-hook
                                                                                 gensym-hook
                                                                                 local-eval-hook
                                                                                 top-level-eval-hook
                                                                                 fx<
                                                                                 fx=
                                                                                 fx-
                                                                                 fx+
                                                                                 *mode*
                                                                                 noexpand)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top))
                                                                               ("i"
                                                                                "i")))
                                                                            (hygiene
                                                                              guile))
                                                                          #(syntax-object
                                                                            #f
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               (lambda-var-list
                                                                                 gen-var
                                                                                 strip
                                                                                 ellipsis?
                                                                                 chi-void
                                                                                 eval-local-transformer
                                                                                 chi-local-syntax
                                                                                 chi-lambda-clause
                                                                                 chi-body
                                                                                 chi-macro
                                                                                 chi-application
                                                                                 chi-expr
                                                                                 chi
                                                                                 chi-top
                                                                                 syntax-type
                                                                                 chi-when-list
                                                                                 chi-install-global
                                                                                 chi-top-sequence
                                                                                 chi-sequence
                                                                                 source-wrap
                                                                                 wrap
                                                                                 bound-id-member?
                                                                                 distinct-bound-ids?
                                                                                 valid-bound-ids?
                                                                                 bound-id=?
                                                                                 free-id=?
                                                                                 id-var-name
                                                                                 same-marks?
                                                                                 join-marks
                                                                                 join-wraps
                                                                                 smart-append
                                                                                 make-binding-wrap
                                                                                 extend-ribcage!
                                                                                 make-empty-ribcage
                                                                                 new-mark
                                                                                 anti-mark
                                                                                 the-anti-mark
                                                                                 top-marked?
                                                                                 top-wrap
                                                                                 empty-wrap
                                                                                 set-ribcage-labels!
                                                                                 set-ribcage-marks!
                                                                                 set-ribcage-symnames!
                                                                                 ribcage-labels
                                                                                 ribcage-marks
                                                                                 ribcage-symnames
                                                                                 ribcage?
                                                                                 make-ribcage
                                                                                 gen-labels
                                                                                 gen-label
                                                                                 make-rename
                                                                                 rename-marks
                                                                                 rename-new
                                                                                 rename-old
                                                                                 subst-rename?
                                                                                 wrap-subst
                                                                                 wrap-marks
                                                                                 make-wrap
                                                                                 id-sym-name&marks
                                                                                 id-sym-name
                                                                                 id?
                                                                                 nonsymbol-id?
                                                                                 global-extend
                                                                                 lookup
                                                                                 macros-only-env
                                                                                 extend-var-env
                                                                                 extend-env
                                                                                 null-env
                                                                                 binding-value
                                                                                 binding-type
                                                                                 make-binding
                                                                                 arg-check
                                                                                 source-annotation
                                                                                 no-source
                                                                                 set-syntax-object-module!
                                                                                 set-syntax-object-wrap!
                                                                                 set-syntax-object-expression!
                                                                                 syntax-object-module
                                                                                 syntax-object-wrap
                                                                                 syntax-object-expression
                                                                                 syntax-object?
                                                                                 make-syntax-object
                                                                                 build-lexical-var
                                                                                 build-letrec
                                                                                 build-named-let
                                                                                 build-let
                                                                                 build-sequence
                                                                                 build-data
                                                                                 build-primref
                                                                                 build-lambda
                                                                                 build-global-definition
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 decorate-source
                                                                                 get-global-definition-hook
                                                                                 put-global-definition-hook
                                                                                 gensym-hook
                                                                                 local-eval-hook
                                                                                 top-level-eval-hook
                                                                                 fx<
                                                                                 fx=
                                                                                 fx-
                                                                                 fx+
                                                                                 *mode*
                                                                                 noexpand)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"
                                                                                "i"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top))
                                                                               ("i"
                                                                                "i")))
                                                                            (hygiene
                                                                              guile)))
                                                                        '(())
                                                                        s544
                                                                        mod546))
                                                                    tmp580)
                                                             (syntax-violation
                                                               #f
                                                               "source expression failed to match any pattern"
                                                               tmp560)))
                                                         ($sc-dispatch
                                                           tmp560
                                                           '(any any)))))
                                                    ($sc-dispatch
                                                      tmp560
                                                      '(any (any . any)
                                                            any
                                                            .
                                                            each-any)))))
                                               ($sc-dispatch
                                                 tmp560
                                                 '(any any any))))
                                            e541)
                                           (if (memv ftype552
                                                     '(define-syntax))
                                             ((lambda (tmp585)
                                                ((lambda (tmp586)
                                                   (if (if tmp586
                                                         (apply (lambda (_587
                                                                         name588
                                                                         val589)
                                                                  (id?115
                                                                    name588))
                                                                tmp586)
                                                         #f)
                                                     (apply (lambda (_590
                                                                     name591
                                                                     val592)
                                                              (values
                                                                'define-syntax-form
                                                                name591
                                                                val592
                                                                w543
                                                                s544
                                                                mod546))
                                                            tmp586)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       tmp585)))
                                                 ($sc-dispatch
                                                   tmp585
                                                   '(any any any))))
                                              e541)
                                             (values
                                               'call
                                               #f
                                               e541
                                               w543
                                               s544
                                               mod546))))))))))))))
                   (if (syntax-object?99 e541)
                     (syntax-type149
                       (syntax-object-expression100 e541)
                       r542
                       (join-wraps134 w543 (syntax-object-wrap101 e541))
                       s544
                       rib545
                       (let ((t593 (syntax-object-module102 e541)))
                         (if t593 t593 mod546))
                       for-car?547)
                     (if (self-evaluating? e541)
                       (values
                         'constant
                         #f
                         e541
                         w543
                         s544
                         mod546)
                       (values (quote other) #f e541 w543 s544 mod546)))))))
           (chi-when-list148
             (lambda (e594 when-list595 w596)
               (letrec ((f597 (lambda (when-list598 situations599)
                                (if (null? when-list598)
                                  situations599
                                  (f597 (cdr when-list598)
                                        (cons (let ((x600 (car when-list598)))
                                                (if (free-id=?138
                                                      x600
                                                      '#(syntax-object
                                                         compile
                                                         ((top)
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(f
                                                              when-list
                                                              situations)
                                                            #((top)
                                                              (top)
                                                              (top))
                                                            #("i" "i" "i"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(e when-list w)
                                                            #((top)
                                                              (top)
                                                              (top))
                                                            #("i" "i" "i"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              ellipsis?
                                                              chi-void
                                                              eval-local-transformer
                                                              chi-local-syntax
                                                              chi-lambda-clause
                                                              chi-body
                                                              chi-macro
                                                              chi-application
                                                              chi-expr
                                                              chi
                                                              chi-top
                                                              syntax-type
                                                              chi-when-list
                                                              chi-install-global
                                                              chi-top-sequence
                                                              chi-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-lambda
                                                              build-global-definition
                                                              maybe-name-value!
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-conditional
                                                              build-application
                                                              build-void
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              gensym-hook
                                                              local-eval-hook
                                                              top-level-eval-hook
                                                              fx<
                                                              fx=
                                                              fx-
                                                              fx+
                                                              *mode*
                                                              noexpand)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"))
                                                          #(ribcage
                                                            (define-structure
                                                              and-map*)
                                                            ((top) (top))
                                                            ("i" "i")))
                                                         (hygiene guile)))
                                                  'compile
                                                  (if (free-id=?138
                                                        x600
                                                        '#(syntax-object
                                                           load
                                                           ((top)
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x)
                                                              #((top))
                                                              #("i"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(f
                                                                when-list
                                                                situations)
                                                              #((top)
                                                                (top)
                                                                (top))
                                                              #("i" "i" "i"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(e when-list w)
                                                              #((top)
                                                                (top)
                                                                (top))
                                                              #("i" "i" "i"))
                                                            #(ribcage
                                                              (lambda-var-list
                                                                gen-var
                                                                strip
                                                                ellipsis?
                                                                chi-void
                                                                eval-local-transformer
                                                                chi-local-syntax
                                                                chi-lambda-clause
                                                                chi-body
                                                                chi-macro
                                                                chi-application
                                                                chi-expr
                                                                chi
                                                                chi-top
                                                                syntax-type
                                                                chi-when-list
                                                                chi-install-global
                                                                chi-top-sequence
                                                                chi-sequence
                                                                source-wrap
                                                                wrap
                                                                bound-id-member?
                                                                distinct-bound-ids?
                                                                valid-bound-ids?
                                                                bound-id=?
                                                                free-id=?
                                                                id-var-name
                                                                same-marks?
                                                                join-marks
                                                                join-wraps
                                                                smart-append
                                                                make-binding-wrap
                                                                extend-ribcage!
                                                                make-empty-ribcage
                                                                new-mark
                                                                anti-mark
                                                                the-anti-mark
                                                                top-marked?
                                                                top-wrap
                                                                empty-wrap
                                                                set-ribcage-labels!
                                                                set-ribcage-marks!
                                                                set-ribcage-symnames!
                                                                ribcage-labels
                                                                ribcage-marks
                                                                ribcage-symnames
                                                                ribcage?
                                                                make-ribcage
                                                                gen-labels
                                                                gen-label
                                                                make-rename
                                                                rename-marks
                                                                rename-new
                                                                rename-old
                                                                subst-rename?
                                                                wrap-subst
                                                                wrap-marks
                                                                make-wrap
                                                                id-sym-name&marks
                                                                id-sym-name
                                                                id?
                                                                nonsymbol-id?
                                                                global-extend
                                                                lookup
                                                                macros-only-env
                                                                extend-var-env
                                                                extend-env
                                                                null-env
                                                                binding-value
                                                                binding-type
                                                                make-binding
                                                                arg-check
                                                                source-annotation
                                                                no-source
                                                                set-syntax-object-module!
                                                                set-syntax-object-wrap!
                                                                set-syntax-object-expression!
                                                                syntax-object-module
                                                                syntax-object-wrap
                                                                syntax-object-expression
                                                                syntax-object?
                                                                make-syntax-object
                                                                build-lexical-var
                                                                build-letrec
                                                                build-named-let
                                                                build-let
                                                                build-sequence
                                                                build-data
                                                                build-primref
                                                                build-lambda
                                                                build-global-definition
                                                                maybe-name-value!
                                                                build-global-assignment
                                                                build-global-reference
                                                                analyze-variable
                                                                build-lexical-assignment
                                                                build-lexical-reference
                                                                build-conditional
                                                                build-application
                                                                build-void
                                                                decorate-source
                                                                get-global-definition-hook
                                                                put-global-definition-hook
                                                                gensym-hook
                                                                local-eval-hook
                                                                top-level-eval-hook
                                                                fx<
                                                                fx=
                                                                fx-
                                                                fx+
                                                                *mode*
                                                                noexpand)
                                                              ((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                              ("i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"
                                                               "i"))
                                                            #(ribcage
                                                              (define-structure
                                                                and-map*)
                                                              ((top) (top))
                                                              ("i" "i")))
                                                           (hygiene guile)))
                                                    'load
                                                    (if (free-id=?138
                                                          x600
                                                          '#(syntax-object
                                                             eval
                                                             ((top)
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
                                                                #("i"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(f
                                                                  when-list
                                                                  situations)
                                                                #((top)
                                                                  (top)
                                                                  (top))
                                                                #("i" "i" "i"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(e
                                                                  when-list
                                                                  w)
                                                                #((top)
                                                                  (top)
                                                                  (top))
                                                                #("i" "i" "i"))
                                                              #(ribcage
                                                                (lambda-var-list
                                                                  gen-var
                                                                  strip
                                                                  ellipsis?
                                                                  chi-void
                                                                  eval-local-transformer
                                                                  chi-local-syntax
                                                                  chi-lambda-clause
                                                                  chi-body
                                                                  chi-macro
                                                                  chi-application
                                                                  chi-expr
                                                                  chi
                                                                  chi-top
                                                                  syntax-type
                                                                  chi-when-list
                                                                  chi-install-global
                                                                  chi-top-sequence
                                                                  chi-sequence
                                                                  source-wrap
                                                                  wrap
                                                                  bound-id-member?
                                                                  distinct-bound-ids?
                                                                  valid-bound-ids?
                                                                  bound-id=?
                                                                  free-id=?
                                                                  id-var-name
                                                                  same-marks?
                                                                  join-marks
                                                                  join-wraps
                                                                  smart-append
                                                                  make-binding-wrap
                                                                  extend-ribcage!
                                                                  make-empty-ribcage
                                                                  new-mark
                                                                  anti-mark
                                                                  the-anti-mark
                                                                  top-marked?
                                                                  top-wrap
                                                                  empty-wrap
                                                                  set-ribcage-labels!
                                                                  set-ribcage-marks!
                                                                  set-ribcage-symnames!
                                                                  ribcage-labels
                                                                  ribcage-marks
                                                                  ribcage-symnames
                                                                  ribcage?
                                                                  make-ribcage
                                                                  gen-labels
                                                                  gen-label
                                                                  make-rename
                                                                  rename-marks
                                                                  rename-new
                                                                  rename-old
                                                                  subst-rename?
                                                                  wrap-subst
                                                                  wrap-marks
                                                                  make-wrap
                                                                  id-sym-name&marks
                                                                  id-sym-name
                                                                  id?
                                                                  nonsymbol-id?
                                                                  global-extend
                                                                  lookup
                                                                  macros-only-env
                                                                  extend-var-env
                                                                  extend-env
                                                                  null-env
                                                                  binding-value
                                                                  binding-type
                                                                  make-binding
                                                                  arg-check
                                                                  source-annotation
                                                                  no-source
                                                                  set-syntax-object-module!
                                                                  set-syntax-object-wrap!
                                                                  set-syntax-object-expression!
                                                                  syntax-object-module
                                                                  syntax-object-wrap
                                                                  syntax-object-expression
                                                                  syntax-object?
                                                                  make-syntax-object
                                                                  build-lexical-var
                                                                  build-letrec
                                                                  build-named-let
                                                                  build-let
                                                                  build-sequence
                                                                  build-data
                                                                  build-primref
                                                                  build-lambda
                                                                  build-global-definition
                                                                  maybe-name-value!
                                                                  build-global-assignment
                                                                  build-global-reference
                                                                  analyze-variable
                                                                  build-lexical-assignment
                                                                  build-lexical-reference
                                                                  build-conditional
                                                                  build-application
                                                                  build-void
                                                                  decorate-source
                                                                  get-global-definition-hook
                                                                  put-global-definition-hook
                                                                  gensym-hook
                                                                  local-eval-hook
                                                                  top-level-eval-hook
                                                                  fx<
                                                                  fx=
                                                                  fx-
                                                                  fx+
                                                                  *mode*
                                                                  noexpand)
                                                                ((top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                                ("i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"
                                                                 "i"))
                                                              #(ribcage
                                                                (define-structure
                                                                  and-map*)
                                                                ((top) (top))
                                                                ("i" "i")))
                                                             (hygiene guile)))
                                                      'eval
                                                      (syntax-violation
                                                        'eval-when
                                                        "invalid situation"
                                                        e594
                                                        (wrap143
                                                          x600
                                                          w596
                                                          #f))))))
                                              situations599))))))
                 (f597 when-list595 (quote ())))))
           (chi-install-global147
             (lambda (name601 e602)
               (build-global-definition90
                 #f
                 name601
                 (if (let ((v603 (module-variable (current-module) name601)))
                       (if v603
                         (if (variable-bound? v603)
                           (if (macro? (variable-ref v603))
                             (not (eq? (macro-type (variable-ref v603))
                                       'syncase-macro))
                             #f)
                           #f)
                         #f))
                   (build-application82
                     #f
                     (build-primref92
                       #f
                       'make-extended-syncase-macro)
                     (list (build-application82
                             #f
                             (build-primref92 #f (quote module-ref))
                             (list (build-application82
                                     #f
                                     (build-primref92
                                       #f
                                       'current-module)
                                     '())
                                   (build-data93 #f name601)))
                           (build-data93 #f (quote macro))
                           e602))
                   (build-application82
                     #f
                     (build-primref92 #f (quote make-syncase-macro))
                     (list (build-data93 #f (quote macro)) e602))))))
           (chi-top-sequence146
             (lambda (body604 r605 w606 s607 m608 esew609 mod610)
               (build-sequence94
                 s607
                 (letrec ((dobody611
                            (lambda (body612 r613 w614 m615 esew616 mod617)
                              (if (null? body612)
                                '()
                                (let ((first618
                                        (chi-top150
                                          (car body612)
                                          r613
                                          w614
                                          m615
                                          esew616
                                          mod617)))
                                  (cons first618
                                        (dobody611
                                          (cdr body612)
                                          r613
                                          w614
                                          m615
                                          esew616
                                          mod617)))))))
                   (dobody611 body604 r605 w606 m608 esew609 mod610)))))
           (chi-sequence145
             (lambda (body619 r620 w621 s622 mod623)
               (build-sequence94
                 s622
                 (letrec ((dobody624
                            (lambda (body625 r626 w627 mod628)
                              (if (null? body625)
                                '()
                                (let ((first629
                                        (chi151
                                          (car body625)
                                          r626
                                          w627
                                          mod628)))
                                  (cons first629
                                        (dobody624
                                          (cdr body625)
                                          r626
                                          w627
                                          mod628)))))))
                   (dobody624 body619 r620 w621 mod623)))))
           (source-wrap144
             (lambda (x630 w631 s632 defmod633)
               (wrap143
                 (decorate-source80 x630 s632)
                 w631
                 defmod633)))
           (wrap143
             (lambda (x634 w635 defmod636)
               (if (if (null? (wrap-marks118 w635))
                     (null? (wrap-subst119 w635))
                     #f)
                 x634
                 (if (syntax-object?99 x634)
                   (make-syntax-object98
                     (syntax-object-expression100 x634)
                     (join-wraps134 w635 (syntax-object-wrap101 x634))
                     (syntax-object-module102 x634))
                   (if (null? x634)
                     x634
                     (make-syntax-object98 x634 w635 defmod636))))))
           (bound-id-member?142
             (lambda (x637 list638)
               (if (not (null? list638))
                 (let ((t639 (bound-id=?139 x637 (car list638))))
                   (if t639
                     t639
                     (bound-id-member?142 x637 (cdr list638))))
                 #f)))
           (distinct-bound-ids?141
             (lambda (ids640)
               (letrec ((distinct?641
                          (lambda (ids642)
                            (let ((t643 (null? ids642)))
                              (if t643
                                t643
                                (if (not (bound-id-member?142
                                           (car ids642)
                                           (cdr ids642)))
                                  (distinct?641 (cdr ids642))
                                  #f))))))
                 (distinct?641 ids640))))
           (valid-bound-ids?140
             (lambda (ids644)
               (if (letrec ((all-ids?645
                              (lambda (ids646)
                                (let ((t647 (null? ids646)))
                                  (if t647
                                    t647
                                    (if (id?115 (car ids646))
                                      (all-ids?645 (cdr ids646))
                                      #f))))))
                     (all-ids?645 ids644))
                 (distinct-bound-ids?141 ids644)
                 #f)))
           (bound-id=?139
             (lambda (i648 j649)
               (if (if (syntax-object?99 i648)
                     (syntax-object?99 j649)
                     #f)
                 (if (eq? (syntax-object-expression100 i648)
                          (syntax-object-expression100 j649))
                   (same-marks?136
                     (wrap-marks118 (syntax-object-wrap101 i648))
                     (wrap-marks118 (syntax-object-wrap101 j649)))
                   #f)
                 (eq? i648 j649))))
           (free-id=?138
             (lambda (i650 j651)
               (if (eq? (let ((x652 i650))
                          (if (syntax-object?99 x652)
                            (syntax-object-expression100 x652)
                            x652))
                        (let ((x653 j651))
                          (if (syntax-object?99 x653)
                            (syntax-object-expression100 x653)
                            x653)))
                 (eq? (id-var-name137 i650 (quote (())))
                      (id-var-name137 j651 (quote (()))))
                 #f)))
           (id-var-name137
             (lambda (id654 w655)
               (letrec ((search-vector-rib658
                          (lambda (sym664
                                   subst665
                                   marks666
                                   symnames667
                                   ribcage668)
                            (let ((n669 (vector-length symnames667)))
                              (letrec ((f670 (lambda (i671)
                                               (if (fx=74 i671 n669)
                                                 (search656
                                                   sym664
                                                   (cdr subst665)
                                                   marks666)
                                                 (if (if (eq? (vector-ref
                                                                symnames667
                                                                i671)
                                                              sym664)
                                                       (same-marks?136
                                                         marks666
                                                         (vector-ref
                                                           (ribcage-marks125
                                                             ribcage668)
                                                           i671))
                                                       #f)
                                                   (values
                                                     (vector-ref
                                                       (ribcage-labels126
                                                         ribcage668)
                                                       i671)
                                                     marks666)
                                                   (f670 (fx+72 i671 1)))))))
                                (f670 0)))))
                        (search-list-rib657
                          (lambda (sym672
                                   subst673
                                   marks674
                                   symnames675
                                   ribcage676)
                            (letrec ((f677 (lambda (symnames678 i679)
                                             (if (null? symnames678)
                                               (search656
                                                 sym672
                                                 (cdr subst673)
                                                 marks674)
                                               (if (if (eq? (car symnames678)
                                                            sym672)
                                                     (same-marks?136
                                                       marks674
                                                       (list-ref
                                                         (ribcage-marks125
                                                           ribcage676)
                                                         i679))
                                                     #f)
                                                 (values
                                                   (list-ref
                                                     (ribcage-labels126
                                                       ribcage676)
                                                     i679)
                                                   marks674)
                                                 (f677 (cdr symnames678)
                                                       (fx+72 i679 1)))))))
                              (f677 symnames675 0))))
                        (search656
                          (lambda (sym680 subst681 marks682)
                            (if (null? subst681)
                              (values #f marks682)
                              (let ((fst683 (car subst681)))
                                (if (eq? fst683 (quote shift))
                                  (search656
                                    sym680
                                    (cdr subst681)
                                    (cdr marks682))
                                  (let ((symnames684
                                          (ribcage-symnames124 fst683)))
                                    (if (vector? symnames684)
                                      (search-vector-rib658
                                        sym680
                                        subst681
                                        marks682
                                        symnames684
                                        fst683)
                                      (search-list-rib657
                                        sym680
                                        subst681
                                        marks682
                                        symnames684
                                        fst683)))))))))
                 (if (symbol? id654)
                   (let ((t685 (call-with-values
                                 (lambda ()
                                   (search656
                                     id654
                                     (wrap-subst119 w655)
                                     (wrap-marks118 w655)))
                                 (lambda (x687 . ignore686) x687))))
                     (if t685 t685 id654))
                   (if (syntax-object?99 id654)
                     (let ((id688 (syntax-object-expression100 id654))
                           (w1689 (syntax-object-wrap101 id654)))
                       (let ((marks690
                               (join-marks135
                                 (wrap-marks118 w655)
                                 (wrap-marks118 w1689))))
                         (call-with-values
                           (lambda ()
                             (search656 id688 (wrap-subst119 w655) marks690))
                           (lambda (new-id691 marks692)
                             (let ((t693 new-id691))
                               (if t693
                                 t693
                                 (let ((t694 (call-with-values
                                               (lambda ()
                                                 (search656
                                                   id688
                                                   (wrap-subst119 w1689)
                                                   marks692))
                                               (lambda (x696 . ignore695)
                                                 x696))))
                                   (if t694 t694 id688))))))))
                     (syntax-violation
                       'id-var-name
                       "invalid id"
                       id654))))))
           (same-marks?136
             (lambda (x697 y698)
               (let ((t699 (eq? x697 y698)))
                 (if t699
                   t699
                   (if (not (null? x697))
                     (if (not (null? y698))
                       (if (eq? (car x697) (car y698))
                         (same-marks?136 (cdr x697) (cdr y698))
                         #f)
                       #f)
                     #f)))))
           (join-marks135
             (lambda (m1700 m2701)
               (smart-append133 m1700 m2701)))
           (join-wraps134
             (lambda (w1702 w2703)
               (let ((m1704 (wrap-marks118 w1702))
                     (s1705 (wrap-subst119 w1702)))
                 (if (null? m1704)
                   (if (null? s1705)
                     w2703
                     (make-wrap117
                       (wrap-marks118 w2703)
                       (smart-append133 s1705 (wrap-subst119 w2703))))
                   (make-wrap117
                     (smart-append133 m1704 (wrap-marks118 w2703))
                     (smart-append133 s1705 (wrap-subst119 w2703)))))))
           (smart-append133
             (lambda (m1706 m2707)
               (if (null? m2707) m1706 (append m1706 m2707))))
           (make-binding-wrap132
             (lambda (ids708 labels709 w710)
               (if (null? ids708)
                 w710
                 (make-wrap117
                   (wrap-marks118 w710)
                   (cons (let ((labelvec711 (list->vector labels709)))
                           (let ((n712 (vector-length labelvec711)))
                             (let ((symnamevec713 (make-vector n712))
                                   (marksvec714 (make-vector n712)))
                               (begin
                                 (letrec ((f715 (lambda (ids716 i717)
                                                  (if (not (null? ids716))
                                                    (call-with-values
                                                      (lambda ()
                                                        (id-sym-name&marks116
                                                          (car ids716)
                                                          w710))
                                                      (lambda (symname718
                                                               marks719)
                                                        (begin
                                                          (vector-set!
                                                            symnamevec713
                                                            i717
                                                            symname718)
                                                          (vector-set!
                                                            marksvec714
                                                            i717
                                                            marks719)
                                                          (f715 (cdr ids716)
                                                                (fx+72 i717
                                                                       1)))))))))
                                   (f715 ids708 0))
                                 (make-ribcage122
                                   symnamevec713
                                   marksvec714
                                   labelvec711)))))
                         (wrap-subst119 w710))))))
           (extend-ribcage!131
             (lambda (ribcage720 id721 label722)
               (begin
                 (set-ribcage-symnames!127
                   ribcage720
                   (cons (syntax-object-expression100 id721)
                         (ribcage-symnames124 ribcage720)))
                 (set-ribcage-marks!128
                   ribcage720
                   (cons (wrap-marks118 (syntax-object-wrap101 id721))
                         (ribcage-marks125 ribcage720)))
                 (set-ribcage-labels!129
                   ribcage720
                   (cons label722 (ribcage-labels126 ribcage720))))))
           (anti-mark130
             (lambda (w723)
               (make-wrap117
                 (cons #f (wrap-marks118 w723))
                 (cons (quote shift) (wrap-subst119 w723)))))
           (set-ribcage-labels!129
             (lambda (x724 update725)
               (vector-set! x724 3 update725)))
           (set-ribcage-marks!128
             (lambda (x726 update727)
               (vector-set! x726 2 update727)))
           (set-ribcage-symnames!127
             (lambda (x728 update729)
               (vector-set! x728 1 update729)))
           (ribcage-labels126
             (lambda (x730) (vector-ref x730 3)))
           (ribcage-marks125
             (lambda (x731) (vector-ref x731 2)))
           (ribcage-symnames124
             (lambda (x732) (vector-ref x732 1)))
           (ribcage?123
             (lambda (x733)
               (if (vector? x733)
                 (if (= (vector-length x733) 4)
                   (eq? (vector-ref x733 0) (quote ribcage))
                   #f)
                 #f)))
           (make-ribcage122
             (lambda (symnames734 marks735 labels736)
               (vector
                 'ribcage
                 symnames734
                 marks735
                 labels736)))
           (gen-labels121
             (lambda (ls737)
               (if (null? ls737)
                 '()
                 (cons (gen-label120) (gen-labels121 (cdr ls737))))))
           (gen-label120 (lambda () (string #\i)))
           (wrap-subst119 cdr)
           (wrap-marks118 car)
           (make-wrap117 cons)
           (id-sym-name&marks116
             (lambda (x738 w739)
               (if (syntax-object?99 x738)
                 (values
                   (syntax-object-expression100 x738)
                   (join-marks135
                     (wrap-marks118 w739)
                     (wrap-marks118 (syntax-object-wrap101 x738))))
                 (values x738 (wrap-marks118 w739)))))
           (id?115
             (lambda (x740)
               (if (symbol? x740)
                 #t
                 (if (syntax-object?99 x740)
                   (symbol? (syntax-object-expression100 x740))
                   #f))))
           (nonsymbol-id?114
             (lambda (x741)
               (if (syntax-object?99 x741)
                 (symbol? (syntax-object-expression100 x741))
                 #f)))
           (global-extend113
             (lambda (type742 sym743 val744)
               (put-global-definition-hook78
                 sym743
                 type742
                 val744)))
           (lookup112
             (lambda (x745 r746 mod747)
               (let ((t748 (assq x745 r746)))
                 (if t748
                   (cdr t748)
                   (if (symbol? x745)
                     (let ((t749 (get-global-definition-hook79 x745 mod747)))
                       (if t749 t749 (quote (global))))
                     '(displaced-lexical))))))
           (macros-only-env111
             (lambda (r750)
               (if (null? r750)
                 '()
                 (let ((a751 (car r750)))
                   (if (eq? (cadr a751) (quote macro))
                     (cons a751 (macros-only-env111 (cdr r750)))
                     (macros-only-env111 (cdr r750)))))))
           (extend-var-env110
             (lambda (labels752 vars753 r754)
               (if (null? labels752)
                 r754
                 (extend-var-env110
                   (cdr labels752)
                   (cdr vars753)
                   (cons (cons (car labels752)
                               (cons (quote lexical) (car vars753)))
                         r754)))))
           (extend-env109
             (lambda (labels755 bindings756 r757)
               (if (null? labels755)
                 r757
                 (extend-env109
                   (cdr labels755)
                   (cdr bindings756)
                   (cons (cons (car labels755) (car bindings756))
                         r757)))))
           (binding-value108 cdr)
           (binding-type107 car)
           (source-annotation106
             (lambda (x758)
               (if (syntax-object?99 x758)
                 (source-annotation106
                   (syntax-object-expression100 x758))
                 (if (pair? x758)
                   (let ((props759 (source-properties x758)))
                     (if (pair? props759) props759 #f))
                   #f))))
           (set-syntax-object-module!105
             (lambda (x760 update761)
               (vector-set! x760 3 update761)))
           (set-syntax-object-wrap!104
             (lambda (x762 update763)
               (vector-set! x762 2 update763)))
           (set-syntax-object-expression!103
             (lambda (x764 update765)
               (vector-set! x764 1 update765)))
           (syntax-object-module102
             (lambda (x766) (vector-ref x766 3)))
           (syntax-object-wrap101
             (lambda (x767) (vector-ref x767 2)))
           (syntax-object-expression100
             (lambda (x768) (vector-ref x768 1)))
           (syntax-object?99
             (lambda (x769)
               (if (vector? x769)
                 (if (= (vector-length x769) 4)
                   (eq? (vector-ref x769 0) (quote syntax-object))
                   #f)
                 #f)))
           (make-syntax-object98
             (lambda (expression770 wrap771 module772)
               (vector
                 'syntax-object
                 expression770
                 wrap771
                 module772)))
           (build-letrec97
             (lambda (src773 ids774 vars775 val-exps776 body-exp777)
               (if (null? vars775)
                 body-exp777
                 (let ((atom-key778 (fluid-ref *mode*71)))
                   (if (memv atom-key778 (quote (c)))
                     (begin
                       (for-each maybe-name-value!89 ids774 val-exps776)
                       ((@ (language tree-il) make-letrec)
                        src773
                        ids774
                        vars775
                        val-exps776
                        body-exp777))
                     (decorate-source80
                       (list 'letrec
                             (map list vars775 val-exps776)
                             body-exp777)
                       src773))))))
           (build-named-let96
             (lambda (src779 ids780 vars781 val-exps782 body-exp783)
               (let ((f784 (car vars781))
                     (f-name785 (car ids780))
                     (vars786 (cdr vars781))
                     (ids787 (cdr ids780)))
                 (let ((atom-key788 (fluid-ref *mode*71)))
                   (if (memv atom-key788 (quote (c)))
                     (let ((proc789
                             (build-lambda91
                               src779
                               ids787
                               vars786
                               #f
                               body-exp783)))
                       (begin
                         (maybe-name-value!89 f-name785 proc789)
                         (for-each maybe-name-value!89 ids787 val-exps782)
                         ((@ (language tree-il) make-letrec)
                          src779
                          (list f-name785)
                          (list f784)
                          (list proc789)
                          (build-application82
                            src779
                            (build-lexical-reference84
                              'fun
                              src779
                              f-name785
                              f784)
                            val-exps782))))
                     (decorate-source80
                       (list 'let
                             f784
                             (map list vars786 val-exps782)
                             body-exp783)
                       src779))))))
           (build-let95
             (lambda (src790 ids791 vars792 val-exps793 body-exp794)
               (if (null? vars792)
                 body-exp794
                 (let ((atom-key795 (fluid-ref *mode*71)))
                   (if (memv atom-key795 (quote (c)))
                     (begin
                       (for-each maybe-name-value!89 ids791 val-exps793)
                       ((@ (language tree-il) make-let)
                        src790
                        ids791
                        vars792
                        val-exps793
                        body-exp794))
                     (decorate-source80
                       (list 'let
                             (map list vars792 val-exps793)
                             body-exp794)
                       src790))))))
           (build-sequence94
             (lambda (src796 exps797)
               (if (null? (cdr exps797))
                 (car exps797)
                 (let ((atom-key798 (fluid-ref *mode*71)))
                   (if (memv atom-key798 (quote (c)))
                     ((@ (language tree-il) make-sequence)
                      src796
                      exps797)
                     (decorate-source80
                       (cons (quote begin) exps797)
                       src796))))))
           (build-data93
             (lambda (src799 exp800)
               (let ((atom-key801 (fluid-ref *mode*71)))
                 (if (memv atom-key801 (quote (c)))
                   ((@ (language tree-il) make-const) src799 exp800)
                   (decorate-source80
                     (if (if (self-evaluating? exp800)
                           (not (vector? exp800))
                           #f)
                       exp800
                       (list (quote quote) exp800))
                     src799)))))
           (build-primref92
             (lambda (src802 name803)
               (if (equal?
                     (module-name (current-module))
                     '(guile))
                 (let ((atom-key804 (fluid-ref *mode*71)))
                   (if (memv atom-key804 (quote (c)))
                     ((@ (language tree-il) make-toplevel-ref)
                      src802
                      name803)
                     (decorate-source80 name803 src802)))
                 (let ((atom-key805 (fluid-ref *mode*71)))
                   (if (memv atom-key805 (quote (c)))
                     ((@ (language tree-il) make-module-ref)
                      src802
                      '(guile)
                      name803
                      #f)
                     (decorate-source80
                       (list (quote @@) (quote (guile)) name803)
                       src802))))))
           (build-lambda91
             (lambda (src806 ids807 vars808 docstring809 exp810)
               (let ((atom-key811 (fluid-ref *mode*71)))
                 (if (memv atom-key811 (quote (c)))
                   ((@ (language tree-il) make-lambda)
                    src806
                    ids807
                    vars808
                    (if docstring809
                      (list (cons (quote documentation) docstring809))
                      '())
                    exp810)
                   (decorate-source80
                     (cons 'lambda
                           (cons vars808
                                 (append
                                   (if docstring809
                                     (list docstring809)
                                     '())
                                   (list exp810))))
                     src806)))))
           (build-global-definition90
             (lambda (source812 var813 exp814)
               (let ((atom-key815 (fluid-ref *mode*71)))
                 (if (memv atom-key815 (quote (c)))
                   (begin
                     (maybe-name-value!89 var813 exp814)
                     ((@ (language tree-il) make-toplevel-define)
                      source812
                      var813
                      exp814))
                   (decorate-source80
                     (list (quote define) var813 exp814)
                     source812)))))
           (maybe-name-value!89
             (lambda (name816 val817)
               (if ((@ (language tree-il) lambda?) val817)
                 (let ((meta818
                         ((@ (language tree-il) lambda-meta) val817)))
                   (if (not (assq (quote name) meta818))
                     ((setter (@ (language tree-il) lambda-meta))
                      val817
                      (acons (quote name) name816 meta818)))))))
           (build-global-assignment88
             (lambda (source819 var820 exp821 mod822)
               (analyze-variable86
                 mod822
                 var820
                 (lambda (mod823 var824 public?825)
                   (let ((atom-key826 (fluid-ref *mode*71)))
                     (if (memv atom-key826 (quote (c)))
                       ((@ (language tree-il) make-module-set)
                        source819
                        mod823
                        var824
                        public?825
                        exp821)
                       (decorate-source80
                         (list 'set!
                               (list (if public?825 (quote @) (quote @@))
                                     mod823
                                     var824)
                               exp821)
                         source819))))
                 (lambda (var827)
                   (let ((atom-key828 (fluid-ref *mode*71)))
                     (if (memv atom-key828 (quote (c)))
                       ((@ (language tree-il) make-toplevel-set)
                        source819
                        var827
                        exp821)
                       (decorate-source80
                         (list (quote set!) var827 exp821)
                         source819)))))))
           (build-global-reference87
             (lambda (source829 var830 mod831)
               (analyze-variable86
                 mod831
                 var830
                 (lambda (mod832 var833 public?834)
                   (let ((atom-key835 (fluid-ref *mode*71)))
                     (if (memv atom-key835 (quote (c)))
                       ((@ (language tree-il) make-module-ref)
                        source829
                        mod832
                        var833
                        public?834)
                       (decorate-source80
                         (list (if public?834 (quote @) (quote @@))
                               mod832
                               var833)
                         source829))))
                 (lambda (var836)
                   (let ((atom-key837 (fluid-ref *mode*71)))
                     (if (memv atom-key837 (quote (c)))
                       ((@ (language tree-il) make-toplevel-ref)
                        source829
                        var836)
                       (decorate-source80 var836 source829)))))))
           (analyze-variable86
             (lambda (mod838 var839 modref-cont840 bare-cont841)
               (if (not mod838)
                 (bare-cont841 var839)
                 (let ((kind842 (car mod838)) (mod843 (cdr mod838)))
                   (if (memv kind842 (quote (public)))
                     (modref-cont840 mod843 var839 #t)
                     (if (memv kind842 (quote (private)))
                       (if (not (equal? mod843 (module-name (current-module))))
                         (modref-cont840 mod843 var839 #f)
                         (bare-cont841 var839))
                       (if (memv kind842 (quote (bare)))
                         (bare-cont841 var839)
                         (if (memv kind842 (quote (hygiene)))
                           (if (if (not (equal?
                                          mod843
                                          (module-name (current-module))))
                                 (module-variable
                                   (resolve-module mod843)
                                   var839)
                                 #f)
                             (modref-cont840 mod843 var839 #f)
                             (bare-cont841 var839))
                           (syntax-violation
                             #f
                             "bad module kind"
                             var839
                             mod843)))))))))
           (build-lexical-assignment85
             (lambda (source844 name845 var846 exp847)
               (let ((atom-key848 (fluid-ref *mode*71)))
                 (if (memv atom-key848 (quote (c)))
                   ((@ (language tree-il) make-lexical-set)
                    source844
                    name845
                    var846
                    exp847)
                   (decorate-source80
                     (list (quote set!) var846 exp847)
                     source844)))))
           (build-lexical-reference84
             (lambda (type849 source850 name851 var852)
               (let ((atom-key853 (fluid-ref *mode*71)))
                 (if (memv atom-key853 (quote (c)))
                   ((@ (language tree-il) make-lexical-ref)
                    source850
                    name851
                    var852)
                   (decorate-source80 var852 source850)))))
           (build-conditional83
             (lambda (source854 test-exp855 then-exp856 else-exp857)
               (let ((atom-key858 (fluid-ref *mode*71)))
                 (if (memv atom-key858 (quote (c)))
                   ((@ (language tree-il) make-conditional)
                    source854
                    test-exp855
                    then-exp856
                    else-exp857)
                   (decorate-source80
                     (if (equal? else-exp857 (quote (if #f #f)))
                       (list (quote if) test-exp855 then-exp856)
                       (list 'if
                             test-exp855
                             then-exp856
                             else-exp857))
                     source854)))))
           (build-application82
             (lambda (source859 fun-exp860 arg-exps861)
               (let ((atom-key862 (fluid-ref *mode*71)))
                 (if (memv atom-key862 (quote (c)))
                   ((@ (language tree-il) make-application)
                    source859
                    fun-exp860
                    arg-exps861)
                   (decorate-source80
                     (cons fun-exp860 arg-exps861)
                     source859)))))
           (build-void81
             (lambda (source863)
               (let ((atom-key864 (fluid-ref *mode*71)))
                 (if (memv atom-key864 (quote (c)))
                   ((@ (language tree-il) make-void) source863)
                   (decorate-source80 (quote (if #f #f)) source863)))))
           (decorate-source80
             (lambda (e865 s866)
               (begin
                 (if (if (pair? e865) s866 #f)
                   (set-source-properties! e865 s866))
                 e865)))
           (get-global-definition-hook79
             (lambda (symbol867 module868)
               (begin
                 (if (if (not module868) (current-module) #f)
                   (warn "module system is booted, we should have a module"
                         symbol867))
                 (let ((v869 (module-variable
                               (if module868
                                 (resolve-module (cdr module868))
                                 (current-module))
                               symbol867)))
                   (if v869
                     (if (variable-bound? v869)
                       (let ((val870 (variable-ref v869)))
                         (if (macro? val870)
                           (if (syncase-macro-type val870)
                             (cons (syncase-macro-type val870)
                                   (syncase-macro-binding val870))
                             #f)
                           #f))
                       #f)
                     #f)))))
           (put-global-definition-hook78
             (lambda (symbol871 type872 val873)
               (let ((existing874
                       (let ((v875 (module-variable
                                     (current-module)
                                     symbol871)))
                         (if v875
                           (if (variable-bound? v875)
                             (let ((val876 (variable-ref v875)))
                               (if (macro? val876)
                                 (if (not (syncase-macro-type val876))
                                   val876
                                   #f)
                                 #f))
                             #f)
                           #f))))
                 (module-define!
                   (current-module)
                   symbol871
                   (if existing874
                     (make-extended-syncase-macro
                       existing874
                       type872
                       val873)
                     (make-syncase-macro type872 val873))))))
           (local-eval-hook77
             (lambda (x877 mod878)
               (primitive-eval
                 (list noexpand70
                       (let ((atom-key879 (fluid-ref *mode*71)))
                         (if (memv atom-key879 (quote (c)))
                           ((@ (language tree-il) tree-il->scheme) x877)
                           x877))))))
           (top-level-eval-hook76
             (lambda (x880 mod881)
               (primitive-eval
                 (list noexpand70
                       (let ((atom-key882 (fluid-ref *mode*71)))
                         (if (memv atom-key882 (quote (c)))
                           ((@ (language tree-il) tree-il->scheme) x880)
                           x880))))))
           (fx<75 <)
           (fx=74 =)
           (fx-73 -)
           (fx+72 +)
           (*mode*71 (make-fluid))
           (noexpand70 "noexpand"))
    (begin
      (global-extend113
        'local-syntax
        'letrec-syntax
        #t)
      (global-extend113
        'local-syntax
        'let-syntax
        #f)
      (global-extend113
        'core
        'fluid-let-syntax
        (lambda (e883 r884 w885 s886 mod887)
          ((lambda (tmp888)
             ((lambda (tmp889)
                (if (if tmp889
                      (apply (lambda (_890 var891 val892 e1893 e2894)
                               (valid-bound-ids?140 var891))
                             tmp889)
                      #f)
                  (apply (lambda (_896 var897 val898 e1899 e2900)
                           (let ((names901
                                   (map (lambda (x902)
                                          (id-var-name137 x902 w885))
                                        var897)))
                             (begin
                               (for-each
                                 (lambda (id904 n905)
                                   (let ((atom-key906
                                           (binding-type107
                                             (lookup112 n905 r884 mod887))))
                                     (if (memv atom-key906
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'fluid-let-syntax
                                         "identifier out of context"
                                         e883
                                         (source-wrap144
                                           id904
                                           w885
                                           s886
                                           mod887)))))
                                 var897
                                 names901)
                               (chi-body155
                                 (cons e1899 e2900)
                                 (source-wrap144 e883 w885 s886 mod887)
                                 (extend-env109
                                   names901
                                   (let ((trans-r909
                                           (macros-only-env111 r884)))
                                     (map (lambda (x910)
                                            (cons 'macro
                                                  (eval-local-transformer158
                                                    (chi151
                                                      x910
                                                      trans-r909
                                                      w885
                                                      mod887)
                                                    mod887)))
                                          val898))
                                   r884)
                                 w885
                                 mod887))))
                         tmp889)
                  ((lambda (_912)
                     (syntax-violation
                       'fluid-let-syntax
                       "bad syntax"
                       (source-wrap144 e883 w885 s886 mod887)))
                   tmp888)))
              ($sc-dispatch
                tmp888
                '(any #(each (any any)) any . each-any))))
           e883)))
      (global-extend113
        'core
        'quote
        (lambda (e913 r914 w915 s916 mod917)
          ((lambda (tmp918)
             ((lambda (tmp919)
                (if tmp919
                  (apply (lambda (_920 e921)
                           (build-data93 s916 (strip161 e921 w915)))
                         tmp919)
                  ((lambda (_922)
                     (syntax-violation
                       'quote
                       "bad syntax"
                       (source-wrap144 e913 w915 s916 mod917)))
                   tmp918)))
              ($sc-dispatch tmp918 (quote (any any)))))
           e913)))
      (global-extend113
        'core
        'syntax
        (letrec ((regen930
                   (lambda (x931)
                     (let ((atom-key932 (car x931)))
                       (if (memv atom-key932 (quote (ref)))
                         (build-lexical-reference84
                           'value
                           #f
                           (cadr x931)
                           (cadr x931))
                         (if (memv atom-key932 (quote (primitive)))
                           (build-primref92 #f (cadr x931))
                           (if (memv atom-key932 (quote (quote)))
                             (build-data93 #f (cadr x931))
                             (if (memv atom-key932 (quote (lambda)))
                               (build-lambda91
                                 #f
                                 (cadr x931)
                                 (cadr x931)
                                 #f
                                 (regen930 (caddr x931)))
                               (build-application82
                                 #f
                                 (build-primref92 #f (car x931))
                                 (map regen930 (cdr x931))))))))))
                 (gen-vector929
                   (lambda (x933)
                     (if (eq? (car x933) (quote list))
                       (cons (quote vector) (cdr x933))
                       (if (eq? (car x933) (quote quote))
                         (list (quote quote) (list->vector (cadr x933)))
                         (list (quote list->vector) x933)))))
                 (gen-append928
                   (lambda (x934 y935)
                     (if (equal? y935 (quote (quote ())))
                       x934
                       (list (quote append) x934 y935))))
                 (gen-cons927
                   (lambda (x936 y937)
                     (let ((atom-key938 (car y937)))
                       (if (memv atom-key938 (quote (quote)))
                         (if (eq? (car x936) (quote quote))
                           (list 'quote
                                 (cons (cadr x936) (cadr y937)))
                           (if (eq? (cadr y937) (quote ()))
                             (list (quote list) x936)
                             (list (quote cons) x936 y937)))
                         (if (memv atom-key938 (quote (list)))
                           (cons (quote list) (cons x936 (cdr y937)))
                           (list (quote cons) x936 y937))))))
                 (gen-map926
                   (lambda (e939 map-env940)
                     (let ((formals941 (map cdr map-env940))
                           (actuals942
                             (map (lambda (x943) (list (quote ref) (car x943)))
                                  map-env940)))
                       (if (eq? (car e939) (quote ref))
                         (car actuals942)
                         (if (and-map
                               (lambda (x944)
                                 (if (eq? (car x944) (quote ref))
                                   (memq (cadr x944) formals941)
                                   #f))
                               (cdr e939))
                           (cons 'map
                                 (cons (list (quote primitive) (car e939))
                                       (map (let ((r945 (map cons
                                                             formals941
                                                             actuals942)))
                                              (lambda (x946)
                                                (cdr (assq (cadr x946) r945))))
                                            (cdr e939))))
                           (cons 'map
                                 (cons (list (quote lambda) formals941 e939)
                                       actuals942)))))))
                 (gen-mappend925
                   (lambda (e947 map-env948)
                     (list 'apply
                           '(primitive append)
                           (gen-map926 e947 map-env948))))
                 (gen-ref924
                   (lambda (src949 var950 level951 maps952)
                     (if (fx=74 level951 0)
                       (values var950 maps952)
                       (if (null? maps952)
                         (syntax-violation
                           'syntax
                           "missing ellipsis"
                           src949)
                         (call-with-values
                           (lambda ()
                             (gen-ref924
                               src949
                               var950
                               (fx-73 level951 1)
                               (cdr maps952)))
                           (lambda (outer-var953 outer-maps954)
                             (let ((b955 (assq outer-var953 (car maps952))))
                               (if b955
                                 (values (cdr b955) maps952)
                                 (let ((inner-var956 (gen-var162 (quote tmp))))
                                   (values
                                     inner-var956
                                     (cons (cons (cons outer-var953
                                                       inner-var956)
                                                 (car maps952))
                                           outer-maps954)))))))))))
                 (gen-syntax923
                   (lambda (src957 e958 r959 maps960 ellipsis?961 mod962)
                     (if (id?115 e958)
                       (let ((label963 (id-var-name137 e958 (quote (())))))
                         (let ((b964 (lookup112 label963 r959 mod962)))
                           (if (eq? (binding-type107 b964) (quote syntax))
                             (call-with-values
                               (lambda ()
                                 (let ((var.lev965 (binding-value108 b964)))
                                   (gen-ref924
                                     src957
                                     (car var.lev965)
                                     (cdr var.lev965)
                                     maps960)))
                               (lambda (var966 maps967)
                                 (values (list (quote ref) var966) maps967)))
                             (if (ellipsis?961 e958)
                               (syntax-violation
                                 'syntax
                                 "misplaced ellipsis"
                                 src957)
                               (values (list (quote quote) e958) maps960)))))
                       ((lambda (tmp968)
                          ((lambda (tmp969)
                             (if (if tmp969
                                   (apply (lambda (dots970 e971)
                                            (ellipsis?961 dots970))
                                          tmp969)
                                   #f)
                               (apply (lambda (dots972 e973)
                                        (gen-syntax923
                                          src957
                                          e973
                                          r959
                                          maps960
                                          (lambda (x974) #f)
                                          mod962))
                                      tmp969)
                               ((lambda (tmp975)
                                  (if (if tmp975
                                        (apply (lambda (x976 dots977 y978)
                                                 (ellipsis?961 dots977))
                                               tmp975)
                                        #f)
                                    (apply (lambda (x979 dots980 y981)
                                             (letrec ((f982 (lambda (y983 k984)
                                                              ((lambda (tmp988)
                                                                 ((lambda (tmp989)
                                                                    (if (if tmp989
                                                                          (apply (lambda (dots990
                                                                                          y991)
                                                                                   (ellipsis?961
                                                                                     dots990))
                                                                                 tmp989)
                                                                          #f)
                                                                      (apply (lambda (dots992
                                                                                      y993)
                                                                               (f982 y993
                                                                                     (lambda (maps994)
                                                                                       (call-with-values
                                                                                         (lambda ()
                                                                                           (k984 (cons '()
                                                                                                       maps994)))
                                                                                         (lambda (x995
                                                                                                  maps996)
                                                                                           (if (null? (car maps996))
                                                                                             (syntax-violation
                                                                                               'syntax
                                                                                               "extra ellipsis"
                                                                                               src957)
                                                                                             (values
                                                                                               (gen-mappend925
                                                                                                 x995
                                                                                                 (car maps996))
                                                                                               (cdr maps996))))))))
                                                                             tmp989)
                                                                      ((lambda (_997)
                                                                         (call-with-values
                                                                           (lambda ()
                                                                             (gen-syntax923
                                                                               src957
                                                                               y983
                                                                               r959
                                                                               maps960
                                                                               ellipsis?961
                                                                               mod962))
                                                                           (lambda (y998
                                                                                    maps999)
                                                                             (call-with-values
                                                                               (lambda ()
                                                                                 (k984 maps999))
                                                                               (lambda (x1000
                                                                                        maps1001)
                                                                                 (values
                                                                                   (gen-append928
                                                                                     x1000
                                                                                     y998)
                                                                                   maps1001))))))
                                                                       tmp988)))
                                                                  ($sc-dispatch
                                                                    tmp988
                                                                    '(any .
                                                                          any))))
                                                               y983))))
                                               (f982 y981
                                                     (lambda (maps985)
                                                       (call-with-values
                                                         (lambda ()
                                                           (gen-syntax923
                                                             src957
                                                             x979
                                                             r959
                                                             (cons '()
                                                                   maps985)
                                                             ellipsis?961
                                                             mod962))
                                                         (lambda (x986 maps987)
                                                           (if (null? (car maps987))
                                                             (syntax-violation
                                                               'syntax
                                                               "extra ellipsis"
                                                               src957)
                                                             (values
                                                               (gen-map926
                                                                 x986
                                                                 (car maps987))
                                                               (cdr maps987)))))))))
                                           tmp975)
                                    ((lambda (tmp1002)
                                       (if tmp1002
                                         (apply (lambda (x1003 y1004)
                                                  (call-with-values
                                                    (lambda ()
                                                      (gen-syntax923
                                                        src957
                                                        x1003
                                                        r959
                                                        maps960
                                                        ellipsis?961
                                                        mod962))
                                                    (lambda (x1005 maps1006)
                                                      (call-with-values
                                                        (lambda ()
                                                          (gen-syntax923
                                                            src957
                                                            y1004
                                                            r959
                                                            maps1006
                                                            ellipsis?961
                                                            mod962))
                                                        (lambda (y1007
                                                                 maps1008)
                                                          (values
                                                            (gen-cons927
                                                              x1005
                                                              y1007)
                                                            maps1008))))))
                                                tmp1002)
                                         ((lambda (tmp1009)
                                            (if tmp1009
                                              (apply (lambda (e11010 e21011)
                                                       (call-with-values
                                                         (lambda ()
                                                           (gen-syntax923
                                                             src957
                                                             (cons e11010
                                                                   e21011)
                                                             r959
                                                             maps960
                                                             ellipsis?961
                                                             mod962))
                                                         (lambda (e1013
                                                                  maps1014)
                                                           (values
                                                             (gen-vector929
                                                               e1013)
                                                             maps1014))))
                                                     tmp1009)
                                              ((lambda (_1015)
                                                 (values
                                                   (list (quote quote) e958)
                                                   maps960))
                                               tmp968)))
                                          ($sc-dispatch
                                            tmp968
                                            '#(vector (any . each-any))))))
                                     ($sc-dispatch
                                       tmp968
                                       '(any . any)))))
                                ($sc-dispatch
                                  tmp968
                                  '(any any . any)))))
                           ($sc-dispatch tmp968 (quote (any any)))))
                        e958)))))
          (lambda (e1016 r1017 w1018 s1019 mod1020)
            (let ((e1021 (source-wrap144 e1016 w1018 s1019 mod1020)))
              ((lambda (tmp1022)
                 ((lambda (tmp1023)
                    (if tmp1023
                      (apply (lambda (_1024 x1025)
                               (call-with-values
                                 (lambda ()
                                   (gen-syntax923
                                     e1021
                                     x1025
                                     r1017
                                     '()
                                     ellipsis?160
                                     mod1020))
                                 (lambda (e1026 maps1027) (regen930 e1026))))
                             tmp1023)
                      ((lambda (_1028)
                         (syntax-violation
                           'syntax
                           "bad `syntax' form"
                           e1021))
                       tmp1022)))
                  ($sc-dispatch tmp1022 (quote (any any)))))
               e1021)))))
      (global-extend113
        'core
        'lambda
        (lambda (e1029 r1030 w1031 s1032 mod1033)
          ((lambda (tmp1034)
             ((lambda (tmp1035)
                (if tmp1035
                  (apply (lambda (_1036 c1037)
                           (chi-lambda-clause156
                             (source-wrap144 e1029 w1031 s1032 mod1033)
                             #f
                             c1037
                             r1030
                             w1031
                             mod1033
                             (lambda (names1038
                                      vars1039
                                      docstring1040
                                      body1041)
                               (build-lambda91
                                 s1032
                                 names1038
                                 vars1039
                                 docstring1040
                                 body1041))))
                         tmp1035)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    tmp1034)))
              ($sc-dispatch tmp1034 (quote (any . any)))))
           e1029)))
      (global-extend113
        'core
        'let
        (letrec ((chi-let1042
                   (lambda (e1043
                            r1044
                            w1045
                            s1046
                            mod1047
                            constructor1048
                            ids1049
                            vals1050
                            exps1051)
                     (if (not (valid-bound-ids?140 ids1049))
                       (syntax-violation
                         'let
                         "duplicate bound variable"
                         e1043)
                       (let ((labels1052 (gen-labels121 ids1049))
                             (new-vars1053 (map gen-var162 ids1049)))
                         (let ((nw1054
                                 (make-binding-wrap132
                                   ids1049
                                   labels1052
                                   w1045))
                               (nr1055
                                 (extend-var-env110
                                   labels1052
                                   new-vars1053
                                   r1044)))
                           (constructor1048
                             s1046
                             (map syntax->datum ids1049)
                             new-vars1053
                             (map (lambda (x1056)
                                    (chi151 x1056 r1044 w1045 mod1047))
                                  vals1050)
                             (chi-body155
                               exps1051
                               (source-wrap144 e1043 nw1054 s1046 mod1047)
                               nr1055
                               nw1054
                               mod1047))))))))
          (lambda (e1057 r1058 w1059 s1060 mod1061)
            ((lambda (tmp1062)
               ((lambda (tmp1063)
                  (if (if tmp1063
                        (apply (lambda (_1064 id1065 val1066 e11067 e21068)
                                 (and-map id?115 id1065))
                               tmp1063)
                        #f)
                    (apply (lambda (_1070 id1071 val1072 e11073 e21074)
                             (chi-let1042
                               e1057
                               r1058
                               w1059
                               s1060
                               mod1061
                               build-let95
                               id1071
                               val1072
                               (cons e11073 e21074)))
                           tmp1063)
                    ((lambda (tmp1078)
                       (if (if tmp1078
                             (apply (lambda (_1079
                                             f1080
                                             id1081
                                             val1082
                                             e11083
                                             e21084)
                                      (if (id?115 f1080)
                                        (and-map id?115 id1081)
                                        #f))
                                    tmp1078)
                             #f)
                         (apply (lambda (_1086
                                         f1087
                                         id1088
                                         val1089
                                         e11090
                                         e21091)
                                  (chi-let1042
                                    e1057
                                    r1058
                                    w1059
                                    s1060
                                    mod1061
                                    build-named-let96
                                    (cons f1087 id1088)
                                    val1089
                                    (cons e11090 e21091)))
                                tmp1078)
                         ((lambda (_1095)
                            (syntax-violation
                              'let
                              "bad let"
                              (source-wrap144 e1057 w1059 s1060 mod1061)))
                          tmp1062)))
                     ($sc-dispatch
                       tmp1062
                       '(any any #(each (any any)) any . each-any)))))
                ($sc-dispatch
                  tmp1062
                  '(any #(each (any any)) any . each-any))))
             e1057))))
      (global-extend113
        'core
        'letrec
        (lambda (e1096 r1097 w1098 s1099 mod1100)
          ((lambda (tmp1101)
             ((lambda (tmp1102)
                (if (if tmp1102
                      (apply (lambda (_1103 id1104 val1105 e11106 e21107)
                               (and-map id?115 id1104))
                             tmp1102)
                      #f)
                  (apply (lambda (_1109 id1110 val1111 e11112 e21113)
                           (let ((ids1114 id1110))
                             (if (not (valid-bound-ids?140 ids1114))
                               (syntax-violation
                                 'letrec
                                 "duplicate bound variable"
                                 e1096)
                               (let ((labels1116 (gen-labels121 ids1114))
                                     (new-vars1117 (map gen-var162 ids1114)))
                                 (let ((w1118 (make-binding-wrap132
                                                ids1114
                                                labels1116
                                                w1098))
                                       (r1119 (extend-var-env110
                                                labels1116
                                                new-vars1117
                                                r1097)))
                                   (build-letrec97
                                     s1099
                                     (map syntax->datum ids1114)
                                     new-vars1117
                                     (map (lambda (x1120)
                                            (chi151 x1120 r1119 w1118 mod1100))
                                          val1111)
                                     (chi-body155
                                       (cons e11112 e21113)
                                       (source-wrap144
                                         e1096
                                         w1118
                                         s1099
                                         mod1100)
                                       r1119
                                       w1118
                                       mod1100)))))))
                         tmp1102)
                  ((lambda (_1123)
                     (syntax-violation
                       'letrec
                       "bad letrec"
                       (source-wrap144 e1096 w1098 s1099 mod1100)))
                   tmp1101)))
              ($sc-dispatch
                tmp1101
                '(any #(each (any any)) any . each-any))))
           e1096)))
      (global-extend113
        'core
        'set!
        (lambda (e1124 r1125 w1126 s1127 mod1128)
          ((lambda (tmp1129)
             ((lambda (tmp1130)
                (if (if tmp1130
                      (apply (lambda (_1131 id1132 val1133) (id?115 id1132))
                             tmp1130)
                      #f)
                  (apply (lambda (_1134 id1135 val1136)
                           (let ((val1137 (chi151 val1136 r1125 w1126 mod1128))
                                 (n1138 (id-var-name137 id1135 w1126)))
                             (let ((b1139 (lookup112 n1138 r1125 mod1128)))
                               (let ((atom-key1140 (binding-type107 b1139)))
                                 (if (memv atom-key1140 (quote (lexical)))
                                   (build-lexical-assignment85
                                     s1127
                                     (syntax->datum id1135)
                                     (binding-value108 b1139)
                                     val1137)
                                   (if (memv atom-key1140 (quote (global)))
                                     (build-global-assignment88
                                       s1127
                                       n1138
                                       val1137
                                       mod1128)
                                     (if (memv atom-key1140
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'set!
                                         "identifier out of context"
                                         (wrap143 id1135 w1126 mod1128))
                                       (syntax-violation
                                         'set!
                                         "bad set!"
                                         (source-wrap144
                                           e1124
                                           w1126
                                           s1127
                                           mod1128)))))))))
                         tmp1130)
                  ((lambda (tmp1141)
                     (if tmp1141
                       (apply (lambda (_1142 head1143 tail1144 val1145)
                                (call-with-values
                                  (lambda ()
                                    (syntax-type149
                                      head1143
                                      r1125
                                      '(())
                                      #f
                                      #f
                                      mod1128
                                      #t))
                                  (lambda (type1146
                                           value1147
                                           ee1148
                                           ww1149
                                           ss1150
                                           modmod1151)
                                    (if (memv type1146 (quote (module-ref)))
                                      (let ((val1152
                                              (chi151
                                                val1145
                                                r1125
                                                w1126
                                                mod1128)))
                                        (call-with-values
                                          (lambda ()
                                            (value1147
                                              (cons head1143 tail1144)))
                                          (lambda (id1154 mod1155)
                                            (build-global-assignment88
                                              s1127
                                              id1154
                                              val1152
                                              mod1155))))
                                      (build-application82
                                        s1127
                                        (chi151
                                          (list '#(syntax-object
                                                   setter
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(type
                                                        value
                                                        ee
                                                        ww
                                                        ss
                                                        modmod)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i"
                                                        "i"
                                                        "i"
                                                        "i"
                                                        "i"
                                                        "i"))
                                                    #(ribcage
                                                      #(_ head tail val)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i" "i" "i" "i"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(e r w s mod)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i" "i" "i" "i" "i"))
                                                    #(ribcage
                                                      (lambda-var-list
                                                        gen-var
                                                        strip
                                                        ellipsis?
                                                        chi-void
                                                        eval-local-transformer
                                                        chi-local-syntax
                                                        chi-lambda-clause
                                                        chi-body
                                                        chi-macro
                                                        chi-application
                                                        chi-expr
                                                        chi
                                                        chi-top
                                                        syntax-type
                                                        chi-when-list
                                                        chi-install-global
                                                        chi-top-sequence
                                                        chi-sequence
                                                        source-wrap
                                                        wrap
                                                        bound-id-member?
                                                        distinct-bound-ids?
                                                        valid-bound-ids?
                                                        bound-id=?
                                                        free-id=?
                                                        id-var-name
                                                        same-marks?
                                                        join-marks
                                                        join-wraps
                                                        smart-append
                                                        make-binding-wrap
                                                        extend-ribcage!
                                                        make-empty-ribcage
                                                        new-mark
                                                        anti-mark
                                                        the-anti-mark
                                                        top-marked?
                                                        top-wrap
                                                        empty-wrap
                                                        set-ribcage-labels!
                                                        set-ribcage-marks!
                                                        set-ribcage-symnames!
                                                        ribcage-labels
                                                        ribcage-marks
                                                        ribcage-symnames
                                                        ribcage?
                                                        make-ribcage
                                                        gen-labels
                                                        gen-label
                                                        make-rename
                                                        rename-marks
                                                        rename-new
                                                        rename-old
                                                        subst-rename?
                                                        wrap-subst
                                                        wrap-marks
                                                        make-wrap
                                                        id-sym-name&marks
                                                        id-sym-name
                                                        id?
                                                        nonsymbol-id?
                                                        global-extend
                                                        lookup
                                                        macros-only-env
                                                        extend-var-env
                                                        extend-env
                                                        null-env
                                                        binding-value
                                                        binding-type
                                                        make-binding
                                                        arg-check
                                                        source-annotation
                                                        no-source
                                                        set-syntax-object-module!
                                                        set-syntax-object-wrap!
                                                        set-syntax-object-expression!
                                                        syntax-object-module
                                                        syntax-object-wrap
                                                        syntax-object-expression
                                                        syntax-object?
                                                        make-syntax-object
                                                        build-lexical-var
                                                        build-letrec
                                                        build-named-let
                                                        build-let
                                                        build-sequence
                                                        build-data
                                                        build-primref
                                                        build-lambda
                                                        build-global-definition
                                                        maybe-name-value!
                                                        build-global-assignment
                                                        build-global-reference
                                                        analyze-variable
                                                        build-lexical-assignment
                                                        build-lexical-reference
                                                        build-conditional
                                                        build-application
                                                        build-void
                                                        decorate-source
                                                        get-global-definition-hook
                                                        put-global-definition-hook
                                                        gensym-hook
                                                        local-eval-hook
                                                        top-level-eval-hook
                                                        fx<
                                                        fx=
                                                        fx-
                                                        fx+
                                                        *mode*
                                                        noexpand)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"
                                                       "i"))
                                                    #(ribcage
                                                      (define-structure
                                                        and-map*)
                                                      ((top) (top))
                                                      ("i" "i")))
                                                   (hygiene guile))
                                                head1143)
                                          r1125
                                          w1126
                                          mod1128)
                                        (map (lambda (e1156)
                                               (chi151
                                                 e1156
                                                 r1125
                                                 w1126
                                                 mod1128))
                                             (append
                                               tail1144
                                               (list val1145))))))))
                              tmp1141)
                       ((lambda (_1158)
                          (syntax-violation
                            'set!
                            "bad set!"
                            (source-wrap144 e1124 w1126 s1127 mod1128)))
                        tmp1129)))
                   ($sc-dispatch
                     tmp1129
                     '(any (any . each-any) any)))))
              ($sc-dispatch tmp1129 (quote (any any any)))))
           e1124)))
      (global-extend113
        'module-ref
        '@
        (lambda (e1159)
          ((lambda (tmp1160)
             ((lambda (tmp1161)
                (if (if tmp1161
                      (apply (lambda (_1162 mod1163 id1164)
                               (if (and-map id?115 mod1163)
                                 (id?115 id1164)
                                 #f))
                             tmp1161)
                      #f)
                  (apply (lambda (_1166 mod1167 id1168)
                           (values
                             (syntax->datum id1168)
                             (syntax->datum
                               (cons '#(syntax-object
                                        public
                                        ((top)
                                         #(ribcage
                                           #(_ mod id)
                                           #((top) (top) (top))
                                           #("i" "i" "i"))
                                         #(ribcage () () ())
                                         #(ribcage #(e) #((top)) #("i"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
                                             strip
                                             ellipsis?
                                             chi-void
                                             eval-local-transformer
                                             chi-local-syntax
                                             chi-lambda-clause
                                             chi-body
                                             chi-macro
                                             chi-application
                                             chi-expr
                                             chi
                                             chi-top
                                             syntax-type
                                             chi-when-list
                                             chi-install-global
                                             chi-top-sequence
                                             chi-sequence
                                             source-wrap
                                             wrap
                                             bound-id-member?
                                             distinct-bound-ids?
                                             valid-bound-ids?
                                             bound-id=?
                                             free-id=?
                                             id-var-name
                                             same-marks?
                                             join-marks
                                             join-wraps
                                             smart-append
                                             make-binding-wrap
                                             extend-ribcage!
                                             make-empty-ribcage
                                             new-mark
                                             anti-mark
                                             the-anti-mark
                                             top-marked?
                                             top-wrap
                                             empty-wrap
                                             set-ribcage-labels!
                                             set-ribcage-marks!
                                             set-ribcage-symnames!
                                             ribcage-labels
                                             ribcage-marks
                                             ribcage-symnames
                                             ribcage?
                                             make-ribcage
                                             gen-labels
                                             gen-label
                                             make-rename
                                             rename-marks
                                             rename-new
                                             rename-old
                                             subst-rename?
                                             wrap-subst
                                             wrap-marks
                                             make-wrap
                                             id-sym-name&marks
                                             id-sym-name
                                             id?
                                             nonsymbol-id?
                                             global-extend
                                             lookup
                                             macros-only-env
                                             extend-var-env
                                             extend-env
                                             null-env
                                             binding-value
                                             binding-type
                                             make-binding
                                             arg-check
                                             source-annotation
                                             no-source
                                             set-syntax-object-module!
                                             set-syntax-object-wrap!
                                             set-syntax-object-expression!
                                             syntax-object-module
                                             syntax-object-wrap
                                             syntax-object-expression
                                             syntax-object?
                                             make-syntax-object
                                             build-lexical-var
                                             build-letrec
                                             build-named-let
                                             build-let
                                             build-sequence
                                             build-data
                                             build-primref
                                             build-lambda
                                             build-global-definition
                                             maybe-name-value!
                                             build-global-assignment
                                             build-global-reference
                                             analyze-variable
                                             build-lexical-assignment
                                             build-lexical-reference
                                             build-conditional
                                             build-application
                                             build-void
                                             decorate-source
                                             get-global-definition-hook
                                             put-global-definition-hook
                                             gensym-hook
                                             local-eval-hook
                                             top-level-eval-hook
                                             fx<
                                             fx=
                                             fx-
                                             fx+
                                             *mode*
                                             noexpand)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"))
                                         #(ribcage
                                           (define-structure and-map*)
                                           ((top) (top))
                                           ("i" "i")))
                                        (hygiene guile))
                                     mod1167))))
                         tmp1161)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    tmp1160)))
              ($sc-dispatch tmp1160 (quote (any each-any any)))))
           e1159)))
      (global-extend113
        'module-ref
        '@@
        (lambda (e1170)
          ((lambda (tmp1171)
             ((lambda (tmp1172)
                (if (if tmp1172
                      (apply (lambda (_1173 mod1174 id1175)
                               (if (and-map id?115 mod1174)
                                 (id?115 id1175)
                                 #f))
                             tmp1172)
                      #f)
                  (apply (lambda (_1177 mod1178 id1179)
                           (values
                             (syntax->datum id1179)
                             (syntax->datum
                               (cons '#(syntax-object
                                        private
                                        ((top)
                                         #(ribcage
                                           #(_ mod id)
                                           #((top) (top) (top))
                                           #("i" "i" "i"))
                                         #(ribcage () () ())
                                         #(ribcage #(e) #((top)) #("i"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
                                             strip
                                             ellipsis?
                                             chi-void
                                             eval-local-transformer
                                             chi-local-syntax
                                             chi-lambda-clause
                                             chi-body
                                             chi-macro
                                             chi-application
                                             chi-expr
                                             chi
                                             chi-top
                                             syntax-type
                                             chi-when-list
                                             chi-install-global
                                             chi-top-sequence
                                             chi-sequence
                                             source-wrap
                                             wrap
                                             bound-id-member?
                                             distinct-bound-ids?
                                             valid-bound-ids?
                                             bound-id=?
                                             free-id=?
                                             id-var-name
                                             same-marks?
                                             join-marks
                                             join-wraps
                                             smart-append
                                             make-binding-wrap
                                             extend-ribcage!
                                             make-empty-ribcage
                                             new-mark
                                             anti-mark
                                             the-anti-mark
                                             top-marked?
                                             top-wrap
                                             empty-wrap
                                             set-ribcage-labels!
                                             set-ribcage-marks!
                                             set-ribcage-symnames!
                                             ribcage-labels
                                             ribcage-marks
                                             ribcage-symnames
                                             ribcage?
                                             make-ribcage
                                             gen-labels
                                             gen-label
                                             make-rename
                                             rename-marks
                                             rename-new
                                             rename-old
                                             subst-rename?
                                             wrap-subst
                                             wrap-marks
                                             make-wrap
                                             id-sym-name&marks
                                             id-sym-name
                                             id?
                                             nonsymbol-id?
                                             global-extend
                                             lookup
                                             macros-only-env
                                             extend-var-env
                                             extend-env
                                             null-env
                                             binding-value
                                             binding-type
                                             make-binding
                                             arg-check
                                             source-annotation
                                             no-source
                                             set-syntax-object-module!
                                             set-syntax-object-wrap!
                                             set-syntax-object-expression!
                                             syntax-object-module
                                             syntax-object-wrap
                                             syntax-object-expression
                                             syntax-object?
                                             make-syntax-object
                                             build-lexical-var
                                             build-letrec
                                             build-named-let
                                             build-let
                                             build-sequence
                                             build-data
                                             build-primref
                                             build-lambda
                                             build-global-definition
                                             maybe-name-value!
                                             build-global-assignment
                                             build-global-reference
                                             analyze-variable
                                             build-lexical-assignment
                                             build-lexical-reference
                                             build-conditional
                                             build-application
                                             build-void
                                             decorate-source
                                             get-global-definition-hook
                                             put-global-definition-hook
                                             gensym-hook
                                             local-eval-hook
                                             top-level-eval-hook
                                             fx<
                                             fx=
                                             fx-
                                             fx+
                                             *mode*
                                             noexpand)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"
                                            "i"))
                                         #(ribcage
                                           (define-structure and-map*)
                                           ((top) (top))
                                           ("i" "i")))
                                        (hygiene guile))
                                     mod1178))))
                         tmp1172)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    tmp1171)))
              ($sc-dispatch tmp1171 (quote (any each-any any)))))
           e1170)))
      (global-extend113
        'core
        'if
        (lambda (e1181 r1182 w1183 s1184 mod1185)
          ((lambda (tmp1186)
             ((lambda (tmp1187)
                (if tmp1187
                  (apply (lambda (_1188 test1189 then1190)
                           (build-conditional83
                             s1184
                             (chi151 test1189 r1182 w1183 mod1185)
                             (chi151 then1190 r1182 w1183 mod1185)
                             (build-void81 #f)))
                         tmp1187)
                  ((lambda (tmp1191)
                     (if tmp1191
                       (apply (lambda (_1192 test1193 then1194 else1195)
                                (build-conditional83
                                  s1184
                                  (chi151 test1193 r1182 w1183 mod1185)
                                  (chi151 then1194 r1182 w1183 mod1185)
                                  (chi151 else1195 r1182 w1183 mod1185)))
                              tmp1191)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         tmp1186)))
                   ($sc-dispatch tmp1186 (quote (any any any any))))))
              ($sc-dispatch tmp1186 (quote (any any any)))))
           e1181)))
      (global-extend113
        'begin
        'begin
        '())
      (global-extend113
        'define
        'define
        '())
      (global-extend113
        'define-syntax
        'define-syntax
        '())
      (global-extend113
        'eval-when
        'eval-when
        '())
      (global-extend113
        'core
        'syntax-case
        (letrec ((gen-syntax-case1199
                   (lambda (x1200 keys1201 clauses1202 r1203 mod1204)
                     (if (null? clauses1202)
                       (build-application82
                         #f
                         (build-primref92 #f (quote syntax-violation))
                         (list (build-data93 #f #f)
                               (build-data93
                                 #f
                                 "source expression failed to match any pattern")
                               x1200))
                       ((lambda (tmp1205)
                          ((lambda (tmp1206)
                             (if tmp1206
                               (apply (lambda (pat1207 exp1208)
                                        (if (if (id?115 pat1207)
                                              (and-map
                                                (lambda (x1209)
                                                  (not (free-id=?138
                                                         pat1207
                                                         x1209)))
                                                (cons '#(syntax-object
                                                         ...
                                                         ((top)
                                                          #(ribcage
                                                            #(pat exp)
                                                            #((top) (top))
                                                            #("i" "i"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x
                                                              keys
                                                              clauses
                                                              r
                                                              mod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i"
                                                              "i"
                                                              "i"
                                                              "i"
                                                              "i"))
                                                          #(ribcage
                                                            (gen-syntax-case
                                                              gen-clause
                                                              build-dispatch-call
                                                              convert-pattern)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i" "i" "i" "i"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
                                                              strip
                                                              ellipsis?
                                                              chi-void
                                                              eval-local-transformer
                                                              chi-local-syntax
                                                              chi-lambda-clause
                                                              chi-body
                                                              chi-macro
                                                              chi-application
                                                              chi-expr
                                                              chi
                                                              chi-top
                                                              syntax-type
                                                              chi-when-list
                                                              chi-install-global
                                                              chi-top-sequence
                                                              chi-sequence
                                                              source-wrap
                                                              wrap
                                                              bound-id-member?
                                                              distinct-bound-ids?
                                                              valid-bound-ids?
                                                              bound-id=?
                                                              free-id=?
                                                              id-var-name
                                                              same-marks?
                                                              join-marks
                                                              join-wraps
                                                              smart-append
                                                              make-binding-wrap
                                                              extend-ribcage!
                                                              make-empty-ribcage
                                                              new-mark
                                                              anti-mark
                                                              the-anti-mark
                                                              top-marked?
                                                              top-wrap
                                                              empty-wrap
                                                              set-ribcage-labels!
                                                              set-ribcage-marks!
                                                              set-ribcage-symnames!
                                                              ribcage-labels
                                                              ribcage-marks
                                                              ribcage-symnames
                                                              ribcage?
                                                              make-ribcage
                                                              gen-labels
                                                              gen-label
                                                              make-rename
                                                              rename-marks
                                                              rename-new
                                                              rename-old
                                                              subst-rename?
                                                              wrap-subst
                                                              wrap-marks
                                                              make-wrap
                                                              id-sym-name&marks
                                                              id-sym-name
                                                              id?
                                                              nonsymbol-id?
                                                              global-extend
                                                              lookup
                                                              macros-only-env
                                                              extend-var-env
                                                              extend-env
                                                              null-env
                                                              binding-value
                                                              binding-type
                                                              make-binding
                                                              arg-check
                                                              source-annotation
                                                              no-source
                                                              set-syntax-object-module!
                                                              set-syntax-object-wrap!
                                                              set-syntax-object-expression!
                                                              syntax-object-module
                                                              syntax-object-wrap
                                                              syntax-object-expression
                                                              syntax-object?
                                                              make-syntax-object
                                                              build-lexical-var
                                                              build-letrec
                                                              build-named-let
                                                              build-let
                                                              build-sequence
                                                              build-data
                                                              build-primref
                                                              build-lambda
                                                              build-global-definition
                                                              maybe-name-value!
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-conditional
                                                              build-application
                                                              build-void
                                                              decorate-source
                                                              get-global-definition-hook
                                                              put-global-definition-hook
                                                              gensym-hook
                                                              local-eval-hook
                                                              top-level-eval-hook
                                                              fx<
                                                              fx=
                                                              fx-
                                                              fx+
                                                              *mode*
                                                              noexpand)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"
                                                             "i"))
                                                          #(ribcage
                                                            (define-structure
                                                              and-map*)
                                                            ((top) (top))
                                                            ("i" "i")))
                                                         (hygiene guile))
                                                      keys1201))
                                              #f)
                                          (let ((labels1210
                                                  (list (gen-label120)))
                                                (var1211 (gen-var162 pat1207)))
                                            (build-application82
                                              #f
                                              (build-lambda91
                                                #f
                                                (list (syntax->datum pat1207))
                                                (list var1211)
                                                #f
                                                (chi151
                                                  exp1208
                                                  (extend-env109
                                                    labels1210
                                                    (list (cons 'syntax
                                                                (cons var1211
                                                                      0)))
                                                    r1203)
                                                  (make-binding-wrap132
                                                    (list pat1207)
                                                    labels1210
                                                    '(()))
                                                  mod1204))
                                              (list x1200)))
                                          (gen-clause1198
                                            x1200
                                            keys1201
                                            (cdr clauses1202)
                                            r1203
                                            pat1207
                                            #t
                                            exp1208
                                            mod1204)))
                                      tmp1206)
                               ((lambda (tmp1212)
                                  (if tmp1212
                                    (apply (lambda (pat1213 fender1214 exp1215)
                                             (gen-clause1198
                                               x1200
                                               keys1201
                                               (cdr clauses1202)
                                               r1203
                                               pat1213
                                               fender1214
                                               exp1215
                                               mod1204))
                                           tmp1212)
                                    ((lambda (_1216)
                                       (syntax-violation
                                         'syntax-case
                                         "invalid clause"
                                         (car clauses1202)))
                                     tmp1205)))
                                ($sc-dispatch tmp1205 (quote (any any any))))))
                           ($sc-dispatch tmp1205 (quote (any any)))))
                        (car clauses1202)))))
                 (gen-clause1198
                   (lambda (x1217
                            keys1218
                            clauses1219
                            r1220
                            pat1221
                            fender1222
                            exp1223
                            mod1224)
                     (call-with-values
                       (lambda ()
                         (convert-pattern1196 pat1221 keys1218))
                       (lambda (p1225 pvars1226)
                         (if (not (distinct-bound-ids?141 (map car pvars1226)))
                           (syntax-violation
                             'syntax-case
                             "duplicate pattern variable"
                             pat1221)
                           (if (not (and-map
                                      (lambda (x1227)
                                        (not (ellipsis?160 (car x1227))))
                                      pvars1226))
                             (syntax-violation
                               'syntax-case
                               "misplaced ellipsis"
                               pat1221)
                             (let ((y1228 (gen-var162 (quote tmp))))
                               (build-application82
                                 #f
                                 (build-lambda91
                                   #f
                                   (list (quote tmp))
                                   (list y1228)
                                   #f
                                   (let ((y1229 (build-lexical-reference84
                                                  'value
                                                  #f
                                                  'tmp
                                                  y1228)))
                                     (build-conditional83
                                       #f
                                       ((lambda (tmp1230)
                                          ((lambda (tmp1231)
                                             (if tmp1231
                                               (apply (lambda () y1229)
                                                      tmp1231)
                                               ((lambda (_1232)
                                                  (build-conditional83
                                                    #f
                                                    y1229
                                                    (build-dispatch-call1197
                                                      pvars1226
                                                      fender1222
                                                      y1229
                                                      r1220
                                                      mod1224)
                                                    (build-data93 #f #f)))
                                                tmp1230)))
                                           ($sc-dispatch
                                             tmp1230
                                             '#(atom #t))))
                                        fender1222)
                                       (build-dispatch-call1197
                                         pvars1226
                                         exp1223
                                         y1229
                                         r1220
                                         mod1224)
                                       (gen-syntax-case1199
                                         x1217
                                         keys1218
                                         clauses1219
                                         r1220
                                         mod1224))))
                                 (list (if (eq? p1225 (quote any))
                                         (build-application82
                                           #f
                                           (build-primref92 #f (quote list))
                                           (list x1217))
                                         (build-application82
                                           #f
                                           (build-primref92
                                             #f
                                             '$sc-dispatch)
                                           (list x1217
                                                 (build-data93
                                                   #f
                                                   p1225)))))))))))))
                 (build-dispatch-call1197
                   (lambda (pvars1233 exp1234 y1235 r1236 mod1237)
                     (let ((ids1238 (map car pvars1233))
                           (levels1239 (map cdr pvars1233)))
                       (let ((labels1240 (gen-labels121 ids1238))
                             (new-vars1241 (map gen-var162 ids1238)))
                         (build-application82
                           #f
                           (build-primref92 #f (quote apply))
                           (list (build-lambda91
                                   #f
                                   (map syntax->datum ids1238)
                                   new-vars1241
                                   #f
                                   (chi151
                                     exp1234
                                     (extend-env109
                                       labels1240
                                       (map (lambda (var1242 level1243)
                                              (cons 'syntax
                                                    (cons var1242 level1243)))
                                            new-vars1241
                                            (map cdr pvars1233))
                                       r1236)
                                     (make-binding-wrap132
                                       ids1238
                                       labels1240
                                       '(()))
                                     mod1237))
                                 y1235))))))
                 (convert-pattern1196
                   (lambda (pattern1244 keys1245)
                     (letrec ((cvt1246
                                (lambda (p1247 n1248 ids1249)
                                  (if (id?115 p1247)
                                    (if (bound-id-member?142 p1247 keys1245)
                                      (values
                                        (vector (quote free-id) p1247)
                                        ids1249)
                                      (values
                                        'any
                                        (cons (cons p1247 n1248) ids1249)))
                                    ((lambda (tmp1250)
                                       ((lambda (tmp1251)
                                          (if (if tmp1251
                                                (apply (lambda (x1252 dots1253)
                                                         (ellipsis?160
                                                           dots1253))
                                                       tmp1251)
                                                #f)
                                            (apply (lambda (x1254 dots1255)
                                                     (call-with-values
                                                       (lambda ()
                                                         (cvt1246
                                                           x1254
                                                           (fx+72 n1248 1)
                                                           ids1249))
                                                       (lambda (p1256 ids1257)
                                                         (values
                                                           (if (eq? p1256
                                                                    'any)
                                                             'each-any
                                                             (vector
                                                               'each
                                                               p1256))
                                                           ids1257))))
                                                   tmp1251)
                                            ((lambda (tmp1258)
                                               (if tmp1258
                                                 (apply (lambda (x1259 y1260)
                                                          (call-with-values
                                                            (lambda ()
                                                              (cvt1246
                                                                y1260
                                                                n1248
                                                                ids1249))
                                                            (lambda (y1261
                                                                     ids1262)
                                                              (call-with-values
                                                                (lambda ()
                                                                  (cvt1246
                                                                    x1259
                                                                    n1248
                                                                    ids1262))
                                                                (lambda (x1263
                                                                         ids1264)
                                                                  (values
                                                                    (cons x1263
                                                                          y1261)
                                                                    ids1264))))))
                                                        tmp1258)
                                                 ((lambda (tmp1265)
                                                    (if tmp1265
                                                      (apply (lambda ()
                                                               (values
                                                                 '()
                                                                 ids1249))
                                                             tmp1265)
                                                      ((lambda (tmp1266)
                                                         (if tmp1266
                                                           (apply (lambda (x1267)
                                                                    (call-with-values
                                                                      (lambda ()
                                                                        (cvt1246
                                                                          x1267
                                                                          n1248
                                                                          ids1249))
                                                                      (lambda (p1269
                                                                               ids1270)
                                                                        (values
                                                                          (vector
                                                                            'vector
                                                                            p1269)
                                                                          ids1270))))
                                                                  tmp1266)
                                                           ((lambda (x1271)
                                                              (values
                                                                (vector
                                                                  'atom
                                                                  (strip161
                                                                    p1247
                                                                    '(())))
                                                                ids1249))
                                                            tmp1250)))
                                                       ($sc-dispatch
                                                         tmp1250
                                                         '#(vector
                                                            each-any)))))
                                                  ($sc-dispatch
                                                    tmp1250
                                                    '()))))
                                             ($sc-dispatch
                                               tmp1250
                                               '(any . any)))))
                                        ($sc-dispatch
                                          tmp1250
                                          '(any any))))
                                     p1247)))))
                       (cvt1246 pattern1244 0 (quote ()))))))
          (lambda (e1272 r1273 w1274 s1275 mod1276)
            (let ((e1277 (source-wrap144 e1272 w1274 s1275 mod1276)))
              ((lambda (tmp1278)
                 ((lambda (tmp1279)
                    (if tmp1279
                      (apply (lambda (_1280 val1281 key1282 m1283)
                               (if (and-map
                                     (lambda (x1284)
                                       (if (id?115 x1284)
                                         (not (ellipsis?160 x1284))
                                         #f))
                                     key1282)
                                 (let ((x1286 (gen-var162 (quote tmp))))
                                   (build-application82
                                     s1275
                                     (build-lambda91
                                       #f
                                       (list (quote tmp))
                                       (list x1286)
                                       #f
                                       (gen-syntax-case1199
                                         (build-lexical-reference84
                                           'value
                                           #f
                                           'tmp
                                           x1286)
                                         key1282
                                         m1283
                                         r1273
                                         mod1276))
                                     (list (chi151
                                             val1281
                                             r1273
                                             '(())
                                             mod1276))))
                                 (syntax-violation
                                   'syntax-case
                                   "invalid literals list"
                                   e1277)))
                             tmp1279)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        tmp1278)))
                  ($sc-dispatch
                    tmp1278
                    '(any any each-any . each-any))))
               e1277)))))
      (set! sc-expand
        (lambda (x1290 . rest1289)
          (if (if (pair? x1290)
                (equal? (car x1290) noexpand70)
                #f)
            (cadr x1290)
            (let ((m1291 (if (null? rest1289) (quote e) (car rest1289)))
                  (esew1292
                    (if (let ((t1293 (null? rest1289)))
                          (if t1293 t1293 (null? (cdr rest1289))))
                      '(eval)
                      (cadr rest1289))))
              (with-fluid*
                *mode*71
                m1291
                (lambda ()
                  (chi-top150
                    x1290
                    '()
                    '((top))
                    m1291
                    esew1292
                    (cons 'hygiene
                          (module-name (current-module))))))))))
      (set! identifier?
        (lambda (x1294) (nonsymbol-id?114 x1294)))
      (set! datum->syntax
        (lambda (id1295 datum1296)
          (make-syntax-object98
            datum1296
            (syntax-object-wrap101 id1295)
            #f)))
      (set! syntax->datum
        (lambda (x1297) (strip161 x1297 (quote (())))))
      (set! generate-temporaries
        (lambda (ls1298)
          (begin
            (let ((x1299 ls1298))
              (if (not (list? x1299))
                (syntax-violation
                  'generate-temporaries
                  "invalid argument"
                  x1299)))
            (map (lambda (x1300)
                   (wrap143 (gensym) (quote ((top))) #f))
                 ls1298))))
      (set! free-identifier=?
        (lambda (x1301 y1302)
          (begin
            (let ((x1303 x1301))
              (if (not (nonsymbol-id?114 x1303))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  x1303)))
            (let ((x1304 y1302))
              (if (not (nonsymbol-id?114 x1304))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  x1304)))
            (free-id=?138 x1301 y1302))))
      (set! bound-identifier=?
        (lambda (x1305 y1306)
          (begin
            (let ((x1307 x1305))
              (if (not (nonsymbol-id?114 x1307))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  x1307)))
            (let ((x1308 y1306))
              (if (not (nonsymbol-id?114 x1308))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  x1308)))
            (bound-id=?139 x1305 y1306))))
      (set! syntax-violation
        (lambda (who1312 message1311 form1310 . subform1309)
          (begin
            (let ((x1313 who1312))
              (if (not ((lambda (x1314)
                          (let ((t1315 (not x1314)))
                            (if t1315
                              t1315
                              (let ((t1316 (string? x1314)))
                                (if t1316 t1316 (symbol? x1314))))))
                        x1313))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  x1313)))
            (let ((x1317 message1311))
              (if (not (string? x1317))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  x1317)))
            (scm-error
              'syntax-error
              'sc-expand
              (string-append
                (if who1312 "~a: " "")
                "~a "
                (if (null? subform1309)
                  "in ~a"
                  "in subform `~s' of `~s'"))
              (let ((tail1318
                      (cons message1311
                            (map (lambda (x1319) (strip161 x1319 (quote (()))))
                                 (append subform1309 (list form1310))))))
                (if who1312 (cons who1312 tail1318) tail1318))
              #f))))
      (letrec ((match1324
                 (lambda (e1325 p1326 w1327 r1328 mod1329)
                   (if (not r1328)
                     #f
                     (if (eq? p1326 (quote any))
                       (cons (wrap143 e1325 w1327 mod1329) r1328)
                       (if (syntax-object?99 e1325)
                         (match*1323
                           (syntax-object-expression100 e1325)
                           p1326
                           (join-wraps134
                             w1327
                             (syntax-object-wrap101 e1325))
                           r1328
                           (syntax-object-module102 e1325))
                         (match*1323 e1325 p1326 w1327 r1328 mod1329))))))
               (match*1323
                 (lambda (e1330 p1331 w1332 r1333 mod1334)
                   (if (null? p1331)
                     (if (null? e1330) r1333 #f)
                     (if (pair? p1331)
                       (if (pair? e1330)
                         (match1324
                           (car e1330)
                           (car p1331)
                           w1332
                           (match1324
                             (cdr e1330)
                             (cdr p1331)
                             w1332
                             r1333
                             mod1334)
                           mod1334)
                         #f)
                       (if (eq? p1331 (quote each-any))
                         (let ((l1335 (match-each-any1321
                                        e1330
                                        w1332
                                        mod1334)))
                           (if l1335 (cons l1335 r1333) #f))
                         (let ((atom-key1336 (vector-ref p1331 0)))
                           (if (memv atom-key1336 (quote (each)))
                             (if (null? e1330)
                               (match-empty1322 (vector-ref p1331 1) r1333)
                               (let ((l1337 (match-each1320
                                              e1330
                                              (vector-ref p1331 1)
                                              w1332
                                              mod1334)))
                                 (if l1337
                                   (letrec ((collect1338
                                              (lambda (l1339)
                                                (if (null? (car l1339))
                                                  r1333
                                                  (cons (map car l1339)
                                                        (collect1338
                                                          (map cdr l1339)))))))
                                     (collect1338 l1337))
                                   #f)))
                             (if (memv atom-key1336 (quote (free-id)))
                               (if (id?115 e1330)
                                 (if (free-id=?138
                                       (wrap143 e1330 w1332 mod1334)
                                       (vector-ref p1331 1))
                                   r1333
                                   #f)
                                 #f)
                               (if (memv atom-key1336 (quote (atom)))
                                 (if (equal?
                                       (vector-ref p1331 1)
                                       (strip161 e1330 w1332))
                                   r1333
                                   #f)
                                 (if (memv atom-key1336 (quote (vector)))
                                   (if (vector? e1330)
                                     (match1324
                                       (vector->list e1330)
                                       (vector-ref p1331 1)
                                       w1332
                                       r1333
                                       mod1334)
                                     #f)))))))))))
               (match-empty1322
                 (lambda (p1340 r1341)
                   (if (null? p1340)
                     r1341
                     (if (eq? p1340 (quote any))
                       (cons (quote ()) r1341)
                       (if (pair? p1340)
                         (match-empty1322
                           (car p1340)
                           (match-empty1322 (cdr p1340) r1341))
                         (if (eq? p1340 (quote each-any))
                           (cons (quote ()) r1341)
                           (let ((atom-key1342 (vector-ref p1340 0)))
                             (if (memv atom-key1342 (quote (each)))
                               (match-empty1322 (vector-ref p1340 1) r1341)
                               (if (memv atom-key1342 (quote (free-id atom)))
                                 r1341
                                 (if (memv atom-key1342 (quote (vector)))
                                   (match-empty1322
                                     (vector-ref p1340 1)
                                     r1341)))))))))))
               (match-each-any1321
                 (lambda (e1343 w1344 mod1345)
                   (if (pair? e1343)
                     (let ((l1346 (match-each-any1321
                                    (cdr e1343)
                                    w1344
                                    mod1345)))
                       (if l1346
                         (cons (wrap143 (car e1343) w1344 mod1345) l1346)
                         #f))
                     (if (null? e1343)
                       '()
                       (if (syntax-object?99 e1343)
                         (match-each-any1321
                           (syntax-object-expression100 e1343)
                           (join-wraps134
                             w1344
                             (syntax-object-wrap101 e1343))
                           mod1345)
                         #f)))))
               (match-each1320
                 (lambda (e1347 p1348 w1349 mod1350)
                   (if (pair? e1347)
                     (let ((first1351
                             (match1324
                               (car e1347)
                               p1348
                               w1349
                               '()
                               mod1350)))
                       (if first1351
                         (let ((rest1352
                                 (match-each1320
                                   (cdr e1347)
                                   p1348
                                   w1349
                                   mod1350)))
                           (if rest1352 (cons first1351 rest1352) #f))
                         #f))
                     (if (null? e1347)
                       '()
                       (if (syntax-object?99 e1347)
                         (match-each1320
                           (syntax-object-expression100 e1347)
                           p1348
                           (join-wraps134
                             w1349
                             (syntax-object-wrap101 e1347))
                           (syntax-object-module102 e1347))
                         #f))))))
        (set! $sc-dispatch
          (lambda (e1353 p1354)
            (if (eq? p1354 (quote any))
              (list e1353)
              (if (syntax-object?99 e1353)
                (match*1323
                  (syntax-object-expression100 e1353)
                  p1354
                  (syntax-object-wrap101 e1353)
                  '()
                  (syntax-object-module102 e1353))
                (match*1323
                  e1353
                  p1354
                  '(())
                  '()
                  #f)))))))))

(define with-syntax
  (make-syncase-macro
    'macro
    (lambda (x1355)
      ((lambda (tmp1356)
         ((lambda (tmp1357)
            (if tmp1357
              (apply (lambda (_1358 e11359 e21360)
                       (cons '#(syntax-object
                                begin
                                ((top)
                                 #(ribcage
                                   #(_ e1 e2)
                                   #((top) (top) (top))
                                   #("i" "i" "i"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i")))
                                (hygiene guile))
                             (cons e11359 e21360)))
                     tmp1357)
              ((lambda (tmp1362)
                 (if tmp1362
                   (apply (lambda (_1363 out1364 in1365 e11366 e21367)
                            (list '#(syntax-object
                                     syntax-case
                                     ((top)
                                      #(ribcage
                                        #(_ out in e1 e2)
                                        #((top) (top) (top) (top) (top))
                                        #("i" "i" "i" "i" "i"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i")))
                                     (hygiene guile))
                                  in1365
                                  '()
                                  (list out1364
                                        (cons '#(syntax-object
                                                 begin
                                                 ((top)
                                                  #(ribcage
                                                    #(_ out in e1 e2)
                                                    #((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                    #("i" "i" "i" "i" "i"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i")))
                                                 (hygiene guile))
                                              (cons e11366 e21367)))))
                          tmp1362)
                   ((lambda (tmp1369)
                      (if tmp1369
                        (apply (lambda (_1370 out1371 in1372 e11373 e21374)
                                 (list '#(syntax-object
                                          syntax-case
                                          ((top)
                                           #(ribcage
                                             #(_ out in e1 e2)
                                             #((top) (top) (top) (top) (top))
                                             #("i" "i" "i" "i" "i"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i")))
                                          (hygiene guile))
                                       (cons '#(syntax-object
                                                list
                                                ((top)
                                                 #(ribcage
                                                   #(_ out in e1 e2)
                                                   #((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                   #("i" "i" "i" "i" "i"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i")))
                                                (hygiene guile))
                                             in1372)
                                       '()
                                       (list out1371
                                             (cons '#(syntax-object
                                                      begin
                                                      ((top)
                                                       #(ribcage
                                                         #(_ out in e1 e2)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i"
                                                           "i"
                                                           "i"
                                                           "i"
                                                           "i"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i")))
                                                      (hygiene guile))
                                                   (cons e11373 e21374)))))
                               tmp1369)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          tmp1356)))
                    ($sc-dispatch
                      tmp1356
                      '(any #(each (any any)) any . each-any)))))
               ($sc-dispatch
                 tmp1356
                 '(any ((any any)) any . each-any)))))
          ($sc-dispatch
            tmp1356
            '(any () any . each-any))))
       x1355))))

(define syntax-rules
  (make-syncase-macro
    'macro
    (lambda (x1378)
      ((lambda (tmp1379)
         ((lambda (tmp1380)
            (if tmp1380
              (apply (lambda (_1381
                              k1382
                              keyword1383
                              pattern1384
                              template1385)
                       (list '#(syntax-object
                                lambda
                                ((top)
                                 #(ribcage
                                   #(_ k keyword pattern template)
                                   #((top) (top) (top) (top) (top))
                                   #("i" "i" "i" "i" "i"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i")))
                                (hygiene guile))
                             '(#(syntax-object
                                 x
                                 ((top)
                                  #(ribcage
                                    #(_ k keyword pattern template)
                                    #((top) (top) (top) (top) (top))
                                    #("i" "i" "i" "i" "i"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i")))
                                 (hygiene guile)))
                             (cons '#(syntax-object
                                      syntax-case
                                      ((top)
                                       #(ribcage
                                         #(_ k keyword pattern template)
                                         #((top) (top) (top) (top) (top))
                                         #("i" "i" "i" "i" "i"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i")))
                                      (hygiene guile))
                                   (cons '#(syntax-object
                                            x
                                            ((top)
                                             #(ribcage
                                               #(_ k keyword pattern template)
                                               #((top) (top) (top) (top) (top))
                                               #("i" "i" "i" "i" "i"))
                                             #(ribcage () () ())
                                             #(ribcage #(x) #((top)) #("i")))
                                            (hygiene guile))
                                         (cons k1382
                                               (map (lambda (tmp1388 tmp1387)
                                                      (list (cons '#(syntax-object
                                                                     dummy
                                                                     ((top)
                                                                      #(ribcage
                                                                        #(_
                                                                          k
                                                                          keyword
                                                                          pattern
                                                                          template)
                                                                        #((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                        #("i"
                                                                          "i"
                                                                          "i"
                                                                          "i"
                                                                          "i"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(x)
                                                                        #((top))
                                                                        #("i")))
                                                                     (hygiene
                                                                       guile))
                                                                  tmp1387)
                                                            (list '#(syntax-object
                                                                     syntax
                                                                     ((top)
                                                                      #(ribcage
                                                                        #(_
                                                                          k
                                                                          keyword
                                                                          pattern
                                                                          template)
                                                                        #((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                        #("i"
                                                                          "i"
                                                                          "i"
                                                                          "i"
                                                                          "i"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(x)
                                                                        #((top))
                                                                        #("i")))
                                                                     (hygiene
                                                                       guile))
                                                                  tmp1388)))
                                                    template1385
                                                    pattern1384))))))
                     tmp1380)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1379)))
          ($sc-dispatch
            tmp1379
            '(any each-any . #(each ((any . any) any))))))
       x1378))))

(define let*
  (make-extended-syncase-macro
    (module-ref (current-module) (quote let*))
    'macro
    (lambda (x1389)
      ((lambda (tmp1390)
         ((lambda (tmp1391)
            (if (if tmp1391
                  (apply (lambda (let*1392 x1393 v1394 e11395 e21396)
                           (and-map identifier? x1393))
                         tmp1391)
                  #f)
              (apply (lambda (let*1398 x1399 v1400 e11401 e21402)
                       (letrec ((f1403 (lambda (bindings1404)
                                         (if (null? bindings1404)
                                           (cons '#(syntax-object
                                                    let
                                                    ((top)
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f bindings)
                                                       #((top) (top))
                                                       #("i" "i"))
                                                     #(ribcage
                                                       #(let* x v e1 e2)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                       #("i" "i" "i" "i" "i"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i")))
                                                    (hygiene guile))
                                                 (cons '()
                                                       (cons e11401 e21402)))
                                           ((lambda (tmp1408)
                                              ((lambda (tmp1409)
                                                 (if tmp1409
                                                   (apply (lambda (body1410
                                                                   binding1411)
                                                            (list '#(syntax-object
                                                                     let
                                                                     ((top)
                                                                      #(ribcage
                                                                        #(body
                                                                          binding)
                                                                        #((top)
                                                                          (top))
                                                                        #("i"
                                                                          "i"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(f
                                                                          bindings)
                                                                        #((top)
                                                                          (top))
                                                                        #("i"
                                                                          "i"))
                                                                      #(ribcage
                                                                        #(let*
                                                                          x
                                                                          v
                                                                          e1
                                                                          e2)
                                                                        #((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                        #("i"
                                                                          "i"
                                                                          "i"
                                                                          "i"
                                                                          "i"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(x)
                                                                        #((top))
                                                                        #("i")))
                                                                     (hygiene
                                                                       guile))
                                                                  (list binding1411)
                                                                  body1410))
                                                          tmp1409)
                                                   (syntax-violation
                                                     #f
                                                     "source expression failed to match any pattern"
                                                     tmp1408)))
                                               ($sc-dispatch
                                                 tmp1408
                                                 '(any any))))
                                            (list (f1403 (cdr bindings1404))
                                                  (car bindings1404)))))))
                         (f1403 (map list x1399 v1400))))
                     tmp1391)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1390)))
          ($sc-dispatch
            tmp1390
            '(any #(each (any any)) any . each-any))))
       x1389))))

(define do
  (make-extended-syncase-macro
    (module-ref (current-module) (quote do))
    'macro
    (lambda (orig-x1412)
      ((lambda (tmp1413)
         ((lambda (tmp1414)
            (if tmp1414
              (apply (lambda (_1415
                              var1416
                              init1417
                              step1418
                              e01419
                              e11420
                              c1421)
                       ((lambda (tmp1422)
                          ((lambda (tmp1423)
                             (if tmp1423
                               (apply (lambda (step1424)
                                        ((lambda (tmp1425)
                                           ((lambda (tmp1426)
                                              (if tmp1426
                                                (apply (lambda ()
                                                         (list '#(syntax-object
                                                                  let
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(step)
                                                                     #((top))
                                                                     #("i"))
                                                                   #(ribcage
                                                                     #(_
                                                                       var
                                                                       init
                                                                       step
                                                                       e0
                                                                       e1
                                                                       c)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(orig-x)
                                                                     #((top))
                                                                     #("i")))
                                                                  (hygiene
                                                                    guile))
                                                               '#(syntax-object
                                                                  doloop
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(step)
                                                                     #((top))
                                                                     #("i"))
                                                                   #(ribcage
                                                                     #(_
                                                                       var
                                                                       init
                                                                       step
                                                                       e0
                                                                       e1
                                                                       c)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"
                                                                       "i"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(orig-x)
                                                                     #((top))
                                                                     #("i")))
                                                                  (hygiene
                                                                    guile))
                                                               (map list
                                                                    var1416
                                                                    init1417)
                                                               (list '#(syntax-object
                                                                        if
                                                                        ((top)
                                                                         #(ribcage
                                                                           #(step)
                                                                           #((top))
                                                                           #("i"))
                                                                         #(ribcage
                                                                           #(_
                                                                             var
                                                                             init
                                                                             step
                                                                             e0
                                                                             e1
                                                                             c)
                                                                           #((top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top))
                                                                           #("i"
                                                                             "i"
                                                                             "i"
                                                                             "i"
                                                                             "i"
                                                                             "i"
                                                                             "i"))
                                                                         #(ribcage
                                                                           ()
                                                                           ()
                                                                           ())
                                                                         #(ribcage
                                                                           #(orig-x)
                                                                           #((top))
                                                                           #("i")))
                                                                        (hygiene
                                                                          guile))
                                                                     (list '#(syntax-object
                                                                              not
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(step)
                                                                                 #((top))
                                                                                 #("i"))
                                                                               #(ribcage
                                                                                 #(_
                                                                                   var
                                                                                   init
                                                                                   step
                                                                                   e0
                                                                                   e1
                                                                                   c)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(orig-x)
                                                                                 #((top))
                                                                                 #("i")))
                                                                              (hygiene
                                                                                guile))
                                                                           e01419)
                                                                     (cons '#(syntax-object
                                                                              begin
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(step)
                                                                                 #((top))
                                                                                 #("i"))
                                                                               #(ribcage
                                                                                 #(_
                                                                                   var
                                                                                   init
                                                                                   step
                                                                                   e0
                                                                                   e1
                                                                                   c)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"
                                                                                   "i"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(orig-x)
                                                                                 #((top))
                                                                                 #("i")))
                                                                              (hygiene
                                                                                guile))
                                                                           (append
                                                                             c1421
                                                                             (list (cons '#(syntax-object
                                                                                            doloop
                                                                                            ((top)
                                                                                             #(ribcage
                                                                                               #(step)
                                                                                               #((top))
                                                                                               #("i"))
                                                                                             #(ribcage
                                                                                               #(_
                                                                                                 var
                                                                                                 init
                                                                                                 step
                                                                                                 e0
                                                                                                 e1
                                                                                                 c)
                                                                                               #((top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top))
                                                                                               #("i"
                                                                                                 "i"
                                                                                                 "i"
                                                                                                 "i"
                                                                                                 "i"
                                                                                                 "i"
                                                                                                 "i"))
                                                                                             #(ribcage
                                                                                               ()
                                                                                               ()
                                                                                               ())
                                                                                             #(ribcage
                                                                                               #(orig-x)
                                                                                               #((top))
                                                                                               #("i")))
                                                                                            (hygiene
                                                                                              guile))
                                                                                         step1424)))))))
                                                       tmp1426)
                                                ((lambda (tmp1431)
                                                   (if tmp1431
                                                     (apply (lambda (e11432
                                                                     e21433)
                                                              (list '#(syntax-object
                                                                       let
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i"
                                                                            "i"))
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i"))
                                                                        #(ribcage
                                                                          #(_
                                                                            var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i")))
                                                                       (hygiene
                                                                         guile))
                                                                    '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i"
                                                                            "i"))
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i"))
                                                                        #(ribcage
                                                                          #(_
                                                                            var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"
                                                                            "i"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i")))
                                                                       (hygiene
                                                                         guile))
                                                                    (map list
                                                                         var1416
                                                                         init1417)
                                                                    (list '#(syntax-object
                                                                             if
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(e1
                                                                                  e2)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i"
                                                                                  "i"))
                                                                              #(ribcage
                                                                                #(step)
                                                                                #((top))
                                                                                #("i"))
                                                                              #(ribcage
                                                                                #(_
                                                                                  var
                                                                                  init
                                                                                  step
                                                                                  e0
                                                                                  e1
                                                                                  c)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(orig-x)
                                                                                #((top))
                                                                                #("i")))
                                                                             (hygiene
                                                                               guile))
                                                                          e01419
                                                                          (cons '#(syntax-object
                                                                                   begin
                                                                                   ((top)
                                                                                    #(ribcage
                                                                                      #(e1
                                                                                        e2)
                                                                                      #((top)
                                                                                        (top))
                                                                                      #("i"
                                                                                        "i"))
                                                                                    #(ribcage
                                                                                      #(step)
                                                                                      #((top))
                                                                                      #("i"))
                                                                                    #(ribcage
                                                                                      #(_
                                                                                        var
                                                                                        init
                                                                                        step
                                                                                        e0
                                                                                        e1
                                                                                        c)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(orig-x)
                                                                                      #((top))
                                                                                      #("i")))
                                                                                   (hygiene
                                                                                     guile))
                                                                                (cons e11432
                                                                                      e21433))
                                                                          (cons '#(syntax-object
                                                                                   begin
                                                                                   ((top)
                                                                                    #(ribcage
                                                                                      #(e1
                                                                                        e2)
                                                                                      #((top)
                                                                                        (top))
                                                                                      #("i"
                                                                                        "i"))
                                                                                    #(ribcage
                                                                                      #(step)
                                                                                      #((top))
                                                                                      #("i"))
                                                                                    #(ribcage
                                                                                      #(_
                                                                                        var
                                                                                        init
                                                                                        step
                                                                                        e0
                                                                                        e1
                                                                                        c)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"
                                                                                        "i"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(orig-x)
                                                                                      #((top))
                                                                                      #("i")))
                                                                                   (hygiene
                                                                                     guile))
                                                                                (append
                                                                                  c1421
                                                                                  (list (cons '#(syntax-object
                                                                                                 doloop
                                                                                                 ((top)
                                                                                                  #(ribcage
                                                                                                    #(e1
                                                                                                      e2)
                                                                                                    #((top)
                                                                                                      (top))
                                                                                                    #("i"
                                                                                                      "i"))
                                                                                                  #(ribcage
                                                                                                    #(step)
                                                                                                    #((top))
                                                                                                    #("i"))
                                                                                                  #(ribcage
                                                                                                    #(_
                                                                                                      var
                                                                                                      init
                                                                                                      step
                                                                                                      e0
                                                                                                      e1
                                                                                                      c)
                                                                                                    #((top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top))
                                                                                                    #("i"
                                                                                                      "i"
                                                                                                      "i"
                                                                                                      "i"
                                                                                                      "i"
                                                                                                      "i"
                                                                                                      "i"))
                                                                                                  #(ribcage
                                                                                                    ()
                                                                                                    ()
                                                                                                    ())
                                                                                                  #(ribcage
                                                                                                    #(orig-x)
                                                                                                    #((top))
                                                                                                    #("i")))
                                                                                                 (hygiene
                                                                                                   guile))
                                                                                              step1424)))))))
                                                            tmp1431)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       tmp1425)))
                                                 ($sc-dispatch
                                                   tmp1425
                                                   '(any . each-any)))))
                                            ($sc-dispatch tmp1425 (quote ()))))
                                         e11420))
                                      tmp1423)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 tmp1422)))
                           ($sc-dispatch tmp1422 (quote each-any))))
                        (map (lambda (v1440 s1441)
                               ((lambda (tmp1442)
                                  ((lambda (tmp1443)
                                     (if tmp1443
                                       (apply (lambda () v1440) tmp1443)
                                       ((lambda (tmp1444)
                                          (if tmp1444
                                            (apply (lambda (e1445) e1445)
                                                   tmp1444)
                                            ((lambda (_1446)
                                               (syntax-violation
                                                 'do
                                                 "bad step expression"
                                                 orig-x1412
                                                 s1441))
                                             tmp1442)))
                                        ($sc-dispatch tmp1442 (quote (any))))))
                                   ($sc-dispatch tmp1442 (quote ()))))
                                s1441))
                             var1416
                             step1418)))
                     tmp1414)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1413)))
          ($sc-dispatch
            tmp1413
            '(any #(each (any any . any))
                  (any . each-any)
                  .
                  each-any))))
       orig-x1412))))

(define quasiquote
  (make-extended-syncase-macro
    (module-ref (current-module) (quote quasiquote))
    'macro
    (letrec ((quasicons1449
               (lambda (x1453 y1454)
                 ((lambda (tmp1455)
                    ((lambda (tmp1456)
                       (if tmp1456
                         (apply (lambda (x1457 y1458)
                                  ((lambda (tmp1459)
                                     ((lambda (tmp1460)
                                        (if tmp1460
                                          (apply (lambda (dy1461)
                                                   ((lambda (tmp1462)
                                                      ((lambda (tmp1463)
                                                         (if tmp1463
                                                           (apply (lambda (dx1464)
                                                                    (list '#(syntax-object
                                                                             quote
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(dx)
                                                                                #((top))
                                                                                #("i"))
                                                                              #(ribcage
                                                                                #(dy)
                                                                                #((top))
                                                                                #("i"))
                                                                              #(ribcage
                                                                                #(x
                                                                                  y)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i"
                                                                                  "i"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(x
                                                                                  y)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i"
                                                                                  "i"))
                                                                              #(ribcage
                                                                                #(quasicons
                                                                                  quasiappend
                                                                                  quasivector
                                                                                  quasi)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i"
                                                                                  "i"
                                                                                  "i"
                                                                                  "i")))
                                                                             (hygiene
                                                                               guile))
                                                                          (cons dx1464
                                                                                dy1461)))
                                                                  tmp1463)
                                                           ((lambda (_1465)
                                                              (if (null? dy1461)
                                                                (list '#(syntax-object
                                                                         list
                                                                         ((top)
                                                                          #(ribcage
                                                                            #(_)
                                                                            #((top))
                                                                            #("i"))
                                                                          #(ribcage
                                                                            #(dy)
                                                                            #((top))
                                                                            #("i"))
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"))
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"))
                                                                          #(ribcage
                                                                            #(quasicons
                                                                              quasiappend
                                                                              quasivector
                                                                              quasi)
                                                                            #((top)
                                                                              (top)
                                                                              (top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"
                                                                              "i"
                                                                              "i")))
                                                                         (hygiene
                                                                           guile))
                                                                      x1457)
                                                                (list '#(syntax-object
                                                                         cons
                                                                         ((top)
                                                                          #(ribcage
                                                                            #(_)
                                                                            #((top))
                                                                            #("i"))
                                                                          #(ribcage
                                                                            #(dy)
                                                                            #((top))
                                                                            #("i"))
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"))
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"))
                                                                          #(ribcage
                                                                            #(quasicons
                                                                              quasiappend
                                                                              quasivector
                                                                              quasi)
                                                                            #((top)
                                                                              (top)
                                                                              (top)
                                                                              (top))
                                                                            #("i"
                                                                              "i"
                                                                              "i"
                                                                              "i")))
                                                                         (hygiene
                                                                           guile))
                                                                      x1457
                                                                      y1458)))
                                                            tmp1462)))
                                                       ($sc-dispatch
                                                         tmp1462
                                                         '(#(free-id
                                                             #(syntax-object
                                                               quote
                                                               ((top)
                                                                #(ribcage
                                                                  #(dy)
                                                                  #((top))
                                                                  #("i"))
                                                                #(ribcage
                                                                  #(x y)
                                                                  #((top)
                                                                    (top))
                                                                  #("i" "i"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  #(x y)
                                                                  #((top)
                                                                    (top))
                                                                  #("i" "i"))
                                                                #(ribcage
                                                                  #(quasicons
                                                                    quasiappend
                                                                    quasivector
                                                                    quasi)
                                                                  #((top)
                                                                    (top)
                                                                    (top)
                                                                    (top))
                                                                  #("i"
                                                                    "i"
                                                                    "i"
                                                                    "i")))
                                                               (hygiene
                                                                 guile)))
                                                           any))))
                                                    x1457))
                                                 tmp1460)
                                          ((lambda (tmp1466)
                                             (if tmp1466
                                               (apply (lambda (stuff1467)
                                                        (cons '#(syntax-object
                                                                 list
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(stuff)
                                                                    #((top))
                                                                    #("i"))
                                                                  #(ribcage
                                                                    #(x y)
                                                                    #((top)
                                                                      (top))
                                                                    #("i" "i"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x y)
                                                                    #((top)
                                                                      (top))
                                                                    #("i" "i"))
                                                                  #(ribcage
                                                                    #(quasicons
                                                                      quasiappend
                                                                      quasivector
                                                                      quasi)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i"
                                                                      "i"
                                                                      "i"
                                                                      "i")))
                                                                 (hygiene
                                                                   guile))
                                                              (cons x1457
                                                                    stuff1467)))
                                                      tmp1466)
                                               ((lambda (else1468)
                                                  (list '#(syntax-object
                                                           cons
                                                           ((top)
                                                            #(ribcage
                                                              #(else)
                                                              #((top))
                                                              #("i"))
                                                            #(ribcage
                                                              #(x y)
                                                              #((top) (top))
                                                              #("i" "i"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x y)
                                                              #((top) (top))
                                                              #("i" "i"))
                                                            #(ribcage
                                                              #(quasicons
                                                                quasiappend
                                                                quasivector
                                                                quasi)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("i"
                                                                "i"
                                                                "i"
                                                                "i")))
                                                           (hygiene guile))
                                                        x1457
                                                        y1458))
                                                tmp1459)))
                                           ($sc-dispatch
                                             tmp1459
                                             '(#(free-id
                                                 #(syntax-object
                                                   list
                                                   ((top)
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
                                                      #("i" "i"))
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
                                                      #("i" "i"))
                                                    #(ribcage
                                                      #(quasicons
                                                        quasiappend
                                                        quasivector
                                                        quasi)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i" "i" "i" "i")))
                                                   (hygiene guile)))
                                               .
                                               any)))))
                                      ($sc-dispatch
                                        tmp1459
                                        '(#(free-id
                                            #(syntax-object
                                              quote
                                              ((top)
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage
                                                 #(quasicons
                                                   quasiappend
                                                   quasivector
                                                   quasi)
                                                 #((top) (top) (top) (top))
                                                 #("i" "i" "i" "i")))
                                              (hygiene guile)))
                                          any))))
                                   y1458))
                                tmp1456)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           tmp1455)))
                     ($sc-dispatch tmp1455 (quote (any any)))))
                  (list x1453 y1454))))
             (quasiappend1450
               (lambda (x1469 y1470)
                 ((lambda (tmp1471)
                    ((lambda (tmp1472)
                       (if tmp1472
                         (apply (lambda (x1473 y1474)
                                  ((lambda (tmp1475)
                                     ((lambda (tmp1476)
                                        (if tmp1476
                                          (apply (lambda () x1473) tmp1476)
                                          ((lambda (_1477)
                                             (list '#(syntax-object
                                                      append
                                                      ((top)
                                                       #(ribcage
                                                         #(_)
                                                         #((top))
                                                         #("i"))
                                                       #(ribcage
                                                         #(x y)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage () () ())
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x y)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i" "i" "i" "i")))
                                                      (hygiene guile))
                                                   x1473
                                                   y1474))
                                           tmp1475)))
                                      ($sc-dispatch
                                        tmp1475
                                        '(#(free-id
                                            #(syntax-object
                                              quote
                                              ((top)
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage
                                                 #(quasicons
                                                   quasiappend
                                                   quasivector
                                                   quasi)
                                                 #((top) (top) (top) (top))
                                                 #("i" "i" "i" "i")))
                                              (hygiene guile)))
                                          ()))))
                                   y1474))
                                tmp1472)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           tmp1471)))
                     ($sc-dispatch tmp1471 (quote (any any)))))
                  (list x1469 y1470))))
             (quasivector1451
               (lambda (x1478)
                 ((lambda (tmp1479)
                    ((lambda (x1480)
                       ((lambda (tmp1481)
                          ((lambda (tmp1482)
                             (if tmp1482
                               (apply (lambda (x1483)
                                        (list '#(syntax-object
                                                 quote
                                                 ((top)
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i"))
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i"))
                                                  #(ribcage () () ())
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i"))
                                                  #(ribcage
                                                    #(quasicons
                                                      quasiappend
                                                      quasivector
                                                      quasi)
                                                    #((top) (top) (top) (top))
                                                    #("i" "i" "i" "i")))
                                                 (hygiene guile))
                                              (list->vector x1483)))
                                      tmp1482)
                               ((lambda (tmp1485)
                                  (if tmp1485
                                    (apply (lambda (x1486)
                                             (cons '#(syntax-object
                                                      vector
                                                      ((top)
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i"))
                                                       #(ribcage () () ())
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i" "i" "i" "i")))
                                                      (hygiene guile))
                                                   x1486))
                                           tmp1485)
                                    ((lambda (_1488)
                                       (list '#(syntax-object
                                                list->vector
                                                ((top)
                                                 #(ribcage
                                                   #(_)
                                                   #((top))
                                                   #("i"))
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i"))
                                                 #(ribcage () () ())
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i"))
                                                 #(ribcage
                                                   #(quasicons
                                                     quasiappend
                                                     quasivector
                                                     quasi)
                                                   #((top) (top) (top) (top))
                                                   #("i" "i" "i" "i")))
                                                (hygiene guile))
                                             x1480))
                                     tmp1481)))
                                ($sc-dispatch
                                  tmp1481
                                  '(#(free-id
                                      #(syntax-object
                                        list
                                        ((top)
                                         #(ribcage #(x) #((top)) #("i"))
                                         #(ribcage () () ())
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i"))
                                         #(ribcage
                                           #(quasicons
                                             quasiappend
                                             quasivector
                                             quasi)
                                           #((top) (top) (top) (top))
                                           #("i" "i" "i" "i")))
                                        (hygiene guile)))
                                    .
                                    each-any)))))
                           ($sc-dispatch
                             tmp1481
                             '(#(free-id
                                 #(syntax-object
                                   quote
                                   ((top)
                                    #(ribcage #(x) #((top)) #("i"))
                                    #(ribcage () () ())
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i"))
                                    #(ribcage
                                      #(quasicons
                                        quasiappend
                                        quasivector
                                        quasi)
                                      #((top) (top) (top) (top))
                                      #("i" "i" "i" "i")))
                                   (hygiene guile)))
                               each-any))))
                        x1480))
                     tmp1479))
                  x1478)))
             (quasi1452
               (lambda (p1489 lev1490)
                 ((lambda (tmp1491)
                    ((lambda (tmp1492)
                       (if tmp1492
                         (apply (lambda (p1493)
                                  (if (= lev1490 0)
                                    p1493
                                    (quasicons1449
                                      '(#(syntax-object
                                          quote
                                          ((top)
                                           #(ribcage #(p) #((top)) #("i"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
                                             #("i" "i"))
                                           #(ribcage
                                             #(quasicons
                                               quasiappend
                                               quasivector
                                               quasi)
                                             #((top) (top) (top) (top))
                                             #("i" "i" "i" "i")))
                                          (hygiene guile))
                                        #(syntax-object
                                          unquote
                                          ((top)
                                           #(ribcage #(p) #((top)) #("i"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
                                             #("i" "i"))
                                           #(ribcage
                                             #(quasicons
                                               quasiappend
                                               quasivector
                                               quasi)
                                             #((top) (top) (top) (top))
                                             #("i" "i" "i" "i")))
                                          (hygiene guile)))
                                      (quasi1452 (list p1493) (- lev1490 1)))))
                                tmp1492)
                         ((lambda (tmp1494)
                            (if (if tmp1494
                                  (apply (lambda (args1495) (= lev1490 0))
                                         tmp1494)
                                  #f)
                              (apply (lambda (args1496)
                                       (syntax-violation
                                         'unquote
                                         "unquote takes exactly one argument"
                                         p1489
                                         (cons '#(syntax-object
                                                  unquote
                                                  ((top)
                                                   #(ribcage
                                                     #(args)
                                                     #((top))
                                                     #("i"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
                                                     #("i" "i"))
                                                   #(ribcage
                                                     #(quasicons
                                                       quasiappend
                                                       quasivector
                                                       quasi)
                                                     #((top) (top) (top) (top))
                                                     #("i" "i" "i" "i")))
                                                  (hygiene guile))
                                               args1496)))
                                     tmp1494)
                              ((lambda (tmp1497)
                                 (if tmp1497
                                   (apply (lambda (p1498 q1499)
                                            (if (= lev1490 0)
                                              (quasiappend1450
                                                p1498
                                                (quasi1452 q1499 lev1490))
                                              (quasicons1449
                                                (quasicons1449
                                                  '(#(syntax-object
                                                      quote
                                                      ((top)
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i" "i" "i" "i")))
                                                      (hygiene guile))
                                                    #(syntax-object
                                                      unquote-splicing
                                                      ((top)
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
                                                         #("i" "i"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i" "i" "i" "i")))
                                                      (hygiene guile)))
                                                  (quasi1452
                                                    (list p1498)
                                                    (- lev1490 1)))
                                                (quasi1452 q1499 lev1490))))
                                          tmp1497)
                                   ((lambda (tmp1500)
                                      (if (if tmp1500
                                            (apply (lambda (args1501 q1502)
                                                     (= lev1490 0))
                                                   tmp1500)
                                            #f)
                                        (apply (lambda (args1503 q1504)
                                                 (syntax-violation
                                                   'unquote-splicing
                                                   "unquote-splicing takes exactly one argument"
                                                   p1489
                                                   (cons '#(syntax-object
                                                            unquote-splicing
                                                            ((top)
                                                             #(ribcage
                                                               #(args q)
                                                               #((top) (top))
                                                               #("i" "i"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i" "i"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i"
                                                                 "i"
                                                                 "i"
                                                                 "i")))
                                                            (hygiene guile))
                                                         args1503)))
                                               tmp1500)
                                        ((lambda (tmp1505)
                                           (if tmp1505
                                             (apply (lambda (p1506)
                                                      (quasicons1449
                                                        '(#(syntax-object
                                                            quote
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
                                                               #("i"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i" "i"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i"
                                                                 "i"
                                                                 "i"
                                                                 "i")))
                                                            (hygiene guile))
                                                          #(syntax-object
                                                            quasiquote
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
                                                               #("i"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i" "i"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i"
                                                                 "i"
                                                                 "i"
                                                                 "i")))
                                                            (hygiene guile)))
                                                        (quasi1452
                                                          (list p1506)
                                                          (+ lev1490 1))))
                                                    tmp1505)
                                             ((lambda (tmp1507)
                                                (if tmp1507
                                                  (apply (lambda (p1508 q1509)
                                                           (quasicons1449
                                                             (quasi1452
                                                               p1508
                                                               lev1490)
                                                             (quasi1452
                                                               q1509
                                                               lev1490)))
                                                         tmp1507)
                                                  ((lambda (tmp1510)
                                                     (if tmp1510
                                                       (apply (lambda (x1511)
                                                                (quasivector1451
                                                                  (quasi1452
                                                                    x1511
                                                                    lev1490)))
                                                              tmp1510)
                                                       ((lambda (p1513)
                                                          (list '#(syntax-object
                                                                   quote
                                                                   ((top)
                                                                    #(ribcage
                                                                      #(p)
                                                                      #((top))
                                                                      #("i"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(p lev)
                                                                      #((top)
                                                                        (top))
                                                                      #("i"
                                                                        "i"))
                                                                    #(ribcage
                                                                      #(quasicons
                                                                        quasiappend
                                                                        quasivector
                                                                        quasi)
                                                                      #((top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                      #("i"
                                                                        "i"
                                                                        "i"
                                                                        "i")))
                                                                   (hygiene
                                                                     guile))
                                                                p1513))
                                                        tmp1491)))
                                                   ($sc-dispatch
                                                     tmp1491
                                                     '#(vector each-any)))))
                                              ($sc-dispatch
                                                tmp1491
                                                '(any . any)))))
                                         ($sc-dispatch
                                           tmp1491
                                           '(#(free-id
                                               #(syntax-object
                                                 quasiquote
                                                 ((top)
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i" "i"))
                                                  #(ribcage
                                                    #(quasicons
                                                      quasiappend
                                                      quasivector
                                                      quasi)
                                                    #((top) (top) (top) (top))
                                                    #("i" "i" "i" "i")))
                                                 (hygiene guile)))
                                             any)))))
                                    ($sc-dispatch
                                      tmp1491
                                      '((#(free-id
                                           #(syntax-object
                                             unquote-splicing
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i" "i"))
                                              #(ribcage
                                                #(quasicons
                                                  quasiappend
                                                  quasivector
                                                  quasi)
                                                #((top) (top) (top) (top))
                                                #("i" "i" "i" "i")))
                                             (hygiene guile)))
                                         .
                                         any)
                                        .
                                        any)))))
                               ($sc-dispatch
                                 tmp1491
                                 '((#(free-id
                                      #(syntax-object
                                        unquote-splicing
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p lev)
                                           #((top) (top))
                                           #("i" "i"))
                                         #(ribcage
                                           #(quasicons
                                             quasiappend
                                             quasivector
                                             quasi)
                                           #((top) (top) (top) (top))
                                           #("i" "i" "i" "i")))
                                        (hygiene guile)))
                                    any)
                                   .
                                   any)))))
                          ($sc-dispatch
                            tmp1491
                            '(#(free-id
                                #(syntax-object
                                  unquote
                                  ((top)
                                   #(ribcage () () ())
                                   #(ribcage
                                     #(p lev)
                                     #((top) (top))
                                     #("i" "i"))
                                   #(ribcage
                                     #(quasicons quasiappend quasivector quasi)
                                     #((top) (top) (top) (top))
                                     #("i" "i" "i" "i")))
                                  (hygiene guile)))
                              .
                              any)))))
                     ($sc-dispatch
                       tmp1491
                       '(#(free-id
                           #(syntax-object
                             unquote
                             ((top)
                              #(ribcage () () ())
                              #(ribcage #(p lev) #((top) (top)) #("i" "i"))
                              #(ribcage
                                #(quasicons quasiappend quasivector quasi)
                                #((top) (top) (top) (top))
                                #("i" "i" "i" "i")))
                             (hygiene guile)))
                         any))))
                  p1489))))
      (lambda (x1514)
        ((lambda (tmp1515)
           ((lambda (tmp1516)
              (if tmp1516
                (apply (lambda (_1517 e1518) (quasi1452 e1518 0))
                       tmp1516)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  tmp1515)))
            ($sc-dispatch tmp1515 (quote (any any)))))
         x1514)))))

(define include
  (make-syncase-macro
    'macro
    (lambda (x1519)
      (letrec ((read-file1520
                 (lambda (fn1521 k1522)
                   (let ((p1523 (open-input-file fn1521)))
                     (letrec ((f1524 (lambda (x1525)
                                       (if (eof-object? x1525)
                                         (begin
                                           (close-input-port p1523)
                                           '())
                                         (cons (datum->syntax k1522 x1525)
                                               (f1524 (read p1523)))))))
                       (f1524 (read p1523)))))))
        ((lambda (tmp1526)
           ((lambda (tmp1527)
              (if tmp1527
                (apply (lambda (k1528 filename1529)
                         (let ((fn1530 (syntax->datum filename1529)))
                           ((lambda (tmp1531)
                              ((lambda (tmp1532)
                                 (if tmp1532
                                   (apply (lambda (exp1533)
                                            (cons '#(syntax-object
                                                     begin
                                                     ((top)
                                                      #(ribcage
                                                        #(exp)
                                                        #((top))
                                                        #("i"))
                                                      #(ribcage () () ())
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(fn)
                                                        #((top))
                                                        #("i"))
                                                      #(ribcage
                                                        #(k filename)
                                                        #((top) (top))
                                                        #("i" "i"))
                                                      #(ribcage
                                                        (read-file)
                                                        ((top))
                                                        ("i"))
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i")))
                                                     (hygiene guile))
                                                  exp1533))
                                          tmp1532)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     tmp1531)))
                               ($sc-dispatch tmp1531 (quote each-any))))
                            (read-file1520 fn1530 k1528))))
                       tmp1527)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  tmp1526)))
            ($sc-dispatch tmp1526 (quote (any any)))))
         x1519)))))

(define unquote
  (make-syncase-macro
    'macro
    (lambda (x1535)
      ((lambda (tmp1536)
         ((lambda (tmp1537)
            (if tmp1537
              (apply (lambda (_1538 e1539)
                       (syntax-violation
                         'unquote
                         "expression not valid outside of quasiquote"
                         x1535))
                     tmp1537)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1536)))
          ($sc-dispatch tmp1536 (quote (any any)))))
       x1535))))

(define unquote-splicing
  (make-syncase-macro
    'macro
    (lambda (x1540)
      ((lambda (tmp1541)
         ((lambda (tmp1542)
            (if tmp1542
              (apply (lambda (_1543 e1544)
                       (syntax-violation
                         'unquote-splicing
                         "expression not valid outside of quasiquote"
                         x1540))
                     tmp1542)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1541)))
          ($sc-dispatch tmp1541 (quote (any any)))))
       x1540))))

(define case
  (make-extended-syncase-macro
    (module-ref (current-module) (quote case))
    'macro
    (lambda (x1545)
      ((lambda (tmp1546)
         ((lambda (tmp1547)
            (if tmp1547
              (apply (lambda (_1548 e1549 m11550 m21551)
                       ((lambda (tmp1552)
                          ((lambda (body1553)
                             (list '#(syntax-object
                                      let
                                      ((top)
                                       #(ribcage #(body) #((top)) #("i"))
                                       #(ribcage
                                         #(_ e m1 m2)
                                         #((top) (top) (top) (top))
                                         #("i" "i" "i" "i"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i")))
                                      (hygiene guile))
                                   (list (list '#(syntax-object
                                                  t
                                                  ((top)
                                                   #(ribcage
                                                     #(body)
                                                     #((top))
                                                     #("i"))
                                                   #(ribcage
                                                     #(_ e m1 m2)
                                                     #((top) (top) (top) (top))
                                                     #("i" "i" "i" "i"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i")))
                                                  (hygiene guile))
                                               e1549))
                                   body1553))
                           tmp1552))
                        (letrec ((f1554 (lambda (clause1555 clauses1556)
                                          (if (null? clauses1556)
                                            ((lambda (tmp1558)
                                               ((lambda (tmp1559)
                                                  (if tmp1559
                                                    (apply (lambda (e11560
                                                                    e21561)
                                                             (cons '#(syntax-object
                                                                      begin
                                                                      ((top)
                                                                       #(ribcage
                                                                         #(e1
                                                                           e2)
                                                                         #((top)
                                                                           (top))
                                                                         #("i"
                                                                           "i"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(f
                                                                           clause
                                                                           clauses)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("i"
                                                                           "i"
                                                                           "i"))
                                                                       #(ribcage
                                                                         #(_
                                                                           e
                                                                           m1
                                                                           m2)
                                                                         #((top)
                                                                           (top)
                                                                           (top)
                                                                           (top))
                                                                         #("i"
                                                                           "i"
                                                                           "i"
                                                                           "i"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(x)
                                                                         #((top))
                                                                         #("i")))
                                                                      (hygiene
                                                                        guile))
                                                                   (cons e11560
                                                                         e21561)))
                                                           tmp1559)
                                                    ((lambda (tmp1563)
                                                       (if tmp1563
                                                         (apply (lambda (k1564
                                                                         e11565
                                                                         e21566)
                                                                  (list '#(syntax-object
                                                                           if
                                                                           ((top)
                                                                            #(ribcage
                                                                              #(k
                                                                                e1
                                                                                e2)
                                                                              #((top)
                                                                                (top)
                                                                                (top))
                                                                              #("i"
                                                                                "i"
                                                                                "i"))
                                                                            #(ribcage
                                                                              ()
                                                                              ()
                                                                              ())
                                                                            #(ribcage
                                                                              #(f
                                                                                clause
                                                                                clauses)
                                                                              #((top)
                                                                                (top)
                                                                                (top))
                                                                              #("i"
                                                                                "i"
                                                                                "i"))
                                                                            #(ribcage
                                                                              #(_
                                                                                e
                                                                                m1
                                                                                m2)
                                                                              #((top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                              #("i"
                                                                                "i"
                                                                                "i"
                                                                                "i"))
                                                                            #(ribcage
                                                                              ()
                                                                              ()
                                                                              ())
                                                                            #(ribcage
                                                                              #(x)
                                                                              #((top))
                                                                              #("i")))
                                                                           (hygiene
                                                                             guile))
                                                                        (list '#(syntax-object
                                                                                 memv
                                                                                 ((top)
                                                                                  #(ribcage
                                                                                    #(k
                                                                                      e1
                                                                                      e2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(f
                                                                                      clause
                                                                                      clauses)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    #(_
                                                                                      e
                                                                                      m1
                                                                                      m2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(x)
                                                                                    #((top))
                                                                                    #("i")))
                                                                                 (hygiene
                                                                                   guile))
                                                                              '#(syntax-object
                                                                                 t
                                                                                 ((top)
                                                                                  #(ribcage
                                                                                    #(k
                                                                                      e1
                                                                                      e2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(f
                                                                                      clause
                                                                                      clauses)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    #(_
                                                                                      e
                                                                                      m1
                                                                                      m2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(x)
                                                                                    #((top))
                                                                                    #("i")))
                                                                                 (hygiene
                                                                                   guile))
                                                                              (list '#(syntax-object
                                                                                       quote
                                                                                       ((top)
                                                                                        #(ribcage
                                                                                          #(k
                                                                                            e1
                                                                                            e2)
                                                                                          #((top)
                                                                                            (top)
                                                                                            (top))
                                                                                          #("i"
                                                                                            "i"
                                                                                            "i"))
                                                                                        #(ribcage
                                                                                          ()
                                                                                          ()
                                                                                          ())
                                                                                        #(ribcage
                                                                                          #(f
                                                                                            clause
                                                                                            clauses)
                                                                                          #((top)
                                                                                            (top)
                                                                                            (top))
                                                                                          #("i"
                                                                                            "i"
                                                                                            "i"))
                                                                                        #(ribcage
                                                                                          #(_
                                                                                            e
                                                                                            m1
                                                                                            m2)
                                                                                          #((top)
                                                                                            (top)
                                                                                            (top)
                                                                                            (top))
                                                                                          #("i"
                                                                                            "i"
                                                                                            "i"
                                                                                            "i"))
                                                                                        #(ribcage
                                                                                          ()
                                                                                          ()
                                                                                          ())
                                                                                        #(ribcage
                                                                                          #(x)
                                                                                          #((top))
                                                                                          #("i")))
                                                                                       (hygiene
                                                                                         guile))
                                                                                    k1564))
                                                                        (cons '#(syntax-object
                                                                                 begin
                                                                                 ((top)
                                                                                  #(ribcage
                                                                                    #(k
                                                                                      e1
                                                                                      e2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(f
                                                                                      clause
                                                                                      clauses)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    #(_
                                                                                      e
                                                                                      m1
                                                                                      m2)
                                                                                    #((top)
                                                                                      (top)
                                                                                      (top)
                                                                                      (top))
                                                                                    #("i"
                                                                                      "i"
                                                                                      "i"
                                                                                      "i"))
                                                                                  #(ribcage
                                                                                    ()
                                                                                    ()
                                                                                    ())
                                                                                  #(ribcage
                                                                                    #(x)
                                                                                    #((top))
                                                                                    #("i")))
                                                                                 (hygiene
                                                                                   guile))
                                                                              (cons e11565
                                                                                    e21566))))
                                                                tmp1563)
                                                         ((lambda (_1569)
                                                            (syntax-violation
                                                              'case
                                                              "bad clause"
                                                              x1545
                                                              clause1555))
                                                          tmp1558)))
                                                     ($sc-dispatch
                                                       tmp1558
                                                       '(each-any
                                                          any
                                                          .
                                                          each-any)))))
                                                ($sc-dispatch
                                                  tmp1558
                                                  '(#(free-id
                                                      #(syntax-object
                                                        else
                                                        ((top)
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i" "i" "i"))
                                                         #(ribcage
                                                           #(_ e m1 m2)
                                                           #((top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                           #("i" "i" "i" "i"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i")))
                                                        (hygiene guile)))
                                                    any
                                                    .
                                                    each-any))))
                                             clause1555)
                                            ((lambda (tmp1570)
                                               ((lambda (rest1571)
                                                  ((lambda (tmp1572)
                                                     ((lambda (tmp1573)
                                                        (if tmp1573
                                                          (apply (lambda (k1574
                                                                          e11575
                                                                          e21576)
                                                                   (list '#(syntax-object
                                                                            if
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(k
                                                                                 e1
                                                                                 e2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               #(rest)
                                                                               #((top))
                                                                               #("i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(f
                                                                                 clause
                                                                                 clauses)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               #(_
                                                                                 e
                                                                                 m1
                                                                                 m2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i"
                                                                                 "i"
                                                                                 "i"
                                                                                 "i"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(x)
                                                                               #((top))
                                                                               #("i")))
                                                                            (hygiene
                                                                              guile))
                                                                         (list '#(syntax-object
                                                                                  memv
                                                                                  ((top)
                                                                                   #(ribcage
                                                                                     #(k
                                                                                       e1
                                                                                       e2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(rest)
                                                                                     #((top))
                                                                                     #("i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(f
                                                                                       clause
                                                                                       clauses)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(_
                                                                                       e
                                                                                       m1
                                                                                       m2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(x)
                                                                                     #((top))
                                                                                     #("i")))
                                                                                  (hygiene
                                                                                    guile))
                                                                               '#(syntax-object
                                                                                  t
                                                                                  ((top)
                                                                                   #(ribcage
                                                                                     #(k
                                                                                       e1
                                                                                       e2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(rest)
                                                                                     #((top))
                                                                                     #("i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(f
                                                                                       clause
                                                                                       clauses)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(_
                                                                                       e
                                                                                       m1
                                                                                       m2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(x)
                                                                                     #((top))
                                                                                     #("i")))
                                                                                  (hygiene
                                                                                    guile))
                                                                               (list '#(syntax-object
                                                                                        quote
                                                                                        ((top)
                                                                                         #(ribcage
                                                                                           #(k
                                                                                             e1
                                                                                             e2)
                                                                                           #((top)
                                                                                             (top)
                                                                                             (top))
                                                                                           #("i"
                                                                                             "i"
                                                                                             "i"))
                                                                                         #(ribcage
                                                                                           #(rest)
                                                                                           #((top))
                                                                                           #("i"))
                                                                                         #(ribcage
                                                                                           ()
                                                                                           ()
                                                                                           ())
                                                                                         #(ribcage
                                                                                           #(f
                                                                                             clause
                                                                                             clauses)
                                                                                           #((top)
                                                                                             (top)
                                                                                             (top))
                                                                                           #("i"
                                                                                             "i"
                                                                                             "i"))
                                                                                         #(ribcage
                                                                                           #(_
                                                                                             e
                                                                                             m1
                                                                                             m2)
                                                                                           #((top)
                                                                                             (top)
                                                                                             (top)
                                                                                             (top))
                                                                                           #("i"
                                                                                             "i"
                                                                                             "i"
                                                                                             "i"))
                                                                                         #(ribcage
                                                                                           ()
                                                                                           ()
                                                                                           ())
                                                                                         #(ribcage
                                                                                           #(x)
                                                                                           #((top))
                                                                                           #("i")))
                                                                                        (hygiene
                                                                                          guile))
                                                                                     k1574))
                                                                         (cons '#(syntax-object
                                                                                  begin
                                                                                  ((top)
                                                                                   #(ribcage
                                                                                     #(k
                                                                                       e1
                                                                                       e2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(rest)
                                                                                     #((top))
                                                                                     #("i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(f
                                                                                       clause
                                                                                       clauses)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     #(_
                                                                                       e
                                                                                       m1
                                                                                       m2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i"
                                                                                       "i"
                                                                                       "i"
                                                                                       "i"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(x)
                                                                                     #((top))
                                                                                     #("i")))
                                                                                  (hygiene
                                                                                    guile))
                                                                               (cons e11575
                                                                                     e21576))
                                                                         rest1571))
                                                                 tmp1573)
                                                          ((lambda (_1579)
                                                             (syntax-violation
                                                               'case
                                                               "bad clause"
                                                               x1545
                                                               clause1555))
                                                           tmp1572)))
                                                      ($sc-dispatch
                                                        tmp1572
                                                        '(each-any
                                                           any
                                                           .
                                                           each-any))))
                                                   clause1555))
                                                tmp1570))
                                             (f1554 (car clauses1556)
                                                    (cdr clauses1556)))))))
                          (f1554 m11550 m21551))))
                     tmp1547)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1546)))
          ($sc-dispatch
            tmp1546
            '(any any any . each-any))))
       x1545))))

(define identifier-syntax
  (make-syncase-macro
    'macro
    (lambda (x1580)
      ((lambda (tmp1581)
         ((lambda (tmp1582)
            (if tmp1582
              (apply (lambda (_1583 e1584)
                       (list '#(syntax-object
                                lambda
                                ((top)
                                 #(ribcage #(_ e) #((top) (top)) #("i" "i"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i")))
                                (hygiene guile))
                             '(#(syntax-object
                                 x
                                 ((top)
                                  #(ribcage #(_ e) #((top) (top)) #("i" "i"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i")))
                                 (hygiene guile)))
                             (list '#(syntax-object
                                      syntax-case
                                      ((top)
                                       #(ribcage
                                         #(_ e)
                                         #((top) (top))
                                         #("i" "i"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i")))
                                      (hygiene guile))
                                   '#(syntax-object
                                      x
                                      ((top)
                                       #(ribcage
                                         #(_ e)
                                         #((top) (top))
                                         #("i" "i"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i")))
                                      (hygiene guile))
                                   '()
                                   (list '#(syntax-object
                                            id
                                            ((top)
                                             #(ribcage
                                               #(_ e)
                                               #((top) (top))
                                               #("i" "i"))
                                             #(ribcage () () ())
                                             #(ribcage #(x) #((top)) #("i")))
                                            (hygiene guile))
                                         '(#(syntax-object
                                             identifier?
                                             ((top)
                                              #(ribcage
                                                #(_ e)
                                                #((top) (top))
                                                #("i" "i"))
                                              #(ribcage () () ())
                                              #(ribcage #(x) #((top)) #("i")))
                                             (hygiene guile))
                                           (#(syntax-object
                                              syntax
                                              ((top)
                                               #(ribcage
                                                 #(_ e)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage () () ())
                                               #(ribcage #(x) #((top)) #("i")))
                                              (hygiene guile))
                                            #(syntax-object
                                              id
                                              ((top)
                                               #(ribcage
                                                 #(_ e)
                                                 #((top) (top))
                                                 #("i" "i"))
                                               #(ribcage () () ())
                                               #(ribcage #(x) #((top)) #("i")))
                                              (hygiene guile))))
                                         (list '#(syntax-object
                                                  syntax
                                                  ((top)
                                                   #(ribcage
                                                     #(_ e)
                                                     #((top) (top))
                                                     #("i" "i"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i")))
                                                  (hygiene guile))
                                               e1584))
                                   (list (cons _1583
                                               '(#(syntax-object
                                                   x
                                                   ((top)
                                                    #(ribcage
                                                      #(_ e)
                                                      #((top) (top))
                                                      #("i" "i"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i")))
                                                   (hygiene guile))
                                                 #(syntax-object
                                                   ...
                                                   ((top)
                                                    #(ribcage
                                                      #(_ e)
                                                      #((top) (top))
                                                      #("i" "i"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i")))
                                                   (hygiene guile))))
                                         (list '#(syntax-object
                                                  syntax
                                                  ((top)
                                                   #(ribcage
                                                     #(_ e)
                                                     #((top) (top))
                                                     #("i" "i"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i")))
                                                  (hygiene guile))
                                               (cons e1584
                                                     '(#(syntax-object
                                                         x
                                                         ((top)
                                                          #(ribcage
                                                            #(_ e)
                                                            #((top) (top))
                                                            #("i" "i"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i")))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         ...
                                                         ((top)
                                                          #(ribcage
                                                            #(_ e)
                                                            #((top) (top))
                                                            #("i" "i"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i")))
                                                         (hygiene
                                                           guile)))))))))
                     tmp1582)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                tmp1581)))
          ($sc-dispatch tmp1581 (quote (any any)))))
       x1580))))