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

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

(letrec ((#{and-map*\ 1199}#
           (lambda (#{f\ 1239}# #{first\ 1238}# . #{rest\ 1237}#)
             (let ((#{t\ 1240}# (null? #{first\ 1238}#)))
               (if #{t\ 1240}#
                 #{t\ 1240}#
                 (if (null? #{rest\ 1237}#)
                   (letrec ((#{andmap\ 1241}#
                              (lambda (#{first\ 1242}#)
                                (let ((#{x\ 1243}# (car #{first\ 1242}#))
                                      (#{first\ 1244}# (cdr #{first\ 1242}#)))
                                  (if (null? #{first\ 1244}#)
                                    (#{f\ 1239}# #{x\ 1243}#)
                                    (if (#{f\ 1239}# #{x\ 1243}#)
                                      (#{andmap\ 1241}# #{first\ 1244}#)
                                      #f))))))
                     (#{andmap\ 1241}# #{first\ 1238}#))
                   (letrec ((#{andmap\ 1245}#
                              (lambda (#{first\ 1246}# #{rest\ 1247}#)
                                (let ((#{x\ 1248}# (car #{first\ 1246}#))
                                      (#{xr\ 1249}# (map car #{rest\ 1247}#))
                                      (#{first\ 1250}# (cdr #{first\ 1246}#))
                                      (#{rest\ 1251}#
                                        (map cdr #{rest\ 1247}#)))
                                  (if (null? #{first\ 1250}#)
                                    (apply #{f\ 1239}#
                                           (cons #{x\ 1248}# #{xr\ 1249}#))
                                    (if (apply #{f\ 1239}#
                                               (cons #{x\ 1248}# #{xr\ 1249}#))
                                      (#{andmap\ 1245}#
                                        #{first\ 1250}#
                                        #{rest\ 1251}#)
                                      #f))))))
                     (#{andmap\ 1245}# #{first\ 1238}# #{rest\ 1237}#))))))))
  (letrec ((#{lambda-var-list\ 1345}#
             (lambda (#{vars\ 1469}#)
               (letrec ((#{lvl\ 1470}#
                          (lambda (#{vars\ 1471}# #{ls\ 1472}# #{w\ 1473}#)
                            (if (pair? #{vars\ 1471}#)
                              (#{lvl\ 1470}#
                                (cdr #{vars\ 1471}#)
                                (cons (#{wrap\ 1325}#
                                        (car #{vars\ 1471}#)
                                        #{w\ 1473}#
                                        #f)
                                      #{ls\ 1472}#)
                                #{w\ 1473}#)
                              (if (#{id?\ 1297}# #{vars\ 1471}#)
                                (cons (#{wrap\ 1325}#
                                        #{vars\ 1471}#
                                        #{w\ 1473}#
                                        #f)
                                      #{ls\ 1472}#)
                                (if (null? #{vars\ 1471}#)
                                  #{ls\ 1472}#
                                  (if (#{syntax-object?\ 1281}# #{vars\ 1471}#)
                                    (#{lvl\ 1470}#
                                      (#{syntax-object-expression\ 1282}#
                                        #{vars\ 1471}#)
                                      #{ls\ 1472}#
                                      (#{join-wraps\ 1316}#
                                        #{w\ 1473}#
                                        (#{syntax-object-wrap\ 1283}#
                                          #{vars\ 1471}#)))
                                    (cons #{vars\ 1471}# #{ls\ 1472}#))))))))
                 (#{lvl\ 1470}#
                   #{vars\ 1469}#
                   '()
                   '(())))))
           (#{gen-var\ 1344}#
             (lambda (#{id\ 1474}#)
               (let ((#{id\ 1475}#
                       (if (#{syntax-object?\ 1281}# #{id\ 1474}#)
                         (#{syntax-object-expression\ 1282}# #{id\ 1474}#)
                         #{id\ 1474}#)))
                 (gensym
                   (string-append (symbol->string #{id\ 1475}#) " ")))))
           (#{strip\ 1343}#
             (lambda (#{x\ 1476}# #{w\ 1477}#)
               (if (memq 'top
                         (#{wrap-marks\ 1300}# #{w\ 1477}#))
                 #{x\ 1476}#
                 (letrec ((#{f\ 1478}#
                            (lambda (#{x\ 1479}#)
                              (if (#{syntax-object?\ 1281}# #{x\ 1479}#)
                                (#{strip\ 1343}#
                                  (#{syntax-object-expression\ 1282}#
                                    #{x\ 1479}#)
                                  (#{syntax-object-wrap\ 1283}# #{x\ 1479}#))
                                (if (pair? #{x\ 1479}#)
                                  (let ((#{a\ 1480}#
                                          (#{f\ 1478}# (car #{x\ 1479}#)))
                                        (#{d\ 1481}#
                                          (#{f\ 1478}# (cdr #{x\ 1479}#))))
                                    (if (if (eq? #{a\ 1480}# (car #{x\ 1479}#))
                                          (eq? #{d\ 1481}# (cdr #{x\ 1479}#))
                                          #f)
                                      #{x\ 1479}#
                                      (cons #{a\ 1480}# #{d\ 1481}#)))
                                  (if (vector? #{x\ 1479}#)
                                    (let ((#{old\ 1482}#
                                            (vector->list #{x\ 1479}#)))
                                      (let ((#{new\ 1483}#
                                              (map #{f\ 1478}# #{old\ 1482}#)))
                                        (if (#{and-map*\ 1199}#
                                              eq?
                                              #{old\ 1482}#
                                              #{new\ 1483}#)
                                          #{x\ 1479}#
                                          (list->vector #{new\ 1483}#))))
                                    #{x\ 1479}#))))))
                   (#{f\ 1478}# #{x\ 1476}#)))))
           (#{ellipsis?\ 1342}#
             (lambda (#{x\ 1484}#)
               (if (#{nonsymbol-id?\ 1296}# #{x\ 1484}#)
                 (#{free-id=?\ 1320}#
                   #{x\ 1484}#
                   '#(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-void\ 1341}#
             (lambda () (#{build-void\ 1263}# #f)))
           (#{eval-local-transformer\ 1340}#
             (lambda (#{expanded\ 1485}# #{mod\ 1486}#)
               (let ((#{p\ 1487}#
                       (#{local-eval-hook\ 1259}#
                         #{expanded\ 1485}#
                         #{mod\ 1486}#)))
                 (if (procedure? #{p\ 1487}#)
                   #{p\ 1487}#
                   (syntax-violation
                     #f
                     "nonprocedure transformer"
                     #{p\ 1487}#)))))
           (#{chi-local-syntax\ 1339}#
             (lambda (#{rec?\ 1488}#
                      #{e\ 1489}#
                      #{r\ 1490}#
                      #{w\ 1491}#
                      #{s\ 1492}#
                      #{mod\ 1493}#
                      #{k\ 1494}#)
               ((lambda (#{tmp\ 1495}#)
                  ((lambda (#{tmp\ 1496}#)
                     (if #{tmp\ 1496}#
                       (apply (lambda (#{_\ 1497}#
                                       #{id\ 1498}#
                                       #{val\ 1499}#
                                       #{e1\ 1500}#
                                       #{e2\ 1501}#)
                                (let ((#{ids\ 1502}# #{id\ 1498}#))
                                  (if (not (#{valid-bound-ids?\ 1322}#
                                             #{ids\ 1502}#))
                                    (syntax-violation
                                      #f
                                      "duplicate bound keyword"
                                      #{e\ 1489}#)
                                    (let ((#{labels\ 1504}#
                                            (#{gen-labels\ 1303}#
                                              #{ids\ 1502}#)))
                                      (let ((#{new-w\ 1505}#
                                              (#{make-binding-wrap\ 1314}#
                                                #{ids\ 1502}#
                                                #{labels\ 1504}#
                                                #{w\ 1491}#)))
                                        (#{k\ 1494}#
                                          (cons #{e1\ 1500}# #{e2\ 1501}#)
                                          (#{extend-env\ 1291}#
                                            #{labels\ 1504}#
                                            (let ((#{w\ 1507}#
                                                    (if #{rec?\ 1488}#
                                                      #{new-w\ 1505}#
                                                      #{w\ 1491}#))
                                                  (#{trans-r\ 1508}#
                                                    (#{macros-only-env\ 1293}#
                                                      #{r\ 1490}#)))
                                              (map (lambda (#{x\ 1509}#)
                                                     (cons 'macro
                                                           (#{eval-local-transformer\ 1340}#
                                                             (#{chi\ 1333}#
                                                               #{x\ 1509}#
                                                               #{trans-r\ 1508}#
                                                               #{w\ 1507}#
                                                               #{mod\ 1493}#)
                                                             #{mod\ 1493}#)))
                                                   #{val\ 1499}#))
                                            #{r\ 1490}#)
                                          #{new-w\ 1505}#
                                          #{s\ 1492}#
                                          #{mod\ 1493}#))))))
                              #{tmp\ 1496}#)
                       ((lambda (#{_\ 1511}#)
                          (syntax-violation
                            #f
                            "bad local syntax definition"
                            (#{source-wrap\ 1326}#
                              #{e\ 1489}#
                              #{w\ 1491}#
                              #{s\ 1492}#
                              #{mod\ 1493}#)))
                        #{tmp\ 1495}#)))
                   ($sc-dispatch
                     #{tmp\ 1495}#
                     '(any #(each (any any)) any . each-any))))
                #{e\ 1489}#)))
           (#{chi-lambda-clause\ 1338}#
             (lambda (#{e\ 1512}#
                      #{docstring\ 1513}#
                      #{c\ 1514}#
                      #{r\ 1515}#
                      #{w\ 1516}#
                      #{mod\ 1517}#
                      #{k\ 1518}#)
               ((lambda (#{tmp\ 1519}#)
                  ((lambda (#{tmp\ 1520}#)
                     (if (if #{tmp\ 1520}#
                           (apply (lambda (#{args\ 1521}#
                                           #{doc\ 1522}#
                                           #{e1\ 1523}#
                                           #{e2\ 1524}#)
                                    (if (string? (syntax->datum #{doc\ 1522}#))
                                      (not #{docstring\ 1513}#)
                                      #f))
                                  #{tmp\ 1520}#)
                           #f)
                       (apply (lambda (#{args\ 1525}#
                                       #{doc\ 1526}#
                                       #{e1\ 1527}#
                                       #{e2\ 1528}#)
                                (#{chi-lambda-clause\ 1338}#
                                  #{e\ 1512}#
                                  #{doc\ 1526}#
                                  (cons #{args\ 1525}#
                                        (cons #{e1\ 1527}# #{e2\ 1528}#))
                                  #{r\ 1515}#
                                  #{w\ 1516}#
                                  #{mod\ 1517}#
                                  #{k\ 1518}#))
                              #{tmp\ 1520}#)
                       ((lambda (#{tmp\ 1530}#)
                          (if #{tmp\ 1530}#
                            (apply (lambda (#{id\ 1531}#
                                            #{e1\ 1532}#
                                            #{e2\ 1533}#)
                                     (let ((#{ids\ 1534}# #{id\ 1531}#))
                                       (if (not (#{valid-bound-ids?\ 1322}#
                                                  #{ids\ 1534}#))
                                         (syntax-violation
                                           'lambda
                                           "invalid parameter list"
                                           #{e\ 1512}#)
                                         (let ((#{labels\ 1536}#
                                                 (#{gen-labels\ 1303}#
                                                   #{ids\ 1534}#))
                                               (#{new-vars\ 1537}#
                                                 (map #{gen-var\ 1344}#
                                                      #{ids\ 1534}#)))
                                           (#{k\ 1518}#
                                             (map syntax->datum #{ids\ 1534}#)
                                             #{new-vars\ 1537}#
                                             (if #{docstring\ 1513}#
                                               (syntax->datum
                                                 #{docstring\ 1513}#)
                                               #f)
                                             (#{chi-body\ 1337}#
                                               (cons #{e1\ 1532}# #{e2\ 1533}#)
                                               #{e\ 1512}#
                                               (#{extend-var-env\ 1292}#
                                                 #{labels\ 1536}#
                                                 #{new-vars\ 1537}#
                                                 #{r\ 1515}#)
                                               (#{make-binding-wrap\ 1314}#
                                                 #{ids\ 1534}#
                                                 #{labels\ 1536}#
                                                 #{w\ 1516}#)
                                               #{mod\ 1517}#))))))
                                   #{tmp\ 1530}#)
                            ((lambda (#{tmp\ 1539}#)
                               (if #{tmp\ 1539}#
                                 (apply (lambda (#{ids\ 1540}#
                                                 #{e1\ 1541}#
                                                 #{e2\ 1542}#)
                                          (let ((#{old-ids\ 1543}#
                                                  (#{lambda-var-list\ 1345}#
                                                    #{ids\ 1540}#)))
                                            (if (not (#{valid-bound-ids?\ 1322}#
                                                       #{old-ids\ 1543}#))
                                              (syntax-violation
                                                'lambda
                                                "invalid parameter list"
                                                #{e\ 1512}#)
                                              (let ((#{labels\ 1544}#
                                                      (#{gen-labels\ 1303}#
                                                        #{old-ids\ 1543}#))
                                                    (#{new-vars\ 1545}#
                                                      (map #{gen-var\ 1344}#
                                                           #{old-ids\ 1543}#)))
                                                (#{k\ 1518}#
                                                  (letrec ((#{f\ 1546}#
                                                             (lambda (#{ls1\ 1547}#
                                                                      #{ls2\ 1548}#)
                                                               (if (null? #{ls1\ 1547}#)
                                                                 (syntax->datum
                                                                   #{ls2\ 1548}#)
                                                                 (#{f\ 1546}#
                                                                   (cdr #{ls1\ 1547}#)
                                                                   (cons (syntax->datum
                                                                           (car #{ls1\ 1547}#))
                                                                         #{ls2\ 1548}#))))))
                                                    (#{f\ 1546}#
                                                      (cdr #{old-ids\ 1543}#)
                                                      (car #{old-ids\ 1543}#)))
                                                  (letrec ((#{f\ 1549}#
                                                             (lambda (#{ls1\ 1550}#
                                                                      #{ls2\ 1551}#)
                                                               (if (null? #{ls1\ 1550}#)
                                                                 #{ls2\ 1551}#
                                                                 (#{f\ 1549}#
                                                                   (cdr #{ls1\ 1550}#)
                                                                   (cons (car #{ls1\ 1550}#)
                                                                         #{ls2\ 1551}#))))))
                                                    (#{f\ 1549}#
                                                      (cdr #{new-vars\ 1545}#)
                                                      (car #{new-vars\ 1545}#)))
                                                  (if #{docstring\ 1513}#
                                                    (syntax->datum
                                                      #{docstring\ 1513}#)
                                                    #f)
                                                  (#{chi-body\ 1337}#
                                                    (cons #{e1\ 1541}#
                                                          #{e2\ 1542}#)
                                                    #{e\ 1512}#
                                                    (#{extend-var-env\ 1292}#
                                                      #{labels\ 1544}#
                                                      #{new-vars\ 1545}#
                                                      #{r\ 1515}#)
                                                    (#{make-binding-wrap\ 1314}#
                                                      #{old-ids\ 1543}#
                                                      #{labels\ 1544}#
                                                      #{w\ 1516}#)
                                                    #{mod\ 1517}#))))))
                                        #{tmp\ 1539}#)
                                 ((lambda (#{_\ 1553}#)
                                    (syntax-violation
                                      'lambda
                                      "bad lambda"
                                      #{e\ 1512}#))
                                  #{tmp\ 1519}#)))
                             ($sc-dispatch
                               #{tmp\ 1519}#
                               '(any any . each-any)))))
                        ($sc-dispatch
                          #{tmp\ 1519}#
                          '(each-any any . each-any)))))
                   ($sc-dispatch
                     #{tmp\ 1519}#
                     '(any any any . each-any))))
                #{c\ 1514}#)))
           (#{chi-body\ 1337}#
             (lambda (#{body\ 1554}#
                      #{outer-form\ 1555}#
                      #{r\ 1556}#
                      #{w\ 1557}#
                      #{mod\ 1558}#)
               (let ((#{r\ 1559}#
                       (cons '("placeholder" placeholder)
                             #{r\ 1556}#)))
                 (let ((#{ribcage\ 1560}#
                         (#{make-ribcage\ 1304}#
                           '()
                           '()
                           '())))
                   (let ((#{w\ 1561}#
                           (#{make-wrap\ 1299}#
                             (#{wrap-marks\ 1300}# #{w\ 1557}#)
                             (cons #{ribcage\ 1560}#
                                   (#{wrap-subst\ 1301}# #{w\ 1557}#)))))
                     (letrec ((#{parse\ 1562}#
                                (lambda (#{body\ 1563}#
                                         #{ids\ 1564}#
                                         #{labels\ 1565}#
                                         #{var-ids\ 1566}#
                                         #{vars\ 1567}#
                                         #{vals\ 1568}#
                                         #{bindings\ 1569}#)
                                  (if (null? #{body\ 1563}#)
                                    (syntax-violation
                                      #f
                                      "no expressions in body"
                                      #{outer-form\ 1555}#)
                                    (let ((#{e\ 1571}# (cdar #{body\ 1563}#))
                                          (#{er\ 1572}# (caar #{body\ 1563}#)))
                                      (call-with-values
                                        (lambda ()
                                          (#{syntax-type\ 1331}#
                                            #{e\ 1571}#
                                            #{er\ 1572}#
                                            '(())
                                            (#{source-annotation\ 1288}#
                                              #{er\ 1572}#)
                                            #{ribcage\ 1560}#
                                            #{mod\ 1558}#
                                            #f))
                                        (lambda (#{type\ 1573}#
                                                 #{value\ 1574}#
                                                 #{e\ 1575}#
                                                 #{w\ 1576}#
                                                 #{s\ 1577}#
                                                 #{mod\ 1578}#)
                                          (if (memv #{type\ 1573}#
                                                    '(define-form))
                                            (let ((#{id\ 1579}#
                                                    (#{wrap\ 1325}#
                                                      #{value\ 1574}#
                                                      #{w\ 1576}#
                                                      #{mod\ 1578}#))
                                                  (#{label\ 1580}#
                                                    (#{gen-label\ 1302}#)))
                                              (let ((#{var\ 1581}#
                                                      (#{gen-var\ 1344}#
                                                        #{id\ 1579}#)))
                                                (begin
                                                  (#{extend-ribcage!\ 1313}#
                                                    #{ribcage\ 1560}#
                                                    #{id\ 1579}#
                                                    #{label\ 1580}#)
                                                  (#{parse\ 1562}#
                                                    (cdr #{body\ 1563}#)
                                                    (cons #{id\ 1579}#
                                                          #{ids\ 1564}#)
                                                    (cons #{label\ 1580}#
                                                          #{labels\ 1565}#)
                                                    (cons #{id\ 1579}#
                                                          #{var-ids\ 1566}#)
                                                    (cons #{var\ 1581}#
                                                          #{vars\ 1567}#)
                                                    (cons (cons #{er\ 1572}#
                                                                (#{wrap\ 1325}#
                                                                  #{e\ 1575}#
                                                                  #{w\ 1576}#
                                                                  #{mod\ 1578}#))
                                                          #{vals\ 1568}#)
                                                    (cons (cons 'lexical
                                                                #{var\ 1581}#)
                                                          #{bindings\ 1569}#)))))
                                            (if (memv #{type\ 1573}#
                                                      '(define-syntax-form))
                                              (let ((#{id\ 1582}#
                                                      (#{wrap\ 1325}#
                                                        #{value\ 1574}#
                                                        #{w\ 1576}#
                                                        #{mod\ 1578}#))
                                                    (#{label\ 1583}#
                                                      (#{gen-label\ 1302}#)))
                                                (begin
                                                  (#{extend-ribcage!\ 1313}#
                                                    #{ribcage\ 1560}#
                                                    #{id\ 1582}#
                                                    #{label\ 1583}#)
                                                  (#{parse\ 1562}#
                                                    (cdr #{body\ 1563}#)
                                                    (cons #{id\ 1582}#
                                                          #{ids\ 1564}#)
                                                    (cons #{label\ 1583}#
                                                          #{labels\ 1565}#)
                                                    #{var-ids\ 1566}#
                                                    #{vars\ 1567}#
                                                    #{vals\ 1568}#
                                                    (cons (cons 'macro
                                                                (cons #{er\ 1572}#
                                                                      (#{wrap\ 1325}#
                                                                        #{e\ 1575}#
                                                                        #{w\ 1576}#
                                                                        #{mod\ 1578}#)))
                                                          #{bindings\ 1569}#))))
                                              (if (memv #{type\ 1573}#
                                                        '(begin-form))
                                                ((lambda (#{tmp\ 1584}#)
                                                   ((lambda (#{tmp\ 1585}#)
                                                      (if #{tmp\ 1585}#
                                                        (apply (lambda (#{_\ 1586}#
                                                                        #{e1\ 1587}#)
                                                                 (#{parse\ 1562}#
                                                                   (letrec ((#{f\ 1588}#
                                                                              (lambda (#{forms\ 1589}#)
                                                                                (if (null? #{forms\ 1589}#)
                                                                                  (cdr #{body\ 1563}#)
                                                                                  (cons (cons #{er\ 1572}#
                                                                                              (#{wrap\ 1325}#
                                                                                                (car #{forms\ 1589}#)
                                                                                                #{w\ 1576}#
                                                                                                #{mod\ 1578}#))
                                                                                        (#{f\ 1588}#
                                                                                          (cdr #{forms\ 1589}#)))))))
                                                                     (#{f\ 1588}#
                                                                       #{e1\ 1587}#))
                                                                   #{ids\ 1564}#
                                                                   #{labels\ 1565}#
                                                                   #{var-ids\ 1566}#
                                                                   #{vars\ 1567}#
                                                                   #{vals\ 1568}#
                                                                   #{bindings\ 1569}#))
                                                               #{tmp\ 1585}#)
                                                        (syntax-violation
                                                          #f
                                                          "source expression failed to match any pattern"
                                                          #{tmp\ 1584}#)))
                                                    ($sc-dispatch
                                                      #{tmp\ 1584}#
                                                      '(any . each-any))))
                                                 #{e\ 1575}#)
                                                (if (memv #{type\ 1573}#
                                                          '(local-syntax-form))
                                                  (#{chi-local-syntax\ 1339}#
                                                    #{value\ 1574}#
                                                    #{e\ 1575}#
                                                    #{er\ 1572}#
                                                    #{w\ 1576}#
                                                    #{s\ 1577}#
                                                    #{mod\ 1578}#
                                                    (lambda (#{forms\ 1591}#
                                                             #{er\ 1592}#
                                                             #{w\ 1593}#
                                                             #{s\ 1594}#
                                                             #{mod\ 1595}#)
                                                      (#{parse\ 1562}#
                                                        (letrec ((#{f\ 1596}#
                                                                   (lambda (#{forms\ 1597}#)
                                                                     (if (null? #{forms\ 1597}#)
                                                                       (cdr #{body\ 1563}#)
                                                                       (cons (cons #{er\ 1592}#
                                                                                   (#{wrap\ 1325}#
                                                                                     (car #{forms\ 1597}#)
                                                                                     #{w\ 1593}#
                                                                                     #{mod\ 1595}#))
                                                                             (#{f\ 1596}#
                                                                               (cdr #{forms\ 1597}#)))))))
                                                          (#{f\ 1596}#
                                                            #{forms\ 1591}#))
                                                        #{ids\ 1564}#
                                                        #{labels\ 1565}#
                                                        #{var-ids\ 1566}#
                                                        #{vars\ 1567}#
                                                        #{vals\ 1568}#
                                                        #{bindings\ 1569}#)))
                                                  (if (null? #{ids\ 1564}#)
                                                    (#{build-sequence\ 1276}#
                                                      #f
                                                      (map (lambda (#{x\ 1598}#)
                                                             (#{chi\ 1333}#
                                                               (cdr #{x\ 1598}#)
                                                               (car #{x\ 1598}#)
                                                               '(())
                                                               #{mod\ 1578}#))
                                                           (cons (cons #{er\ 1572}#
                                                                       (#{source-wrap\ 1326}#
                                                                         #{e\ 1575}#
                                                                         #{w\ 1576}#
                                                                         #{s\ 1577}#
                                                                         #{mod\ 1578}#))
                                                                 (cdr #{body\ 1563}#))))
                                                    (begin
                                                      (if (not (#{valid-bound-ids?\ 1322}#
                                                                 #{ids\ 1564}#))
                                                        (syntax-violation
                                                          #f
                                                          "invalid or duplicate identifier in definition"
                                                          #{outer-form\ 1555}#))
                                                      (letrec ((#{loop\ 1599}#
                                                                 (lambda (#{bs\ 1600}#
                                                                          #{er-cache\ 1601}#
                                                                          #{r-cache\ 1602}#)
                                                                   (if (not (null? #{bs\ 1600}#))
                                                                     (let ((#{b\ 1603}#
                                                                             (car #{bs\ 1600}#)))
                                                                       (if (eq? (car #{b\ 1603}#)
                                                                                'macro)
                                                                         (let ((#{er\ 1604}#
                                                                                 (cadr #{b\ 1603}#)))
                                                                           (let ((#{r-cache\ 1605}#
                                                                                   (if (eq? #{er\ 1604}#
                                                                                            #{er-cache\ 1601}#)
                                                                                     #{r-cache\ 1602}#
                                                                                     (#{macros-only-env\ 1293}#
                                                                                       #{er\ 1604}#))))
                                                                             (begin
                                                                               (set-cdr!
                                                                                 #{b\ 1603}#
                                                                                 (#{eval-local-transformer\ 1340}#
                                                                                   (#{chi\ 1333}#
                                                                                     (cddr #{b\ 1603}#)
                                                                                     #{r-cache\ 1605}#
                                                                                     '(())
                                                                                     #{mod\ 1578}#)
                                                                                   #{mod\ 1578}#))
                                                                               (#{loop\ 1599}#
                                                                                 (cdr #{bs\ 1600}#)
                                                                                 #{er\ 1604}#
                                                                                 #{r-cache\ 1605}#))))
                                                                         (#{loop\ 1599}#
                                                                           (cdr #{bs\ 1600}#)
                                                                           #{er-cache\ 1601}#
                                                                           #{r-cache\ 1602}#)))))))
                                                        (#{loop\ 1599}#
                                                          #{bindings\ 1569}#
                                                          #f
                                                          #f))
                                                      (set-cdr!
                                                        #{r\ 1559}#
                                                        (#{extend-env\ 1291}#
                                                          #{labels\ 1565}#
                                                          #{bindings\ 1569}#
                                                          (cdr #{r\ 1559}#)))
                                                      (#{build-letrec\ 1279}#
                                                        #f
                                                        (map syntax->datum
                                                             #{var-ids\ 1566}#)
                                                        #{vars\ 1567}#
                                                        (map (lambda (#{x\ 1606}#)
                                                               (#{chi\ 1333}#
                                                                 (cdr #{x\ 1606}#)
                                                                 (car #{x\ 1606}#)
                                                                 '(())
                                                                 #{mod\ 1578}#))
                                                             #{vals\ 1568}#)
                                                        (#{build-sequence\ 1276}#
                                                          #f
                                                          (map (lambda (#{x\ 1607}#)
                                                                 (#{chi\ 1333}#
                                                                   (cdr #{x\ 1607}#)
                                                                   (car #{x\ 1607}#)
                                                                   '(())
                                                                   #{mod\ 1578}#))
                                                               (cons (cons #{er\ 1572}#
                                                                           (#{source-wrap\ 1326}#
                                                                             #{e\ 1575}#
                                                                             #{w\ 1576}#
                                                                             #{s\ 1577}#
                                                                             #{mod\ 1578}#))
                                                                     (cdr #{body\ 1563}#))))))))))))))))))
                       (#{parse\ 1562}#
                         (map (lambda (#{x\ 1570}#)
                                (cons #{r\ 1559}#
                                      (#{wrap\ 1325}#
                                        #{x\ 1570}#
                                        #{w\ 1561}#
                                        #{mod\ 1558}#)))
                              #{body\ 1554}#)
                         '()
                         '()
                         '()
                         '()
                         '()
                         '())))))))
           (#{chi-macro\ 1336}#
             (lambda (#{p\ 1608}#
                      #{e\ 1609}#
                      #{r\ 1610}#
                      #{w\ 1611}#
                      #{rib\ 1612}#
                      #{mod\ 1613}#)
               (letrec ((#{rebuild-macro-output\ 1614}#
                          (lambda (#{x\ 1615}# #{m\ 1616}#)
                            (if (pair? #{x\ 1615}#)
                              (cons (#{rebuild-macro-output\ 1614}#
                                      (car #{x\ 1615}#)
                                      #{m\ 1616}#)
                                    (#{rebuild-macro-output\ 1614}#
                                      (cdr #{x\ 1615}#)
                                      #{m\ 1616}#))
                              (if (#{syntax-object?\ 1281}# #{x\ 1615}#)
                                (let ((#{w\ 1617}#
                                        (#{syntax-object-wrap\ 1283}#
                                          #{x\ 1615}#)))
                                  (let ((#{ms\ 1618}#
                                          (#{wrap-marks\ 1300}# #{w\ 1617}#))
                                        (#{s\ 1619}#
                                          (#{wrap-subst\ 1301}# #{w\ 1617}#)))
                                    (if (if (pair? #{ms\ 1618}#)
                                          (eq? (car #{ms\ 1618}#) #f)
                                          #f)
                                      (#{make-syntax-object\ 1280}#
                                        (#{syntax-object-expression\ 1282}#
                                          #{x\ 1615}#)
                                        (#{make-wrap\ 1299}#
                                          (cdr #{ms\ 1618}#)
                                          (if #{rib\ 1612}#
                                            (cons #{rib\ 1612}#
                                                  (cdr #{s\ 1619}#))
                                            (cdr #{s\ 1619}#)))
                                        (#{syntax-object-module\ 1284}#
                                          #{x\ 1615}#))
                                      (#{make-syntax-object\ 1280}#
                                        (#{syntax-object-expression\ 1282}#
                                          #{x\ 1615}#)
                                        (#{make-wrap\ 1299}#
                                          (cons #{m\ 1616}# #{ms\ 1618}#)
                                          (if #{rib\ 1612}#
                                            (cons #{rib\ 1612}#
                                                  (cons 'shift
                                                        #{s\ 1619}#))
                                            (cons (quote shift) #{s\ 1619}#)))
                                        (let ((#{pmod\ 1620}#
                                                (procedure-module
                                                  #{p\ 1608}#)))
                                          (if #{pmod\ 1620}#
                                            (cons 'hygiene
                                                  (module-name #{pmod\ 1620}#))
                                            '(hygiene guile)))))))
                                (if (vector? #{x\ 1615}#)
                                  (let ((#{n\ 1621}#
                                          (vector-length #{x\ 1615}#)))
                                    (let ((#{v\ 1622}#
                                            (make-vector #{n\ 1621}#)))
                                      (letrec ((#{loop\ 1623}#
                                                 (lambda (#{i\ 1624}#)
                                                   (if (#{fx=\ 1256}#
                                                         #{i\ 1624}#
                                                         #{n\ 1621}#)
                                                     (begin
                                                       (if #f #f)
                                                       #{v\ 1622}#)
                                                     (begin
                                                       (vector-set!
                                                         #{v\ 1622}#
                                                         #{i\ 1624}#
                                                         (#{rebuild-macro-output\ 1614}#
                                                           (vector-ref
                                                             #{x\ 1615}#
                                                             #{i\ 1624}#)
                                                           #{m\ 1616}#))
                                                       (#{loop\ 1623}#
                                                         (#{fx+\ 1254}#
                                                           #{i\ 1624}#
                                                           1)))))))
                                        (#{loop\ 1623}# 0))))
                                  (if (symbol? #{x\ 1615}#)
                                    (syntax-violation
                                      #f
                                      "encountered raw symbol in macro output"
                                      (#{source-wrap\ 1326}#
                                        #{e\ 1609}#
                                        #{w\ 1611}#
                                        s
                                        #{mod\ 1613}#)
                                      #{x\ 1615}#)
                                    #{x\ 1615}#)))))))
                 (#{rebuild-macro-output\ 1614}#
                   (#{p\ 1608}#
                     (#{wrap\ 1325}#
                       #{e\ 1609}#
                       (#{anti-mark\ 1312}# #{w\ 1611}#)
                       #{mod\ 1613}#))
                   (string #\m)))))
           (#{chi-application\ 1335}#
             (lambda (#{x\ 1625}#
                      #{e\ 1626}#
                      #{r\ 1627}#
                      #{w\ 1628}#
                      #{s\ 1629}#
                      #{mod\ 1630}#)
               ((lambda (#{tmp\ 1631}#)
                  ((lambda (#{tmp\ 1632}#)
                     (if #{tmp\ 1632}#
                       (apply (lambda (#{e0\ 1633}# #{e1\ 1634}#)
                                (#{build-application\ 1264}#
                                  #{s\ 1629}#
                                  #{x\ 1625}#
                                  (map (lambda (#{e\ 1635}#)
                                         (#{chi\ 1333}#
                                           #{e\ 1635}#
                                           #{r\ 1627}#
                                           #{w\ 1628}#
                                           #{mod\ 1630}#))
                                       #{e1\ 1634}#)))
                              #{tmp\ 1632}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp\ 1631}#)))
                   ($sc-dispatch
                     #{tmp\ 1631}#
                     '(any . each-any))))
                #{e\ 1626}#)))
           (#{chi-expr\ 1334}#
             (lambda (#{type\ 1637}#
                      #{value\ 1638}#
                      #{e\ 1639}#
                      #{r\ 1640}#
                      #{w\ 1641}#
                      #{s\ 1642}#
                      #{mod\ 1643}#)
               (if (memv #{type\ 1637}# (quote (lexical)))
                 (#{build-lexical-reference\ 1266}#
                   'value
                   #{s\ 1642}#
                   #{e\ 1639}#
                   #{value\ 1638}#)
                 (if (memv #{type\ 1637}# (quote (core core-form)))
                   (#{value\ 1638}#
                     #{e\ 1639}#
                     #{r\ 1640}#
                     #{w\ 1641}#
                     #{s\ 1642}#
                     #{mod\ 1643}#)
                   (if (memv #{type\ 1637}# (quote (module-ref)))
                     (call-with-values
                       (lambda () (#{value\ 1638}# #{e\ 1639}#))
                       (lambda (#{id\ 1644}# #{mod\ 1645}#)
                         (#{build-global-reference\ 1269}#
                           #{s\ 1642}#
                           #{id\ 1644}#
                           #{mod\ 1645}#)))
                     (if (memv #{type\ 1637}# (quote (lexical-call)))
                       (#{chi-application\ 1335}#
                         (#{build-lexical-reference\ 1266}#
                           'fun
                           (#{source-annotation\ 1288}# (car #{e\ 1639}#))
                           (car #{e\ 1639}#)
                           #{value\ 1638}#)
                         #{e\ 1639}#
                         #{r\ 1640}#
                         #{w\ 1641}#
                         #{s\ 1642}#
                         #{mod\ 1643}#)
                       (if (memv #{type\ 1637}# (quote (global-call)))
                         (#{chi-application\ 1335}#
                           (#{build-global-reference\ 1269}#
                             (#{source-annotation\ 1288}# (car #{e\ 1639}#))
                             (if (#{syntax-object?\ 1281}# #{value\ 1638}#)
                               (#{syntax-object-expression\ 1282}#
                                 #{value\ 1638}#)
                               #{value\ 1638}#)
                             (if (#{syntax-object?\ 1281}# #{value\ 1638}#)
                               (#{syntax-object-module\ 1284}# #{value\ 1638}#)
                               #{mod\ 1643}#))
                           #{e\ 1639}#
                           #{r\ 1640}#
                           #{w\ 1641}#
                           #{s\ 1642}#
                           #{mod\ 1643}#)
                         (if (memv #{type\ 1637}# (quote (constant)))
                           (#{build-data\ 1275}#
                             #{s\ 1642}#
                             (#{strip\ 1343}#
                               (#{source-wrap\ 1326}#
                                 #{e\ 1639}#
                                 #{w\ 1641}#
                                 #{s\ 1642}#
                                 #{mod\ 1643}#)
                               '(())))
                           (if (memv #{type\ 1637}# (quote (global)))
                             (#{build-global-reference\ 1269}#
                               #{s\ 1642}#
                               #{value\ 1638}#
                               #{mod\ 1643}#)
                             (if (memv #{type\ 1637}# (quote (call)))
                               (#{chi-application\ 1335}#
                                 (#{chi\ 1333}#
                                   (car #{e\ 1639}#)
                                   #{r\ 1640}#
                                   #{w\ 1641}#
                                   #{mod\ 1643}#)
                                 #{e\ 1639}#
                                 #{r\ 1640}#
                                 #{w\ 1641}#
                                 #{s\ 1642}#
                                 #{mod\ 1643}#)
                               (if (memv #{type\ 1637}# (quote (begin-form)))
                                 ((lambda (#{tmp\ 1646}#)
                                    ((lambda (#{tmp\ 1647}#)
                                       (if #{tmp\ 1647}#
                                         (apply (lambda (#{_\ 1648}#
                                                         #{e1\ 1649}#
                                                         #{e2\ 1650}#)
                                                  (#{chi-sequence\ 1327}#
                                                    (cons #{e1\ 1649}#
                                                          #{e2\ 1650}#)
                                                    #{r\ 1640}#
                                                    #{w\ 1641}#
                                                    #{s\ 1642}#
                                                    #{mod\ 1643}#))
                                                #{tmp\ 1647}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{tmp\ 1646}#)))
                                     ($sc-dispatch
                                       #{tmp\ 1646}#
                                       '(any any . each-any))))
                                  #{e\ 1639}#)
                                 (if (memv #{type\ 1637}#
                                           '(local-syntax-form))
                                   (#{chi-local-syntax\ 1339}#
                                     #{value\ 1638}#
                                     #{e\ 1639}#
                                     #{r\ 1640}#
                                     #{w\ 1641}#
                                     #{s\ 1642}#
                                     #{mod\ 1643}#
                                     #{chi-sequence\ 1327}#)
                                   (if (memv #{type\ 1637}#
                                             '(eval-when-form))
                                     ((lambda (#{tmp\ 1652}#)
                                        ((lambda (#{tmp\ 1653}#)
                                           (if #{tmp\ 1653}#
                                             (apply (lambda (#{_\ 1654}#
                                                             #{x\ 1655}#
                                                             #{e1\ 1656}#
                                                             #{e2\ 1657}#)
                                                      (let ((#{when-list\ 1658}#
                                                              (#{chi-when-list\ 1330}#
                                                                #{e\ 1639}#
                                                                #{x\ 1655}#
                                                                #{w\ 1641}#)))
                                                        (if (memq 'eval
                                                                  #{when-list\ 1658}#)
                                                          (#{chi-sequence\ 1327}#
                                                            (cons #{e1\ 1656}#
                                                                  #{e2\ 1657}#)
                                                            #{r\ 1640}#
                                                            #{w\ 1641}#
                                                            #{s\ 1642}#
                                                            #{mod\ 1643}#)
                                                          (#{chi-void\ 1341}#))))
                                                    #{tmp\ 1653}#)
                                             (syntax-violation
                                               #f
                                               "source expression failed to match any pattern"
                                               #{tmp\ 1652}#)))
                                         ($sc-dispatch
                                           #{tmp\ 1652}#
                                           '(any each-any any . each-any))))
                                      #{e\ 1639}#)
                                     (if (memv #{type\ 1637}#
                                               '(define-form
                                                  define-syntax-form))
                                       (syntax-violation
                                         #f
                                         "definition in expression context"
                                         #{e\ 1639}#
                                         (#{wrap\ 1325}#
                                           #{value\ 1638}#
                                           #{w\ 1641}#
                                           #{mod\ 1643}#))
                                       (if (memv #{type\ 1637}#
                                                 '(syntax))
                                         (syntax-violation
                                           #f
                                           "reference to pattern variable outside syntax form"
                                           (#{source-wrap\ 1326}#
                                             #{e\ 1639}#
                                             #{w\ 1641}#
                                             #{s\ 1642}#
                                             #{mod\ 1643}#))
                                         (if (memv #{type\ 1637}#
                                                   '(displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "reference to identifier outside its scope"
                                             (#{source-wrap\ 1326}#
                                               #{e\ 1639}#
                                               #{w\ 1641}#
                                               #{s\ 1642}#
                                               #{mod\ 1643}#))
                                           (syntax-violation
                                             #f
                                             "unexpected syntax"
                                             (#{source-wrap\ 1326}#
                                               #{e\ 1639}#
                                               #{w\ 1641}#
                                               #{s\ 1642}#
                                               #{mod\ 1643}#))))))))))))))))))
           (#{chi\ 1333}#
             (lambda (#{e\ 1661}#
                      #{r\ 1662}#
                      #{w\ 1663}#
                      #{mod\ 1664}#)
               (call-with-values
                 (lambda ()
                   (#{syntax-type\ 1331}#
                     #{e\ 1661}#
                     #{r\ 1662}#
                     #{w\ 1663}#
                     (#{source-annotation\ 1288}# #{e\ 1661}#)
                     #f
                     #{mod\ 1664}#
                     #f))
                 (lambda (#{type\ 1665}#
                          #{value\ 1666}#
                          #{e\ 1667}#
                          #{w\ 1668}#
                          #{s\ 1669}#
                          #{mod\ 1670}#)
                   (#{chi-expr\ 1334}#
                     #{type\ 1665}#
                     #{value\ 1666}#
                     #{e\ 1667}#
                     #{r\ 1662}#
                     #{w\ 1668}#
                     #{s\ 1669}#
                     #{mod\ 1670}#)))))
           (#{chi-top\ 1332}#
             (lambda (#{e\ 1671}#
                      #{r\ 1672}#
                      #{w\ 1673}#
                      #{m\ 1674}#
                      #{esew\ 1675}#
                      #{mod\ 1676}#)
               (call-with-values
                 (lambda ()
                   (#{syntax-type\ 1331}#
                     #{e\ 1671}#
                     #{r\ 1672}#
                     #{w\ 1673}#
                     (#{source-annotation\ 1288}# #{e\ 1671}#)
                     #f
                     #{mod\ 1676}#
                     #f))
                 (lambda (#{type\ 1684}#
                          #{value\ 1685}#
                          #{e\ 1686}#
                          #{w\ 1687}#
                          #{s\ 1688}#
                          #{mod\ 1689}#)
                   (if (memv #{type\ 1684}# (quote (begin-form)))
                     ((lambda (#{tmp\ 1690}#)
                        ((lambda (#{tmp\ 1691}#)
                           (if #{tmp\ 1691}#
                             (apply (lambda (#{_\ 1692}#) (#{chi-void\ 1341}#))
                                    #{tmp\ 1691}#)
                             ((lambda (#{tmp\ 1693}#)
                                (if #{tmp\ 1693}#
                                  (apply (lambda (#{_\ 1694}#
                                                  #{e1\ 1695}#
                                                  #{e2\ 1696}#)
                                           (#{chi-top-sequence\ 1328}#
                                             (cons #{e1\ 1695}# #{e2\ 1696}#)
                                             #{r\ 1672}#
                                             #{w\ 1687}#
                                             #{s\ 1688}#
                                             #{m\ 1674}#
                                             #{esew\ 1675}#
                                             #{mod\ 1689}#))
                                         #{tmp\ 1693}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any pattern"
                                    #{tmp\ 1690}#)))
                              ($sc-dispatch
                                #{tmp\ 1690}#
                                '(any any . each-any)))))
                         ($sc-dispatch #{tmp\ 1690}# (quote (any)))))
                      #{e\ 1686}#)
                     (if (memv #{type\ 1684}# (quote (local-syntax-form)))
                       (#{chi-local-syntax\ 1339}#
                         #{value\ 1685}#
                         #{e\ 1686}#
                         #{r\ 1672}#
                         #{w\ 1687}#
                         #{s\ 1688}#
                         #{mod\ 1689}#
                         (lambda (#{body\ 1698}#
                                  #{r\ 1699}#
                                  #{w\ 1700}#
                                  #{s\ 1701}#
                                  #{mod\ 1702}#)
                           (#{chi-top-sequence\ 1328}#
                             #{body\ 1698}#
                             #{r\ 1699}#
                             #{w\ 1700}#
                             #{s\ 1701}#
                             #{m\ 1674}#
                             #{esew\ 1675}#
                             #{mod\ 1702}#)))
                       (if (memv #{type\ 1684}# (quote (eval-when-form)))
                         ((lambda (#{tmp\ 1703}#)
                            ((lambda (#{tmp\ 1704}#)
                               (if #{tmp\ 1704}#
                                 (apply (lambda (#{_\ 1705}#
                                                 #{x\ 1706}#
                                                 #{e1\ 1707}#
                                                 #{e2\ 1708}#)
                                          (let ((#{when-list\ 1709}#
                                                  (#{chi-when-list\ 1330}#
                                                    #{e\ 1686}#
                                                    #{x\ 1706}#
                                                    #{w\ 1687}#))
                                                (#{body\ 1710}#
                                                  (cons #{e1\ 1707}#
                                                        #{e2\ 1708}#)))
                                            (if (eq? #{m\ 1674}# (quote e))
                                              (if (memq 'eval
                                                        #{when-list\ 1709}#)
                                                (#{chi-top-sequence\ 1328}#
                                                  #{body\ 1710}#
                                                  #{r\ 1672}#
                                                  #{w\ 1687}#
                                                  #{s\ 1688}#
                                                  'e
                                                  '(eval)
                                                  #{mod\ 1689}#)
                                                (#{chi-void\ 1341}#))
                                              (if (memq 'load
                                                        #{when-list\ 1709}#)
                                                (if (let ((#{t\ 1713}#
                                                            (memq 'compile
                                                                  #{when-list\ 1709}#)))
                                                      (if #{t\ 1713}#
                                                        #{t\ 1713}#
                                                        (if (eq? #{m\ 1674}#
                                                                 'c&e)
                                                          (memq 'eval
                                                                #{when-list\ 1709}#)
                                                          #f)))
                                                  (#{chi-top-sequence\ 1328}#
                                                    #{body\ 1710}#
                                                    #{r\ 1672}#
                                                    #{w\ 1687}#
                                                    #{s\ 1688}#
                                                    'c&e
                                                    '(compile load)
                                                    #{mod\ 1689}#)
                                                  (if (memq #{m\ 1674}#
                                                            '(c c&e))
                                                    (#{chi-top-sequence\ 1328}#
                                                      #{body\ 1710}#
                                                      #{r\ 1672}#
                                                      #{w\ 1687}#
                                                      #{s\ 1688}#
                                                      'c
                                                      '(load)
                                                      #{mod\ 1689}#)
                                                    (#{chi-void\ 1341}#)))
                                                (if (let ((#{t\ 1714}#
                                                            (memq 'compile
                                                                  #{when-list\ 1709}#)))
                                                      (if #{t\ 1714}#
                                                        #{t\ 1714}#
                                                        (if (eq? #{m\ 1674}#
                                                                 'c&e)
                                                          (memq 'eval
                                                                #{when-list\ 1709}#)
                                                          #f)))
                                                  (begin
                                                    (#{top-level-eval-hook\ 1258}#
                                                      (#{chi-top-sequence\ 1328}#
                                                        #{body\ 1710}#
                                                        #{r\ 1672}#
                                                        #{w\ 1687}#
                                                        #{s\ 1688}#
                                                        'e
                                                        '(eval)
                                                        #{mod\ 1689}#)
                                                      #{mod\ 1689}#)
                                                    (#{chi-void\ 1341}#))
                                                  (#{chi-void\ 1341}#))))))
                                        #{tmp\ 1704}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   #{tmp\ 1703}#)))
                             ($sc-dispatch
                               #{tmp\ 1703}#
                               '(any each-any any . each-any))))
                          #{e\ 1686}#)
                         (if (memv #{type\ 1684}#
                                   '(define-syntax-form))
                           (let ((#{n\ 1715}#
                                   (#{id-var-name\ 1319}#
                                     #{value\ 1685}#
                                     #{w\ 1687}#))
                                 (#{r\ 1716}#
                                   (#{macros-only-env\ 1293}# #{r\ 1672}#)))
                             (if (memv #{m\ 1674}# (quote (c)))
                               (if (memq (quote compile) #{esew\ 1675}#)
                                 (let ((#{e\ 1717}#
                                         (#{chi-install-global\ 1329}#
                                           #{n\ 1715}#
                                           (#{chi\ 1333}#
                                             #{e\ 1686}#
                                             #{r\ 1716}#
                                             #{w\ 1687}#
                                             #{mod\ 1689}#))))
                                   (begin
                                     (#{top-level-eval-hook\ 1258}#
                                       #{e\ 1717}#
                                       #{mod\ 1689}#)
                                     (if (memq (quote load) #{esew\ 1675}#)
                                       #{e\ 1717}#
                                       (#{chi-void\ 1341}#))))
                                 (if (memq (quote load) #{esew\ 1675}#)
                                   (#{chi-install-global\ 1329}#
                                     #{n\ 1715}#
                                     (#{chi\ 1333}#
                                       #{e\ 1686}#
                                       #{r\ 1716}#
                                       #{w\ 1687}#
                                       #{mod\ 1689}#))
                                   (#{chi-void\ 1341}#)))
                               (if (memv #{m\ 1674}# (quote (c&e)))
                                 (let ((#{e\ 1718}#
                                         (#{chi-install-global\ 1329}#
                                           #{n\ 1715}#
                                           (#{chi\ 1333}#
                                             #{e\ 1686}#
                                             #{r\ 1716}#
                                             #{w\ 1687}#
                                             #{mod\ 1689}#))))
                                   (begin
                                     (#{top-level-eval-hook\ 1258}#
                                       #{e\ 1718}#
                                       #{mod\ 1689}#)
                                     #{e\ 1718}#))
                                 (begin
                                   (if (memq (quote eval) #{esew\ 1675}#)
                                     (#{top-level-eval-hook\ 1258}#
                                       (#{chi-install-global\ 1329}#
                                         #{n\ 1715}#
                                         (#{chi\ 1333}#
                                           #{e\ 1686}#
                                           #{r\ 1716}#
                                           #{w\ 1687}#
                                           #{mod\ 1689}#))
                                       #{mod\ 1689}#))
                                   (#{chi-void\ 1341}#)))))
                           (if (memv #{type\ 1684}# (quote (define-form)))
                             (let ((#{n\ 1719}#
                                     (#{id-var-name\ 1319}#
                                       #{value\ 1685}#
                                       #{w\ 1687}#)))
                               (let ((#{type\ 1720}#
                                       (#{binding-type\ 1289}#
                                         (#{lookup\ 1294}#
                                           #{n\ 1719}#
                                           #{r\ 1672}#
                                           #{mod\ 1689}#))))
                                 (if (memv #{type\ 1720}#
                                           '(global core macro module-ref))
                                   (begin
                                     (if (if (not (module-local-variable
                                                    (current-module)
                                                    #{n\ 1719}#))
                                           (current-module)
                                           #f)
                                       (let ((#{old\ 1721}#
                                               (module-variable
                                                 (current-module)
                                                 #{n\ 1719}#)))
                                         (module-define!
                                           (current-module)
                                           #{n\ 1719}#
                                           (if (variable? #{old\ 1721}#)
                                             (variable-ref #{old\ 1721}#)
                                             #f))))
                                     (let ((#{x\ 1722}#
                                             (#{build-global-definition\ 1272}#
                                               #{s\ 1688}#
                                               #{n\ 1719}#
                                               (#{chi\ 1333}#
                                                 #{e\ 1686}#
                                                 #{r\ 1672}#
                                                 #{w\ 1687}#
                                                 #{mod\ 1689}#))))
                                       (begin
                                         (if (eq? #{m\ 1674}# (quote c&e))
                                           (#{top-level-eval-hook\ 1258}#
                                             #{x\ 1722}#
                                             #{mod\ 1689}#))
                                         #{x\ 1722}#)))
                                   (if (memv #{type\ 1720}#
                                             '(displaced-lexical))
                                     (syntax-violation
                                       #f
                                       "identifier out of context"
                                       #{e\ 1686}#
                                       (#{wrap\ 1325}#
                                         #{value\ 1685}#
                                         #{w\ 1687}#
                                         #{mod\ 1689}#))
                                     (syntax-violation
                                       #f
                                       "cannot define keyword at top level"
                                       #{e\ 1686}#
                                       (#{wrap\ 1325}#
                                         #{value\ 1685}#
                                         #{w\ 1687}#
                                         #{mod\ 1689}#))))))
                             (let ((#{x\ 1723}#
                                     (#{chi-expr\ 1334}#
                                       #{type\ 1684}#
                                       #{value\ 1685}#
                                       #{e\ 1686}#
                                       #{r\ 1672}#
                                       #{w\ 1687}#
                                       #{s\ 1688}#
                                       #{mod\ 1689}#)))
                               (begin
                                 (if (eq? #{m\ 1674}# (quote c&e))
                                   (#{top-level-eval-hook\ 1258}#
                                     #{x\ 1723}#
                                     #{mod\ 1689}#))
                                 #{x\ 1723}#)))))))))))
           (#{syntax-type\ 1331}#
             (lambda (#{e\ 1724}#
                      #{r\ 1725}#
                      #{w\ 1726}#
                      #{s\ 1727}#
                      #{rib\ 1728}#
                      #{mod\ 1729}#
                      #{for-car?\ 1730}#)
               (if (symbol? #{e\ 1724}#)
                 (let ((#{n\ 1731}#
                         (#{id-var-name\ 1319}# #{e\ 1724}# #{w\ 1726}#)))
                   (let ((#{b\ 1732}#
                           (#{lookup\ 1294}#
                             #{n\ 1731}#
                             #{r\ 1725}#
                             #{mod\ 1729}#)))
                     (let ((#{type\ 1733}#
                             (#{binding-type\ 1289}# #{b\ 1732}#)))
                       (if (memv #{type\ 1733}# (quote (lexical)))
                         (values
                           #{type\ 1733}#
                           (#{binding-value\ 1290}# #{b\ 1732}#)
                           #{e\ 1724}#
                           #{w\ 1726}#
                           #{s\ 1727}#
                           #{mod\ 1729}#)
                         (if (memv #{type\ 1733}# (quote (global)))
                           (values
                             #{type\ 1733}#
                             #{n\ 1731}#
                             #{e\ 1724}#
                             #{w\ 1726}#
                             #{s\ 1727}#
                             #{mod\ 1729}#)
                           (if (memv #{type\ 1733}# (quote (macro)))
                             (if #{for-car?\ 1730}#
                               (values
                                 #{type\ 1733}#
                                 (#{binding-value\ 1290}# #{b\ 1732}#)
                                 #{e\ 1724}#
                                 #{w\ 1726}#
                                 #{s\ 1727}#
                                 #{mod\ 1729}#)
                               (#{syntax-type\ 1331}#
                                 (#{chi-macro\ 1336}#
                                   (#{binding-value\ 1290}# #{b\ 1732}#)
                                   #{e\ 1724}#
                                   #{r\ 1725}#
                                   #{w\ 1726}#
                                   #{rib\ 1728}#
                                   #{mod\ 1729}#)
                                 #{r\ 1725}#
                                 '(())
                                 #{s\ 1727}#
                                 #{rib\ 1728}#
                                 #{mod\ 1729}#
                                 #f))
                             (values
                               #{type\ 1733}#
                               (#{binding-value\ 1290}# #{b\ 1732}#)
                               #{e\ 1724}#
                               #{w\ 1726}#
                               #{s\ 1727}#
                               #{mod\ 1729}#)))))))
                 (if (pair? #{e\ 1724}#)
                   (let ((#{first\ 1734}# (car #{e\ 1724}#)))
                     (call-with-values
                       (lambda ()
                         (#{syntax-type\ 1331}#
                           #{first\ 1734}#
                           #{r\ 1725}#
                           #{w\ 1726}#
                           #{s\ 1727}#
                           #{rib\ 1728}#
                           #{mod\ 1729}#
                           #t))
                       (lambda (#{ftype\ 1735}#
                                #{fval\ 1736}#
                                #{fe\ 1737}#
                                #{fw\ 1738}#
                                #{fs\ 1739}#
                                #{fmod\ 1740}#)
                         (if (memv #{ftype\ 1735}# (quote (lexical)))
                           (values
                             'lexical-call
                             #{fval\ 1736}#
                             #{e\ 1724}#
                             #{w\ 1726}#
                             #{s\ 1727}#
                             #{mod\ 1729}#)
                           (if (memv #{ftype\ 1735}# (quote (global)))
                             (values
                               'global-call
                               (#{make-syntax-object\ 1280}#
                                 #{fval\ 1736}#
                                 #{w\ 1726}#
                                 #{fmod\ 1740}#)
                               #{e\ 1724}#
                               #{w\ 1726}#
                               #{s\ 1727}#
                               #{mod\ 1729}#)
                             (if (memv #{ftype\ 1735}# (quote (macro)))
                               (#{syntax-type\ 1331}#
                                 (#{chi-macro\ 1336}#
                                   #{fval\ 1736}#
                                   #{e\ 1724}#
                                   #{r\ 1725}#
                                   #{w\ 1726}#
                                   #{rib\ 1728}#
                                   #{mod\ 1729}#)
                                 #{r\ 1725}#
                                 '(())
                                 #{s\ 1727}#
                                 #{rib\ 1728}#
                                 #{mod\ 1729}#
                                 #{for-car?\ 1730}#)
                               (if (memv #{ftype\ 1735}# (quote (module-ref)))
                                 (call-with-values
                                   (lambda () (#{fval\ 1736}# #{e\ 1724}#))
                                   (lambda (#{sym\ 1741}# #{mod\ 1742}#)
                                     (#{syntax-type\ 1331}#
                                       #{sym\ 1741}#
                                       #{r\ 1725}#
                                       #{w\ 1726}#
                                       #{s\ 1727}#
                                       #{rib\ 1728}#
                                       #{mod\ 1742}#
                                       #{for-car?\ 1730}#)))
                                 (if (memv #{ftype\ 1735}# (quote (core)))
                                   (values
                                     'core-form
                                     #{fval\ 1736}#
                                     #{e\ 1724}#
                                     #{w\ 1726}#
                                     #{s\ 1727}#
                                     #{mod\ 1729}#)
                                   (if (memv #{ftype\ 1735}#
                                             '(local-syntax))
                                     (values
                                       'local-syntax-form
                                       #{fval\ 1736}#
                                       #{e\ 1724}#
                                       #{w\ 1726}#
                                       #{s\ 1727}#
                                       #{mod\ 1729}#)
                                     (if (memv #{ftype\ 1735}# (quote (begin)))
                                       (values
                                         'begin-form
                                         #f
                                         #{e\ 1724}#
                                         #{w\ 1726}#
                                         #{s\ 1727}#
                                         #{mod\ 1729}#)
                                       (if (memv #{ftype\ 1735}#
                                                 '(eval-when))
                                         (values
                                           'eval-when-form
                                           #f
                                           #{e\ 1724}#
                                           #{w\ 1726}#
                                           #{s\ 1727}#
                                           #{mod\ 1729}#)
                                         (if (memv #{ftype\ 1735}#
                                                   '(define))
                                           ((lambda (#{tmp\ 1743}#)
                                              ((lambda (#{tmp\ 1744}#)
                                                 (if (if #{tmp\ 1744}#
                                                       (apply (lambda (#{_\ 1745}#
                                                                       #{name\ 1746}#
                                                                       #{val\ 1747}#)
                                                                (#{id?\ 1297}#
                                                                  #{name\ 1746}#))
                                                              #{tmp\ 1744}#)
                                                       #f)
                                                   (apply (lambda (#{_\ 1748}#
                                                                   #{name\ 1749}#
                                                                   #{val\ 1750}#)
                                                            (values
                                                              'define-form
                                                              #{name\ 1749}#
                                                              #{val\ 1750}#
                                                              #{w\ 1726}#
                                                              #{s\ 1727}#
                                                              #{mod\ 1729}#))
                                                          #{tmp\ 1744}#)
                                                   ((lambda (#{tmp\ 1751}#)
                                                      (if (if #{tmp\ 1751}#
                                                            (apply (lambda (#{_\ 1752}#
                                                                            #{name\ 1753}#
                                                                            #{args\ 1754}#
                                                                            #{e1\ 1755}#
                                                                            #{e2\ 1756}#)
                                                                     (if (#{id?\ 1297}#
                                                                           #{name\ 1753}#)
                                                                       (#{valid-bound-ids?\ 1322}#
                                                                         (#{lambda-var-list\ 1345}#
                                                                           #{args\ 1754}#))
                                                                       #f))
                                                                   #{tmp\ 1751}#)
                                                            #f)
                                                        (apply (lambda (#{_\ 1757}#
                                                                        #{name\ 1758}#
                                                                        #{args\ 1759}#
                                                                        #{e1\ 1760}#
                                                                        #{e2\ 1761}#)
                                                                 (values
                                                                   'define-form
                                                                   (#{wrap\ 1325}#
                                                                     #{name\ 1758}#
                                                                     #{w\ 1726}#
                                                                     #{mod\ 1729}#)
                                                                   (#{decorate-source\ 1262}#
                                                                     (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))
                                                                           (#{wrap\ 1325}#
                                                                             (cons #{args\ 1759}#
                                                                                   (cons #{e1\ 1760}#
                                                                                         #{e2\ 1761}#))
                                                                             #{w\ 1726}#
                                                                             #{mod\ 1729}#))
                                                                     #{s\ 1727}#)
                                                                   '(())
                                                                   #{s\ 1727}#
                                                                   #{mod\ 1729}#))
                                                               #{tmp\ 1751}#)
                                                        ((lambda (#{tmp\ 1763}#)
                                                           (if (if #{tmp\ 1763}#
                                                                 (apply (lambda (#{_\ 1764}#
                                                                                 #{name\ 1765}#)
                                                                          (#{id?\ 1297}#
                                                                            #{name\ 1765}#))
                                                                        #{tmp\ 1763}#)
                                                                 #f)
                                                             (apply (lambda (#{_\ 1766}#
                                                                             #{name\ 1767}#)
                                                                      (values
                                                                        'define-form
                                                                        (#{wrap\ 1325}#
                                                                          #{name\ 1767}#
                                                                          #{w\ 1726}#
                                                                          #{mod\ 1729}#)
                                                                        '(#(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)))
                                                                        '(())
                                                                        #{s\ 1727}#
                                                                        #{mod\ 1729}#))
                                                                    #{tmp\ 1763}#)
                                                             (syntax-violation
                                                               #f
                                                               "source expression failed to match any pattern"
                                                               #{tmp\ 1743}#)))
                                                         ($sc-dispatch
                                                           #{tmp\ 1743}#
                                                           '(any any)))))
                                                    ($sc-dispatch
                                                      #{tmp\ 1743}#
                                                      '(any (any . any)
                                                            any
                                                            .
                                                            each-any)))))
                                               ($sc-dispatch
                                                 #{tmp\ 1743}#
                                                 '(any any any))))
                                            #{e\ 1724}#)
                                           (if (memv #{ftype\ 1735}#
                                                     '(define-syntax))
                                             ((lambda (#{tmp\ 1768}#)
                                                ((lambda (#{tmp\ 1769}#)
                                                   (if (if #{tmp\ 1769}#
                                                         (apply (lambda (#{_\ 1770}#
                                                                         #{name\ 1771}#
                                                                         #{val\ 1772}#)
                                                                  (#{id?\ 1297}#
                                                                    #{name\ 1771}#))
                                                                #{tmp\ 1769}#)
                                                         #f)
                                                     (apply (lambda (#{_\ 1773}#
                                                                     #{name\ 1774}#
                                                                     #{val\ 1775}#)
                                                              (values
                                                                'define-syntax-form
                                                                #{name\ 1774}#
                                                                #{val\ 1775}#
                                                                #{w\ 1726}#
                                                                #{s\ 1727}#
                                                                #{mod\ 1729}#))
                                                            #{tmp\ 1769}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       #{tmp\ 1768}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 1768}#
                                                   '(any any any))))
                                              #{e\ 1724}#)
                                             (values
                                               'call
                                               #f
                                               #{e\ 1724}#
                                               #{w\ 1726}#
                                               #{s\ 1727}#
                                               #{mod\ 1729}#))))))))))))))
                   (if (#{syntax-object?\ 1281}# #{e\ 1724}#)
                     (#{syntax-type\ 1331}#
                       (#{syntax-object-expression\ 1282}# #{e\ 1724}#)
                       #{r\ 1725}#
                       (#{join-wraps\ 1316}#
                         #{w\ 1726}#
                         (#{syntax-object-wrap\ 1283}# #{e\ 1724}#))
                       #{s\ 1727}#
                       #{rib\ 1728}#
                       (let ((#{t\ 1776}#
                               (#{syntax-object-module\ 1284}# #{e\ 1724}#)))
                         (if #{t\ 1776}# #{t\ 1776}# #{mod\ 1729}#))
                       #{for-car?\ 1730}#)
                     (if (self-evaluating? #{e\ 1724}#)
                       (values
                         'constant
                         #f
                         #{e\ 1724}#
                         #{w\ 1726}#
                         #{s\ 1727}#
                         #{mod\ 1729}#)
                       (values
                         'other
                         #f
                         #{e\ 1724}#
                         #{w\ 1726}#
                         #{s\ 1727}#
                         #{mod\ 1729}#)))))))
           (#{chi-when-list\ 1330}#
             (lambda (#{e\ 1777}# #{when-list\ 1778}# #{w\ 1779}#)
               (letrec ((#{f\ 1780}#
                          (lambda (#{when-list\ 1781}# #{situations\ 1782}#)
                            (if (null? #{when-list\ 1781}#)
                              #{situations\ 1782}#
                              (#{f\ 1780}#
                                (cdr #{when-list\ 1781}#)
                                (cons (let ((#{x\ 1783}#
                                              (car #{when-list\ 1781}#)))
                                        (if (#{free-id=?\ 1320}#
                                              #{x\ 1783}#
                                              '#(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=?\ 1320}#
                                                #{x\ 1783}#
                                                '#(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=?\ 1320}#
                                                  #{x\ 1783}#
                                                  '#(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"
                                                #{e\ 1777}#
                                                (#{wrap\ 1325}#
                                                  #{x\ 1783}#
                                                  #{w\ 1779}#
                                                  #f))))))
                                      #{situations\ 1782}#))))))
                 (#{f\ 1780}# #{when-list\ 1778}# (quote ())))))
           (#{chi-install-global\ 1329}#
             (lambda (#{name\ 1784}# #{e\ 1785}#)
               (#{build-global-definition\ 1272}#
                 #f
                 #{name\ 1784}#
                 (if (let ((#{v\ 1786}#
                             (module-variable
                               (current-module)
                               #{name\ 1784}#)))
                       (if #{v\ 1786}#
                         (if (variable-bound? #{v\ 1786}#)
                           (if (macro? (variable-ref #{v\ 1786}#))
                             (not (eq? (macro-type (variable-ref #{v\ 1786}#))
                                       'syncase-macro))
                             #f)
                           #f)
                         #f))
                   (#{build-application\ 1264}#
                     #f
                     (#{build-primref\ 1274}#
                       #f
                       'make-extended-syncase-macro)
                     (list (#{build-application\ 1264}#
                             #f
                             (#{build-primref\ 1274}# #f (quote module-ref))
                             (list (#{build-application\ 1264}#
                                     #f
                                     (#{build-primref\ 1274}#
                                       #f
                                       'current-module)
                                     '())
                                   (#{build-data\ 1275}# #f #{name\ 1784}#)))
                           (#{build-data\ 1275}# #f (quote macro))
                           #{e\ 1785}#))
                   (#{build-application\ 1264}#
                     #f
                     (#{build-primref\ 1274}#
                       #f
                       'make-syncase-macro)
                     (list (#{build-data\ 1275}# #f (quote macro))
                           #{e\ 1785}#))))))
           (#{chi-top-sequence\ 1328}#
             (lambda (#{body\ 1787}#
                      #{r\ 1788}#
                      #{w\ 1789}#
                      #{s\ 1790}#
                      #{m\ 1791}#
                      #{esew\ 1792}#
                      #{mod\ 1793}#)
               (#{build-sequence\ 1276}#
                 #{s\ 1790}#
                 (letrec ((#{dobody\ 1794}#
                            (lambda (#{body\ 1795}#
                                     #{r\ 1796}#
                                     #{w\ 1797}#
                                     #{m\ 1798}#
                                     #{esew\ 1799}#
                                     #{mod\ 1800}#)
                              (if (null? #{body\ 1795}#)
                                '()
                                (let ((#{first\ 1801}#
                                        (#{chi-top\ 1332}#
                                          (car #{body\ 1795}#)
                                          #{r\ 1796}#
                                          #{w\ 1797}#
                                          #{m\ 1798}#
                                          #{esew\ 1799}#
                                          #{mod\ 1800}#)))
                                  (cons #{first\ 1801}#
                                        (#{dobody\ 1794}#
                                          (cdr #{body\ 1795}#)
                                          #{r\ 1796}#
                                          #{w\ 1797}#
                                          #{m\ 1798}#
                                          #{esew\ 1799}#
                                          #{mod\ 1800}#)))))))
                   (#{dobody\ 1794}#
                     #{body\ 1787}#
                     #{r\ 1788}#
                     #{w\ 1789}#
                     #{m\ 1791}#
                     #{esew\ 1792}#
                     #{mod\ 1793}#)))))
           (#{chi-sequence\ 1327}#
             (lambda (#{body\ 1802}#
                      #{r\ 1803}#
                      #{w\ 1804}#
                      #{s\ 1805}#
                      #{mod\ 1806}#)
               (#{build-sequence\ 1276}#
                 #{s\ 1805}#
                 (letrec ((#{dobody\ 1807}#
                            (lambda (#{body\ 1808}#
                                     #{r\ 1809}#
                                     #{w\ 1810}#
                                     #{mod\ 1811}#)
                              (if (null? #{body\ 1808}#)
                                '()
                                (let ((#{first\ 1812}#
                                        (#{chi\ 1333}#
                                          (car #{body\ 1808}#)
                                          #{r\ 1809}#
                                          #{w\ 1810}#
                                          #{mod\ 1811}#)))
                                  (cons #{first\ 1812}#
                                        (#{dobody\ 1807}#
                                          (cdr #{body\ 1808}#)
                                          #{r\ 1809}#
                                          #{w\ 1810}#
                                          #{mod\ 1811}#)))))))
                   (#{dobody\ 1807}#
                     #{body\ 1802}#
                     #{r\ 1803}#
                     #{w\ 1804}#
                     #{mod\ 1806}#)))))
           (#{source-wrap\ 1326}#
             (lambda (#{x\ 1813}#
                      #{w\ 1814}#
                      #{s\ 1815}#
                      #{defmod\ 1816}#)
               (#{wrap\ 1325}#
                 (#{decorate-source\ 1262}#
                   #{x\ 1813}#
                   #{s\ 1815}#)
                 #{w\ 1814}#
                 #{defmod\ 1816}#)))
           (#{wrap\ 1325}#
             (lambda (#{x\ 1817}# #{w\ 1818}# #{defmod\ 1819}#)
               (if (if (null? (#{wrap-marks\ 1300}# #{w\ 1818}#))
                     (null? (#{wrap-subst\ 1301}# #{w\ 1818}#))
                     #f)
                 #{x\ 1817}#
                 (if (#{syntax-object?\ 1281}# #{x\ 1817}#)
                   (#{make-syntax-object\ 1280}#
                     (#{syntax-object-expression\ 1282}# #{x\ 1817}#)
                     (#{join-wraps\ 1316}#
                       #{w\ 1818}#
                       (#{syntax-object-wrap\ 1283}# #{x\ 1817}#))
                     (#{syntax-object-module\ 1284}# #{x\ 1817}#))
                   (if (null? #{x\ 1817}#)
                     #{x\ 1817}#
                     (#{make-syntax-object\ 1280}#
                       #{x\ 1817}#
                       #{w\ 1818}#
                       #{defmod\ 1819}#))))))
           (#{bound-id-member?\ 1324}#
             (lambda (#{x\ 1820}# #{list\ 1821}#)
               (if (not (null? #{list\ 1821}#))
                 (let ((#{t\ 1822}#
                         (#{bound-id=?\ 1321}#
                           #{x\ 1820}#
                           (car #{list\ 1821}#))))
                   (if #{t\ 1822}#
                     #{t\ 1822}#
                     (#{bound-id-member?\ 1324}#
                       #{x\ 1820}#
                       (cdr #{list\ 1821}#))))
                 #f)))
           (#{distinct-bound-ids?\ 1323}#
             (lambda (#{ids\ 1823}#)
               (letrec ((#{distinct?\ 1824}#
                          (lambda (#{ids\ 1825}#)
                            (let ((#{t\ 1826}# (null? #{ids\ 1825}#)))
                              (if #{t\ 1826}#
                                #{t\ 1826}#
                                (if (not (#{bound-id-member?\ 1324}#
                                           (car #{ids\ 1825}#)
                                           (cdr #{ids\ 1825}#)))
                                  (#{distinct?\ 1824}# (cdr #{ids\ 1825}#))
                                  #f))))))
                 (#{distinct?\ 1824}# #{ids\ 1823}#))))
           (#{valid-bound-ids?\ 1322}#
             (lambda (#{ids\ 1827}#)
               (if (letrec ((#{all-ids?\ 1828}#
                              (lambda (#{ids\ 1829}#)
                                (let ((#{t\ 1830}# (null? #{ids\ 1829}#)))
                                  (if #{t\ 1830}#
                                    #{t\ 1830}#
                                    (if (#{id?\ 1297}# (car #{ids\ 1829}#))
                                      (#{all-ids?\ 1828}# (cdr #{ids\ 1829}#))
                                      #f))))))
                     (#{all-ids?\ 1828}# #{ids\ 1827}#))
                 (#{distinct-bound-ids?\ 1323}# #{ids\ 1827}#)
                 #f)))
           (#{bound-id=?\ 1321}#
             (lambda (#{i\ 1831}# #{j\ 1832}#)
               (if (if (#{syntax-object?\ 1281}# #{i\ 1831}#)
                     (#{syntax-object?\ 1281}# #{j\ 1832}#)
                     #f)
                 (if (eq? (#{syntax-object-expression\ 1282}# #{i\ 1831}#)
                          (#{syntax-object-expression\ 1282}# #{j\ 1832}#))
                   (#{same-marks?\ 1318}#
                     (#{wrap-marks\ 1300}#
                       (#{syntax-object-wrap\ 1283}# #{i\ 1831}#))
                     (#{wrap-marks\ 1300}#
                       (#{syntax-object-wrap\ 1283}# #{j\ 1832}#)))
                   #f)
                 (eq? #{i\ 1831}# #{j\ 1832}#))))
           (#{free-id=?\ 1320}#
             (lambda (#{i\ 1833}# #{j\ 1834}#)
               (if (eq? (let ((#{x\ 1835}# #{i\ 1833}#))
                          (if (#{syntax-object?\ 1281}# #{x\ 1835}#)
                            (#{syntax-object-expression\ 1282}# #{x\ 1835}#)
                            #{x\ 1835}#))
                        (let ((#{x\ 1836}# #{j\ 1834}#))
                          (if (#{syntax-object?\ 1281}# #{x\ 1836}#)
                            (#{syntax-object-expression\ 1282}# #{x\ 1836}#)
                            #{x\ 1836}#)))
                 (eq? (#{id-var-name\ 1319}# #{i\ 1833}# (quote (())))
                      (#{id-var-name\ 1319}# #{j\ 1834}# (quote (()))))
                 #f)))
           (#{id-var-name\ 1319}#
             (lambda (#{id\ 1837}# #{w\ 1838}#)
               (letrec ((#{search-vector-rib\ 1841}#
                          (lambda (#{sym\ 1847}#
                                   #{subst\ 1848}#
                                   #{marks\ 1849}#
                                   #{symnames\ 1850}#
                                   #{ribcage\ 1851}#)
                            (let ((#{n\ 1852}#
                                    (vector-length #{symnames\ 1850}#)))
                              (letrec ((#{f\ 1853}#
                                         (lambda (#{i\ 1854}#)
                                           (if (#{fx=\ 1256}#
                                                 #{i\ 1854}#
                                                 #{n\ 1852}#)
                                             (#{search\ 1839}#
                                               #{sym\ 1847}#
                                               (cdr #{subst\ 1848}#)
                                               #{marks\ 1849}#)
                                             (if (if (eq? (vector-ref
                                                            #{symnames\ 1850}#
                                                            #{i\ 1854}#)
                                                          #{sym\ 1847}#)
                                                   (#{same-marks?\ 1318}#
                                                     #{marks\ 1849}#
                                                     (vector-ref
                                                       (#{ribcage-marks\ 1307}#
                                                         #{ribcage\ 1851}#)
                                                       #{i\ 1854}#))
                                                   #f)
                                               (values
                                                 (vector-ref
                                                   (#{ribcage-labels\ 1308}#
                                                     #{ribcage\ 1851}#)
                                                   #{i\ 1854}#)
                                                 #{marks\ 1849}#)
                                               (#{f\ 1853}#
                                                 (#{fx+\ 1254}#
                                                   #{i\ 1854}#
                                                   1)))))))
                                (#{f\ 1853}# 0)))))
                        (#{search-list-rib\ 1840}#
                          (lambda (#{sym\ 1855}#
                                   #{subst\ 1856}#
                                   #{marks\ 1857}#
                                   #{symnames\ 1858}#
                                   #{ribcage\ 1859}#)
                            (letrec ((#{f\ 1860}#
                                       (lambda (#{symnames\ 1861}# #{i\ 1862}#)
                                         (if (null? #{symnames\ 1861}#)
                                           (#{search\ 1839}#
                                             #{sym\ 1855}#
                                             (cdr #{subst\ 1856}#)
                                             #{marks\ 1857}#)
                                           (if (if (eq? (car #{symnames\ 1861}#)
                                                        #{sym\ 1855}#)
                                                 (#{same-marks?\ 1318}#
                                                   #{marks\ 1857}#
                                                   (list-ref
                                                     (#{ribcage-marks\ 1307}#
                                                       #{ribcage\ 1859}#)
                                                     #{i\ 1862}#))
                                                 #f)
                                             (values
                                               (list-ref
                                                 (#{ribcage-labels\ 1308}#
                                                   #{ribcage\ 1859}#)
                                                 #{i\ 1862}#)
                                               #{marks\ 1857}#)
                                             (#{f\ 1860}#
                                               (cdr #{symnames\ 1861}#)
                                               (#{fx+\ 1254}#
                                                 #{i\ 1862}#
                                                 1)))))))
                              (#{f\ 1860}# #{symnames\ 1858}# 0))))
                        (#{search\ 1839}#
                          (lambda (#{sym\ 1863}#
                                   #{subst\ 1864}#
                                   #{marks\ 1865}#)
                            (if (null? #{subst\ 1864}#)
                              (values #f #{marks\ 1865}#)
                              (let ((#{fst\ 1866}# (car #{subst\ 1864}#)))
                                (if (eq? #{fst\ 1866}# (quote shift))
                                  (#{search\ 1839}#
                                    #{sym\ 1863}#
                                    (cdr #{subst\ 1864}#)
                                    (cdr #{marks\ 1865}#))
                                  (let ((#{symnames\ 1867}#
                                          (#{ribcage-symnames\ 1306}#
                                            #{fst\ 1866}#)))
                                    (if (vector? #{symnames\ 1867}#)
                                      (#{search-vector-rib\ 1841}#
                                        #{sym\ 1863}#
                                        #{subst\ 1864}#
                                        #{marks\ 1865}#
                                        #{symnames\ 1867}#
                                        #{fst\ 1866}#)
                                      (#{search-list-rib\ 1840}#
                                        #{sym\ 1863}#
                                        #{subst\ 1864}#
                                        #{marks\ 1865}#
                                        #{symnames\ 1867}#
                                        #{fst\ 1866}#)))))))))
                 (if (symbol? #{id\ 1837}#)
                   (let ((#{t\ 1868}#
                           (call-with-values
                             (lambda ()
                               (#{search\ 1839}#
                                 #{id\ 1837}#
                                 (#{wrap-subst\ 1301}# #{w\ 1838}#)
                                 (#{wrap-marks\ 1300}# #{w\ 1838}#)))
                             (lambda (#{x\ 1870}# . #{ignore\ 1869}#)
                               #{x\ 1870}#))))
                     (if #{t\ 1868}# #{t\ 1868}# #{id\ 1837}#))
                   (if (#{syntax-object?\ 1281}# #{id\ 1837}#)
                     (let ((#{id\ 1871}#
                             (#{syntax-object-expression\ 1282}# #{id\ 1837}#))
                           (#{w1\ 1872}#
                             (#{syntax-object-wrap\ 1283}# #{id\ 1837}#)))
                       (let ((#{marks\ 1873}#
                               (#{join-marks\ 1317}#
                                 (#{wrap-marks\ 1300}# #{w\ 1838}#)
                                 (#{wrap-marks\ 1300}# #{w1\ 1872}#))))
                         (call-with-values
                           (lambda ()
                             (#{search\ 1839}#
                               #{id\ 1871}#
                               (#{wrap-subst\ 1301}# #{w\ 1838}#)
                               #{marks\ 1873}#))
                           (lambda (#{new-id\ 1874}# #{marks\ 1875}#)
                             (let ((#{t\ 1876}# #{new-id\ 1874}#))
                               (if #{t\ 1876}#
                                 #{t\ 1876}#
                                 (let ((#{t\ 1877}#
                                         (call-with-values
                                           (lambda ()
                                             (#{search\ 1839}#
                                               #{id\ 1871}#
                                               (#{wrap-subst\ 1301}#
                                                 #{w1\ 1872}#)
                                               #{marks\ 1875}#))
                                           (lambda (#{x\ 1879}#
                                                    .
                                                    #{ignore\ 1878}#)
                                             #{x\ 1879}#))))
                                   (if #{t\ 1877}#
                                     #{t\ 1877}#
                                     #{id\ 1871}#))))))))
                     (syntax-violation
                       'id-var-name
                       "invalid id"
                       #{id\ 1837}#))))))
           (#{same-marks?\ 1318}#
             (lambda (#{x\ 1880}# #{y\ 1881}#)
               (let ((#{t\ 1882}# (eq? #{x\ 1880}# #{y\ 1881}#)))
                 (if #{t\ 1882}#
                   #{t\ 1882}#
                   (if (not (null? #{x\ 1880}#))
                     (if (not (null? #{y\ 1881}#))
                       (if (eq? (car #{x\ 1880}#) (car #{y\ 1881}#))
                         (#{same-marks?\ 1318}#
                           (cdr #{x\ 1880}#)
                           (cdr #{y\ 1881}#))
                         #f)
                       #f)
                     #f)))))
           (#{join-marks\ 1317}#
             (lambda (#{m1\ 1883}# #{m2\ 1884}#)
               (#{smart-append\ 1315}#
                 #{m1\ 1883}#
                 #{m2\ 1884}#)))
           (#{join-wraps\ 1316}#
             (lambda (#{w1\ 1885}# #{w2\ 1886}#)
               (let ((#{m1\ 1887}#
                       (#{wrap-marks\ 1300}# #{w1\ 1885}#))
                     (#{s1\ 1888}#
                       (#{wrap-subst\ 1301}# #{w1\ 1885}#)))
                 (if (null? #{m1\ 1887}#)
                   (if (null? #{s1\ 1888}#)
                     #{w2\ 1886}#
                     (#{make-wrap\ 1299}#
                       (#{wrap-marks\ 1300}# #{w2\ 1886}#)
                       (#{smart-append\ 1315}#
                         #{s1\ 1888}#
                         (#{wrap-subst\ 1301}# #{w2\ 1886}#))))
                   (#{make-wrap\ 1299}#
                     (#{smart-append\ 1315}#
                       #{m1\ 1887}#
                       (#{wrap-marks\ 1300}# #{w2\ 1886}#))
                     (#{smart-append\ 1315}#
                       #{s1\ 1888}#
                       (#{wrap-subst\ 1301}# #{w2\ 1886}#)))))))
           (#{smart-append\ 1315}#
             (lambda (#{m1\ 1889}# #{m2\ 1890}#)
               (if (null? #{m2\ 1890}#)
                 #{m1\ 1889}#
                 (append #{m1\ 1889}# #{m2\ 1890}#))))
           (#{make-binding-wrap\ 1314}#
             (lambda (#{ids\ 1891}# #{labels\ 1892}# #{w\ 1893}#)
               (if (null? #{ids\ 1891}#)
                 #{w\ 1893}#
                 (#{make-wrap\ 1299}#
                   (#{wrap-marks\ 1300}# #{w\ 1893}#)
                   (cons (let ((#{labelvec\ 1894}#
                                 (list->vector #{labels\ 1892}#)))
                           (let ((#{n\ 1895}#
                                   (vector-length #{labelvec\ 1894}#)))
                             (let ((#{symnamevec\ 1896}#
                                     (make-vector #{n\ 1895}#))
                                   (#{marksvec\ 1897}#
                                     (make-vector #{n\ 1895}#)))
                               (begin
                                 (letrec ((#{f\ 1898}#
                                            (lambda (#{ids\ 1899}# #{i\ 1900}#)
                                              (if (not (null? #{ids\ 1899}#))
                                                (call-with-values
                                                  (lambda ()
                                                    (#{id-sym-name&marks\ 1298}#
                                                      (car #{ids\ 1899}#)
                                                      #{w\ 1893}#))
                                                  (lambda (#{symname\ 1901}#
                                                           #{marks\ 1902}#)
                                                    (begin
                                                      (vector-set!
                                                        #{symnamevec\ 1896}#
                                                        #{i\ 1900}#
                                                        #{symname\ 1901}#)
                                                      (vector-set!
                                                        #{marksvec\ 1897}#
                                                        #{i\ 1900}#
                                                        #{marks\ 1902}#)
                                                      (#{f\ 1898}#
                                                        (cdr #{ids\ 1899}#)
                                                        (#{fx+\ 1254}#
                                                          #{i\ 1900}#
                                                          1)))))))))
                                   (#{f\ 1898}# #{ids\ 1891}# 0))
                                 (#{make-ribcage\ 1304}#
                                   #{symnamevec\ 1896}#
                                   #{marksvec\ 1897}#
                                   #{labelvec\ 1894}#)))))
                         (#{wrap-subst\ 1301}# #{w\ 1893}#))))))
           (#{extend-ribcage!\ 1313}#
             (lambda (#{ribcage\ 1903}# #{id\ 1904}# #{label\ 1905}#)
               (begin
                 (#{set-ribcage-symnames!\ 1309}#
                   #{ribcage\ 1903}#
                   (cons (#{syntax-object-expression\ 1282}# #{id\ 1904}#)
                         (#{ribcage-symnames\ 1306}# #{ribcage\ 1903}#)))
                 (#{set-ribcage-marks!\ 1310}#
                   #{ribcage\ 1903}#
                   (cons (#{wrap-marks\ 1300}#
                           (#{syntax-object-wrap\ 1283}# #{id\ 1904}#))
                         (#{ribcage-marks\ 1307}# #{ribcage\ 1903}#)))
                 (#{set-ribcage-labels!\ 1311}#
                   #{ribcage\ 1903}#
                   (cons #{label\ 1905}#
                         (#{ribcage-labels\ 1308}# #{ribcage\ 1903}#))))))
           (#{anti-mark\ 1312}#
             (lambda (#{w\ 1906}#)
               (#{make-wrap\ 1299}#
                 (cons #f (#{wrap-marks\ 1300}# #{w\ 1906}#))
                 (cons 'shift
                       (#{wrap-subst\ 1301}# #{w\ 1906}#)))))
           (#{set-ribcage-labels!\ 1311}#
             (lambda (#{x\ 1907}# #{update\ 1908}#)
               (vector-set! #{x\ 1907}# 3 #{update\ 1908}#)))
           (#{set-ribcage-marks!\ 1310}#
             (lambda (#{x\ 1909}# #{update\ 1910}#)
               (vector-set! #{x\ 1909}# 2 #{update\ 1910}#)))
           (#{set-ribcage-symnames!\ 1309}#
             (lambda (#{x\ 1911}# #{update\ 1912}#)
               (vector-set! #{x\ 1911}# 1 #{update\ 1912}#)))
           (#{ribcage-labels\ 1308}#
             (lambda (#{x\ 1913}#) (vector-ref #{x\ 1913}# 3)))
           (#{ribcage-marks\ 1307}#
             (lambda (#{x\ 1914}#) (vector-ref #{x\ 1914}# 2)))
           (#{ribcage-symnames\ 1306}#
             (lambda (#{x\ 1915}#) (vector-ref #{x\ 1915}# 1)))
           (#{ribcage?\ 1305}#
             (lambda (#{x\ 1916}#)
               (if (vector? #{x\ 1916}#)
                 (if (= (vector-length #{x\ 1916}#) 4)
                   (eq? (vector-ref #{x\ 1916}# 0) (quote ribcage))
                   #f)
                 #f)))
           (#{make-ribcage\ 1304}#
             (lambda (#{symnames\ 1917}#
                      #{marks\ 1918}#
                      #{labels\ 1919}#)
               (vector
                 'ribcage
                 #{symnames\ 1917}#
                 #{marks\ 1918}#
                 #{labels\ 1919}#)))
           (#{gen-labels\ 1303}#
             (lambda (#{ls\ 1920}#)
               (if (null? #{ls\ 1920}#)
                 '()
                 (cons (#{gen-label\ 1302}#)
                       (#{gen-labels\ 1303}# (cdr #{ls\ 1920}#))))))
           (#{gen-label\ 1302}# (lambda () (string #\i)))
           (#{wrap-subst\ 1301}# cdr)
           (#{wrap-marks\ 1300}# car)
           (#{make-wrap\ 1299}# cons)
           (#{id-sym-name&marks\ 1298}#
             (lambda (#{x\ 1921}# #{w\ 1922}#)
               (if (#{syntax-object?\ 1281}# #{x\ 1921}#)
                 (values
                   (#{syntax-object-expression\ 1282}# #{x\ 1921}#)
                   (#{join-marks\ 1317}#
                     (#{wrap-marks\ 1300}# #{w\ 1922}#)
                     (#{wrap-marks\ 1300}#
                       (#{syntax-object-wrap\ 1283}# #{x\ 1921}#))))
                 (values
                   #{x\ 1921}#
                   (#{wrap-marks\ 1300}# #{w\ 1922}#)))))
           (#{id?\ 1297}#
             (lambda (#{x\ 1923}#)
               (if (symbol? #{x\ 1923}#)
                 #t
                 (if (#{syntax-object?\ 1281}# #{x\ 1923}#)
                   (symbol?
                     (#{syntax-object-expression\ 1282}# #{x\ 1923}#))
                   #f))))
           (#{nonsymbol-id?\ 1296}#
             (lambda (#{x\ 1924}#)
               (if (#{syntax-object?\ 1281}# #{x\ 1924}#)
                 (symbol?
                   (#{syntax-object-expression\ 1282}# #{x\ 1924}#))
                 #f)))
           (#{global-extend\ 1295}#
             (lambda (#{type\ 1925}# #{sym\ 1926}# #{val\ 1927}#)
               (#{put-global-definition-hook\ 1260}#
                 #{sym\ 1926}#
                 #{type\ 1925}#
                 #{val\ 1927}#)))
           (#{lookup\ 1294}#
             (lambda (#{x\ 1928}# #{r\ 1929}# #{mod\ 1930}#)
               (let ((#{t\ 1931}# (assq #{x\ 1928}# #{r\ 1929}#)))
                 (if #{t\ 1931}#
                   (cdr #{t\ 1931}#)
                   (if (symbol? #{x\ 1928}#)
                     (let ((#{t\ 1932}#
                             (#{get-global-definition-hook\ 1261}#
                               #{x\ 1928}#
                               #{mod\ 1930}#)))
                       (if #{t\ 1932}# #{t\ 1932}# (quote (global))))
                     '(displaced-lexical))))))
           (#{macros-only-env\ 1293}#
             (lambda (#{r\ 1933}#)
               (if (null? #{r\ 1933}#)
                 '()
                 (let ((#{a\ 1934}# (car #{r\ 1933}#)))
                   (if (eq? (cadr #{a\ 1934}#) (quote macro))
                     (cons #{a\ 1934}#
                           (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#)))
                     (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#)))))))
           (#{extend-var-env\ 1292}#
             (lambda (#{labels\ 1935}# #{vars\ 1936}# #{r\ 1937}#)
               (if (null? #{labels\ 1935}#)
                 #{r\ 1937}#
                 (#{extend-var-env\ 1292}#
                   (cdr #{labels\ 1935}#)
                   (cdr #{vars\ 1936}#)
                   (cons (cons (car #{labels\ 1935}#)
                               (cons (quote lexical) (car #{vars\ 1936}#)))
                         #{r\ 1937}#)))))
           (#{extend-env\ 1291}#
             (lambda (#{labels\ 1938}# #{bindings\ 1939}# #{r\ 1940}#)
               (if (null? #{labels\ 1938}#)
                 #{r\ 1940}#
                 (#{extend-env\ 1291}#
                   (cdr #{labels\ 1938}#)
                   (cdr #{bindings\ 1939}#)
                   (cons (cons (car #{labels\ 1938}#)
                               (car #{bindings\ 1939}#))
                         #{r\ 1940}#)))))
           (#{binding-value\ 1290}# cdr)
           (#{binding-type\ 1289}# car)
           (#{source-annotation\ 1288}#
             (lambda (#{x\ 1941}#)
               (if (#{syntax-object?\ 1281}# #{x\ 1941}#)
                 (#{source-annotation\ 1288}#
                   (#{syntax-object-expression\ 1282}# #{x\ 1941}#))
                 (if (pair? #{x\ 1941}#)
                   (let ((#{props\ 1942}# (source-properties #{x\ 1941}#)))
                     (if (pair? #{props\ 1942}#) #{props\ 1942}# #f))
                   #f))))
           (#{set-syntax-object-module!\ 1287}#
             (lambda (#{x\ 1943}# #{update\ 1944}#)
               (vector-set! #{x\ 1943}# 3 #{update\ 1944}#)))
           (#{set-syntax-object-wrap!\ 1286}#
             (lambda (#{x\ 1945}# #{update\ 1946}#)
               (vector-set! #{x\ 1945}# 2 #{update\ 1946}#)))
           (#{set-syntax-object-expression!\ 1285}#
             (lambda (#{x\ 1947}# #{update\ 1948}#)
               (vector-set! #{x\ 1947}# 1 #{update\ 1948}#)))
           (#{syntax-object-module\ 1284}#
             (lambda (#{x\ 1949}#) (vector-ref #{x\ 1949}# 3)))
           (#{syntax-object-wrap\ 1283}#
             (lambda (#{x\ 1950}#) (vector-ref #{x\ 1950}# 2)))
           (#{syntax-object-expression\ 1282}#
             (lambda (#{x\ 1951}#) (vector-ref #{x\ 1951}# 1)))
           (#{syntax-object?\ 1281}#
             (lambda (#{x\ 1952}#)
               (if (vector? #{x\ 1952}#)
                 (if (= (vector-length #{x\ 1952}#) 4)
                   (eq? (vector-ref #{x\ 1952}# 0)
                        'syntax-object)
                   #f)
                 #f)))
           (#{make-syntax-object\ 1280}#
             (lambda (#{expression\ 1953}#
                      #{wrap\ 1954}#
                      #{module\ 1955}#)
               (vector
                 'syntax-object
                 #{expression\ 1953}#
                 #{wrap\ 1954}#
                 #{module\ 1955}#)))
           (#{build-letrec\ 1279}#
             (lambda (#{src\ 1956}#
                      #{ids\ 1957}#
                      #{vars\ 1958}#
                      #{val-exps\ 1959}#
                      #{body-exp\ 1960}#)
               (if (null? #{vars\ 1958}#)
                 #{body-exp\ 1960}#
                 (let ((#{atom-key\ 1961}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1961}# (quote (c)))
                     (begin
                       (for-each
                         #{maybe-name-value!\ 1271}#
                         #{ids\ 1957}#
                         #{val-exps\ 1959}#)
                       ((@ (language tree-il) make-letrec)
                        #{src\ 1956}#
                        #{ids\ 1957}#
                        #{vars\ 1958}#
                        #{val-exps\ 1959}#
                        #{body-exp\ 1960}#))
                     (#{decorate-source\ 1262}#
                       (list 'letrec
                             (map list #{vars\ 1958}# #{val-exps\ 1959}#)
                             #{body-exp\ 1960}#)
                       #{src\ 1956}#))))))
           (#{build-named-let\ 1278}#
             (lambda (#{src\ 1962}#
                      #{ids\ 1963}#
                      #{vars\ 1964}#
                      #{val-exps\ 1965}#
                      #{body-exp\ 1966}#)
               (let ((#{f\ 1967}# (car #{vars\ 1964}#))
                     (#{f-name\ 1968}# (car #{ids\ 1963}#))
                     (#{vars\ 1969}# (cdr #{vars\ 1964}#))
                     (#{ids\ 1970}# (cdr #{ids\ 1963}#)))
                 (let ((#{atom-key\ 1971}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1971}# (quote (c)))
                     (let ((#{proc\ 1972}#
                             (#{build-lambda\ 1273}#
                               #{src\ 1962}#
                               #{ids\ 1970}#
                               #{vars\ 1969}#
                               #f
                               #{body-exp\ 1966}#)))
                       (begin
                         (#{maybe-name-value!\ 1271}#
                           #{f-name\ 1968}#
                           #{proc\ 1972}#)
                         (for-each
                           #{maybe-name-value!\ 1271}#
                           #{ids\ 1970}#
                           #{val-exps\ 1965}#)
                         ((@ (language tree-il) make-letrec)
                          #{src\ 1962}#
                          (list #{f-name\ 1968}#)
                          (list #{f\ 1967}#)
                          (list #{proc\ 1972}#)
                          (#{build-application\ 1264}#
                            #{src\ 1962}#
                            (#{build-lexical-reference\ 1266}#
                              'fun
                              #{src\ 1962}#
                              #{f-name\ 1968}#
                              #{f\ 1967}#)
                            #{val-exps\ 1965}#))))
                     (#{decorate-source\ 1262}#
                       (list 'let
                             #{f\ 1967}#
                             (map list #{vars\ 1969}# #{val-exps\ 1965}#)
                             #{body-exp\ 1966}#)
                       #{src\ 1962}#))))))
           (#{build-let\ 1277}#
             (lambda (#{src\ 1973}#
                      #{ids\ 1974}#
                      #{vars\ 1975}#
                      #{val-exps\ 1976}#
                      #{body-exp\ 1977}#)
               (if (null? #{vars\ 1975}#)
                 #{body-exp\ 1977}#
                 (let ((#{atom-key\ 1978}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1978}# (quote (c)))
                     (begin
                       (for-each
                         #{maybe-name-value!\ 1271}#
                         #{ids\ 1974}#
                         #{val-exps\ 1976}#)
                       ((@ (language tree-il) make-let)
                        #{src\ 1973}#
                        #{ids\ 1974}#
                        #{vars\ 1975}#
                        #{val-exps\ 1976}#
                        #{body-exp\ 1977}#))
                     (#{decorate-source\ 1262}#
                       (list 'let
                             (map list #{vars\ 1975}# #{val-exps\ 1976}#)
                             #{body-exp\ 1977}#)
                       #{src\ 1973}#))))))
           (#{build-sequence\ 1276}#
             (lambda (#{src\ 1979}# #{exps\ 1980}#)
               (if (null? (cdr #{exps\ 1980}#))
                 (car #{exps\ 1980}#)
                 (let ((#{atom-key\ 1981}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1981}# (quote (c)))
                     ((@ (language tree-il) make-sequence)
                      #{src\ 1979}#
                      #{exps\ 1980}#)
                     (#{decorate-source\ 1262}#
                       (cons (quote begin) #{exps\ 1980}#)
                       #{src\ 1979}#))))))
           (#{build-data\ 1275}#
             (lambda (#{src\ 1982}# #{exp\ 1983}#)
               (let ((#{atom-key\ 1984}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 1984}# (quote (c)))
                   ((@ (language tree-il) make-const)
                    #{src\ 1982}#
                    #{exp\ 1983}#)
                   (#{decorate-source\ 1262}#
                     (if (if (self-evaluating? #{exp\ 1983}#)
                           (not (vector? #{exp\ 1983}#))
                           #f)
                       #{exp\ 1983}#
                       (list (quote quote) #{exp\ 1983}#))
                     #{src\ 1982}#)))))
           (#{build-primref\ 1274}#
             (lambda (#{src\ 1985}# #{name\ 1986}#)
               (if (equal?
                     (module-name (current-module))
                     '(guile))
                 (let ((#{atom-key\ 1987}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1987}# (quote (c)))
                     ((@ (language tree-il) make-toplevel-ref)
                      #{src\ 1985}#
                      #{name\ 1986}#)
                     (#{decorate-source\ 1262}#
                       #{name\ 1986}#
                       #{src\ 1985}#)))
                 (let ((#{atom-key\ 1988}# (fluid-ref #{*mode*\ 1253}#)))
                   (if (memv #{atom-key\ 1988}# (quote (c)))
                     ((@ (language tree-il) make-module-ref)
                      #{src\ 1985}#
                      '(guile)
                      #{name\ 1986}#
                      #f)
                     (#{decorate-source\ 1262}#
                       (list (quote @@) (quote (guile)) #{name\ 1986}#)
                       #{src\ 1985}#))))))
           (#{build-lambda\ 1273}#
             (lambda (#{src\ 1989}#
                      #{ids\ 1990}#
                      #{vars\ 1991}#
                      #{docstring\ 1992}#
                      #{exp\ 1993}#)
               (let ((#{atom-key\ 1994}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 1994}# (quote (c)))
                   ((@ (language tree-il) make-lambda)
                    #{src\ 1989}#
                    #{ids\ 1990}#
                    #{vars\ 1991}#
                    (if #{docstring\ 1992}#
                      (list (cons (quote documentation) #{docstring\ 1992}#))
                      '())
                    #{exp\ 1993}#)
                   (#{decorate-source\ 1262}#
                     (cons 'lambda
                           (cons #{vars\ 1991}#
                                 (append
                                   (if #{docstring\ 1992}#
                                     (list #{docstring\ 1992}#)
                                     '())
                                   (list #{exp\ 1993}#))))
                     #{src\ 1989}#)))))
           (#{build-global-definition\ 1272}#
             (lambda (#{source\ 1995}# #{var\ 1996}# #{exp\ 1997}#)
               (let ((#{atom-key\ 1998}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 1998}# (quote (c)))
                   (begin
                     (#{maybe-name-value!\ 1271}#
                       #{var\ 1996}#
                       #{exp\ 1997}#)
                     ((@ (language tree-il) make-toplevel-define)
                      #{source\ 1995}#
                      #{var\ 1996}#
                      #{exp\ 1997}#))
                   (#{decorate-source\ 1262}#
                     (list (quote define) #{var\ 1996}# #{exp\ 1997}#)
                     #{source\ 1995}#)))))
           (#{maybe-name-value!\ 1271}#
             (lambda (#{name\ 1999}# #{val\ 2000}#)
               (if ((@ (language tree-il) lambda?) #{val\ 2000}#)
                 (let ((#{meta\ 2001}#
                         ((@ (language tree-il) lambda-meta)
                          #{val\ 2000}#)))
                   (if (not (assq (quote name) #{meta\ 2001}#))
                     ((setter (@ (language tree-il) lambda-meta))
                      #{val\ 2000}#
                      (acons 'name
                             #{name\ 1999}#
                             #{meta\ 2001}#)))))))
           (#{build-global-assignment\ 1270}#
             (lambda (#{source\ 2002}#
                      #{var\ 2003}#
                      #{exp\ 2004}#
                      #{mod\ 2005}#)
               (#{analyze-variable\ 1268}#
                 #{mod\ 2005}#
                 #{var\ 2003}#
                 (lambda (#{mod\ 2006}# #{var\ 2007}# #{public?\ 2008}#)
                   (let ((#{atom-key\ 2009}# (fluid-ref #{*mode*\ 1253}#)))
                     (if (memv #{atom-key\ 2009}# (quote (c)))
                       ((@ (language tree-il) make-module-set)
                        #{source\ 2002}#
                        #{mod\ 2006}#
                        #{var\ 2007}#
                        #{public?\ 2008}#
                        #{exp\ 2004}#)
                       (#{decorate-source\ 1262}#
                         (list 'set!
                               (list (if #{public?\ 2008}#
                                       '@
                                       '@@)
                                     #{mod\ 2006}#
                                     #{var\ 2007}#)
                               #{exp\ 2004}#)
                         #{source\ 2002}#))))
                 (lambda (#{var\ 2010}#)
                   (let ((#{atom-key\ 2011}# (fluid-ref #{*mode*\ 1253}#)))
                     (if (memv #{atom-key\ 2011}# (quote (c)))
                       ((@ (language tree-il) make-toplevel-set)
                        #{source\ 2002}#
                        #{var\ 2010}#
                        #{exp\ 2004}#)
                       (#{decorate-source\ 1262}#
                         (list (quote set!) #{var\ 2010}# #{exp\ 2004}#)
                         #{source\ 2002}#)))))))
           (#{build-global-reference\ 1269}#
             (lambda (#{source\ 2012}# #{var\ 2013}# #{mod\ 2014}#)
               (#{analyze-variable\ 1268}#
                 #{mod\ 2014}#
                 #{var\ 2013}#
                 (lambda (#{mod\ 2015}# #{var\ 2016}# #{public?\ 2017}#)
                   (let ((#{atom-key\ 2018}# (fluid-ref #{*mode*\ 1253}#)))
                     (if (memv #{atom-key\ 2018}# (quote (c)))
                       ((@ (language tree-il) make-module-ref)
                        #{source\ 2012}#
                        #{mod\ 2015}#
                        #{var\ 2016}#
                        #{public?\ 2017}#)
                       (#{decorate-source\ 1262}#
                         (list (if #{public?\ 2017}# (quote @) (quote @@))
                               #{mod\ 2015}#
                               #{var\ 2016}#)
                         #{source\ 2012}#))))
                 (lambda (#{var\ 2019}#)
                   (let ((#{atom-key\ 2020}# (fluid-ref #{*mode*\ 1253}#)))
                     (if (memv #{atom-key\ 2020}# (quote (c)))
                       ((@ (language tree-il) make-toplevel-ref)
                        #{source\ 2012}#
                        #{var\ 2019}#)
                       (#{decorate-source\ 1262}#
                         #{var\ 2019}#
                         #{source\ 2012}#)))))))
           (#{analyze-variable\ 1268}#
             (lambda (#{mod\ 2021}#
                      #{var\ 2022}#
                      #{modref-cont\ 2023}#
                      #{bare-cont\ 2024}#)
               (if (not #{mod\ 2021}#)
                 (#{bare-cont\ 2024}# #{var\ 2022}#)
                 (let ((#{kind\ 2025}# (car #{mod\ 2021}#))
                       (#{mod\ 2026}# (cdr #{mod\ 2021}#)))
                   (if (memv #{kind\ 2025}# (quote (public)))
                     (#{modref-cont\ 2023}#
                       #{mod\ 2026}#
                       #{var\ 2022}#
                       #t)
                     (if (memv #{kind\ 2025}# (quote (private)))
                       (if (not (equal?
                                  #{mod\ 2026}#
                                  (module-name (current-module))))
                         (#{modref-cont\ 2023}#
                           #{mod\ 2026}#
                           #{var\ 2022}#
                           #f)
                         (#{bare-cont\ 2024}# #{var\ 2022}#))
                       (if (memv #{kind\ 2025}# (quote (bare)))
                         (#{bare-cont\ 2024}# #{var\ 2022}#)
                         (if (memv #{kind\ 2025}# (quote (hygiene)))
                           (if (if (not (equal?
                                          #{mod\ 2026}#
                                          (module-name (current-module))))
                                 (module-variable
                                   (resolve-module #{mod\ 2026}#)
                                   #{var\ 2022}#)
                                 #f)
                             (#{modref-cont\ 2023}#
                               #{mod\ 2026}#
                               #{var\ 2022}#
                               #f)
                             (#{bare-cont\ 2024}# #{var\ 2022}#))
                           (syntax-violation
                             #f
                             "bad module kind"
                             #{var\ 2022}#
                             #{mod\ 2026}#)))))))))
           (#{build-lexical-assignment\ 1267}#
             (lambda (#{source\ 2027}#
                      #{name\ 2028}#
                      #{var\ 2029}#
                      #{exp\ 2030}#)
               (let ((#{atom-key\ 2031}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 2031}# (quote (c)))
                   ((@ (language tree-il) make-lexical-set)
                    #{source\ 2027}#
                    #{name\ 2028}#
                    #{var\ 2029}#
                    #{exp\ 2030}#)
                   (#{decorate-source\ 1262}#
                     (list (quote set!) #{var\ 2029}# #{exp\ 2030}#)
                     #{source\ 2027}#)))))
           (#{build-lexical-reference\ 1266}#
             (lambda (#{type\ 2032}#
                      #{source\ 2033}#
                      #{name\ 2034}#
                      #{var\ 2035}#)
               (let ((#{atom-key\ 2036}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 2036}# (quote (c)))
                   ((@ (language tree-il) make-lexical-ref)
                    #{source\ 2033}#
                    #{name\ 2034}#
                    #{var\ 2035}#)
                   (#{decorate-source\ 1262}#
                     #{var\ 2035}#
                     #{source\ 2033}#)))))
           (#{build-conditional\ 1265}#
             (lambda (#{source\ 2037}#
                      #{test-exp\ 2038}#
                      #{then-exp\ 2039}#
                      #{else-exp\ 2040}#)
               (let ((#{atom-key\ 2041}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 2041}# (quote (c)))
                   ((@ (language tree-il) make-conditional)
                    #{source\ 2037}#
                    #{test-exp\ 2038}#
                    #{then-exp\ 2039}#
                    #{else-exp\ 2040}#)
                   (#{decorate-source\ 1262}#
                     (if (equal? #{else-exp\ 2040}# (quote (if #f #f)))
                       (list 'if
                             #{test-exp\ 2038}#
                             #{then-exp\ 2039}#)
                       (list 'if
                             #{test-exp\ 2038}#
                             #{then-exp\ 2039}#
                             #{else-exp\ 2040}#))
                     #{source\ 2037}#)))))
           (#{build-application\ 1264}#
             (lambda (#{source\ 2042}#
                      #{fun-exp\ 2043}#
                      #{arg-exps\ 2044}#)
               (let ((#{atom-key\ 2045}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 2045}# (quote (c)))
                   ((@ (language tree-il) make-application)
                    #{source\ 2042}#
                    #{fun-exp\ 2043}#
                    #{arg-exps\ 2044}#)
                   (#{decorate-source\ 1262}#
                     (cons #{fun-exp\ 2043}# #{arg-exps\ 2044}#)
                     #{source\ 2042}#)))))
           (#{build-void\ 1263}#
             (lambda (#{source\ 2046}#)
               (let ((#{atom-key\ 2047}# (fluid-ref #{*mode*\ 1253}#)))
                 (if (memv #{atom-key\ 2047}# (quote (c)))
                   ((@ (language tree-il) make-void)
                    #{source\ 2046}#)
                   (#{decorate-source\ 1262}#
                     '(if #f #f)
                     #{source\ 2046}#)))))
           (#{decorate-source\ 1262}#
             (lambda (#{e\ 2048}# #{s\ 2049}#)
               (begin
                 (if (if (pair? #{e\ 2048}#) #{s\ 2049}# #f)
                   (set-source-properties! #{e\ 2048}# #{s\ 2049}#))
                 #{e\ 2048}#)))
           (#{get-global-definition-hook\ 1261}#
             (lambda (#{symbol\ 2050}# #{module\ 2051}#)
               (begin
                 (if (if (not #{module\ 2051}#) (current-module) #f)
                   (warn "module system is booted, we should have a module"
                         #{symbol\ 2050}#))
                 (let ((#{v\ 2052}#
                         (module-variable
                           (if #{module\ 2051}#
                             (resolve-module (cdr #{module\ 2051}#))
                             (current-module))
                           #{symbol\ 2050}#)))
                   (if #{v\ 2052}#
                     (if (variable-bound? #{v\ 2052}#)
                       (let ((#{val\ 2053}# (variable-ref #{v\ 2052}#)))
                         (if (macro? #{val\ 2053}#)
                           (if (syncase-macro-type #{val\ 2053}#)
                             (cons (syncase-macro-type #{val\ 2053}#)
                                   (syncase-macro-binding #{val\ 2053}#))
                             #f)
                           #f))
                       #f)
                     #f)))))
           (#{put-global-definition-hook\ 1260}#
             (lambda (#{symbol\ 2054}# #{type\ 2055}# #{val\ 2056}#)
               (let ((#{existing\ 2057}#
                       (let ((#{v\ 2058}#
                               (module-variable
                                 (current-module)
                                 #{symbol\ 2054}#)))
                         (if #{v\ 2058}#
                           (if (variable-bound? #{v\ 2058}#)
                             (let ((#{val\ 2059}# (variable-ref #{v\ 2058}#)))
                               (if (macro? #{val\ 2059}#)
                                 (if (not (syncase-macro-type #{val\ 2059}#))
                                   #{val\ 2059}#
                                   #f)
                                 #f))
                             #f)
                           #f))))
                 (module-define!
                   (current-module)
                   #{symbol\ 2054}#
                   (if #{existing\ 2057}#
                     (make-extended-syncase-macro
                       #{existing\ 2057}#
                       #{type\ 2055}#
                       #{val\ 2056}#)
                     (make-syncase-macro #{type\ 2055}# #{val\ 2056}#))))))
           (#{local-eval-hook\ 1259}#
             (lambda (#{x\ 2060}# #{mod\ 2061}#)
               (primitive-eval
                 (list #{noexpand\ 1252}#
                       (let ((#{atom-key\ 2062}# (fluid-ref #{*mode*\ 1253}#)))
                         (if (memv #{atom-key\ 2062}# (quote (c)))
                           ((@ (language tree-il) tree-il->scheme)
                            #{x\ 2060}#)
                           #{x\ 2060}#))))))
           (#{top-level-eval-hook\ 1258}#
             (lambda (#{x\ 2063}# #{mod\ 2064}#)
               (primitive-eval
                 (list #{noexpand\ 1252}#
                       (let ((#{atom-key\ 2065}# (fluid-ref #{*mode*\ 1253}#)))
                         (if (memv #{atom-key\ 2065}# (quote (c)))
                           ((@ (language tree-il) tree-il->scheme)
                            #{x\ 2063}#)
                           #{x\ 2063}#))))))
           (#{fx<\ 1257}# <)
           (#{fx=\ 1256}# =)
           (#{fx-\ 1255}# -)
           (#{fx+\ 1254}# +)
           (#{*mode*\ 1253}# (make-fluid))
           (#{noexpand\ 1252}# "noexpand"))
    (begin
      (#{global-extend\ 1295}#
        'local-syntax
        'letrec-syntax
        #t)
      (#{global-extend\ 1295}#
        'local-syntax
        'let-syntax
        #f)
      (#{global-extend\ 1295}#
        'core
        'fluid-let-syntax
        (lambda (#{e\ 2066}#
                 #{r\ 2067}#
                 #{w\ 2068}#
                 #{s\ 2069}#
                 #{mod\ 2070}#)
          ((lambda (#{tmp\ 2071}#)
             ((lambda (#{tmp\ 2072}#)
                (if (if #{tmp\ 2072}#
                      (apply (lambda (#{_\ 2073}#
                                      #{var\ 2074}#
                                      #{val\ 2075}#
                                      #{e1\ 2076}#
                                      #{e2\ 2077}#)
                               (#{valid-bound-ids?\ 1322}# #{var\ 2074}#))
                             #{tmp\ 2072}#)
                      #f)
                  (apply (lambda (#{_\ 2079}#
                                  #{var\ 2080}#
                                  #{val\ 2081}#
                                  #{e1\ 2082}#
                                  #{e2\ 2083}#)
                           (let ((#{names\ 2084}#
                                   (map (lambda (#{x\ 2085}#)
                                          (#{id-var-name\ 1319}#
                                            #{x\ 2085}#
                                            #{w\ 2068}#))
                                        #{var\ 2080}#)))
                             (begin
                               (for-each
                                 (lambda (#{id\ 2087}# #{n\ 2088}#)
                                   (let ((#{atom-key\ 2089}#
                                           (#{binding-type\ 1289}#
                                             (#{lookup\ 1294}#
                                               #{n\ 2088}#
                                               #{r\ 2067}#
                                               #{mod\ 2070}#))))
                                     (if (memv #{atom-key\ 2089}#
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'fluid-let-syntax
                                         "identifier out of context"
                                         #{e\ 2066}#
                                         (#{source-wrap\ 1326}#
                                           #{id\ 2087}#
                                           #{w\ 2068}#
                                           #{s\ 2069}#
                                           #{mod\ 2070}#)))))
                                 #{var\ 2080}#
                                 #{names\ 2084}#)
                               (#{chi-body\ 1337}#
                                 (cons #{e1\ 2082}# #{e2\ 2083}#)
                                 (#{source-wrap\ 1326}#
                                   #{e\ 2066}#
                                   #{w\ 2068}#
                                   #{s\ 2069}#
                                   #{mod\ 2070}#)
                                 (#{extend-env\ 1291}#
                                   #{names\ 2084}#
                                   (let ((#{trans-r\ 2092}#
                                           (#{macros-only-env\ 1293}#
                                             #{r\ 2067}#)))
                                     (map (lambda (#{x\ 2093}#)
                                            (cons 'macro
                                                  (#{eval-local-transformer\ 1340}#
                                                    (#{chi\ 1333}#
                                                      #{x\ 2093}#
                                                      #{trans-r\ 2092}#
                                                      #{w\ 2068}#
                                                      #{mod\ 2070}#)
                                                    #{mod\ 2070}#)))
                                          #{val\ 2081}#))
                                   #{r\ 2067}#)
                                 #{w\ 2068}#
                                 #{mod\ 2070}#))))
                         #{tmp\ 2072}#)
                  ((lambda (#{_\ 2095}#)
                     (syntax-violation
                       'fluid-let-syntax
                       "bad syntax"
                       (#{source-wrap\ 1326}#
                         #{e\ 2066}#
                         #{w\ 2068}#
                         #{s\ 2069}#
                         #{mod\ 2070}#)))
                   #{tmp\ 2071}#)))
              ($sc-dispatch
                #{tmp\ 2071}#
                '(any #(each (any any)) any . each-any))))
           #{e\ 2066}#)))
      (#{global-extend\ 1295}#
        'core
        'quote
        (lambda (#{e\ 2096}#
                 #{r\ 2097}#
                 #{w\ 2098}#
                 #{s\ 2099}#
                 #{mod\ 2100}#)
          ((lambda (#{tmp\ 2101}#)
             ((lambda (#{tmp\ 2102}#)
                (if #{tmp\ 2102}#
                  (apply (lambda (#{_\ 2103}# #{e\ 2104}#)
                           (#{build-data\ 1275}#
                             #{s\ 2099}#
                             (#{strip\ 1343}# #{e\ 2104}# #{w\ 2098}#)))
                         #{tmp\ 2102}#)
                  ((lambda (#{_\ 2105}#)
                     (syntax-violation
                       'quote
                       "bad syntax"
                       (#{source-wrap\ 1326}#
                         #{e\ 2096}#
                         #{w\ 2098}#
                         #{s\ 2099}#
                         #{mod\ 2100}#)))
                   #{tmp\ 2101}#)))
              ($sc-dispatch #{tmp\ 2101}# (quote (any any)))))
           #{e\ 2096}#)))
      (#{global-extend\ 1295}#
        'core
        'syntax
        (letrec ((#{regen\ 2113}#
                   (lambda (#{x\ 2114}#)
                     (let ((#{atom-key\ 2115}# (car #{x\ 2114}#)))
                       (if (memv #{atom-key\ 2115}# (quote (ref)))
                         (#{build-lexical-reference\ 1266}#
                           'value
                           #f
                           (cadr #{x\ 2114}#)
                           (cadr #{x\ 2114}#))
                         (if (memv #{atom-key\ 2115}# (quote (primitive)))
                           (#{build-primref\ 1274}# #f (cadr #{x\ 2114}#))
                           (if (memv #{atom-key\ 2115}# (quote (quote)))
                             (#{build-data\ 1275}# #f (cadr #{x\ 2114}#))
                             (if (memv #{atom-key\ 2115}# (quote (lambda)))
                               (#{build-lambda\ 1273}#
                                 #f
                                 (cadr #{x\ 2114}#)
                                 (cadr #{x\ 2114}#)
                                 #f
                                 (#{regen\ 2113}# (caddr #{x\ 2114}#)))
                               (#{build-application\ 1264}#
                                 #f
                                 (#{build-primref\ 1274}# #f (car #{x\ 2114}#))
                                 (map #{regen\ 2113}#
                                      (cdr #{x\ 2114}#))))))))))
                 (#{gen-vector\ 2112}#
                   (lambda (#{x\ 2116}#)
                     (if (eq? (car #{x\ 2116}#) (quote list))
                       (cons (quote vector) (cdr #{x\ 2116}#))
                       (if (eq? (car #{x\ 2116}#) (quote quote))
                         (list 'quote
                               (list->vector (cadr #{x\ 2116}#)))
                         (list (quote list->vector) #{x\ 2116}#)))))
                 (#{gen-append\ 2111}#
                   (lambda (#{x\ 2117}# #{y\ 2118}#)
                     (if (equal? #{y\ 2118}# (quote (quote ())))
                       #{x\ 2117}#
                       (list (quote append) #{x\ 2117}# #{y\ 2118}#))))
                 (#{gen-cons\ 2110}#
                   (lambda (#{x\ 2119}# #{y\ 2120}#)
                     (let ((#{atom-key\ 2121}# (car #{y\ 2120}#)))
                       (if (memv #{atom-key\ 2121}# (quote (quote)))
                         (if (eq? (car #{x\ 2119}#) (quote quote))
                           (list 'quote
                                 (cons (cadr #{x\ 2119}#) (cadr #{y\ 2120}#)))
                           (if (eq? (cadr #{y\ 2120}#) (quote ()))
                             (list (quote list) #{x\ 2119}#)
                             (list (quote cons) #{x\ 2119}# #{y\ 2120}#)))
                         (if (memv #{atom-key\ 2121}# (quote (list)))
                           (cons 'list
                                 (cons #{x\ 2119}# (cdr #{y\ 2120}#)))
                           (list (quote cons) #{x\ 2119}# #{y\ 2120}#))))))
                 (#{gen-map\ 2109}#
                   (lambda (#{e\ 2122}# #{map-env\ 2123}#)
                     (let ((#{formals\ 2124}# (map cdr #{map-env\ 2123}#))
                           (#{actuals\ 2125}#
                             (map (lambda (#{x\ 2126}#)
                                    (list (quote ref) (car #{x\ 2126}#)))
                                  #{map-env\ 2123}#)))
                       (if (eq? (car #{e\ 2122}#) (quote ref))
                         (car #{actuals\ 2125}#)
                         (if (and-map
                               (lambda (#{x\ 2127}#)
                                 (if (eq? (car #{x\ 2127}#) (quote ref))
                                   (memq (cadr #{x\ 2127}#) #{formals\ 2124}#)
                                   #f))
                               (cdr #{e\ 2122}#))
                           (cons 'map
                                 (cons (list 'primitive
                                             (car #{e\ 2122}#))
                                       (map (let ((#{r\ 2128}#
                                                    (map cons
                                                         #{formals\ 2124}#
                                                         #{actuals\ 2125}#)))
                                              (lambda (#{x\ 2129}#)
                                                (cdr (assq (cadr #{x\ 2129}#)
                                                           #{r\ 2128}#))))
                                            (cdr #{e\ 2122}#))))
                           (cons 'map
                                 (cons (list 'lambda
                                             #{formals\ 2124}#
                                             #{e\ 2122}#)
                                       #{actuals\ 2125}#)))))))
                 (#{gen-mappend\ 2108}#
                   (lambda (#{e\ 2130}# #{map-env\ 2131}#)
                     (list 'apply
                           '(primitive append)
                           (#{gen-map\ 2109}# #{e\ 2130}# #{map-env\ 2131}#))))
                 (#{gen-ref\ 2107}#
                   (lambda (#{src\ 2132}#
                            #{var\ 2133}#
                            #{level\ 2134}#
                            #{maps\ 2135}#)
                     (if (#{fx=\ 1256}# #{level\ 2134}# 0)
                       (values #{var\ 2133}# #{maps\ 2135}#)
                       (if (null? #{maps\ 2135}#)
                         (syntax-violation
                           'syntax
                           "missing ellipsis"
                           #{src\ 2132}#)
                         (call-with-values
                           (lambda ()
                             (#{gen-ref\ 2107}#
                               #{src\ 2132}#
                               #{var\ 2133}#
                               (#{fx-\ 1255}# #{level\ 2134}# 1)
                               (cdr #{maps\ 2135}#)))
                           (lambda (#{outer-var\ 2136}# #{outer-maps\ 2137}#)
                             (let ((#{b\ 2138}#
                                     (assq #{outer-var\ 2136}#
                                           (car #{maps\ 2135}#))))
                               (if #{b\ 2138}#
                                 (values (cdr #{b\ 2138}#) #{maps\ 2135}#)
                                 (let ((#{inner-var\ 2139}#
                                         (#{gen-var\ 1344}# (quote tmp))))
                                   (values
                                     #{inner-var\ 2139}#
                                     (cons (cons (cons #{outer-var\ 2136}#
                                                       #{inner-var\ 2139}#)
                                                 (car #{maps\ 2135}#))
                                           #{outer-maps\ 2137}#)))))))))))
                 (#{gen-syntax\ 2106}#
                   (lambda (#{src\ 2140}#
                            #{e\ 2141}#
                            #{r\ 2142}#
                            #{maps\ 2143}#
                            #{ellipsis?\ 2144}#
                            #{mod\ 2145}#)
                     (if (#{id?\ 1297}# #{e\ 2141}#)
                       (let ((#{label\ 2146}#
                               (#{id-var-name\ 1319}#
                                 #{e\ 2141}#
                                 '(()))))
                         (let ((#{b\ 2147}#
                                 (#{lookup\ 1294}#
                                   #{label\ 2146}#
                                   #{r\ 2142}#
                                   #{mod\ 2145}#)))
                           (if (eq? (#{binding-type\ 1289}# #{b\ 2147}#)
                                    'syntax)
                             (call-with-values
                               (lambda ()
                                 (let ((#{var.lev\ 2148}#
                                         (#{binding-value\ 1290}#
                                           #{b\ 2147}#)))
                                   (#{gen-ref\ 2107}#
                                     #{src\ 2140}#
                                     (car #{var.lev\ 2148}#)
                                     (cdr #{var.lev\ 2148}#)
                                     #{maps\ 2143}#)))
                               (lambda (#{var\ 2149}# #{maps\ 2150}#)
                                 (values
                                   (list (quote ref) #{var\ 2149}#)
                                   #{maps\ 2150}#)))
                             (if (#{ellipsis?\ 2144}# #{e\ 2141}#)
                               (syntax-violation
                                 'syntax
                                 "misplaced ellipsis"
                                 #{src\ 2140}#)
                               (values
                                 (list (quote quote) #{e\ 2141}#)
                                 #{maps\ 2143}#)))))
                       ((lambda (#{tmp\ 2151}#)
                          ((lambda (#{tmp\ 2152}#)
                             (if (if #{tmp\ 2152}#
                                   (apply (lambda (#{dots\ 2153}# #{e\ 2154}#)
                                            (#{ellipsis?\ 2144}#
                                              #{dots\ 2153}#))
                                          #{tmp\ 2152}#)
                                   #f)
                               (apply (lambda (#{dots\ 2155}# #{e\ 2156}#)
                                        (#{gen-syntax\ 2106}#
                                          #{src\ 2140}#
                                          #{e\ 2156}#
                                          #{r\ 2142}#
                                          #{maps\ 2143}#
                                          (lambda (#{x\ 2157}#) #f)
                                          #{mod\ 2145}#))
                                      #{tmp\ 2152}#)
                               ((lambda (#{tmp\ 2158}#)
                                  (if (if #{tmp\ 2158}#
                                        (apply (lambda (#{x\ 2159}#
                                                        #{dots\ 2160}#
                                                        #{y\ 2161}#)
                                                 (#{ellipsis?\ 2144}#
                                                   #{dots\ 2160}#))
                                               #{tmp\ 2158}#)
                                        #f)
                                    (apply (lambda (#{x\ 2162}#
                                                    #{dots\ 2163}#
                                                    #{y\ 2164}#)
                                             (letrec ((#{f\ 2165}#
                                                        (lambda (#{y\ 2166}#
                                                                 #{k\ 2167}#)
                                                          ((lambda (#{tmp\ 2171}#)
                                                             ((lambda (#{tmp\ 2172}#)
                                                                (if (if #{tmp\ 2172}#
                                                                      (apply (lambda (#{dots\ 2173}#
                                                                                      #{y\ 2174}#)
                                                                               (#{ellipsis?\ 2144}#
                                                                                 #{dots\ 2173}#))
                                                                             #{tmp\ 2172}#)
                                                                      #f)
                                                                  (apply (lambda (#{dots\ 2175}#
                                                                                  #{y\ 2176}#)
                                                                           (#{f\ 2165}#
                                                                             #{y\ 2176}#
                                                                             (lambda (#{maps\ 2177}#)
                                                                               (call-with-values
                                                                                 (lambda ()
                                                                                   (#{k\ 2167}#
                                                                                     (cons '()
                                                                                           #{maps\ 2177}#)))
                                                                                 (lambda (#{x\ 2178}#
                                                                                          #{maps\ 2179}#)
                                                                                   (if (null? (car #{maps\ 2179}#))
                                                                                     (syntax-violation
                                                                                       'syntax
                                                                                       "extra ellipsis"
                                                                                       #{src\ 2140}#)
                                                                                     (values
                                                                                       (#{gen-mappend\ 2108}#
                                                                                         #{x\ 2178}#
                                                                                         (car #{maps\ 2179}#))
                                                                                       (cdr #{maps\ 2179}#))))))))
                                                                         #{tmp\ 2172}#)
                                                                  ((lambda (#{_\ 2180}#)
                                                                     (call-with-values
                                                                       (lambda ()
                                                                         (#{gen-syntax\ 2106}#
                                                                           #{src\ 2140}#
                                                                           #{y\ 2166}#
                                                                           #{r\ 2142}#
                                                                           #{maps\ 2143}#
                                                                           #{ellipsis?\ 2144}#
                                                                           #{mod\ 2145}#))
                                                                       (lambda (#{y\ 2181}#
                                                                                #{maps\ 2182}#)
                                                                         (call-with-values
                                                                           (lambda ()
                                                                             (#{k\ 2167}#
                                                                               #{maps\ 2182}#))
                                                                           (lambda (#{x\ 2183}#
                                                                                    #{maps\ 2184}#)
                                                                             (values
                                                                               (#{gen-append\ 2111}#
                                                                                 #{x\ 2183}#
                                                                                 #{y\ 2181}#)
                                                                               #{maps\ 2184}#))))))
                                                                   #{tmp\ 2171}#)))
                                                              ($sc-dispatch
                                                                #{tmp\ 2171}#
                                                                '(any . any))))
                                                           #{y\ 2166}#))))
                                               (#{f\ 2165}#
                                                 #{y\ 2164}#
                                                 (lambda (#{maps\ 2168}#)
                                                   (call-with-values
                                                     (lambda ()
                                                       (#{gen-syntax\ 2106}#
                                                         #{src\ 2140}#
                                                         #{x\ 2162}#
                                                         #{r\ 2142}#
                                                         (cons '()
                                                               #{maps\ 2168}#)
                                                         #{ellipsis?\ 2144}#
                                                         #{mod\ 2145}#))
                                                     (lambda (#{x\ 2169}#
                                                              #{maps\ 2170}#)
                                                       (if (null? (car #{maps\ 2170}#))
                                                         (syntax-violation
                                                           'syntax
                                                           "extra ellipsis"
                                                           #{src\ 2140}#)
                                                         (values
                                                           (#{gen-map\ 2109}#
                                                             #{x\ 2169}#
                                                             (car #{maps\ 2170}#))
                                                           (cdr #{maps\ 2170}#)))))))))
                                           #{tmp\ 2158}#)
                                    ((lambda (#{tmp\ 2185}#)
                                       (if #{tmp\ 2185}#
                                         (apply (lambda (#{x\ 2186}#
                                                         #{y\ 2187}#)
                                                  (call-with-values
                                                    (lambda ()
                                                      (#{gen-syntax\ 2106}#
                                                        #{src\ 2140}#
                                                        #{x\ 2186}#
                                                        #{r\ 2142}#
                                                        #{maps\ 2143}#
                                                        #{ellipsis?\ 2144}#
                                                        #{mod\ 2145}#))
                                                    (lambda (#{x\ 2188}#
                                                             #{maps\ 2189}#)
                                                      (call-with-values
                                                        (lambda ()
                                                          (#{gen-syntax\ 2106}#
                                                            #{src\ 2140}#
                                                            #{y\ 2187}#
                                                            #{r\ 2142}#
                                                            #{maps\ 2189}#
                                                            #{ellipsis?\ 2144}#
                                                            #{mod\ 2145}#))
                                                        (lambda (#{y\ 2190}#
                                                                 #{maps\ 2191}#)
                                                          (values
                                                            (#{gen-cons\ 2110}#
                                                              #{x\ 2188}#
                                                              #{y\ 2190}#)
                                                            #{maps\ 2191}#))))))
                                                #{tmp\ 2185}#)
                                         ((lambda (#{tmp\ 2192}#)
                                            (if #{tmp\ 2192}#
                                              (apply (lambda (#{e1\ 2193}#
                                                              #{e2\ 2194}#)
                                                       (call-with-values
                                                         (lambda ()
                                                           (#{gen-syntax\ 2106}#
                                                             #{src\ 2140}#
                                                             (cons #{e1\ 2193}#
                                                                   #{e2\ 2194}#)
                                                             #{r\ 2142}#
                                                             #{maps\ 2143}#
                                                             #{ellipsis?\ 2144}#
                                                             #{mod\ 2145}#))
                                                         (lambda (#{e\ 2196}#
                                                                  #{maps\ 2197}#)
                                                           (values
                                                             (#{gen-vector\ 2112}#
                                                               #{e\ 2196}#)
                                                             #{maps\ 2197}#))))
                                                     #{tmp\ 2192}#)
                                              ((lambda (#{_\ 2198}#)
                                                 (values
                                                   (list 'quote
                                                         #{e\ 2141}#)
                                                   #{maps\ 2143}#))
                                               #{tmp\ 2151}#)))
                                          ($sc-dispatch
                                            #{tmp\ 2151}#
                                            '#(vector (any . each-any))))))
                                     ($sc-dispatch
                                       #{tmp\ 2151}#
                                       '(any . any)))))
                                ($sc-dispatch
                                  #{tmp\ 2151}#
                                  '(any any . any)))))
                           ($sc-dispatch #{tmp\ 2151}# (quote (any any)))))
                        #{e\ 2141}#)))))
          (lambda (#{e\ 2199}#
                   #{r\ 2200}#
                   #{w\ 2201}#
                   #{s\ 2202}#
                   #{mod\ 2203}#)
            (let ((#{e\ 2204}#
                    (#{source-wrap\ 1326}#
                      #{e\ 2199}#
                      #{w\ 2201}#
                      #{s\ 2202}#
                      #{mod\ 2203}#)))
              ((lambda (#{tmp\ 2205}#)
                 ((lambda (#{tmp\ 2206}#)
                    (if #{tmp\ 2206}#
                      (apply (lambda (#{_\ 2207}# #{x\ 2208}#)
                               (call-with-values
                                 (lambda ()
                                   (#{gen-syntax\ 2106}#
                                     #{e\ 2204}#
                                     #{x\ 2208}#
                                     #{r\ 2200}#
                                     '()
                                     #{ellipsis?\ 1342}#
                                     #{mod\ 2203}#))
                                 (lambda (#{e\ 2209}# #{maps\ 2210}#)
                                   (#{regen\ 2113}# #{e\ 2209}#))))
                             #{tmp\ 2206}#)
                      ((lambda (#{_\ 2211}#)
                         (syntax-violation
                           'syntax
                           "bad `syntax' form"
                           #{e\ 2204}#))
                       #{tmp\ 2205}#)))
                  ($sc-dispatch #{tmp\ 2205}# (quote (any any)))))
               #{e\ 2204}#)))))
      (#{global-extend\ 1295}#
        'core
        'lambda
        (lambda (#{e\ 2212}#
                 #{r\ 2213}#
                 #{w\ 2214}#
                 #{s\ 2215}#
                 #{mod\ 2216}#)
          ((lambda (#{tmp\ 2217}#)
             ((lambda (#{tmp\ 2218}#)
                (if #{tmp\ 2218}#
                  (apply (lambda (#{_\ 2219}# #{c\ 2220}#)
                           (#{chi-lambda-clause\ 1338}#
                             (#{source-wrap\ 1326}#
                               #{e\ 2212}#
                               #{w\ 2214}#
                               #{s\ 2215}#
                               #{mod\ 2216}#)
                             #f
                             #{c\ 2220}#
                             #{r\ 2213}#
                             #{w\ 2214}#
                             #{mod\ 2216}#
                             (lambda (#{names\ 2221}#
                                      #{vars\ 2222}#
                                      #{docstring\ 2223}#
                                      #{body\ 2224}#)
                               (#{build-lambda\ 1273}#
                                 #{s\ 2215}#
                                 #{names\ 2221}#
                                 #{vars\ 2222}#
                                 #{docstring\ 2223}#
                                 #{body\ 2224}#))))
                         #{tmp\ 2218}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp\ 2217}#)))
              ($sc-dispatch #{tmp\ 2217}# (quote (any . any)))))
           #{e\ 2212}#)))
      (#{global-extend\ 1295}#
        'core
        'let
        (letrec ((#{chi-let\ 2225}#
                   (lambda (#{e\ 2226}#
                            #{r\ 2227}#
                            #{w\ 2228}#
                            #{s\ 2229}#
                            #{mod\ 2230}#
                            #{constructor\ 2231}#
                            #{ids\ 2232}#
                            #{vals\ 2233}#
                            #{exps\ 2234}#)
                     (if (not (#{valid-bound-ids?\ 1322}# #{ids\ 2232}#))
                       (syntax-violation
                         'let
                         "duplicate bound variable"
                         #{e\ 2226}#)
                       (let ((#{labels\ 2235}#
                               (#{gen-labels\ 1303}# #{ids\ 2232}#))
                             (#{new-vars\ 2236}#
                               (map #{gen-var\ 1344}# #{ids\ 2232}#)))
                         (let ((#{nw\ 2237}#
                                 (#{make-binding-wrap\ 1314}#
                                   #{ids\ 2232}#
                                   #{labels\ 2235}#
                                   #{w\ 2228}#))
                               (#{nr\ 2238}#
                                 (#{extend-var-env\ 1292}#
                                   #{labels\ 2235}#
                                   #{new-vars\ 2236}#
                                   #{r\ 2227}#)))
                           (#{constructor\ 2231}#
                             #{s\ 2229}#
                             (map syntax->datum #{ids\ 2232}#)
                             #{new-vars\ 2236}#
                             (map (lambda (#{x\ 2239}#)
                                    (#{chi\ 1333}#
                                      #{x\ 2239}#
                                      #{r\ 2227}#
                                      #{w\ 2228}#
                                      #{mod\ 2230}#))
                                  #{vals\ 2233}#)
                             (#{chi-body\ 1337}#
                               #{exps\ 2234}#
                               (#{source-wrap\ 1326}#
                                 #{e\ 2226}#
                                 #{nw\ 2237}#
                                 #{s\ 2229}#
                                 #{mod\ 2230}#)
                               #{nr\ 2238}#
                               #{nw\ 2237}#
                               #{mod\ 2230}#))))))))
          (lambda (#{e\ 2240}#
                   #{r\ 2241}#
                   #{w\ 2242}#
                   #{s\ 2243}#
                   #{mod\ 2244}#)
            ((lambda (#{tmp\ 2245}#)
               ((lambda (#{tmp\ 2246}#)
                  (if (if #{tmp\ 2246}#
                        (apply (lambda (#{_\ 2247}#
                                        #{id\ 2248}#
                                        #{val\ 2249}#
                                        #{e1\ 2250}#
                                        #{e2\ 2251}#)
                                 (and-map #{id?\ 1297}# #{id\ 2248}#))
                               #{tmp\ 2246}#)
                        #f)
                    (apply (lambda (#{_\ 2253}#
                                    #{id\ 2254}#
                                    #{val\ 2255}#
                                    #{e1\ 2256}#
                                    #{e2\ 2257}#)
                             (#{chi-let\ 2225}#
                               #{e\ 2240}#
                               #{r\ 2241}#
                               #{w\ 2242}#
                               #{s\ 2243}#
                               #{mod\ 2244}#
                               #{build-let\ 1277}#
                               #{id\ 2254}#
                               #{val\ 2255}#
                               (cons #{e1\ 2256}# #{e2\ 2257}#)))
                           #{tmp\ 2246}#)
                    ((lambda (#{tmp\ 2261}#)
                       (if (if #{tmp\ 2261}#
                             (apply (lambda (#{_\ 2262}#
                                             #{f\ 2263}#
                                             #{id\ 2264}#
                                             #{val\ 2265}#
                                             #{e1\ 2266}#
                                             #{e2\ 2267}#)
                                      (if (#{id?\ 1297}# #{f\ 2263}#)
                                        (and-map #{id?\ 1297}# #{id\ 2264}#)
                                        #f))
                                    #{tmp\ 2261}#)
                             #f)
                         (apply (lambda (#{_\ 2269}#
                                         #{f\ 2270}#
                                         #{id\ 2271}#
                                         #{val\ 2272}#
                                         #{e1\ 2273}#
                                         #{e2\ 2274}#)
                                  (#{chi-let\ 2225}#
                                    #{e\ 2240}#
                                    #{r\ 2241}#
                                    #{w\ 2242}#
                                    #{s\ 2243}#
                                    #{mod\ 2244}#
                                    #{build-named-let\ 1278}#
                                    (cons #{f\ 2270}# #{id\ 2271}#)
                                    #{val\ 2272}#
                                    (cons #{e1\ 2273}# #{e2\ 2274}#)))
                                #{tmp\ 2261}#)
                         ((lambda (#{_\ 2278}#)
                            (syntax-violation
                              'let
                              "bad let"
                              (#{source-wrap\ 1326}#
                                #{e\ 2240}#
                                #{w\ 2242}#
                                #{s\ 2243}#
                                #{mod\ 2244}#)))
                          #{tmp\ 2245}#)))
                     ($sc-dispatch
                       #{tmp\ 2245}#
                       '(any any #(each (any any)) any . each-any)))))
                ($sc-dispatch
                  #{tmp\ 2245}#
                  '(any #(each (any any)) any . each-any))))
             #{e\ 2240}#))))
      (#{global-extend\ 1295}#
        'core
        'letrec
        (lambda (#{e\ 2279}#
                 #{r\ 2280}#
                 #{w\ 2281}#
                 #{s\ 2282}#
                 #{mod\ 2283}#)
          ((lambda (#{tmp\ 2284}#)
             ((lambda (#{tmp\ 2285}#)
                (if (if #{tmp\ 2285}#
                      (apply (lambda (#{_\ 2286}#
                                      #{id\ 2287}#
                                      #{val\ 2288}#
                                      #{e1\ 2289}#
                                      #{e2\ 2290}#)
                               (and-map #{id?\ 1297}# #{id\ 2287}#))
                             #{tmp\ 2285}#)
                      #f)
                  (apply (lambda (#{_\ 2292}#
                                  #{id\ 2293}#
                                  #{val\ 2294}#
                                  #{e1\ 2295}#
                                  #{e2\ 2296}#)
                           (let ((#{ids\ 2297}# #{id\ 2293}#))
                             (if (not (#{valid-bound-ids?\ 1322}#
                                        #{ids\ 2297}#))
                               (syntax-violation
                                 'letrec
                                 "duplicate bound variable"
                                 #{e\ 2279}#)
                               (let ((#{labels\ 2299}#
                                       (#{gen-labels\ 1303}# #{ids\ 2297}#))
                                     (#{new-vars\ 2300}#
                                       (map #{gen-var\ 1344}# #{ids\ 2297}#)))
                                 (let ((#{w\ 2301}#
                                         (#{make-binding-wrap\ 1314}#
                                           #{ids\ 2297}#
                                           #{labels\ 2299}#
                                           #{w\ 2281}#))
                                       (#{r\ 2302}#
                                         (#{extend-var-env\ 1292}#
                                           #{labels\ 2299}#
                                           #{new-vars\ 2300}#
                                           #{r\ 2280}#)))
                                   (#{build-letrec\ 1279}#
                                     #{s\ 2282}#
                                     (map syntax->datum #{ids\ 2297}#)
                                     #{new-vars\ 2300}#
                                     (map (lambda (#{x\ 2303}#)
                                            (#{chi\ 1333}#
                                              #{x\ 2303}#
                                              #{r\ 2302}#
                                              #{w\ 2301}#
                                              #{mod\ 2283}#))
                                          #{val\ 2294}#)
                                     (#{chi-body\ 1337}#
                                       (cons #{e1\ 2295}# #{e2\ 2296}#)
                                       (#{source-wrap\ 1326}#
                                         #{e\ 2279}#
                                         #{w\ 2301}#
                                         #{s\ 2282}#
                                         #{mod\ 2283}#)
                                       #{r\ 2302}#
                                       #{w\ 2301}#
                                       #{mod\ 2283}#)))))))
                         #{tmp\ 2285}#)
                  ((lambda (#{_\ 2306}#)
                     (syntax-violation
                       'letrec
                       "bad letrec"
                       (#{source-wrap\ 1326}#
                         #{e\ 2279}#
                         #{w\ 2281}#
                         #{s\ 2282}#
                         #{mod\ 2283}#)))
                   #{tmp\ 2284}#)))
              ($sc-dispatch
                #{tmp\ 2284}#
                '(any #(each (any any)) any . each-any))))
           #{e\ 2279}#)))
      (#{global-extend\ 1295}#
        'core
        'set!
        (lambda (#{e\ 2307}#
                 #{r\ 2308}#
                 #{w\ 2309}#
                 #{s\ 2310}#
                 #{mod\ 2311}#)
          ((lambda (#{tmp\ 2312}#)
             ((lambda (#{tmp\ 2313}#)
                (if (if #{tmp\ 2313}#
                      (apply (lambda (#{_\ 2314}# #{id\ 2315}# #{val\ 2316}#)
                               (#{id?\ 1297}# #{id\ 2315}#))
                             #{tmp\ 2313}#)
                      #f)
                  (apply (lambda (#{_\ 2317}# #{id\ 2318}# #{val\ 2319}#)
                           (let ((#{val\ 2320}#
                                   (#{chi\ 1333}#
                                     #{val\ 2319}#
                                     #{r\ 2308}#
                                     #{w\ 2309}#
                                     #{mod\ 2311}#))
                                 (#{n\ 2321}#
                                   (#{id-var-name\ 1319}#
                                     #{id\ 2318}#
                                     #{w\ 2309}#)))
                             (let ((#{b\ 2322}#
                                     (#{lookup\ 1294}#
                                       #{n\ 2321}#
                                       #{r\ 2308}#
                                       #{mod\ 2311}#)))
                               (let ((#{atom-key\ 2323}#
                                       (#{binding-type\ 1289}# #{b\ 2322}#)))
                                 (if (memv #{atom-key\ 2323}#
                                           '(lexical))
                                   (#{build-lexical-assignment\ 1267}#
                                     #{s\ 2310}#
                                     (syntax->datum #{id\ 2318}#)
                                     (#{binding-value\ 1290}# #{b\ 2322}#)
                                     #{val\ 2320}#)
                                   (if (memv #{atom-key\ 2323}#
                                             '(global))
                                     (#{build-global-assignment\ 1270}#
                                       #{s\ 2310}#
                                       #{n\ 2321}#
                                       #{val\ 2320}#
                                       #{mod\ 2311}#)
                                     (if (memv #{atom-key\ 2323}#
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'set!
                                         "identifier out of context"
                                         (#{wrap\ 1325}#
                                           #{id\ 2318}#
                                           #{w\ 2309}#
                                           #{mod\ 2311}#))
                                       (syntax-violation
                                         'set!
                                         "bad set!"
                                         (#{source-wrap\ 1326}#
                                           #{e\ 2307}#
                                           #{w\ 2309}#
                                           #{s\ 2310}#
                                           #{mod\ 2311}#)))))))))
                         #{tmp\ 2313}#)
                  ((lambda (#{tmp\ 2324}#)
                     (if #{tmp\ 2324}#
                       (apply (lambda (#{_\ 2325}#
                                       #{head\ 2326}#
                                       #{tail\ 2327}#
                                       #{val\ 2328}#)
                                (call-with-values
                                  (lambda ()
                                    (#{syntax-type\ 1331}#
                                      #{head\ 2326}#
                                      #{r\ 2308}#
                                      '(())
                                      #f
                                      #f
                                      #{mod\ 2311}#
                                      #t))
                                  (lambda (#{type\ 2329}#
                                           #{value\ 2330}#
                                           #{ee\ 2331}#
                                           #{ww\ 2332}#
                                           #{ss\ 2333}#
                                           #{modmod\ 2334}#)
                                    (if (memv #{type\ 2329}#
                                              '(module-ref))
                                      (let ((#{val\ 2335}#
                                              (#{chi\ 1333}#
                                                #{val\ 2328}#
                                                #{r\ 2308}#
                                                #{w\ 2309}#
                                                #{mod\ 2311}#)))
                                        (call-with-values
                                          (lambda ()
                                            (#{value\ 2330}#
                                              (cons #{head\ 2326}#
                                                    #{tail\ 2327}#)))
                                          (lambda (#{id\ 2337}# #{mod\ 2338}#)
                                            (#{build-global-assignment\ 1270}#
                                              #{s\ 2310}#
                                              #{id\ 2337}#
                                              #{val\ 2335}#
                                              #{mod\ 2338}#))))
                                      (#{build-application\ 1264}#
                                        #{s\ 2310}#
                                        (#{chi\ 1333}#
                                          (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))
                                                #{head\ 2326}#)
                                          #{r\ 2308}#
                                          #{w\ 2309}#
                                          #{mod\ 2311}#)
                                        (map (lambda (#{e\ 2339}#)
                                               (#{chi\ 1333}#
                                                 #{e\ 2339}#
                                                 #{r\ 2308}#
                                                 #{w\ 2309}#
                                                 #{mod\ 2311}#))
                                             (append
                                               #{tail\ 2327}#
                                               (list #{val\ 2328}#))))))))
                              #{tmp\ 2324}#)
                       ((lambda (#{_\ 2341}#)
                          (syntax-violation
                            'set!
                            "bad set!"
                            (#{source-wrap\ 1326}#
                              #{e\ 2307}#
                              #{w\ 2309}#
                              #{s\ 2310}#
                              #{mod\ 2311}#)))
                        #{tmp\ 2312}#)))
                   ($sc-dispatch
                     #{tmp\ 2312}#
                     '(any (any . each-any) any)))))
              ($sc-dispatch
                #{tmp\ 2312}#
                '(any any any))))
           #{e\ 2307}#)))
      (#{global-extend\ 1295}#
        'module-ref
        '@
        (lambda (#{e\ 2342}#)
          ((lambda (#{tmp\ 2343}#)
             ((lambda (#{tmp\ 2344}#)
                (if (if #{tmp\ 2344}#
                      (apply (lambda (#{_\ 2345}# #{mod\ 2346}# #{id\ 2347}#)
                               (if (and-map #{id?\ 1297}# #{mod\ 2346}#)
                                 (#{id?\ 1297}# #{id\ 2347}#)
                                 #f))
                             #{tmp\ 2344}#)
                      #f)
                  (apply (lambda (#{_\ 2349}# #{mod\ 2350}# #{id\ 2351}#)
                           (values
                             (syntax->datum #{id\ 2351}#)
                             (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))
                                     #{mod\ 2350}#))))
                         #{tmp\ 2344}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp\ 2343}#)))
              ($sc-dispatch
                #{tmp\ 2343}#
                '(any each-any any))))
           #{e\ 2342}#)))
      (#{global-extend\ 1295}#
        'module-ref
        '@@
        (lambda (#{e\ 2353}#)
          ((lambda (#{tmp\ 2354}#)
             ((lambda (#{tmp\ 2355}#)
                (if (if #{tmp\ 2355}#
                      (apply (lambda (#{_\ 2356}# #{mod\ 2357}# #{id\ 2358}#)
                               (if (and-map #{id?\ 1297}# #{mod\ 2357}#)
                                 (#{id?\ 1297}# #{id\ 2358}#)
                                 #f))
                             #{tmp\ 2355}#)
                      #f)
                  (apply (lambda (#{_\ 2360}# #{mod\ 2361}# #{id\ 2362}#)
                           (values
                             (syntax->datum #{id\ 2362}#)
                             (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))
                                     #{mod\ 2361}#))))
                         #{tmp\ 2355}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp\ 2354}#)))
              ($sc-dispatch
                #{tmp\ 2354}#
                '(any each-any any))))
           #{e\ 2353}#)))
      (#{global-extend\ 1295}#
        'core
        'if
        (lambda (#{e\ 2364}#
                 #{r\ 2365}#
                 #{w\ 2366}#
                 #{s\ 2367}#
                 #{mod\ 2368}#)
          ((lambda (#{tmp\ 2369}#)
             ((lambda (#{tmp\ 2370}#)
                (if #{tmp\ 2370}#
                  (apply (lambda (#{_\ 2371}# #{test\ 2372}# #{then\ 2373}#)
                           (#{build-conditional\ 1265}#
                             #{s\ 2367}#
                             (#{chi\ 1333}#
                               #{test\ 2372}#
                               #{r\ 2365}#
                               #{w\ 2366}#
                               #{mod\ 2368}#)
                             (#{chi\ 1333}#
                               #{then\ 2373}#
                               #{r\ 2365}#
                               #{w\ 2366}#
                               #{mod\ 2368}#)
                             (#{build-void\ 1263}# #f)))
                         #{tmp\ 2370}#)
                  ((lambda (#{tmp\ 2374}#)
                     (if #{tmp\ 2374}#
                       (apply (lambda (#{_\ 2375}#
                                       #{test\ 2376}#
                                       #{then\ 2377}#
                                       #{else\ 2378}#)
                                (#{build-conditional\ 1265}#
                                  #{s\ 2367}#
                                  (#{chi\ 1333}#
                                    #{test\ 2376}#
                                    #{r\ 2365}#
                                    #{w\ 2366}#
                                    #{mod\ 2368}#)
                                  (#{chi\ 1333}#
                                    #{then\ 2377}#
                                    #{r\ 2365}#
                                    #{w\ 2366}#
                                    #{mod\ 2368}#)
                                  (#{chi\ 1333}#
                                    #{else\ 2378}#
                                    #{r\ 2365}#
                                    #{w\ 2366}#
                                    #{mod\ 2368}#)))
                              #{tmp\ 2374}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp\ 2369}#)))
                   ($sc-dispatch
                     #{tmp\ 2369}#
                     '(any any any any)))))
              ($sc-dispatch
                #{tmp\ 2369}#
                '(any any any))))
           #{e\ 2364}#)))
      (#{global-extend\ 1295}#
        'begin
        'begin
        '())
      (#{global-extend\ 1295}#
        'define
        'define
        '())
      (#{global-extend\ 1295}#
        'define-syntax
        'define-syntax
        '())
      (#{global-extend\ 1295}#
        'eval-when
        'eval-when
        '())
      (#{global-extend\ 1295}#
        'core
        'syntax-case
        (letrec ((#{gen-syntax-case\ 2382}#
                   (lambda (#{x\ 2383}#
                            #{keys\ 2384}#
                            #{clauses\ 2385}#
                            #{r\ 2386}#
                            #{mod\ 2387}#)
                     (if (null? #{clauses\ 2385}#)
                       (#{build-application\ 1264}#
                         #f
                         (#{build-primref\ 1274}#
                           #f
                           'syntax-violation)
                         (list (#{build-data\ 1275}# #f #f)
                               (#{build-data\ 1275}#
                                 #f
                                 "source expression failed to match any pattern")
                               #{x\ 2383}#))
                       ((lambda (#{tmp\ 2388}#)
                          ((lambda (#{tmp\ 2389}#)
                             (if #{tmp\ 2389}#
                               (apply (lambda (#{pat\ 2390}# #{exp\ 2391}#)
                                        (if (if (#{id?\ 1297}# #{pat\ 2390}#)
                                              (and-map
                                                (lambda (#{x\ 2392}#)
                                                  (not (#{free-id=?\ 1320}#
                                                         #{pat\ 2390}#
                                                         #{x\ 2392}#)))
                                                (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))
                                                      #{keys\ 2384}#))
                                              #f)
                                          (let ((#{labels\ 2393}#
                                                  (list (#{gen-label\ 1302}#)))
                                                (#{var\ 2394}#
                                                  (#{gen-var\ 1344}#
                                                    #{pat\ 2390}#)))
                                            (#{build-application\ 1264}#
                                              #f
                                              (#{build-lambda\ 1273}#
                                                #f
                                                (list (syntax->datum
                                                        #{pat\ 2390}#))
                                                (list #{var\ 2394}#)
                                                #f
                                                (#{chi\ 1333}#
                                                  #{exp\ 2391}#
                                                  (#{extend-env\ 1291}#
                                                    #{labels\ 2393}#
                                                    (list (cons 'syntax
                                                                (cons #{var\ 2394}#
                                                                      0)))
                                                    #{r\ 2386}#)
                                                  (#{make-binding-wrap\ 1314}#
                                                    (list #{pat\ 2390}#)
                                                    #{labels\ 2393}#
                                                    '(()))
                                                  #{mod\ 2387}#))
                                              (list #{x\ 2383}#)))
                                          (#{gen-clause\ 2381}#
                                            #{x\ 2383}#
                                            #{keys\ 2384}#
                                            (cdr #{clauses\ 2385}#)
                                            #{r\ 2386}#
                                            #{pat\ 2390}#
                                            #t
                                            #{exp\ 2391}#
                                            #{mod\ 2387}#)))
                                      #{tmp\ 2389}#)
                               ((lambda (#{tmp\ 2395}#)
                                  (if #{tmp\ 2395}#
                                    (apply (lambda (#{pat\ 2396}#
                                                    #{fender\ 2397}#
                                                    #{exp\ 2398}#)
                                             (#{gen-clause\ 2381}#
                                               #{x\ 2383}#
                                               #{keys\ 2384}#
                                               (cdr #{clauses\ 2385}#)
                                               #{r\ 2386}#
                                               #{pat\ 2396}#
                                               #{fender\ 2397}#
                                               #{exp\ 2398}#
                                               #{mod\ 2387}#))
                                           #{tmp\ 2395}#)
                                    ((lambda (#{_\ 2399}#)
                                       (syntax-violation
                                         'syntax-case
                                         "invalid clause"
                                         (car #{clauses\ 2385}#)))
                                     #{tmp\ 2388}#)))
                                ($sc-dispatch
                                  #{tmp\ 2388}#
                                  '(any any any)))))
                           ($sc-dispatch #{tmp\ 2388}# (quote (any any)))))
                        (car #{clauses\ 2385}#)))))
                 (#{gen-clause\ 2381}#
                   (lambda (#{x\ 2400}#
                            #{keys\ 2401}#
                            #{clauses\ 2402}#
                            #{r\ 2403}#
                            #{pat\ 2404}#
                            #{fender\ 2405}#
                            #{exp\ 2406}#
                            #{mod\ 2407}#)
                     (call-with-values
                       (lambda ()
                         (#{convert-pattern\ 2379}#
                           #{pat\ 2404}#
                           #{keys\ 2401}#))
                       (lambda (#{p\ 2408}# #{pvars\ 2409}#)
                         (if (not (#{distinct-bound-ids?\ 1323}#
                                    (map car #{pvars\ 2409}#)))
                           (syntax-violation
                             'syntax-case
                             "duplicate pattern variable"
                             #{pat\ 2404}#)
                           (if (not (and-map
                                      (lambda (#{x\ 2410}#)
                                        (not (#{ellipsis?\ 1342}#
                                               (car #{x\ 2410}#))))
                                      #{pvars\ 2409}#))
                             (syntax-violation
                               'syntax-case
                               "misplaced ellipsis"
                               #{pat\ 2404}#)
                             (let ((#{y\ 2411}#
                                     (#{gen-var\ 1344}# (quote tmp))))
                               (#{build-application\ 1264}#
                                 #f
                                 (#{build-lambda\ 1273}#
                                   #f
                                   (list (quote tmp))
                                   (list #{y\ 2411}#)
                                   #f
                                   (let ((#{y\ 2412}#
                                           (#{build-lexical-reference\ 1266}#
                                             'value
                                             #f
                                             'tmp
                                             #{y\ 2411}#)))
                                     (#{build-conditional\ 1265}#
                                       #f
                                       ((lambda (#{tmp\ 2413}#)
                                          ((lambda (#{tmp\ 2414}#)
                                             (if #{tmp\ 2414}#
                                               (apply (lambda () #{y\ 2412}#)
                                                      #{tmp\ 2414}#)
                                               ((lambda (#{_\ 2415}#)
                                                  (#{build-conditional\ 1265}#
                                                    #f
                                                    #{y\ 2412}#
                                                    (#{build-dispatch-call\ 2380}#
                                                      #{pvars\ 2409}#
                                                      #{fender\ 2405}#
                                                      #{y\ 2412}#
                                                      #{r\ 2403}#
                                                      #{mod\ 2407}#)
                                                    (#{build-data\ 1275}#
                                                      #f
                                                      #f)))
                                                #{tmp\ 2413}#)))
                                           ($sc-dispatch
                                             #{tmp\ 2413}#
                                             '#(atom #t))))
                                        #{fender\ 2405}#)
                                       (#{build-dispatch-call\ 2380}#
                                         #{pvars\ 2409}#
                                         #{exp\ 2406}#
                                         #{y\ 2412}#
                                         #{r\ 2403}#
                                         #{mod\ 2407}#)
                                       (#{gen-syntax-case\ 2382}#
                                         #{x\ 2400}#
                                         #{keys\ 2401}#
                                         #{clauses\ 2402}#
                                         #{r\ 2403}#
                                         #{mod\ 2407}#))))
                                 (list (if (eq? #{p\ 2408}# (quote any))
                                         (#{build-application\ 1264}#
                                           #f
                                           (#{build-primref\ 1274}#
                                             #f
                                             'list)
                                           (list #{x\ 2400}#))
                                         (#{build-application\ 1264}#
                                           #f
                                           (#{build-primref\ 1274}#
                                             #f
                                             '$sc-dispatch)
                                           (list #{x\ 2400}#
                                                 (#{build-data\ 1275}#
                                                   #f
                                                   #{p\ 2408}#)))))))))))))
                 (#{build-dispatch-call\ 2380}#
                   (lambda (#{pvars\ 2416}#
                            #{exp\ 2417}#
                            #{y\ 2418}#
                            #{r\ 2419}#
                            #{mod\ 2420}#)
                     (let ((#{ids\ 2421}# (map car #{pvars\ 2416}#))
                           (#{levels\ 2422}# (map cdr #{pvars\ 2416}#)))
                       (let ((#{labels\ 2423}#
                               (#{gen-labels\ 1303}# #{ids\ 2421}#))
                             (#{new-vars\ 2424}#
                               (map #{gen-var\ 1344}# #{ids\ 2421}#)))
                         (#{build-application\ 1264}#
                           #f
                           (#{build-primref\ 1274}# #f (quote apply))
                           (list (#{build-lambda\ 1273}#
                                   #f
                                   (map syntax->datum #{ids\ 2421}#)
                                   #{new-vars\ 2424}#
                                   #f
                                   (#{chi\ 1333}#
                                     #{exp\ 2417}#
                                     (#{extend-env\ 1291}#
                                       #{labels\ 2423}#
                                       (map (lambda (#{var\ 2425}#
                                                     #{level\ 2426}#)
                                              (cons 'syntax
                                                    (cons #{var\ 2425}#
                                                          #{level\ 2426}#)))
                                            #{new-vars\ 2424}#
                                            (map cdr #{pvars\ 2416}#))
                                       #{r\ 2419}#)
                                     (#{make-binding-wrap\ 1314}#
                                       #{ids\ 2421}#
                                       #{labels\ 2423}#
                                       '(()))
                                     #{mod\ 2420}#))
                                 #{y\ 2418}#))))))
                 (#{convert-pattern\ 2379}#
                   (lambda (#{pattern\ 2427}# #{keys\ 2428}#)
                     (letrec ((#{cvt\ 2429}#
                                (lambda (#{p\ 2430}# #{n\ 2431}# #{ids\ 2432}#)
                                  (if (#{id?\ 1297}# #{p\ 2430}#)
                                    (if (#{bound-id-member?\ 1324}#
                                          #{p\ 2430}#
                                          #{keys\ 2428}#)
                                      (values
                                        (vector (quote free-id) #{p\ 2430}#)
                                        #{ids\ 2432}#)
                                      (values
                                        'any
                                        (cons (cons #{p\ 2430}# #{n\ 2431}#)
                                              #{ids\ 2432}#)))
                                    ((lambda (#{tmp\ 2433}#)
                                       ((lambda (#{tmp\ 2434}#)
                                          (if (if #{tmp\ 2434}#
                                                (apply (lambda (#{x\ 2435}#
                                                                #{dots\ 2436}#)
                                                         (#{ellipsis?\ 1342}#
                                                           #{dots\ 2436}#))
                                                       #{tmp\ 2434}#)
                                                #f)
                                            (apply (lambda (#{x\ 2437}#
                                                            #{dots\ 2438}#)
                                                     (call-with-values
                                                       (lambda ()
                                                         (#{cvt\ 2429}#
                                                           #{x\ 2437}#
                                                           (#{fx+\ 1254}#
                                                             #{n\ 2431}#
                                                             1)
                                                           #{ids\ 2432}#))
                                                       (lambda (#{p\ 2439}#
                                                                #{ids\ 2440}#)
                                                         (values
                                                           (if (eq? #{p\ 2439}#
                                                                    'any)
                                                             'each-any
                                                             (vector
                                                               'each
                                                               #{p\ 2439}#))
                                                           #{ids\ 2440}#))))
                                                   #{tmp\ 2434}#)
                                            ((lambda (#{tmp\ 2441}#)
                                               (if #{tmp\ 2441}#
                                                 (apply (lambda (#{x\ 2442}#
                                                                 #{y\ 2443}#)
                                                          (call-with-values
                                                            (lambda ()
                                                              (#{cvt\ 2429}#
                                                                #{y\ 2443}#
                                                                #{n\ 2431}#
                                                                #{ids\ 2432}#))
                                                            (lambda (#{y\ 2444}#
                                                                     #{ids\ 2445}#)
                                                              (call-with-values
                                                                (lambda ()
                                                                  (#{cvt\ 2429}#
                                                                    #{x\ 2442}#
                                                                    #{n\ 2431}#
                                                                    #{ids\ 2445}#))
                                                                (lambda (#{x\ 2446}#
                                                                         #{ids\ 2447}#)
                                                                  (values
                                                                    (cons #{x\ 2446}#
                                                                          #{y\ 2444}#)
                                                                    #{ids\ 2447}#))))))
                                                        #{tmp\ 2441}#)
                                                 ((lambda (#{tmp\ 2448}#)
                                                    (if #{tmp\ 2448}#
                                                      (apply (lambda ()
                                                               (values
                                                                 '()
                                                                 #{ids\ 2432}#))
                                                             #{tmp\ 2448}#)
                                                      ((lambda (#{tmp\ 2449}#)
                                                         (if #{tmp\ 2449}#
                                                           (apply (lambda (#{x\ 2450}#)
                                                                    (call-with-values
                                                                      (lambda ()
                                                                        (#{cvt\ 2429}#
                                                                          #{x\ 2450}#
                                                                          #{n\ 2431}#
                                                                          #{ids\ 2432}#))
                                                                      (lambda (#{p\ 2452}#
                                                                               #{ids\ 2453}#)
                                                                        (values
                                                                          (vector
                                                                            'vector
                                                                            #{p\ 2452}#)
                                                                          #{ids\ 2453}#))))
                                                                  #{tmp\ 2449}#)
                                                           ((lambda (#{x\ 2454}#)
                                                              (values
                                                                (vector
                                                                  'atom
                                                                  (#{strip\ 1343}#
                                                                    #{p\ 2430}#
                                                                    '(())))
                                                                #{ids\ 2432}#))
                                                            #{tmp\ 2433}#)))
                                                       ($sc-dispatch
                                                         #{tmp\ 2433}#
                                                         '#(vector
                                                            each-any)))))
                                                  ($sc-dispatch
                                                    #{tmp\ 2433}#
                                                    '()))))
                                             ($sc-dispatch
                                               #{tmp\ 2433}#
                                               '(any . any)))))
                                        ($sc-dispatch
                                          #{tmp\ 2433}#
                                          '(any any))))
                                     #{p\ 2430}#)))))
                       (#{cvt\ 2429}# #{pattern\ 2427}# 0 (quote ()))))))
          (lambda (#{e\ 2455}#
                   #{r\ 2456}#
                   #{w\ 2457}#
                   #{s\ 2458}#
                   #{mod\ 2459}#)
            (let ((#{e\ 2460}#
                    (#{source-wrap\ 1326}#
                      #{e\ 2455}#
                      #{w\ 2457}#
                      #{s\ 2458}#
                      #{mod\ 2459}#)))
              ((lambda (#{tmp\ 2461}#)
                 ((lambda (#{tmp\ 2462}#)
                    (if #{tmp\ 2462}#
                      (apply (lambda (#{_\ 2463}#
                                      #{val\ 2464}#
                                      #{key\ 2465}#
                                      #{m\ 2466}#)
                               (if (and-map
                                     (lambda (#{x\ 2467}#)
                                       (if (#{id?\ 1297}# #{x\ 2467}#)
                                         (not (#{ellipsis?\ 1342}#
                                                #{x\ 2467}#))
                                         #f))
                                     #{key\ 2465}#)
                                 (let ((#{x\ 2469}#
                                         (#{gen-var\ 1344}# (quote tmp))))
                                   (#{build-application\ 1264}#
                                     #{s\ 2458}#
                                     (#{build-lambda\ 1273}#
                                       #f
                                       (list (quote tmp))
                                       (list #{x\ 2469}#)
                                       #f
                                       (#{gen-syntax-case\ 2382}#
                                         (#{build-lexical-reference\ 1266}#
                                           'value
                                           #f
                                           'tmp
                                           #{x\ 2469}#)
                                         #{key\ 2465}#
                                         #{m\ 2466}#
                                         #{r\ 2456}#
                                         #{mod\ 2459}#))
                                     (list (#{chi\ 1333}#
                                             #{val\ 2464}#
                                             #{r\ 2456}#
                                             '(())
                                             #{mod\ 2459}#))))
                                 (syntax-violation
                                   'syntax-case
                                   "invalid literals list"
                                   #{e\ 2460}#)))
                             #{tmp\ 2462}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp\ 2461}#)))
                  ($sc-dispatch
                    #{tmp\ 2461}#
                    '(any any each-any . each-any))))
               #{e\ 2460}#)))))
      (set! sc-expand
        (lambda (#{x\ 2473}# . #{rest\ 2472}#)
          (if (if (pair? #{x\ 2473}#)
                (equal? (car #{x\ 2473}#) #{noexpand\ 1252}#)
                #f)
            (cadr #{x\ 2473}#)
            (let ((#{m\ 2474}#
                    (if (null? #{rest\ 2472}#)
                      'e
                      (car #{rest\ 2472}#)))
                  (#{esew\ 2475}#
                    (if (let ((#{t\ 2476}# (null? #{rest\ 2472}#)))
                          (if #{t\ 2476}#
                            #{t\ 2476}#
                            (null? (cdr #{rest\ 2472}#))))
                      '(eval)
                      (cadr #{rest\ 2472}#))))
              (with-fluid*
                #{*mode*\ 1253}#
                #{m\ 2474}#
                (lambda ()
                  (#{chi-top\ 1332}#
                    #{x\ 2473}#
                    '()
                    '((top))
                    #{m\ 2474}#
                    #{esew\ 2475}#
                    (cons 'hygiene
                          (module-name (current-module))))))))))
      (set! identifier?
        (lambda (#{x\ 2477}#)
          (#{nonsymbol-id?\ 1296}# #{x\ 2477}#)))
      (set! datum->syntax
        (lambda (#{id\ 2478}# #{datum\ 2479}#)
          (#{make-syntax-object\ 1280}#
            #{datum\ 2479}#
            (#{syntax-object-wrap\ 1283}# #{id\ 2478}#)
            #f)))
      (set! syntax->datum
        (lambda (#{x\ 2480}#)
          (#{strip\ 1343}# #{x\ 2480}# (quote (())))))
      (set! generate-temporaries
        (lambda (#{ls\ 2481}#)
          (begin
            (let ((#{x\ 2482}# #{ls\ 2481}#))
              (if (not (list? #{x\ 2482}#))
                (syntax-violation
                  'generate-temporaries
                  "invalid argument"
                  #{x\ 2482}#)))
            (map (lambda (#{x\ 2483}#)
                   (#{wrap\ 1325}# (gensym) (quote ((top))) #f))
                 #{ls\ 2481}#))))
      (set! free-identifier=?
        (lambda (#{x\ 2484}# #{y\ 2485}#)
          (begin
            (let ((#{x\ 2486}# #{x\ 2484}#))
              (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2486}#))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  #{x\ 2486}#)))
            (let ((#{x\ 2487}# #{y\ 2485}#))
              (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2487}#))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  #{x\ 2487}#)))
            (#{free-id=?\ 1320}# #{x\ 2484}# #{y\ 2485}#))))
      (set! bound-identifier=?
        (lambda (#{x\ 2488}# #{y\ 2489}#)
          (begin
            (let ((#{x\ 2490}# #{x\ 2488}#))
              (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2490}#))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  #{x\ 2490}#)))
            (let ((#{x\ 2491}# #{y\ 2489}#))
              (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2491}#))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  #{x\ 2491}#)))
            (#{bound-id=?\ 1321}# #{x\ 2488}# #{y\ 2489}#))))
      (set! syntax-violation
        (lambda (#{who\ 2495}#
                 #{message\ 2494}#
                 #{form\ 2493}#
                 .
                 #{subform\ 2492}#)
          (begin
            (let ((#{x\ 2496}# #{who\ 2495}#))
              (if (not ((lambda (#{x\ 2497}#)
                          (let ((#{t\ 2498}# (not #{x\ 2497}#)))
                            (if #{t\ 2498}#
                              #{t\ 2498}#
                              (let ((#{t\ 2499}# (string? #{x\ 2497}#)))
                                (if #{t\ 2499}#
                                  #{t\ 2499}#
                                  (symbol? #{x\ 2497}#))))))
                        #{x\ 2496}#))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  #{x\ 2496}#)))
            (let ((#{x\ 2500}# #{message\ 2494}#))
              (if (not (string? #{x\ 2500}#))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  #{x\ 2500}#)))
            (scm-error
              'syntax-error
              'sc-expand
              (string-append
                (if #{who\ 2495}# "~a: " "")
                "~a "
                (if (null? #{subform\ 2492}#)
                  "in ~a"
                  "in subform `~s' of `~s'"))
              (let ((#{tail\ 2501}#
                      (cons #{message\ 2494}#
                            (map (lambda (#{x\ 2502}#)
                                   (#{strip\ 1343}# #{x\ 2502}# (quote (()))))
                                 (append
                                   #{subform\ 2492}#
                                   (list #{form\ 2493}#))))))
                (if #{who\ 2495}#
                  (cons #{who\ 2495}# #{tail\ 2501}#)
                  #{tail\ 2501}#))
              #f))))
      (letrec ((#{match\ 2507}#
                 (lambda (#{e\ 2508}#
                          #{p\ 2509}#
                          #{w\ 2510}#
                          #{r\ 2511}#
                          #{mod\ 2512}#)
                   (if (not #{r\ 2511}#)
                     #f
                     (if (eq? #{p\ 2509}# (quote any))
                       (cons (#{wrap\ 1325}#
                               #{e\ 2508}#
                               #{w\ 2510}#
                               #{mod\ 2512}#)
                             #{r\ 2511}#)
                       (if (#{syntax-object?\ 1281}# #{e\ 2508}#)
                         (#{match*\ 2506}#
                           (#{syntax-object-expression\ 1282}# #{e\ 2508}#)
                           #{p\ 2509}#
                           (#{join-wraps\ 1316}#
                             #{w\ 2510}#
                             (#{syntax-object-wrap\ 1283}# #{e\ 2508}#))
                           #{r\ 2511}#
                           (#{syntax-object-module\ 1284}# #{e\ 2508}#))
                         (#{match*\ 2506}#
                           #{e\ 2508}#
                           #{p\ 2509}#
                           #{w\ 2510}#
                           #{r\ 2511}#
                           #{mod\ 2512}#))))))
               (#{match*\ 2506}#
                 (lambda (#{e\ 2513}#
                          #{p\ 2514}#
                          #{w\ 2515}#
                          #{r\ 2516}#
                          #{mod\ 2517}#)
                   (if (null? #{p\ 2514}#)
                     (if (null? #{e\ 2513}#) #{r\ 2516}# #f)
                     (if (pair? #{p\ 2514}#)
                       (if (pair? #{e\ 2513}#)
                         (#{match\ 2507}#
                           (car #{e\ 2513}#)
                           (car #{p\ 2514}#)
                           #{w\ 2515}#
                           (#{match\ 2507}#
                             (cdr #{e\ 2513}#)
                             (cdr #{p\ 2514}#)
                             #{w\ 2515}#
                             #{r\ 2516}#
                             #{mod\ 2517}#)
                           #{mod\ 2517}#)
                         #f)
                       (if (eq? #{p\ 2514}# (quote each-any))
                         (let ((#{l\ 2518}#
                                 (#{match-each-any\ 2504}#
                                   #{e\ 2513}#
                                   #{w\ 2515}#
                                   #{mod\ 2517}#)))
                           (if #{l\ 2518}#
                             (cons #{l\ 2518}# #{r\ 2516}#)
                             #f))
                         (let ((#{atom-key\ 2519}# (vector-ref #{p\ 2514}# 0)))
                           (if (memv #{atom-key\ 2519}# (quote (each)))
                             (if (null? #{e\ 2513}#)
                               (#{match-empty\ 2505}#
                                 (vector-ref #{p\ 2514}# 1)
                                 #{r\ 2516}#)
                               (let ((#{l\ 2520}#
                                       (#{match-each\ 2503}#
                                         #{e\ 2513}#
                                         (vector-ref #{p\ 2514}# 1)
                                         #{w\ 2515}#
                                         #{mod\ 2517}#)))
                                 (if #{l\ 2520}#
                                   (letrec ((#{collect\ 2521}#
                                              (lambda (#{l\ 2522}#)
                                                (if (null? (car #{l\ 2522}#))
                                                  #{r\ 2516}#
                                                  (cons (map car #{l\ 2522}#)
                                                        (#{collect\ 2521}#
                                                          (map cdr
                                                               #{l\ 2522}#)))))))
                                     (#{collect\ 2521}# #{l\ 2520}#))
                                   #f)))
                             (if (memv #{atom-key\ 2519}# (quote (free-id)))
                               (if (#{id?\ 1297}# #{e\ 2513}#)
                                 (if (#{free-id=?\ 1320}#
                                       (#{wrap\ 1325}#
                                         #{e\ 2513}#
                                         #{w\ 2515}#
                                         #{mod\ 2517}#)
                                       (vector-ref #{p\ 2514}# 1))
                                   #{r\ 2516}#
                                   #f)
                                 #f)
                               (if (memv #{atom-key\ 2519}# (quote (atom)))
                                 (if (equal?
                                       (vector-ref #{p\ 2514}# 1)
                                       (#{strip\ 1343}#
                                         #{e\ 2513}#
                                         #{w\ 2515}#))
                                   #{r\ 2516}#
                                   #f)
                                 (if (memv #{atom-key\ 2519}# (quote (vector)))
                                   (if (vector? #{e\ 2513}#)
                                     (#{match\ 2507}#
                                       (vector->list #{e\ 2513}#)
                                       (vector-ref #{p\ 2514}# 1)
                                       #{w\ 2515}#
                                       #{r\ 2516}#
                                       #{mod\ 2517}#)
                                     #f)))))))))))
               (#{match-empty\ 2505}#
                 (lambda (#{p\ 2523}# #{r\ 2524}#)
                   (if (null? #{p\ 2523}#)
                     #{r\ 2524}#
                     (if (eq? #{p\ 2523}# (quote any))
                       (cons (quote ()) #{r\ 2524}#)
                       (if (pair? #{p\ 2523}#)
                         (#{match-empty\ 2505}#
                           (car #{p\ 2523}#)
                           (#{match-empty\ 2505}#
                             (cdr #{p\ 2523}#)
                             #{r\ 2524}#))
                         (if (eq? #{p\ 2523}# (quote each-any))
                           (cons (quote ()) #{r\ 2524}#)
                           (let ((#{atom-key\ 2525}#
                                   (vector-ref #{p\ 2523}# 0)))
                             (if (memv #{atom-key\ 2525}# (quote (each)))
                               (#{match-empty\ 2505}#
                                 (vector-ref #{p\ 2523}# 1)
                                 #{r\ 2524}#)
                               (if (memv #{atom-key\ 2525}#
                                         '(free-id atom))
                                 #{r\ 2524}#
                                 (if (memv #{atom-key\ 2525}# (quote (vector)))
                                   (#{match-empty\ 2505}#
                                     (vector-ref #{p\ 2523}# 1)
                                     #{r\ 2524}#)))))))))))
               (#{match-each-any\ 2504}#
                 (lambda (#{e\ 2526}# #{w\ 2527}# #{mod\ 2528}#)
                   (if (pair? #{e\ 2526}#)
                     (let ((#{l\ 2529}#
                             (#{match-each-any\ 2504}#
                               (cdr #{e\ 2526}#)
                               #{w\ 2527}#
                               #{mod\ 2528}#)))
                       (if #{l\ 2529}#
                         (cons (#{wrap\ 1325}#
                                 (car #{e\ 2526}#)
                                 #{w\ 2527}#
                                 #{mod\ 2528}#)
                               #{l\ 2529}#)
                         #f))
                     (if (null? #{e\ 2526}#)
                       '()
                       (if (#{syntax-object?\ 1281}# #{e\ 2526}#)
                         (#{match-each-any\ 2504}#
                           (#{syntax-object-expression\ 1282}# #{e\ 2526}#)
                           (#{join-wraps\ 1316}#
                             #{w\ 2527}#
                             (#{syntax-object-wrap\ 1283}# #{e\ 2526}#))
                           #{mod\ 2528}#)
                         #f)))))
               (#{match-each\ 2503}#
                 (lambda (#{e\ 2530}#
                          #{p\ 2531}#
                          #{w\ 2532}#
                          #{mod\ 2533}#)
                   (if (pair? #{e\ 2530}#)
                     (let ((#{first\ 2534}#
                             (#{match\ 2507}#
                               (car #{e\ 2530}#)
                               #{p\ 2531}#
                               #{w\ 2532}#
                               '()
                               #{mod\ 2533}#)))
                       (if #{first\ 2534}#
                         (let ((#{rest\ 2535}#
                                 (#{match-each\ 2503}#
                                   (cdr #{e\ 2530}#)
                                   #{p\ 2531}#
                                   #{w\ 2532}#
                                   #{mod\ 2533}#)))
                           (if #{rest\ 2535}#
                             (cons #{first\ 2534}# #{rest\ 2535}#)
                             #f))
                         #f))
                     (if (null? #{e\ 2530}#)
                       '()
                       (if (#{syntax-object?\ 1281}# #{e\ 2530}#)
                         (#{match-each\ 2503}#
                           (#{syntax-object-expression\ 1282}# #{e\ 2530}#)
                           #{p\ 2531}#
                           (#{join-wraps\ 1316}#
                             #{w\ 2532}#
                             (#{syntax-object-wrap\ 1283}# #{e\ 2530}#))
                           (#{syntax-object-module\ 1284}# #{e\ 2530}#))
                         #f))))))
        (set! $sc-dispatch
          (lambda (#{e\ 2536}# #{p\ 2537}#)
            (if (eq? #{p\ 2537}# (quote any))
              (list #{e\ 2536}#)
              (if (#{syntax-object?\ 1281}# #{e\ 2536}#)
                (#{match*\ 2506}#
                  (#{syntax-object-expression\ 1282}# #{e\ 2536}#)
                  #{p\ 2537}#
                  (#{syntax-object-wrap\ 1283}# #{e\ 2536}#)
                  '()
                  (#{syntax-object-module\ 1284}# #{e\ 2536}#))
                (#{match*\ 2506}#
                  #{e\ 2536}#
                  #{p\ 2537}#
                  '(())
                  '()
                  #f)))))))))

(define with-syntax
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2538}#)
      ((lambda (#{tmp\ 2539}#)
         ((lambda (#{tmp\ 2540}#)
            (if #{tmp\ 2540}#
              (apply (lambda (#{_\ 2541}# #{e1\ 2542}# #{e2\ 2543}#)
                       (cons '#(syntax-object
                                begin
                                ((top)
                                 #(ribcage
                                   #(_ e1 e2)
                                   #((top) (top) (top))
                                   #("i" "i" "i"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i")))
                                (hygiene guile))
                             (cons #{e1\ 2542}# #{e2\ 2543}#)))
                     #{tmp\ 2540}#)
              ((lambda (#{tmp\ 2545}#)
                 (if #{tmp\ 2545}#
                   (apply (lambda (#{_\ 2546}#
                                   #{out\ 2547}#
                                   #{in\ 2548}#
                                   #{e1\ 2549}#
                                   #{e2\ 2550}#)
                            (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))
                                  #{in\ 2548}#
                                  '()
                                  (list #{out\ 2547}#
                                        (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 #{e1\ 2549}#
                                                    #{e2\ 2550}#)))))
                          #{tmp\ 2545}#)
                   ((lambda (#{tmp\ 2552}#)
                      (if #{tmp\ 2552}#
                        (apply (lambda (#{_\ 2553}#
                                        #{out\ 2554}#
                                        #{in\ 2555}#
                                        #{e1\ 2556}#
                                        #{e2\ 2557}#)
                                 (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))
                                             #{in\ 2555}#)
                                       '()
                                       (list #{out\ 2554}#
                                             (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 #{e1\ 2556}#
                                                         #{e2\ 2557}#)))))
                               #{tmp\ 2552}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp\ 2539}#)))
                    ($sc-dispatch
                      #{tmp\ 2539}#
                      '(any #(each (any any)) any . each-any)))))
               ($sc-dispatch
                 #{tmp\ 2539}#
                 '(any ((any any)) any . each-any)))))
          ($sc-dispatch
            #{tmp\ 2539}#
            '(any () any . each-any))))
       #{x\ 2538}#))))

(define syntax-rules
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2561}#)
      ((lambda (#{tmp\ 2562}#)
         ((lambda (#{tmp\ 2563}#)
            (if #{tmp\ 2563}#
              (apply (lambda (#{_\ 2564}#
                              #{k\ 2565}#
                              #{keyword\ 2566}#
                              #{pattern\ 2567}#
                              #{template\ 2568}#)
                       (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 #{k\ 2565}#
                                               (map (lambda (#{tmp\ 2571}#
                                                             #{tmp\ 2570}#)
                                                      (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))
                                                                  #{tmp\ 2570}#)
                                                            (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))
                                                                  #{tmp\ 2571}#)))
                                                    #{template\ 2568}#
                                                    #{pattern\ 2567}#))))))
                     #{tmp\ 2563}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2562}#)))
          ($sc-dispatch
            #{tmp\ 2562}#
            '(any each-any . #(each ((any . any) any))))))
       #{x\ 2561}#))))

(define let*
  (make-extended-syncase-macro
    (module-ref (current-module) (quote let*))
    'macro
    (lambda (#{x\ 2572}#)
      ((lambda (#{tmp\ 2573}#)
         ((lambda (#{tmp\ 2574}#)
            (if (if #{tmp\ 2574}#
                  (apply (lambda (#{let*\ 2575}#
                                  #{x\ 2576}#
                                  #{v\ 2577}#
                                  #{e1\ 2578}#
                                  #{e2\ 2579}#)
                           (and-map identifier? #{x\ 2576}#))
                         #{tmp\ 2574}#)
                  #f)
              (apply (lambda (#{let*\ 2581}#
                              #{x\ 2582}#
                              #{v\ 2583}#
                              #{e1\ 2584}#
                              #{e2\ 2585}#)
                       (letrec ((#{f\ 2586}#
                                  (lambda (#{bindings\ 2587}#)
                                    (if (null? #{bindings\ 2587}#)
                                      (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 #{e1\ 2584}#
                                                        #{e2\ 2585}#)))
                                      ((lambda (#{tmp\ 2591}#)
                                         ((lambda (#{tmp\ 2592}#)
                                            (if #{tmp\ 2592}#
                                              (apply (lambda (#{body\ 2593}#
                                                              #{binding\ 2594}#)
                                                       (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 #{binding\ 2594}#)
                                                             #{body\ 2593}#))
                                                     #{tmp\ 2592}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to match any pattern"
                                                #{tmp\ 2591}#)))
                                          ($sc-dispatch
                                            #{tmp\ 2591}#
                                            '(any any))))
                                       (list (#{f\ 2586}#
                                               (cdr #{bindings\ 2587}#))
                                             (car #{bindings\ 2587}#)))))))
                         (#{f\ 2586}# (map list #{x\ 2582}# #{v\ 2583}#))))
                     #{tmp\ 2574}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2573}#)))
          ($sc-dispatch
            #{tmp\ 2573}#
            '(any #(each (any any)) any . each-any))))
       #{x\ 2572}#))))

(define do
  (make-extended-syncase-macro
    (module-ref (current-module) (quote do))
    'macro
    (lambda (#{orig-x\ 2595}#)
      ((lambda (#{tmp\ 2596}#)
         ((lambda (#{tmp\ 2597}#)
            (if #{tmp\ 2597}#
              (apply (lambda (#{_\ 2598}#
                              #{var\ 2599}#
                              #{init\ 2600}#
                              #{step\ 2601}#
                              #{e0\ 2602}#
                              #{e1\ 2603}#
                              #{c\ 2604}#)
                       ((lambda (#{tmp\ 2605}#)
                          ((lambda (#{tmp\ 2606}#)
                             (if #{tmp\ 2606}#
                               (apply (lambda (#{step\ 2607}#)
                                        ((lambda (#{tmp\ 2608}#)
                                           ((lambda (#{tmp\ 2609}#)
                                              (if #{tmp\ 2609}#
                                                (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
                                                                    #{var\ 2599}#
                                                                    #{init\ 2600}#)
                                                               (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))
                                                                           #{e0\ 2602}#)
                                                                     (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
                                                                             #{c\ 2604}#
                                                                             (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))
                                                                                         #{step\ 2607}#)))))))
                                                       #{tmp\ 2609}#)
                                                ((lambda (#{tmp\ 2614}#)
                                                   (if #{tmp\ 2614}#
                                                     (apply (lambda (#{e1\ 2615}#
                                                                     #{e2\ 2616}#)
                                                              (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
                                                                         #{var\ 2599}#
                                                                         #{init\ 2600}#)
                                                                    (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))
                                                                          #{e0\ 2602}#
                                                                          (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 #{e1\ 2615}#
                                                                                      #{e2\ 2616}#))
                                                                          (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
                                                                                  #{c\ 2604}#
                                                                                  (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))
                                                                                              #{step\ 2607}#)))))))
                                                            #{tmp\ 2614}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       #{tmp\ 2608}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 2608}#
                                                   '(any . each-any)))))
                                            ($sc-dispatch
                                              #{tmp\ 2608}#
                                              '())))
                                         #{e1\ 2603}#))
                                      #{tmp\ 2606}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 #{tmp\ 2605}#)))
                           ($sc-dispatch #{tmp\ 2605}# (quote each-any))))
                        (map (lambda (#{v\ 2623}# #{s\ 2624}#)
                               ((lambda (#{tmp\ 2625}#)
                                  ((lambda (#{tmp\ 2626}#)
                                     (if #{tmp\ 2626}#
                                       (apply (lambda () #{v\ 2623}#)
                                              #{tmp\ 2626}#)
                                       ((lambda (#{tmp\ 2627}#)
                                          (if #{tmp\ 2627}#
                                            (apply (lambda (#{e\ 2628}#)
                                                     #{e\ 2628}#)
                                                   #{tmp\ 2627}#)
                                            ((lambda (#{_\ 2629}#)
                                               (syntax-violation
                                                 'do
                                                 "bad step expression"
                                                 #{orig-x\ 2595}#
                                                 #{s\ 2624}#))
                                             #{tmp\ 2625}#)))
                                        ($sc-dispatch
                                          #{tmp\ 2625}#
                                          '(any)))))
                                   ($sc-dispatch #{tmp\ 2625}# (quote ()))))
                                #{s\ 2624}#))
                             #{var\ 2599}#
                             #{step\ 2601}#)))
                     #{tmp\ 2597}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2596}#)))
          ($sc-dispatch
            #{tmp\ 2596}#
            '(any #(each (any any . any))
                  (any . each-any)
                  .
                  each-any))))
       #{orig-x\ 2595}#))))

(define quasiquote
  (make-extended-syncase-macro
    (module-ref (current-module) (quote quasiquote))
    'macro
    (letrec ((#{quasicons\ 2632}#
               (lambda (#{x\ 2636}# #{y\ 2637}#)
                 ((lambda (#{tmp\ 2638}#)
                    ((lambda (#{tmp\ 2639}#)
                       (if #{tmp\ 2639}#
                         (apply (lambda (#{x\ 2640}# #{y\ 2641}#)
                                  ((lambda (#{tmp\ 2642}#)
                                     ((lambda (#{tmp\ 2643}#)
                                        (if #{tmp\ 2643}#
                                          (apply (lambda (#{dy\ 2644}#)
                                                   ((lambda (#{tmp\ 2645}#)
                                                      ((lambda (#{tmp\ 2646}#)
                                                         (if #{tmp\ 2646}#
                                                           (apply (lambda (#{dx\ 2647}#)
                                                                    (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 #{dx\ 2647}#
                                                                                #{dy\ 2644}#)))
                                                                  #{tmp\ 2646}#)
                                                           ((lambda (#{_\ 2648}#)
                                                              (if (null? #{dy\ 2644}#)
                                                                (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))
                                                                      #{x\ 2640}#)
                                                                (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))
                                                                      #{x\ 2640}#
                                                                      #{y\ 2641}#)))
                                                            #{tmp\ 2645}#)))
                                                       ($sc-dispatch
                                                         #{tmp\ 2645}#
                                                         '(#(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))))
                                                    #{x\ 2640}#))
                                                 #{tmp\ 2643}#)
                                          ((lambda (#{tmp\ 2649}#)
                                             (if #{tmp\ 2649}#
                                               (apply (lambda (#{stuff\ 2650}#)
                                                        (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 #{x\ 2640}#
                                                                    #{stuff\ 2650}#)))
                                                      #{tmp\ 2649}#)
                                               ((lambda (#{else\ 2651}#)
                                                  (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))
                                                        #{x\ 2640}#
                                                        #{y\ 2641}#))
                                                #{tmp\ 2642}#)))
                                           ($sc-dispatch
                                             #{tmp\ 2642}#
                                             '(#(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
                                        #{tmp\ 2642}#
                                        '(#(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))))
                                   #{y\ 2641}#))
                                #{tmp\ 2639}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           #{tmp\ 2638}#)))
                     ($sc-dispatch #{tmp\ 2638}# (quote (any any)))))
                  (list #{x\ 2636}# #{y\ 2637}#))))
             (#{quasiappend\ 2633}#
               (lambda (#{x\ 2652}# #{y\ 2653}#)
                 ((lambda (#{tmp\ 2654}#)
                    ((lambda (#{tmp\ 2655}#)
                       (if #{tmp\ 2655}#
                         (apply (lambda (#{x\ 2656}# #{y\ 2657}#)
                                  ((lambda (#{tmp\ 2658}#)
                                     ((lambda (#{tmp\ 2659}#)
                                        (if #{tmp\ 2659}#
                                          (apply (lambda () #{x\ 2656}#)
                                                 #{tmp\ 2659}#)
                                          ((lambda (#{_\ 2660}#)
                                             (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))
                                                   #{x\ 2656}#
                                                   #{y\ 2657}#))
                                           #{tmp\ 2658}#)))
                                      ($sc-dispatch
                                        #{tmp\ 2658}#
                                        '(#(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)))
                                          ()))))
                                   #{y\ 2657}#))
                                #{tmp\ 2655}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           #{tmp\ 2654}#)))
                     ($sc-dispatch #{tmp\ 2654}# (quote (any any)))))
                  (list #{x\ 2652}# #{y\ 2653}#))))
             (#{quasivector\ 2634}#
               (lambda (#{x\ 2661}#)
                 ((lambda (#{tmp\ 2662}#)
                    ((lambda (#{x\ 2663}#)
                       ((lambda (#{tmp\ 2664}#)
                          ((lambda (#{tmp\ 2665}#)
                             (if #{tmp\ 2665}#
                               (apply (lambda (#{x\ 2666}#)
                                        (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 #{x\ 2666}#)))
                                      #{tmp\ 2665}#)
                               ((lambda (#{tmp\ 2668}#)
                                  (if #{tmp\ 2668}#
                                    (apply (lambda (#{x\ 2669}#)
                                             (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))
                                                   #{x\ 2669}#))
                                           #{tmp\ 2668}#)
                                    ((lambda (#{_\ 2671}#)
                                       (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))
                                             #{x\ 2663}#))
                                     #{tmp\ 2664}#)))
                                ($sc-dispatch
                                  #{tmp\ 2664}#
                                  '(#(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
                             #{tmp\ 2664}#
                             '(#(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))))
                        #{x\ 2663}#))
                     #{tmp\ 2662}#))
                  #{x\ 2661}#)))
             (#{quasi\ 2635}#
               (lambda (#{p\ 2672}# #{lev\ 2673}#)
                 ((lambda (#{tmp\ 2674}#)
                    ((lambda (#{tmp\ 2675}#)
                       (if #{tmp\ 2675}#
                         (apply (lambda (#{p\ 2676}#)
                                  (if (= #{lev\ 2673}# 0)
                                    #{p\ 2676}#
                                    (#{quasicons\ 2632}#
                                      '(#(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)))
                                      (#{quasi\ 2635}#
                                        (list #{p\ 2676}#)
                                        (- #{lev\ 2673}# 1)))))
                                #{tmp\ 2675}#)
                         ((lambda (#{tmp\ 2677}#)
                            (if (if #{tmp\ 2677}#
                                  (apply (lambda (#{args\ 2678}#)
                                           (= #{lev\ 2673}# 0))
                                         #{tmp\ 2677}#)
                                  #f)
                              (apply (lambda (#{args\ 2679}#)
                                       (syntax-violation
                                         'unquote
                                         "unquote takes exactly one argument"
                                         #{p\ 2672}#
                                         (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))
                                               #{args\ 2679}#)))
                                     #{tmp\ 2677}#)
                              ((lambda (#{tmp\ 2680}#)
                                 (if #{tmp\ 2680}#
                                   (apply (lambda (#{p\ 2681}# #{q\ 2682}#)
                                            (if (= #{lev\ 2673}# 0)
                                              (#{quasiappend\ 2633}#
                                                #{p\ 2681}#
                                                (#{quasi\ 2635}#
                                                  #{q\ 2682}#
                                                  #{lev\ 2673}#))
                                              (#{quasicons\ 2632}#
                                                (#{quasicons\ 2632}#
                                                  '(#(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)))
                                                  (#{quasi\ 2635}#
                                                    (list #{p\ 2681}#)
                                                    (- #{lev\ 2673}# 1)))
                                                (#{quasi\ 2635}#
                                                  #{q\ 2682}#
                                                  #{lev\ 2673}#))))
                                          #{tmp\ 2680}#)
                                   ((lambda (#{tmp\ 2683}#)
                                      (if (if #{tmp\ 2683}#
                                            (apply (lambda (#{args\ 2684}#
                                                            #{q\ 2685}#)
                                                     (= #{lev\ 2673}# 0))
                                                   #{tmp\ 2683}#)
                                            #f)
                                        (apply (lambda (#{args\ 2686}#
                                                        #{q\ 2687}#)
                                                 (syntax-violation
                                                   'unquote-splicing
                                                   "unquote-splicing takes exactly one argument"
                                                   #{p\ 2672}#
                                                   (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))
                                                         #{args\ 2686}#)))
                                               #{tmp\ 2683}#)
                                        ((lambda (#{tmp\ 2688}#)
                                           (if #{tmp\ 2688}#
                                             (apply (lambda (#{p\ 2689}#)
                                                      (#{quasicons\ 2632}#
                                                        '(#(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)))
                                                        (#{quasi\ 2635}#
                                                          (list #{p\ 2689}#)
                                                          (+ #{lev\ 2673}#
                                                             1))))
                                                    #{tmp\ 2688}#)
                                             ((lambda (#{tmp\ 2690}#)
                                                (if #{tmp\ 2690}#
                                                  (apply (lambda (#{p\ 2691}#
                                                                  #{q\ 2692}#)
                                                           (#{quasicons\ 2632}#
                                                             (#{quasi\ 2635}#
                                                               #{p\ 2691}#
                                                               #{lev\ 2673}#)
                                                             (#{quasi\ 2635}#
                                                               #{q\ 2692}#
                                                               #{lev\ 2673}#)))
                                                         #{tmp\ 2690}#)
                                                  ((lambda (#{tmp\ 2693}#)
                                                     (if #{tmp\ 2693}#
                                                       (apply (lambda (#{x\ 2694}#)
                                                                (#{quasivector\ 2634}#
                                                                  (#{quasi\ 2635}#
                                                                    #{x\ 2694}#
                                                                    #{lev\ 2673}#)))
                                                              #{tmp\ 2693}#)
                                                       ((lambda (#{p\ 2696}#)
                                                          (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))
                                                                #{p\ 2696}#))
                                                        #{tmp\ 2674}#)))
                                                   ($sc-dispatch
                                                     #{tmp\ 2674}#
                                                     '#(vector each-any)))))
                                              ($sc-dispatch
                                                #{tmp\ 2674}#
                                                '(any . any)))))
                                         ($sc-dispatch
                                           #{tmp\ 2674}#
                                           '(#(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
                                      #{tmp\ 2674}#
                                      '((#(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
                                 #{tmp\ 2674}#
                                 '((#(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
                            #{tmp\ 2674}#
                            '(#(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
                       #{tmp\ 2674}#
                       '(#(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))))
                  #{p\ 2672}#))))
      (lambda (#{x\ 2697}#)
        ((lambda (#{tmp\ 2698}#)
           ((lambda (#{tmp\ 2699}#)
              (if #{tmp\ 2699}#
                (apply (lambda (#{_\ 2700}# #{e\ 2701}#)
                         (#{quasi\ 2635}# #{e\ 2701}# 0))
                       #{tmp\ 2699}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp\ 2698}#)))
            ($sc-dispatch #{tmp\ 2698}# (quote (any any)))))
         #{x\ 2697}#)))))

(define include
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2702}#)
      (letrec ((#{read-file\ 2703}#
                 (lambda (#{fn\ 2704}# #{k\ 2705}#)
                   (let ((#{p\ 2706}# (open-input-file #{fn\ 2704}#)))
                     (letrec ((#{f\ 2707}#
                                (lambda (#{x\ 2708}#)
                                  (if (eof-object? #{x\ 2708}#)
                                    (begin
                                      (close-input-port #{p\ 2706}#)
                                      '())
                                    (cons (datum->syntax
                                            #{k\ 2705}#
                                            #{x\ 2708}#)
                                          (#{f\ 2707}# (read #{p\ 2706}#)))))))
                       (#{f\ 2707}# (read #{p\ 2706}#)))))))
        ((lambda (#{tmp\ 2709}#)
           ((lambda (#{tmp\ 2710}#)
              (if #{tmp\ 2710}#
                (apply (lambda (#{k\ 2711}# #{filename\ 2712}#)
                         (let ((#{fn\ 2713}#
                                 (syntax->datum #{filename\ 2712}#)))
                           ((lambda (#{tmp\ 2714}#)
                              ((lambda (#{tmp\ 2715}#)
                                 (if #{tmp\ 2715}#
                                   (apply (lambda (#{exp\ 2716}#)
                                            (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))
                                                  #{exp\ 2716}#))
                                          #{tmp\ 2715}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     #{tmp\ 2714}#)))
                               ($sc-dispatch #{tmp\ 2714}# (quote each-any))))
                            (#{read-file\ 2703}# #{fn\ 2713}# #{k\ 2711}#))))
                       #{tmp\ 2710}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp\ 2709}#)))
            ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
         #{x\ 2702}#)))))

(define unquote
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2718}#)
      ((lambda (#{tmp\ 2719}#)
         ((lambda (#{tmp\ 2720}#)
            (if #{tmp\ 2720}#
              (apply (lambda (#{_\ 2721}# #{e\ 2722}#)
                       (syntax-violation
                         'unquote
                         "expression not valid outside of quasiquote"
                         #{x\ 2718}#))
                     #{tmp\ 2720}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2719}#)))
          ($sc-dispatch #{tmp\ 2719}# (quote (any any)))))
       #{x\ 2718}#))))

(define unquote-splicing
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2723}#)
      ((lambda (#{tmp\ 2724}#)
         ((lambda (#{tmp\ 2725}#)
            (if #{tmp\ 2725}#
              (apply (lambda (#{_\ 2726}# #{e\ 2727}#)
                       (syntax-violation
                         'unquote-splicing
                         "expression not valid outside of quasiquote"
                         #{x\ 2723}#))
                     #{tmp\ 2725}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2724}#)))
          ($sc-dispatch #{tmp\ 2724}# (quote (any any)))))
       #{x\ 2723}#))))

(define case
  (make-extended-syncase-macro
    (module-ref (current-module) (quote case))
    'macro
    (lambda (#{x\ 2728}#)
      ((lambda (#{tmp\ 2729}#)
         ((lambda (#{tmp\ 2730}#)
            (if #{tmp\ 2730}#
              (apply (lambda (#{_\ 2731}#
                              #{e\ 2732}#
                              #{m1\ 2733}#
                              #{m2\ 2734}#)
                       ((lambda (#{tmp\ 2735}#)
                          ((lambda (#{body\ 2736}#)
                             (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))
                                               #{e\ 2732}#))
                                   #{body\ 2736}#))
                           #{tmp\ 2735}#))
                        (letrec ((#{f\ 2737}#
                                   (lambda (#{clause\ 2738}# #{clauses\ 2739}#)
                                     (if (null? #{clauses\ 2739}#)
                                       ((lambda (#{tmp\ 2741}#)
                                          ((lambda (#{tmp\ 2742}#)
                                             (if #{tmp\ 2742}#
                                               (apply (lambda (#{e1\ 2743}#
                                                               #{e2\ 2744}#)
                                                        (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 #{e1\ 2743}#
                                                                    #{e2\ 2744}#)))
                                                      #{tmp\ 2742}#)
                                               ((lambda (#{tmp\ 2746}#)
                                                  (if #{tmp\ 2746}#
                                                    (apply (lambda (#{k\ 2747}#
                                                                    #{e1\ 2748}#
                                                                    #{e2\ 2749}#)
                                                             (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))
                                                                               #{k\ 2747}#))
                                                                   (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 #{e1\ 2748}#
                                                                               #{e2\ 2749}#))))
                                                           #{tmp\ 2746}#)
                                                    ((lambda (#{_\ 2752}#)
                                                       (syntax-violation
                                                         'case
                                                         "bad clause"
                                                         #{x\ 2728}#
                                                         #{clause\ 2738}#))
                                                     #{tmp\ 2741}#)))
                                                ($sc-dispatch
                                                  #{tmp\ 2741}#
                                                  '(each-any
                                                     any
                                                     .
                                                     each-any)))))
                                           ($sc-dispatch
                                             #{tmp\ 2741}#
                                             '(#(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))))
                                        #{clause\ 2738}#)
                                       ((lambda (#{tmp\ 2753}#)
                                          ((lambda (#{rest\ 2754}#)
                                             ((lambda (#{tmp\ 2755}#)
                                                ((lambda (#{tmp\ 2756}#)
                                                   (if #{tmp\ 2756}#
                                                     (apply (lambda (#{k\ 2757}#
                                                                     #{e1\ 2758}#
                                                                     #{e2\ 2759}#)
                                                              (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))
                                                                                #{k\ 2757}#))
                                                                    (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 #{e1\ 2758}#
                                                                                #{e2\ 2759}#))
                                                                    #{rest\ 2754}#))
                                                            #{tmp\ 2756}#)
                                                     ((lambda (#{_\ 2762}#)
                                                        (syntax-violation
                                                          'case
                                                          "bad clause"
                                                          #{x\ 2728}#
                                                          #{clause\ 2738}#))
                                                      #{tmp\ 2755}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 2755}#
                                                   '(each-any
                                                      any
                                                      .
                                                      each-any))))
                                              #{clause\ 2738}#))
                                           #{tmp\ 2753}#))
                                        (#{f\ 2737}#
                                          (car #{clauses\ 2739}#)
                                          (cdr #{clauses\ 2739}#)))))))
                          (#{f\ 2737}# #{m1\ 2733}# #{m2\ 2734}#))))
                     #{tmp\ 2730}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2729}#)))
          ($sc-dispatch
            #{tmp\ 2729}#
            '(any any any . each-any))))
       #{x\ 2728}#))))

(define identifier-syntax
  (make-syncase-macro
    'macro
    (lambda (#{x\ 2763}#)
      ((lambda (#{tmp\ 2764}#)
         ((lambda (#{tmp\ 2765}#)
            (if #{tmp\ 2765}#
              (apply (lambda (#{_\ 2766}# #{e\ 2767}#)
                       (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))
                                               #{e\ 2767}#))
                                   (list (cons #{_\ 2766}#
                                               '(#(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 #{e\ 2767}#
                                                     '(#(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)))))))))
                     #{tmp\ 2765}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 2764}#)))
          ($sc-dispatch #{tmp\ 2764}# (quote (any any)))))
       #{x\ 2763}#))))