summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-06-30 13:48:43 +0200
committerAndy Wingo <wingo@pobox.com>2011-06-30 13:48:43 +0200
commit26c81c7f405c545ffe9d2dab59349d9aba146348 (patch)
treec83e767664f9168f4b95362040880fc8c97e975d
parent8a562c697bcee569e8004ee1d8a902b3e5acd946 (diff)
parent04b04af85a331b2cb73d8807b9aa67e2f9c0f34d (diff)
downloadguile-26c81c7f405c545ffe9d2dab59349d9aba146348.tar.gz
Merge remote-tracking branch 'origin/lexical-literals'
Conflicts: module/ice-9/psyntax-pp.scm
-rw-r--r--module/ice-9/psyntax-pp.scm12442
-rw-r--r--module/ice-9/psyntax.scm53
-rw-r--r--module/oop/goops.scm1
3 files changed, 5398 insertions, 7098 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index edaa15435..40734cf9f 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -882,2568 +882,840 @@
#{id 1352}#))))))
(#{free-id=? 399}#
(lambda (#{i 1465}# #{j 1466}#)
- (if (eq? (let ((#{x 1472}# #{i 1465}#))
- (if (#{syntax-object? 309}# #{x 1472}#)
- (#{syntax-object-expression 311}# #{x 1472}#)
- #{x 1472}#))
- (let ((#{x 1475}# #{j 1466}#))
- (if (#{syntax-object? 309}# #{x 1475}#)
- (#{syntax-object-expression 311}# #{x 1475}#)
- #{x 1475}#)))
- (eq? (#{id-var-name 397}# #{i 1465}# '(()))
- (#{id-var-name 397}# #{j 1466}# '(())))
- #f)))
+ (let ((#{ni 1471}#
+ (#{id-var-name 397}# #{i 1465}# '(())))
+ (#{nj 1472}#
+ (#{id-var-name 397}# #{j 1466}# '(()))))
+ (letrec*
+ ((#{id-module-binding 1476}#
+ (lambda (#{id 1477}#)
+ (let ((#{mod 1480}#
+ (if (#{syntax-object? 309}# #{id 1477}#)
+ (#{syntax-object-module 315}# #{id 1477}#)
+ #f)))
+ (module-variable
+ (if #{mod 1480}#
+ (resolve-module (cdr #{mod 1480}#))
+ (current-module))
+ (let ((#{x 1485}# #{id 1477}#))
+ (if (#{syntax-object? 309}# #{x 1485}#)
+ (#{syntax-object-expression 311}# #{x 1485}#)
+ #{x 1485}#)))))))
+ (if (eq? #{ni 1471}#
+ (let ((#{x 1488}# #{i 1465}#))
+ (if (#{syntax-object? 309}# #{x 1488}#)
+ (#{syntax-object-expression 311}# #{x 1488}#)
+ #{x 1488}#)))
+ (if (eq? #{nj 1472}#
+ (let ((#{x 1492}# #{j 1466}#))
+ (if (#{syntax-object? 309}# #{x 1492}#)
+ (#{syntax-object-expression 311}# #{x 1492}#)
+ #{x 1492}#)))
+ (if (let ((#{bi 1495}#
+ (#{id-module-binding 1476}# #{i 1465}#)))
+ (if #{bi 1495}#
+ (eq? #{bi 1495}#
+ (#{id-module-binding 1476}# #{j 1466}#))
+ (if (not (#{id-module-binding 1476}# #{j 1466}#))
+ (eq? #{ni 1471}# #{nj 1472}#)
+ #f)))
+ (eq? (#{id-module-binding 1476}# #{i 1465}#)
+ (#{id-module-binding 1476}# #{j 1466}#))
+ #f)
+ #f)
+ (if (eq? #{ni 1471}# #{nj 1472}#)
+ (not (eq? #{nj 1472}#
+ (let ((#{x 1503}# #{j 1466}#))
+ (if (#{syntax-object? 309}# #{x 1503}#)
+ (#{syntax-object-expression 311}# #{x 1503}#)
+ #{x 1503}#))))
+ #f))))))
(#{bound-id=? 401}#
- (lambda (#{i 1479}# #{j 1480}#)
- (if (if (#{syntax-object? 309}# #{i 1479}#)
- (#{syntax-object? 309}# #{j 1480}#)
+ (lambda (#{i 1504}# #{j 1505}#)
+ (if (if (#{syntax-object? 309}# #{i 1504}#)
+ (#{syntax-object? 309}# #{j 1505}#)
#f)
- (if (eq? (#{syntax-object-expression 311}# #{i 1479}#)
- (#{syntax-object-expression 311}# #{j 1480}#))
+ (if (eq? (#{syntax-object-expression 311}# #{i 1504}#)
+ (#{syntax-object-expression 311}# #{j 1505}#))
(#{same-marks? 395}#
- (car (#{syntax-object-wrap 313}# #{i 1479}#))
- (car (#{syntax-object-wrap 313}# #{j 1480}#)))
+ (car (#{syntax-object-wrap 313}# #{i 1504}#))
+ (car (#{syntax-object-wrap 313}# #{j 1505}#)))
#f)
- (eq? #{i 1479}# #{j 1480}#))))
+ (eq? #{i 1504}# #{j 1505}#))))
(#{valid-bound-ids? 403}#
- (lambda (#{ids 1489}#)
+ (lambda (#{ids 1514}#)
(if (letrec*
- ((#{all-ids? 1494}#
- (lambda (#{ids 1495}#)
- (let ((#{t 1498}# (null? #{ids 1495}#)))
- (if #{t 1498}#
- #{t 1498}#
- (if (#{id? 343}# (car #{ids 1495}#))
- (#{all-ids? 1494}# (cdr #{ids 1495}#))
+ ((#{all-ids? 1519}#
+ (lambda (#{ids 1520}#)
+ (let ((#{t 1523}# (null? #{ids 1520}#)))
+ (if #{t 1523}#
+ #{t 1523}#
+ (if (#{id? 343}# (car #{ids 1520}#))
+ (#{all-ids? 1519}# (cdr #{ids 1520}#))
#f))))))
- (#{all-ids? 1494}# #{ids 1489}#))
- (#{distinct-bound-ids? 405}# #{ids 1489}#)
+ (#{all-ids? 1519}# #{ids 1514}#))
+ (#{distinct-bound-ids? 405}# #{ids 1514}#)
#f)))
(#{distinct-bound-ids? 405}#
- (lambda (#{ids 1503}#)
+ (lambda (#{ids 1528}#)
(letrec*
- ((#{distinct? 1507}#
- (lambda (#{ids 1508}#)
- (let ((#{t 1511}# (null? #{ids 1508}#)))
- (if #{t 1511}#
- #{t 1511}#
+ ((#{distinct? 1532}#
+ (lambda (#{ids 1533}#)
+ (let ((#{t 1536}# (null? #{ids 1533}#)))
+ (if #{t 1536}#
+ #{t 1536}#
(if (not (#{bound-id-member? 407}#
- (car #{ids 1508}#)
- (cdr #{ids 1508}#)))
- (#{distinct? 1507}# (cdr #{ids 1508}#))
+ (car #{ids 1533}#)
+ (cdr #{ids 1533}#)))
+ (#{distinct? 1532}# (cdr #{ids 1533}#))
#f))))))
- (#{distinct? 1507}# #{ids 1503}#))))
+ (#{distinct? 1532}# #{ids 1528}#))))
(#{bound-id-member? 407}#
- (lambda (#{x 1515}# #{list 1516}#)
- (if (not (null? #{list 1516}#))
- (let ((#{t 1523}#
+ (lambda (#{x 1540}# #{list 1541}#)
+ (if (not (null? #{list 1541}#))
+ (let ((#{t 1548}#
(#{bound-id=? 401}#
- #{x 1515}#
- (car #{list 1516}#))))
- (if #{t 1523}#
- #{t 1523}#
+ #{x 1540}#
+ (car #{list 1541}#))))
+ (if #{t 1548}#
+ #{t 1548}#
(#{bound-id-member? 407}#
- #{x 1515}#
- (cdr #{list 1516}#))))
+ #{x 1540}#
+ (cdr #{list 1541}#))))
#f)))
(#{wrap 409}#
- (lambda (#{x 1525}# #{w 1526}# #{defmod 1527}#)
- (if (if (null? (car #{w 1526}#))
- (null? (cdr #{w 1526}#))
+ (lambda (#{x 1550}# #{w 1551}# #{defmod 1552}#)
+ (if (if (null? (car #{w 1551}#))
+ (null? (cdr #{w 1551}#))
#f)
- #{x 1525}#
- (if (#{syntax-object? 309}# #{x 1525}#)
+ #{x 1550}#
+ (if (#{syntax-object? 309}# #{x 1550}#)
(#{make-syntax-object 307}#
- (#{syntax-object-expression 311}# #{x 1525}#)
+ (#{syntax-object-expression 311}# #{x 1550}#)
(#{join-wraps 391}#
- #{w 1526}#
- (#{syntax-object-wrap 313}# #{x 1525}#))
- (#{syntax-object-module 315}# #{x 1525}#))
- (if (null? #{x 1525}#)
- #{x 1525}#
+ #{w 1551}#
+ (#{syntax-object-wrap 313}# #{x 1550}#))
+ (#{syntax-object-module 315}# #{x 1550}#))
+ (if (null? #{x 1550}#)
+ #{x 1550}#
(#{make-syntax-object 307}#
- #{x 1525}#
- #{w 1526}#
- #{defmod 1527}#))))))
+ #{x 1550}#
+ #{w 1551}#
+ #{defmod 1552}#))))))
(#{source-wrap 411}#
- (lambda (#{x 1542}#
- #{w 1543}#
- #{s 1544}#
- #{defmod 1545}#)
+ (lambda (#{x 1567}#
+ #{w 1568}#
+ #{s 1569}#
+ #{defmod 1570}#)
(#{wrap 409}#
- (#{decorate-source 261}# #{x 1542}# #{s 1544}#)
- #{w 1543}#
- #{defmod 1545}#)))
+ (#{decorate-source 261}# #{x 1567}# #{s 1569}#)
+ #{w 1568}#
+ #{defmod 1570}#)))
(#{chi-sequence 413}#
- (lambda (#{body 1550}#
- #{r 1551}#
- #{w 1552}#
- #{s 1553}#
- #{mod 1554}#)
+ (lambda (#{body 1575}#
+ #{r 1576}#
+ #{w 1577}#
+ #{s 1578}#
+ #{mod 1579}#)
(#{build-sequence 297}#
- #{s 1553}#
+ #{s 1578}#
(letrec*
- ((#{dobody 1565}#
- (lambda (#{body 1566}#
- #{r 1567}#
- #{w 1568}#
- #{mod 1569}#)
- (if (null? #{body 1566}#)
+ ((#{dobody 1590}#
+ (lambda (#{body 1591}#
+ #{r 1592}#
+ #{w 1593}#
+ #{mod 1594}#)
+ (if (null? #{body 1591}#)
'()
- (let ((#{first 1571}#
+ (let ((#{first 1596}#
(#{chi 423}#
- (car #{body 1566}#)
- #{r 1567}#
- #{w 1568}#
- #{mod 1569}#)))
- (cons #{first 1571}#
- (#{dobody 1565}#
- (cdr #{body 1566}#)
- #{r 1567}#
- #{w 1568}#
- #{mod 1569}#)))))))
- (#{dobody 1565}#
- #{body 1550}#
- #{r 1551}#
- #{w 1552}#
- #{mod 1554}#)))))
+ (car #{body 1591}#)
+ #{r 1592}#
+ #{w 1593}#
+ #{mod 1594}#)))
+ (cons #{first 1596}#
+ (#{dobody 1590}#
+ (cdr #{body 1591}#)
+ #{r 1592}#
+ #{w 1593}#
+ #{mod 1594}#)))))))
+ (#{dobody 1590}#
+ #{body 1575}#
+ #{r 1576}#
+ #{w 1577}#
+ #{mod 1579}#)))))
(#{chi-top-sequence 415}#
- (lambda (#{body 1572}#
- #{r 1573}#
- #{w 1574}#
- #{s 1575}#
- #{m 1576}#
- #{esew 1577}#
- #{mod 1578}#)
+ (lambda (#{body 1597}#
+ #{r 1598}#
+ #{w 1599}#
+ #{s 1600}#
+ #{m 1601}#
+ #{esew 1602}#
+ #{mod 1603}#)
(letrec*
- ((#{scan 1587}#
- (lambda (#{body 1588}#
- #{r 1589}#
- #{w 1590}#
- #{s 1591}#
- #{m 1592}#
- #{esew 1593}#
- #{mod 1594}#
- #{exps 1595}#)
- (if (null? #{body 1588}#)
- #{exps 1595}#
+ ((#{scan 1612}#
+ (lambda (#{body 1613}#
+ #{r 1614}#
+ #{w 1615}#
+ #{s 1616}#
+ #{m 1617}#
+ #{esew 1618}#
+ #{mod 1619}#
+ #{exps 1620}#)
+ (if (null? #{body 1613}#)
+ #{exps 1620}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 1608}# (car #{body 1588}#)))
+ (let ((#{e 1633}# (car #{body 1613}#)))
(#{syntax-type 421}#
- #{e 1608}#
- #{r 1589}#
- #{w 1590}#
- (let ((#{t 1611}#
- (#{source-annotation 324}# #{e 1608}#)))
- (if #{t 1611}# #{t 1611}# #{s 1591}#))
+ #{e 1633}#
+ #{r 1614}#
+ #{w 1615}#
+ (let ((#{t 1636}#
+ (#{source-annotation 324}# #{e 1633}#)))
+ (if #{t 1636}# #{t 1636}# #{s 1616}#))
#f
- #{mod 1594}#
+ #{mod 1619}#
#f)))
- (lambda (#{type 1613}#
- #{value 1614}#
- #{e 1615}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#)
- (if (memv #{type 1613}# '(begin-form))
- (let ((#{tmp 1626}# #{e 1615}#))
- (let ((#{tmp 1627}#
- ($sc-dispatch #{tmp 1626}# '(_))))
- (if #{tmp 1627}#
- (@apply (lambda () #{exps 1595}#) #{tmp 1627}#)
- (let ((#{tmp 1628}#
+ (lambda (#{type 1638}#
+ #{value 1639}#
+ #{e 1640}#
+ #{w 1641}#
+ #{s 1642}#
+ #{mod 1643}#)
+ (if (memv #{type 1638}# '(begin-form))
+ (let ((#{tmp 1651}# #{e 1640}#))
+ (let ((#{tmp 1652}#
+ ($sc-dispatch #{tmp 1651}# '(_))))
+ (if #{tmp 1652}#
+ (@apply (lambda () #{exps 1620}#) #{tmp 1652}#)
+ (let ((#{tmp 1653}#
($sc-dispatch
- #{tmp 1626}#
+ #{tmp 1651}#
'(_ any . each-any))))
- (if #{tmp 1628}#
+ (if #{tmp 1653}#
(@apply
- (lambda (#{e1 1631}# #{e2 1632}#)
- (#{scan 1587}#
- (cons #{e1 1631}# #{e2 1632}#)
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{m 1592}#
- #{esew 1593}#
- #{mod 1618}#
- #{exps 1595}#))
- #{tmp 1628}#)
+ (lambda (#{e1 1656}# #{e2 1657}#)
+ (#{scan 1612}#
+ (cons #{e1 1656}# #{e2 1657}#)
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
+ #{m 1617}#
+ #{esew 1618}#
+ #{mod 1643}#
+ #{exps 1620}#))
+ #{tmp 1653}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1626}#))))))
- (if (memv #{type 1613}# '(local-syntax-form))
+ #{tmp 1651}#))))))
+ (if (memv #{type 1638}# '(local-syntax-form))
(#{chi-local-syntax 433}#
- #{value 1614}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#
- (lambda (#{body 1635}#
- #{r 1636}#
- #{w 1637}#
- #{s 1638}#
- #{mod 1639}#)
- (#{scan 1587}#
- #{body 1635}#
- #{r 1636}#
- #{w 1637}#
- #{s 1638}#
- #{m 1592}#
- #{esew 1593}#
- #{mod 1639}#
- #{exps 1595}#)))
- (if (memv #{type 1613}# '(eval-when-form))
- (let ((#{tmp 1646}# #{e 1615}#))
- (let ((#{tmp 1647}#
+ #{value 1639}#
+ #{e 1640}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
+ #{mod 1643}#
+ (lambda (#{body 1660}#
+ #{r 1661}#
+ #{w 1662}#
+ #{s 1663}#
+ #{mod 1664}#)
+ (#{scan 1612}#
+ #{body 1660}#
+ #{r 1661}#
+ #{w 1662}#
+ #{s 1663}#
+ #{m 1617}#
+ #{esew 1618}#
+ #{mod 1664}#
+ #{exps 1620}#)))
+ (if (memv #{type 1638}# '(eval-when-form))
+ (let ((#{tmp 1671}# #{e 1640}#))
+ (let ((#{tmp 1672}#
($sc-dispatch
- #{tmp 1646}#
+ #{tmp 1671}#
'(_ each-any any . each-any))))
- (if #{tmp 1647}#
+ (if #{tmp 1672}#
(@apply
- (lambda (#{x 1651}#
- #{e1 1652}#
- #{e2 1653}#)
- (let ((#{when-list 1656}#
+ (lambda (#{x 1676}#
+ #{e1 1677}#
+ #{e2 1678}#)
+ (let ((#{when-list 1681}#
(#{chi-when-list 419}#
- #{e 1615}#
- #{x 1651}#
- #{w 1616}#))
- (#{body 1657}#
- (cons #{e1 1652}#
- #{e2 1653}#)))
- (if (eq? #{m 1592}# 'e)
- (if (memq 'eval #{when-list 1656}#)
- (#{scan 1587}#
- #{body 1657}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
+ #{e 1640}#
+ #{x 1676}#
+ #{w 1641}#))
+ (#{body 1682}#
+ (cons #{e1 1677}#
+ #{e2 1678}#)))
+ (if (eq? #{m 1617}# 'e)
+ (if (memq 'eval #{when-list 1681}#)
+ (#{scan 1612}#
+ #{body 1682}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
(if (memq 'expand
- #{when-list 1656}#)
+ #{when-list 1681}#)
'c&e
'e)
'(eval)
- #{mod 1618}#
- #{exps 1595}#)
+ #{mod 1643}#
+ #{exps 1620}#)
(begin
(if (memq 'expand
- #{when-list 1656}#)
+ #{when-list 1681}#)
(#{top-level-eval-hook 252}#
(#{chi-top-sequence 415}#
- #{body 1657}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
+ #{body 1682}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
'e
'(eval)
- #{mod 1618}#)
- #{mod 1618}#))
- (values #{exps 1595}#)))
- (if (memq 'load #{when-list 1656}#)
- (if (let ((#{t 1666}#
+ #{mod 1643}#)
+ #{mod 1643}#))
+ (values #{exps 1620}#)))
+ (if (memq 'load #{when-list 1681}#)
+ (if (let ((#{t 1691}#
(memq 'compile
- #{when-list 1656}#)))
- (if #{t 1666}#
- #{t 1666}#
- (let ((#{t 1669}#
+ #{when-list 1681}#)))
+ (if #{t 1691}#
+ #{t 1691}#
+ (let ((#{t 1694}#
(memq 'expand
- #{when-list 1656}#)))
- (if #{t 1669}#
- #{t 1669}#
- (if (eq? #{m 1592}#
+ #{when-list 1681}#)))
+ (if #{t 1694}#
+ #{t 1694}#
+ (if (eq? #{m 1617}#
'c&e)
(memq 'eval
- #{when-list 1656}#)
+ #{when-list 1681}#)
#f)))))
- (#{scan 1587}#
- #{body 1657}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
+ (#{scan 1612}#
+ #{body 1682}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
'c&e
'(compile load)
- #{mod 1618}#
- #{exps 1595}#)
- (if (memq #{m 1592}# '(c c&e))
- (#{scan 1587}#
- #{body 1657}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
+ #{mod 1643}#
+ #{exps 1620}#)
+ (if (memq #{m 1617}# '(c c&e))
+ (#{scan 1612}#
+ #{body 1682}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
'c
'(load)
- #{mod 1618}#
- #{exps 1595}#)
- (values #{exps 1595}#)))
- (if (let ((#{t 1677}#
+ #{mod 1643}#
+ #{exps 1620}#)
+ (values #{exps 1620}#)))
+ (if (let ((#{t 1702}#
(memq 'compile
- #{when-list 1656}#)))
- (if #{t 1677}#
- #{t 1677}#
- (let ((#{t 1680}#
+ #{when-list 1681}#)))
+ (if #{t 1702}#
+ #{t 1702}#
+ (let ((#{t 1705}#
(memq 'expand
- #{when-list 1656}#)))
- (if #{t 1680}#
- #{t 1680}#
- (if (eq? #{m 1592}#
+ #{when-list 1681}#)))
+ (if #{t 1705}#
+ #{t 1705}#
+ (if (eq? #{m 1617}#
'c&e)
(memq 'eval
- #{when-list 1656}#)
+ #{when-list 1681}#)
#f)))))
(begin
(#{top-level-eval-hook 252}#
(#{chi-top-sequence 415}#
- #{body 1657}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
+ #{body 1682}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
'e
'(eval)
- #{mod 1618}#)
- #{mod 1618}#)
- (values #{exps 1595}#))
- (values #{exps 1595}#))))))
- #{tmp 1647}#)
+ #{mod 1643}#)
+ #{mod 1643}#)
+ (values #{exps 1620}#))
+ (values #{exps 1620}#))))))
+ #{tmp 1672}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1646}#))))
- (if (memv #{type 1613}# '(define-syntax-form))
- (let ((#{n 1688}#
+ #{tmp 1671}#))))
+ (if (memv #{type 1638}# '(define-syntax-form))
+ (let ((#{n 1713}#
(#{id-var-name 397}#
- #{value 1614}#
- #{w 1616}#))
- (#{r 1689}#
- (#{macros-only-env 335}# #{r 1589}#)))
- (if (memv #{m 1592}# '(c))
- (if (memq 'compile #{esew 1593}#)
- (let ((#{e 1692}#
+ #{value 1639}#
+ #{w 1641}#))
+ (#{r 1714}#
+ (#{macros-only-env 335}# #{r 1614}#)))
+ (if (memv #{m 1617}# '(c))
+ (if (memq 'compile #{esew 1618}#)
+ (let ((#{e 1717}#
(#{chi-install-global 417}#
- #{n 1688}#
+ #{n 1713}#
(#{chi 423}#
- #{e 1615}#
- #{r 1689}#
- #{w 1616}#
- #{mod 1618}#))))
+ #{e 1640}#
+ #{r 1714}#
+ #{w 1641}#
+ #{mod 1643}#))))
(begin
(#{top-level-eval-hook 252}#
- #{e 1692}#
- #{mod 1618}#)
- (if (memq 'load #{esew 1593}#)
+ #{e 1717}#
+ #{mod 1643}#)
+ (if (memq 'load #{esew 1618}#)
(values
- (cons #{e 1692}# #{exps 1595}#))
- (values #{exps 1595}#))))
- (if (memq 'load #{esew 1593}#)
+ (cons #{e 1717}# #{exps 1620}#))
+ (values #{exps 1620}#))))
+ (if (memq 'load #{esew 1618}#)
(values
(cons (#{chi-install-global 417}#
- #{n 1688}#
+ #{n 1713}#
(#{chi 423}#
- #{e 1615}#
- #{r 1689}#
- #{w 1616}#
- #{mod 1618}#))
- #{exps 1595}#))
- (values #{exps 1595}#)))
- (if (memv #{m 1592}# '(c&e))
- (let ((#{e 1695}#
+ #{e 1640}#
+ #{r 1714}#
+ #{w 1641}#
+ #{mod 1643}#))
+ #{exps 1620}#))
+ (values #{exps 1620}#)))
+ (if (memv #{m 1617}# '(c&e))
+ (let ((#{e 1720}#
(#{chi-install-global 417}#
- #{n 1688}#
+ #{n 1713}#
(#{chi 423}#
- #{e 1615}#
- #{r 1689}#
- #{w 1616}#
- #{mod 1618}#))))
+ #{e 1640}#
+ #{r 1714}#
+ #{w 1641}#
+ #{mod 1643}#))))
(begin
(#{top-level-eval-hook 252}#
- #{e 1695}#
- #{mod 1618}#)
+ #{e 1720}#
+ #{mod 1643}#)
(values
- (cons #{e 1695}# #{exps 1595}#))))
+ (cons #{e 1720}# #{exps 1620}#))))
(begin
- (if (memq 'eval #{esew 1593}#)
+ (if (memq 'eval #{esew 1618}#)
(#{top-level-eval-hook 252}#
(#{chi-install-global 417}#
- #{n 1688}#
+ #{n 1713}#
(#{chi 423}#
- #{e 1615}#
- #{r 1689}#
- #{w 1616}#
- #{mod 1618}#))
- #{mod 1618}#))
- (values #{exps 1595}#)))))
- (if (memv #{type 1613}# '(define-form))
- (let ((#{n 1700}#
+ #{e 1640}#
+ #{r 1714}#
+ #{w 1641}#
+ #{mod 1643}#))
+ #{mod 1643}#))
+ (values #{exps 1620}#)))))
+ (if (memv #{type 1638}# '(define-form))
+ (let ((#{n 1725}#
(#{id-var-name 397}#
- #{value 1614}#
- #{w 1616}#)))
- (let ((#{type 1702}#
+ #{value 1639}#
+ #{w 1641}#)))
+ (let ((#{type 1727}#
(car (#{lookup 337}#
- #{n 1700}#
- #{r 1589}#
- #{mod 1618}#))))
- (if (memv #{type 1702}#
+ #{n 1725}#
+ #{r 1614}#
+ #{mod 1643}#))))
+ (if (memv #{type 1727}#
'(global
core
macro
module-ref))
(begin
- (if (if (memq #{m 1592}# '(c c&e))
+ (if (if (memq #{m 1617}# '(c c&e))
(if (not (module-local-variable
(current-module)
- #{n 1700}#))
+ #{n 1725}#))
(current-module)
#f)
#f)
- (let ((#{old 1709}#
+ (let ((#{old 1734}#
(module-variable
(current-module)
- #{n 1700}#)))
- (if (if (variable? #{old 1709}#)
+ #{n 1725}#)))
+ (if (if (variable? #{old 1734}#)
(variable-bound?
- #{old 1709}#)
+ #{old 1734}#)
#f)
(module-define!
(current-module)
- #{n 1700}#
- (variable-ref #{old 1709}#))
+ #{n 1725}#
+ (variable-ref #{old 1734}#))
(module-add!
(current-module)
- #{n 1700}#
+ #{n 1725}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 1592}# 'c&e)
- (let ((#{x 1713}#
+ (cons (if (eq? #{m 1617}# 'c&e)
+ (let ((#{x 1738}#
(#{build-global-definition 283}#
- #{s 1617}#
- #{n 1700}#
+ #{s 1642}#
+ #{n 1725}#
(#{chi 423}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{mod 1618}#))))
+ #{e 1640}#
+ #{r 1614}#
+ #{w 1641}#
+ #{mod 1643}#))))
(begin
(#{top-level-eval-hook 252}#
- #{x 1713}#
- #{mod 1618}#)
- #{x 1713}#))
+ #{x 1738}#
+ #{mod 1643}#)
+ #{x 1738}#))
(lambda ()
(#{build-global-definition 283}#
- #{s 1617}#
- #{n 1700}#
+ #{s 1642}#
+ #{n 1725}#
(#{chi 423}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{mod 1618}#))))
- #{exps 1595}#)))
- (if (memv #{type 1702}#
+ #{e 1640}#
+ #{r 1614}#
+ #{w 1641}#
+ #{mod 1643}#))))
+ #{exps 1620}#)))
+ (if (memv #{type 1727}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 1615}#
+ #{e 1640}#
(#{wrap 409}#
- #{value 1614}#
- #{w 1616}#
- #{mod 1618}#))
+ #{value 1639}#
+ #{w 1641}#
+ #{mod 1643}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e 1615}#
+ #{e 1640}#
(#{wrap 409}#
- #{value 1614}#
- #{w 1616}#
- #{mod 1618}#))))))
+ #{value 1639}#
+ #{w 1641}#
+ #{mod 1643}#))))))
(values
- (cons (if (eq? #{m 1592}# 'c&e)
- (let ((#{x 1718}#
+ (cons (if (eq? #{m 1617}# 'c&e)
+ (let ((#{x 1743}#
(#{chi-expr 425}#
- #{type 1613}#
- #{value 1614}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#)))
+ #{type 1638}#
+ #{value 1639}#
+ #{e 1640}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
+ #{mod 1643}#)))
(begin
(#{top-level-eval-hook 252}#
- #{x 1718}#
- #{mod 1618}#)
- #{x 1718}#))
+ #{x 1743}#
+ #{mod 1643}#)
+ #{x 1743}#))
(lambda ()
(#{chi-expr 425}#
- #{type 1613}#
- #{value 1614}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#)))
- #{exps 1595}#))))))))))
- (lambda (#{exps 1719}#)
- (#{scan 1587}#
- (cdr #{body 1588}#)
- #{r 1589}#
- #{w 1590}#
- #{s 1591}#
- #{m 1592}#
- #{esew 1593}#
- #{mod 1594}#
- #{exps 1719}#)))))))
+ #{type 1638}#
+ #{value 1639}#
+ #{e 1640}#
+ #{r 1614}#
+ #{w 1641}#
+ #{s 1642}#
+ #{mod 1643}#)))
+ #{exps 1620}#))))))))))
+ (lambda (#{exps 1744}#)
+ (#{scan 1612}#
+ (cdr #{body 1613}#)
+ #{r 1614}#
+ #{w 1615}#
+ #{s 1616}#
+ #{m 1617}#
+ #{esew 1618}#
+ #{mod 1619}#
+ #{exps 1744}#)))))))
(call-with-values
(lambda ()
- (#{scan 1587}#
- #{body 1572}#
- #{r 1573}#
- #{w 1574}#
- #{s 1575}#
- #{m 1576}#
- #{esew 1577}#
- #{mod 1578}#
+ (#{scan 1612}#
+ #{body 1597}#
+ #{r 1598}#
+ #{w 1599}#
+ #{s 1600}#
+ #{m 1601}#
+ #{esew 1602}#
+ #{mod 1603}#
'()))
- (lambda (#{exps 1721}#)
- (if (null? #{exps 1721}#)
- (#{build-void 265}# #{s 1575}#)
+ (lambda (#{exps 1746}#)
+ (if (null? #{exps 1746}#)
+ (#{build-void 265}# #{s 1600}#)
(#{build-sequence 297}#
- #{s 1575}#
+ #{s 1600}#
(letrec*
- ((#{lp 1726}#
- (lambda (#{in 1727}# #{out 1728}#)
- (if (null? #{in 1727}#)
- #{out 1728}#
- (let ((#{e 1730}# (car #{in 1727}#)))
- (#{lp 1726}#
- (cdr #{in 1727}#)
- (cons (if (procedure? #{e 1730}#)
- (#{e 1730}#)
- #{e 1730}#)
- #{out 1728}#)))))))
- (#{lp 1726}# #{exps 1721}# '())))))))))
+ ((#{lp 1751}#
+ (lambda (#{in 1752}# #{out 1753}#)
+ (if (null? #{in 1752}#)
+ #{out 1753}#
+ (let ((#{e 1755}# (car #{in 1752}#)))
+ (#{lp 1751}#
+ (cdr #{in 1752}#)
+ (cons (if (procedure? #{e 1755}#)
+ (#{e 1755}#)
+ #{e 1755}#)
+ #{out 1753}#)))))))
+ (#{lp 1751}# #{exps 1746}# '())))))))))
(#{chi-install-global 417}#
- (lambda (#{name 1731}# #{e 1732}#)
+ (lambda (#{name 1756}# #{e 1757}#)
(#{build-global-definition 283}#
#f
- #{name 1731}#
+ #{name 1756}#
(#{build-primcall 291}#
#f
'make-syntax-transformer
- (list (#{build-data 295}# #f #{name 1731}#)
+ (list (#{build-data 295}# #f #{name 1756}#)
(#{build-data 295}# #f 'macro)
- #{e 1732}#)))))
+ #{e 1757}#)))))
(#{chi-when-list 419}#
- (lambda (#{e 1739}# #{when-list 1740}# #{w 1741}#)
+ (lambda (#{e 1764}# #{when-list 1765}# #{w 1766}#)
(letrec*
- ((#{f 1748}#
- (lambda (#{when-list 1749}# #{situations 1750}#)
- (if (null? #{when-list 1749}#)
- #{situations 1750}#
- (#{f 1748}#
- (cdr #{when-list 1749}#)
- (cons (let ((#{x 1752}# (car #{when-list 1749}#)))
- (if (#{free-id=? 399}#
- #{x 1752}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1751"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1742" "i1743" "i1744"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-call
- chi-expr
- chi
- 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-primcall
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-call
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-seq
- make-primcall
- make-call
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i383"
- "i382"
- "i380"
- "i379"
- "i378"
- "i377"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i357"
- "i355"
- "i354"
- "i353"
- "i352"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i329"
- "i328"
- "i327"
- "i326"
- "i325"
- "i323"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i255"
- "i253"
- "i251"
- "i250"
- "i249"
- "i248"
- "i247"
- "i245"
- "i243"
- "i241"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- 'compile
- (if (#{free-id=? 399}#
- #{x 1752}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1751"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1742" "i1743" "i1744"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-call
- chi-expr
- chi
- 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-primcall
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-call
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-seq
- make-primcall
- make-call
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i383"
- "i382"
- "i380"
- "i379"
- "i378"
- "i377"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i357"
- "i355"
- "i354"
- "i353"
- "i352"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i329"
- "i328"
- "i327"
- "i326"
- "i325"
- "i323"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i255"
- "i253"
- "i251"
- "i250"
- "i249"
- "i248"
- "i247"
- "i245"
- "i243"
- "i241"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- 'load
- (if (#{free-id=? 399}#
- #{x 1752}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1751"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1742" "i1743" "i1744"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-call
- chi-expr
- chi
- 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-primcall
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-call
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-seq
- make-primcall
- make-call
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i383"
- "i382"
- "i380"
- "i379"
- "i378"
- "i377"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i357"
- "i355"
- "i354"
- "i353"
- "i352"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i329"
- "i328"
- "i327"
- "i326"
- "i325"
- "i323"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i255"
- "i253"
- "i251"
- "i250"
- "i249"
- "i248"
- "i247"
- "i245"
- "i243"
- "i241"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- 'eval
- (if (#{free-id=? 399}#
- #{x 1752}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1751"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1742" "i1743" "i1744"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-call
- chi-expr
- chi
- 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-primcall
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-call
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-seq
- make-primcall
- make-call
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i383"
- "i382"
- "i380"
- "i379"
- "i378"
- "i377"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i357"
- "i355"
- "i354"
- "i353"
- "i352"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i329"
- "i328"
- "i327"
- "i326"
- "i325"
- "i323"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i255"
- "i253"
- "i251"
- "i250"
- "i249"
- "i248"
- "i247"
- "i245"
- "i243"
- "i241"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 1739}#
- (#{wrap 409}#
- #{x 1752}#
- #{w 1741}#
- #f)))))))
- #{situations 1750}#))))))
- (#{f 1748}# #{when-list 1740}# '()))))
+ ((#{f 1773}#
+ (lambda (#{when-list 1774}# #{situations 1775}#)
+ (if (null? #{when-list 1774}#)
+ #{situations 1775}#
+ (#{f 1773}#
+ (cdr #{when-list 1774}#)
+ (cons (let ((#{x 1777}#
+ (syntax->datum (car #{when-list 1774}#))))
+ (if (memq #{x 1777}# '(compile load eval expand))
+ #{x 1777}#
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 1764}#
+ (#{wrap 409}#
+ (car #{when-list 1774}#)
+ #{w 1766}#
+ #f))))
+ #{situations 1775}#))))))
+ (#{f 1773}# #{when-list 1765}# '()))))
(#{syntax-type 421}#
- (lambda (#{e 1762}#
- #{r 1763}#
- #{w 1764}#
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#
- #{for-car? 1768}#)
- (if (symbol? #{e 1762}#)
- (let ((#{n 1780}#
- (#{id-var-name 397}# #{e 1762}# #{w 1764}#)))
- (let ((#{b 1782}#
+ (lambda (#{e 1778}#
+ #{r 1779}#
+ #{w 1780}#
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#
+ #{for-car? 1784}#)
+ (if (symbol? #{e 1778}#)
+ (let ((#{n 1796}#
+ (#{id-var-name 397}# #{e 1778}# #{w 1780}#)))
+ (let ((#{b 1798}#
(#{lookup 337}#
- #{n 1780}#
- #{r 1763}#
- #{mod 1767}#)))
- (let ((#{type 1784}# (car #{b 1782}#)))
- (if (memv #{type 1784}# '(lexical))
+ #{n 1796}#
+ #{r 1779}#
+ #{mod 1783}#)))
+ (let ((#{type 1800}# (car #{b 1798}#)))
+ (if (memv #{type 1800}# '(lexical))
(values
- #{type 1784}#
- (cdr #{b 1782}#)
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{type 1784}# '(global))
+ #{type 1800}#
+ (cdr #{b 1798}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{type 1800}# '(global))
(values
- #{type 1784}#
- #{n 1780}#
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{type 1784}# '(macro))
- (if #{for-car? 1768}#
+ #{type 1800}#
+ #{n 1796}#
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{type 1800}# '(macro))
+ (if #{for-car? 1784}#
(values
- #{type 1784}#
- (cdr #{b 1782}#)
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
+ #{type 1800}#
+ (cdr #{b 1798}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
(#{syntax-type 421}#
(#{chi-macro 429}#
- (cdr #{b 1782}#)
- #{e 1762}#
- #{r 1763}#
- #{w 1764}#
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#)
- #{r 1763}#
+ (cdr #{b 1798}#)
+ #{e 1778}#
+ #{r 1779}#
+ #{w 1780}#
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#)
+ #{r 1779}#
'(())
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#
#f))
(values
- #{type 1784}#
- (cdr #{b 1782}#)
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)))))))
- (if (pair? #{e 1762}#)
- (let ((#{first 1798}# (car #{e 1762}#)))
+ #{type 1800}#
+ (cdr #{b 1798}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)))))))
+ (if (pair? #{e 1778}#)
+ (let ((#{first 1814}# (car #{e 1778}#)))
(call-with-values
(lambda ()
(#{syntax-type 421}#
- #{first 1798}#
- #{r 1763}#
- #{w 1764}#
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#
+ #{first 1814}#
+ #{r 1779}#
+ #{w 1780}#
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#
#t))
- (lambda (#{ftype 1799}#
- #{fval 1800}#
- #{fe 1801}#
- #{fw 1802}#
- #{fs 1803}#
- #{fmod 1804}#)
- (if (memv #{ftype 1799}# '(lexical))
+ (lambda (#{ftype 1815}#
+ #{fval 1816}#
+ #{fe 1817}#
+ #{fw 1818}#
+ #{fs 1819}#
+ #{fmod 1820}#)
+ (if (memv #{ftype 1815}# '(lexical))
(values
'lexical-call
- #{fval 1800}#
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(global))
+ #{fval 1816}#
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(global))
(values
'global-call
(#{make-syntax-object 307}#
- #{fval 1800}#
- #{w 1764}#
- #{fmod 1804}#)
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(macro))
+ #{fval 1816}#
+ #{w 1780}#
+ #{fmod 1820}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(macro))
(#{syntax-type 421}#
(#{chi-macro 429}#
- #{fval 1800}#
- #{e 1762}#
- #{r 1763}#
- #{w 1764}#
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#)
- #{r 1763}#
+ #{fval 1816}#
+ #{e 1778}#
+ #{r 1779}#
+ #{w 1780}#
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#)
+ #{r 1779}#
'(())
- #{s 1765}#
- #{rib 1766}#
- #{mod 1767}#
- #{for-car? 1768}#)
- (if (memv #{ftype 1799}# '(module-ref))
+ #{s 1781}#
+ #{rib 1782}#
+ #{mod 1783}#
+ #{for-car? 1784}#)
+ (if (memv #{ftype 1815}# '(module-ref))
(call-with-values
(lambda ()
- (#{fval 1800}# #{e 1762}# #{r 1763}# #{w 1764}#))
- (lambda (#{e 1816}#
- #{r 1817}#
- #{w 1818}#
- #{s 1819}#
- #{mod 1820}#)
+ (#{fval 1816}# #{e 1778}# #{r 1779}# #{w 1780}#))
+ (lambda (#{e 1832}#
+ #{r 1833}#
+ #{w 1834}#
+ #{s 1835}#
+ #{mod 1836}#)
(#{syntax-type 421}#
- #{e 1816}#
- #{r 1817}#
- #{w 1818}#
- #{s 1819}#
- #{rib 1766}#
- #{mod 1820}#
- #{for-car? 1768}#)))
- (if (memv #{ftype 1799}# '(core))
+ #{e 1832}#
+ #{r 1833}#
+ #{w 1834}#
+ #{s 1835}#
+ #{rib 1782}#
+ #{mod 1836}#
+ #{for-car? 1784}#)))
+ (if (memv #{ftype 1815}# '(core))
(values
'core-form
- #{fval 1800}#
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(local-syntax))
+ #{fval 1816}#
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(local-syntax))
(values
'local-syntax-form
- #{fval 1800}#
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(begin))
+ #{fval 1816}#
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(begin))
(values
'begin-form
#f
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(eval-when))
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(eval-when))
(values
'eval-when-form
#f
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
- (if (memv #{ftype 1799}# '(define))
- (let ((#{tmp 1831}# #{e 1762}#))
- (let ((#{tmp 1832}#
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
+ (if (memv #{ftype 1815}# '(define))
+ (let ((#{tmp 1847}# #{e 1778}#))
+ (let ((#{tmp 1848}#
($sc-dispatch
- #{tmp 1831}#
+ #{tmp 1847}#
'(_ any any))))
- (if (if #{tmp 1832}#
+ (if (if #{tmp 1848}#
(@apply
- (lambda (#{name 1835}#
- #{val 1836}#)
- (#{id? 343}# #{name 1835}#))
- #{tmp 1832}#)
+ (lambda (#{name 1851}#
+ #{val 1852}#)
+ (#{id? 343}# #{name 1851}#))
+ #{tmp 1848}#)
#f)
(@apply
- (lambda (#{name 1839}# #{val 1840}#)
+ (lambda (#{name 1855}# #{val 1856}#)
(values
'define-form
- #{name 1839}#
- #{val 1840}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#))
- #{tmp 1832}#)
- (let ((#{tmp 1841}#
+ #{name 1855}#
+ #{val 1856}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#))
+ #{tmp 1848}#)
+ (let ((#{tmp 1857}#
($sc-dispatch
- #{tmp 1831}#
+ #{tmp 1847}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 1841}#
+ (if (if #{tmp 1857}#
(@apply
- (lambda (#{name 1846}#
- #{args 1847}#
- #{e1 1848}#
- #{e2 1849}#)
+ (lambda (#{name 1862}#
+ #{args 1863}#
+ #{e1 1864}#
+ #{e2 1865}#)
(if (#{id? 343}#
- #{name 1846}#)
+ #{name 1862}#)
(#{valid-bound-ids? 403}#
(#{lambda-var-list 453}#
- #{args 1847}#))
+ #{args 1863}#))
#f))
- #{tmp 1841}#)
+ #{tmp 1857}#)
#f)
(@apply
- (lambda (#{name 1856}#
- #{args 1857}#
- #{e1 1858}#
- #{e2 1859}#)
+ (lambda (#{name 1872}#
+ #{args 1873}#
+ #{e1 1874}#
+ #{e2 1875}#)
(values
'define-form
(#{wrap 409}#
- #{name 1856}#
- #{w 1764}#
- #{mod 1767}#)
+ #{name 1872}#
+ #{w 1780}#
+ #{mod 1783}#)
(#{decorate-source 261}#
(cons '#(syntax-object
lambda
@@ -3457,10 +1729,10 @@
(top)
(top)
(top))
- #("i1852"
- "i1853"
- "i1854"
- "i1855"))
+ #("i1868"
+ "i1869"
+ "i1870"
+ "i1871"))
#(ribcage
()
()
@@ -3482,12 +1754,12 @@
(top)
(top)
(top))
- #("i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"
- "i1810"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage
()
()
@@ -3495,7 +1767,7 @@
#(ribcage
#(first)
#((top))
- #("i1797"))
+ #("i1813"))
#(ribcage
()
()
@@ -3523,13 +1795,13 @@
(top)
(top)
(top))
- #("i1769"
- "i1770"
- "i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"))
+ #("i1785"
+ "i1786"
+ "i1787"
+ "i1788"
+ "i1789"
+ "i1790"
+ "i1791"))
#(ribcage
(lambda-var-list
gen-var
@@ -3957,42 +2229,42 @@
"i38")))
(hygiene guile))
(#{wrap 409}#
- (cons #{args 1857}#
- (cons #{e1 1858}#
- #{e2 1859}#))
- #{w 1764}#
- #{mod 1767}#))
- #{s 1765}#)
+ (cons #{args 1873}#
+ (cons #{e1 1874}#
+ #{e2 1875}#))
+ #{w 1780}#
+ #{mod 1783}#))
+ #{s 1781}#)
'(())
- #{s 1765}#
- #{mod 1767}#))
- #{tmp 1841}#)
- (let ((#{tmp 1862}#
+ #{s 1781}#
+ #{mod 1783}#))
+ #{tmp 1857}#)
+ (let ((#{tmp 1878}#
($sc-dispatch
- #{tmp 1831}#
+ #{tmp 1847}#
'(_ any))))
- (if (if #{tmp 1862}#
+ (if (if #{tmp 1878}#
(@apply
- (lambda (#{name 1864}#)
+ (lambda (#{name 1880}#)
(#{id? 343}#
- #{name 1864}#))
- #{tmp 1862}#)
+ #{name 1880}#))
+ #{tmp 1878}#)
#f)
(@apply
- (lambda (#{name 1866}#)
+ (lambda (#{name 1882}#)
(values
'define-form
(#{wrap 409}#
- #{name 1866}#
- #{w 1764}#
- #{mod 1767}#)
+ #{name 1882}#
+ #{w 1780}#
+ #{mod 1783}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1865"))
+ #("i1881"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4008,17 +2280,17 @@
(top)
(top)
(top))
- #("i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"
- "i1810"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1797"))
+ #("i1813"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4037,13 +2309,13 @@
(top)
(top)
(top))
- #("i1769"
- "i1770"
- "i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"))
+ #("i1785"
+ "i1786"
+ "i1787"
+ "i1788"
+ "i1789"
+ "i1790"
+ "i1791"))
#(ribcage
(lambda-var-list
gen-var
@@ -4476,7 +2748,7 @@
#(ribcage
#(name)
#((top))
- #("i1865"))
+ #("i1881"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4492,17 +2764,17 @@
(top)
(top)
(top))
- #("i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"
- "i1810"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1797"))
+ #("i1813"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4521,13 +2793,13 @@
(top)
(top)
(top))
- #("i1769"
- "i1770"
- "i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"))
+ #("i1785"
+ "i1786"
+ "i1787"
+ "i1788"
+ "i1789"
+ "i1790"
+ "i1791"))
#(ribcage
(lambda-var-list
gen-var
@@ -4960,7 +3232,7 @@
#(ribcage
#(name)
#((top))
- #("i1865"))
+ #("i1881"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4976,17 +3248,17 @@
(top)
(top)
(top))
- #("i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"
- "i1810"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1797"))
+ #("i1813"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -5005,13 +3277,13 @@
(top)
(top)
(top))
- #("i1769"
- "i1770"
- "i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"))
+ #("i1785"
+ "i1786"
+ "i1787"
+ "i1788"
+ "i1789"
+ "i1790"
+ "i1791"))
#(ribcage
(lambda-var-list
gen-var
@@ -5439,673 +3711,673 @@
"i38")))
(hygiene guile)))
'(())
- #{s 1765}#
- #{mod 1767}#))
- #{tmp 1862}#)
+ #{s 1781}#
+ #{mod 1783}#))
+ #{tmp 1878}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1831}#))))))))
- (if (memv #{ftype 1799}# '(define-syntax))
- (let ((#{tmp 1869}# #{e 1762}#))
- (let ((#{tmp 1870}#
+ #{tmp 1847}#))))))))
+ (if (memv #{ftype 1815}# '(define-syntax))
+ (let ((#{tmp 1885}# #{e 1778}#))
+ (let ((#{tmp 1886}#
($sc-dispatch
- #{tmp 1869}#
+ #{tmp 1885}#
'(_ any any))))
- (if (if #{tmp 1870}#
+ (if (if #{tmp 1886}#
(@apply
- (lambda (#{name 1873}#
- #{val 1874}#)
- (#{id? 343}# #{name 1873}#))
- #{tmp 1870}#)
+ (lambda (#{name 1889}#
+ #{val 1890}#)
+ (#{id? 343}# #{name 1889}#))
+ #{tmp 1886}#)
#f)
(@apply
- (lambda (#{name 1877}#
- #{val 1878}#)
+ (lambda (#{name 1893}#
+ #{val 1894}#)
(values
'define-syntax-form
- #{name 1877}#
- #{val 1878}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#))
- #{tmp 1870}#)
+ #{name 1893}#
+ #{val 1894}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#))
+ #{tmp 1886}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1869}#))))
+ #{tmp 1885}#))))
(values
'call
#f
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#))))))))))))))
- (if (#{syntax-object? 309}# #{e 1762}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#))))))))))))))
+ (if (#{syntax-object? 309}# #{e 1778}#)
(#{syntax-type 421}#
- (#{syntax-object-expression 311}# #{e 1762}#)
- #{r 1763}#
+ (#{syntax-object-expression 311}# #{e 1778}#)
+ #{r 1779}#
(#{join-wraps 391}#
- #{w 1764}#
- (#{syntax-object-wrap 313}# #{e 1762}#))
- (let ((#{t 1884}#
- (#{source-annotation 324}# #{e 1762}#)))
- (if #{t 1884}# #{t 1884}# #{s 1765}#))
- #{rib 1766}#
- (let ((#{t 1888}#
- (#{syntax-object-module 315}# #{e 1762}#)))
- (if #{t 1888}# #{t 1888}# #{mod 1767}#))
- #{for-car? 1768}#)
- (if (self-evaluating? #{e 1762}#)
+ #{w 1780}#
+ (#{syntax-object-wrap 313}# #{e 1778}#))
+ (let ((#{t 1900}#
+ (#{source-annotation 324}# #{e 1778}#)))
+ (if #{t 1900}# #{t 1900}# #{s 1781}#))
+ #{rib 1782}#
+ (let ((#{t 1904}#
+ (#{syntax-object-module 315}# #{e 1778}#)))
+ (if #{t 1904}# #{t 1904}# #{mod 1783}#))
+ #{for-car? 1784}#)
+ (if (self-evaluating? #{e 1778}#)
(values
'constant
#f
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)
(values
'other
#f
- #{e 1762}#
- #{w 1764}#
- #{s 1765}#
- #{mod 1767}#)))))))
+ #{e 1778}#
+ #{w 1780}#
+ #{s 1781}#
+ #{mod 1783}#)))))))
(#{chi 423}#
- (lambda (#{e 1893}# #{r 1894}# #{w 1895}# #{mod 1896}#)
+ (lambda (#{e 1909}# #{r 1910}# #{w 1911}# #{mod 1912}#)
(call-with-values
(lambda ()
(#{syntax-type 421}#
- #{e 1893}#
- #{r 1894}#
- #{w 1895}#
- (#{source-annotation 324}# #{e 1893}#)
+ #{e 1909}#
+ #{r 1910}#
+ #{w 1911}#
+ (#{source-annotation 324}# #{e 1909}#)
#f
- #{mod 1896}#
+ #{mod 1912}#
#f))
- (lambda (#{type 1901}#
- #{value 1902}#
- #{e 1903}#
- #{w 1904}#
- #{s 1905}#
- #{mod 1906}#)
+ (lambda (#{type 1917}#
+ #{value 1918}#
+ #{e 1919}#
+ #{w 1920}#
+ #{s 1921}#
+ #{mod 1922}#)
(#{chi-expr 425}#
- #{type 1901}#
- #{value 1902}#
- #{e 1903}#
- #{r 1894}#
- #{w 1904}#
- #{s 1905}#
- #{mod 1906}#)))))
+ #{type 1917}#
+ #{value 1918}#
+ #{e 1919}#
+ #{r 1910}#
+ #{w 1920}#
+ #{s 1921}#
+ #{mod 1922}#)))))
(#{chi-expr 425}#
- (lambda (#{type 1913}#
- #{value 1914}#
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(lexical))
+ (lambda (#{type 1929}#
+ #{value 1930}#
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(lexical))
(#{build-lexical-reference 273}#
'value
- #{s 1918}#
- #{e 1915}#
- #{value 1914}#)
- (if (memv #{type 1913}# '(core core-form))
- (#{value 1914}#
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(module-ref))
+ #{s 1934}#
+ #{e 1931}#
+ #{value 1930}#)
+ (if (memv #{type 1929}# '(core core-form))
+ (#{value 1930}#
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(module-ref))
(call-with-values
(lambda ()
- (#{value 1914}# #{e 1915}# #{r 1916}# #{w 1917}#))
- (lambda (#{e 1930}#
- #{r 1931}#
- #{w 1932}#
- #{s 1933}#
- #{mod 1934}#)
+ (#{value 1930}# #{e 1931}# #{r 1932}# #{w 1933}#))
+ (lambda (#{e 1946}#
+ #{r 1947}#
+ #{w 1948}#
+ #{s 1949}#
+ #{mod 1950}#)
(#{chi 423}#
- #{e 1930}#
- #{r 1931}#
- #{w 1932}#
- #{mod 1934}#)))
- (if (memv #{type 1913}# '(lexical-call))
+ #{e 1946}#
+ #{r 1947}#
+ #{w 1948}#
+ #{mod 1950}#)))
+ (if (memv #{type 1929}# '(lexical-call))
(#{chi-call 427}#
- (let ((#{id 1942}# (car #{e 1915}#)))
+ (let ((#{id 1958}# (car #{e 1931}#)))
(#{build-lexical-reference 273}#
'fun
- (#{source-annotation 324}# #{id 1942}#)
- (if (#{syntax-object? 309}# #{id 1942}#)
- (syntax->datum #{id 1942}#)
- #{id 1942}#)
- #{value 1914}#))
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(global-call))
+ (#{source-annotation 324}# #{id 1958}#)
+ (if (#{syntax-object? 309}# #{id 1958}#)
+ (syntax->datum #{id 1958}#)
+ #{id 1958}#)
+ #{value 1930}#))
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(global-call))
(#{chi-call 427}#
(#{build-global-reference 279}#
- (#{source-annotation 324}# (car #{e 1915}#))
- (if (#{syntax-object? 309}# #{value 1914}#)
- (#{syntax-object-expression 311}# #{value 1914}#)
- #{value 1914}#)
- (if (#{syntax-object? 309}# #{value 1914}#)
- (#{syntax-object-module 315}# #{value 1914}#)
- #{mod 1919}#))
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(constant))
+ (#{source-annotation 324}# (car #{e 1931}#))
+ (if (#{syntax-object? 309}# #{value 1930}#)
+ (#{syntax-object-expression 311}# #{value 1930}#)
+ #{value 1930}#)
+ (if (#{syntax-object? 309}# #{value 1930}#)
+ (#{syntax-object-module 315}# #{value 1930}#)
+ #{mod 1935}#))
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(constant))
(#{build-data 295}#
- #{s 1918}#
+ #{s 1934}#
(#{strip 449}#
(#{source-wrap 411}#
- #{e 1915}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
+ #{e 1931}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
'(())))
- (if (memv #{type 1913}# '(global))
+ (if (memv #{type 1929}# '(global))
(#{build-global-reference 279}#
- #{s 1918}#
- #{value 1914}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(call))
+ #{s 1934}#
+ #{value 1930}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(call))
(#{chi-call 427}#
(#{chi 423}#
- (car #{e 1915}#)
- #{r 1916}#
- #{w 1917}#
- #{mod 1919}#)
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
- (if (memv #{type 1913}# '(begin-form))
- (let ((#{tmp 1949}# #{e 1915}#))
- (let ((#{tmp 1950}#
+ (car #{e 1931}#)
+ #{r 1932}#
+ #{w 1933}#
+ #{mod 1935}#)
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (if (memv #{type 1929}# '(begin-form))
+ (let ((#{tmp 1965}# #{e 1931}#))
+ (let ((#{tmp 1966}#
($sc-dispatch
- #{tmp 1949}#
+ #{tmp 1965}#
'(_ any . each-any))))
- (if #{tmp 1950}#
+ (if #{tmp 1966}#
(@apply
- (lambda (#{e1 1953}# #{e2 1954}#)
+ (lambda (#{e1 1969}# #{e2 1970}#)
(#{chi-sequence 413}#
- (cons #{e1 1953}# #{e2 1954}#)
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#))
- #{tmp 1950}#)
+ (cons #{e1 1969}# #{e2 1970}#)
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#))
+ #{tmp 1966}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1949}#))))
- (if (memv #{type 1913}# '(local-syntax-form))
+ #{tmp 1965}#))))
+ (if (memv #{type 1929}# '(local-syntax-form))
(#{chi-local-syntax 433}#
- #{value 1914}#
- #{e 1915}#
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#
+ #{value 1930}#
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#
#{chi-sequence 413}#)
- (if (memv #{type 1913}# '(eval-when-form))
- (let ((#{tmp 1958}# #{e 1915}#))
- (let ((#{tmp 1959}#
+ (if (memv #{type 1929}# '(eval-when-form))
+ (let ((#{tmp 1974}# #{e 1931}#))
+ (let ((#{tmp 1975}#
($sc-dispatch
- #{tmp 1958}#
+ #{tmp 1974}#
'(_ each-any any . each-any))))
- (if #{tmp 1959}#
+ (if #{tmp 1975}#
(@apply
- (lambda (#{x 1963}#
- #{e1 1964}#
- #{e2 1965}#)
- (let ((#{when-list 1967}#
+ (lambda (#{x 1979}#
+ #{e1 1980}#
+ #{e2 1981}#)
+ (let ((#{when-list 1983}#
(#{chi-when-list 419}#
- #{e 1915}#
- #{x 1963}#
- #{w 1917}#)))
- (if (memq 'eval #{when-list 1967}#)
+ #{e 1931}#
+ #{x 1979}#
+ #{w 1933}#)))
+ (if (memq 'eval #{when-list 1983}#)
(#{chi-sequence 413}#
- (cons #{e1 1964}# #{e2 1965}#)
- #{r 1916}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#)
+ (cons #{e1 1980}# #{e2 1981}#)
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
(#{chi-void 437}#))))
- #{tmp 1959}#)
+ #{tmp 1975}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1958}#))))
- (if (memv #{type 1913}#
+ #{tmp 1974}#))))
+ (if (memv #{type 1929}#
'(define-form define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 1915}#
+ #{e 1931}#
(#{wrap 409}#
- #{value 1914}#
- #{w 1917}#
- #{mod 1919}#))
- (if (memv #{type 1913}# '(syntax))
+ #{value 1930}#
+ #{w 1933}#
+ #{mod 1935}#))
+ (if (memv #{type 1929}# '(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
(#{source-wrap 411}#
- #{e 1915}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#))
- (if (memv #{type 1913}# '(displaced-lexical))
+ #{e 1931}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#))
+ (if (memv #{type 1929}# '(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
(#{source-wrap 411}#
- #{e 1915}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#))
+ #{e 1931}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#))
(syntax-violation
#f
"unexpected syntax"
(#{source-wrap 411}#
- #{e 1915}#
- #{w 1917}#
- #{s 1918}#
- #{mod 1919}#))))))))))))))))))
+ #{e 1931}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#))))))))))))))))))
(#{chi-call 427}#
- (lambda (#{x 1974}#
- #{e 1975}#
- #{r 1976}#
- #{w 1977}#
- #{s 1978}#
- #{mod 1979}#)
- (let ((#{tmp 1986}# #{e 1975}#))
- (let ((#{tmp 1987}#
- ($sc-dispatch #{tmp 1986}# '(any . each-any))))
- (if #{tmp 1987}#
+ (lambda (#{x 1990}#
+ #{e 1991}#
+ #{r 1992}#
+ #{w 1993}#
+ #{s 1994}#
+ #{mod 1995}#)
+ (let ((#{tmp 2002}# #{e 1991}#))
+ (let ((#{tmp 2003}#
+ ($sc-dispatch #{tmp 2002}# '(any . each-any))))
+ (if #{tmp 2003}#
(@apply
- (lambda (#{e0 1990}# #{e1 1991}#)
+ (lambda (#{e0 2006}# #{e1 2007}#)
(#{build-call 267}#
- #{s 1978}#
- #{x 1974}#
- (map (lambda (#{e 1992}#)
+ #{s 1994}#
+ #{x 1990}#
+ (map (lambda (#{e 2008}#)
(#{chi 423}#
- #{e 1992}#
- #{r 1976}#
- #{w 1977}#
- #{mod 1979}#))
- #{e1 1991}#)))
- #{tmp 1987}#)
+ #{e 2008}#
+ #{r 1992}#
+ #{w 1993}#
+ #{mod 1995}#))
+ #{e1 2007}#)))
+ #{tmp 2003}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1986}#))))))
+ #{tmp 2002}#))))))
(#{chi-macro 429}#
- (lambda (#{p 1995}#
- #{e 1996}#
- #{r 1997}#
- #{w 1998}#
- #{s 1999}#
- #{rib 2000}#
- #{mod 2001}#)
+ (lambda (#{p 2011}#
+ #{e 2012}#
+ #{r 2013}#
+ #{w 2014}#
+ #{s 2015}#
+ #{rib 2016}#
+ #{mod 2017}#)
(letrec*
- ((#{rebuild-macro-output 2010}#
- (lambda (#{x 2011}# #{m 2012}#)
- (if (pair? #{x 2011}#)
+ ((#{rebuild-macro-output 2026}#
+ (lambda (#{x 2027}# #{m 2028}#)
+ (if (pair? #{x 2027}#)
(#{decorate-source 261}#
- (cons (#{rebuild-macro-output 2010}#
- (car #{x 2011}#)
- #{m 2012}#)
- (#{rebuild-macro-output 2010}#
- (cdr #{x 2011}#)
- #{m 2012}#))
- #{s 1999}#)
- (if (#{syntax-object? 309}# #{x 2011}#)
- (let ((#{w 2020}#
- (#{syntax-object-wrap 313}# #{x 2011}#)))
- (let ((#{ms 2023}# (car #{w 2020}#))
- (#{s 2024}# (cdr #{w 2020}#)))
- (if (if (pair? #{ms 2023}#)
- (eq? (car #{ms 2023}#) #f)
+ (cons (#{rebuild-macro-output 2026}#
+ (car #{x 2027}#)
+ #{m 2028}#)
+ (#{rebuild-macro-output 2026}#
+ (cdr #{x 2027}#)
+ #{m 2028}#))
+ #{s 2015}#)
+ (if (#{syntax-object? 309}# #{x 2027}#)
+ (let ((#{w 2036}#
+ (#{syntax-object-wrap 313}# #{x 2027}#)))
+ (let ((#{ms 2039}# (car #{w 2036}#))
+ (#{s 2040}# (cdr #{w 2036}#)))
+ (if (if (pair? #{ms 2039}#)
+ (eq? (car #{ms 2039}#) #f)
#f)
(#{make-syntax-object 307}#
- (#{syntax-object-expression 311}# #{x 2011}#)
- (cons (cdr #{ms 2023}#)
- (if #{rib 2000}#
- (cons #{rib 2000}# (cdr #{s 2024}#))
- (cdr #{s 2024}#)))
- (#{syntax-object-module 315}# #{x 2011}#))
+ (#{syntax-object-expression 311}# #{x 2027}#)
+ (cons (cdr #{ms 2039}#)
+ (if #{rib 2016}#
+ (cons #{rib 2016}# (cdr #{s 2040}#))
+ (cdr #{s 2040}#)))
+ (#{syntax-object-module 315}# #{x 2027}#))
(#{make-syntax-object 307}#
(#{decorate-source 261}#
- (#{syntax-object-expression 311}# #{x 2011}#)
- #{s 2024}#)
- (cons (cons #{m 2012}# #{ms 2023}#)
- (if #{rib 2000}#
- (cons #{rib 2000}# (cons 'shift #{s 2024}#))
- (cons 'shift #{s 2024}#)))
- (#{syntax-object-module 315}# #{x 2011}#)))))
- (if (vector? #{x 2011}#)
- (let ((#{n 2036}# (vector-length #{x 2011}#)))
- (let ((#{v 2038}#
+ (#{syntax-object-expression 311}# #{x 2027}#)
+ #{s 2040}#)
+ (cons (cons #{m 2028}# #{ms 2039}#)
+ (if #{rib 2016}#
+ (cons #{rib 2016}# (cons 'shift #{s 2040}#))
+ (cons 'shift #{s 2040}#)))
+ (#{syntax-object-module 315}# #{x 2027}#)))))
+ (if (vector? #{x 2027}#)
+ (let ((#{n 2052}# (vector-length #{x 2027}#)))
+ (let ((#{v 2054}#
(#{decorate-source 261}#
- (make-vector #{n 2036}#)
- #{x 2011}#)))
+ (make-vector #{n 2052}#)
+ #{x 2027}#)))
(letrec*
- ((#{loop 2041}#
- (lambda (#{i 2042}#)
- (if (= #{i 2042}# #{n 2036}#)
- (begin (if #f #f) #{v 2038}#)
+ ((#{loop 2057}#
+ (lambda (#{i 2058}#)
+ (if (= #{i 2058}# #{n 2052}#)
+ (begin (if #f #f) #{v 2054}#)
(begin
(vector-set!
- #{v 2038}#
- #{i 2042}#
- (#{rebuild-macro-output 2010}#
- (vector-ref #{x 2011}# #{i 2042}#)
- #{m 2012}#))
- (#{loop 2041}# (#{1+}# #{i 2042}#)))))))
- (#{loop 2041}# 0))))
- (if (symbol? #{x 2011}#)
+ #{v 2054}#
+ #{i 2058}#
+ (#{rebuild-macro-output 2026}#
+ (vector-ref #{x 2027}# #{i 2058}#)
+ #{m 2028}#))
+ (#{loop 2057}# (#{1+}# #{i 2058}#)))))))
+ (#{loop 2057}# 0))))
+ (if (symbol? #{x 2027}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
(#{source-wrap 411}#
- #{e 1996}#
- #{w 1998}#
- (cdr #{w 1998}#)
- #{mod 2001}#)
- #{x 2011}#)
- (#{decorate-source 261}# #{x 2011}# #{s 1999}#))))))))
- (#{rebuild-macro-output 2010}#
- (#{p 1995}#
+ #{e 2012}#
+ #{w 2014}#
+ (cdr #{w 2014}#)
+ #{mod 2017}#)
+ #{x 2027}#)
+ (#{decorate-source 261}# #{x 2027}# #{s 2015}#))))))))
+ (#{rebuild-macro-output 2026}#
+ (#{p 2011}#
(#{source-wrap 411}#
- #{e 1996}#
- (#{anti-mark 381}# #{w 1998}#)
- #{s 1999}#
- #{mod 2001}#))
+ #{e 2012}#
+ (#{anti-mark 381}# #{w 2014}#)
+ #{s 2015}#
+ #{mod 2017}#))
(gensym "m")))))
(#{chi-body 431}#
- (lambda (#{body 2052}#
- #{outer-form 2053}#
- #{r 2054}#
- #{w 2055}#
- #{mod 2056}#)
- (let ((#{r 2064}#
- (cons '("placeholder" placeholder) #{r 2054}#)))
- (let ((#{ribcage 2066}#
+ (lambda (#{body 2068}#
+ #{outer-form 2069}#
+ #{r 2070}#
+ #{w 2071}#
+ #{mod 2072}#)
+ (let ((#{r 2080}#
+ (cons '("placeholder" placeholder) #{r 2070}#)))
+ (let ((#{ribcage 2082}#
(#{make-ribcage 361}# '() '() '())))
- (let ((#{w 2069}#
- (cons (car #{w 2055}#)
- (cons #{ribcage 2066}# (cdr #{w 2055}#)))))
+ (let ((#{w 2085}#
+ (cons (car #{w 2071}#)
+ (cons #{ribcage 2082}# (cdr #{w 2071}#)))))
(letrec*
- ((#{parse 2081}#
- (lambda (#{body 2082}#
- #{ids 2083}#
- #{labels 2084}#
- #{var-ids 2085}#
- #{vars 2086}#
- #{vals 2087}#
- #{bindings 2088}#)
- (if (null? #{body 2082}#)
+ ((#{parse 2097}#
+ (lambda (#{body 2098}#
+ #{ids 2099}#
+ #{labels 2100}#
+ #{var-ids 2101}#
+ #{vars 2102}#
+ #{vals 2103}#
+ #{bindings 2104}#)
+ (if (null? #{body 2098}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 2053}#)
- (let ((#{e 2093}# (cdr (car #{body 2082}#)))
- (#{er 2094}# (car (car #{body 2082}#))))
+ #{outer-form 2069}#)
+ (let ((#{e 2109}# (cdr (car #{body 2098}#)))
+ (#{er 2110}# (car (car #{body 2098}#))))
(call-with-values
(lambda ()
(#{syntax-type 421}#
- #{e 2093}#
- #{er 2094}#
+ #{e 2109}#
+ #{er 2110}#
'(())
- (#{source-annotation 324}# #{er 2094}#)
- #{ribcage 2066}#
- #{mod 2056}#
+ (#{source-annotation 324}# #{er 2110}#)
+ #{ribcage 2082}#
+ #{mod 2072}#
#f))
- (lambda (#{type 2096}#
- #{value 2097}#
- #{e 2098}#
- #{w 2099}#
- #{s 2100}#
- #{mod 2101}#)
- (if (memv #{type 2096}# '(define-form))
- (let ((#{id 2111}#
+ (lambda (#{type 2112}#
+ #{value 2113}#
+ #{e 2114}#
+ #{w 2115}#
+ #{s 2116}#
+ #{mod 2117}#)
+ (if (memv #{type 2112}# '(define-form))
+ (let ((#{id 2127}#
(#{wrap 409}#
- #{value 2097}#
- #{w 2099}#
- #{mod 2101}#))
- (#{label 2112}# (#{gen-label 356}#)))
- (let ((#{var 2114}#
- (#{gen-var 451}# #{id 2111}#)))
+ #{value 2113}#
+ #{w 2115}#
+ #{mod 2117}#))
+ (#{label 2128}# (#{gen-label 356}#)))
+ (let ((#{var 2130}#
+ (#{gen-var 451}# #{id 2127}#)))
(begin
(#{extend-ribcage! 385}#
- #{ribcage 2066}#
- #{id 2111}#
- #{label 2112}#)
- (#{parse 2081}#
- (cdr #{body 2082}#)
- (cons #{id 2111}# #{ids 2083}#)
- (cons #{label 2112}# #{labels 2084}#)
- (cons #{id 2111}# #{var-ids 2085}#)
- (cons #{var 2114}# #{vars 2086}#)
- (cons (cons #{er 2094}#
+ #{ribcage 2082}#
+ #{id 2127}#
+ #{label 2128}#)
+ (#{parse 2097}#
+ (cdr #{body 2098}#)
+ (cons #{id 2127}# #{ids 2099}#)
+ (cons #{label 2128}# #{labels 2100}#)
+ (cons #{id 2127}# #{var-ids 2101}#)
+ (cons #{var 2130}# #{vars 2102}#)
+ (cons (cons #{er 2110}#
(#{wrap 409}#
- #{e 2098}#
- #{w 2099}#
- #{mod 2101}#))
- #{vals 2087}#)
- (cons (cons 'lexical #{var 2114}#)
- #{bindings 2088}#)))))
- (if (memv #{type 2096}# '(define-syntax-form))
- (let ((#{id 2119}#
+ #{e 2114}#
+ #{w 2115}#
+ #{mod 2117}#))
+ #{vals 2103}#)
+ (cons (cons 'lexical #{var 2130}#)
+ #{bindings 2104}#)))))
+ (if (memv #{type 2112}# '(define-syntax-form))
+ (let ((#{id 2135}#
(#{wrap 409}#
- #{value 2097}#
- #{w 2099}#
- #{mod 2101}#))
- (#{label 2120}# (#{gen-label 356}#)))
+ #{value 2113}#
+ #{w 2115}#
+ #{mod 2117}#))
+ (#{label 2136}# (#{gen-label 356}#)))
(begin
(#{extend-ribcage! 385}#
- #{ribcage 2066}#
- #{id 2119}#
- #{label 2120}#)
- (#{parse 2081}#
- (cdr #{body 2082}#)
- (cons #{id 2119}# #{ids 2083}#)
- (cons #{label 2120}# #{labels 2084}#)
- #{var-ids 2085}#
- #{vars 2086}#
- #{vals 2087}#
+ #{ribcage 2082}#
+ #{id 2135}#
+ #{label 2136}#)
+ (#{parse 2097}#
+ (cdr #{body 2098}#)
+ (cons #{id 2135}# #{ids 2099}#)
+ (cons #{label 2136}# #{labels 2100}#)
+ #{var-ids 2101}#
+ #{vars 2102}#
+ #{vals 2103}#
(cons (cons 'macro
- (cons #{er 2094}#
+ (cons #{er 2110}#
(#{wrap 409}#
- #{e 2098}#
- #{w 2099}#
- #{mod 2101}#)))
- #{bindings 2088}#))))
- (if (memv #{type 2096}# '(begin-form))
- (let ((#{tmp 2123}# #{e 2098}#))
- (let ((#{tmp 2124}#
+ #{e 2114}#
+ #{w 2115}#
+ #{mod 2117}#)))
+ #{bindings 2104}#))))
+ (if (memv #{type 2112}# '(begin-form))
+ (let ((#{tmp 2139}# #{e 2114}#))
+ (let ((#{tmp 2140}#
($sc-dispatch
- #{tmp 2123}#
+ #{tmp 2139}#
'(_ . each-any))))
- (if #{tmp 2124}#
+ (if #{tmp 2140}#
(@apply
- (lambda (#{e1 2126}#)
- (#{parse 2081}#
+ (lambda (#{e1 2142}#)
+ (#{parse 2097}#
(letrec*
- ((#{f 2129}#
- (lambda (#{forms 2130}#)
- (if (null? #{forms 2130}#)
- (cdr #{body 2082}#)
- (cons (cons #{er 2094}#
+ ((#{f 2145}#
+ (lambda (#{forms 2146}#)
+ (if (null? #{forms 2146}#)
+ (cdr #{body 2098}#)
+ (cons (cons #{er 2110}#
(#{wrap 409}#
- (car #{forms 2130}#)
- #{w 2099}#
- #{mod 2101}#))
- (#{f 2129}#
- (cdr #{forms 2130}#)))))))
- (#{f 2129}# #{e1 2126}#))
- #{ids 2083}#
- #{labels 2084}#
- #{var-ids 2085}#
- #{vars 2086}#
- #{vals 2087}#
- #{bindings 2088}#))
- #{tmp 2124}#)
+ (car #{forms 2146}#)
+ #{w 2115}#
+ #{mod 2117}#))
+ (#{f 2145}#
+ (cdr #{forms 2146}#)))))))
+ (#{f 2145}# #{e1 2142}#))
+ #{ids 2099}#
+ #{labels 2100}#
+ #{var-ids 2101}#
+ #{vars 2102}#
+ #{vals 2103}#
+ #{bindings 2104}#))
+ #{tmp 2140}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2123}#))))
- (if (memv #{type 2096}# '(local-syntax-form))
+ #{tmp 2139}#))))
+ (if (memv #{type 2112}# '(local-syntax-form))
(#{chi-local-syntax 433}#
- #{value 2097}#
- #{e 2098}#
- #{er 2094}#
- #{w 2099}#
- #{s 2100}#
- #{mod 2101}#
- (lambda (#{forms 2133}#
- #{er 2134}#
- #{w 2135}#
- #{s 2136}#
- #{mod 2137}#)
- (#{parse 2081}#
+ #{value 2113}#
+ #{e 2114}#
+ #{er 2110}#
+ #{w 2115}#
+ #{s 2116}#
+ #{mod 2117}#
+ (lambda (#{forms 2149}#
+ #{er 2150}#
+ #{w 2151}#
+ #{s 2152}#
+ #{mod 2153}#)
+ (#{parse 2097}#
(letrec*
- ((#{f 2145}#
- (lambda (#{forms 2146}#)
- (if (null? #{forms 2146}#)
- (cdr #{body 2082}#)
- (cons (cons #{er 2134}#
+ ((#{f 2161}#
+ (lambda (#{forms 2162}#)
+ (if (null? #{forms 2162}#)
+ (cdr #{body 2098}#)
+ (cons (cons #{er 2150}#
(#{wrap 409}#
- (car #{forms 2146}#)
- #{w 2135}#
- #{mod 2137}#))
- (#{f 2145}#
- (cdr #{forms 2146}#)))))))
- (#{f 2145}# #{forms 2133}#))
- #{ids 2083}#
- #{labels 2084}#
- #{var-ids 2085}#
- #{vars 2086}#
- #{vals 2087}#
- #{bindings 2088}#)))
- (if (null? #{ids 2083}#)
+ (car #{forms 2162}#)
+ #{w 2151}#
+ #{mod 2153}#))
+ (#{f 2161}#
+ (cdr #{forms 2162}#)))))))
+ (#{f 2161}# #{forms 2149}#))
+ #{ids 2099}#
+ #{labels 2100}#
+ #{var-ids 2101}#
+ #{vars 2102}#
+ #{vals 2103}#
+ #{bindings 2104}#)))
+ (if (null? #{ids 2099}#)
(#{build-sequence 297}#
#f
- (map (lambda (#{x 2149}#)
+ (map (lambda (#{x 2165}#)
(#{chi 423}#
- (cdr #{x 2149}#)
- (car #{x 2149}#)
+ (cdr #{x 2165}#)
+ (car #{x 2165}#)
'(())
- #{mod 2101}#))
- (cons (cons #{er 2094}#
+ #{mod 2117}#))
+ (cons (cons #{er 2110}#
(#{source-wrap 411}#
- #{e 2098}#
- #{w 2099}#
- #{s 2100}#
- #{mod 2101}#))
- (cdr #{body 2082}#))))
+ #{e 2114}#
+ #{w 2115}#
+ #{s 2116}#
+ #{mod 2117}#))
+ (cdr #{body 2098}#))))
(begin
(if (not (#{valid-bound-ids? 403}#
- #{ids 2083}#))
+ #{ids 2099}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 2053}#))
+ #{outer-form 2069}#))
(letrec*
- ((#{loop 2156}#
- (lambda (#{bs 2157}#
- #{er-cache 2158}#
- #{r-cache 2159}#)
- (if (not (null? #{bs 2157}#))
- (let ((#{b 2162}#
- (car #{bs 2157}#)))
- (if (eq? (car #{b 2162}#)
+ ((#{loop 2172}#
+ (lambda (#{bs 2173}#
+ #{er-cache 2174}#
+ #{r-cache 2175}#)
+ (if (not (null? #{bs 2173}#))
+ (let ((#{b 2178}#
+ (car #{bs 2173}#)))
+ (if (eq? (car #{b 2178}#)
'macro)
- (let ((#{er 2165}#
- (car (cdr #{b 2162}#))))
- (let ((#{r-cache 2167}#
- (if (eq? #{er 2165}#
- #{er-cache 2158}#)
- #{r-cache 2159}#
+ (let ((#{er 2181}#
+ (car (cdr #{b 2178}#))))
+ (let ((#{r-cache 2183}#
+ (if (eq? #{er 2181}#
+ #{er-cache 2174}#)
+ #{r-cache 2175}#
(#{macros-only-env 335}#
- #{er 2165}#))))
+ #{er 2181}#))))
(begin
(set-cdr!
- #{b 2162}#
+ #{b 2178}#
(#{eval-local-transformer 435}#
(#{chi 423}#
- (cdr (cdr #{b 2162}#))
- #{r-cache 2167}#
+ (cdr (cdr #{b 2178}#))
+ #{r-cache 2183}#
'(())
- #{mod 2101}#)
- #{mod 2101}#))
- (#{loop 2156}#
- (cdr #{bs 2157}#)
- #{er 2165}#
- #{r-cache 2167}#))))
- (#{loop 2156}#
- (cdr #{bs 2157}#)
- #{er-cache 2158}#
- #{r-cache 2159}#)))))))
- (#{loop 2156}#
- #{bindings 2088}#
+ #{mod 2117}#)
+ #{mod 2117}#))
+ (#{loop 2172}#
+ (cdr #{bs 2173}#)
+ #{er 2181}#
+ #{r-cache 2183}#))))
+ (#{loop 2172}#
+ (cdr #{bs 2173}#)
+ #{er-cache 2174}#
+ #{r-cache 2175}#)))))))
+ (#{loop 2172}#
+ #{bindings 2104}#
#f
#f))
(set-cdr!
- #{r 2064}#
+ #{r 2080}#
(#{extend-env 331}#
- #{labels 2084}#
- #{bindings 2088}#
- (cdr #{r 2064}#)))
+ #{labels 2100}#
+ #{bindings 2104}#
+ (cdr #{r 2080}#)))
(#{build-letrec 303}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 2085}#))
- (reverse #{vars 2086}#)
- (map (lambda (#{x 2170}#)
+ #{var-ids 2101}#))
+ (reverse #{vars 2102}#)
+ (map (lambda (#{x 2186}#)
(#{chi 423}#
- (cdr #{x 2170}#)
- (car #{x 2170}#)
+ (cdr #{x 2186}#)
+ (car #{x 2186}#)
'(())
- #{mod 2101}#))
- (reverse #{vals 2087}#))
+ #{mod 2117}#))
+ (reverse #{vals 2103}#))
(#{build-sequence 297}#
#f
- (map (lambda (#{x 2174}#)
+ (map (lambda (#{x 2190}#)
(#{chi 423}#
- (cdr #{x 2174}#)
- (car #{x 2174}#)
+ (cdr #{x 2190}#)
+ (car #{x 2190}#)
'(())
- #{mod 2101}#))
- (cons (cons #{er 2094}#
+ #{mod 2117}#))
+ (cons (cons #{er 2110}#
(#{source-wrap 411}#
- #{e 2098}#
- #{w 2099}#
- #{s 2100}#
- #{mod 2101}#))
- (cdr #{body 2082}#))))))))))))))))))
- (#{parse 2081}#
- (map (lambda (#{x 2089}#)
- (cons #{r 2064}#
+ #{e 2114}#
+ #{w 2115}#
+ #{s 2116}#
+ #{mod 2117}#))
+ (cdr #{body 2098}#))))))))))))))))))
+ (#{parse 2097}#
+ (map (lambda (#{x 2105}#)
+ (cons #{r 2080}#
(#{wrap 409}#
- #{x 2089}#
- #{w 2069}#
- #{mod 2056}#)))
- #{body 2052}#)
+ #{x 2105}#
+ #{w 2085}#
+ #{mod 2072}#)))
+ #{body 2068}#)
'()
'()
'()
@@ -6113,96 +4385,96 @@
'()
'())))))))
(#{chi-local-syntax 433}#
- (lambda (#{rec? 2177}#
- #{e 2178}#
- #{r 2179}#
- #{w 2180}#
- #{s 2181}#
- #{mod 2182}#
- #{k 2183}#)
- (let ((#{tmp 2191}# #{e 2178}#))
- (let ((#{tmp 2192}#
+ (lambda (#{rec? 2193}#
+ #{e 2194}#
+ #{r 2195}#
+ #{w 2196}#
+ #{s 2197}#
+ #{mod 2198}#
+ #{k 2199}#)
+ (let ((#{tmp 2207}# #{e 2194}#))
+ (let ((#{tmp 2208}#
($sc-dispatch
- #{tmp 2191}#
+ #{tmp 2207}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 2192}#
+ (if #{tmp 2208}#
(@apply
- (lambda (#{id 2197}#
- #{val 2198}#
- #{e1 2199}#
- #{e2 2200}#)
- (let ((#{ids 2202}# #{id 2197}#))
- (if (not (#{valid-bound-ids? 403}# #{ids 2202}#))
+ (lambda (#{id 2213}#
+ #{val 2214}#
+ #{e1 2215}#
+ #{e2 2216}#)
+ (let ((#{ids 2218}# #{id 2213}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 2218}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 2178}#)
- (let ((#{labels 2205}#
- (#{gen-labels 358}# #{ids 2202}#)))
- (let ((#{new-w 2207}#
+ #{e 2194}#)
+ (let ((#{labels 2221}#
+ (#{gen-labels 358}# #{ids 2218}#)))
+ (let ((#{new-w 2223}#
(#{make-binding-wrap 387}#
- #{ids 2202}#
- #{labels 2205}#
- #{w 2180}#)))
- (#{k 2183}#
- (cons #{e1 2199}# #{e2 2200}#)
+ #{ids 2218}#
+ #{labels 2221}#
+ #{w 2196}#)))
+ (#{k 2199}#
+ (cons #{e1 2215}# #{e2 2216}#)
(#{extend-env 331}#
- #{labels 2205}#
- (let ((#{w 2211}#
- (if #{rec? 2177}#
- #{new-w 2207}#
- #{w 2180}#))
- (#{trans-r 2212}#
- (#{macros-only-env 335}# #{r 2179}#)))
- (map (lambda (#{x 2213}#)
+ #{labels 2221}#
+ (let ((#{w 2227}#
+ (if #{rec? 2193}#
+ #{new-w 2223}#
+ #{w 2196}#))
+ (#{trans-r 2228}#
+ (#{macros-only-env 335}# #{r 2195}#)))
+ (map (lambda (#{x 2229}#)
(cons 'macro
(#{eval-local-transformer 435}#
(#{chi 423}#
- #{x 2213}#
- #{trans-r 2212}#
- #{w 2211}#
- #{mod 2182}#)
- #{mod 2182}#)))
- #{val 2198}#))
- #{r 2179}#)
- #{new-w 2207}#
- #{s 2181}#
- #{mod 2182}#))))))
- #{tmp 2192}#)
- (let ((#{_ 2218}# #{tmp 2191}#))
+ #{x 2229}#
+ #{trans-r 2228}#
+ #{w 2227}#
+ #{mod 2198}#)
+ #{mod 2198}#)))
+ #{val 2214}#))
+ #{r 2195}#)
+ #{new-w 2223}#
+ #{s 2197}#
+ #{mod 2198}#))))))
+ #{tmp 2208}#)
+ (let ((#{_ 2234}# #{tmp 2207}#))
(syntax-violation
#f
"bad local syntax definition"
(#{source-wrap 411}#
- #{e 2178}#
- #{w 2180}#
- #{s 2181}#
- #{mod 2182}#))))))))
+ #{e 2194}#
+ #{w 2196}#
+ #{s 2197}#
+ #{mod 2198}#))))))))
(#{eval-local-transformer 435}#
- (lambda (#{expanded 2219}# #{mod 2220}#)
- (let ((#{p 2224}#
+ (lambda (#{expanded 2235}# #{mod 2236}#)
+ (let ((#{p 2240}#
(#{local-eval-hook 254}#
- #{expanded 2219}#
- #{mod 2220}#)))
- (if (procedure? #{p 2224}#)
- #{p 2224}#
+ #{expanded 2235}#
+ #{mod 2236}#)))
+ (if (procedure? #{p 2240}#)
+ #{p 2240}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 2224}#)))))
+ #{p 2240}#)))))
(#{chi-void 437}#
(lambda () (#{build-void 265}# #f)))
(#{ellipsis? 439}#
- (lambda (#{x 2226}#)
- (if (#{nonsymbol-id? 341}# #{x 2226}#)
+ (lambda (#{x 2242}#)
+ (if (#{nonsymbol-id? 341}# #{x 2242}#)
(#{free-id=? 399}#
- #{x 2226}#
+ #{x 2242}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2227"))
+ #(ribcage #(x) #((top)) #("i2243"))
#(ribcage
(lambda-var-list
gen-var
@@ -6627,245 +4899,245 @@
(hygiene guile)))
#f)))
(#{lambda-formals 441}#
- (lambda (#{orig-args 2230}#)
+ (lambda (#{orig-args 2246}#)
(letrec*
- ((#{req 2233}#
- (lambda (#{args 2236}# #{rreq 2237}#)
- (let ((#{tmp 2240}# #{args 2236}#))
- (let ((#{tmp 2241}# ($sc-dispatch #{tmp 2240}# '())))
- (if #{tmp 2241}#
+ ((#{req 2249}#
+ (lambda (#{args 2252}# #{rreq 2253}#)
+ (let ((#{tmp 2256}# #{args 2252}#))
+ (let ((#{tmp 2257}# ($sc-dispatch #{tmp 2256}# '())))
+ (if #{tmp 2257}#
(@apply
(lambda ()
- (#{check 2235}# (reverse #{rreq 2237}#) #f))
- #{tmp 2241}#)
- (let ((#{tmp 2242}#
- ($sc-dispatch #{tmp 2240}# '(any . any))))
- (if (if #{tmp 2242}#
+ (#{check 2251}# (reverse #{rreq 2253}#) #f))
+ #{tmp 2257}#)
+ (let ((#{tmp 2258}#
+ ($sc-dispatch #{tmp 2256}# '(any . any))))
+ (if (if #{tmp 2258}#
(@apply
- (lambda (#{a 2245}# #{b 2246}#)
- (#{id? 343}# #{a 2245}#))
- #{tmp 2242}#)
+ (lambda (#{a 2261}# #{b 2262}#)
+ (#{id? 343}# #{a 2261}#))
+ #{tmp 2258}#)
#f)
(@apply
- (lambda (#{a 2249}# #{b 2250}#)
- (#{req 2233}#
- #{b 2250}#
- (cons #{a 2249}# #{rreq 2237}#)))
- #{tmp 2242}#)
- (let ((#{tmp 2251}# (list #{tmp 2240}#)))
- (if (if #{tmp 2251}#
+ (lambda (#{a 2265}# #{b 2266}#)
+ (#{req 2249}#
+ #{b 2266}#
+ (cons #{a 2265}# #{rreq 2253}#)))
+ #{tmp 2258}#)
+ (let ((#{tmp 2267}# (list #{tmp 2256}#)))
+ (if (if #{tmp 2267}#
(@apply
- (lambda (#{r 2253}#)
- (#{id? 343}# #{r 2253}#))
- #{tmp 2251}#)
+ (lambda (#{r 2269}#)
+ (#{id? 343}# #{r 2269}#))
+ #{tmp 2267}#)
#f)
(@apply
- (lambda (#{r 2255}#)
- (#{check 2235}#
- (reverse #{rreq 2237}#)
- #{r 2255}#))
- #{tmp 2251}#)
- (let ((#{else 2257}# #{tmp 2240}#))
+ (lambda (#{r 2271}#)
+ (#{check 2251}#
+ (reverse #{rreq 2253}#)
+ #{r 2271}#))
+ #{tmp 2267}#)
+ (let ((#{else 2273}# #{tmp 2256}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 2230}#
- #{args 2236}#)))))))))))
- (#{check 2235}#
- (lambda (#{req 2258}# #{rest 2259}#)
+ #{orig-args 2246}#
+ #{args 2252}#)))))))))))
+ (#{check 2251}#
+ (lambda (#{req 2274}# #{rest 2275}#)
(if (#{distinct-bound-ids? 405}#
- (if #{rest 2259}#
- (cons #{rest 2259}# #{req 2258}#)
- #{req 2258}#))
- (values #{req 2258}# #f #{rest 2259}# #f)
+ (if #{rest 2275}#
+ (cons #{rest 2275}# #{req 2274}#)
+ #{req 2274}#))
+ (values #{req 2274}# #f #{rest 2275}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 2230}#)))))
- (#{req 2233}# #{orig-args 2230}# '()))))
+ #{orig-args 2246}#)))))
+ (#{req 2249}# #{orig-args 2246}# '()))))
(#{chi-simple-lambda 443}#
- (lambda (#{e 2265}#
- #{r 2266}#
- #{w 2267}#
- #{s 2268}#
- #{mod 2269}#
- #{req 2270}#
- #{rest 2271}#
- #{meta 2272}#
- #{body 2273}#)
- (let ((#{ids 2285}#
- (if #{rest 2271}#
- (append #{req 2270}# (list #{rest 2271}#))
- #{req 2270}#)))
- (let ((#{vars 2287}#
- (map #{gen-var 451}# #{ids 2285}#)))
- (let ((#{labels 2289}#
- (#{gen-labels 358}# #{ids 2285}#)))
+ (lambda (#{e 2281}#
+ #{r 2282}#
+ #{w 2283}#
+ #{s 2284}#
+ #{mod 2285}#
+ #{req 2286}#
+ #{rest 2287}#
+ #{meta 2288}#
+ #{body 2289}#)
+ (let ((#{ids 2301}#
+ (if #{rest 2287}#
+ (append #{req 2286}# (list #{rest 2287}#))
+ #{req 2286}#)))
+ (let ((#{vars 2303}#
+ (map #{gen-var 451}# #{ids 2301}#)))
+ (let ((#{labels 2305}#
+ (#{gen-labels 358}# #{ids 2301}#)))
(#{build-simple-lambda 285}#
- #{s 2268}#
- (map syntax->datum #{req 2270}#)
- (if #{rest 2271}#
- (syntax->datum #{rest 2271}#)
+ #{s 2284}#
+ (map syntax->datum #{req 2286}#)
+ (if #{rest 2287}#
+ (syntax->datum #{rest 2287}#)
#f)
- #{vars 2287}#
- #{meta 2272}#
+ #{vars 2303}#
+ #{meta 2288}#
(#{chi-body 431}#
- #{body 2273}#
+ #{body 2289}#
(#{source-wrap 411}#
- #{e 2265}#
- #{w 2267}#
- #{s 2268}#
- #{mod 2269}#)
+ #{e 2281}#
+ #{w 2283}#
+ #{s 2284}#
+ #{mod 2285}#)
(#{extend-var-env 333}#
- #{labels 2289}#
- #{vars 2287}#
- #{r 2266}#)
+ #{labels 2305}#
+ #{vars 2303}#
+ #{r 2282}#)
(#{make-binding-wrap 387}#
- #{ids 2285}#
- #{labels 2289}#
- #{w 2267}#)
- #{mod 2269}#)))))))
+ #{ids 2301}#
+ #{labels 2305}#
+ #{w 2283}#)
+ #{mod 2285}#)))))))
(#{lambda*-formals 445}#
- (lambda (#{orig-args 2292}#)
+ (lambda (#{orig-args 2308}#)
(letrec*
- ((#{req 2295}#
- (lambda (#{args 2304}# #{rreq 2305}#)
- (let ((#{tmp 2308}# #{args 2304}#))
- (let ((#{tmp 2309}# ($sc-dispatch #{tmp 2308}# '())))
- (if #{tmp 2309}#
+ ((#{req 2311}#
+ (lambda (#{args 2320}# #{rreq 2321}#)
+ (let ((#{tmp 2324}# #{args 2320}#))
+ (let ((#{tmp 2325}# ($sc-dispatch #{tmp 2324}# '())))
+ (if #{tmp 2325}#
(@apply
(lambda ()
- (#{check 2303}#
- (reverse #{rreq 2305}#)
+ (#{check 2319}#
+ (reverse #{rreq 2321}#)
'()
#f
'()))
- #{tmp 2309}#)
- (let ((#{tmp 2310}#
- ($sc-dispatch #{tmp 2308}# '(any . any))))
- (if (if #{tmp 2310}#
+ #{tmp 2325}#)
+ (let ((#{tmp 2326}#
+ ($sc-dispatch #{tmp 2324}# '(any . any))))
+ (if (if #{tmp 2326}#
(@apply
- (lambda (#{a 2313}# #{b 2314}#)
- (#{id? 343}# #{a 2313}#))
- #{tmp 2310}#)
+ (lambda (#{a 2329}# #{b 2330}#)
+ (#{id? 343}# #{a 2329}#))
+ #{tmp 2326}#)
#f)
(@apply
- (lambda (#{a 2317}# #{b 2318}#)
- (#{req 2295}#
- #{b 2318}#
- (cons #{a 2317}# #{rreq 2305}#)))
- #{tmp 2310}#)
- (let ((#{tmp 2319}#
- ($sc-dispatch #{tmp 2308}# '(any . any))))
- (if (if #{tmp 2319}#
+ (lambda (#{a 2333}# #{b 2334}#)
+ (#{req 2311}#
+ #{b 2334}#
+ (cons #{a 2333}# #{rreq 2321}#)))
+ #{tmp 2326}#)
+ (let ((#{tmp 2335}#
+ ($sc-dispatch #{tmp 2324}# '(any . any))))
+ (if (if #{tmp 2335}#
(@apply
- (lambda (#{a 2322}# #{b 2323}#)
- (eq? (syntax->datum #{a 2322}#)
+ (lambda (#{a 2338}# #{b 2339}#)
+ (eq? (syntax->datum #{a 2338}#)
#:optional))
- #{tmp 2319}#)
+ #{tmp 2335}#)
#f)
(@apply
- (lambda (#{a 2326}# #{b 2327}#)
- (#{opt 2297}#
- #{b 2327}#
- (reverse #{rreq 2305}#)
+ (lambda (#{a 2342}# #{b 2343}#)
+ (#{opt 2313}#
+ #{b 2343}#
+ (reverse #{rreq 2321}#)
'()))
- #{tmp 2319}#)
- (let ((#{tmp 2328}#
- ($sc-dispatch #{tmp 2308}# '(any . any))))
- (if (if #{tmp 2328}#
+ #{tmp 2335}#)
+ (let ((#{tmp 2344}#
+ ($sc-dispatch #{tmp 2324}# '(any . any))))
+ (if (if #{tmp 2344}#
(@apply
- (lambda (#{a 2331}# #{b 2332}#)
- (eq? (syntax->datum #{a 2331}#) #:key))
- #{tmp 2328}#)
+ (lambda (#{a 2347}# #{b 2348}#)
+ (eq? (syntax->datum #{a 2347}#) #:key))
+ #{tmp 2344}#)
#f)
(@apply
- (lambda (#{a 2335}# #{b 2336}#)
- (#{key 2299}#
- #{b 2336}#
- (reverse #{rreq 2305}#)
+ (lambda (#{a 2351}# #{b 2352}#)
+ (#{key 2315}#
+ #{b 2352}#
+ (reverse #{rreq 2321}#)
'()
'()))
- #{tmp 2328}#)
- (let ((#{tmp 2337}#
+ #{tmp 2344}#)
+ (let ((#{tmp 2353}#
($sc-dispatch
- #{tmp 2308}#
+ #{tmp 2324}#
'(any any))))
- (if (if #{tmp 2337}#
+ (if (if #{tmp 2353}#
(@apply
- (lambda (#{a 2340}# #{b 2341}#)
- (eq? (syntax->datum #{a 2340}#)
+ (lambda (#{a 2356}# #{b 2357}#)
+ (eq? (syntax->datum #{a 2356}#)
#:rest))
- #{tmp 2337}#)
+ #{tmp 2353}#)
#f)
(@apply
- (lambda (#{a 2344}# #{b 2345}#)
- (#{rest 2301}#
- #{b 2345}#
- (reverse #{rreq 2305}#)
+ (lambda (#{a 2360}# #{b 2361}#)
+ (#{rest 2317}#
+ #{b 2361}#
+ (reverse #{rreq 2321}#)
'()
'()))
- #{tmp 2337}#)
- (let ((#{tmp 2346}# (list #{tmp 2308}#)))
- (if (if #{tmp 2346}#
+ #{tmp 2353}#)
+ (let ((#{tmp 2362}# (list #{tmp 2324}#)))
+ (if (if #{tmp 2362}#
(@apply
- (lambda (#{r 2348}#)
- (#{id? 343}# #{r 2348}#))
- #{tmp 2346}#)
+ (lambda (#{r 2364}#)
+ (#{id? 343}# #{r 2364}#))
+ #{tmp 2362}#)
#f)
(@apply
- (lambda (#{r 2350}#)
- (#{rest 2301}#
- #{r 2350}#
- (reverse #{rreq 2305}#)
+ (lambda (#{r 2366}#)
+ (#{rest 2317}#
+ #{r 2366}#
+ (reverse #{rreq 2321}#)
'()
'()))
- #{tmp 2346}#)
- (let ((#{else 2352}# #{tmp 2308}#))
+ #{tmp 2362}#)
+ (let ((#{else 2368}# #{tmp 2324}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 2292}#
- #{args 2304}#)))))))))))))))))
- (#{opt 2297}#
- (lambda (#{args 2353}# #{req 2354}# #{ropt 2355}#)
- (let ((#{tmp 2359}# #{args 2353}#))
- (let ((#{tmp 2360}# ($sc-dispatch #{tmp 2359}# '())))
- (if #{tmp 2360}#
+ #{orig-args 2308}#
+ #{args 2320}#)))))))))))))))))
+ (#{opt 2313}#
+ (lambda (#{args 2369}# #{req 2370}# #{ropt 2371}#)
+ (let ((#{tmp 2375}# #{args 2369}#))
+ (let ((#{tmp 2376}# ($sc-dispatch #{tmp 2375}# '())))
+ (if #{tmp 2376}#
(@apply
(lambda ()
- (#{check 2303}#
- #{req 2354}#
- (reverse #{ropt 2355}#)
+ (#{check 2319}#
+ #{req 2370}#
+ (reverse #{ropt 2371}#)
#f
'()))
- #{tmp 2360}#)
- (let ((#{tmp 2361}#
- ($sc-dispatch #{tmp 2359}# '(any . any))))
- (if (if #{tmp 2361}#
+ #{tmp 2376}#)
+ (let ((#{tmp 2377}#
+ ($sc-dispatch #{tmp 2375}# '(any . any))))
+ (if (if #{tmp 2377}#
(@apply
- (lambda (#{a 2364}# #{b 2365}#)
- (#{id? 343}# #{a 2364}#))
- #{tmp 2361}#)
+ (lambda (#{a 2380}# #{b 2381}#)
+ (#{id? 343}# #{a 2380}#))
+ #{tmp 2377}#)
#f)
(@apply
- (lambda (#{a 2368}# #{b 2369}#)
- (#{opt 2297}#
- #{b 2369}#
- #{req 2354}#
- (cons (cons #{a 2368}#
+ (lambda (#{a 2384}# #{b 2385}#)
+ (#{opt 2313}#
+ #{b 2385}#
+ #{req 2370}#
+ (cons (cons #{a 2384}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2366" "i2367"))
+ #("i2382" "i2383"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2356" "i2357" "i2358"))
+ #("i2372" "i2373" "i2374"))
#(ribcage
(check rest key opt req)
((top)
@@ -6873,15 +5145,15 @@
(top)
(top)
(top))
- ("i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"))
+ ("i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"))
#(ribcage
#(orig-args)
#((top))
- #("i2293"))
+ #("i2309"))
#(ribcage
(lambda-var-list
gen-var
@@ -7304,118 +5576,118 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))))
- #{ropt 2355}#)))
- #{tmp 2361}#)
- (let ((#{tmp 2370}#
+ #{ropt 2371}#)))
+ #{tmp 2377}#)
+ (let ((#{tmp 2386}#
($sc-dispatch
- #{tmp 2359}#
+ #{tmp 2375}#
'((any any) . any))))
- (if (if #{tmp 2370}#
+ (if (if #{tmp 2386}#
(@apply
- (lambda (#{a 2374}# #{init 2375}# #{b 2376}#)
- (#{id? 343}# #{a 2374}#))
- #{tmp 2370}#)
+ (lambda (#{a 2390}# #{init 2391}# #{b 2392}#)
+ (#{id? 343}# #{a 2390}#))
+ #{tmp 2386}#)
#f)
(@apply
- (lambda (#{a 2380}# #{init 2381}# #{b 2382}#)
- (#{opt 2297}#
- #{b 2382}#
- #{req 2354}#
- (cons (list #{a 2380}# #{init 2381}#)
- #{ropt 2355}#)))
- #{tmp 2370}#)
- (let ((#{tmp 2383}#
- ($sc-dispatch #{tmp 2359}# '(any . any))))
- (if (if #{tmp 2383}#
+ (lambda (#{a 2396}# #{init 2397}# #{b 2398}#)
+ (#{opt 2313}#
+ #{b 2398}#
+ #{req 2370}#
+ (cons (list #{a 2396}# #{init 2397}#)
+ #{ropt 2371}#)))
+ #{tmp 2386}#)
+ (let ((#{tmp 2399}#
+ ($sc-dispatch #{tmp 2375}# '(any . any))))
+ (if (if #{tmp 2399}#
(@apply
- (lambda (#{a 2386}# #{b 2387}#)
- (eq? (syntax->datum #{a 2386}#) #:key))
- #{tmp 2383}#)
+ (lambda (#{a 2402}# #{b 2403}#)
+ (eq? (syntax->datum #{a 2402}#) #:key))
+ #{tmp 2399}#)
#f)
(@apply
- (lambda (#{a 2390}# #{b 2391}#)
- (#{key 2299}#
- #{b 2391}#
- #{req 2354}#
- (reverse #{ropt 2355}#)
+ (lambda (#{a 2406}# #{b 2407}#)
+ (#{key 2315}#
+ #{b 2407}#
+ #{req 2370}#
+ (reverse #{ropt 2371}#)
'()))
- #{tmp 2383}#)
- (let ((#{tmp 2392}#
+ #{tmp 2399}#)
+ (let ((#{tmp 2408}#
($sc-dispatch
- #{tmp 2359}#
+ #{tmp 2375}#
'(any any))))
- (if (if #{tmp 2392}#
+ (if (if #{tmp 2408}#
(@apply
- (lambda (#{a 2395}# #{b 2396}#)
- (eq? (syntax->datum #{a 2395}#)
+ (lambda (#{a 2411}# #{b 2412}#)
+ (eq? (syntax->datum #{a 2411}#)
#:rest))
- #{tmp 2392}#)
+ #{tmp 2408}#)
#f)
(@apply
- (lambda (#{a 2399}# #{b 2400}#)
- (#{rest 2301}#
- #{b 2400}#
- #{req 2354}#
- (reverse #{ropt 2355}#)
+ (lambda (#{a 2415}# #{b 2416}#)
+ (#{rest 2317}#
+ #{b 2416}#
+ #{req 2370}#
+ (reverse #{ropt 2371}#)
'()))
- #{tmp 2392}#)
- (let ((#{tmp 2401}# (list #{tmp 2359}#)))
- (if (if #{tmp 2401}#
+ #{tmp 2408}#)
+ (let ((#{tmp 2417}# (list #{tmp 2375}#)))
+ (if (if #{tmp 2417}#
(@apply
- (lambda (#{r 2403}#)
- (#{id? 343}# #{r 2403}#))
- #{tmp 2401}#)
+ (lambda (#{r 2419}#)
+ (#{id? 343}# #{r 2419}#))
+ #{tmp 2417}#)
#f)
(@apply
- (lambda (#{r 2405}#)
- (#{rest 2301}#
- #{r 2405}#
- #{req 2354}#
- (reverse #{ropt 2355}#)
+ (lambda (#{r 2421}#)
+ (#{rest 2317}#
+ #{r 2421}#
+ #{req 2370}#
+ (reverse #{ropt 2371}#)
'()))
- #{tmp 2401}#)
- (let ((#{else 2407}# #{tmp 2359}#))
+ #{tmp 2417}#)
+ (let ((#{else 2423}# #{tmp 2375}#))
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 2292}#
- #{args 2353}#)))))))))))))))))
- (#{key 2299}#
- (lambda (#{args 2408}#
- #{req 2409}#
- #{opt 2410}#
- #{rkey 2411}#)
- (let ((#{tmp 2416}# #{args 2408}#))
- (let ((#{tmp 2417}# ($sc-dispatch #{tmp 2416}# '())))
- (if #{tmp 2417}#
+ #{orig-args 2308}#
+ #{args 2369}#)))))))))))))))))
+ (#{key 2315}#
+ (lambda (#{args 2424}#
+ #{req 2425}#
+ #{opt 2426}#
+ #{rkey 2427}#)
+ (let ((#{tmp 2432}# #{args 2424}#))
+ (let ((#{tmp 2433}# ($sc-dispatch #{tmp 2432}# '())))
+ (if #{tmp 2433}#
(@apply
(lambda ()
- (#{check 2303}#
- #{req 2409}#
- #{opt 2410}#
+ (#{check 2319}#
+ #{req 2425}#
+ #{opt 2426}#
#f
- (cons #f (reverse #{rkey 2411}#))))
- #{tmp 2417}#)
- (let ((#{tmp 2418}#
- ($sc-dispatch #{tmp 2416}# '(any . any))))
- (if (if #{tmp 2418}#
+ (cons #f (reverse #{rkey 2427}#))))
+ #{tmp 2433}#)
+ (let ((#{tmp 2434}#
+ ($sc-dispatch #{tmp 2432}# '(any . any))))
+ (if (if #{tmp 2434}#
(@apply
- (lambda (#{a 2421}# #{b 2422}#)
- (#{id? 343}# #{a 2421}#))
- #{tmp 2418}#)
+ (lambda (#{a 2437}# #{b 2438}#)
+ (#{id? 343}# #{a 2437}#))
+ #{tmp 2434}#)
#f)
(@apply
- (lambda (#{a 2425}# #{b 2426}#)
- (let ((#{tmp 2428}#
+ (lambda (#{a 2441}# #{b 2442}#)
+ (let ((#{tmp 2444}#
(symbol->keyword
- (syntax->datum #{a 2425}#))))
- (let ((#{k 2430}# #{tmp 2428}#))
- (#{key 2299}#
- #{b 2426}#
- #{req 2409}#
- #{opt 2410}#
- (cons (cons #{k 2430}#
- (cons #{a 2425}#
+ (syntax->datum #{a 2441}#))))
+ (let ((#{k 2446}# #{tmp 2444}#))
+ (#{key 2315}#
+ #{b 2442}#
+ #{req 2425}#
+ #{opt 2426}#
+ (cons (cons #{k 2446}#
+ (cons #{a 2441}#
'(#(syntax-object
#f
((top)
@@ -7423,11 +5695,11 @@
#(ribcage
#(k)
#((top))
- #("i2429"))
+ #("i2445"))
#(ribcage
#(a b)
#((top) (top))
- #("i2423" "i2424"))
+ #("i2439" "i2440"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7435,10 +5707,10 @@
(top)
(top)
(top))
- #("i2412"
- "i2413"
- "i2414"
- "i2415"))
+ #("i2428"
+ "i2429"
+ "i2430"
+ "i2431"))
#(ribcage
(check rest
key
@@ -7449,15 +5721,15 @@
(top)
(top)
(top))
- ("i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"))
+ ("i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"))
#(ribcage
#(orig-args)
#((top))
- #("i2293"))
+ #("i2309"))
#(ribcage
(lambda-var-list
gen-var
@@ -7882,680 +6154,680 @@
"i39"
"i38")))
(hygiene guile)))))
- #{rkey 2411}#)))))
- #{tmp 2418}#)
- (let ((#{tmp 2431}#
+ #{rkey 2427}#)))))
+ #{tmp 2434}#)
+ (let ((#{tmp 2447}#
($sc-dispatch
- #{tmp 2416}#
+ #{tmp 2432}#
'((any any) . any))))
- (if (if #{tmp 2431}#
+ (if (if #{tmp 2447}#
(@apply
- (lambda (#{a 2435}# #{init 2436}# #{b 2437}#)
- (#{id? 343}# #{a 2435}#))
- #{tmp 2431}#)
+ (lambda (#{a 2451}# #{init 2452}# #{b 2453}#)
+ (#{id? 343}# #{a 2451}#))
+ #{tmp 2447}#)
#f)
(@apply
- (lambda (#{a 2441}# #{init 2442}# #{b 2443}#)
- (let ((#{tmp 2445}#
+ (lambda (#{a 2457}# #{init 2458}# #{b 2459}#)
+ (let ((#{tmp 2461}#
(symbol->keyword
- (syntax->datum #{a 2441}#))))
- (let ((#{k 2447}# #{tmp 2445}#))
- (#{key 2299}#
- #{b 2443}#
- #{req 2409}#
- #{opt 2410}#
- (cons (list #{k 2447}#
- #{a 2441}#
- #{init 2442}#)
- #{rkey 2411}#)))))
- #{tmp 2431}#)
- (let ((#{tmp 2448}#
+ (syntax->datum #{a 2457}#))))
+ (let ((#{k 2463}# #{tmp 2461}#))
+ (#{key 2315}#
+ #{b 2459}#
+ #{req 2425}#
+ #{opt 2426}#
+ (cons (list #{k 2463}#
+ #{a 2457}#
+ #{init 2458}#)
+ #{rkey 2427}#)))))
+ #{tmp 2447}#)
+ (let ((#{tmp 2464}#
($sc-dispatch
- #{tmp 2416}#
+ #{tmp 2432}#
'((any any any) . any))))
- (if (if #{tmp 2448}#
+ (if (if #{tmp 2464}#
(@apply
- (lambda (#{a 2453}#
- #{init 2454}#
- #{k 2455}#
- #{b 2456}#)
- (if (#{id? 343}# #{a 2453}#)
- (keyword? (syntax->datum #{k 2455}#))
+ (lambda (#{a 2469}#
+ #{init 2470}#
+ #{k 2471}#
+ #{b 2472}#)
+ (if (#{id? 343}# #{a 2469}#)
+ (keyword? (syntax->datum #{k 2471}#))
#f))
- #{tmp 2448}#)
+ #{tmp 2464}#)
#f)
(@apply
- (lambda (#{a 2463}#
- #{init 2464}#
- #{k 2465}#
- #{b 2466}#)
- (#{key 2299}#
- #{b 2466}#
- #{req 2409}#
- #{opt 2410}#
- (cons (list #{k 2465}#
- #{a 2463}#
- #{init 2464}#)
- #{rkey 2411}#)))
- #{tmp 2448}#)
- (let ((#{tmp 2467}#
- ($sc-dispatch #{tmp 2416}# '(any))))
- (if (if #{tmp 2467}#
+ (lambda (#{a 2479}#
+ #{init 2480}#
+ #{k 2481}#
+ #{b 2482}#)
+ (#{key 2315}#
+ #{b 2482}#
+ #{req 2425}#
+ #{opt 2426}#
+ (cons (list #{k 2481}#
+ #{a 2479}#
+ #{init 2480}#)
+ #{rkey 2427}#)))
+ #{tmp 2464}#)
+ (let ((#{tmp 2483}#
+ ($sc-dispatch #{tmp 2432}# '(any))))
+ (if (if #{tmp 2483}#
(@apply
- (lambda (#{aok 2469}#)
- (eq? (syntax->datum #{aok 2469}#)
+ (lambda (#{aok 2485}#)
+ (eq? (syntax->datum #{aok 2485}#)
#:allow-other-keys))
- #{tmp 2467}#)
+ #{tmp 2483}#)
#f)
(@apply
- (lambda (#{aok 2471}#)
- (#{check 2303}#
- #{req 2409}#
- #{opt 2410}#
+ (lambda (#{aok 2487}#)
+ (#{check 2319}#
+ #{req 2425}#
+ #{opt 2426}#
#f
- (cons #t (reverse #{rkey 2411}#))))
- #{tmp 2467}#)
- (let ((#{tmp 2472}#
+ (cons #t (reverse #{rkey 2427}#))))
+ #{tmp 2483}#)
+ (let ((#{tmp 2488}#
($sc-dispatch
- #{tmp 2416}#
+ #{tmp 2432}#
'(any any any))))
- (if (if #{tmp 2472}#
+ (if (if #{tmp 2488}#
(@apply
- (lambda (#{aok 2476}#
- #{a 2477}#
- #{b 2478}#)
+ (lambda (#{aok 2492}#
+ #{a 2493}#
+ #{b 2494}#)
(if (eq? (syntax->datum
- #{aok 2476}#)
+ #{aok 2492}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 2477}#)
+ #{a 2493}#)
#:rest)
#f))
- #{tmp 2472}#)
+ #{tmp 2488}#)
#f)
(@apply
- (lambda (#{aok 2484}#
- #{a 2485}#
- #{b 2486}#)
- (#{rest 2301}#
- #{b 2486}#
- #{req 2409}#
- #{opt 2410}#
+ (lambda (#{aok 2500}#
+ #{a 2501}#
+ #{b 2502}#)
+ (#{rest 2317}#
+ #{b 2502}#
+ #{req 2425}#
+ #{opt 2426}#
(cons #t
- (reverse #{rkey 2411}#))))
- #{tmp 2472}#)
- (let ((#{tmp 2487}#
+ (reverse #{rkey 2427}#))))
+ #{tmp 2488}#)
+ (let ((#{tmp 2503}#
($sc-dispatch
- #{tmp 2416}#
+ #{tmp 2432}#
'(any . any))))
- (if (if #{tmp 2487}#
+ (if (if #{tmp 2503}#
(@apply
- (lambda (#{aok 2490}#
- #{r 2491}#)
+ (lambda (#{aok 2506}#
+ #{r 2507}#)
(if (eq? (syntax->datum
- #{aok 2490}#)
+ #{aok 2506}#)
#:allow-other-keys)
- (#{id? 343}# #{r 2491}#)
+ (#{id? 343}# #{r 2507}#)
#f))
- #{tmp 2487}#)
+ #{tmp 2503}#)
#f)
(@apply
- (lambda (#{aok 2496}# #{r 2497}#)
- (#{rest 2301}#
- #{r 2497}#
- #{req 2409}#
- #{opt 2410}#
+ (lambda (#{aok 2512}# #{r 2513}#)
+ (#{rest 2317}#
+ #{r 2513}#
+ #{req 2425}#
+ #{opt 2426}#
(cons #t
(reverse
- #{rkey 2411}#))))
- #{tmp 2487}#)
- (let ((#{tmp 2498}#
+ #{rkey 2427}#))))
+ #{tmp 2503}#)
+ (let ((#{tmp 2514}#
($sc-dispatch
- #{tmp 2416}#
+ #{tmp 2432}#
'(any any))))
- (if (if #{tmp 2498}#
+ (if (if #{tmp 2514}#
(@apply
- (lambda (#{a 2501}#
- #{b 2502}#)
+ (lambda (#{a 2517}#
+ #{b 2518}#)
(eq? (syntax->datum
- #{a 2501}#)
+ #{a 2517}#)
#:rest))
- #{tmp 2498}#)
+ #{tmp 2514}#)
#f)
(@apply
- (lambda (#{a 2505}#
- #{b 2506}#)
- (#{rest 2301}#
- #{b 2506}#
- #{req 2409}#
- #{opt 2410}#
+ (lambda (#{a 2521}#
+ #{b 2522}#)
+ (#{rest 2317}#
+ #{b 2522}#
+ #{req 2425}#
+ #{opt 2426}#
(cons #f
(reverse
- #{rkey 2411}#))))
- #{tmp 2498}#)
- (let ((#{tmp 2507}#
- (list #{tmp 2416}#)))
- (if (if #{tmp 2507}#
+ #{rkey 2427}#))))
+ #{tmp 2514}#)
+ (let ((#{tmp 2523}#
+ (list #{tmp 2432}#)))
+ (if (if #{tmp 2523}#
(@apply
- (lambda (#{r 2509}#)
+ (lambda (#{r 2525}#)
(#{id? 343}#
- #{r 2509}#))
- #{tmp 2507}#)
+ #{r 2525}#))
+ #{tmp 2523}#)
#f)
(@apply
- (lambda (#{r 2511}#)
- (#{rest 2301}#
- #{r 2511}#
- #{req 2409}#
- #{opt 2410}#
+ (lambda (#{r 2527}#)
+ (#{rest 2317}#
+ #{r 2527}#
+ #{req 2425}#
+ #{opt 2426}#
(cons #f
(reverse
- #{rkey 2411}#))))
- #{tmp 2507}#)
- (let ((#{else 2513}#
- #{tmp 2416}#))
+ #{rkey 2427}#))))
+ #{tmp 2523}#)
+ (let ((#{else 2529}#
+ #{tmp 2432}#))
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 2292}#
- #{args 2408}#)))))))))))))))))))))))
- (#{rest 2301}#
- (lambda (#{args 2514}#
- #{req 2515}#
- #{opt 2516}#
- #{kw 2517}#)
- (let ((#{tmp 2522}# #{args 2514}#))
- (let ((#{tmp 2523}# (list #{tmp 2522}#)))
- (if (if #{tmp 2523}#
+ #{orig-args 2308}#
+ #{args 2424}#)))))))))))))))))))))))
+ (#{rest 2317}#
+ (lambda (#{args 2530}#
+ #{req 2531}#
+ #{opt 2532}#
+ #{kw 2533}#)
+ (let ((#{tmp 2538}# #{args 2530}#))
+ (let ((#{tmp 2539}# (list #{tmp 2538}#)))
+ (if (if #{tmp 2539}#
(@apply
- (lambda (#{r 2525}#) (#{id? 343}# #{r 2525}#))
- #{tmp 2523}#)
+ (lambda (#{r 2541}#) (#{id? 343}# #{r 2541}#))
+ #{tmp 2539}#)
#f)
(@apply
- (lambda (#{r 2527}#)
- (#{check 2303}#
- #{req 2515}#
- #{opt 2516}#
- #{r 2527}#
- #{kw 2517}#))
- #{tmp 2523}#)
- (let ((#{else 2529}# #{tmp 2522}#))
+ (lambda (#{r 2543}#)
+ (#{check 2319}#
+ #{req 2531}#
+ #{opt 2532}#
+ #{r 2543}#
+ #{kw 2533}#))
+ #{tmp 2539}#)
+ (let ((#{else 2545}# #{tmp 2538}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 2292}#
- #{args 2514}#)))))))
- (#{check 2303}#
- (lambda (#{req 2530}#
- #{opt 2531}#
- #{rest 2532}#
- #{kw 2533}#)
+ #{orig-args 2308}#
+ #{args 2530}#)))))))
+ (#{check 2319}#
+ (lambda (#{req 2546}#
+ #{opt 2547}#
+ #{rest 2548}#
+ #{kw 2549}#)
(if (#{distinct-bound-ids? 405}#
(append
- #{req 2530}#
- (map car #{opt 2531}#)
- (if #{rest 2532}# (list #{rest 2532}#) '())
- (if (pair? #{kw 2533}#)
- (map cadr (cdr #{kw 2533}#))
+ #{req 2546}#
+ (map car #{opt 2547}#)
+ (if #{rest 2548}# (list #{rest 2548}#) '())
+ (if (pair? #{kw 2549}#)
+ (map cadr (cdr #{kw 2549}#))
'())))
(values
- #{req 2530}#
- #{opt 2531}#
- #{rest 2532}#
- #{kw 2533}#)
+ #{req 2546}#
+ #{opt 2547}#
+ #{rest 2548}#
+ #{kw 2549}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 2292}#)))))
- (#{req 2295}# #{orig-args 2292}# '()))))
+ #{orig-args 2308}#)))))
+ (#{req 2311}# #{orig-args 2308}# '()))))
(#{chi-lambda-case 447}#
- (lambda (#{e 2541}#
- #{r 2542}#
- #{w 2543}#
- #{s 2544}#
- #{mod 2545}#
- #{get-formals 2546}#
- #{clauses 2547}#)
+ (lambda (#{e 2557}#
+ #{r 2558}#
+ #{w 2559}#
+ #{s 2560}#
+ #{mod 2561}#
+ #{get-formals 2562}#
+ #{clauses 2563}#)
(letrec*
- ((#{expand-req 2556}#
- (lambda (#{req 2563}#
- #{opt 2564}#
- #{rest 2565}#
- #{kw 2566}#
- #{body 2567}#)
- (let ((#{vars 2575}#
- (map #{gen-var 451}# #{req 2563}#))
- (#{labels 2576}#
- (#{gen-labels 358}# #{req 2563}#)))
- (let ((#{r* 2579}#
+ ((#{expand-req 2572}#
+ (lambda (#{req 2579}#
+ #{opt 2580}#
+ #{rest 2581}#
+ #{kw 2582}#
+ #{body 2583}#)
+ (let ((#{vars 2591}#
+ (map #{gen-var 451}# #{req 2579}#))
+ (#{labels 2592}#
+ (#{gen-labels 358}# #{req 2579}#)))
+ (let ((#{r* 2595}#
(#{extend-var-env 333}#
- #{labels 2576}#
- #{vars 2575}#
- #{r 2542}#))
- (#{w* 2580}#
+ #{labels 2592}#
+ #{vars 2591}#
+ #{r 2558}#))
+ (#{w* 2596}#
(#{make-binding-wrap 387}#
- #{req 2563}#
- #{labels 2576}#
- #{w 2543}#)))
- (#{expand-opt 2558}#
- (map syntax->datum #{req 2563}#)
- #{opt 2564}#
- #{rest 2565}#
- #{kw 2566}#
- #{body 2567}#
- (reverse #{vars 2575}#)
- #{r* 2579}#
- #{w* 2580}#
+ #{req 2579}#
+ #{labels 2592}#
+ #{w 2559}#)))
+ (#{expand-opt 2574}#
+ (map syntax->datum #{req 2579}#)
+ #{opt 2580}#
+ #{rest 2581}#
+ #{kw 2582}#
+ #{body 2583}#
+ (reverse #{vars 2591}#)
+ #{r* 2595}#
+ #{w* 2596}#
'()
'())))))
- (#{expand-opt 2558}#
- (lambda (#{req 2581}#
- #{opt 2582}#
- #{rest 2583}#
- #{kw 2584}#
- #{body 2585}#
- #{vars 2586}#
- #{r* 2587}#
- #{w* 2588}#
- #{out 2589}#
- #{inits 2590}#)
- (if (pair? #{opt 2582}#)
- (let ((#{tmp 2603}# (car #{opt 2582}#)))
- (let ((#{tmp 2604}#
- ($sc-dispatch #{tmp 2603}# '(any any))))
- (if #{tmp 2604}#
+ (#{expand-opt 2574}#
+ (lambda (#{req 2597}#
+ #{opt 2598}#
+ #{rest 2599}#
+ #{kw 2600}#
+ #{body 2601}#
+ #{vars 2602}#
+ #{r* 2603}#
+ #{w* 2604}#
+ #{out 2605}#
+ #{inits 2606}#)
+ (if (pair? #{opt 2598}#)
+ (let ((#{tmp 2619}# (car #{opt 2598}#)))
+ (let ((#{tmp 2620}#
+ ($sc-dispatch #{tmp 2619}# '(any any))))
+ (if #{tmp 2620}#
(@apply
- (lambda (#{id 2607}# #{i 2608}#)
- (let ((#{v 2611}# (#{gen-var 451}# #{id 2607}#)))
- (let ((#{l 2613}#
- (#{gen-labels 358}# (list #{v 2611}#))))
- (let ((#{r** 2615}#
+ (lambda (#{id 2623}# #{i 2624}#)
+ (let ((#{v 2627}# (#{gen-var 451}# #{id 2623}#)))
+ (let ((#{l 2629}#
+ (#{gen-labels 358}# (list #{v 2627}#))))
+ (let ((#{r** 2631}#
(#{extend-var-env 333}#
- #{l 2613}#
- (list #{v 2611}#)
- #{r* 2587}#)))
- (let ((#{w** 2617}#
+ #{l 2629}#
+ (list #{v 2627}#)
+ #{r* 2603}#)))
+ (let ((#{w** 2633}#
(#{make-binding-wrap 387}#
- (list #{id 2607}#)
- #{l 2613}#
- #{w* 2588}#)))
- (#{expand-opt 2558}#
- #{req 2581}#
- (cdr #{opt 2582}#)
- #{rest 2583}#
- #{kw 2584}#
- #{body 2585}#
- (cons #{v 2611}# #{vars 2586}#)
- #{r** 2615}#
- #{w** 2617}#
- (cons (syntax->datum #{id 2607}#)
- #{out 2589}#)
+ (list #{id 2623}#)
+ #{l 2629}#
+ #{w* 2604}#)))
+ (#{expand-opt 2574}#
+ #{req 2597}#
+ (cdr #{opt 2598}#)
+ #{rest 2599}#
+ #{kw 2600}#
+ #{body 2601}#
+ (cons #{v 2627}# #{vars 2602}#)
+ #{r** 2631}#
+ #{w** 2633}#
+ (cons (syntax->datum #{id 2623}#)
+ #{out 2605}#)
(cons (#{chi 423}#
- #{i 2608}#
- #{r* 2587}#
- #{w* 2588}#
- #{mod 2545}#)
- #{inits 2590}#)))))))
- #{tmp 2604}#)
+ #{i 2624}#
+ #{r* 2603}#
+ #{w* 2604}#
+ #{mod 2561}#)
+ #{inits 2606}#)))))))
+ #{tmp 2620}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2603}#))))
- (if #{rest 2583}#
- (let ((#{v 2622}# (#{gen-var 451}# #{rest 2583}#)))
- (let ((#{l 2624}#
- (#{gen-labels 358}# (list #{v 2622}#))))
- (let ((#{r* 2626}#
+ #{tmp 2619}#))))
+ (if #{rest 2599}#
+ (let ((#{v 2638}# (#{gen-var 451}# #{rest 2599}#)))
+ (let ((#{l 2640}#
+ (#{gen-labels 358}# (list #{v 2638}#))))
+ (let ((#{r* 2642}#
(#{extend-var-env 333}#
- #{l 2624}#
- (list #{v 2622}#)
- #{r* 2587}#)))
- (let ((#{w* 2628}#
+ #{l 2640}#
+ (list #{v 2638}#)
+ #{r* 2603}#)))
+ (let ((#{w* 2644}#
(#{make-binding-wrap 387}#
- (list #{rest 2583}#)
- #{l 2624}#
- #{w* 2588}#)))
- (#{expand-kw 2560}#
- #{req 2581}#
- (if (pair? #{out 2589}#)
- (reverse #{out 2589}#)
+ (list #{rest 2599}#)
+ #{l 2640}#
+ #{w* 2604}#)))
+ (#{expand-kw 2576}#
+ #{req 2597}#
+ (if (pair? #{out 2605}#)
+ (reverse #{out 2605}#)
#f)
- (syntax->datum #{rest 2583}#)
- (if (pair? #{kw 2584}#)
- (cdr #{kw 2584}#)
- #{kw 2584}#)
- #{body 2585}#
- (cons #{v 2622}# #{vars 2586}#)
- #{r* 2626}#
- #{w* 2628}#
- (if (pair? #{kw 2584}#) (car #{kw 2584}#) #f)
+ (syntax->datum #{rest 2599}#)
+ (if (pair? #{kw 2600}#)
+ (cdr #{kw 2600}#)
+ #{kw 2600}#)
+ #{body 2601}#
+ (cons #{v 2638}# #{vars 2602}#)
+ #{r* 2642}#
+ #{w* 2644}#
+ (if (pair? #{kw 2600}#) (car #{kw 2600}#) #f)
'()
- #{inits 2590}#)))))
- (#{expand-kw 2560}#
- #{req 2581}#
- (if (pair? #{out 2589}#)
- (reverse #{out 2589}#)
+ #{inits 2606}#)))))
+ (#{expand-kw 2576}#
+ #{req 2597}#
+ (if (pair? #{out 2605}#)
+ (reverse #{out 2605}#)
#f)
#f
- (if (pair? #{kw 2584}#)
- (cdr #{kw 2584}#)
- #{kw 2584}#)
- #{body 2585}#
- #{vars 2586}#
- #{r* 2587}#
- #{w* 2588}#
- (if (pair? #{kw 2584}#) (car #{kw 2584}#) #f)
+ (if (pair? #{kw 2600}#)
+ (cdr #{kw 2600}#)
+ #{kw 2600}#)
+ #{body 2601}#
+ #{vars 2602}#
+ #{r* 2603}#
+ #{w* 2604}#
+ (if (pair? #{kw 2600}#) (car #{kw 2600}#) #f)
'()
- #{inits 2590}#)))))
- (#{expand-kw 2560}#
- (lambda (#{req 2630}#
- #{opt 2631}#
- #{rest 2632}#
- #{kw 2633}#
- #{body 2634}#
- #{vars 2635}#
- #{r* 2636}#
- #{w* 2637}#
- #{aok 2638}#
- #{out 2639}#
- #{inits 2640}#)
- (if (pair? #{kw 2633}#)
- (let ((#{tmp 2654}# (car #{kw 2633}#)))
- (let ((#{tmp 2655}#
- ($sc-dispatch #{tmp 2654}# '(any any any))))
- (if #{tmp 2655}#
+ #{inits 2606}#)))))
+ (#{expand-kw 2576}#
+ (lambda (#{req 2646}#
+ #{opt 2647}#
+ #{rest 2648}#
+ #{kw 2649}#
+ #{body 2650}#
+ #{vars 2651}#
+ #{r* 2652}#
+ #{w* 2653}#
+ #{aok 2654}#
+ #{out 2655}#
+ #{inits 2656}#)
+ (if (pair? #{kw 2649}#)
+ (let ((#{tmp 2670}# (car #{kw 2649}#)))
+ (let ((#{tmp 2671}#
+ ($sc-dispatch #{tmp 2670}# '(any any any))))
+ (if #{tmp 2671}#
(@apply
- (lambda (#{k 2659}# #{id 2660}# #{i 2661}#)
- (let ((#{v 2664}# (#{gen-var 451}# #{id 2660}#)))
- (let ((#{l 2666}#
- (#{gen-labels 358}# (list #{v 2664}#))))
- (let ((#{r** 2668}#
+ (lambda (#{k 2675}# #{id 2676}# #{i 2677}#)
+ (let ((#{v 2680}# (#{gen-var 451}# #{id 2676}#)))
+ (let ((#{l 2682}#
+ (#{gen-labels 358}# (list #{v 2680}#))))
+ (let ((#{r** 2684}#
(#{extend-var-env 333}#
- #{l 2666}#
- (list #{v 2664}#)
- #{r* 2636}#)))
- (let ((#{w** 2670}#
+ #{l 2682}#
+ (list #{v 2680}#)
+ #{r* 2652}#)))
+ (let ((#{w** 2686}#
(#{make-binding-wrap 387}#
- (list #{id 2660}#)
- #{l 2666}#
- #{w* 2637}#)))
- (#{expand-kw 2560}#
- #{req 2630}#
- #{opt 2631}#
- #{rest 2632}#
- (cdr #{kw 2633}#)
- #{body 2634}#
- (cons #{v 2664}# #{vars 2635}#)
- #{r** 2668}#
- #{w** 2670}#
- #{aok 2638}#
- (cons (list (syntax->datum #{k 2659}#)
- (syntax->datum #{id 2660}#)
- #{v 2664}#)
- #{out 2639}#)
+ (list #{id 2676}#)
+ #{l 2682}#
+ #{w* 2653}#)))
+ (#{expand-kw 2576}#
+ #{req 2646}#
+ #{opt 2647}#
+ #{rest 2648}#
+ (cdr #{kw 2649}#)
+ #{body 2650}#
+ (cons #{v 2680}# #{vars 2651}#)
+ #{r** 2684}#
+ #{w** 2686}#
+ #{aok 2654}#
+ (cons (list (syntax->datum #{k 2675}#)
+ (syntax->datum #{id 2676}#)
+ #{v 2680}#)
+ #{out 2655}#)
(cons (#{chi 423}#
- #{i 2661}#
- #{r* 2636}#
- #{w* 2637}#
- #{mod 2545}#)
- #{inits 2640}#)))))))
- #{tmp 2655}#)
+ #{i 2677}#
+ #{r* 2652}#
+ #{w* 2653}#
+ #{mod 2561}#)
+ #{inits 2656}#)))))))
+ #{tmp 2671}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2654}#))))
- (#{expand-body 2562}#
- #{req 2630}#
- #{opt 2631}#
- #{rest 2632}#
- (if (let ((#{t 2674}# #{aok 2638}#))
- (if #{t 2674}# #{t 2674}# (pair? #{out 2639}#)))
- (cons #{aok 2638}# (reverse #{out 2639}#))
+ #{tmp 2670}#))))
+ (#{expand-body 2578}#
+ #{req 2646}#
+ #{opt 2647}#
+ #{rest 2648}#
+ (if (let ((#{t 2690}# #{aok 2654}#))
+ (if #{t 2690}# #{t 2690}# (pair? #{out 2655}#)))
+ (cons #{aok 2654}# (reverse #{out 2655}#))
#f)
- #{body 2634}#
- (reverse #{vars 2635}#)
- #{r* 2636}#
- #{w* 2637}#
- (reverse #{inits 2640}#)
+ #{body 2650}#
+ (reverse #{vars 2651}#)
+ #{r* 2652}#
+ #{w* 2653}#
+ (reverse #{inits 2656}#)
'()))))
- (#{expand-body 2562}#
- (lambda (#{req 2676}#
- #{opt 2677}#
- #{rest 2678}#
- #{kw 2679}#
- #{body 2680}#
- #{vars 2681}#
- #{r* 2682}#
- #{w* 2683}#
- #{inits 2684}#
- #{meta 2685}#)
- (let ((#{tmp 2696}# #{body 2680}#))
- (let ((#{tmp 2697}#
- ($sc-dispatch #{tmp 2696}# '(any any . each-any))))
- (if (if #{tmp 2697}#
+ (#{expand-body 2578}#
+ (lambda (#{req 2692}#
+ #{opt 2693}#
+ #{rest 2694}#
+ #{kw 2695}#
+ #{body 2696}#
+ #{vars 2697}#
+ #{r* 2698}#
+ #{w* 2699}#
+ #{inits 2700}#
+ #{meta 2701}#)
+ (let ((#{tmp 2712}# #{body 2696}#))
+ (let ((#{tmp 2713}#
+ ($sc-dispatch #{tmp 2712}# '(any any . each-any))))
+ (if (if #{tmp 2713}#
(@apply
- (lambda (#{docstring 2701}# #{e1 2702}# #{e2 2703}#)
- (string? (syntax->datum #{docstring 2701}#)))
- #{tmp 2697}#)
+ (lambda (#{docstring 2717}# #{e1 2718}# #{e2 2719}#)
+ (string? (syntax->datum #{docstring 2717}#)))
+ #{tmp 2713}#)
#f)
(@apply
- (lambda (#{docstring 2707}# #{e1 2708}# #{e2 2709}#)
- (#{expand-body 2562}#
- #{req 2676}#
- #{opt 2677}#
- #{rest 2678}#
- #{kw 2679}#
- (cons #{e1 2708}# #{e2 2709}#)
- #{vars 2681}#
- #{r* 2682}#
- #{w* 2683}#
- #{inits 2684}#
+ (lambda (#{docstring 2723}# #{e1 2724}# #{e2 2725}#)
+ (#{expand-body 2578}#
+ #{req 2692}#
+ #{opt 2693}#
+ #{rest 2694}#
+ #{kw 2695}#
+ (cons #{e1 2724}# #{e2 2725}#)
+ #{vars 2697}#
+ #{r* 2698}#
+ #{w* 2699}#
+ #{inits 2700}#
(append
- #{meta 2685}#
+ #{meta 2701}#
(list (cons 'documentation
- (syntax->datum #{docstring 2707}#))))))
- #{tmp 2697}#)
- (let ((#{tmp 2712}#
+ (syntax->datum #{docstring 2723}#))))))
+ #{tmp 2713}#)
+ (let ((#{tmp 2728}#
($sc-dispatch
- #{tmp 2696}#
+ #{tmp 2712}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 2712}#
+ (if #{tmp 2728}#
(@apply
- (lambda (#{k 2717}#
- #{v 2718}#
- #{e1 2719}#
- #{e2 2720}#)
- (#{expand-body 2562}#
- #{req 2676}#
- #{opt 2677}#
- #{rest 2678}#
- #{kw 2679}#
- (cons #{e1 2719}# #{e2 2720}#)
- #{vars 2681}#
- #{r* 2682}#
- #{w* 2683}#
- #{inits 2684}#
+ (lambda (#{k 2733}#
+ #{v 2734}#
+ #{e1 2735}#
+ #{e2 2736}#)
+ (#{expand-body 2578}#
+ #{req 2692}#
+ #{opt 2693}#
+ #{rest 2694}#
+ #{kw 2695}#
+ (cons #{e1 2735}# #{e2 2736}#)
+ #{vars 2697}#
+ #{r* 2698}#
+ #{w* 2699}#
+ #{inits 2700}#
(append
- #{meta 2685}#
+ #{meta 2701}#
(syntax->datum
- (map cons #{k 2717}# #{v 2718}#)))))
- #{tmp 2712}#)
- (let ((#{tmp 2724}#
- ($sc-dispatch #{tmp 2696}# '(any . each-any))))
- (if #{tmp 2724}#
+ (map cons #{k 2733}# #{v 2734}#)))))
+ #{tmp 2728}#)
+ (let ((#{tmp 2740}#
+ ($sc-dispatch #{tmp 2712}# '(any . each-any))))
+ (if #{tmp 2740}#
(@apply
- (lambda (#{e1 2727}# #{e2 2728}#)
+ (lambda (#{e1 2743}# #{e2 2744}#)
(values
- #{meta 2685}#
- #{req 2676}#
- #{opt 2677}#
- #{rest 2678}#
- #{kw 2679}#
- #{inits 2684}#
- #{vars 2681}#
+ #{meta 2701}#
+ #{req 2692}#
+ #{opt 2693}#
+ #{rest 2694}#
+ #{kw 2695}#
+ #{inits 2700}#
+ #{vars 2697}#
(#{chi-body 431}#
- (cons #{e1 2727}# #{e2 2728}#)
+ (cons #{e1 2743}# #{e2 2744}#)
(#{source-wrap 411}#
- #{e 2541}#
- #{w 2543}#
- #{s 2544}#
- #{mod 2545}#)
- #{r* 2682}#
- #{w* 2683}#
- #{mod 2545}#)))
- #{tmp 2724}#)
+ #{e 2557}#
+ #{w 2559}#
+ #{s 2560}#
+ #{mod 2561}#)
+ #{r* 2698}#
+ #{w* 2699}#
+ #{mod 2561}#)))
+ #{tmp 2740}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2696}#)))))))))))
- (let ((#{tmp 2730}# #{clauses 2547}#))
- (let ((#{tmp 2731}# ($sc-dispatch #{tmp 2730}# '())))
- (if #{tmp 2731}#
- (@apply (lambda () (values '() #f)) #{tmp 2731}#)
- (let ((#{tmp 2732}#
+ #{tmp 2712}#)))))))))))
+ (let ((#{tmp 2746}# #{clauses 2563}#))
+ (let ((#{tmp 2747}# ($sc-dispatch #{tmp 2746}# '())))
+ (if #{tmp 2747}#
+ (@apply (lambda () (values '() #f)) #{tmp 2747}#)
+ (let ((#{tmp 2748}#
($sc-dispatch
- #{tmp 2730}#
+ #{tmp 2746}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 2732}#
+ (if #{tmp 2748}#
(@apply
- (lambda (#{args 2739}#
- #{e1 2740}#
- #{e2 2741}#
- #{args* 2742}#
- #{e1* 2743}#
- #{e2* 2744}#)
+ (lambda (#{args 2755}#
+ #{e1 2756}#
+ #{e2 2757}#
+ #{args* 2758}#
+ #{e1* 2759}#
+ #{e2* 2760}#)
(call-with-values
- (lambda () (#{get-formals 2546}# #{args 2739}#))
- (lambda (#{req 2745}#
- #{opt 2746}#
- #{rest 2747}#
- #{kw 2748}#)
+ (lambda () (#{get-formals 2562}# #{args 2755}#))
+ (lambda (#{req 2761}#
+ #{opt 2762}#
+ #{rest 2763}#
+ #{kw 2764}#)
(call-with-values
(lambda ()
- (#{expand-req 2556}#
- #{req 2745}#
- #{opt 2746}#
- #{rest 2747}#
- #{kw 2748}#
- (cons #{e1 2740}# #{e2 2741}#)))
- (lambda (#{meta 2754}#
- #{req 2755}#
- #{opt 2756}#
- #{rest 2757}#
- #{kw 2758}#
- #{inits 2759}#
- #{vars 2760}#
- #{body 2761}#)
+ (#{expand-req 2572}#
+ #{req 2761}#
+ #{opt 2762}#
+ #{rest 2763}#
+ #{kw 2764}#
+ (cons #{e1 2756}# #{e2 2757}#)))
+ (lambda (#{meta 2770}#
+ #{req 2771}#
+ #{opt 2772}#
+ #{rest 2773}#
+ #{kw 2774}#
+ #{inits 2775}#
+ #{vars 2776}#
+ #{body 2777}#)
(call-with-values
(lambda ()
(#{chi-lambda-case 447}#
- #{e 2541}#
- #{r 2542}#
- #{w 2543}#
- #{s 2544}#
- #{mod 2545}#
- #{get-formals 2546}#
- (map (lambda (#{tmp 2772}#
- #{tmp 2771}#
- #{tmp 2770}#)
- (cons #{tmp 2770}#
- (cons #{tmp 2771}#
- #{tmp 2772}#)))
- #{e2* 2744}#
- #{e1* 2743}#
- #{args* 2742}#)))
- (lambda (#{meta* 2774}# #{else* 2775}#)
+ #{e 2557}#
+ #{r 2558}#
+ #{w 2559}#
+ #{s 2560}#
+ #{mod 2561}#
+ #{get-formals 2562}#
+ (map (lambda (#{tmp 2788}#
+ #{tmp 2787}#
+ #{tmp 2786}#)
+ (cons #{tmp 2786}#
+ (cons #{tmp 2787}#
+ #{tmp 2788}#)))
+ #{e2* 2760}#
+ #{e1* 2759}#
+ #{args* 2758}#)))
+ (lambda (#{meta* 2790}# #{else* 2791}#)
(values
- (append #{meta 2754}# #{meta* 2774}#)
+ (append #{meta 2770}# #{meta* 2790}#)
(#{build-lambda-case 289}#
- #{s 2544}#
- #{req 2755}#
- #{opt 2756}#
- #{rest 2757}#
- #{kw 2758}#
- #{inits 2759}#
- #{vars 2760}#
- #{body 2761}#
- #{else* 2775}#)))))))))
- #{tmp 2732}#)
+ #{s 2560}#
+ #{req 2771}#
+ #{opt 2772}#
+ #{rest 2773}#
+ #{kw 2774}#
+ #{inits 2775}#
+ #{vars 2776}#
+ #{body 2777}#
+ #{else* 2791}#)))))))))
+ #{tmp 2748}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2730}#)))))))))
+ #{tmp 2746}#)))))))))
(#{strip 449}#
- (lambda (#{x 2778}# #{w 2779}#)
- (if (memq 'top (car #{w 2779}#))
- #{x 2778}#
+ (lambda (#{x 2794}# #{w 2795}#)
+ (if (memq 'top (car #{w 2795}#))
+ #{x 2794}#
(letrec*
- ((#{f 2786}#
- (lambda (#{x 2787}#)
- (if (#{syntax-object? 309}# #{x 2787}#)
+ ((#{f 2802}#
+ (lambda (#{x 2803}#)
+ (if (#{syntax-object? 309}# #{x 2803}#)
(#{strip 449}#
- (#{syntax-object-expression 311}# #{x 2787}#)
- (#{syntax-object-wrap 313}# #{x 2787}#))
- (if (pair? #{x 2787}#)
- (let ((#{a 2794}# (#{f 2786}# (car #{x 2787}#)))
- (#{d 2795}# (#{f 2786}# (cdr #{x 2787}#))))
- (if (if (eq? #{a 2794}# (car #{x 2787}#))
- (eq? #{d 2795}# (cdr #{x 2787}#))
+ (#{syntax-object-expression 311}# #{x 2803}#)
+ (#{syntax-object-wrap 313}# #{x 2803}#))
+ (if (pair? #{x 2803}#)
+ (let ((#{a 2810}# (#{f 2802}# (car #{x 2803}#)))
+ (#{d 2811}# (#{f 2802}# (cdr #{x 2803}#))))
+ (if (if (eq? #{a 2810}# (car #{x 2803}#))
+ (eq? #{d 2811}# (cdr #{x 2803}#))
#f)
- #{x 2787}#
- (cons #{a 2794}# #{d 2795}#)))
- (if (vector? #{x 2787}#)
- (let ((#{old 2801}# (vector->list #{x 2787}#)))
- (let ((#{new 2803}# (map #{f 2786}# #{old 2801}#)))
+ #{x 2803}#
+ (cons #{a 2810}# #{d 2811}#)))
+ (if (vector? #{x 2803}#)
+ (let ((#{old 2817}# (vector->list #{x 2803}#)))
+ (let ((#{new 2819}# (map #{f 2802}# #{old 2817}#)))
(letrec*
- ((#{lp 2807}#
- (lambda (#{l1 2808}# #{l2 2809}#)
- (if (null? #{l1 2808}#)
- #{x 2787}#
- (if (eq? (car #{l1 2808}#)
- (car #{l2 2809}#))
- (#{lp 2807}#
- (cdr #{l1 2808}#)
- (cdr #{l2 2809}#))
- (list->vector #{new 2803}#))))))
- (#{lp 2807}# #{old 2801}# #{new 2803}#))))
- #{x 2787}#))))))
- (#{f 2786}# #{x 2778}#)))))
+ ((#{lp 2823}#
+ (lambda (#{l1 2824}# #{l2 2825}#)
+ (if (null? #{l1 2824}#)
+ #{x 2803}#
+ (if (eq? (car #{l1 2824}#)
+ (car #{l2 2825}#))
+ (#{lp 2823}#
+ (cdr #{l1 2824}#)
+ (cdr #{l2 2825}#))
+ (list->vector #{new 2819}#))))))
+ (#{lp 2823}# #{old 2817}# #{new 2819}#))))
+ #{x 2803}#))))))
+ (#{f 2802}# #{x 2794}#)))))
(#{gen-var 451}#
- (lambda (#{id 2811}#)
- (let ((#{id 2814}#
- (if (#{syntax-object? 309}# #{id 2811}#)
- (#{syntax-object-expression 311}# #{id 2811}#)
- #{id 2811}#)))
+ (lambda (#{id 2827}#)
+ (let ((#{id 2830}#
+ (if (#{syntax-object? 309}# #{id 2827}#)
+ (#{syntax-object-expression 311}# #{id 2827}#)
+ #{id 2827}#)))
(gensym
- (string-append (symbol->string #{id 2814}#) " ")))))
+ (string-append (symbol->string #{id 2830}#) " ")))))
(#{lambda-var-list 453}#
- (lambda (#{vars 2816}#)
+ (lambda (#{vars 2832}#)
(letrec*
- ((#{lvl 2822}#
- (lambda (#{vars 2823}# #{ls 2824}# #{w 2825}#)
- (if (pair? #{vars 2823}#)
- (#{lvl 2822}#
- (cdr #{vars 2823}#)
- (cons (#{wrap 409}# (car #{vars 2823}#) #{w 2825}# #f)
- #{ls 2824}#)
- #{w 2825}#)
- (if (#{id? 343}# #{vars 2823}#)
- (cons (#{wrap 409}# #{vars 2823}# #{w 2825}# #f)
- #{ls 2824}#)
- (if (null? #{vars 2823}#)
- #{ls 2824}#
- (if (#{syntax-object? 309}# #{vars 2823}#)
- (#{lvl 2822}#
- (#{syntax-object-expression 311}# #{vars 2823}#)
- #{ls 2824}#
+ ((#{lvl 2838}#
+ (lambda (#{vars 2839}# #{ls 2840}# #{w 2841}#)
+ (if (pair? #{vars 2839}#)
+ (#{lvl 2838}#
+ (cdr #{vars 2839}#)
+ (cons (#{wrap 409}# (car #{vars 2839}#) #{w 2841}# #f)
+ #{ls 2840}#)
+ #{w 2841}#)
+ (if (#{id? 343}# #{vars 2839}#)
+ (cons (#{wrap 409}# #{vars 2839}# #{w 2841}# #f)
+ #{ls 2840}#)
+ (if (null? #{vars 2839}#)
+ #{ls 2840}#
+ (if (#{syntax-object? 309}# #{vars 2839}#)
+ (#{lvl 2838}#
+ (#{syntax-object-expression 311}# #{vars 2839}#)
+ #{ls 2840}#
(#{join-wraps 391}#
- #{w 2825}#
- (#{syntax-object-wrap 313}# #{vars 2823}#)))
- (cons #{vars 2823}# #{ls 2824}#))))))))
- (#{lvl 2822}# #{vars 2816}# '() '(()))))))
+ #{w 2841}#
+ (#{syntax-object-wrap 313}# #{vars 2839}#)))
+ (cons #{vars 2839}# #{ls 2840}#))))))))
+ (#{lvl 2838}# #{vars 2832}# '() '(()))))))
(begin
(lambda (#{x 1163}# #{update 1164}#)
(vector-set! #{x 1163}# 1 #{update 1164}#))
@@ -8580,1158 +6852,1158 @@
(#{global-extend 339}#
'core
'fluid-let-syntax
- (lambda (#{e 2836}#
- #{r 2837}#
- #{w 2838}#
- #{s 2839}#
- #{mod 2840}#)
- (let ((#{tmp 2846}# #{e 2836}#))
- (let ((#{tmp 2847}#
+ (lambda (#{e 2852}#
+ #{r 2853}#
+ #{w 2854}#
+ #{s 2855}#
+ #{mod 2856}#)
+ (let ((#{tmp 2862}# #{e 2852}#))
+ (let ((#{tmp 2863}#
($sc-dispatch
- #{tmp 2846}#
+ #{tmp 2862}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2847}#
+ (if (if #{tmp 2863}#
(@apply
- (lambda (#{var 2852}#
- #{val 2853}#
- #{e1 2854}#
- #{e2 2855}#)
- (#{valid-bound-ids? 403}# #{var 2852}#))
- #{tmp 2847}#)
+ (lambda (#{var 2868}#
+ #{val 2869}#
+ #{e1 2870}#
+ #{e2 2871}#)
+ (#{valid-bound-ids? 403}# #{var 2868}#))
+ #{tmp 2863}#)
#f)
(@apply
- (lambda (#{var 2861}#
- #{val 2862}#
- #{e1 2863}#
- #{e2 2864}#)
- (let ((#{names 2866}#
- (map (lambda (#{x 2867}#)
- (#{id-var-name 397}# #{x 2867}# #{w 2838}#))
- #{var 2861}#)))
+ (lambda (#{var 2877}#
+ #{val 2878}#
+ #{e1 2879}#
+ #{e2 2880}#)
+ (let ((#{names 2882}#
+ (map (lambda (#{x 2883}#)
+ (#{id-var-name 397}# #{x 2883}# #{w 2854}#))
+ #{var 2877}#)))
(begin
(for-each
- (lambda (#{id 2870}# #{n 2871}#)
- (let ((#{atom-key 2876}#
+ (lambda (#{id 2886}# #{n 2887}#)
+ (let ((#{atom-key 2892}#
(car (#{lookup 337}#
- #{n 2871}#
- #{r 2837}#
- #{mod 2840}#))))
- (if (memv #{atom-key 2876}# '(displaced-lexical))
+ #{n 2887}#
+ #{r 2853}#
+ #{mod 2856}#))))
+ (if (memv #{atom-key 2892}# '(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 2836}#
+ #{e 2852}#
(#{source-wrap 411}#
- #{id 2870}#
- #{w 2838}#
- #{s 2839}#
- #{mod 2840}#)))))
- #{var 2861}#
- #{names 2866}#)
+ #{id 2886}#
+ #{w 2854}#
+ #{s 2855}#
+ #{mod 2856}#)))))
+ #{var 2877}#
+ #{names 2882}#)
(#{chi-body 431}#
- (cons #{e1 2863}# #{e2 2864}#)
+ (cons #{e1 2879}# #{e2 2880}#)
(#{source-wrap 411}#
- #{e 2836}#
- #{w 2838}#
- #{s 2839}#
- #{mod 2840}#)
+ #{e 2852}#
+ #{w 2854}#
+ #{s 2855}#
+ #{mod 2856}#)
(#{extend-env 331}#
- #{names 2866}#
- (let ((#{trans-r 2882}#
- (#{macros-only-env 335}# #{r 2837}#)))
- (map (lambda (#{x 2883}#)
+ #{names 2882}#
+ (let ((#{trans-r 2898}#
+ (#{macros-only-env 335}# #{r 2853}#)))
+ (map (lambda (#{x 2899}#)
(cons 'macro
(#{eval-local-transformer 435}#
(#{chi 423}#
- #{x 2883}#
- #{trans-r 2882}#
- #{w 2838}#
- #{mod 2840}#)
- #{mod 2840}#)))
- #{val 2862}#))
- #{r 2837}#)
- #{w 2838}#
- #{mod 2840}#))))
- #{tmp 2847}#)
- (let ((#{_ 2888}# #{tmp 2846}#))
+ #{x 2899}#
+ #{trans-r 2898}#
+ #{w 2854}#
+ #{mod 2856}#)
+ #{mod 2856}#)))
+ #{val 2878}#))
+ #{r 2853}#)
+ #{w 2854}#
+ #{mod 2856}#))))
+ #{tmp 2863}#)
+ (let ((#{_ 2904}# #{tmp 2862}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
(#{source-wrap 411}#
- #{e 2836}#
- #{w 2838}#
- #{s 2839}#
- #{mod 2840}#))))))))
+ #{e 2852}#
+ #{w 2854}#
+ #{s 2855}#
+ #{mod 2856}#))))))))
(#{global-extend 339}#
'core
'quote
- (lambda (#{e 2889}#
- #{r 2890}#
- #{w 2891}#
- #{s 2892}#
- #{mod 2893}#)
- (let ((#{tmp 2899}# #{e 2889}#))
- (let ((#{tmp 2900}#
- ($sc-dispatch #{tmp 2899}# '(_ any))))
- (if #{tmp 2900}#
+ (lambda (#{e 2905}#
+ #{r 2906}#
+ #{w 2907}#
+ #{s 2908}#
+ #{mod 2909}#)
+ (let ((#{tmp 2915}# #{e 2905}#))
+ (let ((#{tmp 2916}#
+ ($sc-dispatch #{tmp 2915}# '(_ any))))
+ (if #{tmp 2916}#
(@apply
- (lambda (#{e 2902}#)
+ (lambda (#{e 2918}#)
(#{build-data 295}#
- #{s 2892}#
- (#{strip 449}# #{e 2902}# #{w 2891}#)))
- #{tmp 2900}#)
- (let ((#{_ 2904}# #{tmp 2899}#))
+ #{s 2908}#
+ (#{strip 449}# #{e 2918}# #{w 2907}#)))
+ #{tmp 2916}#)
+ (let ((#{_ 2920}# #{tmp 2915}#))
(syntax-violation
'quote
"bad syntax"
(#{source-wrap 411}#
- #{e 2889}#
- #{w 2891}#
- #{s 2892}#
- #{mod 2893}#))))))))
+ #{e 2905}#
+ #{w 2907}#
+ #{s 2908}#
+ #{mod 2909}#))))))))
(#{global-extend 339}#
'core
'syntax
(letrec*
- ((#{gen-syntax 2906}#
- (lambda (#{src 2921}#
- #{e 2922}#
- #{r 2923}#
- #{maps 2924}#
- #{ellipsis? 2925}#
- #{mod 2926}#)
- (if (#{id? 343}# #{e 2922}#)
- (let ((#{label 2934}#
- (#{id-var-name 397}# #{e 2922}# '(()))))
- (let ((#{b 2937}#
+ ((#{gen-syntax 2922}#
+ (lambda (#{src 2937}#
+ #{e 2938}#
+ #{r 2939}#
+ #{maps 2940}#
+ #{ellipsis? 2941}#
+ #{mod 2942}#)
+ (if (#{id? 343}# #{e 2938}#)
+ (let ((#{label 2950}#
+ (#{id-var-name 397}# #{e 2938}# '(()))))
+ (let ((#{b 2953}#
(#{lookup 337}#
- #{label 2934}#
- #{r 2923}#
- #{mod 2926}#)))
- (if (eq? (car #{b 2937}#) 'syntax)
+ #{label 2950}#
+ #{r 2939}#
+ #{mod 2942}#)))
+ (if (eq? (car #{b 2953}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 2940}# (cdr #{b 2937}#)))
- (#{gen-ref 2908}#
- #{src 2921}#
- (car #{var.lev 2940}#)
- (cdr #{var.lev 2940}#)
- #{maps 2924}#)))
- (lambda (#{var 2942}# #{maps 2943}#)
- (values (list 'ref #{var 2942}#) #{maps 2943}#)))
- (if (#{ellipsis? 2925}# #{e 2922}#)
+ (let ((#{var.lev 2956}# (cdr #{b 2953}#)))
+ (#{gen-ref 2924}#
+ #{src 2937}#
+ (car #{var.lev 2956}#)
+ (cdr #{var.lev 2956}#)
+ #{maps 2940}#)))
+ (lambda (#{var 2958}# #{maps 2959}#)
+ (values (list 'ref #{var 2958}#) #{maps 2959}#)))
+ (if (#{ellipsis? 2941}# #{e 2938}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 2921}#)
- (values (list 'quote #{e 2922}#) #{maps 2924}#)))))
- (let ((#{tmp 2948}# #{e 2922}#))
- (let ((#{tmp 2949}#
- ($sc-dispatch #{tmp 2948}# '(any any))))
- (if (if #{tmp 2949}#
+ #{src 2937}#)
+ (values (list 'quote #{e 2938}#) #{maps 2940}#)))))
+ (let ((#{tmp 2964}# #{e 2938}#))
+ (let ((#{tmp 2965}#
+ ($sc-dispatch #{tmp 2964}# '(any any))))
+ (if (if #{tmp 2965}#
(@apply
- (lambda (#{dots 2952}# #{e 2953}#)
- (#{ellipsis? 2925}# #{dots 2952}#))
- #{tmp 2949}#)
+ (lambda (#{dots 2968}# #{e 2969}#)
+ (#{ellipsis? 2941}# #{dots 2968}#))
+ #{tmp 2965}#)
#f)
(@apply
- (lambda (#{dots 2956}# #{e 2957}#)
- (#{gen-syntax 2906}#
- #{src 2921}#
- #{e 2957}#
- #{r 2923}#
- #{maps 2924}#
- (lambda (#{x 2958}#) #f)
- #{mod 2926}#))
- #{tmp 2949}#)
- (let ((#{tmp 2960}#
- ($sc-dispatch #{tmp 2948}# '(any any . any))))
- (if (if #{tmp 2960}#
+ (lambda (#{dots 2972}# #{e 2973}#)
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ #{e 2973}#
+ #{r 2939}#
+ #{maps 2940}#
+ (lambda (#{x 2974}#) #f)
+ #{mod 2942}#))
+ #{tmp 2965}#)
+ (let ((#{tmp 2976}#
+ ($sc-dispatch #{tmp 2964}# '(any any . any))))
+ (if (if #{tmp 2976}#
(@apply
- (lambda (#{x 2964}# #{dots 2965}# #{y 2966}#)
- (#{ellipsis? 2925}# #{dots 2965}#))
- #{tmp 2960}#)
+ (lambda (#{x 2980}# #{dots 2981}# #{y 2982}#)
+ (#{ellipsis? 2941}# #{dots 2981}#))
+ #{tmp 2976}#)
#f)
(@apply
- (lambda (#{x 2970}# #{dots 2971}# #{y 2972}#)
+ (lambda (#{x 2986}# #{dots 2987}# #{y 2988}#)
(letrec*
- ((#{f 2976}#
- (lambda (#{y 2977}# #{k 2978}#)
- (let ((#{tmp 2985}# #{y 2977}#))
- (let ((#{tmp 2986}#
+ ((#{f 2992}#
+ (lambda (#{y 2993}# #{k 2994}#)
+ (let ((#{tmp 3001}# #{y 2993}#))
+ (let ((#{tmp 3002}#
($sc-dispatch
- #{tmp 2985}#
+ #{tmp 3001}#
'(any . any))))
- (if (if #{tmp 2986}#
+ (if (if #{tmp 3002}#
(@apply
- (lambda (#{dots 2989}#
- #{y 2990}#)
- (#{ellipsis? 2925}#
- #{dots 2989}#))
- #{tmp 2986}#)
+ (lambda (#{dots 3005}#
+ #{y 3006}#)
+ (#{ellipsis? 2941}#
+ #{dots 3005}#))
+ #{tmp 3002}#)
#f)
(@apply
- (lambda (#{dots 2993}# #{y 2994}#)
- (#{f 2976}#
- #{y 2994}#
- (lambda (#{maps 2995}#)
+ (lambda (#{dots 3009}# #{y 3010}#)
+ (#{f 2992}#
+ #{y 3010}#
+ (lambda (#{maps 3011}#)
(call-with-values
(lambda ()
- (#{k 2978}#
+ (#{k 2994}#
(cons '()
- #{maps 2995}#)))
- (lambda (#{x 2997}#
- #{maps 2998}#)
- (if (null? (car #{maps 2998}#))
+ #{maps 3011}#)))
+ (lambda (#{x 3013}#
+ #{maps 3014}#)
+ (if (null? (car #{maps 3014}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2921}#)
+ #{src 2937}#)
(values
- (#{gen-mappend 2910}#
- #{x 2997}#
- (car #{maps 2998}#))
- (cdr #{maps 2998}#))))))))
- #{tmp 2986}#)
- (let ((#{_ 3002}# #{tmp 2985}#))
+ (#{gen-mappend 2926}#
+ #{x 3013}#
+ (car #{maps 3014}#))
+ (cdr #{maps 3014}#))))))))
+ #{tmp 3002}#)
+ (let ((#{_ 3018}# #{tmp 3001}#))
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{src 2921}#
- #{y 2977}#
- #{r 2923}#
- #{maps 2924}#
- #{ellipsis? 2925}#
- #{mod 2926}#))
- (lambda (#{y 3003}#
- #{maps 3004}#)
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ #{y 2993}#
+ #{r 2939}#
+ #{maps 2940}#
+ #{ellipsis? 2941}#
+ #{mod 2942}#))
+ (lambda (#{y 3019}#
+ #{maps 3020}#)
(call-with-values
(lambda ()
- (#{k 2978}# #{maps 3004}#))
- (lambda (#{x 3007}#
- #{maps 3008}#)
+ (#{k 2994}# #{maps 3020}#))
+ (lambda (#{x 3023}#
+ #{maps 3024}#)
(values
- (#{gen-append 2916}#
- #{x 3007}#
- #{y 3003}#)
- #{maps 3008}#))))))))))))
- (#{f 2976}#
- #{y 2972}#
- (lambda (#{maps 2979}#)
+ (#{gen-append 2932}#
+ #{x 3023}#
+ #{y 3019}#)
+ #{maps 3024}#))))))))))))
+ (#{f 2992}#
+ #{y 2988}#
+ (lambda (#{maps 2995}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{src 2921}#
- #{x 2970}#
- #{r 2923}#
- (cons '() #{maps 2979}#)
- #{ellipsis? 2925}#
- #{mod 2926}#))
- (lambda (#{x 2981}# #{maps 2982}#)
- (if (null? (car #{maps 2982}#))
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ #{x 2986}#
+ #{r 2939}#
+ (cons '() #{maps 2995}#)
+ #{ellipsis? 2941}#
+ #{mod 2942}#))
+ (lambda (#{x 2997}# #{maps 2998}#)
+ (if (null? (car #{maps 2998}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2921}#)
+ #{src 2937}#)
(values
- (#{gen-map 2912}#
- #{x 2981}#
- (car #{maps 2982}#))
- (cdr #{maps 2982}#)))))))))
- #{tmp 2960}#)
- (let ((#{tmp 3011}#
- ($sc-dispatch #{tmp 2948}# '(any . any))))
- (if #{tmp 3011}#
+ (#{gen-map 2928}#
+ #{x 2997}#
+ (car #{maps 2998}#))
+ (cdr #{maps 2998}#)))))))))
+ #{tmp 2976}#)
+ (let ((#{tmp 3027}#
+ ($sc-dispatch #{tmp 2964}# '(any . any))))
+ (if #{tmp 3027}#
(@apply
- (lambda (#{x 3014}# #{y 3015}#)
+ (lambda (#{x 3030}# #{y 3031}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{src 2921}#
- #{x 3014}#
- #{r 2923}#
- #{maps 2924}#
- #{ellipsis? 2925}#
- #{mod 2926}#))
- (lambda (#{x 3016}# #{maps 3017}#)
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ #{x 3030}#
+ #{r 2939}#
+ #{maps 2940}#
+ #{ellipsis? 2941}#
+ #{mod 2942}#))
+ (lambda (#{x 3032}# #{maps 3033}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{src 2921}#
- #{y 3015}#
- #{r 2923}#
- #{maps 3017}#
- #{ellipsis? 2925}#
- #{mod 2926}#))
- (lambda (#{y 3020}# #{maps 3021}#)
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ #{y 3031}#
+ #{r 2939}#
+ #{maps 3033}#
+ #{ellipsis? 2941}#
+ #{mod 2942}#))
+ (lambda (#{y 3036}# #{maps 3037}#)
(values
- (#{gen-cons 2914}#
- #{x 3016}#
- #{y 3020}#)
- #{maps 3021}#))))))
- #{tmp 3011}#)
- (let ((#{tmp 3024}#
+ (#{gen-cons 2930}#
+ #{x 3032}#
+ #{y 3036}#)
+ #{maps 3037}#))))))
+ #{tmp 3027}#)
+ (let ((#{tmp 3040}#
($sc-dispatch
- #{tmp 2948}#
+ #{tmp 2964}#
'#(vector (any . each-any)))))
- (if #{tmp 3024}#
+ (if #{tmp 3040}#
(@apply
- (lambda (#{e1 3027}# #{e2 3028}#)
+ (lambda (#{e1 3043}# #{e2 3044}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{src 2921}#
- (cons #{e1 3027}# #{e2 3028}#)
- #{r 2923}#
- #{maps 2924}#
- #{ellipsis? 2925}#
- #{mod 2926}#))
- (lambda (#{e 3030}# #{maps 3031}#)
+ (#{gen-syntax 2922}#
+ #{src 2937}#
+ (cons #{e1 3043}# #{e2 3044}#)
+ #{r 2939}#
+ #{maps 2940}#
+ #{ellipsis? 2941}#
+ #{mod 2942}#))
+ (lambda (#{e 3046}# #{maps 3047}#)
(values
- (#{gen-vector 2918}# #{e 3030}#)
- #{maps 3031}#))))
- #{tmp 3024}#)
- (let ((#{_ 3035}# #{tmp 2948}#))
+ (#{gen-vector 2934}# #{e 3046}#)
+ #{maps 3047}#))))
+ #{tmp 3040}#)
+ (let ((#{_ 3051}# #{tmp 2964}#))
(values
- (list 'quote #{e 2922}#)
- #{maps 2924}#))))))))))))))
- (#{gen-ref 2908}#
- (lambda (#{src 3037}#
- #{var 3038}#
- #{level 3039}#
- #{maps 3040}#)
- (if (= #{level 3039}# 0)
- (values #{var 3038}# #{maps 3040}#)
- (if (null? #{maps 3040}#)
+ (list 'quote #{e 2938}#)
+ #{maps 2940}#))))))))))))))
+ (#{gen-ref 2924}#
+ (lambda (#{src 3053}#
+ #{var 3054}#
+ #{level 3055}#
+ #{maps 3056}#)
+ (if (= #{level 3055}# 0)
+ (values #{var 3054}# #{maps 3056}#)
+ (if (null? #{maps 3056}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3037}#)
+ #{src 3053}#)
(call-with-values
(lambda ()
- (#{gen-ref 2908}#
- #{src 3037}#
- #{var 3038}#
- (#{1-}# #{level 3039}#)
- (cdr #{maps 3040}#)))
- (lambda (#{outer-var 3047}# #{outer-maps 3048}#)
- (let ((#{b 3052}#
- (assq #{outer-var 3047}# (car #{maps 3040}#))))
- (if #{b 3052}#
- (values (cdr #{b 3052}#) #{maps 3040}#)
- (let ((#{inner-var 3054}# (#{gen-var 451}# 'tmp)))
+ (#{gen-ref 2924}#
+ #{src 3053}#
+ #{var 3054}#
+ (#{1-}# #{level 3055}#)
+ (cdr #{maps 3056}#)))
+ (lambda (#{outer-var 3063}# #{outer-maps 3064}#)
+ (let ((#{b 3068}#
+ (assq #{outer-var 3063}# (car #{maps 3056}#))))
+ (if #{b 3068}#
+ (values (cdr #{b 3068}#) #{maps 3056}#)
+ (let ((#{inner-var 3070}# (#{gen-var 451}# 'tmp)))
(values
- #{inner-var 3054}#
- (cons (cons (cons #{outer-var 3047}#
- #{inner-var 3054}#)
- (car #{maps 3040}#))
- #{outer-maps 3048}#)))))))))))
- (#{gen-mappend 2910}#
- (lambda (#{e 3055}# #{map-env 3056}#)
+ #{inner-var 3070}#
+ (cons (cons (cons #{outer-var 3063}#
+ #{inner-var 3070}#)
+ (car #{maps 3056}#))
+ #{outer-maps 3064}#)))))))))))
+ (#{gen-mappend 2926}#
+ (lambda (#{e 3071}# #{map-env 3072}#)
(list 'apply
'(primitive append)
- (#{gen-map 2912}# #{e 3055}# #{map-env 3056}#))))
- (#{gen-map 2912}#
- (lambda (#{e 3060}# #{map-env 3061}#)
- (let ((#{formals 3066}# (map cdr #{map-env 3061}#))
- (#{actuals 3067}#
- (map (lambda (#{x 3068}#)
- (list 'ref (car #{x 3068}#)))
- #{map-env 3061}#)))
- (if (eq? (car #{e 3060}#) 'ref)
- (car #{actuals 3067}#)
+ (#{gen-map 2928}# #{e 3071}# #{map-env 3072}#))))
+ (#{gen-map 2928}#
+ (lambda (#{e 3076}# #{map-env 3077}#)
+ (let ((#{formals 3082}# (map cdr #{map-env 3077}#))
+ (#{actuals 3083}#
+ (map (lambda (#{x 3084}#)
+ (list 'ref (car #{x 3084}#)))
+ #{map-env 3077}#)))
+ (if (eq? (car #{e 3076}#) 'ref)
+ (car #{actuals 3083}#)
(if (and-map
- (lambda (#{x 3075}#)
- (if (eq? (car #{x 3075}#) 'ref)
- (memq (car (cdr #{x 3075}#)) #{formals 3066}#)
+ (lambda (#{x 3091}#)
+ (if (eq? (car #{x 3091}#) 'ref)
+ (memq (car (cdr #{x 3091}#)) #{formals 3082}#)
#f))
- (cdr #{e 3060}#))
+ (cdr #{e 3076}#))
(cons 'map
- (cons (list 'primitive (car #{e 3060}#))
- (map (let ((#{r 3081}#
+ (cons (list 'primitive (car #{e 3076}#))
+ (map (let ((#{r 3097}#
(map cons
- #{formals 3066}#
- #{actuals 3067}#)))
- (lambda (#{x 3082}#)
- (cdr (assq (car (cdr #{x 3082}#))
- #{r 3081}#))))
- (cdr #{e 3060}#))))
+ #{formals 3082}#
+ #{actuals 3083}#)))
+ (lambda (#{x 3098}#)
+ (cdr (assq (car (cdr #{x 3098}#))
+ #{r 3097}#))))
+ (cdr #{e 3076}#))))
(cons 'map
- (cons (list 'lambda #{formals 3066}# #{e 3060}#)
- #{actuals 3067}#)))))))
- (#{gen-cons 2914}#
- (lambda (#{x 3086}# #{y 3087}#)
- (let ((#{atom-key 3092}# (car #{y 3087}#)))
- (if (memv #{atom-key 3092}# '(quote))
- (if (eq? (car #{x 3086}#) 'quote)
+ (cons (list 'lambda #{formals 3082}# #{e 3076}#)
+ #{actuals 3083}#)))))))
+ (#{gen-cons 2930}#
+ (lambda (#{x 3102}# #{y 3103}#)
+ (let ((#{atom-key 3108}# (car #{y 3103}#)))
+ (if (memv #{atom-key 3108}# '(quote))
+ (if (eq? (car #{x 3102}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 3086}#))
- (car (cdr #{y 3087}#))))
- (if (eq? (car (cdr #{y 3087}#)) '())
- (list 'list #{x 3086}#)
- (list 'cons #{x 3086}# #{y 3087}#)))
- (if (memv #{atom-key 3092}# '(list))
- (cons 'list (cons #{x 3086}# (cdr #{y 3087}#)))
- (list 'cons #{x 3086}# #{y 3087}#))))))
- (#{gen-append 2916}#
- (lambda (#{x 3101}# #{y 3102}#)
- (if (equal? #{y 3102}# ''())
- #{x 3101}#
- (list 'append #{x 3101}# #{y 3102}#))))
- (#{gen-vector 2918}#
- (lambda (#{x 3106}#)
- (if (eq? (car #{x 3106}#) 'list)
- (cons 'vector (cdr #{x 3106}#))
- (if (eq? (car #{x 3106}#) 'quote)
+ (cons (car (cdr #{x 3102}#))
+ (car (cdr #{y 3103}#))))
+ (if (eq? (car (cdr #{y 3103}#)) '())
+ (list 'list #{x 3102}#)
+ (list 'cons #{x 3102}# #{y 3103}#)))
+ (if (memv #{atom-key 3108}# '(list))
+ (cons 'list (cons #{x 3102}# (cdr #{y 3103}#)))
+ (list 'cons #{x 3102}# #{y 3103}#))))))
+ (#{gen-append 2932}#
+ (lambda (#{x 3117}# #{y 3118}#)
+ (if (equal? #{y 3118}# ''())
+ #{x 3117}#
+ (list 'append #{x 3117}# #{y 3118}#))))
+ (#{gen-vector 2934}#
+ (lambda (#{x 3122}#)
+ (if (eq? (car #{x 3122}#) 'list)
+ (cons 'vector (cdr #{x 3122}#))
+ (if (eq? (car #{x 3122}#) 'quote)
(list 'quote
- (list->vector (car (cdr #{x 3106}#))))
- (list 'list->vector #{x 3106}#)))))
- (#{regen 2920}#
- (lambda (#{x 3116}#)
- (let ((#{atom-key 3120}# (car #{x 3116}#)))
- (if (memv #{atom-key 3120}# '(ref))
+ (list->vector (car (cdr #{x 3122}#))))
+ (list 'list->vector #{x 3122}#)))))
+ (#{regen 2936}#
+ (lambda (#{x 3132}#)
+ (let ((#{atom-key 3136}# (car #{x 3132}#)))
+ (if (memv #{atom-key 3136}# '(ref))
(#{build-lexical-reference 273}#
'value
#f
- (car (cdr #{x 3116}#))
- (car (cdr #{x 3116}#)))
- (if (memv #{atom-key 3120}# '(primitive))
- (#{build-primref 293}# #f (car (cdr #{x 3116}#)))
- (if (memv #{atom-key 3120}# '(quote))
- (#{build-data 295}# #f (car (cdr #{x 3116}#)))
- (if (memv #{atom-key 3120}# '(lambda))
- (if (list? (car (cdr #{x 3116}#)))
+ (car (cdr #{x 3132}#))
+ (car (cdr #{x 3132}#)))
+ (if (memv #{atom-key 3136}# '(primitive))
+ (#{build-primref 293}# #f (car (cdr #{x 3132}#)))
+ (if (memv #{atom-key 3136}# '(quote))
+ (#{build-data 295}# #f (car (cdr #{x 3132}#)))
+ (if (memv #{atom-key 3136}# '(lambda))
+ (if (list? (car (cdr #{x 3132}#)))
(#{build-simple-lambda 285}#
#f
- (car (cdr #{x 3116}#))
+ (car (cdr #{x 3132}#))
#f
- (car (cdr #{x 3116}#))
+ (car (cdr #{x 3132}#))
'()
- (#{regen 2920}# (car (cdr (cdr #{x 3116}#)))))
- (error "how did we get here" #{x 3116}#))
+ (#{regen 2936}# (car (cdr (cdr #{x 3132}#)))))
+ (error "how did we get here" #{x 3132}#))
(#{build-primcall 291}#
#f
- (car #{x 3116}#)
- (map #{regen 2920}# (cdr #{x 3116}#)))))))))))
- (lambda (#{e 3131}#
- #{r 3132}#
- #{w 3133}#
- #{s 3134}#
- #{mod 3135}#)
- (let ((#{e 3142}#
+ (car #{x 3132}#)
+ (map #{regen 2936}# (cdr #{x 3132}#)))))))))))
+ (lambda (#{e 3147}#
+ #{r 3148}#
+ #{w 3149}#
+ #{s 3150}#
+ #{mod 3151}#)
+ (let ((#{e 3158}#
(#{source-wrap 411}#
- #{e 3131}#
- #{w 3133}#
- #{s 3134}#
- #{mod 3135}#)))
- (let ((#{tmp 3143}# #{e 3142}#))
- (let ((#{tmp 3144}#
- ($sc-dispatch #{tmp 3143}# '(_ any))))
- (if #{tmp 3144}#
+ #{e 3147}#
+ #{w 3149}#
+ #{s 3150}#
+ #{mod 3151}#)))
+ (let ((#{tmp 3159}# #{e 3158}#))
+ (let ((#{tmp 3160}#
+ ($sc-dispatch #{tmp 3159}# '(_ any))))
+ (if #{tmp 3160}#
(@apply
- (lambda (#{x 3146}#)
+ (lambda (#{x 3162}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2906}#
- #{e 3142}#
- #{x 3146}#
- #{r 3132}#
+ (#{gen-syntax 2922}#
+ #{e 3158}#
+ #{x 3162}#
+ #{r 3148}#
'()
#{ellipsis? 439}#
- #{mod 3135}#))
- (lambda (#{e 3147}# #{maps 3148}#)
- (#{regen 2920}# #{e 3147}#))))
- #{tmp 3144}#)
- (let ((#{_ 3152}# #{tmp 3143}#))
+ #{mod 3151}#))
+ (lambda (#{e 3163}# #{maps 3164}#)
+ (#{regen 2936}# #{e 3163}#))))
+ #{tmp 3160}#)
+ (let ((#{_ 3168}# #{tmp 3159}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3142}#)))))))))
+ #{e 3158}#)))))))))
(#{global-extend 339}#
'core
'lambda
- (lambda (#{e 3153}#
- #{r 3154}#
- #{w 3155}#
- #{s 3156}#
- #{mod 3157}#)
- (let ((#{tmp 3163}# #{e 3153}#))
- (let ((#{tmp 3164}#
+ (lambda (#{e 3169}#
+ #{r 3170}#
+ #{w 3171}#
+ #{s 3172}#
+ #{mod 3173}#)
+ (let ((#{tmp 3179}# #{e 3169}#))
+ (let ((#{tmp 3180}#
($sc-dispatch
- #{tmp 3163}#
+ #{tmp 3179}#
'(_ any any . each-any))))
- (if #{tmp 3164}#
+ (if #{tmp 3180}#
(@apply
- (lambda (#{args 3168}# #{e1 3169}# #{e2 3170}#)
+ (lambda (#{args 3184}# #{e1 3185}# #{e2 3186}#)
(call-with-values
(lambda ()
- (#{lambda-formals 441}# #{args 3168}#))
- (lambda (#{req 3171}#
- #{opt 3172}#
- #{rest 3173}#
- #{kw 3174}#)
+ (#{lambda-formals 441}# #{args 3184}#))
+ (lambda (#{req 3187}#
+ #{opt 3188}#
+ #{rest 3189}#
+ #{kw 3190}#)
(letrec*
- ((#{lp 3182}#
- (lambda (#{body 3183}# #{meta 3184}#)
- (let ((#{tmp 3186}# #{body 3183}#))
- (let ((#{tmp 3187}#
+ ((#{lp 3198}#
+ (lambda (#{body 3199}# #{meta 3200}#)
+ (let ((#{tmp 3202}# #{body 3199}#))
+ (let ((#{tmp 3203}#
($sc-dispatch
- #{tmp 3186}#
+ #{tmp 3202}#
'(any any . each-any))))
- (if (if #{tmp 3187}#
+ (if (if #{tmp 3203}#
(@apply
- (lambda (#{docstring 3191}#
- #{e1 3192}#
- #{e2 3193}#)
+ (lambda (#{docstring 3207}#
+ #{e1 3208}#
+ #{e2 3209}#)
(string?
(syntax->datum
- #{docstring 3191}#)))
- #{tmp 3187}#)
+ #{docstring 3207}#)))
+ #{tmp 3203}#)
#f)
(@apply
- (lambda (#{docstring 3197}#
- #{e1 3198}#
- #{e2 3199}#)
- (#{lp 3182}#
- (cons #{e1 3198}# #{e2 3199}#)
+ (lambda (#{docstring 3213}#
+ #{e1 3214}#
+ #{e2 3215}#)
+ (#{lp 3198}#
+ (cons #{e1 3214}# #{e2 3215}#)
(append
- #{meta 3184}#
+ #{meta 3200}#
(list (cons 'documentation
(syntax->datum
- #{docstring 3197}#))))))
- #{tmp 3187}#)
- (let ((#{tmp 3202}#
+ #{docstring 3213}#))))))
+ #{tmp 3203}#)
+ (let ((#{tmp 3218}#
($sc-dispatch
- #{tmp 3186}#
+ #{tmp 3202}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 3202}#
+ (if #{tmp 3218}#
(@apply
- (lambda (#{k 3207}#
- #{v 3208}#
- #{e1 3209}#
- #{e2 3210}#)
- (#{lp 3182}#
- (cons #{e1 3209}# #{e2 3210}#)
+ (lambda (#{k 3223}#
+ #{v 3224}#
+ #{e1 3225}#
+ #{e2 3226}#)
+ (#{lp 3198}#
+ (cons #{e1 3225}# #{e2 3226}#)
(append
- #{meta 3184}#
+ #{meta 3200}#
(syntax->datum
(map cons
- #{k 3207}#
- #{v 3208}#)))))
- #{tmp 3202}#)
- (let ((#{_ 3215}# #{tmp 3186}#))
+ #{k 3223}#
+ #{v 3224}#)))))
+ #{tmp 3218}#)
+ (let ((#{_ 3231}# #{tmp 3202}#))
(#{chi-simple-lambda 443}#
- #{e 3153}#
- #{r 3154}#
- #{w 3155}#
- #{s 3156}#
- #{mod 3157}#
- #{req 3171}#
- #{rest 3173}#
- #{meta 3184}#
- #{body 3183}#))))))))))
- (#{lp 3182}# (cons #{e1 3169}# #{e2 3170}#) '())))))
- #{tmp 3164}#)
- (let ((#{_ 3217}# #{tmp 3163}#))
+ #{e 3169}#
+ #{r 3170}#
+ #{w 3171}#
+ #{s 3172}#
+ #{mod 3173}#
+ #{req 3187}#
+ #{rest 3189}#
+ #{meta 3200}#
+ #{body 3199}#))))))))))
+ (#{lp 3198}# (cons #{e1 3185}# #{e2 3186}#) '())))))
+ #{tmp 3180}#)
+ (let ((#{_ 3233}# #{tmp 3179}#))
(syntax-violation
'lambda
"bad lambda"
- #{e 3153}#)))))))
+ #{e 3169}#)))))))
(#{global-extend 339}#
'core
'lambda*
- (lambda (#{e 3218}#
- #{r 3219}#
- #{w 3220}#
- #{s 3221}#
- #{mod 3222}#)
- (let ((#{tmp 3228}# #{e 3218}#))
- (let ((#{tmp 3229}#
+ (lambda (#{e 3234}#
+ #{r 3235}#
+ #{w 3236}#
+ #{s 3237}#
+ #{mod 3238}#)
+ (let ((#{tmp 3244}# #{e 3234}#))
+ (let ((#{tmp 3245}#
($sc-dispatch
- #{tmp 3228}#
+ #{tmp 3244}#
'(_ any any . each-any))))
- (if #{tmp 3229}#
+ (if #{tmp 3245}#
(@apply
- (lambda (#{args 3233}# #{e1 3234}# #{e2 3235}#)
+ (lambda (#{args 3249}# #{e1 3250}# #{e2 3251}#)
(call-with-values
(lambda ()
(#{chi-lambda-case 447}#
- #{e 3218}#
- #{r 3219}#
- #{w 3220}#
- #{s 3221}#
- #{mod 3222}#
+ #{e 3234}#
+ #{r 3235}#
+ #{w 3236}#
+ #{s 3237}#
+ #{mod 3238}#
#{lambda*-formals 445}#
- (list (cons #{args 3233}#
- (cons #{e1 3234}# #{e2 3235}#)))))
- (lambda (#{meta 3237}# #{lcase 3238}#)
+ (list (cons #{args 3249}#
+ (cons #{e1 3250}# #{e2 3251}#)))))
+ (lambda (#{meta 3253}# #{lcase 3254}#)
(#{build-case-lambda 287}#
- #{s 3221}#
- #{meta 3237}#
- #{lcase 3238}#))))
- #{tmp 3229}#)
- (let ((#{_ 3242}# #{tmp 3228}#))
+ #{s 3237}#
+ #{meta 3253}#
+ #{lcase 3254}#))))
+ #{tmp 3245}#)
+ (let ((#{_ 3258}# #{tmp 3244}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e 3218}#)))))))
+ #{e 3234}#)))))))
(#{global-extend 339}#
'core
'case-lambda
- (lambda (#{e 3243}#
- #{r 3244}#
- #{w 3245}#
- #{s 3246}#
- #{mod 3247}#)
- (let ((#{tmp 3253}# #{e 3243}#))
- (let ((#{tmp 3254}#
+ (lambda (#{e 3259}#
+ #{r 3260}#
+ #{w 3261}#
+ #{s 3262}#
+ #{mod 3263}#)
+ (let ((#{tmp 3269}# #{e 3259}#))
+ (let ((#{tmp 3270}#
($sc-dispatch
- #{tmp 3253}#
+ #{tmp 3269}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 3254}#
+ (if #{tmp 3270}#
(@apply
- (lambda (#{args 3261}#
- #{e1 3262}#
- #{e2 3263}#
- #{args* 3264}#
- #{e1* 3265}#
- #{e2* 3266}#)
+ (lambda (#{args 3277}#
+ #{e1 3278}#
+ #{e2 3279}#
+ #{args* 3280}#
+ #{e1* 3281}#
+ #{e2* 3282}#)
(call-with-values
(lambda ()
(#{chi-lambda-case 447}#
- #{e 3243}#
- #{r 3244}#
- #{w 3245}#
- #{s 3246}#
- #{mod 3247}#
+ #{e 3259}#
+ #{r 3260}#
+ #{w 3261}#
+ #{s 3262}#
+ #{mod 3263}#
#{lambda-formals 441}#
- (cons (cons #{args 3261}#
- (cons #{e1 3262}# #{e2 3263}#))
- (map (lambda (#{tmp 3270}#
- #{tmp 3269}#
- #{tmp 3268}#)
- (cons #{tmp 3268}#
- (cons #{tmp 3269}# #{tmp 3270}#)))
- #{e2* 3266}#
- #{e1* 3265}#
- #{args* 3264}#))))
- (lambda (#{meta 3272}# #{lcase 3273}#)
+ (cons (cons #{args 3277}#
+ (cons #{e1 3278}# #{e2 3279}#))
+ (map (lambda (#{tmp 3286}#
+ #{tmp 3285}#
+ #{tmp 3284}#)
+ (cons #{tmp 3284}#
+ (cons #{tmp 3285}# #{tmp 3286}#)))
+ #{e2* 3282}#
+ #{e1* 3281}#
+ #{args* 3280}#))))
+ (lambda (#{meta 3288}# #{lcase 3289}#)
(#{build-case-lambda 287}#
- #{s 3246}#
- #{meta 3272}#
- #{lcase 3273}#))))
- #{tmp 3254}#)
- (let ((#{_ 3277}# #{tmp 3253}#))
+ #{s 3262}#
+ #{meta 3288}#
+ #{lcase 3289}#))))
+ #{tmp 3270}#)
+ (let ((#{_ 3293}# #{tmp 3269}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 3243}#)))))))
+ #{e 3259}#)))))))
(#{global-extend 339}#
'core
'case-lambda*
- (lambda (#{e 3278}#
- #{r 3279}#
- #{w 3280}#
- #{s 3281}#
- #{mod 3282}#)
- (let ((#{tmp 3288}# #{e 3278}#))
- (let ((#{tmp 3289}#
+ (lambda (#{e 3294}#
+ #{r 3295}#
+ #{w 3296}#
+ #{s 3297}#
+ #{mod 3298}#)
+ (let ((#{tmp 3304}# #{e 3294}#))
+ (let ((#{tmp 3305}#
($sc-dispatch
- #{tmp 3288}#
+ #{tmp 3304}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 3289}#
+ (if #{tmp 3305}#
(@apply
- (lambda (#{args 3296}#
- #{e1 3297}#
- #{e2 3298}#
- #{args* 3299}#
- #{e1* 3300}#
- #{e2* 3301}#)
+ (lambda (#{args 3312}#
+ #{e1 3313}#
+ #{e2 3314}#
+ #{args* 3315}#
+ #{e1* 3316}#
+ #{e2* 3317}#)
(call-with-values
(lambda ()
(#{chi-lambda-case 447}#
- #{e 3278}#
- #{r 3279}#
- #{w 3280}#
- #{s 3281}#
- #{mod 3282}#
+ #{e 3294}#
+ #{r 3295}#
+ #{w 3296}#
+ #{s 3297}#
+ #{mod 3298}#
#{lambda*-formals 445}#
- (cons (cons #{args 3296}#
- (cons #{e1 3297}# #{e2 3298}#))
- (map (lambda (#{tmp 3305}#
- #{tmp 3304}#
- #{tmp 3303}#)
- (cons #{tmp 3303}#
- (cons #{tmp 3304}# #{tmp 3305}#)))
- #{e2* 3301}#
- #{e1* 3300}#
- #{args* 3299}#))))
- (lambda (#{meta 3307}# #{lcase 3308}#)
+ (cons (cons #{args 3312}#
+ (cons #{e1 3313}# #{e2 3314}#))
+ (map (lambda (#{tmp 3321}#
+ #{tmp 3320}#
+ #{tmp 3319}#)
+ (cons #{tmp 3319}#
+ (cons #{tmp 3320}# #{tmp 3321}#)))
+ #{e2* 3317}#
+ #{e1* 3316}#
+ #{args* 3315}#))))
+ (lambda (#{meta 3323}# #{lcase 3324}#)
(#{build-case-lambda 287}#
- #{s 3281}#
- #{meta 3307}#
- #{lcase 3308}#))))
- #{tmp 3289}#)
- (let ((#{_ 3312}# #{tmp 3288}#))
+ #{s 3297}#
+ #{meta 3323}#
+ #{lcase 3324}#))))
+ #{tmp 3305}#)
+ (let ((#{_ 3328}# #{tmp 3304}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 3278}#)))))))
+ #{e 3294}#)))))))
(#{global-extend 339}#
'core
'let
(letrec*
- ((#{chi-let 3314}#
- (lambda (#{e 3315}#
- #{r 3316}#
- #{w 3317}#
- #{s 3318}#
- #{mod 3319}#
- #{constructor 3320}#
- #{ids 3321}#
- #{vals 3322}#
- #{exps 3323}#)
- (if (not (#{valid-bound-ids? 403}# #{ids 3321}#))
+ ((#{chi-let 3330}#
+ (lambda (#{e 3331}#
+ #{r 3332}#
+ #{w 3333}#
+ #{s 3334}#
+ #{mod 3335}#
+ #{constructor 3336}#
+ #{ids 3337}#
+ #{vals 3338}#
+ #{exps 3339}#)
+ (if (not (#{valid-bound-ids? 403}# #{ids 3337}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 3315}#)
- (let ((#{labels 3335}#
- (#{gen-labels 358}# #{ids 3321}#))
- (#{new-vars 3336}#
- (map #{gen-var 451}# #{ids 3321}#)))
- (let ((#{nw 3339}#
+ #{e 3331}#)
+ (let ((#{labels 3351}#
+ (#{gen-labels 358}# #{ids 3337}#))
+ (#{new-vars 3352}#
+ (map #{gen-var 451}# #{ids 3337}#)))
+ (let ((#{nw 3355}#
(#{make-binding-wrap 387}#
- #{ids 3321}#
- #{labels 3335}#
- #{w 3317}#))
- (#{nr 3340}#
+ #{ids 3337}#
+ #{labels 3351}#
+ #{w 3333}#))
+ (#{nr 3356}#
(#{extend-var-env 333}#
- #{labels 3335}#
- #{new-vars 3336}#
- #{r 3316}#)))
- (#{constructor 3320}#
- #{s 3318}#
- (map syntax->datum #{ids 3321}#)
- #{new-vars 3336}#
- (map (lambda (#{x 3341}#)
+ #{labels 3351}#
+ #{new-vars 3352}#
+ #{r 3332}#)))
+ (#{constructor 3336}#
+ #{s 3334}#
+ (map syntax->datum #{ids 3337}#)
+ #{new-vars 3352}#
+ (map (lambda (#{x 3357}#)
(#{chi 423}#
- #{x 3341}#
- #{r 3316}#
- #{w 3317}#
- #{mod 3319}#))
- #{vals 3322}#)
+ #{x 3357}#
+ #{r 3332}#
+ #{w 3333}#
+ #{mod 3335}#))
+ #{vals 3338}#)
(#{chi-body 431}#
- #{exps 3323}#
+ #{exps 3339}#
(#{source-wrap 411}#
- #{e 3315}#
- #{nw 3339}#
- #{s 3318}#
- #{mod 3319}#)
- #{nr 3340}#
- #{nw 3339}#
- #{mod 3319}#))))))))
- (lambda (#{e 3343}#
- #{r 3344}#
- #{w 3345}#
- #{s 3346}#
- #{mod 3347}#)
- (let ((#{tmp 3353}# #{e 3343}#))
- (let ((#{tmp 3354}#
+ #{e 3331}#
+ #{nw 3355}#
+ #{s 3334}#
+ #{mod 3335}#)
+ #{nr 3356}#
+ #{nw 3355}#
+ #{mod 3335}#))))))))
+ (lambda (#{e 3359}#
+ #{r 3360}#
+ #{w 3361}#
+ #{s 3362}#
+ #{mod 3363}#)
+ (let ((#{tmp 3369}# #{e 3359}#))
+ (let ((#{tmp 3370}#
($sc-dispatch
- #{tmp 3353}#
+ #{tmp 3369}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3354}#
+ (if (if #{tmp 3370}#
(@apply
- (lambda (#{id 3359}#
- #{val 3360}#
- #{e1 3361}#
- #{e2 3362}#)
- (and-map #{id? 343}# #{id 3359}#))
- #{tmp 3354}#)
+ (lambda (#{id 3375}#
+ #{val 3376}#
+ #{e1 3377}#
+ #{e2 3378}#)
+ (and-map #{id? 343}# #{id 3375}#))
+ #{tmp 3370}#)
#f)
(@apply
- (lambda (#{id 3368}#
- #{val 3369}#
- #{e1 3370}#
- #{e2 3371}#)
- (#{chi-let 3314}#
- #{e 3343}#
- #{r 3344}#
- #{w 3345}#
- #{s 3346}#
- #{mod 3347}#
+ (lambda (#{id 3384}#
+ #{val 3385}#
+ #{e1 3386}#
+ #{e2 3387}#)
+ (#{chi-let 3330}#
+ #{e 3359}#
+ #{r 3360}#
+ #{w 3361}#
+ #{s 3362}#
+ #{mod 3363}#
#{build-let 299}#
- #{id 3368}#
- #{val 3369}#
- (cons #{e1 3370}# #{e2 3371}#)))
- #{tmp 3354}#)
- (let ((#{tmp 3375}#
+ #{id 3384}#
+ #{val 3385}#
+ (cons #{e1 3386}# #{e2 3387}#)))
+ #{tmp 3370}#)
+ (let ((#{tmp 3391}#
($sc-dispatch
- #{tmp 3353}#
+ #{tmp 3369}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3375}#
+ (if (if #{tmp 3391}#
(@apply
- (lambda (#{f 3381}#
- #{id 3382}#
- #{val 3383}#
- #{e1 3384}#
- #{e2 3385}#)
- (if (#{id? 343}# #{f 3381}#)
- (and-map #{id? 343}# #{id 3382}#)
+ (lambda (#{f 3397}#
+ #{id 3398}#
+ #{val 3399}#
+ #{e1 3400}#
+ #{e2 3401}#)
+ (if (#{id? 343}# #{f 3397}#)
+ (and-map #{id? 343}# #{id 3398}#)
#f))
- #{tmp 3375}#)
+ #{tmp 3391}#)
#f)
(@apply
- (lambda (#{f 3394}#
- #{id 3395}#
- #{val 3396}#
- #{e1 3397}#
- #{e2 3398}#)
- (#{chi-let 3314}#
- #{e 3343}#
- #{r 3344}#
- #{w 3345}#
- #{s 3346}#
- #{mod 3347}#
+ (lambda (#{f 3410}#
+ #{id 3411}#
+ #{val 3412}#
+ #{e1 3413}#
+ #{e2 3414}#)
+ (#{chi-let 3330}#
+ #{e 3359}#
+ #{r 3360}#
+ #{w 3361}#
+ #{s 3362}#
+ #{mod 3363}#
#{build-named-let 301}#
- (cons #{f 3394}# #{id 3395}#)
- #{val 3396}#
- (cons #{e1 3397}# #{e2 3398}#)))
- #{tmp 3375}#)
- (let ((#{_ 3403}# #{tmp 3353}#))
+ (cons #{f 3410}# #{id 3411}#)
+ #{val 3412}#
+ (cons #{e1 3413}# #{e2 3414}#)))
+ #{tmp 3391}#)
+ (let ((#{_ 3419}# #{tmp 3369}#))
(syntax-violation
'let
"bad let"
(#{source-wrap 411}#
- #{e 3343}#
- #{w 3345}#
- #{s 3346}#
- #{mod 3347}#)))))))))))
+ #{e 3359}#
+ #{w 3361}#
+ #{s 3362}#
+ #{mod 3363}#)))))))))))
(#{global-extend 339}#
'core
'letrec
- (lambda (#{e 3404}#
- #{r 3405}#
- #{w 3406}#
- #{s 3407}#
- #{mod 3408}#)
- (let ((#{tmp 3414}# #{e 3404}#))
- (let ((#{tmp 3415}#
+ (lambda (#{e 3420}#
+ #{r 3421}#
+ #{w 3422}#
+ #{s 3423}#
+ #{mod 3424}#)
+ (let ((#{tmp 3430}# #{e 3420}#))
+ (let ((#{tmp 3431}#
($sc-dispatch
- #{tmp 3414}#
+ #{tmp 3430}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3415}#
+ (if (if #{tmp 3431}#
(@apply
- (lambda (#{id 3420}#
- #{val 3421}#
- #{e1 3422}#
- #{e2 3423}#)
- (and-map #{id? 343}# #{id 3420}#))
- #{tmp 3415}#)
+ (lambda (#{id 3436}#
+ #{val 3437}#
+ #{e1 3438}#
+ #{e2 3439}#)
+ (and-map #{id? 343}# #{id 3436}#))
+ #{tmp 3431}#)
#f)
(@apply
- (lambda (#{id 3429}#
- #{val 3430}#
- #{e1 3431}#
- #{e2 3432}#)
- (let ((#{ids 3434}# #{id 3429}#))
- (if (not (#{valid-bound-ids? 403}# #{ids 3434}#))
+ (lambda (#{id 3445}#
+ #{val 3446}#
+ #{e1 3447}#
+ #{e2 3448}#)
+ (let ((#{ids 3450}# #{id 3445}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 3450}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 3404}#)
- (let ((#{labels 3438}#
- (#{gen-labels 358}# #{ids 3434}#))
- (#{new-vars 3439}#
- (map #{gen-var 451}# #{ids 3434}#)))
- (let ((#{w 3442}#
+ #{e 3420}#)
+ (let ((#{labels 3454}#
+ (#{gen-labels 358}# #{ids 3450}#))
+ (#{new-vars 3455}#
+ (map #{gen-var 451}# #{ids 3450}#)))
+ (let ((#{w 3458}#
(#{make-binding-wrap 387}#
- #{ids 3434}#
- #{labels 3438}#
- #{w 3406}#))
- (#{r 3443}#
+ #{ids 3450}#
+ #{labels 3454}#
+ #{w 3422}#))
+ (#{r 3459}#
(#{extend-var-env 333}#
- #{labels 3438}#
- #{new-vars 3439}#
- #{r 3405}#)))
+ #{labels 3454}#
+ #{new-vars 3455}#
+ #{r 3421}#)))
(#{build-letrec 303}#
- #{s 3407}#
+ #{s 3423}#
#f
- (map syntax->datum #{ids 3434}#)
- #{new-vars 3439}#
- (map (lambda (#{x 3444}#)
+ (map syntax->datum #{ids 3450}#)
+ #{new-vars 3455}#
+ (map (lambda (#{x 3460}#)
(#{chi 423}#
- #{x 3444}#
- #{r 3443}#
- #{w 3442}#
- #{mod 3408}#))
- #{val 3430}#)
+ #{x 3460}#
+ #{r 3459}#
+ #{w 3458}#
+ #{mod 3424}#))
+ #{val 3446}#)
(#{chi-body 431}#
- (cons #{e1 3431}# #{e2 3432}#)
+ (cons #{e1 3447}# #{e2 3448}#)
(#{source-wrap 411}#
- #{e 3404}#
- #{w 3442}#
- #{s 3407}#
- #{mod 3408}#)
- #{r 3443}#
- #{w 3442}#
- #{mod 3408}#)))))))
- #{tmp 3415}#)
- (let ((#{_ 3449}# #{tmp 3414}#))
+ #{e 3420}#
+ #{w 3458}#
+ #{s 3423}#
+ #{mod 3424}#)
+ #{r 3459}#
+ #{w 3458}#
+ #{mod 3424}#)))))))
+ #{tmp 3431}#)
+ (let ((#{_ 3465}# #{tmp 3430}#))
(syntax-violation
'letrec
"bad letrec"
(#{source-wrap 411}#
- #{e 3404}#
- #{w 3406}#
- #{s 3407}#
- #{mod 3408}#))))))))
+ #{e 3420}#
+ #{w 3422}#
+ #{s 3423}#
+ #{mod 3424}#))))))))
(#{global-extend 339}#
'core
'letrec*
- (lambda (#{e 3450}#
- #{r 3451}#
- #{w 3452}#
- #{s 3453}#
- #{mod 3454}#)
- (let ((#{tmp 3460}# #{e 3450}#))
- (let ((#{tmp 3461}#
+ (lambda (#{e 3466}#
+ #{r 3467}#
+ #{w 3468}#
+ #{s 3469}#
+ #{mod 3470}#)
+ (let ((#{tmp 3476}# #{e 3466}#))
+ (let ((#{tmp 3477}#
($sc-dispatch
- #{tmp 3460}#
+ #{tmp 3476}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3461}#
+ (if (if #{tmp 3477}#
(@apply
- (lambda (#{id 3466}#
- #{val 3467}#
- #{e1 3468}#
- #{e2 3469}#)
- (and-map #{id? 343}# #{id 3466}#))
- #{tmp 3461}#)
+ (lambda (#{id 3482}#
+ #{val 3483}#
+ #{e1 3484}#
+ #{e2 3485}#)
+ (and-map #{id? 343}# #{id 3482}#))
+ #{tmp 3477}#)
#f)
(@apply
- (lambda (#{id 3475}#
- #{val 3476}#
- #{e1 3477}#
- #{e2 3478}#)
- (let ((#{ids 3480}# #{id 3475}#))
- (if (not (#{valid-bound-ids? 403}# #{ids 3480}#))
+ (lambda (#{id 3491}#
+ #{val 3492}#
+ #{e1 3493}#
+ #{e2 3494}#)
+ (let ((#{ids 3496}# #{id 3491}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 3496}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 3450}#)
- (let ((#{labels 3484}#
- (#{gen-labels 358}# #{ids 3480}#))
- (#{new-vars 3485}#
- (map #{gen-var 451}# #{ids 3480}#)))
- (let ((#{w 3488}#
+ #{e 3466}#)
+ (let ((#{labels 3500}#
+ (#{gen-labels 358}# #{ids 3496}#))
+ (#{new-vars 3501}#
+ (map #{gen-var 451}# #{ids 3496}#)))
+ (let ((#{w 3504}#
(#{make-binding-wrap 387}#
- #{ids 3480}#
- #{labels 3484}#
- #{w 3452}#))
- (#{r 3489}#
+ #{ids 3496}#
+ #{labels 3500}#
+ #{w 3468}#))
+ (#{r 3505}#
(#{extend-var-env 333}#
- #{labels 3484}#
- #{new-vars 3485}#
- #{r 3451}#)))
+ #{labels 3500}#
+ #{new-vars 3501}#
+ #{r 3467}#)))
(#{build-letrec 303}#
- #{s 3453}#
+ #{s 3469}#
#t
- (map syntax->datum #{ids 3480}#)
- #{new-vars 3485}#
- (map (lambda (#{x 3490}#)
+ (map syntax->datum #{ids 3496}#)
+ #{new-vars 3501}#
+ (map (lambda (#{x 3506}#)
(#{chi 423}#
- #{x 3490}#
- #{r 3489}#
- #{w 3488}#
- #{mod 3454}#))
- #{val 3476}#)
+ #{x 3506}#
+ #{r 3505}#
+ #{w 3504}#
+ #{mod 3470}#))
+ #{val 3492}#)
(#{chi-body 431}#
- (cons #{e1 3477}# #{e2 3478}#)
+ (cons #{e1 3493}# #{e2 3494}#)
(#{source-wrap 411}#
- #{e 3450}#
- #{w 3488}#
- #{s 3453}#
- #{mod 3454}#)
- #{r 3489}#
- #{w 3488}#
- #{mod 3454}#)))))))
- #{tmp 3461}#)
- (let ((#{_ 3495}# #{tmp 3460}#))
+ #{e 3466}#
+ #{w 3504}#
+ #{s 3469}#
+ #{mod 3470}#)
+ #{r 3505}#
+ #{w 3504}#
+ #{mod 3470}#)))))))
+ #{tmp 3477}#)
+ (let ((#{_ 3511}# #{tmp 3476}#))
(syntax-violation
'letrec*
"bad letrec*"
(#{source-wrap 411}#
- #{e 3450}#
- #{w 3452}#
- #{s 3453}#
- #{mod 3454}#))))))))
+ #{e 3466}#
+ #{w 3468}#
+ #{s 3469}#
+ #{mod 3470}#))))))))
(#{global-extend 339}#
'core
'set!
- (lambda (#{e 3496}#
- #{r 3497}#
- #{w 3498}#
- #{s 3499}#
- #{mod 3500}#)
- (let ((#{tmp 3506}# #{e 3496}#))
- (let ((#{tmp 3507}#
- ($sc-dispatch #{tmp 3506}# '(_ any any))))
- (if (if #{tmp 3507}#
+ (lambda (#{e 3512}#
+ #{r 3513}#
+ #{w 3514}#
+ #{s 3515}#
+ #{mod 3516}#)
+ (let ((#{tmp 3522}# #{e 3512}#))
+ (let ((#{tmp 3523}#
+ ($sc-dispatch #{tmp 3522}# '(_ any any))))
+ (if (if #{tmp 3523}#
(@apply
- (lambda (#{id 3510}# #{val 3511}#)
- (#{id? 343}# #{id 3510}#))
- #{tmp 3507}#)
+ (lambda (#{id 3526}# #{val 3527}#)
+ (#{id? 343}# #{id 3526}#))
+ #{tmp 3523}#)
#f)
(@apply
- (lambda (#{id 3514}# #{val 3515}#)
- (let ((#{n 3518}#
- (#{id-var-name 397}# #{id 3514}# #{w 3498}#))
- (#{id-mod 3519}#
- (if (#{syntax-object? 309}# #{id 3514}#)
- (#{syntax-object-module 315}# #{id 3514}#)
- #{mod 3500}#)))
- (let ((#{b 3521}#
+ (lambda (#{id 3530}# #{val 3531}#)
+ (let ((#{n 3534}#
+ (#{id-var-name 397}# #{id 3530}# #{w 3514}#))
+ (#{id-mod 3535}#
+ (if (#{syntax-object? 309}# #{id 3530}#)
+ (#{syntax-object-module 315}# #{id 3530}#)
+ #{mod 3516}#)))
+ (let ((#{b 3537}#
(#{lookup 337}#
- #{n 3518}#
- #{r 3497}#
- #{id-mod 3519}#)))
- (let ((#{atom-key 3524}# (car #{b 3521}#)))
- (if (memv #{atom-key 3524}# '(lexical))
+ #{n 3534}#
+ #{r 3513}#
+ #{id-mod 3535}#)))
+ (let ((#{atom-key 3540}# (car #{b 3537}#)))
+ (if (memv #{atom-key 3540}# '(lexical))
(#{build-lexical-assignment 275}#
- #{s 3499}#
- (syntax->datum #{id 3514}#)
- (cdr #{b 3521}#)
+ #{s 3515}#
+ (syntax->datum #{id 3530}#)
+ (cdr #{b 3537}#)
(#{chi 423}#
- #{val 3515}#
- #{r 3497}#
- #{w 3498}#
- #{mod 3500}#))
- (if (memv #{atom-key 3524}# '(global))
+ #{val 3531}#
+ #{r 3513}#
+ #{w 3514}#
+ #{mod 3516}#))
+ (if (memv #{atom-key 3540}# '(global))
(#{build-global-assignment 281}#
- #{s 3499}#
- #{n 3518}#
+ #{s 3515}#
+ #{n 3534}#
(#{chi 423}#
- #{val 3515}#
- #{r 3497}#
- #{w 3498}#
- #{mod 3500}#)
- #{id-mod 3519}#)
- (if (memv #{atom-key 3524}# '(macro))
- (let ((#{p 3531}# (cdr #{b 3521}#)))
+ #{val 3531}#
+ #{r 3513}#
+ #{w 3514}#
+ #{mod 3516}#)
+ #{id-mod 3535}#)
+ (if (memv #{atom-key 3540}# '(macro))
+ (let ((#{p 3547}# (cdr #{b 3537}#)))
(if (procedure-property
- #{p 3531}#
+ #{p 3547}#
'variable-transformer)
(#{chi 423}#
(#{chi-macro 429}#
- #{p 3531}#
- #{e 3496}#
- #{r 3497}#
- #{w 3498}#
- #{s 3499}#
+ #{p 3547}#
+ #{e 3512}#
+ #{r 3513}#
+ #{w 3514}#
+ #{s 3515}#
#f
- #{mod 3500}#)
- #{r 3497}#
+ #{mod 3516}#)
+ #{r 3513}#
'(())
- #{mod 3500}#)
+ #{mod 3516}#)
(syntax-violation
'set!
"not a variable transformer"
(#{wrap 409}#
- #{e 3496}#
- #{w 3498}#
- #{mod 3500}#)
+ #{e 3512}#
+ #{w 3514}#
+ #{mod 3516}#)
(#{wrap 409}#
- #{id 3514}#
- #{w 3498}#
- #{id-mod 3519}#))))
- (if (memv #{atom-key 3524}# '(displaced-lexical))
+ #{id 3530}#
+ #{w 3514}#
+ #{id-mod 3535}#))))
+ (if (memv #{atom-key 3540}# '(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
(#{wrap 409}#
- #{id 3514}#
- #{w 3498}#
- #{mod 3500}#))
+ #{id 3530}#
+ #{w 3514}#
+ #{mod 3516}#))
(syntax-violation
'set!
"bad set!"
(#{source-wrap 411}#
- #{e 3496}#
- #{w 3498}#
- #{s 3499}#
- #{mod 3500}#))))))))))
- #{tmp 3507}#)
- (let ((#{tmp 3536}#
+ #{e 3512}#
+ #{w 3514}#
+ #{s 3515}#
+ #{mod 3516}#))))))))))
+ #{tmp 3523}#)
+ (let ((#{tmp 3552}#
($sc-dispatch
- #{tmp 3506}#
+ #{tmp 3522}#
'(_ (any . each-any) any))))
- (if #{tmp 3536}#
+ (if #{tmp 3552}#
(@apply
- (lambda (#{head 3540}# #{tail 3541}# #{val 3542}#)
+ (lambda (#{head 3556}# #{tail 3557}# #{val 3558}#)
(call-with-values
(lambda ()
(#{syntax-type 421}#
- #{head 3540}#
- #{r 3497}#
+ #{head 3556}#
+ #{r 3513}#
'(())
#f
#f
- #{mod 3500}#
+ #{mod 3516}#
#t))
- (lambda (#{type 3545}#
- #{value 3546}#
- #{ee 3547}#
- #{ww 3548}#
- #{ss 3549}#
- #{modmod 3550}#)
- (if (memv #{type 3545}# '(module-ref))
- (let ((#{val 3559}#
+ (lambda (#{type 3561}#
+ #{value 3562}#
+ #{ee 3563}#
+ #{ww 3564}#
+ #{ss 3565}#
+ #{modmod 3566}#)
+ (if (memv #{type 3561}# '(module-ref))
+ (let ((#{val 3575}#
(#{chi 423}#
- #{val 3542}#
- #{r 3497}#
- #{w 3498}#
- #{mod 3500}#)))
+ #{val 3558}#
+ #{r 3513}#
+ #{w 3514}#
+ #{mod 3516}#)))
(call-with-values
(lambda ()
- (#{value 3546}#
- (cons #{head 3540}# #{tail 3541}#)
- #{r 3497}#
- #{w 3498}#))
- (lambda (#{e 3561}#
- #{r 3562}#
- #{w 3563}#
- #{s* 3564}#
- #{mod 3565}#)
- (let ((#{tmp 3571}# #{e 3561}#))
- (let ((#{tmp 3572}# (list #{tmp 3571}#)))
- (if (if #{tmp 3572}#
+ (#{value 3562}#
+ (cons #{head 3556}# #{tail 3557}#)
+ #{r 3513}#
+ #{w 3514}#))
+ (lambda (#{e 3577}#
+ #{r 3578}#
+ #{w 3579}#
+ #{s* 3580}#
+ #{mod 3581}#)
+ (let ((#{tmp 3587}# #{e 3577}#))
+ (let ((#{tmp 3588}# (list #{tmp 3587}#)))
+ (if (if #{tmp 3588}#
(@apply
- (lambda (#{e 3574}#)
- (#{id? 343}# #{e 3574}#))
- #{tmp 3572}#)
+ (lambda (#{e 3590}#)
+ (#{id? 343}# #{e 3590}#))
+ #{tmp 3588}#)
#f)
(@apply
- (lambda (#{e 3576}#)
+ (lambda (#{e 3592}#)
(#{build-global-assignment 281}#
- #{s 3499}#
- (syntax->datum #{e 3576}#)
- #{val 3559}#
- #{mod 3565}#))
- #{tmp 3572}#)
+ #{s 3515}#
+ (syntax->datum #{e 3592}#)
+ #{val 3575}#
+ #{mod 3581}#))
+ #{tmp 3588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3571}#)))))))
+ #{tmp 3587}#)))))))
(#{build-call 267}#
- #{s 3499}#
+ #{s 3515}#
(#{chi 423}#
(list '#(syntax-object
setter
@@ -9746,25 +8018,25 @@
(top)
(top)
(top))
- #("i3551"
- "i3552"
- "i3553"
- "i3554"
- "i3555"
- "i3556"))
+ #("i3567"
+ "i3568"
+ "i3569"
+ "i3570"
+ "i3571"
+ "i3572"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3537" "i3538" "i3539"))
+ #("i3553" "i3554" "i3555"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3501"
- "i3502"
- "i3503"
- "i3504"
- "i3505"))
+ #("i3517"
+ "i3518"
+ "i3519"
+ "i3520"
+ "i3521"))
#(ribcage
(lambda-var-list
gen-var
@@ -10187,50 +8459,50 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{head 3540}#)
- #{r 3497}#
- #{w 3498}#
- #{mod 3500}#)
- (map (lambda (#{e 3578}#)
+ #{head 3556}#)
+ #{r 3513}#
+ #{w 3514}#
+ #{mod 3516}#)
+ (map (lambda (#{e 3594}#)
(#{chi 423}#
- #{e 3578}#
- #{r 3497}#
- #{w 3498}#
- #{mod 3500}#))
+ #{e 3594}#
+ #{r 3513}#
+ #{w 3514}#
+ #{mod 3516}#))
(append
- #{tail 3541}#
- (list #{val 3542}#))))))))
- #{tmp 3536}#)
- (let ((#{_ 3582}# #{tmp 3506}#))
+ #{tail 3557}#
+ (list #{val 3558}#))))))))
+ #{tmp 3552}#)
+ (let ((#{_ 3598}# #{tmp 3522}#))
(syntax-violation
'set!
"bad set!"
(#{source-wrap 411}#
- #{e 3496}#
- #{w 3498}#
- #{s 3499}#
- #{mod 3500}#))))))))))
+ #{e 3512}#
+ #{w 3514}#
+ #{s 3515}#
+ #{mod 3516}#))))))))))
(#{global-extend 339}#
'module-ref
'@
- (lambda (#{e 3583}# #{r 3584}# #{w 3585}#)
- (let ((#{tmp 3589}# #{e 3583}#))
- (let ((#{tmp 3590}#
- ($sc-dispatch #{tmp 3589}# '(_ each-any any))))
- (if (if #{tmp 3590}#
+ (lambda (#{e 3599}# #{r 3600}# #{w 3601}#)
+ (let ((#{tmp 3605}# #{e 3599}#))
+ (let ((#{tmp 3606}#
+ ($sc-dispatch #{tmp 3605}# '(_ each-any any))))
+ (if (if #{tmp 3606}#
(@apply
- (lambda (#{mod 3593}# #{id 3594}#)
- (if (and-map #{id? 343}# #{mod 3593}#)
- (#{id? 343}# #{id 3594}#)
+ (lambda (#{mod 3609}# #{id 3610}#)
+ (if (and-map #{id? 343}# #{mod 3609}#)
+ (#{id? 343}# #{id 3610}#)
#f))
- #{tmp 3590}#)
+ #{tmp 3606}#)
#f)
(@apply
- (lambda (#{mod 3600}# #{id 3601}#)
+ (lambda (#{mod 3616}# #{id 3617}#)
(values
- (syntax->datum #{id 3601}#)
- #{r 3584}#
- #{w 3585}#
+ (syntax->datum #{id 3617}#)
+ #{r 3600}#
+ #{w 3601}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10239,12 +8511,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3598" "i3599"))
+ #("i3614" "i3615"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3586" "i3587" "i3588"))
+ #("i3602" "i3603" "i3604"))
#(ribcage
(lambda-var-list
gen-var
@@ -10667,63 +8939,63 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{mod 3600}#))))
- #{tmp 3590}#)
+ #{mod 3616}#))))
+ #{tmp 3606}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3589}#))))))
+ #{tmp 3605}#))))))
(#{global-extend 339}#
'module-ref
'@@
- (lambda (#{e 3603}# #{r 3604}# #{w 3605}#)
+ (lambda (#{e 3619}# #{r 3620}# #{w 3621}#)
(letrec*
- ((#{remodulate 3610}#
- (lambda (#{x 3611}# #{mod 3612}#)
- (if (pair? #{x 3611}#)
- (cons (#{remodulate 3610}#
- (car #{x 3611}#)
- #{mod 3612}#)
- (#{remodulate 3610}#
- (cdr #{x 3611}#)
- #{mod 3612}#))
- (if (#{syntax-object? 309}# #{x 3611}#)
+ ((#{remodulate 3626}#
+ (lambda (#{x 3627}# #{mod 3628}#)
+ (if (pair? #{x 3627}#)
+ (cons (#{remodulate 3626}#
+ (car #{x 3627}#)
+ #{mod 3628}#)
+ (#{remodulate 3626}#
+ (cdr #{x 3627}#)
+ #{mod 3628}#))
+ (if (#{syntax-object? 309}# #{x 3627}#)
(#{make-syntax-object 307}#
- (#{remodulate 3610}#
- (#{syntax-object-expression 311}# #{x 3611}#)
- #{mod 3612}#)
- (#{syntax-object-wrap 313}# #{x 3611}#)
- #{mod 3612}#)
- (if (vector? #{x 3611}#)
- (let ((#{n 3623}# (vector-length #{x 3611}#)))
- (let ((#{v 3625}# (make-vector #{n 3623}#)))
+ (#{remodulate 3626}#
+ (#{syntax-object-expression 311}# #{x 3627}#)
+ #{mod 3628}#)
+ (#{syntax-object-wrap 313}# #{x 3627}#)
+ #{mod 3628}#)
+ (if (vector? #{x 3627}#)
+ (let ((#{n 3639}# (vector-length #{x 3627}#)))
+ (let ((#{v 3641}# (make-vector #{n 3639}#)))
(letrec*
- ((#{loop 3628}#
- (lambda (#{i 3629}#)
- (if (= #{i 3629}# #{n 3623}#)
- (begin (if #f #f) #{v 3625}#)
+ ((#{loop 3644}#
+ (lambda (#{i 3645}#)
+ (if (= #{i 3645}# #{n 3639}#)
+ (begin (if #f #f) #{v 3641}#)
(begin
(vector-set!
- #{v 3625}#
- #{i 3629}#
- (#{remodulate 3610}#
- (vector-ref #{x 3611}# #{i 3629}#)
- #{mod 3612}#))
- (#{loop 3628}# (#{1+}# #{i 3629}#)))))))
- (#{loop 3628}# 0))))
- #{x 3611}#))))))
- (let ((#{tmp 3635}# #{e 3603}#))
- (let ((#{tmp 3636}#
- ($sc-dispatch #{tmp 3635}# '(_ each-any any))))
- (if (if #{tmp 3636}#
+ #{v 3641}#
+ #{i 3645}#
+ (#{remodulate 3626}#
+ (vector-ref #{x 3627}# #{i 3645}#)
+ #{mod 3628}#))
+ (#{loop 3644}# (#{1+}# #{i 3645}#)))))))
+ (#{loop 3644}# 0))))
+ #{x 3627}#))))))
+ (let ((#{tmp 3651}# #{e 3619}#))
+ (let ((#{tmp 3652}#
+ ($sc-dispatch #{tmp 3651}# '(_ each-any any))))
+ (if (if #{tmp 3652}#
(@apply
- (lambda (#{mod 3639}# #{exp 3640}#)
- (and-map #{id? 343}# #{mod 3639}#))
- #{tmp 3636}#)
+ (lambda (#{mod 3655}# #{exp 3656}#)
+ (and-map #{id? 343}# #{mod 3655}#))
+ #{tmp 3652}#)
#f)
(@apply
- (lambda (#{mod 3644}# #{exp 3645}#)
- (let ((#{mod 3647}#
+ (lambda (#{mod 3660}# #{exp 3661}#)
+ (let ((#{mod 3663}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10731,15 +9003,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3642" "i3643"))
+ #("i3658" "i3659"))
#(ribcage
(remodulate)
((top))
- ("i3609"))
+ ("i3625"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3606" "i3607" "i3608"))
+ #("i3622" "i3623" "i3624"))
#(ribcage
(lambda-var-list
gen-var
@@ -11162,123 +9434,123 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{mod 3644}#))))
+ #{mod 3660}#))))
(values
- (#{remodulate 3610}# #{exp 3645}# #{mod 3647}#)
- #{r 3604}#
- #{w 3605}#
- (#{source-annotation 324}# #{exp 3645}#)
- #{mod 3647}#)))
- #{tmp 3636}#)
+ (#{remodulate 3626}# #{exp 3661}# #{mod 3663}#)
+ #{r 3620}#
+ #{w 3621}#
+ (#{source-annotation 324}# #{exp 3661}#)
+ #{mod 3663}#)))
+ #{tmp 3652}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3635}#)))))))
+ #{tmp 3651}#)))))))
(#{global-extend 339}#
'core
'if
- (lambda (#{e 3649}#
- #{r 3650}#
- #{w 3651}#
- #{s 3652}#
- #{mod 3653}#)
- (let ((#{tmp 3659}# #{e 3649}#))
- (let ((#{tmp 3660}#
- ($sc-dispatch #{tmp 3659}# '(_ any any))))
- (if #{tmp 3660}#
+ (lambda (#{e 3665}#
+ #{r 3666}#
+ #{w 3667}#
+ #{s 3668}#
+ #{mod 3669}#)
+ (let ((#{tmp 3675}# #{e 3665}#))
+ (let ((#{tmp 3676}#
+ ($sc-dispatch #{tmp 3675}# '(_ any any))))
+ (if #{tmp 3676}#
(@apply
- (lambda (#{test 3663}# #{then 3664}#)
+ (lambda (#{test 3679}# #{then 3680}#)
(#{build-conditional 269}#
- #{s 3652}#
+ #{s 3668}#
(#{chi 423}#
- #{test 3663}#
- #{r 3650}#
- #{w 3651}#
- #{mod 3653}#)
+ #{test 3679}#
+ #{r 3666}#
+ #{w 3667}#
+ #{mod 3669}#)
(#{chi 423}#
- #{then 3664}#
- #{r 3650}#
- #{w 3651}#
- #{mod 3653}#)
+ #{then 3680}#
+ #{r 3666}#
+ #{w 3667}#
+ #{mod 3669}#)
(#{build-void 265}# #f)))
- #{tmp 3660}#)
- (let ((#{tmp 3666}#
- ($sc-dispatch #{tmp 3659}# '(_ any any any))))
- (if #{tmp 3666}#
+ #{tmp 3676}#)
+ (let ((#{tmp 3682}#
+ ($sc-dispatch #{tmp 3675}# '(_ any any any))))
+ (if #{tmp 3682}#
(@apply
- (lambda (#{test 3670}# #{then 3671}# #{else 3672}#)
+ (lambda (#{test 3686}# #{then 3687}# #{else 3688}#)
(#{build-conditional 269}#
- #{s 3652}#
+ #{s 3668}#
(#{chi 423}#
- #{test 3670}#
- #{r 3650}#
- #{w 3651}#
- #{mod 3653}#)
+ #{test 3686}#
+ #{r 3666}#
+ #{w 3667}#
+ #{mod 3669}#)
(#{chi 423}#
- #{then 3671}#
- #{r 3650}#
- #{w 3651}#
- #{mod 3653}#)
+ #{then 3687}#
+ #{r 3666}#
+ #{w 3667}#
+ #{mod 3669}#)
(#{chi 423}#
- #{else 3672}#
- #{r 3650}#
- #{w 3651}#
- #{mod 3653}#)))
- #{tmp 3666}#)
+ #{else 3688}#
+ #{r 3666}#
+ #{w 3667}#
+ #{mod 3669}#)))
+ #{tmp 3682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3659}#))))))))
+ #{tmp 3675}#))))))))
(#{global-extend 339}#
'core
'with-fluids
- (lambda (#{e 3673}#
- #{r 3674}#
- #{w 3675}#
- #{s 3676}#
- #{mod 3677}#)
- (let ((#{tmp 3683}# #{e 3673}#))
- (let ((#{tmp 3684}#
+ (lambda (#{e 3689}#
+ #{r 3690}#
+ #{w 3691}#
+ #{s 3692}#
+ #{mod 3693}#)
+ (let ((#{tmp 3699}# #{e 3689}#))
+ (let ((#{tmp 3700}#
($sc-dispatch
- #{tmp 3683}#
+ #{tmp 3699}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 3684}#
+ (if #{tmp 3700}#
(@apply
- (lambda (#{fluid 3689}#
- #{val 3690}#
- #{b 3691}#
- #{b* 3692}#)
+ (lambda (#{fluid 3705}#
+ #{val 3706}#
+ #{b 3707}#
+ #{b* 3708}#)
(#{build-dynlet 271}#
- #{s 3676}#
- (map (lambda (#{x 3693}#)
+ #{s 3692}#
+ (map (lambda (#{x 3709}#)
(#{chi 423}#
- #{x 3693}#
- #{r 3674}#
- #{w 3675}#
- #{mod 3677}#))
- #{fluid 3689}#)
- (map (lambda (#{x 3696}#)
+ #{x 3709}#
+ #{r 3690}#
+ #{w 3691}#
+ #{mod 3693}#))
+ #{fluid 3705}#)
+ (map (lambda (#{x 3712}#)
(#{chi 423}#
- #{x 3696}#
- #{r 3674}#
- #{w 3675}#
- #{mod 3677}#))
- #{val 3690}#)
+ #{x 3712}#
+ #{r 3690}#
+ #{w 3691}#
+ #{mod 3693}#))
+ #{val 3706}#)
(#{chi-body 431}#
- (cons #{b 3691}# #{b* 3692}#)
+ (cons #{b 3707}# #{b* 3708}#)
(#{source-wrap 411}#
- #{e 3673}#
- #{w 3675}#
- #{s 3676}#
- #{mod 3677}#)
- #{r 3674}#
- #{w 3675}#
- #{mod 3677}#)))
- #{tmp 3684}#)
+ #{e 3689}#
+ #{w 3691}#
+ #{s 3692}#
+ #{mod 3693}#)
+ #{r 3690}#
+ #{w 3691}#
+ #{mod 3693}#)))
+ #{tmp 3700}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3683}#))))))
+ #{tmp 3699}#))))))
(#{global-extend 339}# 'begin 'begin '())
(#{global-extend 339}# 'define 'define '())
(#{global-extend 339}#
@@ -11290,55 +9562,55 @@
'core
'syntax-case
(letrec*
- ((#{convert-pattern 3701}#
- (lambda (#{pattern 3708}# #{keys 3709}#)
+ ((#{convert-pattern 3717}#
+ (lambda (#{pattern 3724}# #{keys 3725}#)
(letrec*
- ((#{cvt* 3713}#
- (lambda (#{p* 3718}# #{n 3719}# #{ids 3720}#)
- (if (not (pair? #{p* 3718}#))
- (#{cvt 3717}#
- #{p* 3718}#
- #{n 3719}#
- #{ids 3720}#)
+ ((#{cvt* 3729}#
+ (lambda (#{p* 3734}# #{n 3735}# #{ids 3736}#)
+ (if (not (pair? #{p* 3734}#))
+ (#{cvt 3733}#
+ #{p* 3734}#
+ #{n 3735}#
+ #{ids 3736}#)
(call-with-values
(lambda ()
- (#{cvt* 3713}#
- (cdr #{p* 3718}#)
- #{n 3719}#
- #{ids 3720}#))
- (lambda (#{y 3724}# #{ids 3725}#)
+ (#{cvt* 3729}#
+ (cdr #{p* 3734}#)
+ #{n 3735}#
+ #{ids 3736}#))
+ (lambda (#{y 3740}# #{ids 3741}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- (car #{p* 3718}#)
- #{n 3719}#
- #{ids 3725}#))
- (lambda (#{x 3728}# #{ids 3729}#)
+ (#{cvt 3733}#
+ (car #{p* 3734}#)
+ #{n 3735}#
+ #{ids 3741}#))
+ (lambda (#{x 3744}# #{ids 3745}#)
(values
- (cons #{x 3728}# #{y 3724}#)
- #{ids 3729}#))))))))
- (#{v-reverse 3715}#
- (lambda (#{x 3732}#)
+ (cons #{x 3744}# #{y 3740}#)
+ #{ids 3745}#))))))))
+ (#{v-reverse 3731}#
+ (lambda (#{x 3748}#)
(letrec*
- ((#{loop 3737}#
- (lambda (#{r 3738}# #{x 3739}#)
- (if (not (pair? #{x 3739}#))
- (values #{r 3738}# #{x 3739}#)
- (#{loop 3737}#
- (cons (car #{x 3739}#) #{r 3738}#)
- (cdr #{x 3739}#))))))
- (#{loop 3737}# '() #{x 3732}#))))
- (#{cvt 3717}#
- (lambda (#{p 3740}# #{n 3741}# #{ids 3742}#)
- (if (#{id? 343}# #{p 3740}#)
+ ((#{loop 3753}#
+ (lambda (#{r 3754}# #{x 3755}#)
+ (if (not (pair? #{x 3755}#))
+ (values #{r 3754}# #{x 3755}#)
+ (#{loop 3753}#
+ (cons (car #{x 3755}#) #{r 3754}#)
+ (cdr #{x 3755}#))))))
+ (#{loop 3753}# '() #{x 3748}#))))
+ (#{cvt 3733}#
+ (lambda (#{p 3756}# #{n 3757}# #{ids 3758}#)
+ (if (#{id? 343}# #{p 3756}#)
(if (#{bound-id-member? 407}#
- #{p 3740}#
- #{keys 3709}#)
+ #{p 3756}#
+ #{keys 3725}#)
(values
- (vector 'free-id #{p 3740}#)
- #{ids 3742}#)
+ (vector 'free-id #{p 3756}#)
+ #{ids 3758}#)
(if (#{free-id=? 399}#
- #{p 3740}#
+ #{p 3756}#
'#(syntax-object
_
((top)
@@ -11346,22 +9618,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3743" "i3744" "i3745"))
+ #("i3759" "i3760" "i3761"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3716" "i3714" "i3712"))
+ ("i3732" "i3730" "i3728"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3710" "i3711"))
+ #("i3726" "i3727"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3706" "i3704" "i3702" "i3700"))
+ ("i3722" "i3720" "i3718" "i3716"))
#(ribcage
(lambda-var-list
gen-var
@@ -11784,274 +10056,274 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile)))
- (values '_ #{ids 3742}#)
+ (values '_ #{ids 3758}#)
(values
'any
- (cons (cons #{p 3740}# #{n 3741}#) #{ids 3742}#))))
- (let ((#{tmp 3751}# #{p 3740}#))
- (let ((#{tmp 3752}#
- ($sc-dispatch #{tmp 3751}# '(any any))))
- (if (if #{tmp 3752}#
+ (cons (cons #{p 3756}# #{n 3757}#) #{ids 3758}#))))
+ (let ((#{tmp 3767}# #{p 3756}#))
+ (let ((#{tmp 3768}#
+ ($sc-dispatch #{tmp 3767}# '(any any))))
+ (if (if #{tmp 3768}#
(@apply
- (lambda (#{x 3755}# #{dots 3756}#)
- (#{ellipsis? 439}# #{dots 3756}#))
- #{tmp 3752}#)
+ (lambda (#{x 3771}# #{dots 3772}#)
+ (#{ellipsis? 439}# #{dots 3772}#))
+ #{tmp 3768}#)
#f)
(@apply
- (lambda (#{x 3759}# #{dots 3760}#)
+ (lambda (#{x 3775}# #{dots 3776}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- #{x 3759}#
- (#{1+}# #{n 3741}#)
- #{ids 3742}#))
- (lambda (#{p 3762}# #{ids 3763}#)
+ (#{cvt 3733}#
+ #{x 3775}#
+ (#{1+}# #{n 3757}#)
+ #{ids 3758}#))
+ (lambda (#{p 3778}# #{ids 3779}#)
(values
- (if (eq? #{p 3762}# 'any)
+ (if (eq? #{p 3778}# 'any)
'each-any
- (vector 'each #{p 3762}#))
- #{ids 3763}#))))
- #{tmp 3752}#)
- (let ((#{tmp 3766}#
+ (vector 'each #{p 3778}#))
+ #{ids 3779}#))))
+ #{tmp 3768}#)
+ (let ((#{tmp 3782}#
($sc-dispatch
- #{tmp 3751}#
+ #{tmp 3767}#
'(any any . any))))
- (if (if #{tmp 3766}#
+ (if (if #{tmp 3782}#
(@apply
- (lambda (#{x 3770}#
- #{dots 3771}#
- #{ys 3772}#)
- (#{ellipsis? 439}# #{dots 3771}#))
- #{tmp 3766}#)
+ (lambda (#{x 3786}#
+ #{dots 3787}#
+ #{ys 3788}#)
+ (#{ellipsis? 439}# #{dots 3787}#))
+ #{tmp 3782}#)
#f)
(@apply
- (lambda (#{x 3776}#
- #{dots 3777}#
- #{ys 3778}#)
+ (lambda (#{x 3792}#
+ #{dots 3793}#
+ #{ys 3794}#)
(call-with-values
(lambda ()
- (#{cvt* 3713}#
- #{ys 3778}#
- #{n 3741}#
- #{ids 3742}#))
- (lambda (#{ys 3779}# #{ids 3780}#)
+ (#{cvt* 3729}#
+ #{ys 3794}#
+ #{n 3757}#
+ #{ids 3758}#))
+ (lambda (#{ys 3795}# #{ids 3796}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- #{x 3776}#
- (#{1+}# #{n 3741}#)
- #{ids 3780}#))
- (lambda (#{x 3783}# #{ids 3784}#)
+ (#{cvt 3733}#
+ #{x 3792}#
+ (#{1+}# #{n 3757}#)
+ #{ids 3796}#))
+ (lambda (#{x 3799}# #{ids 3800}#)
(call-with-values
(lambda ()
- (#{v-reverse 3715}#
- #{ys 3779}#))
- (lambda (#{ys 3787}# #{e 3788}#)
+ (#{v-reverse 3731}#
+ #{ys 3795}#))
+ (lambda (#{ys 3803}# #{e 3804}#)
(values
(vector
'each+
- #{x 3783}#
- #{ys 3787}#
- #{e 3788}#)
- #{ids 3784}#))))))))
- #{tmp 3766}#)
- (let ((#{tmp 3792}#
+ #{x 3799}#
+ #{ys 3803}#
+ #{e 3804}#)
+ #{ids 3800}#))))))))
+ #{tmp 3782}#)
+ (let ((#{tmp 3808}#
($sc-dispatch
- #{tmp 3751}#
+ #{tmp 3767}#
'(any . any))))
- (if #{tmp 3792}#
+ (if #{tmp 3808}#
(@apply
- (lambda (#{x 3795}# #{y 3796}#)
+ (lambda (#{x 3811}# #{y 3812}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- #{y 3796}#
- #{n 3741}#
- #{ids 3742}#))
- (lambda (#{y 3797}# #{ids 3798}#)
+ (#{cvt 3733}#
+ #{y 3812}#
+ #{n 3757}#
+ #{ids 3758}#))
+ (lambda (#{y 3813}# #{ids 3814}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- #{x 3795}#
- #{n 3741}#
- #{ids 3798}#))
- (lambda (#{x 3801}# #{ids 3802}#)
+ (#{cvt 3733}#
+ #{x 3811}#
+ #{n 3757}#
+ #{ids 3814}#))
+ (lambda (#{x 3817}# #{ids 3818}#)
(values
- (cons #{x 3801}# #{y 3797}#)
- #{ids 3802}#))))))
- #{tmp 3792}#)
- (let ((#{tmp 3805}#
- ($sc-dispatch #{tmp 3751}# '())))
- (if #{tmp 3805}#
+ (cons #{x 3817}# #{y 3813}#)
+ #{ids 3818}#))))))
+ #{tmp 3808}#)
+ (let ((#{tmp 3821}#
+ ($sc-dispatch #{tmp 3767}# '())))
+ (if #{tmp 3821}#
(@apply
- (lambda () (values '() #{ids 3742}#))
- #{tmp 3805}#)
- (let ((#{tmp 3806}#
+ (lambda () (values '() #{ids 3758}#))
+ #{tmp 3821}#)
+ (let ((#{tmp 3822}#
($sc-dispatch
- #{tmp 3751}#
+ #{tmp 3767}#
'#(vector each-any))))
- (if #{tmp 3806}#
+ (if #{tmp 3822}#
(@apply
- (lambda (#{x 3808}#)
+ (lambda (#{x 3824}#)
(call-with-values
(lambda ()
- (#{cvt 3717}#
- #{x 3808}#
- #{n 3741}#
- #{ids 3742}#))
- (lambda (#{p 3810}#
- #{ids 3811}#)
+ (#{cvt 3733}#
+ #{x 3824}#
+ #{n 3757}#
+ #{ids 3758}#))
+ (lambda (#{p 3826}#
+ #{ids 3827}#)
(values
(vector
'vector
- #{p 3810}#)
- #{ids 3811}#))))
- #{tmp 3806}#)
- (let ((#{x 3815}# #{tmp 3751}#))
+ #{p 3826}#)
+ #{ids 3827}#))))
+ #{tmp 3822}#)
+ (let ((#{x 3831}# #{tmp 3767}#))
(values
(vector
'atom
(#{strip 449}#
- #{p 3740}#
+ #{p 3756}#
'(())))
- #{ids 3742}#)))))))))))))))))
- (#{cvt 3717}# #{pattern 3708}# 0 '()))))
- (#{build-dispatch-call 3703}#
- (lambda (#{pvars 3817}#
- #{exp 3818}#
- #{y 3819}#
- #{r 3820}#
- #{mod 3821}#)
+ #{ids 3758}#)))))))))))))))))
+ (#{cvt 3733}# #{pattern 3724}# 0 '()))))
+ (#{build-dispatch-call 3719}#
+ (lambda (#{pvars 3833}#
+ #{exp 3834}#
+ #{y 3835}#
+ #{r 3836}#
+ #{mod 3837}#)
(begin
- (map cdr #{pvars 3817}#)
- (let ((#{ids 3829}# (map car #{pvars 3817}#)))
- (let ((#{labels 3833}#
- (#{gen-labels 358}# #{ids 3829}#))
- (#{new-vars 3834}#
- (map #{gen-var 451}# #{ids 3829}#)))
+ (map cdr #{pvars 3833}#)
+ (let ((#{ids 3845}# (map car #{pvars 3833}#)))
+ (let ((#{labels 3849}#
+ (#{gen-labels 358}# #{ids 3845}#))
+ (#{new-vars 3850}#
+ (map #{gen-var 451}# #{ids 3845}#)))
(#{build-primcall 291}#
#f
'apply
(list (#{build-simple-lambda 285}#
#f
- (map syntax->datum #{ids 3829}#)
+ (map syntax->datum #{ids 3845}#)
#f
- #{new-vars 3834}#
+ #{new-vars 3850}#
'()
(#{chi 423}#
- #{exp 3818}#
+ #{exp 3834}#
(#{extend-env 331}#
- #{labels 3833}#
- (map (lambda (#{var 3837}# #{level 3838}#)
+ #{labels 3849}#
+ (map (lambda (#{var 3853}# #{level 3854}#)
(cons 'syntax
- (cons #{var 3837}#
- #{level 3838}#)))
- #{new-vars 3834}#
- (map cdr #{pvars 3817}#))
- #{r 3820}#)
+ (cons #{var 3853}#
+ #{level 3854}#)))
+ #{new-vars 3850}#
+ (map cdr #{pvars 3833}#))
+ #{r 3836}#)
(#{make-binding-wrap 387}#
- #{ids 3829}#
- #{labels 3833}#
+ #{ids 3845}#
+ #{labels 3849}#
'(()))
- #{mod 3821}#))
- #{y 3819}#)))))))
- (#{gen-clause 3705}#
- (lambda (#{x 3844}#
- #{keys 3845}#
- #{clauses 3846}#
- #{r 3847}#
- #{pat 3848}#
- #{fender 3849}#
- #{exp 3850}#
- #{mod 3851}#)
+ #{mod 3837}#))
+ #{y 3835}#)))))))
+ (#{gen-clause 3721}#
+ (lambda (#{x 3860}#
+ #{keys 3861}#
+ #{clauses 3862}#
+ #{r 3863}#
+ #{pat 3864}#
+ #{fender 3865}#
+ #{exp 3866}#
+ #{mod 3867}#)
(call-with-values
(lambda ()
- (#{convert-pattern 3701}#
- #{pat 3848}#
- #{keys 3845}#))
- (lambda (#{p 3860}# #{pvars 3861}#)
+ (#{convert-pattern 3717}#
+ #{pat 3864}#
+ #{keys 3861}#))
+ (lambda (#{p 3876}# #{pvars 3877}#)
(if (not (#{distinct-bound-ids? 405}#
- (map car #{pvars 3861}#)))
+ (map car #{pvars 3877}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 3848}#)
+ #{pat 3864}#)
(if (not (and-map
- (lambda (#{x 3868}#)
- (not (#{ellipsis? 439}# (car #{x 3868}#))))
- #{pvars 3861}#))
+ (lambda (#{x 3884}#)
+ (not (#{ellipsis? 439}# (car #{x 3884}#))))
+ #{pvars 3877}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 3848}#)
- (let ((#{y 3872}# (#{gen-var 451}# 'tmp)))
+ #{pat 3864}#)
+ (let ((#{y 3888}# (#{gen-var 451}# 'tmp)))
(#{build-call 267}#
#f
(#{build-simple-lambda 285}#
#f
(list 'tmp)
#f
- (list #{y 3872}#)
+ (list #{y 3888}#)
'()
- (let ((#{y 3876}#
+ (let ((#{y 3892}#
(#{build-lexical-reference 273}#
'value
#f
'tmp
- #{y 3872}#)))
+ #{y 3888}#)))
(#{build-conditional 269}#
#f
- (let ((#{tmp 3879}# #{fender 3849}#))
- (let ((#{tmp 3880}#
+ (let ((#{tmp 3895}# #{fender 3865}#))
+ (let ((#{tmp 3896}#
($sc-dispatch
- #{tmp 3879}#
+ #{tmp 3895}#
'#(atom #t))))
- (if #{tmp 3880}#
+ (if #{tmp 3896}#
(@apply
- (lambda () #{y 3876}#)
- #{tmp 3880}#)
- (let ((#{_ 3882}# #{tmp 3879}#))
+ (lambda () #{y 3892}#)
+ #{tmp 3896}#)
+ (let ((#{_ 3898}# #{tmp 3895}#))
(#{build-conditional 269}#
#f
- #{y 3876}#
- (#{build-dispatch-call 3703}#
- #{pvars 3861}#
- #{fender 3849}#
- #{y 3876}#
- #{r 3847}#
- #{mod 3851}#)
+ #{y 3892}#
+ (#{build-dispatch-call 3719}#
+ #{pvars 3877}#
+ #{fender 3865}#
+ #{y 3892}#
+ #{r 3863}#
+ #{mod 3867}#)
(#{build-data 295}# #f #f))))))
- (#{build-dispatch-call 3703}#
- #{pvars 3861}#
- #{exp 3850}#
- #{y 3876}#
- #{r 3847}#
- #{mod 3851}#)
- (#{gen-syntax-case 3707}#
- #{x 3844}#
- #{keys 3845}#
- #{clauses 3846}#
- #{r 3847}#
- #{mod 3851}#))))
- (list (if (eq? #{p 3860}# 'any)
+ (#{build-dispatch-call 3719}#
+ #{pvars 3877}#
+ #{exp 3866}#
+ #{y 3892}#
+ #{r 3863}#
+ #{mod 3867}#)
+ (#{gen-syntax-case 3723}#
+ #{x 3860}#
+ #{keys 3861}#
+ #{clauses 3862}#
+ #{r 3863}#
+ #{mod 3867}#))))
+ (list (if (eq? #{p 3876}# 'any)
(#{build-primcall 291}#
#f
'list
- (list #{x 3844}#))
+ (list #{x 3860}#))
(#{build-primcall 291}#
#f
'$sc-dispatch
- (list #{x 3844}#
+ (list #{x 3860}#
(#{build-data 295}#
#f
- #{p 3860}#)))))))))))))
- (#{gen-syntax-case 3707}#
- (lambda (#{x 3888}#
- #{keys 3889}#
- #{clauses 3890}#
- #{r 3891}#
- #{mod 3892}#)
- (if (null? #{clauses 3890}#)
+ #{p 3876}#)))))))))))))
+ (#{gen-syntax-case 3723}#
+ (lambda (#{x 3904}#
+ #{keys 3905}#
+ #{clauses 3906}#
+ #{r 3907}#
+ #{mod 3908}#)
+ (if (null? #{clauses 3906}#)
(#{build-primcall 291}#
#f
'syntax-violation
@@ -12059,42 +10331,42 @@
(#{build-data 295}#
#f
"source expression failed to match any pattern")
- #{x 3888}#))
- (let ((#{tmp 3901}# (car #{clauses 3890}#)))
- (let ((#{tmp 3902}#
- ($sc-dispatch #{tmp 3901}# '(any any))))
- (if #{tmp 3902}#
+ #{x 3904}#))
+ (let ((#{tmp 3917}# (car #{clauses 3906}#)))
+ (let ((#{tmp 3918}#
+ ($sc-dispatch #{tmp 3917}# '(any any))))
+ (if #{tmp 3918}#
(@apply
- (lambda (#{pat 3905}# #{exp 3906}#)
- (if (if (#{id? 343}# #{pat 3905}#)
+ (lambda (#{pat 3921}# #{exp 3922}#)
+ (if (if (#{id? 343}# #{pat 3921}#)
(and-map
- (lambda (#{x 3909}#)
+ (lambda (#{x 3925}#)
(not (#{free-id=? 399}#
- #{pat 3905}#
- #{x 3909}#)))
+ #{pat 3921}#
+ #{x 3925}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3903" "i3904"))
+ #("i3919" "i3920"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3893"
- "i3894"
- "i3895"
- "i3896"
- "i3897"))
+ #("i3909"
+ "i3910"
+ "i3911"
+ "i3912"
+ "i3913"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3706" "i3704" "i3702" "i3700"))
+ ("i3722" "i3720" "i3718" "i3716"))
#(ribcage
(lambda-var-list
gen-var
@@ -12517,7 +10789,7 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{keys 3889}#))
+ #{keys 3905}#))
#f)
(if (#{free-id=? 399}#
'#(syntax-object
@@ -12526,23 +10798,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3903" "i3904"))
+ #("i3919" "i3920"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3893"
- "i3894"
- "i3895"
- "i3896"
- "i3897"))
+ #("i3909"
+ "i3910"
+ "i3911"
+ "i3912"
+ "i3913"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3706" "i3704" "i3702" "i3700"))
+ ("i3722" "i3720" "i3718" "i3716"))
#(ribcage
(lambda-var-list
gen-var
@@ -12971,23 +11243,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3903" "i3904"))
+ #("i3919" "i3920"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3893"
- "i3894"
- "i3895"
- "i3896"
- "i3897"))
+ #("i3909"
+ "i3910"
+ "i3911"
+ "i3912"
+ "i3913"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3706" "i3704" "i3702" "i3700"))
+ ("i3722" "i3720" "i3718" "i3716"))
#(ribcage
(lambda-var-list
gen-var
@@ -13411,533 +11683,533 @@
("i40" "i39" "i38")))
(hygiene guile)))
(#{chi 423}#
- #{exp 3906}#
- #{r 3891}#
+ #{exp 3922}#
+ #{r 3907}#
'(())
- #{mod 3892}#)
- (let ((#{labels 3914}# (list (#{gen-label 356}#)))
- (#{var 3915}#
- (#{gen-var 451}# #{pat 3905}#)))
+ #{mod 3908}#)
+ (let ((#{labels 3930}# (list (#{gen-label 356}#)))
+ (#{var 3931}#
+ (#{gen-var 451}# #{pat 3921}#)))
(#{build-call 267}#
#f
(#{build-simple-lambda 285}#
#f
- (list (syntax->datum #{pat 3905}#))
+ (list (syntax->datum #{pat 3921}#))
#f
- (list #{var 3915}#)
+ (list #{var 3931}#)
'()
(#{chi 423}#
- #{exp 3906}#
+ #{exp 3922}#
(#{extend-env 331}#
- #{labels 3914}#
+ #{labels 3930}#
(list (cons 'syntax
- (cons #{var 3915}# 0)))
- #{r 3891}#)
+ (cons #{var 3931}# 0)))
+ #{r 3907}#)
(#{make-binding-wrap 387}#
- (list #{pat 3905}#)
- #{labels 3914}#
+ (list #{pat 3921}#)
+ #{labels 3930}#
'(()))
- #{mod 3892}#))
- (list #{x 3888}#))))
- (#{gen-clause 3705}#
- #{x 3888}#
- #{keys 3889}#
- (cdr #{clauses 3890}#)
- #{r 3891}#
- #{pat 3905}#
+ #{mod 3908}#))
+ (list #{x 3904}#))))
+ (#{gen-clause 3721}#
+ #{x 3904}#
+ #{keys 3905}#
+ (cdr #{clauses 3906}#)
+ #{r 3907}#
+ #{pat 3921}#
#t
- #{exp 3906}#
- #{mod 3892}#)))
- #{tmp 3902}#)
- (let ((#{tmp 3921}#
- ($sc-dispatch #{tmp 3901}# '(any any any))))
- (if #{tmp 3921}#
+ #{exp 3922}#
+ #{mod 3908}#)))
+ #{tmp 3918}#)
+ (let ((#{tmp 3937}#
+ ($sc-dispatch #{tmp 3917}# '(any any any))))
+ (if #{tmp 3937}#
(@apply
- (lambda (#{pat 3925}# #{fender 3926}# #{exp 3927}#)
- (#{gen-clause 3705}#
- #{x 3888}#
- #{keys 3889}#
- (cdr #{clauses 3890}#)
- #{r 3891}#
- #{pat 3925}#
- #{fender 3926}#
- #{exp 3927}#
- #{mod 3892}#))
- #{tmp 3921}#)
- (let ((#{_ 3929}# #{tmp 3901}#))
+ (lambda (#{pat 3941}# #{fender 3942}# #{exp 3943}#)
+ (#{gen-clause 3721}#
+ #{x 3904}#
+ #{keys 3905}#
+ (cdr #{clauses 3906}#)
+ #{r 3907}#
+ #{pat 3941}#
+ #{fender 3942}#
+ #{exp 3943}#
+ #{mod 3908}#))
+ #{tmp 3937}#)
+ (let ((#{_ 3945}# #{tmp 3917}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 3890}#))))))))))))
- (lambda (#{e 3930}#
- #{r 3931}#
- #{w 3932}#
- #{s 3933}#
- #{mod 3934}#)
- (let ((#{e 3941}#
+ (car #{clauses 3906}#))))))))))))
+ (lambda (#{e 3946}#
+ #{r 3947}#
+ #{w 3948}#
+ #{s 3949}#
+ #{mod 3950}#)
+ (let ((#{e 3957}#
(#{source-wrap 411}#
- #{e 3930}#
- #{w 3932}#
- #{s 3933}#
- #{mod 3934}#)))
- (let ((#{tmp 3942}# #{e 3941}#))
- (let ((#{tmp 3943}#
+ #{e 3946}#
+ #{w 3948}#
+ #{s 3949}#
+ #{mod 3950}#)))
+ (let ((#{tmp 3958}# #{e 3957}#))
+ (let ((#{tmp 3959}#
($sc-dispatch
- #{tmp 3942}#
+ #{tmp 3958}#
'(_ any each-any . each-any))))
- (if #{tmp 3943}#
+ (if #{tmp 3959}#
(@apply
- (lambda (#{val 3947}# #{key 3948}# #{m 3949}#)
+ (lambda (#{val 3963}# #{key 3964}# #{m 3965}#)
(if (and-map
- (lambda (#{x 3950}#)
- (if (#{id? 343}# #{x 3950}#)
- (not (#{ellipsis? 439}# #{x 3950}#))
+ (lambda (#{x 3966}#)
+ (if (#{id? 343}# #{x 3966}#)
+ (not (#{ellipsis? 439}# #{x 3966}#))
#f))
- #{key 3948}#)
- (let ((#{x 3956}# (#{gen-var 451}# 'tmp)))
+ #{key 3964}#)
+ (let ((#{x 3972}# (#{gen-var 451}# 'tmp)))
(#{build-call 267}#
- #{s 3933}#
+ #{s 3949}#
(#{build-simple-lambda 285}#
#f
(list 'tmp)
#f
- (list #{x 3956}#)
+ (list #{x 3972}#)
'()
- (#{gen-syntax-case 3707}#
+ (#{gen-syntax-case 3723}#
(#{build-lexical-reference 273}#
'value
#f
'tmp
- #{x 3956}#)
- #{key 3948}#
- #{m 3949}#
- #{r 3931}#
- #{mod 3934}#))
+ #{x 3972}#)
+ #{key 3964}#
+ #{m 3965}#
+ #{r 3947}#
+ #{mod 3950}#))
(list (#{chi 423}#
- #{val 3947}#
- #{r 3931}#
+ #{val 3963}#
+ #{r 3947}#
'(())
- #{mod 3934}#))))
+ #{mod 3950}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 3941}#)))
- #{tmp 3943}#)
+ #{e 3957}#)))
+ #{tmp 3959}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3942}#))))))))
+ #{tmp 3958}#))))))))
(set! macroexpand
(lambda*
- (#{x 3962}#
+ (#{x 3978}#
#:optional
- (#{m 3964}# 'e)
- (#{esew 3966}# '(eval)))
+ (#{m 3980}# 'e)
+ (#{esew 3982}# '(eval)))
(#{chi-top-sequence 415}#
- (list #{x 3962}#)
+ (list #{x 3978}#)
'()
'((top))
#f
- #{m 3964}#
- #{esew 3966}#
+ #{m 3980}#
+ #{esew 3982}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 3970}#)
- (#{nonsymbol-id? 341}# #{x 3970}#)))
+ (lambda (#{x 3986}#)
+ (#{nonsymbol-id? 341}# #{x 3986}#)))
(set! datum->syntax
- (lambda (#{id 3972}# #{datum 3973}#)
+ (lambda (#{id 3988}# #{datum 3989}#)
(#{make-syntax-object 307}#
- #{datum 3973}#
- (#{syntax-object-wrap 313}# #{id 3972}#)
- (#{syntax-object-module 315}# #{id 3972}#))))
+ #{datum 3989}#
+ (#{syntax-object-wrap 313}# #{id 3988}#)
+ (#{syntax-object-module 315}# #{id 3988}#))))
(set! syntax->datum
- (lambda (#{x 3976}#)
- (#{strip 449}# #{x 3976}# '(()))))
+ (lambda (#{x 3992}#)
+ (#{strip 449}# #{x 3992}# '(()))))
(set! syntax-source
- (lambda (#{x 3979}#)
- (#{source-annotation 324}# #{x 3979}#)))
+ (lambda (#{x 3995}#)
+ (#{source-annotation 324}# #{x 3995}#)))
(set! generate-temporaries
- (lambda (#{ls 3981}#)
+ (lambda (#{ls 3997}#)
(begin
- (let ((#{x 3985}# #{ls 3981}#))
- (if (not (list? #{x 3985}#))
+ (let ((#{x 4001}# #{ls 3997}#))
+ (if (not (list? #{x 4001}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x 3985}#)))
- (let ((#{mod 3987}#
+ #{x 4001}#)))
+ (let ((#{mod 4003}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3988}#)
- (#{wrap 409}# (gensym) '((top)) #{mod 3987}#))
- #{ls 3981}#)))))
+ (map (lambda (#{x 4004}#)
+ (#{wrap 409}# (gensym) '((top)) #{mod 4003}#))
+ #{ls 3997}#)))))
(set! free-identifier=?
- (lambda (#{x 3992}# #{y 3993}#)
+ (lambda (#{x 4008}# #{y 4009}#)
(begin
- (let ((#{x 3998}# #{x 3992}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3998}#))
+ (let ((#{x 4014}# #{x 4008}#))
+ (if (not (#{nonsymbol-id? 341}# #{x 4014}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 3998}#)))
- (let ((#{x 4001}# #{y 3993}#))
- (if (not (#{nonsymbol-id? 341}# #{x 4001}#))
+ #{x 4014}#)))
+ (let ((#{x 4017}# #{y 4009}#))
+ (if (not (#{nonsymbol-id? 341}# #{x 4017}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 4001}#)))
- (#{free-id=? 399}# #{x 3992}# #{y 3993}#))))
+ #{x 4017}#)))
+ (#{free-id=? 399}# #{x 4008}# #{y 4009}#))))
(set! bound-identifier=?
- (lambda (#{x 4002}# #{y 4003}#)
+ (lambda (#{x 4018}# #{y 4019}#)
(begin
- (let ((#{x 4008}# #{x 4002}#))
- (if (not (#{nonsymbol-id? 341}# #{x 4008}#))
+ (let ((#{x 4024}# #{x 4018}#))
+ (if (not (#{nonsymbol-id? 341}# #{x 4024}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 4008}#)))
- (let ((#{x 4011}# #{y 4003}#))
- (if (not (#{nonsymbol-id? 341}# #{x 4011}#))
+ #{x 4024}#)))
+ (let ((#{x 4027}# #{y 4019}#))
+ (if (not (#{nonsymbol-id? 341}# #{x 4027}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 4011}#)))
- (#{bound-id=? 401}# #{x 4002}# #{y 4003}#))))
+ #{x 4027}#)))
+ (#{bound-id=? 401}# #{x 4018}# #{y 4019}#))))
(set! syntax-violation
(lambda*
- (#{who 4012}#
- #{message 4013}#
- #{form 4014}#
+ (#{who 4028}#
+ #{message 4029}#
+ #{form 4030}#
#:optional
- (#{subform 4018}# #f))
+ (#{subform 4034}# #f))
(begin
- (let ((#{x 4022}# #{who 4012}#))
- (if (not (let ((#{x 4023}# #{x 4022}#))
- (let ((#{t 4027}# (not #{x 4023}#)))
- (if #{t 4027}#
- #{t 4027}#
- (let ((#{t 4030}# (string? #{x 4023}#)))
- (if #{t 4030}#
- #{t 4030}#
- (symbol? #{x 4023}#)))))))
+ (let ((#{x 4038}# #{who 4028}#))
+ (if (not (let ((#{x 4039}# #{x 4038}#))
+ (let ((#{t 4043}# (not #{x 4039}#)))
+ (if #{t 4043}#
+ #{t 4043}#
+ (let ((#{t 4046}# (string? #{x 4039}#)))
+ (if #{t 4046}#
+ #{t 4046}#
+ (symbol? #{x 4039}#)))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x 4022}#)))
- (let ((#{x 4034}# #{message 4013}#))
- (if (not (string? #{x 4034}#))
+ #{x 4038}#)))
+ (let ((#{x 4050}# #{message 4029}#))
+ (if (not (string? #{x 4050}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x 4034}#)))
+ #{x 4050}#)))
(throw 'syntax-error
- #{who 4012}#
- #{message 4013}#
+ #{who 4028}#
+ #{message 4029}#
(#{source-annotation 324}#
- (let ((#{t 4037}# #{form 4014}#))
- (if #{t 4037}# #{t 4037}# #{subform 4018}#)))
- (#{strip 449}# #{form 4014}# '(()))
- (if #{subform 4018}#
- (#{strip 449}# #{subform 4018}# '(()))
+ (let ((#{t 4053}# #{form 4030}#))
+ (if #{t 4053}# #{t 4053}# #{subform 4034}#)))
+ (#{strip 449}# #{form 4030}# '(()))
+ (if #{subform 4034}#
+ (#{strip 449}# #{subform 4034}# '(()))
#f)))))
(letrec*
- ((#{match-each 4044}#
- (lambda (#{e 4057}# #{p 4058}# #{w 4059}# #{mod 4060}#)
- (if (pair? #{e 4057}#)
- (let ((#{first 4068}#
- (#{match 4056}#
- (car #{e 4057}#)
- #{p 4058}#
- #{w 4059}#
+ ((#{match-each 4060}#
+ (lambda (#{e 4073}# #{p 4074}# #{w 4075}# #{mod 4076}#)
+ (if (pair? #{e 4073}#)
+ (let ((#{first 4084}#
+ (#{match 4072}#
+ (car #{e 4073}#)
+ #{p 4074}#
+ #{w 4075}#
'()
- #{mod 4060}#)))
- (if #{first 4068}#
- (let ((#{rest 4072}#
- (#{match-each 4044}#
- (cdr #{e 4057}#)
- #{p 4058}#
- #{w 4059}#
- #{mod 4060}#)))
- (if #{rest 4072}#
- (cons #{first 4068}# #{rest 4072}#)
+ #{mod 4076}#)))
+ (if #{first 4084}#
+ (let ((#{rest 4088}#
+ (#{match-each 4060}#
+ (cdr #{e 4073}#)
+ #{p 4074}#
+ #{w 4075}#
+ #{mod 4076}#)))
+ (if #{rest 4088}#
+ (cons #{first 4084}# #{rest 4088}#)
#f))
#f))
- (if (null? #{e 4057}#)
+ (if (null? #{e 4073}#)
'()
- (if (#{syntax-object? 309}# #{e 4057}#)
- (#{match-each 4044}#
- (#{syntax-object-expression 311}# #{e 4057}#)
- #{p 4058}#
+ (if (#{syntax-object? 309}# #{e 4073}#)
+ (#{match-each 4060}#
+ (#{syntax-object-expression 311}# #{e 4073}#)
+ #{p 4074}#
(#{join-wraps 391}#
- #{w 4059}#
- (#{syntax-object-wrap 313}# #{e 4057}#))
- (#{syntax-object-module 315}# #{e 4057}#))
+ #{w 4075}#
+ (#{syntax-object-wrap 313}# #{e 4073}#))
+ (#{syntax-object-module 315}# #{e 4073}#))
#f)))))
- (#{match-each+ 4046}#
- (lambda (#{e 4080}#
- #{x-pat 4081}#
- #{y-pat 4082}#
- #{z-pat 4083}#
- #{w 4084}#
- #{r 4085}#
- #{mod 4086}#)
+ (#{match-each+ 4062}#
+ (lambda (#{e 4096}#
+ #{x-pat 4097}#
+ #{y-pat 4098}#
+ #{z-pat 4099}#
+ #{w 4100}#
+ #{r 4101}#
+ #{mod 4102}#)
(letrec*
- ((#{f 4097}#
- (lambda (#{e 4098}# #{w 4099}#)
- (if (pair? #{e 4098}#)
+ ((#{f 4113}#
+ (lambda (#{e 4114}# #{w 4115}#)
+ (if (pair? #{e 4114}#)
(call-with-values
(lambda ()
- (#{f 4097}# (cdr #{e 4098}#) #{w 4099}#))
- (lambda (#{xr* 4102}# #{y-pat 4103}# #{r 4104}#)
- (if #{r 4104}#
- (if (null? #{y-pat 4103}#)
- (let ((#{xr 4109}#
- (#{match 4056}#
- (car #{e 4098}#)
- #{x-pat 4081}#
- #{w 4099}#
+ (#{f 4113}# (cdr #{e 4114}#) #{w 4115}#))
+ (lambda (#{xr* 4118}# #{y-pat 4119}# #{r 4120}#)
+ (if #{r 4120}#
+ (if (null? #{y-pat 4119}#)
+ (let ((#{xr 4125}#
+ (#{match 4072}#
+ (car #{e 4114}#)
+ #{x-pat 4097}#
+ #{w 4115}#
'()
- #{mod 4086}#)))
- (if #{xr 4109}#
+ #{mod 4102}#)))
+ (if #{xr 4125}#
(values
- (cons #{xr 4109}# #{xr* 4102}#)
- #{y-pat 4103}#
- #{r 4104}#)
+ (cons #{xr 4125}# #{xr* 4118}#)
+ #{y-pat 4119}#
+ #{r 4120}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 4103}#)
- (#{match 4056}#
- (car #{e 4098}#)
- (car #{y-pat 4103}#)
- #{w 4099}#
- #{r 4104}#
- #{mod 4086}#)))
+ (cdr #{y-pat 4119}#)
+ (#{match 4072}#
+ (car #{e 4114}#)
+ (car #{y-pat 4119}#)
+ #{w 4115}#
+ #{r 4120}#
+ #{mod 4102}#)))
(values #f #f #f))))
- (if (#{syntax-object? 309}# #{e 4098}#)
- (#{f 4097}#
- (#{syntax-object-expression 311}# #{e 4098}#)
- (#{join-wraps 391}# #{w 4099}# #{e 4098}#))
+ (if (#{syntax-object? 309}# #{e 4114}#)
+ (#{f 4113}#
+ (#{syntax-object-expression 311}# #{e 4114}#)
+ (#{join-wraps 391}# #{w 4115}# #{e 4114}#))
(values
'()
- #{y-pat 4082}#
- (#{match 4056}#
- #{e 4098}#
- #{z-pat 4083}#
- #{w 4099}#
- #{r 4085}#
- #{mod 4086}#)))))))
- (#{f 4097}# #{e 4080}# #{w 4084}#))))
- (#{match-each-any 4048}#
- (lambda (#{e 4113}# #{w 4114}# #{mod 4115}#)
- (if (pair? #{e 4113}#)
- (let ((#{l 4122}#
- (#{match-each-any 4048}#
- (cdr #{e 4113}#)
- #{w 4114}#
- #{mod 4115}#)))
- (if #{l 4122}#
+ #{y-pat 4098}#
+ (#{match 4072}#
+ #{e 4114}#
+ #{z-pat 4099}#
+ #{w 4115}#
+ #{r 4101}#
+ #{mod 4102}#)))))))
+ (#{f 4113}# #{e 4096}# #{w 4100}#))))
+ (#{match-each-any 4064}#
+ (lambda (#{e 4129}# #{w 4130}# #{mod 4131}#)
+ (if (pair? #{e 4129}#)
+ (let ((#{l 4138}#
+ (#{match-each-any 4064}#
+ (cdr #{e 4129}#)
+ #{w 4130}#
+ #{mod 4131}#)))
+ (if #{l 4138}#
(cons (#{wrap 409}#
- (car #{e 4113}#)
- #{w 4114}#
- #{mod 4115}#)
- #{l 4122}#)
+ (car #{e 4129}#)
+ #{w 4130}#
+ #{mod 4131}#)
+ #{l 4138}#)
#f))
- (if (null? #{e 4113}#)
+ (if (null? #{e 4129}#)
'()
- (if (#{syntax-object? 309}# #{e 4113}#)
- (#{match-each-any 4048}#
- (#{syntax-object-expression 311}# #{e 4113}#)
+ (if (#{syntax-object? 309}# #{e 4129}#)
+ (#{match-each-any 4064}#
+ (#{syntax-object-expression 311}# #{e 4129}#)
(#{join-wraps 391}#
- #{w 4114}#
- (#{syntax-object-wrap 313}# #{e 4113}#))
- #{mod 4115}#)
+ #{w 4130}#
+ (#{syntax-object-wrap 313}# #{e 4129}#))
+ #{mod 4131}#)
#f)))))
- (#{match-empty 4050}#
- (lambda (#{p 4130}# #{r 4131}#)
- (if (null? #{p 4130}#)
- #{r 4131}#
- (if (eq? #{p 4130}# '_)
- #{r 4131}#
- (if (eq? #{p 4130}# 'any)
- (cons '() #{r 4131}#)
- (if (pair? #{p 4130}#)
- (#{match-empty 4050}#
- (car #{p 4130}#)
- (#{match-empty 4050}#
- (cdr #{p 4130}#)
- #{r 4131}#))
- (if (eq? #{p 4130}# 'each-any)
- (cons '() #{r 4131}#)
- (let ((#{atom-key 4147}# (vector-ref #{p 4130}# 0)))
- (if (memv #{atom-key 4147}# '(each))
- (#{match-empty 4050}#
- (vector-ref #{p 4130}# 1)
- #{r 4131}#)
- (if (memv #{atom-key 4147}# '(each+))
- (#{match-empty 4050}#
- (vector-ref #{p 4130}# 1)
- (#{match-empty 4050}#
- (reverse (vector-ref #{p 4130}# 2))
- (#{match-empty 4050}#
- (vector-ref #{p 4130}# 3)
- #{r 4131}#)))
- (if (memv #{atom-key 4147}# '(free-id atom))
- #{r 4131}#
- (if (memv #{atom-key 4147}# '(vector))
- (#{match-empty 4050}#
- (vector-ref #{p 4130}# 1)
- #{r 4131}#)))))))))))))
- (#{combine 4052}#
- (lambda (#{r* 4152}# #{r 4153}#)
- (if (null? (car #{r* 4152}#))
- #{r 4153}#
- (cons (map car #{r* 4152}#)
- (#{combine 4052}#
- (map cdr #{r* 4152}#)
- #{r 4153}#)))))
- (#{match* 4054}#
- (lambda (#{e 4156}#
- #{p 4157}#
- #{w 4158}#
- #{r 4159}#
- #{mod 4160}#)
- (if (null? #{p 4157}#)
- (if (null? #{e 4156}#) #{r 4159}# #f)
- (if (pair? #{p 4157}#)
- (if (pair? #{e 4156}#)
- (#{match 4056}#
- (car #{e 4156}#)
- (car #{p 4157}#)
- #{w 4158}#
- (#{match 4056}#
- (cdr #{e 4156}#)
- (cdr #{p 4157}#)
- #{w 4158}#
- #{r 4159}#
- #{mod 4160}#)
- #{mod 4160}#)
+ (#{match-empty 4066}#
+ (lambda (#{p 4146}# #{r 4147}#)
+ (if (null? #{p 4146}#)
+ #{r 4147}#
+ (if (eq? #{p 4146}# '_)
+ #{r 4147}#
+ (if (eq? #{p 4146}# 'any)
+ (cons '() #{r 4147}#)
+ (if (pair? #{p 4146}#)
+ (#{match-empty 4066}#
+ (car #{p 4146}#)
+ (#{match-empty 4066}#
+ (cdr #{p 4146}#)
+ #{r 4147}#))
+ (if (eq? #{p 4146}# 'each-any)
+ (cons '() #{r 4147}#)
+ (let ((#{atom-key 4163}# (vector-ref #{p 4146}# 0)))
+ (if (memv #{atom-key 4163}# '(each))
+ (#{match-empty 4066}#
+ (vector-ref #{p 4146}# 1)
+ #{r 4147}#)
+ (if (memv #{atom-key 4163}# '(each+))
+ (#{match-empty 4066}#
+ (vector-ref #{p 4146}# 1)
+ (#{match-empty 4066}#
+ (reverse (vector-ref #{p 4146}# 2))
+ (#{match-empty 4066}#
+ (vector-ref #{p 4146}# 3)
+ #{r 4147}#)))
+ (if (memv #{atom-key 4163}# '(free-id atom))
+ #{r 4147}#
+ (if (memv #{atom-key 4163}# '(vector))
+ (#{match-empty 4066}#
+ (vector-ref #{p 4146}# 1)
+ #{r 4147}#)))))))))))))
+ (#{combine 4068}#
+ (lambda (#{r* 4168}# #{r 4169}#)
+ (if (null? (car #{r* 4168}#))
+ #{r 4169}#
+ (cons (map car #{r* 4168}#)
+ (#{combine 4068}#
+ (map cdr #{r* 4168}#)
+ #{r 4169}#)))))
+ (#{match* 4070}#
+ (lambda (#{e 4172}#
+ #{p 4173}#
+ #{w 4174}#
+ #{r 4175}#
+ #{mod 4176}#)
+ (if (null? #{p 4173}#)
+ (if (null? #{e 4172}#) #{r 4175}# #f)
+ (if (pair? #{p 4173}#)
+ (if (pair? #{e 4172}#)
+ (#{match 4072}#
+ (car #{e 4172}#)
+ (car #{p 4173}#)
+ #{w 4174}#
+ (#{match 4072}#
+ (cdr #{e 4172}#)
+ (cdr #{p 4173}#)
+ #{w 4174}#
+ #{r 4175}#
+ #{mod 4176}#)
+ #{mod 4176}#)
#f)
- (if (eq? #{p 4157}# 'each-any)
- (let ((#{l 4177}#
- (#{match-each-any 4048}#
- #{e 4156}#
- #{w 4158}#
- #{mod 4160}#)))
- (if #{l 4177}# (cons #{l 4177}# #{r 4159}#) #f))
- (let ((#{atom-key 4183}# (vector-ref #{p 4157}# 0)))
- (if (memv #{atom-key 4183}# '(each))
- (if (null? #{e 4156}#)
- (#{match-empty 4050}#
- (vector-ref #{p 4157}# 1)
- #{r 4159}#)
- (let ((#{l 4186}#
- (#{match-each 4044}#
- #{e 4156}#
- (vector-ref #{p 4157}# 1)
- #{w 4158}#
- #{mod 4160}#)))
- (if #{l 4186}#
+ (if (eq? #{p 4173}# 'each-any)
+ (let ((#{l 4193}#
+ (#{match-each-any 4064}#
+ #{e 4172}#
+ #{w 4174}#
+ #{mod 4176}#)))
+ (if #{l 4193}# (cons #{l 4193}# #{r 4175}#) #f))
+ (let ((#{atom-key 4199}# (vector-ref #{p 4173}# 0)))
+ (if (memv #{atom-key 4199}# '(each))
+ (if (null? #{e 4172}#)
+ (#{match-empty 4066}#
+ (vector-ref #{p 4173}# 1)
+ #{r 4175}#)
+ (let ((#{l 4202}#
+ (#{match-each 4060}#
+ #{e 4172}#
+ (vector-ref #{p 4173}# 1)
+ #{w 4174}#
+ #{mod 4176}#)))
+ (if #{l 4202}#
(letrec*
- ((#{collect 4191}#
- (lambda (#{l 4192}#)
- (if (null? (car #{l 4192}#))
- #{r 4159}#
- (cons (map car #{l 4192}#)
- (#{collect 4191}#
- (map cdr #{l 4192}#)))))))
- (#{collect 4191}# #{l 4186}#))
+ ((#{collect 4207}#
+ (lambda (#{l 4208}#)
+ (if (null? (car #{l 4208}#))
+ #{r 4175}#
+ (cons (map car #{l 4208}#)
+ (#{collect 4207}#
+ (map cdr #{l 4208}#)))))))
+ (#{collect 4207}# #{l 4202}#))
#f)))
- (if (memv #{atom-key 4183}# '(each+))
+ (if (memv #{atom-key 4199}# '(each+))
(call-with-values
(lambda ()
- (#{match-each+ 4046}#
- #{e 4156}#
- (vector-ref #{p 4157}# 1)
- (vector-ref #{p 4157}# 2)
- (vector-ref #{p 4157}# 3)
- #{w 4158}#
- #{r 4159}#
- #{mod 4160}#))
- (lambda (#{xr* 4194}# #{y-pat 4195}# #{r 4196}#)
- (if #{r 4196}#
- (if (null? #{y-pat 4195}#)
- (if (null? #{xr* 4194}#)
- (#{match-empty 4050}#
- (vector-ref #{p 4157}# 1)
- #{r 4196}#)
- (#{combine 4052}# #{xr* 4194}# #{r 4196}#))
+ (#{match-each+ 4062}#
+ #{e 4172}#
+ (vector-ref #{p 4173}# 1)
+ (vector-ref #{p 4173}# 2)
+ (vector-ref #{p 4173}# 3)
+ #{w 4174}#
+ #{r 4175}#
+ #{mod 4176}#))
+ (lambda (#{xr* 4210}# #{y-pat 4211}# #{r 4212}#)
+ (if #{r 4212}#
+ (if (null? #{y-pat 4211}#)
+ (if (null? #{xr* 4210}#)
+ (#{match-empty 4066}#
+ (vector-ref #{p 4173}# 1)
+ #{r 4212}#)
+ (#{combine 4068}# #{xr* 4210}# #{r 4212}#))
#f)
#f)))
- (if (memv #{atom-key 4183}# '(free-id))
- (if (#{id? 343}# #{e 4156}#)
+ (if (memv #{atom-key 4199}# '(free-id))
+ (if (#{id? 343}# #{e 4172}#)
(if (#{free-id=? 399}#
(#{wrap 409}#
- #{e 4156}#
- #{w 4158}#
- #{mod 4160}#)
- (vector-ref #{p 4157}# 1))
- #{r 4159}#
+ #{e 4172}#
+ #{w 4174}#
+ #{mod 4176}#)
+ (vector-ref #{p 4173}# 1))
+ #{r 4175}#
#f)
#f)
- (if (memv #{atom-key 4183}# '(atom))
+ (if (memv #{atom-key 4199}# '(atom))
(if (equal?
- (vector-ref #{p 4157}# 1)
- (#{strip 449}# #{e 4156}# #{w 4158}#))
- #{r 4159}#
+ (vector-ref #{p 4173}# 1)
+ (#{strip 449}# #{e 4172}# #{w 4174}#))
+ #{r 4175}#
#f)
- (if (memv #{atom-key 4183}# '(vector))
- (if (vector? #{e 4156}#)
- (#{match 4056}#
- (vector->list #{e 4156}#)
- (vector-ref #{p 4157}# 1)
- #{w 4158}#
- #{r 4159}#
- #{mod 4160}#)
+ (if (memv #{atom-key 4199}# '(vector))
+ (if (vector? #{e 4172}#)
+ (#{match 4072}#
+ (vector->list #{e 4172}#)
+ (vector-ref #{p 4173}# 1)
+ #{w 4174}#
+ #{r 4175}#
+ #{mod 4176}#)
#f))))))))))))
- (#{match 4056}#
- (lambda (#{e 4213}#
- #{p 4214}#
- #{w 4215}#
- #{r 4216}#
- #{mod 4217}#)
- (if (not #{r 4216}#)
+ (#{match 4072}#
+ (lambda (#{e 4229}#
+ #{p 4230}#
+ #{w 4231}#
+ #{r 4232}#
+ #{mod 4233}#)
+ (if (not #{r 4232}#)
#f
- (if (eq? #{p 4214}# '_)
- #{r 4216}#
- (if (eq? #{p 4214}# 'any)
- (cons (#{wrap 409}# #{e 4213}# #{w 4215}# #{mod 4217}#)
- #{r 4216}#)
- (if (#{syntax-object? 309}# #{e 4213}#)
- (#{match* 4054}#
- (#{syntax-object-expression 311}# #{e 4213}#)
- #{p 4214}#
+ (if (eq? #{p 4230}# '_)
+ #{r 4232}#
+ (if (eq? #{p 4230}# 'any)
+ (cons (#{wrap 409}# #{e 4229}# #{w 4231}# #{mod 4233}#)
+ #{r 4232}#)
+ (if (#{syntax-object? 309}# #{e 4229}#)
+ (#{match* 4070}#
+ (#{syntax-object-expression 311}# #{e 4229}#)
+ #{p 4230}#
(#{join-wraps 391}#
- #{w 4215}#
- (#{syntax-object-wrap 313}# #{e 4213}#))
- #{r 4216}#
- (#{syntax-object-module 315}# #{e 4213}#))
- (#{match* 4054}#
- #{e 4213}#
- #{p 4214}#
- #{w 4215}#
- #{r 4216}#
- #{mod 4217}#))))))))
+ #{w 4231}#
+ (#{syntax-object-wrap 313}# #{e 4229}#))
+ #{r 4232}#
+ (#{syntax-object-module 315}# #{e 4229}#))
+ (#{match* 4070}#
+ #{e 4229}#
+ #{p 4230}#
+ #{w 4231}#
+ #{r 4232}#
+ #{mod 4233}#))))))))
(set! $sc-dispatch
- (lambda (#{e 4232}# #{p 4233}#)
- (if (eq? #{p 4233}# 'any)
- (list #{e 4232}#)
- (if (eq? #{p 4233}# '_)
+ (lambda (#{e 4248}# #{p 4249}#)
+ (if (eq? #{p 4249}# 'any)
+ (list #{e 4248}#)
+ (if (eq? #{p 4249}# '_)
'()
- (if (#{syntax-object? 309}# #{e 4232}#)
- (#{match* 4054}#
- (#{syntax-object-expression 311}# #{e 4232}#)
- #{p 4233}#
- (#{syntax-object-wrap 313}# #{e 4232}#)
+ (if (#{syntax-object? 309}# #{e 4248}#)
+ (#{match* 4070}#
+ (#{syntax-object-expression 311}# #{e 4248}#)
+ #{p 4249}#
+ (#{syntax-object-wrap 313}# #{e 4248}#)
'()
- (#{syntax-object-module 315}# #{e 4232}#))
- (#{match* 4054}#
- #{e 4232}#
- #{p 4233}#
+ (#{syntax-object-module 315}# #{e 4248}#))
+ (#{match* 4070}#
+ #{e 4248}#
+ #{p 4249}#
'(())
'()
#f)))))))))
@@ -13946,82 +12218,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 4244}#)
- (let ((#{tmp 4246}# #{x 4244}#))
- (let ((#{tmp 4247}#
+ (lambda (#{x 4260}#)
+ (let ((#{tmp 4262}# #{x 4260}#))
+ (let ((#{tmp 4263}#
($sc-dispatch
- #{tmp 4246}#
+ #{tmp 4262}#
'(_ () any . each-any))))
- (if #{tmp 4247}#
+ (if #{tmp 4263}#
(@apply
- (lambda (#{e1 4250}# #{e2 4251}#)
+ (lambda (#{e1 4266}# #{e2 4267}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4248" "i4249"))
+ #("i4264" "i4265"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4245")))
+ #(ribcage #(x) #((top)) #("i4261")))
(hygiene guile))
- (cons '() (cons #{e1 4250}# #{e2 4251}#))))
- #{tmp 4247}#)
- (let ((#{tmp 4253}#
+ (cons '() (cons #{e1 4266}# #{e2 4267}#))))
+ #{tmp 4263}#)
+ (let ((#{tmp 4269}#
($sc-dispatch
- #{tmp 4246}#
+ #{tmp 4262}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 4253}#
+ (if #{tmp 4269}#
(@apply
- (lambda (#{out 4258}#
- #{in 4259}#
- #{e1 4260}#
- #{e2 4261}#)
+ (lambda (#{out 4274}#
+ #{in 4275}#
+ #{e1 4276}#
+ #{e2 4277}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4254" "i4255" "i4256" "i4257"))
+ #("i4270" "i4271" "i4272" "i4273"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4245")))
+ #(ribcage #(x) #((top)) #("i4261")))
(hygiene guile))
- #{in 4259}#
+ #{in 4275}#
'()
- (list #{out 4258}#
+ (list #{out 4274}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4254" "i4255" "i4256" "i4257"))
+ #("i4270" "i4271" "i4272" "i4273"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4245")))
+ #(ribcage #(x) #((top)) #("i4261")))
(hygiene guile))
(cons '()
- (cons #{e1 4260}# #{e2 4261}#))))))
- #{tmp 4253}#)
- (let ((#{tmp 4263}#
+ (cons #{e1 4276}# #{e2 4277}#))))))
+ #{tmp 4269}#)
+ (let ((#{tmp 4279}#
($sc-dispatch
- #{tmp 4246}#
+ #{tmp 4262}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4263}#
+ (if #{tmp 4279}#
(@apply
- (lambda (#{out 4268}#
- #{in 4269}#
- #{e1 4270}#
- #{e2 4271}#)
+ (lambda (#{out 4284}#
+ #{in 4285}#
+ #{e1 4286}#
+ #{e2 4287}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
+ #("i4280" "i4281" "i4282" "i4283"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4245")))
+ #(ribcage #(x) #((top)) #("i4261")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14029,63 +12301,63 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
+ #("i4280" "i4281" "i4282" "i4283"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4245")))
+ #(ribcage #(x) #((top)) #("i4261")))
(hygiene guile))
- #{in 4269}#)
+ #{in 4285}#)
'()
- (list #{out 4268}#
+ (list #{out 4284}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4264"
- "i4265"
- "i4266"
- "i4267"))
+ #("i4280"
+ "i4281"
+ "i4282"
+ "i4283"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4245")))
+ #("i4261")))
(hygiene guile))
(cons '()
- (cons #{e1 4270}#
- #{e2 4271}#))))))
- #{tmp 4263}#)
+ (cons #{e1 4286}#
+ #{e2 4287}#))))))
+ #{tmp 4279}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4246}#)))))))))))
+ #{tmp 4262}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 4275}#)
- (let ((#{tmp 4277}# #{x 4275}#))
- (let ((#{tmp 4278}#
+ (lambda (#{x 4291}#)
+ (let ((#{tmp 4293}# #{x 4291}#))
+ (let ((#{tmp 4294}#
($sc-dispatch
- #{tmp 4277}#
+ #{tmp 4293}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4278}#
+ (if #{tmp 4294}#
(@apply
- (lambda (#{k 4283}#
- #{keyword 4284}#
- #{pattern 4285}#
- #{template 4286}#)
+ (lambda (#{k 4299}#
+ #{keyword 4300}#
+ #{pattern 4301}#
+ #{template 4302}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
'(#(syntax-object
x
@@ -14093,9 +12365,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14104,9 +12376,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
.
#(syntax-object
@@ -14115,9 +12387,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14125,20 +12397,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
- #{pattern 4285}#))
+ #{pattern 4301}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14146,13 +12418,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4279" "i4280" "i4281" "i4282"))
+ #("i4295" "i4296" "i4297" "i4298"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
- (cons #{k 4283}#
- (map (lambda (#{tmp 4290}#
- #{tmp 4289}#)
+ (cons #{k 4299}#
+ (map (lambda (#{tmp 4306}#
+ #{tmp 4305}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14165,10 +12437,10 @@
(top)
(top)
(top))
- #("i4279"
- "i4280"
- "i4281"
- "i4282"))
+ #("i4295"
+ "i4296"
+ "i4297"
+ "i4298"))
#(ribcage
()
()
@@ -14176,9 +12448,9 @@
#(ribcage
#(x)
#((top))
- #("i4276")))
+ #("i4292")))
(hygiene guile))
- #{tmp 4289}#)
+ #{tmp 4305}#)
(list '#(syntax-object
syntax
((top)
@@ -14191,10 +12463,10 @@
(top)
(top)
(top))
- #("i4279"
- "i4280"
- "i4281"
- "i4282"))
+ #("i4295"
+ "i4296"
+ "i4297"
+ "i4298"))
#(ribcage
()
()
@@ -14202,41 +12474,41 @@
#(ribcage
#(x)
#((top))
- #("i4276")))
+ #("i4292")))
(hygiene guile))
- #{tmp 4290}#)))
- #{template 4286}#
- #{pattern 4285}#))))))
- #{tmp 4278}#)
- (let ((#{tmp 4291}#
+ #{tmp 4306}#)))
+ #{template 4302}#
+ #{pattern 4301}#))))))
+ #{tmp 4294}#)
+ (let ((#{tmp 4307}#
($sc-dispatch
- #{tmp 4277}#
+ #{tmp 4293}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4291}#
+ (if (if #{tmp 4307}#
(@apply
- (lambda (#{k 4297}#
- #{docstring 4298}#
- #{keyword 4299}#
- #{pattern 4300}#
- #{template 4301}#)
- (string? (syntax->datum #{docstring 4298}#)))
- #{tmp 4291}#)
+ (lambda (#{k 4313}#
+ #{docstring 4314}#
+ #{keyword 4315}#
+ #{pattern 4316}#
+ #{template 4317}#)
+ (string? (syntax->datum #{docstring 4314}#)))
+ #{tmp 4307}#)
#f)
(@apply
- (lambda (#{k 4307}#
- #{docstring 4308}#
- #{keyword 4309}#
- #{pattern 4310}#
- #{template 4311}#)
+ (lambda (#{k 4323}#
+ #{docstring 4324}#
+ #{keyword 4325}#
+ #{pattern 4326}#
+ #{template 4327}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302" "i4303" "i4304" "i4305" "i4306"))
+ #("i4318" "i4319" "i4320" "i4321" "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
'(#(syntax-object
x
@@ -14244,11 +12516,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302" "i4303" "i4304" "i4305" "i4306"))
+ #("i4318" "i4319" "i4320" "i4321" "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile)))
- #{docstring 4308}#
+ #{docstring 4324}#
(vector
'(#(syntax-object
macro-type
@@ -14256,9 +12528,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302" "i4303" "i4304" "i4305" "i4306"))
+ #("i4318" "i4319" "i4320" "i4321" "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
.
#(syntax-object
@@ -14267,9 +12539,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302" "i4303" "i4304" "i4305" "i4306"))
+ #("i4318" "i4319" "i4320" "i4321" "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14277,28 +12549,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302"
- "i4303"
- "i4304"
- "i4305"
- "i4306"))
+ #("i4318"
+ "i4319"
+ "i4320"
+ "i4321"
+ "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
- #{pattern 4310}#))
+ #{pattern 4326}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4302"
- "i4303"
- "i4304"
- "i4305"
- "i4306"))
+ #("i4318"
+ "i4319"
+ "i4320"
+ "i4321"
+ "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14310,17 +12582,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4302"
- "i4303"
- "i4304"
- "i4305"
- "i4306"))
+ #("i4318"
+ "i4319"
+ "i4320"
+ "i4321"
+ "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4292")))
(hygiene guile))
- (cons #{k 4307}#
- (map (lambda (#{tmp 4315}#
- #{tmp 4314}#)
+ (cons #{k 4323}#
+ (map (lambda (#{tmp 4331}#
+ #{tmp 4330}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14335,11 +12607,11 @@
(top)
(top)
(top))
- #("i4302"
- "i4303"
- "i4304"
- "i4305"
- "i4306"))
+ #("i4318"
+ "i4319"
+ "i4320"
+ "i4321"
+ "i4322"))
#(ribcage
()
()
@@ -14347,10 +12619,10 @@
#(ribcage
#(x)
#((top))
- #("i4276")))
+ #("i4292")))
(hygiene
guile))
- #{tmp 4314}#)
+ #{tmp 4330}#)
(list '#(syntax-object
syntax
((top)
@@ -14365,11 +12637,11 @@
(top)
(top)
(top))
- #("i4302"
- "i4303"
- "i4304"
- "i4305"
- "i4306"))
+ #("i4318"
+ "i4319"
+ "i4320"
+ "i4321"
+ "i4322"))
#(ribcage
()
()
@@ -14377,48 +12649,48 @@
#(ribcage
#(x)
#((top))
- #("i4276")))
+ #("i4292")))
(hygiene
guile))
- #{tmp 4315}#)))
- #{template 4311}#
- #{pattern 4310}#))))))
- #{tmp 4291}#)
+ #{tmp 4331}#)))
+ #{template 4327}#
+ #{pattern 4326}#))))))
+ #{tmp 4307}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4277}#)))))))))
+ #{tmp 4293}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 4316}#)
- (let ((#{tmp 4318}# #{x 4316}#))
- (let ((#{tmp 4319}#
+ (lambda (#{x 4332}#)
+ (let ((#{tmp 4334}# #{x 4332}#))
+ (let ((#{tmp 4335}#
($sc-dispatch
- #{tmp 4318}#
+ #{tmp 4334}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4319}#
+ (if (if #{tmp 4335}#
(@apply
- (lambda (#{let* 4325}#
- #{x 4326}#
- #{v 4327}#
- #{e1 4328}#
- #{e2 4329}#)
- (and-map identifier? #{x 4326}#))
- #{tmp 4319}#)
+ (lambda (#{let* 4341}#
+ #{x 4342}#
+ #{v 4343}#
+ #{e1 4344}#
+ #{e2 4345}#)
+ (and-map identifier? #{x 4342}#))
+ #{tmp 4335}#)
#f)
(@apply
- (lambda (#{let* 4336}#
- #{x 4337}#
- #{v 4338}#
- #{e1 4339}#
- #{e2 4340}#)
+ (lambda (#{let* 4352}#
+ #{x 4353}#
+ #{v 4354}#
+ #{e1 4355}#
+ #{e2 4356}#)
(letrec*
- ((#{f 4343}#
- (lambda (#{bindings 4344}#)
- (if (null? #{bindings 4344}#)
+ ((#{f 4359}#
+ (lambda (#{bindings 4360}#)
+ (if (null? #{bindings 4360}#)
(cons '#(syntax-object
let
((top)
@@ -14426,27 +12698,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4341" "i4342"))
+ #("i4357" "i4358"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4331"
- "i4332"
- "i4333"
- "i4334"
- "i4335"))
+ #("i4347"
+ "i4348"
+ "i4349"
+ "i4350"
+ "i4351"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4317")))
+ #(ribcage #(x) #((top)) #("i4333")))
(hygiene guile))
- (cons '() (cons #{e1 4339}# #{e2 4340}#)))
- (let ((#{tmp 4349}#
- (list (#{f 4343}# (cdr #{bindings 4344}#))
- (car #{bindings 4344}#))))
- (let ((#{tmp 4350}#
- ($sc-dispatch #{tmp 4349}# '(any any))))
- (if #{tmp 4350}#
+ (cons '() (cons #{e1 4355}# #{e2 4356}#)))
+ (let ((#{tmp 4365}#
+ (list (#{f 4359}# (cdr #{bindings 4360}#))
+ (car #{bindings 4360}#))))
+ (let ((#{tmp 4366}#
+ ($sc-dispatch #{tmp 4365}# '(any any))))
+ (if #{tmp 4366}#
(@apply
- (lambda (#{body 4353}# #{binding 4354}#)
+ (lambda (#{body 4369}# #{binding 4370}#)
(list '#(syntax-object
let
((top)
@@ -14454,95 +12726,95 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i4351" "i4352"))
+ #("i4367" "i4368"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4341" "i4342"))
+ #("i4357" "i4358"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4331"
- "i4332"
- "i4333"
- "i4334"
- "i4335"))
+ #("i4347"
+ "i4348"
+ "i4349"
+ "i4350"
+ "i4351"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4317")))
+ #("i4333")))
(hygiene guile))
- (list #{binding 4354}#)
- #{body 4353}#))
- #{tmp 4350}#)
+ (list #{binding 4370}#)
+ #{body 4369}#))
+ #{tmp 4366}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4349}#))))))))
- (#{f 4343}# (map list #{x 4337}# #{v 4338}#))))
- #{tmp 4319}#)
+ #{tmp 4365}#))))))))
+ (#{f 4359}# (map list #{x 4353}# #{v 4354}#))))
+ #{tmp 4335}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4318}#)))))))
+ #{tmp 4334}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 4355}#)
- (let ((#{tmp 4357}# #{orig-x 4355}#))
- (let ((#{tmp 4358}#
+ (lambda (#{orig-x 4371}#)
+ (let ((#{tmp 4373}# #{orig-x 4371}#))
+ (let ((#{tmp 4374}#
($sc-dispatch
- #{tmp 4357}#
+ #{tmp 4373}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 4358}#
+ (if #{tmp 4374}#
(@apply
- (lambda (#{var 4365}#
- #{init 4366}#
- #{step 4367}#
- #{e0 4368}#
- #{e1 4369}#
- #{c 4370}#)
- (let ((#{tmp 4372}#
- (map (lambda (#{v 4393}# #{s 4394}#)
- (let ((#{tmp 4397}# #{s 4394}#))
- (let ((#{tmp 4398}#
- ($sc-dispatch #{tmp 4397}# '())))
- (if #{tmp 4398}#
+ (lambda (#{var 4381}#
+ #{init 4382}#
+ #{step 4383}#
+ #{e0 4384}#
+ #{e1 4385}#
+ #{c 4386}#)
+ (let ((#{tmp 4388}#
+ (map (lambda (#{v 4409}# #{s 4410}#)
+ (let ((#{tmp 4413}# #{s 4410}#))
+ (let ((#{tmp 4414}#
+ ($sc-dispatch #{tmp 4413}# '())))
+ (if #{tmp 4414}#
(@apply
- (lambda () #{v 4393}#)
- #{tmp 4398}#)
- (let ((#{tmp 4399}#
+ (lambda () #{v 4409}#)
+ #{tmp 4414}#)
+ (let ((#{tmp 4415}#
($sc-dispatch
- #{tmp 4397}#
+ #{tmp 4413}#
'(any))))
- (if #{tmp 4399}#
+ (if #{tmp 4415}#
(@apply
- (lambda (#{e 4401}#) #{e 4401}#)
- #{tmp 4399}#)
- (let ((#{_ 4403}# #{tmp 4397}#))
+ (lambda (#{e 4417}#) #{e 4417}#)
+ #{tmp 4415}#)
+ (let ((#{_ 4419}# #{tmp 4413}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x 4355}#
- #{s 4394}#))))))))
- #{var 4365}#
- #{step 4367}#)))
- (let ((#{tmp 4373}#
- ($sc-dispatch #{tmp 4372}# 'each-any)))
- (if #{tmp 4373}#
+ #{orig-x 4371}#
+ #{s 4410}#))))))))
+ #{var 4381}#
+ #{step 4383}#)))
+ (let ((#{tmp 4389}#
+ ($sc-dispatch #{tmp 4388}# 'each-any)))
+ (if #{tmp 4389}#
(@apply
- (lambda (#{step 4375}#)
- (let ((#{tmp 4376}# #{e1 4369}#))
- (let ((#{tmp 4377}#
- ($sc-dispatch #{tmp 4376}# '())))
- (if #{tmp 4377}#
+ (lambda (#{step 4391}#)
+ (let ((#{tmp 4392}# #{e1 4385}#))
+ (let ((#{tmp 4393}#
+ ($sc-dispatch #{tmp 4392}# '())))
+ (if #{tmp 4393}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -14552,7 +12824,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14561,17 +12833,17 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14580,7 +12852,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14589,19 +12861,19 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
- (map list #{var 4365}# #{init 4366}#)
+ (map list #{var 4381}# #{init 4382}#)
(list '#(syntax-object
if
((top)
@@ -14609,7 +12881,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14618,17 +12890,17 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
(list '#(syntax-object
not
@@ -14637,7 +12909,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14651,19 +12923,19 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
- #{e0 4368}#)
+ #{e0 4384}#)
(cons '#(syntax-object
begin
((top)
@@ -14671,7 +12943,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14685,20 +12957,20 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
(append
- #{c 4370}#
+ #{c 4386}#
(list (cons '#(syntax-object
doloop
((top)
@@ -14709,7 +12981,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14723,12 +12995,12 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage
()
()
@@ -14736,30 +13008,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene
guile))
- #{step 4375}#)))))))
- #{tmp 4377}#)
- (let ((#{tmp 4382}#
+ #{step 4391}#)))))))
+ #{tmp 4393}#)
+ (let ((#{tmp 4398}#
($sc-dispatch
- #{tmp 4376}#
+ #{tmp 4392}#
'(any . each-any))))
- (if #{tmp 4382}#
+ (if #{tmp 4398}#
(@apply
- (lambda (#{e1 4385}# #{e2 4386}#)
+ (lambda (#{e1 4401}# #{e2 4402}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4383" "i4384"))
+ #("i4399" "i4400"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14768,17 +13040,17 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14786,12 +13058,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4383" "i4384"))
+ #("i4399" "i4400"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14800,33 +13072,33 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
(map list
- #{var 4365}#
- #{init 4366}#)
+ #{var 4381}#
+ #{init 4382}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4383" "i4384"))
+ #("i4399" "i4400"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14840,27 +13112,27 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
- #{e0 4368}#
+ #{e0 4384}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4383"
- "i4384"))
+ #("i4399"
+ "i4400"))
#(ribcage
()
()
@@ -14868,7 +13140,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14882,12 +13154,12 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage
()
()
@@ -14895,18 +13167,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
- (cons #{e1 4385}#
- #{e2 4386}#))
+ (cons #{e1 4401}#
+ #{e2 4402}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4383"
- "i4384"))
+ #("i4399"
+ "i4400"))
#(ribcage
()
()
@@ -14914,7 +13186,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14928,12 +13200,12 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage
()
()
@@ -14941,10 +13213,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene guile))
(append
- #{c 4370}#
+ #{c 4386}#
(list (cons '#(syntax-object
doloop
((top)
@@ -14953,8 +13225,8 @@
e2)
#((top)
(top))
- #("i4383"
- "i4384"))
+ #("i4399"
+ "i4400"))
#(ribcage
()
()
@@ -14962,7 +13234,7 @@
#(ribcage
#(step)
#((top))
- #("i4374"))
+ #("i4390"))
#(ribcage
#(var
init
@@ -14976,12 +13248,12 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"
+ "i4379"
+ "i4380"))
#(ribcage
()
()
@@ -14989,37 +13261,37 @@
#(ribcage
#(orig-x)
#((top))
- #("i4356")))
+ #("i4372")))
(hygiene
guile))
- #{step 4375}#)))))))
- #{tmp 4382}#)
+ #{step 4391}#)))))))
+ #{tmp 4398}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4376}#)))))))
- #{tmp 4373}#)
+ #{tmp 4392}#)))))))
+ #{tmp 4389}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4372}#)))))
- #{tmp 4358}#)
+ #{tmp 4388}#)))))
+ #{tmp 4374}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4357}#)))))))
+ #{tmp 4373}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 4407}#
- (lambda (#{p 4420}# #{lev 4421}#)
- (let ((#{tmp 4424}# #{p 4420}#))
- (let ((#{tmp 4425}#
+ ((#{quasi 4423}#
+ (lambda (#{p 4436}# #{lev 4437}#)
+ (let ((#{tmp 4440}# #{p 4436}#))
+ (let ((#{tmp 4441}#
($sc-dispatch
- #{tmp 4424}#
+ #{tmp 4440}#
'(#(free-id
#(syntax-object
unquote
@@ -15028,7 +13300,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15037,28 +13309,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
any))))
- (if #{tmp 4425}#
+ (if #{tmp 4441}#
(@apply
- (lambda (#{p 4427}#)
- (if (= #{lev 4421}# 0)
+ (lambda (#{p 4443}#)
+ (if (= #{lev 4437}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4442"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15067,25 +13339,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{p 4427}#)
- (#{quasicons 4411}#
+ #{p 4443}#)
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4442"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15094,23 +13366,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4442"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15119,21 +13391,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- (list #{p 4427}#)
- (#{1-}# #{lev 4421}#)))))
- #{tmp 4425}#)
- (let ((#{tmp 4428}#
+ (#{quasi 4423}#
+ (list #{p 4443}#)
+ (#{1-}# #{lev 4437}#)))))
+ #{tmp 4441}#)
+ (let ((#{tmp 4444}#
($sc-dispatch
- #{tmp 4424}#
+ #{tmp 4440}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15142,7 +13414,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15151,28 +13423,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
any))))
- (if #{tmp 4428}#
+ (if #{tmp 4444}#
(@apply
- (lambda (#{p 4430}#)
- (#{quasicons 4411}#
+ (lambda (#{p 4446}#)
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4429"))
+ #(ribcage #(p) #((top)) #("i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15181,23 +13453,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4429"))
+ #(ribcage #(p) #((top)) #("i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15206,27 +13478,27 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- (list #{p 4430}#)
- (#{1+}# #{lev 4421}#))))
- #{tmp 4428}#)
- (let ((#{tmp 4431}#
- ($sc-dispatch #{tmp 4424}# '(any . any))))
- (if #{tmp 4431}#
+ (#{quasi 4423}#
+ (list #{p 4446}#)
+ (#{1+}# #{lev 4437}#))))
+ #{tmp 4444}#)
+ (let ((#{tmp 4447}#
+ ($sc-dispatch #{tmp 4440}# '(any . any))))
+ (if #{tmp 4447}#
(@apply
- (lambda (#{p 4434}# #{q 4435}#)
- (let ((#{tmp 4436}# #{p 4434}#))
- (let ((#{tmp 4437}#
+ (lambda (#{p 4450}# #{q 4451}#)
+ (let ((#{tmp 4452}# #{p 4450}#))
+ (let ((#{tmp 4453}#
($sc-dispatch
- #{tmp 4436}#
+ #{tmp 4452}#
'(#(free-id
#(syntax-object
unquote
@@ -15234,12 +13506,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15254,40 +13526,40 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4437}#
+ (if #{tmp 4453}#
(@apply
- (lambda (#{p 4439}#)
- (if (= #{lev 4421}# 0)
- (#{quasilist* 4415}#
- (map (lambda (#{tmp 4440}#)
+ (lambda (#{p 4455}#)
+ (if (= #{lev 4437}# 0)
+ (#{quasilist* 4431}#
+ (map (lambda (#{tmp 4456}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4438"))
+ #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4432"
- "i4433"))
+ #("i4448"
+ "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422"
- "i4423"))
+ #("i4438"
+ "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15302,37 +13574,37 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{tmp 4440}#))
- #{p 4439}#)
- (#{quasi 4407}#
- #{q 4435}#
- #{lev 4421}#))
- (#{quasicons 4411}#
- (#{quasicons 4411}#
+ #{tmp 4456}#))
+ #{p 4455}#)
+ (#{quasi 4423}#
+ #{q 4451}#
+ #{lev 4437}#))
+ (#{quasicons 4427}#
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4438"))
+ #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15347,13 +13619,13 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
unquote
@@ -15361,16 +13633,16 @@
#(ribcage
#(p)
#((top))
- #("i4438"))
+ #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15385,24 +13657,24 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- #{p 4439}#
- (#{1-}# #{lev 4421}#)))
- (#{quasi 4407}#
- #{q 4435}#
- #{lev 4421}#))))
- #{tmp 4437}#)
- (let ((#{tmp 4442}#
+ (#{quasi 4423}#
+ #{p 4455}#
+ (#{1-}# #{lev 4437}#)))
+ (#{quasi 4423}#
+ #{q 4451}#
+ #{lev 4437}#))))
+ #{tmp 4453}#)
+ (let ((#{tmp 4458}#
($sc-dispatch
- #{tmp 4436}#
+ #{tmp 4452}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -15410,12 +13682,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15430,35 +13702,35 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4442}#
+ (if #{tmp 4458}#
(@apply
- (lambda (#{p 4444}#)
- (if (= #{lev 4421}# 0)
- (#{quasiappend 4413}#
- (map (lambda (#{tmp 4445}#)
+ (lambda (#{p 4460}#)
+ (if (= #{lev 4437}# 0)
+ (#{quasiappend 4429}#
+ (map (lambda (#{tmp 4461}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4443"))
+ #("i4459"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4432"
- "i4433"))
+ #("i4448"
+ "i4449"))
#(ribcage
()
()
@@ -15467,8 +13739,8 @@
#(p lev)
#((top)
(top))
- #("i4422"
- "i4423"))
+ #("i4438"
+ "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15483,37 +13755,37 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{tmp 4445}#))
- #{p 4444}#)
- (#{quasi 4407}#
- #{q 4435}#
- #{lev 4421}#))
- (#{quasicons 4411}#
- (#{quasicons 4411}#
+ #{tmp 4461}#))
+ #{p 4460}#)
+ (#{quasi 4423}#
+ #{q 4451}#
+ #{lev 4437}#))
+ (#{quasicons 4427}#
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4443"))
+ #("i4459"))
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15528,13 +13800,13 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15542,16 +13814,16 @@
#(ribcage
#(p)
#((top))
- #("i4443"))
+ #("i4459"))
#(ribcage
#(p q)
#((top) (top))
- #("i4432" "i4433"))
+ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15566,50 +13838,50 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- #{p 4444}#
- (#{1-}# #{lev 4421}#)))
- (#{quasi 4407}#
- #{q 4435}#
- #{lev 4421}#))))
- #{tmp 4442}#)
- (let ((#{_ 4448}# #{tmp 4436}#))
- (#{quasicons 4411}#
- (#{quasi 4407}#
- #{p 4434}#
- #{lev 4421}#)
- (#{quasi 4407}#
- #{q 4435}#
- #{lev 4421}#)))))))))
- #{tmp 4431}#)
- (let ((#{tmp 4449}#
+ (#{quasi 4423}#
+ #{p 4460}#
+ (#{1-}# #{lev 4437}#)))
+ (#{quasi 4423}#
+ #{q 4451}#
+ #{lev 4437}#))))
+ #{tmp 4458}#)
+ (let ((#{_ 4464}# #{tmp 4452}#))
+ (#{quasicons 4427}#
+ (#{quasi 4423}#
+ #{p 4450}#
+ #{lev 4437}#)
+ (#{quasi 4423}#
+ #{q 4451}#
+ #{lev 4437}#)))))))))
+ #{tmp 4447}#)
+ (let ((#{tmp 4465}#
($sc-dispatch
- #{tmp 4424}#
+ #{tmp 4440}#
'#(vector each-any))))
- (if #{tmp 4449}#
+ (if #{tmp 4465}#
(@apply
- (lambda (#{x 4451}#)
- (#{quasivector 4417}#
- (#{vquasi 4409}# #{x 4451}# #{lev 4421}#)))
- #{tmp 4449}#)
- (let ((#{p 4454}# #{tmp 4424}#))
+ (lambda (#{x 4467}#)
+ (#{quasivector 4433}#
+ (#{vquasi 4425}# #{x 4467}# #{lev 4437}#)))
+ #{tmp 4465}#)
+ (let ((#{p 4470}# #{tmp 4440}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4453"))
+ #(ribcage #(p) #((top)) #("i4469"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4422" "i4423"))
+ #("i4438" "i4439"))
#(ribcage
(emit quasivector
quasilist*
@@ -15624,27 +13896,27 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{p 4454}#)))))))))))))
- (#{vquasi 4409}#
- (lambda (#{p 4455}# #{lev 4456}#)
- (let ((#{tmp 4459}# #{p 4455}#))
- (let ((#{tmp 4460}#
- ($sc-dispatch #{tmp 4459}# '(any . any))))
- (if #{tmp 4460}#
+ #{p 4470}#)))))))))))))
+ (#{vquasi 4425}#
+ (lambda (#{p 4471}# #{lev 4472}#)
+ (let ((#{tmp 4475}# #{p 4471}#))
+ (let ((#{tmp 4476}#
+ ($sc-dispatch #{tmp 4475}# '(any . any))))
+ (if #{tmp 4476}#
(@apply
- (lambda (#{p 4463}# #{q 4464}#)
- (let ((#{tmp 4465}# #{p 4463}#))
- (let ((#{tmp 4466}#
+ (lambda (#{p 4479}# #{q 4480}#)
+ (let ((#{tmp 4481}# #{p 4479}#))
+ (let ((#{tmp 4482}#
($sc-dispatch
- #{tmp 4465}#
+ #{tmp 4481}#
'(#(free-id
#(syntax-object
unquote
@@ -15652,12 +13924,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15672,38 +13944,38 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4466}#
+ (if #{tmp 4482}#
(@apply
- (lambda (#{p 4468}#)
- (if (= #{lev 4456}# 0)
- (#{quasilist* 4415}#
- (map (lambda (#{tmp 4469}#)
+ (lambda (#{p 4484}#)
+ (if (= #{lev 4472}# 0)
+ (#{quasilist* 4431}#
+ (map (lambda (#{tmp 4485}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4467"))
+ #("i4483"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15718,32 +13990,32 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{tmp 4469}#))
- #{p 4468}#)
- (#{vquasi 4409}# #{q 4464}# #{lev 4456}#))
- (#{quasicons 4411}#
- (#{quasicons 4411}#
+ #{tmp 4485}#))
+ #{p 4484}#)
+ (#{vquasi 4425}# #{q 4480}# #{lev 4472}#))
+ (#{quasicons 4427}#
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4467"))
+ #(ribcage #(p) #((top)) #("i4483"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15758,27 +14030,27 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4467"))
+ #(ribcage #(p) #((top)) #("i4483"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15793,22 +14065,22 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- #{p 4468}#
- (#{1-}# #{lev 4456}#)))
- (#{vquasi 4409}# #{q 4464}# #{lev 4456}#))))
- #{tmp 4466}#)
- (let ((#{tmp 4471}#
+ (#{quasi 4423}#
+ #{p 4484}#
+ (#{1-}# #{lev 4472}#)))
+ (#{vquasi 4425}# #{q 4480}# #{lev 4472}#))))
+ #{tmp 4482}#)
+ (let ((#{tmp 4487}#
($sc-dispatch
- #{tmp 4465}#
+ #{tmp 4481}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -15816,12 +14088,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15836,38 +14108,38 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4471}#
+ (if #{tmp 4487}#
(@apply
- (lambda (#{p 4473}#)
- (if (= #{lev 4456}# 0)
- (#{quasiappend 4413}#
- (map (lambda (#{tmp 4474}#)
+ (lambda (#{p 4489}#)
+ (if (= #{lev 4472}# 0)
+ (#{quasiappend 4429}#
+ (map (lambda (#{tmp 4490}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4472"))
+ #("i4488"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15882,37 +14154,37 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{tmp 4474}#))
- #{p 4473}#)
- (#{vquasi 4409}#
- #{q 4464}#
- #{lev 4456}#))
- (#{quasicons 4411}#
- (#{quasicons 4411}#
+ #{tmp 4490}#))
+ #{p 4489}#)
+ (#{vquasi 4425}#
+ #{q 4480}#
+ #{lev 4472}#))
+ (#{quasicons 4427}#
+ (#{quasicons 4427}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4472"))
+ #("i4488"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15927,13 +14199,13 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15941,16 +14213,16 @@
#(ribcage
#(p)
#((top))
- #("i4472"))
+ #("i4488"))
#(ribcage
#(p q)
#((top) (top))
- #("i4461" "i4462"))
+ #("i4477" "i4478"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -15965,30 +14237,30 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile)))
- (#{quasi 4407}#
- #{p 4473}#
- (#{1-}# #{lev 4456}#)))
- (#{vquasi 4409}#
- #{q 4464}#
- #{lev 4456}#))))
- #{tmp 4471}#)
- (let ((#{_ 4477}# #{tmp 4465}#))
- (#{quasicons 4411}#
- (#{quasi 4407}# #{p 4463}# #{lev 4456}#)
- (#{vquasi 4409}#
- #{q 4464}#
- #{lev 4456}#)))))))))
- #{tmp 4460}#)
- (let ((#{tmp 4478}# ($sc-dispatch #{tmp 4459}# '())))
- (if #{tmp 4478}#
+ (#{quasi 4423}#
+ #{p 4489}#
+ (#{1-}# #{lev 4472}#)))
+ (#{vquasi 4425}#
+ #{q 4480}#
+ #{lev 4472}#))))
+ #{tmp 4487}#)
+ (let ((#{_ 4493}# #{tmp 4481}#))
+ (#{quasicons 4427}#
+ (#{quasi 4423}# #{p 4479}# #{lev 4472}#)
+ (#{vquasi 4425}#
+ #{q 4480}#
+ #{lev 4472}#)))))))))
+ #{tmp 4476}#)
+ (let ((#{tmp 4494}# ($sc-dispatch #{tmp 4475}# '())))
+ (if #{tmp 4494}#
(@apply
(lambda ()
'(#(syntax-object
@@ -15998,7 +14270,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4457" "i4458"))
+ #("i4473" "i4474"))
#(ribcage
(emit quasivector
quasilist*
@@ -16007,66 +14279,66 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
()))
- #{tmp 4478}#)
+ #{tmp 4494}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4459}#))))))))
- (#{quasicons 4411}#
- (lambda (#{x 4479}# #{y 4480}#)
- (let ((#{tmp 4484}# (list #{x 4479}# #{y 4480}#)))
- (let ((#{tmp 4485}#
- ($sc-dispatch #{tmp 4484}# '(any any))))
- (if #{tmp 4485}#
+ #{tmp 4475}#))))))))
+ (#{quasicons 4427}#
+ (lambda (#{x 4495}# #{y 4496}#)
+ (let ((#{tmp 4500}# (list #{x 4495}# #{y 4496}#)))
+ (let ((#{tmp 4501}#
+ ($sc-dispatch #{tmp 4500}# '(any any))))
+ (if #{tmp 4501}#
(@apply
- (lambda (#{x 4488}# #{y 4489}#)
- (let ((#{tmp 4490}# #{y 4489}#))
- (let ((#{tmp 4491}#
+ (lambda (#{x 4504}# #{y 4505}#)
+ (let ((#{tmp 4506}# #{y 4505}#))
+ (let ((#{tmp 4507}#
($sc-dispatch
- #{tmp 4490}#
+ #{tmp 4506}#
'(#(atom "quote") any))))
- (if #{tmp 4491}#
+ (if #{tmp 4507}#
(@apply
- (lambda (#{dy 4493}#)
- (let ((#{tmp 4494}# #{x 4488}#))
- (let ((#{tmp 4495}#
+ (lambda (#{dy 4509}#)
+ (let ((#{tmp 4510}# #{x 4504}#))
+ (let ((#{tmp 4511}#
($sc-dispatch
- #{tmp 4494}#
+ #{tmp 4510}#
'(#(atom "quote") any))))
- (if #{tmp 4495}#
+ (if #{tmp 4511}#
(@apply
- (lambda (#{dx 4497}#)
+ (lambda (#{dx 4513}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4496"))
+ #("i4512"))
#(ribcage
#(dy)
#((top))
- #("i4492"))
+ #("i4508"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16081,40 +14353,40 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- (cons #{dx 4497}# #{dy 4493}#)))
- #{tmp 4495}#)
- (let ((#{_ 4499}# #{tmp 4494}#))
- (if (null? #{dy 4493}#)
+ (cons #{dx 4513}# #{dy 4509}#)))
+ #{tmp 4511}#)
+ (let ((#{_ 4515}# #{tmp 4510}#))
+ (if (null? #{dy 4509}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4498"))
+ #("i4514"))
#(ribcage
#(dy)
#((top))
- #("i4492"))
+ #("i4508"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16129,37 +14401,37 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{x 4488}#)
+ #{x 4504}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4498"))
+ #("i4514"))
#(ribcage
#(dy)
#((top))
- #("i4492"))
+ #("i4508"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16174,42 +14446,42 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{x 4488}#
- #{y 4489}#)))))))
- #{tmp 4491}#)
- (let ((#{tmp 4500}#
+ #{x 4504}#
+ #{y 4505}#)))))))
+ #{tmp 4507}#)
+ (let ((#{tmp 4516}#
($sc-dispatch
- #{tmp 4490}#
+ #{tmp 4506}#
'(#(atom "list") . any))))
- (if #{tmp 4500}#
+ (if #{tmp 4516}#
(@apply
- (lambda (#{stuff 4502}#)
+ (lambda (#{stuff 4518}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4501"))
+ #("i4517"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16224,41 +14496,41 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- (cons #{x 4488}# #{stuff 4502}#)))
- #{tmp 4500}#)
- (let ((#{tmp 4503}#
+ (cons #{x 4504}# #{stuff 4518}#)))
+ #{tmp 4516}#)
+ (let ((#{tmp 4519}#
($sc-dispatch
- #{tmp 4490}#
+ #{tmp 4506}#
'(#(atom "list*") . any))))
- (if #{tmp 4503}#
+ (if #{tmp 4519}#
(@apply
- (lambda (#{stuff 4505}#)
+ (lambda (#{stuff 4521}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4504"))
+ #("i4520"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16273,35 +14545,35 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- (cons #{x 4488}# #{stuff 4505}#)))
- #{tmp 4503}#)
- (let ((#{_ 4507}# #{tmp 4490}#))
+ (cons #{x 4504}# #{stuff 4521}#)))
+ #{tmp 4519}#)
+ (let ((#{_ 4523}# #{tmp 4506}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4506"))
+ #("i4522"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4486" "i4487"))
+ #("i4502" "i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
@@ -16316,30 +14588,30 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{x 4488}#
- #{y 4489}#))))))))))
- #{tmp 4485}#)
+ #{x 4504}#
+ #{y 4505}#))))))))))
+ #{tmp 4501}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4484}#))))))
- (#{quasiappend 4413}#
- (lambda (#{x 4508}# #{y 4509}#)
- (let ((#{tmp 4512}# #{y 4509}#))
- (let ((#{tmp 4513}#
- ($sc-dispatch #{tmp 4512}# '(#(atom "quote") ()))))
- (if #{tmp 4513}#
+ #{tmp 4500}#))))))
+ (#{quasiappend 4429}#
+ (lambda (#{x 4524}# #{y 4525}#)
+ (let ((#{tmp 4528}# #{y 4525}#))
+ (let ((#{tmp 4529}#
+ ($sc-dispatch #{tmp 4528}# '(#(atom "quote") ()))))
+ (if #{tmp 4529}#
(@apply
(lambda ()
- (if (null? #{x 4508}#)
+ (if (null? #{x 4524}#)
'(#(syntax-object
"quote"
((top)
@@ -16347,7 +14619,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4510" "i4511"))
+ #("i4526" "i4527"))
#(ribcage
(emit quasivector
quasilist*
@@ -16356,23 +14628,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
())
- (if (null? (cdr #{x 4508}#))
- (car #{x 4508}#)
- (let ((#{tmp 4520}# #{x 4508}#))
- (let ((#{tmp 4521}#
- ($sc-dispatch #{tmp 4520}# 'each-any)))
- (if #{tmp 4521}#
+ (if (null? (cdr #{x 4524}#))
+ (car #{x 4524}#)
+ (let ((#{tmp 4536}# #{x 4524}#))
+ (let ((#{tmp 4537}#
+ ($sc-dispatch #{tmp 4536}# 'each-any)))
+ (if #{tmp 4537}#
(@apply
- (lambda (#{p 4523}#)
+ (lambda (#{p 4539}#)
(cons '#(syntax-object
"append"
((top)
@@ -16380,12 +14652,12 @@
#(ribcage
#(p)
#((top))
- #("i4522"))
+ #("i4538"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4510" "i4511"))
+ #("i4526" "i4527"))
#(ribcage
(emit quasivector
quasilist*
@@ -16400,30 +14672,30 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{p 4523}#))
- #{tmp 4521}#)
+ #{p 4539}#))
+ #{tmp 4537}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4520}#)))))))
- #{tmp 4513}#)
- (let ((#{_ 4526}# #{tmp 4512}#))
- (if (null? #{x 4508}#)
- #{y 4509}#
- (let ((#{tmp 4531}# (list #{x 4508}# #{y 4509}#)))
- (let ((#{tmp 4532}#
- ($sc-dispatch #{tmp 4531}# '(each-any any))))
- (if #{tmp 4532}#
+ #{tmp 4536}#)))))))
+ #{tmp 4529}#)
+ (let ((#{_ 4542}# #{tmp 4528}#))
+ (if (null? #{x 4524}#)
+ #{y 4525}#
+ (let ((#{tmp 4547}# (list #{x 4524}# #{y 4525}#)))
+ (let ((#{tmp 4548}#
+ ($sc-dispatch #{tmp 4547}# '(each-any any))))
+ (if #{tmp 4548}#
(@apply
- (lambda (#{p 4535}# #{y 4536}#)
+ (lambda (#{p 4551}# #{y 4552}#)
(cons '#(syntax-object
"append"
((top)
@@ -16431,13 +14703,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i4533" "i4534"))
- #(ribcage #(_) #((top)) #("i4525"))
+ #("i4549" "i4550"))
+ #(ribcage #(_) #((top)) #("i4541"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4510" "i4511"))
+ #("i4526" "i4527"))
#(ribcage
(emit quasivector
quasilist*
@@ -16452,47 +14724,47 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- (append #{p 4535}# (list #{y 4536}#))))
- #{tmp 4532}#)
+ (append #{p 4551}# (list #{y 4552}#))))
+ #{tmp 4548}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4531}#)))))))))))
- (#{quasilist* 4415}#
- (lambda (#{x 4538}# #{y 4539}#)
+ #{tmp 4547}#)))))))))))
+ (#{quasilist* 4431}#
+ (lambda (#{x 4554}# #{y 4555}#)
(letrec*
- ((#{f 4544}#
- (lambda (#{x 4545}#)
- (if (null? #{x 4545}#)
- #{y 4539}#
- (#{quasicons 4411}#
- (car #{x 4545}#)
- (#{f 4544}# (cdr #{x 4545}#)))))))
- (#{f 4544}# #{x 4538}#))))
- (#{quasivector 4417}#
- (lambda (#{x 4546}#)
- (let ((#{tmp 4548}# #{x 4546}#))
- (let ((#{tmp 4549}#
+ ((#{f 4560}#
+ (lambda (#{x 4561}#)
+ (if (null? #{x 4561}#)
+ #{y 4555}#
+ (#{quasicons 4427}#
+ (car #{x 4561}#)
+ (#{f 4560}# (cdr #{x 4561}#)))))))
+ (#{f 4560}# #{x 4554}#))))
+ (#{quasivector 4433}#
+ (lambda (#{x 4562}#)
+ (let ((#{tmp 4564}# #{x 4562}#))
+ (let ((#{tmp 4565}#
($sc-dispatch
- #{tmp 4548}#
+ #{tmp 4564}#
'(#(atom "quote") each-any))))
- (if #{tmp 4549}#
+ (if #{tmp 4565}#
(@apply
- (lambda (#{x 4551}#)
+ (lambda (#{x 4567}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4550"))
+ #(ribcage #(x) #((top)) #("i4566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4547"))
+ #(ribcage #(x) #((top)) #("i4563"))
#(ribcage
(emit quasivector
quasilist*
@@ -16501,53 +14773,53 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- (list->vector #{x 4551}#)))
- #{tmp 4549}#)
- (let ((#{_ 4554}# #{tmp 4548}#))
+ (list->vector #{x 4567}#)))
+ #{tmp 4565}#)
+ (let ((#{_ 4570}# #{tmp 4564}#))
(letrec*
- ((#{f 4558}#
- (lambda (#{y 4559}# #{k 4560}#)
- (let ((#{tmp 4571}# #{y 4559}#))
- (let ((#{tmp 4572}#
+ ((#{f 4574}#
+ (lambda (#{y 4575}# #{k 4576}#)
+ (let ((#{tmp 4587}# #{y 4575}#))
+ (let ((#{tmp 4588}#
($sc-dispatch
- #{tmp 4571}#
+ #{tmp 4587}#
'(#(atom "quote") each-any))))
- (if #{tmp 4572}#
+ (if #{tmp 4588}#
(@apply
- (lambda (#{y 4574}#)
- (#{k 4560}#
- (map (lambda (#{tmp 4575}#)
+ (lambda (#{y 4590}#)
+ (#{k 4576}#
+ (map (lambda (#{tmp 4591}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4573"))
+ #("i4589"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4555"
- "i4556"
- "i4557"))
+ #("i4571"
+ "i4572"
+ "i4573"))
#(ribcage
#(_)
#((top))
- #("i4553"))
+ #("i4569"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4547"))
+ #("i4563"))
#(ribcage
(emit quasivector
quasilist*
@@ -16562,75 +14834,75 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{tmp 4575}#))
- #{y 4574}#)))
- #{tmp 4572}#)
- (let ((#{tmp 4576}#
+ #{tmp 4591}#))
+ #{y 4590}#)))
+ #{tmp 4588}#)
+ (let ((#{tmp 4592}#
($sc-dispatch
- #{tmp 4571}#
+ #{tmp 4587}#
'(#(atom "list") . each-any))))
- (if #{tmp 4576}#
+ (if #{tmp 4592}#
(@apply
- (lambda (#{y 4578}#)
- (#{k 4560}# #{y 4578}#))
- #{tmp 4576}#)
- (let ((#{tmp 4580}#
+ (lambda (#{y 4594}#)
+ (#{k 4576}# #{y 4594}#))
+ #{tmp 4592}#)
+ (let ((#{tmp 4596}#
($sc-dispatch
- #{tmp 4571}#
+ #{tmp 4587}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp 4580}#
+ (if #{tmp 4596}#
(@apply
- (lambda (#{y 4583}# #{z 4584}#)
- (#{f 4558}#
- #{z 4584}#
- (lambda (#{ls 4585}#)
- (#{k 4560}#
+ (lambda (#{y 4599}# #{z 4600}#)
+ (#{f 4574}#
+ #{z 4600}#
+ (lambda (#{ls 4601}#)
+ (#{k 4576}#
(append
- #{y 4583}#
- #{ls 4585}#)))))
- #{tmp 4580}#)
- (let ((#{else 4589}# #{tmp 4571}#))
- (let ((#{tmp 4593}# #{x 4546}#))
- (let ((#{ g4590 4595}#
- #{tmp 4593}#))
+ #{y 4599}#
+ #{ls 4601}#)))))
+ #{tmp 4596}#)
+ (let ((#{else 4605}# #{tmp 4587}#))
+ (let ((#{tmp 4609}# #{x 4562}#))
+ (let ((#{ g4606 4611}#
+ #{tmp 4609}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4590}#)
- #((m4591 top))
- #("i4594"))
+ #(#{ g4606}#)
+ #((m4607 top))
+ #("i4610"))
#(ribcage
#(else)
#((top))
- #("i4588"))
+ #("i4604"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4555"
- "i4556"
- "i4557"))
+ #("i4571"
+ "i4572"
+ "i4573"))
#(ribcage
#(_)
#((top))
- #("i4553"))
+ #("i4569"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4547"))
+ #("i4563"))
#(ribcage
(emit quasivector
quasilist*
@@ -16645,48 +14917,48 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4590 4595}#))))))))))))))
- (#{f 4558}#
- #{x 4546}#
- (lambda (#{ls 4561}#)
- (let ((#{tmp 4566}# #{ls 4561}#))
- (let ((#{tmp 4567}#
- ($sc-dispatch #{tmp 4566}# 'each-any)))
- (if #{tmp 4567}#
+ #{ g4606 4611}#))))))))))))))
+ (#{f 4574}#
+ #{x 4562}#
+ (lambda (#{ls 4577}#)
+ (let ((#{tmp 4582}# #{ls 4577}#))
+ (let ((#{tmp 4583}#
+ ($sc-dispatch #{tmp 4582}# 'each-any)))
+ (if #{tmp 4583}#
(@apply
- (lambda (#{ g4563 4569}#)
+ (lambda (#{ g4579 4585}#)
(cons '#(syntax-object
"vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4563}#)
- #((m4564 top))
- #("i4568"))
+ #(#{ g4579}#)
+ #((m4580 top))
+ #("i4584"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ls)
#((top))
- #("i4562"))
+ #("i4578"))
#(ribcage
#(_)
#((top))
- #("i4553"))
+ #("i4569"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4547"))
+ #("i4563"))
#(ribcage
(emit quasivector
quasilist*
@@ -16701,36 +14973,36 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4563 4569}#))
- #{tmp 4567}#)
+ #{ g4579 4585}#))
+ #{tmp 4583}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4566}#)))))))))))))
- (#{emit 4419}#
- (lambda (#{x 4596}#)
- (let ((#{tmp 4598}# #{x 4596}#))
- (let ((#{tmp 4599}#
+ #{tmp 4582}#)))))))))))))
+ (#{emit 4435}#
+ (lambda (#{x 4612}#)
+ (let ((#{tmp 4614}# #{x 4612}#))
+ (let ((#{tmp 4615}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "quote") any))))
- (if #{tmp 4599}#
+ (if #{tmp 4615}#
(@apply
- (lambda (#{x 4601}#)
+ (lambda (#{x 4617}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4600"))
+ #(ribcage #(x) #((top)) #("i4616"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4597"))
+ #(ribcage #(x) #((top)) #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -16739,46 +15011,46 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{x 4601}#))
- #{tmp 4599}#)
- (let ((#{tmp 4602}#
+ #{x 4617}#))
+ #{tmp 4615}#)
+ (let ((#{tmp 4618}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "list") . each-any))))
- (if #{tmp 4602}#
+ (if #{tmp 4618}#
(@apply
- (lambda (#{x 4604}#)
- (let ((#{tmp 4608}# (map #{emit 4419}# #{x 4604}#)))
- (let ((#{tmp 4609}#
- ($sc-dispatch #{tmp 4608}# 'each-any)))
- (if #{tmp 4609}#
+ (lambda (#{x 4620}#)
+ (let ((#{tmp 4624}# (map #{emit 4435}# #{x 4620}#)))
+ (let ((#{tmp 4625}#
+ ($sc-dispatch #{tmp 4624}# 'each-any)))
+ (if #{tmp 4625}#
(@apply
- (lambda (#{ g4605 4611}#)
+ (lambda (#{ g4621 4627}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4605}#)
- #((m4606 top))
- #("i4610"))
+ #(#{ g4621}#)
+ #((m4622 top))
+ #("i4626"))
#(ribcage
#(x)
#((top))
- #("i4603"))
+ #("i4619"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4597"))
+ #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -16793,70 +15065,70 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4605 4611}#))
- #{tmp 4609}#)
+ #{ g4621 4627}#))
+ #{tmp 4625}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4608}#)))))
- #{tmp 4602}#)
- (let ((#{tmp 4614}#
+ #{tmp 4624}#)))))
+ #{tmp 4618}#)
+ (let ((#{tmp 4630}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4614}#
+ (if #{tmp 4630}#
(@apply
- (lambda (#{x 4617}# #{y 4618}#)
+ (lambda (#{x 4633}# #{y 4634}#)
(letrec*
- ((#{f 4621}#
- (lambda (#{x* 4622}#)
- (if (null? #{x* 4622}#)
- (#{emit 4419}# #{y 4618}#)
- (let ((#{tmp 4628}#
- (list (#{emit 4419}#
- (car #{x* 4622}#))
- (#{f 4621}#
- (cdr #{x* 4622}#)))))
- (let ((#{tmp 4629}#
+ ((#{f 4637}#
+ (lambda (#{x* 4638}#)
+ (if (null? #{x* 4638}#)
+ (#{emit 4435}# #{y 4634}#)
+ (let ((#{tmp 4644}#
+ (list (#{emit 4435}#
+ (car #{x* 4638}#))
+ (#{f 4637}#
+ (cdr #{x* 4638}#)))))
+ (let ((#{tmp 4645}#
($sc-dispatch
- #{tmp 4628}#
+ #{tmp 4644}#
'(any any))))
- (if #{tmp 4629}#
+ (if #{tmp 4645}#
(@apply
- (lambda (#{ g4625 4632}#
- #{ g4624 4633}#)
+ (lambda (#{ g4641 4648}#
+ #{ g4640 4649}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4625}#
- #{ g4624}#)
- #((m4626 top)
- (m4626 top))
- #("i4630" "i4631"))
+ #(#{ g4641}#
+ #{ g4640}#)
+ #((m4642 top)
+ (m4642 top))
+ #("i4646" "i4647"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4619" "i4620"))
+ #("i4635" "i4636"))
#(ribcage
#(x y)
#((top) (top))
- #("i4615" "i4616"))
+ #("i4631" "i4632"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4597"))
+ #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -16871,56 +15143,56 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4625 4632}#
- #{ g4624 4633}#))
- #{tmp 4629}#)
+ #{ g4641 4648}#
+ #{ g4640 4649}#))
+ #{tmp 4645}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4628}#))))))))
- (#{f 4621}# #{x 4617}#)))
- #{tmp 4614}#)
- (let ((#{tmp 4634}#
+ #{tmp 4644}#))))))))
+ (#{f 4637}# #{x 4633}#)))
+ #{tmp 4630}#)
+ (let ((#{tmp 4650}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "append") . each-any))))
- (if #{tmp 4634}#
+ (if #{tmp 4650}#
(@apply
- (lambda (#{x 4636}#)
- (let ((#{tmp 4640}#
- (map #{emit 4419}# #{x 4636}#)))
- (let ((#{tmp 4641}#
+ (lambda (#{x 4652}#)
+ (let ((#{tmp 4656}#
+ (map #{emit 4435}# #{x 4652}#)))
+ (let ((#{tmp 4657}#
($sc-dispatch
- #{tmp 4640}#
+ #{tmp 4656}#
'each-any)))
- (if #{tmp 4641}#
+ (if #{tmp 4657}#
(@apply
- (lambda (#{ g4637 4643}#)
+ (lambda (#{ g4653 4659}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4637}#)
- #((m4638 top))
- #("i4642"))
+ #(#{ g4653}#)
+ #((m4654 top))
+ #("i4658"))
#(ribcage
#(x)
#((top))
- #("i4635"))
+ #("i4651"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4597"))
+ #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -16935,54 +15207,54 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4637 4643}#))
- #{tmp 4641}#)
+ #{ g4653 4659}#))
+ #{tmp 4657}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4640}#)))))
- #{tmp 4634}#)
- (let ((#{tmp 4646}#
+ #{tmp 4656}#)))))
+ #{tmp 4650}#)
+ (let ((#{tmp 4662}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "vector") . each-any))))
- (if #{tmp 4646}#
+ (if #{tmp 4662}#
(@apply
- (lambda (#{x 4648}#)
- (let ((#{tmp 4652}#
- (map #{emit 4419}# #{x 4648}#)))
- (let ((#{tmp 4653}#
+ (lambda (#{x 4664}#)
+ (let ((#{tmp 4668}#
+ (map #{emit 4435}# #{x 4664}#)))
+ (let ((#{tmp 4669}#
($sc-dispatch
- #{tmp 4652}#
+ #{tmp 4668}#
'each-any)))
- (if #{tmp 4653}#
+ (if #{tmp 4669}#
(@apply
- (lambda (#{ g4649 4655}#)
+ (lambda (#{ g4665 4671}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4649}#)
- #((m4650 top))
- #("i4654"))
+ #(#{ g4665}#)
+ #((m4666 top))
+ #("i4670"))
#(ribcage
#(x)
#((top))
- #("i4647"))
+ #("i4663"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4597"))
+ #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -16997,49 +15269,49 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4649 4655}#))
- #{tmp 4653}#)
+ #{ g4665 4671}#))
+ #{tmp 4669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4652}#)))))
- #{tmp 4646}#)
- (let ((#{tmp 4658}#
+ #{tmp 4668}#)))))
+ #{tmp 4662}#)
+ (let ((#{tmp 4674}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "list->vector") any))))
- (if #{tmp 4658}#
+ (if #{tmp 4674}#
(@apply
- (lambda (#{x 4660}#)
- (let ((#{tmp 4664}#
- (#{emit 4419}# #{x 4660}#)))
- (let ((#{ g4661 4666}#
- #{tmp 4664}#))
+ (lambda (#{x 4676}#)
+ (let ((#{tmp 4680}#
+ (#{emit 4435}# #{x 4676}#)))
+ (let ((#{ g4677 4682}#
+ #{tmp 4680}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4661}#)
- #((m4662 top))
- #("i4665"))
+ #(#{ g4677}#)
+ #((m4678 top))
+ #("i4681"))
#(ribcage
#(x)
#((top))
- #("i4659"))
+ #("i4675"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4597"))
+ #("i4613"))
#(ribcage
(emit quasivector
quasilist*
@@ -17054,197 +15326,197 @@
(top)
(top)
(top))
- ("i4418"
- "i4416"
- "i4414"
- "i4412"
- "i4410"
- "i4408"
- "i4406")))
+ ("i4434"
+ "i4432"
+ "i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422")))
(hygiene guile))
- #{ g4661 4666}#))))
- #{tmp 4658}#)
- (let ((#{tmp 4667}#
+ #{ g4677 4682}#))))
+ #{tmp 4674}#)
+ (let ((#{tmp 4683}#
($sc-dispatch
- #{tmp 4598}#
+ #{tmp 4614}#
'(#(atom "value") any))))
- (if #{tmp 4667}#
+ (if #{tmp 4683}#
(@apply
- (lambda (#{x 4669}#) #{x 4669}#)
- #{tmp 4667}#)
+ (lambda (#{x 4685}#) #{x 4685}#)
+ #{tmp 4683}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4598}#)))))))))))))))))))
- (lambda (#{x 4670}#)
- (let ((#{tmp 4672}# #{x 4670}#))
- (let ((#{tmp 4673}#
- ($sc-dispatch #{tmp 4672}# '(_ any))))
- (if #{tmp 4673}#
+ #{tmp 4614}#)))))))))))))))))))
+ (lambda (#{x 4686}#)
+ (let ((#{tmp 4688}# #{x 4686}#))
+ (let ((#{tmp 4689}#
+ ($sc-dispatch #{tmp 4688}# '(_ any))))
+ (if #{tmp 4689}#
(@apply
- (lambda (#{e 4675}#)
- (#{emit 4419}# (#{quasi 4407}# #{e 4675}# 0)))
- #{tmp 4673}#)
+ (lambda (#{e 4691}#)
+ (#{emit 4435}# (#{quasi 4423}# #{e 4691}# 0)))
+ #{tmp 4689}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4672}#))))))))
+ #{tmp 4688}#))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 4676}#)
+ (lambda (#{x 4692}#)
(letrec*
- ((#{read-file 4679}#
- (lambda (#{fn 4680}# #{k 4681}#)
- (let ((#{p 4685}# (open-input-file #{fn 4680}#)))
+ ((#{read-file 4695}#
+ (lambda (#{fn 4696}# #{k 4697}#)
+ (let ((#{p 4701}# (open-input-file #{fn 4696}#)))
(letrec*
- ((#{f 4689}#
- (lambda (#{x 4690}# #{result 4691}#)
- (if (eof-object? #{x 4690}#)
+ ((#{f 4705}#
+ (lambda (#{x 4706}# #{result 4707}#)
+ (if (eof-object? #{x 4706}#)
(begin
- (close-input-port #{p 4685}#)
- (reverse #{result 4691}#))
- (#{f 4689}#
- (read #{p 4685}#)
- (cons (datum->syntax #{k 4681}# #{x 4690}#)
- #{result 4691}#))))))
- (#{f 4689}# (read #{p 4685}#) '()))))))
- (let ((#{tmp 4692}# #{x 4676}#))
- (let ((#{tmp 4693}#
- ($sc-dispatch #{tmp 4692}# '(any any))))
- (if #{tmp 4693}#
+ (close-input-port #{p 4701}#)
+ (reverse #{result 4707}#))
+ (#{f 4705}#
+ (read #{p 4701}#)
+ (cons (datum->syntax #{k 4697}# #{x 4706}#)
+ #{result 4707}#))))))
+ (#{f 4705}# (read #{p 4701}#) '()))))))
+ (let ((#{tmp 4708}# #{x 4692}#))
+ (let ((#{tmp 4709}#
+ ($sc-dispatch #{tmp 4708}# '(any any))))
+ (if #{tmp 4709}#
(@apply
- (lambda (#{k 4696}# #{filename 4697}#)
- (let ((#{fn 4699}# (syntax->datum #{filename 4697}#)))
- (let ((#{tmp 4701}#
- (#{read-file 4679}#
- #{fn 4699}#
- #{filename 4697}#)))
- (let ((#{tmp 4702}#
- ($sc-dispatch #{tmp 4701}# 'each-any)))
- (if #{tmp 4702}#
+ (lambda (#{k 4712}# #{filename 4713}#)
+ (let ((#{fn 4715}# (syntax->datum #{filename 4713}#)))
+ (let ((#{tmp 4717}#
+ (#{read-file 4695}#
+ #{fn 4715}#
+ #{filename 4713}#)))
+ (let ((#{tmp 4718}#
+ ($sc-dispatch #{tmp 4717}# 'each-any)))
+ (if #{tmp 4718}#
(@apply
- (lambda (#{exp 4704}#)
+ (lambda (#{exp 4720}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i4703"))
+ #(ribcage #(exp) #((top)) #("i4719"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4698"))
+ #(ribcage #(fn) #((top)) #("i4714"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4694" "i4695"))
+ #("i4710" "i4711"))
#(ribcage
(read-file)
((top))
- ("i4678"))
- #(ribcage #(x) #((top)) #("i4677")))
+ ("i4694"))
+ #(ribcage #(x) #((top)) #("i4693")))
(hygiene guile))
- #{exp 4704}#))
- #{tmp 4702}#)
+ #{exp 4720}#))
+ #{tmp 4718}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4701}#))))))
- #{tmp 4693}#)
+ #{tmp 4717}#))))))
+ #{tmp 4709}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4692}#))))))))
+ #{tmp 4708}#))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 4706}#)
- (let ((#{tmp 4708}# #{x 4706}#))
- (let ((#{tmp 4709}#
- ($sc-dispatch #{tmp 4708}# '(any any))))
- (if #{tmp 4709}#
+ (lambda (#{x 4722}#)
+ (let ((#{tmp 4724}# #{x 4722}#))
+ (let ((#{tmp 4725}#
+ ($sc-dispatch #{tmp 4724}# '(any any))))
+ (if #{tmp 4725}#
(@apply
- (lambda (#{k 4712}# #{filename 4713}#)
- (let ((#{fn 4715}# (syntax->datum #{filename 4713}#)))
- (let ((#{tmp 4717}#
+ (lambda (#{k 4728}# #{filename 4729}#)
+ (let ((#{fn 4731}# (syntax->datum #{filename 4729}#)))
+ (let ((#{tmp 4733}#
(datum->syntax
- #{filename 4713}#
- (let ((#{t 4722}# (%search-load-path #{fn 4715}#)))
- (if #{t 4722}#
- #{t 4722}#
+ #{filename 4729}#
+ (let ((#{t 4738}# (%search-load-path #{fn 4731}#)))
+ (if #{t 4738}#
+ #{t 4738}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 4706}#
- #{filename 4713}#))))))
- (let ((#{fn 4719}# #{tmp 4717}#))
+ #{x 4722}#
+ #{filename 4729}#))))))
+ (let ((#{fn 4735}# #{tmp 4733}#))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4718"))
+ #(ribcage #(fn) #((top)) #("i4734"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4714"))
+ #(ribcage #(fn) #((top)) #("i4730"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4710" "i4711"))
+ #("i4726" "i4727"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4707")))
+ #(ribcage #(x) #((top)) #("i4723")))
(hygiene guile))
- #{fn 4719}#)))))
- #{tmp 4709}#)
+ #{fn 4735}#)))))
+ #{tmp 4725}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4708}#)))))))
+ #{tmp 4724}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 4724}#)
+ (lambda (#{x 4740}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 4724}#))))
+ #{x 4740}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 4726}#)
+ (lambda (#{x 4742}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 4726}#))))
+ #{x 4742}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 4728}#)
- (let ((#{tmp 4730}# #{x 4728}#))
- (let ((#{tmp 4731}#
+ (lambda (#{x 4744}#)
+ (let ((#{tmp 4746}# #{x 4744}#))
+ (let ((#{tmp 4747}#
($sc-dispatch
- #{tmp 4730}#
+ #{tmp 4746}#
'(_ any any . each-any))))
- (if #{tmp 4731}#
+ (if #{tmp 4747}#
(@apply
- (lambda (#{e 4735}# #{m1 4736}# #{m2 4737}#)
- (let ((#{tmp 4739}#
+ (lambda (#{e 4751}# #{m1 4752}# #{m2 4753}#)
+ (let ((#{tmp 4755}#
(letrec*
- ((#{f 4745}#
- (lambda (#{clause 4746}# #{clauses 4747}#)
- (if (null? #{clauses 4747}#)
- (let ((#{tmp 4749}# #{clause 4746}#))
- (let ((#{tmp 4750}#
+ ((#{f 4761}#
+ (lambda (#{clause 4762}# #{clauses 4763}#)
+ (if (null? #{clauses 4763}#)
+ (let ((#{tmp 4765}# #{clause 4762}#))
+ (let ((#{tmp 4766}#
($sc-dispatch
- #{tmp 4749}#
+ #{tmp 4765}#
'(#(free-id
#(syntax-object
else
@@ -17253,92 +15525,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 4750}#
+ (if #{tmp 4766}#
(@apply
- (lambda (#{e1 4753}# #{e2 4754}#)
+ (lambda (#{e1 4769}# #{e2 4770}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4751" "i4752"))
+ #("i4767" "i4768"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
- (cons #{e1 4753}#
- #{e2 4754}#)))
- #{tmp 4750}#)
- (let ((#{tmp 4756}#
+ (cons #{e1 4769}#
+ #{e2 4770}#)))
+ #{tmp 4766}#)
+ (let ((#{tmp 4772}#
($sc-dispatch
- #{tmp 4749}#
+ #{tmp 4765}#
'(each-any any . each-any))))
- (if #{tmp 4756}#
+ (if #{tmp 4772}#
(@apply
- (lambda (#{k 4760}#
- #{e1 4761}#
- #{e2 4762}#)
+ (lambda (#{k 4776}#
+ #{e1 4777}#
+ #{e2 4778}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4773"
+ "i4774"
+ "i4775"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17348,9 +15620,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4773"
+ "i4774"
+ "i4775"))
#(ribcage
()
()
@@ -17362,17 +15634,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17380,7 +15652,7 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
'#(syntax-object
t
@@ -17390,9 +15662,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4773"
+ "i4774"
+ "i4775"))
#(ribcage
()
()
@@ -17404,17 +15676,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17422,7 +15694,7 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -17434,9 +15706,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4773"
+ "i4774"
+ "i4775"))
#(ribcage
()
()
@@ -17448,9 +15720,9 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e
m1
@@ -17458,9 +15730,9 @@
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17468,10 +15740,10 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene
guile))
- #{k 4760}#))
+ #{k 4776}#))
(cons '#(syntax-object
begin
((top)
@@ -17480,9 +15752,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4773"
+ "i4774"
+ "i4775"))
#(ribcage
()
()
@@ -17494,17 +15766,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17512,64 +15784,64 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
- (cons #{e1 4761}#
- #{e2 4762}#))))
- #{tmp 4756}#)
- (let ((#{_ 4766}# #{tmp 4749}#))
+ (cons #{e1 4777}#
+ #{e2 4778}#))))
+ #{tmp 4772}#)
+ (let ((#{_ 4782}# #{tmp 4765}#))
(syntax-violation
'case
"bad clause"
- #{x 4728}#
- #{clause 4746}#)))))))
- (let ((#{tmp 4768}#
- (#{f 4745}#
- (car #{clauses 4747}#)
- (cdr #{clauses 4747}#))))
- (let ((#{rest 4770}# #{tmp 4768}#))
- (let ((#{tmp 4771}# #{clause 4746}#))
- (let ((#{tmp 4772}#
+ #{x 4744}#
+ #{clause 4762}#)))))))
+ (let ((#{tmp 4784}#
+ (#{f 4761}#
+ (car #{clauses 4763}#)
+ (cdr #{clauses 4763}#))))
+ (let ((#{rest 4786}# #{tmp 4784}#))
+ (let ((#{tmp 4787}# #{clause 4762}#))
+ (let ((#{tmp 4788}#
($sc-dispatch
- #{tmp 4771}#
+ #{tmp 4787}#
'(each-any any . each-any))))
- (if #{tmp 4772}#
+ (if #{tmp 4788}#
(@apply
- (lambda (#{k 4776}#
- #{e1 4777}#
- #{e2 4778}#)
+ (lambda (#{k 4792}#
+ #{e1 4793}#
+ #{e2 4794}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4773"
- "i4774"
- "i4775"))
+ #("i4789"
+ "i4790"
+ "i4791"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4769"))
+ #("i4785"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17579,9 +15851,9 @@
#((top)
(top)
(top))
- #("i4773"
- "i4774"
- "i4775"))
+ #("i4789"
+ "i4790"
+ "i4791"))
#(ribcage
()
()
@@ -17589,7 +15861,7 @@
#(ribcage
#(rest)
#((top))
- #("i4769"))
+ #("i4785"))
#(ribcage
()
()
@@ -17601,17 +15873,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17619,7 +15891,7 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
'#(syntax-object
t
@@ -17629,9 +15901,9 @@
#((top)
(top)
(top))
- #("i4773"
- "i4774"
- "i4775"))
+ #("i4789"
+ "i4790"
+ "i4791"))
#(ribcage
()
()
@@ -17639,7 +15911,7 @@
#(ribcage
#(rest)
#((top))
- #("i4769"))
+ #("i4785"))
#(ribcage
()
()
@@ -17651,17 +15923,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17669,7 +15941,7 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -17681,9 +15953,9 @@
#((top)
(top)
(top))
- #("i4773"
- "i4774"
- "i4775"))
+ #("i4789"
+ "i4790"
+ "i4791"))
#(ribcage
()
()
@@ -17691,7 +15963,7 @@
#(ribcage
#(rest)
#((top))
- #("i4769"))
+ #("i4785"))
#(ribcage
()
()
@@ -17703,9 +15975,9 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e
m1
@@ -17713,9 +15985,9 @@
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17723,10 +15995,10 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene
guile))
- #{k 4776}#))
+ #{k 4792}#))
(cons '#(syntax-object
begin
((top)
@@ -17735,9 +16007,9 @@
#((top)
(top)
(top))
- #("i4773"
- "i4774"
- "i4775"))
+ #("i4789"
+ "i4790"
+ "i4791"))
#(ribcage
()
()
@@ -17745,7 +16017,7 @@
#(ribcage
#(rest)
#((top))
- #("i4769"))
+ #("i4785"))
#(ribcage
()
()
@@ -17757,17 +16029,17 @@
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
+ #("i4758"
+ "i4759"
+ "i4760"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4748"
+ "i4749"
+ "i4750"))
#(ribcage
()
()
@@ -17775,31 +16047,31 @@
#(ribcage
#(x)
#((top))
- #("i4729")))
+ #("i4745")))
(hygiene guile))
- (cons #{e1 4777}#
- #{e2 4778}#))
- #{rest 4770}#))
- #{tmp 4772}#)
- (let ((#{_ 4782}# #{tmp 4771}#))
+ (cons #{e1 4793}#
+ #{e2 4794}#))
+ #{rest 4786}#))
+ #{tmp 4788}#)
+ (let ((#{_ 4798}# #{tmp 4787}#))
(syntax-violation
'case
"bad clause"
- #{x 4728}#
- #{clause 4746}#)))))))))))
- (#{f 4745}# #{m1 4736}# #{m2 4737}#))))
- (let ((#{body 4741}# #{tmp 4739}#))
+ #{x 4744}#
+ #{clause 4762}#)))))))))))
+ (#{f 4761}# #{m1 4752}# #{m2 4753}#))))
+ (let ((#{body 4757}# #{tmp 4755}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4740"))
+ #(ribcage #(body) #((top)) #("i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732" "i4733" "i4734"))
+ #("i4748" "i4749" "i4750"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4729")))
+ #(ribcage #(x) #((top)) #("i4745")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -17808,175 +16080,175 @@
#(ribcage
#(body)
#((top))
- #("i4740"))
+ #("i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4732" "i4733" "i4734"))
+ #("i4748" "i4749" "i4750"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4729")))
+ #(ribcage #(x) #((top)) #("i4745")))
(hygiene guile))
- #{e 4735}#))
- #{body 4741}#))))
- #{tmp 4731}#)
+ #{e 4751}#))
+ #{body 4757}#))))
+ #{tmp 4747}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4730}#)))))))
+ #{tmp 4746}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4783}#)
- (if (procedure? #{proc 4783}#)
+ (lambda (#{proc 4799}#)
+ (if (procedure? #{proc 4799}#)
(letrec*
- ((#{trans 4786}#
- (lambda (#{x 4787}#) (#{proc 4783}# #{x 4787}#))))
+ ((#{trans 4802}#
+ (lambda (#{x 4803}#) (#{proc 4799}# #{x 4803}#))))
(begin
(set-procedure-property!
- #{trans 4786}#
+ #{trans 4802}#
'variable-transformer
#t)
- #{trans 4786}#))
+ #{trans 4802}#))
(error "variable transformer not a procedure"
- #{proc 4783}#))))
+ #{proc 4799}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4789}#)
- (let ((#{tmp 4791}# #{x 4789}#))
- (let ((#{tmp 4792}#
- ($sc-dispatch #{tmp 4791}# '(_ any))))
- (if #{tmp 4792}#
+ (lambda (#{x 4805}#)
+ (let ((#{tmp 4807}# #{x 4805}#))
+ (let ((#{tmp 4808}#
+ ($sc-dispatch #{tmp 4807}# '(_ any))))
+ (if #{tmp 4808}#
(@apply
- (lambda (#{e 4794}#)
+ (lambda (#{e 4810}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- #{e 4794}#))
+ #{e 4810}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4793"))
+ #(ribcage #(e) #((top)) #("i4809"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- (cons #{e 4794}#
+ (cons #{e 4810}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4793"))
+ #("i4809"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
#(syntax-object
...
@@ -17984,55 +16256,55 @@
#(ribcage
#(e)
#((top))
- #("i4793"))
+ #("i4809"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile)))))))))
- #{tmp 4792}#)
- (let ((#{tmp 4795}#
+ #{tmp 4808}#)
+ (let ((#{tmp 4811}#
($sc-dispatch
- #{tmp 4791}#
+ #{tmp 4807}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 4795}#
+ (if (if #{tmp 4811}#
(@apply
- (lambda (#{id 4801}#
- #{exp1 4802}#
- #{var 4803}#
- #{val 4804}#
- #{exp2 4805}#)
- (if (identifier? #{id 4801}#)
- (identifier? #{var 4803}#)
+ (lambda (#{id 4817}#
+ #{exp1 4818}#
+ #{var 4819}#
+ #{val 4820}#
+ #{exp2 4821}#)
+ (if (identifier? #{id 4817}#)
+ (identifier? #{var 4819}#)
#f))
- #{tmp 4795}#)
+ #{tmp 4811}#)
#f)
(@apply
- (lambda (#{id 4813}#
- #{exp1 4814}#
- #{var 4815}#
- #{val 4816}#
- #{exp2 4817}#)
+ (lambda (#{id 4829}#
+ #{exp1 4830}#
+ #{var 4831}#
+ #{val 4832}#
+ #{exp2 4833}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808" "i4809" "i4810" "i4811" "i4812"))
+ #("i4824" "i4825" "i4826" "i4827" "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -18040,13 +16312,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'(#(syntax-object
x
@@ -18054,13 +16326,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -18068,13 +16340,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
.
#(syntax-object
@@ -18083,13 +16355,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -18097,13 +16369,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'#(syntax-object
x
@@ -18111,13 +16383,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
'(#(syntax-object
set!
@@ -18125,13 +16397,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4790")))
+ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -18143,19 +16415,19 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- #{var 4815}#
- #{val 4816}#)
+ #{var 4831}#
+ #{val 4832}#)
(list '#(syntax-object
syntax
((top)
@@ -18166,19 +16438,19 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- #{exp2 4817}#))
- (list (cons #{id 4813}#
+ #{exp2 4833}#))
+ (list (cons #{id 4829}#
'(#(syntax-object
x
((top)
@@ -18193,16 +16465,16 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
#(syntax-object
...
@@ -18218,16 +16490,16 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -18239,18 +16511,18 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- (cons #{exp1 4814}#
+ (cons #{exp1 4830}#
'(#(syntax-object
x
((top)
@@ -18265,11 +16537,11 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage
()
()
@@ -18277,7 +16549,7 @@
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
#(syntax-object
...
@@ -18293,11 +16565,11 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage
()
()
@@ -18305,10 +16577,10 @@
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene
guile))))))
- (list #{id 4813}#
+ (list #{id 4829}#
(list '#(syntax-object
identifier?
((top)
@@ -18319,16 +16591,16 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -18344,18 +16616,18 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- #{id 4813}#))
+ #{id 4829}#))
(list '#(syntax-object
syntax
((top)
@@ -18366,69 +16638,69 @@
(top)
(top)
(top))
- #("i4808"
- "i4809"
- "i4810"
- "i4811"
- "i4812"))
+ #("i4824"
+ "i4825"
+ "i4826"
+ "i4827"
+ "i4828"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4790")))
+ #("i4806")))
(hygiene guile))
- #{exp1 4814}#))))))
- #{tmp 4795}#)
+ #{exp1 4830}#))))))
+ #{tmp 4811}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4791}#)))))))))
+ #{tmp 4807}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4818}#)
- (let ((#{tmp 4820}# #{x 4818}#))
- (let ((#{tmp 4821}#
+ (lambda (#{x 4834}#)
+ (let ((#{tmp 4836}# #{x 4834}#))
+ (let ((#{tmp 4837}#
($sc-dispatch
- #{tmp 4820}#
+ #{tmp 4836}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4821}#
+ (if #{tmp 4837}#
(@apply
- (lambda (#{id 4826}#
- #{args 4827}#
- #{b0 4828}#
- #{b1 4829}#)
+ (lambda (#{id 4842}#
+ #{args 4843}#
+ #{b0 4844}#
+ #{b1 4845}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4822" "i4823" "i4824" "i4825"))
+ #("i4838" "i4839" "i4840" "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i4835")))
(hygiene guile))
- #{id 4826}#
+ #{id 4842}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4822" "i4823" "i4824" "i4825"))
+ #("i4838" "i4839" "i4840" "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i4835")))
(hygiene guile))
- (cons #{args 4827}#
- (cons #{b0 4828}# #{b1 4829}#)))))
- #{tmp 4821}#)
- (let ((#{tmp 4831}#
- ($sc-dispatch #{tmp 4820}# '(_ any any))))
- (if (if #{tmp 4831}#
+ (cons #{args 4843}#
+ (cons #{b0 4844}# #{b1 4845}#)))))
+ #{tmp 4837}#)
+ (let ((#{tmp 4847}#
+ ($sc-dispatch #{tmp 4836}# '(_ any any))))
+ (if (if #{tmp 4847}#
(@apply
- (lambda (#{id 4834}# #{val 4835}#)
+ (lambda (#{id 4850}# #{val 4851}#)
(identifier?
'#(syntax-object
x
@@ -18436,29 +16708,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4832" "i4833"))
+ #("i4848" "i4849"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i4835")))
(hygiene guile))))
- #{tmp 4831}#)
+ #{tmp 4847}#)
#f)
(@apply
- (lambda (#{id 4838}# #{val 4839}#)
+ (lambda (#{id 4854}# #{val 4855}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4836" "i4837"))
+ #("i4852" "i4853"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i4835")))
(hygiene guile))
- #{id 4838}#
- #{val 4839}#))
- #{tmp 4831}#)
+ #{id 4854}#
+ #{val 4855}#))
+ #{tmp 4847}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4820}#)))))))))
+ #{tmp 4836}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 6305b53fe..292d6e27e 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -804,9 +804,35 @@
(define free-id=?
(lambda (i j)
- (and (eq? (id-sym-name i) (id-sym-name j)) ; accelerator
- (eq? (id-var-name i empty-wrap) (id-var-name j empty-wrap)))))
-
+ (let ((ni (id-var-name i empty-wrap))
+ (nj (id-var-name j empty-wrap)))
+ (define (id-module-binding id)
+ (let ((mod (and (syntax-object? id) (syntax-object-module id))))
+ (module-variable
+ (if mod
+ ;; The normal case.
+ (resolve-module (cdr mod))
+ ;; Either modules have not been booted, or we have a
+ ;; raw symbol coming in, which is possible.
+ (current-module))
+ (id-sym-name id))))
+ (if (eq? ni (id-sym-name i))
+ ;; `i' is not lexically bound. Assert that `j' is free,
+ ;; and if so, compare their bindings, that they are either
+ ;; bound to the same variable, or both unbound and have
+ ;; the same name.
+ (and (eq? nj (id-sym-name j))
+ (let ((bi (id-module-binding i)))
+ (if bi
+ (eq? bi (id-module-binding j))
+ (and (not (id-module-binding j))
+ (eq? ni nj))))
+ (eq? (id-module-binding i) (id-module-binding j)))
+ ;; Otherwise `i' is bound, so check that `j' is bound, and
+ ;; bound to the same thing.
+ (and (eq? ni nj)
+ (not (eq? nj (id-sym-name j))))))))
+
;; bound-id=? may be passed unwrapped (or partially wrapped) ids as
;; long as the missing portion of the wrap is common to both of the ids
;; since (bound-id=? x y) iff (bound-id=? (wrap x w) (wrap y w))
@@ -1049,20 +1075,21 @@
(define chi-when-list
(lambda (e when-list w)
- ;; when-list is syntax'd version of list of situations
+ ;; `when-list' is syntax'd version of list of situations. We
+ ;; could match these keywords lexically, via free-id=?, but then
+ ;; we twingle the definition of eval-when to the bindings of
+ ;; eval, load, expand, and compile, which is totally unintended.
+ ;; So do a symbolic match instead.
(let f ((when-list when-list) (situations '()))
(if (null? when-list)
situations
(f (cdr when-list)
- (cons (let ((x (car when-list)))
- (cond
- ((free-id=? x #'compile) 'compile)
- ((free-id=? x #'load) 'load)
- ((free-id=? x #'eval) 'eval)
- ((free-id=? x #'expand) 'expand)
- (else (syntax-violation 'eval-when
- "invalid situation"
- e (wrap x w #f)))))
+ (cons (let ((x (syntax->datum (car when-list))))
+ (if (memq x '(compile load eval expand))
+ x
+ (syntax-violation 'eval-when
+ "invalid situation"
+ e (wrap (car when-list) w #f))))
situations))))))
;; syntax-type returns six values: type, value, e, w, s, and mod. The
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 1f9fd5074..88dc9c613 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -97,6 +97,7 @@
(oop goops compile))
+;; FIXME: deprecate.
(eval-when (eval load compile)
(define min-fixnum (- (expt 2 29)))
(define max-fixnum (- (expt 2 29) 1)))