summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax-pp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r--module/ice-9/psyntax-pp.scm12150
1 files changed, 12150 insertions, 0 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
new file mode 100644
index 000000000..fecd2b25d
--- /dev/null
+++ b/module/ice-9/psyntax-pp.scm
@@ -0,0 +1,12150 @@
+(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}#))))
+