diff options
author | Julian Graham <julian.graham@aya.yale.edu> | 2009-10-18 17:56:13 -0400 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-10-19 22:44:52 +0200 |
commit | 416c9fb363a2b2f31382c5a488c6e27c31a3b62f (patch) | |
tree | 5be7483ee9a16a1f31dccea0a8e35d9166ff17c4 | |
parent | 620c89651ae54f8f35c3d0926f8c2c36c3fdd174 (diff) | |
download | guile-416c9fb363a2b2f31382c5a488c6e27c31a3b62f.tar.gz |
Fix typo in psyntax.scm related to syntax-violation reporting.
* module/ice-9/psyntax.scm (chi-macro): Replace `s' with `(wrap-subst w)'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 10700 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 2 |
2 files changed, 5362 insertions, 5340 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index fecd2b25d..a50574489 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,122 +1,125 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 1199}# - (lambda (#{f\ 1239}# #{first\ 1238}# . #{rest\ 1237}#) - (let ((#{t\ 1240}# (null? #{first\ 1238}#))) - (if #{t\ 1240}# - #{t\ 1240}# - (if (null? #{rest\ 1237}#) - (letrec ((#{andmap\ 1241}# - (lambda (#{first\ 1242}#) - (let ((#{x\ 1243}# (car #{first\ 1242}#)) - (#{first\ 1244}# (cdr #{first\ 1242}#))) - (if (null? #{first\ 1244}#) - (#{f\ 1239}# #{x\ 1243}#) - (if (#{f\ 1239}# #{x\ 1243}#) - (#{andmap\ 1241}# #{first\ 1244}#) +(letrec ((#{and-map*\ 31}# + (lambda (#{f\ 71}# #{first\ 70}# . #{rest\ 69}#) + (let ((#{t\ 72}# (null? #{first\ 70}#))) + (if #{t\ 72}# + #{t\ 72}# + (if (null? #{rest\ 69}#) + (letrec ((#{andmap\ 73}# + (lambda (#{first\ 74}#) + (let ((#{x\ 75}# (car #{first\ 74}#)) + (#{first\ 76}# (cdr #{first\ 74}#))) + (if (null? #{first\ 76}#) + (#{f\ 71}# #{x\ 75}#) + (if (#{f\ 71}# #{x\ 75}#) + (#{andmap\ 73}# #{first\ 76}#) #f)))))) - (#{andmap\ 1241}# #{first\ 1238}#)) - (letrec ((#{andmap\ 1245}# - (lambda (#{first\ 1246}# #{rest\ 1247}#) - (let ((#{x\ 1248}# (car #{first\ 1246}#)) - (#{xr\ 1249}# (map car #{rest\ 1247}#)) - (#{first\ 1250}# (cdr #{first\ 1246}#)) - (#{rest\ 1251}# - (map cdr #{rest\ 1247}#))) - (if (null? #{first\ 1250}#) - (apply #{f\ 1239}# - (cons #{x\ 1248}# #{xr\ 1249}#)) - (if (apply #{f\ 1239}# - (cons #{x\ 1248}# #{xr\ 1249}#)) - (#{andmap\ 1245}# - #{first\ 1250}# - #{rest\ 1251}#) + (#{andmap\ 73}# #{first\ 70}#)) + (letrec ((#{andmap\ 77}# + (lambda (#{first\ 78}# #{rest\ 79}#) + (let ((#{x\ 80}# (car #{first\ 78}#)) + (#{xr\ 81}# (map car #{rest\ 79}#)) + (#{first\ 82}# (cdr #{first\ 78}#)) + (#{rest\ 83}# (map cdr #{rest\ 79}#))) + (if (null? #{first\ 82}#) + (apply #{f\ 71}# + (cons #{x\ 80}# #{xr\ 81}#)) + (if (apply #{f\ 71}# + (cons #{x\ 80}# #{xr\ 81}#)) + (#{andmap\ 77}# + #{first\ 82}# + #{rest\ 83}#) #f)))))) - (#{andmap\ 1245}# #{first\ 1238}# #{rest\ 1237}#)))))))) - (letrec ((#{lambda-var-list\ 1345}# - (lambda (#{vars\ 1469}#) - (letrec ((#{lvl\ 1470}# - (lambda (#{vars\ 1471}# #{ls\ 1472}# #{w\ 1473}#) - (if (pair? #{vars\ 1471}#) - (#{lvl\ 1470}# - (cdr #{vars\ 1471}#) - (cons (#{wrap\ 1325}# - (car #{vars\ 1471}#) - #{w\ 1473}# + (#{andmap\ 77}# #{first\ 70}# #{rest\ 69}#)))))))) + (letrec ((#{lambda-var-list\ 177}# + (lambda (#{vars\ 301}#) + (letrec ((#{lvl\ 302}# + (lambda (#{vars\ 303}# #{ls\ 304}# #{w\ 305}#) + (if (pair? #{vars\ 303}#) + (#{lvl\ 302}# + (cdr #{vars\ 303}#) + (cons (#{wrap\ 157}# + (car #{vars\ 303}#) + #{w\ 305}# #f) - #{ls\ 1472}#) - #{w\ 1473}#) - (if (#{id?\ 1297}# #{vars\ 1471}#) - (cons (#{wrap\ 1325}# - #{vars\ 1471}# - #{w\ 1473}# + #{ls\ 304}#) + #{w\ 305}#) + (if (#{id?\ 129}# #{vars\ 303}#) + (cons (#{wrap\ 157}# + #{vars\ 303}# + #{w\ 305}# #f) - #{ls\ 1472}#) - (if (null? #{vars\ 1471}#) - #{ls\ 1472}# - (if (#{syntax-object?\ 1281}# #{vars\ 1471}#) - (#{lvl\ 1470}# - (#{syntax-object-expression\ 1282}# - #{vars\ 1471}#) - #{ls\ 1472}# - (#{join-wraps\ 1316}# - #{w\ 1473}# - (#{syntax-object-wrap\ 1283}# - #{vars\ 1471}#))) - (cons #{vars\ 1471}# #{ls\ 1472}#)))))))) - (#{lvl\ 1470}# - #{vars\ 1469}# + #{ls\ 304}#) + (if (null? #{vars\ 303}#) + #{ls\ 304}# + (if (#{syntax-object?\ 113}# #{vars\ 303}#) + (#{lvl\ 302}# + (#{syntax-object-expression\ 114}# + #{vars\ 303}#) + #{ls\ 304}# + (#{join-wraps\ 148}# + #{w\ 305}# + (#{syntax-object-wrap\ 115}# + #{vars\ 303}#))) + (cons #{vars\ 303}# #{ls\ 304}#)))))))) + (#{lvl\ 302}# + #{vars\ 301}# '() '(()))))) - (#{gen-var\ 1344}# - (lambda (#{id\ 1474}#) - (let ((#{id\ 1475}# - (if (#{syntax-object?\ 1281}# #{id\ 1474}#) - (#{syntax-object-expression\ 1282}# #{id\ 1474}#) - #{id\ 1474}#))) + (#{gen-var\ 176}# + (lambda (#{id\ 306}#) + (let ((#{id\ 307}# + (if (#{syntax-object?\ 113}# #{id\ 306}#) + (#{syntax-object-expression\ 114}# #{id\ 306}#) + #{id\ 306}#))) (gensym - (string-append (symbol->string #{id\ 1475}#) " "))))) - (#{strip\ 1343}# - (lambda (#{x\ 1476}# #{w\ 1477}#) + (string-append (symbol->string #{id\ 307}#) " "))))) + (#{strip\ 175}# + (lambda (#{x\ 308}# #{w\ 309}#) (if (memq 'top - (#{wrap-marks\ 1300}# #{w\ 1477}#)) - #{x\ 1476}# - (letrec ((#{f\ 1478}# - (lambda (#{x\ 1479}#) - (if (#{syntax-object?\ 1281}# #{x\ 1479}#) - (#{strip\ 1343}# - (#{syntax-object-expression\ 1282}# - #{x\ 1479}#) - (#{syntax-object-wrap\ 1283}# #{x\ 1479}#)) - (if (pair? #{x\ 1479}#) - (let ((#{a\ 1480}# - (#{f\ 1478}# (car #{x\ 1479}#))) - (#{d\ 1481}# - (#{f\ 1478}# (cdr #{x\ 1479}#)))) - (if (if (eq? #{a\ 1480}# (car #{x\ 1479}#)) - (eq? #{d\ 1481}# (cdr #{x\ 1479}#)) - #f) - #{x\ 1479}# - (cons #{a\ 1480}# #{d\ 1481}#))) - (if (vector? #{x\ 1479}#) - (let ((#{old\ 1482}# - (vector->list #{x\ 1479}#))) - (let ((#{new\ 1483}# - (map #{f\ 1478}# #{old\ 1482}#))) - (if (#{and-map*\ 1199}# - eq? - #{old\ 1482}# - #{new\ 1483}#) - #{x\ 1479}# - (list->vector #{new\ 1483}#)))) - #{x\ 1479}#)))))) - (#{f\ 1478}# #{x\ 1476}#))))) - (#{ellipsis?\ 1342}# - (lambda (#{x\ 1484}#) - (if (#{nonsymbol-id?\ 1296}# #{x\ 1484}#) - (#{free-id=?\ 1320}# - #{x\ 1484}# + (#{wrap-marks\ 132}# #{w\ 309}#)) + #{x\ 308}# + (letrec ((#{f\ 310}# (lambda (#{x\ 311}#) + (if (#{syntax-object?\ 113}# + #{x\ 311}#) + (#{strip\ 175}# + (#{syntax-object-expression\ 114}# + #{x\ 311}#) + (#{syntax-object-wrap\ 115}# + #{x\ 311}#)) + (if (pair? #{x\ 311}#) + (let ((#{a\ 312}# (#{f\ 310}# (car #{x\ 311}#))) + (#{d\ 313}# (#{f\ 310}# (cdr #{x\ 311}#)))) + (if (if (eq? #{a\ 312}# + (car #{x\ 311}#)) + (eq? #{d\ 313}# + (cdr #{x\ 311}#)) + #f) + #{x\ 311}# + (cons #{a\ 312}# #{d\ 313}#))) + (if (vector? #{x\ 311}#) + (let ((#{old\ 314}# + (vector->list + #{x\ 311}#))) + (let ((#{new\ 315}# + (map #{f\ 310}# + #{old\ 314}#))) + (if (#{and-map*\ 31}# + eq? + #{old\ 314}# + #{new\ 315}#) + #{x\ 311}# + (list->vector + #{new\ 315}#)))) + #{x\ 311}#)))))) + (#{f\ 310}# #{x\ 308}#))))) + (#{ellipsis?\ 174}# + (lambda (#{x\ 316}#) + (if (#{nonsymbol-id?\ 128}# #{x\ 316}#) + (#{free-id=?\ 152}# + #{x\ 316}# '#(syntax-object ... ((top) @@ -466,1401 +469,1370 @@ ("i" "i"))) (hygiene guile))) #f))) - (#{chi-void\ 1341}# - (lambda () (#{build-void\ 1263}# #f))) - (#{eval-local-transformer\ 1340}# - (lambda (#{expanded\ 1485}# #{mod\ 1486}#) - (let ((#{p\ 1487}# - (#{local-eval-hook\ 1259}# - #{expanded\ 1485}# - #{mod\ 1486}#))) - (if (procedure? #{p\ 1487}#) - #{p\ 1487}# + (#{chi-void\ 173}# + (lambda () (#{build-void\ 95}# #f))) + (#{eval-local-transformer\ 172}# + (lambda (#{expanded\ 317}# #{mod\ 318}#) + (let ((#{p\ 319}# (#{local-eval-hook\ 91}# + #{expanded\ 317}# + #{mod\ 318}#))) + (if (procedure? #{p\ 319}#) + #{p\ 319}# (syntax-violation #f "nonprocedure transformer" - #{p\ 1487}#))))) - (#{chi-local-syntax\ 1339}# - (lambda (#{rec?\ 1488}# - #{e\ 1489}# - #{r\ 1490}# - #{w\ 1491}# - #{s\ 1492}# - #{mod\ 1493}# - #{k\ 1494}#) - ((lambda (#{tmp\ 1495}#) - ((lambda (#{tmp\ 1496}#) - (if #{tmp\ 1496}# - (apply (lambda (#{_\ 1497}# - #{id\ 1498}# - #{val\ 1499}# - #{e1\ 1500}# - #{e2\ 1501}#) - (let ((#{ids\ 1502}# #{id\ 1498}#)) - (if (not (#{valid-bound-ids?\ 1322}# - #{ids\ 1502}#)) + #{p\ 319}#))))) + (#{chi-local-syntax\ 171}# + (lambda (#{rec?\ 320}# + #{e\ 321}# + #{r\ 322}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}# + #{k\ 326}#) + ((lambda (#{tmp\ 327}#) + ((lambda (#{tmp\ 328}#) + (if #{tmp\ 328}# + (apply (lambda (#{_\ 329}# + #{id\ 330}# + #{val\ 331}# + #{e1\ 332}# + #{e2\ 333}#) + (let ((#{ids\ 334}# #{id\ 330}#)) + (if (not (#{valid-bound-ids?\ 154}# + #{ids\ 334}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1489}#) - (let ((#{labels\ 1504}# - (#{gen-labels\ 1303}# - #{ids\ 1502}#))) - (let ((#{new-w\ 1505}# - (#{make-binding-wrap\ 1314}# - #{ids\ 1502}# - #{labels\ 1504}# - #{w\ 1491}#))) - (#{k\ 1494}# - (cons #{e1\ 1500}# #{e2\ 1501}#) - (#{extend-env\ 1291}# - #{labels\ 1504}# - (let ((#{w\ 1507}# - (if #{rec?\ 1488}# - #{new-w\ 1505}# - #{w\ 1491}#)) - (#{trans-r\ 1508}# - (#{macros-only-env\ 1293}# - #{r\ 1490}#))) - (map (lambda (#{x\ 1509}#) - (cons 'macro - (#{eval-local-transformer\ 1340}# - (#{chi\ 1333}# - #{x\ 1509}# - #{trans-r\ 1508}# - #{w\ 1507}# - #{mod\ 1493}#) - #{mod\ 1493}#))) - #{val\ 1499}#)) - #{r\ 1490}#) - #{new-w\ 1505}# - #{s\ 1492}# - #{mod\ 1493}#)))))) - #{tmp\ 1496}#) - ((lambda (#{_\ 1511}#) + #{e\ 321}#) + (let ((#{labels\ 336}# + (#{gen-labels\ 135}# + #{ids\ 334}#))) + (let ((#{new-w\ 337}# + (#{make-binding-wrap\ 146}# + #{ids\ 334}# + #{labels\ 336}# + #{w\ 323}#))) + (#{k\ 326}# (cons #{e1\ 332}# + #{e2\ 333}#) + (#{extend-env\ 123}# + #{labels\ 336}# + (let ((#{w\ 339}# (if #{rec?\ 320}# + #{new-w\ 337}# + #{w\ 323}#)) + (#{trans-r\ 340}# + (#{macros-only-env\ 125}# + #{r\ 322}#))) + (map (lambda (#{x\ 341}#) + (cons 'macro + (#{eval-local-transformer\ 172}# + (#{chi\ 165}# + #{x\ 341}# + #{trans-r\ 340}# + #{w\ 339}# + #{mod\ 325}#) + #{mod\ 325}#))) + #{val\ 331}#)) + #{r\ 322}#) + #{new-w\ 337}# + #{s\ 324}# + #{mod\ 325}#)))))) + #{tmp\ 328}#) + ((lambda (#{_\ 343}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 1326}# - #{e\ 1489}# - #{w\ 1491}# - #{s\ 1492}# - #{mod\ 1493}#))) - #{tmp\ 1495}#))) + (#{source-wrap\ 158}# + #{e\ 321}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}#))) + #{tmp\ 327}#))) ($sc-dispatch - #{tmp\ 1495}# + #{tmp\ 327}# '(any #(each (any any)) any . each-any)))) - #{e\ 1489}#))) - (#{chi-lambda-clause\ 1338}# - (lambda (#{e\ 1512}# - #{docstring\ 1513}# - #{c\ 1514}# - #{r\ 1515}# - #{w\ 1516}# - #{mod\ 1517}# - #{k\ 1518}#) - ((lambda (#{tmp\ 1519}#) - ((lambda (#{tmp\ 1520}#) - (if (if #{tmp\ 1520}# - (apply (lambda (#{args\ 1521}# - #{doc\ 1522}# - #{e1\ 1523}# - #{e2\ 1524}#) - (if (string? (syntax->datum #{doc\ 1522}#)) - (not #{docstring\ 1513}#) + #{e\ 321}#))) + (#{chi-lambda-clause\ 170}# + (lambda (#{e\ 344}# + #{docstring\ 345}# + #{c\ 346}# + #{r\ 347}# + #{w\ 348}# + #{mod\ 349}# + #{k\ 350}#) + ((lambda (#{tmp\ 351}#) + ((lambda (#{tmp\ 352}#) + (if (if #{tmp\ 352}# + (apply (lambda (#{args\ 353}# + #{doc\ 354}# + #{e1\ 355}# + #{e2\ 356}#) + (if (string? (syntax->datum #{doc\ 354}#)) + (not #{docstring\ 345}#) #f)) - #{tmp\ 1520}#) + #{tmp\ 352}#) #f) - (apply (lambda (#{args\ 1525}# - #{doc\ 1526}# - #{e1\ 1527}# - #{e2\ 1528}#) - (#{chi-lambda-clause\ 1338}# - #{e\ 1512}# - #{doc\ 1526}# - (cons #{args\ 1525}# - (cons #{e1\ 1527}# #{e2\ 1528}#)) - #{r\ 1515}# - #{w\ 1516}# - #{mod\ 1517}# - #{k\ 1518}#)) - #{tmp\ 1520}#) - ((lambda (#{tmp\ 1530}#) - (if #{tmp\ 1530}# - (apply (lambda (#{id\ 1531}# - #{e1\ 1532}# - #{e2\ 1533}#) - (let ((#{ids\ 1534}# #{id\ 1531}#)) - (if (not (#{valid-bound-ids?\ 1322}# - #{ids\ 1534}#)) + (apply (lambda (#{args\ 357}# + #{doc\ 358}# + #{e1\ 359}# + #{e2\ 360}#) + (#{chi-lambda-clause\ 170}# + #{e\ 344}# + #{doc\ 358}# + (cons #{args\ 357}# + (cons #{e1\ 359}# #{e2\ 360}#)) + #{r\ 347}# + #{w\ 348}# + #{mod\ 349}# + #{k\ 350}#)) + #{tmp\ 352}#) + ((lambda (#{tmp\ 362}#) + (if #{tmp\ 362}# + (apply (lambda (#{id\ 363}# + #{e1\ 364}# + #{e2\ 365}#) + (let ((#{ids\ 366}# #{id\ 363}#)) + (if (not (#{valid-bound-ids?\ 154}# + #{ids\ 366}#)) (syntax-violation 'lambda "invalid parameter list" - #{e\ 1512}#) - (let ((#{labels\ 1536}# - (#{gen-labels\ 1303}# - #{ids\ 1534}#)) - (#{new-vars\ 1537}# - (map #{gen-var\ 1344}# - #{ids\ 1534}#))) - (#{k\ 1518}# - (map syntax->datum #{ids\ 1534}#) - #{new-vars\ 1537}# - (if #{docstring\ 1513}# - (syntax->datum - #{docstring\ 1513}#) - #f) - (#{chi-body\ 1337}# - (cons #{e1\ 1532}# #{e2\ 1533}#) - #{e\ 1512}# - (#{extend-var-env\ 1292}# - #{labels\ 1536}# - #{new-vars\ 1537}# - #{r\ 1515}#) - (#{make-binding-wrap\ 1314}# - #{ids\ 1534}# - #{labels\ 1536}# - #{w\ 1516}#) - #{mod\ 1517}#)))))) - #{tmp\ 1530}#) - ((lambda (#{tmp\ 1539}#) - (if #{tmp\ 1539}# - (apply (lambda (#{ids\ 1540}# - #{e1\ 1541}# - #{e2\ 1542}#) - (let ((#{old-ids\ 1543}# - (#{lambda-var-list\ 1345}# - #{ids\ 1540}#))) - (if (not (#{valid-bound-ids?\ 1322}# - #{old-ids\ 1543}#)) + #{e\ 344}#) + (let ((#{labels\ 368}# + (#{gen-labels\ 135}# + #{ids\ 366}#)) + (#{new-vars\ 369}# + (map #{gen-var\ 176}# + #{ids\ 366}#))) + (#{k\ 350}# (map syntax->datum + #{ids\ 366}#) + #{new-vars\ 369}# + (if #{docstring\ 345}# + (syntax->datum + #{docstring\ 345}#) + #f) + (#{chi-body\ 169}# + (cons #{e1\ 364}# + #{e2\ 365}#) + #{e\ 344}# + (#{extend-var-env\ 124}# + #{labels\ 368}# + #{new-vars\ 369}# + #{r\ 347}#) + (#{make-binding-wrap\ 146}# + #{ids\ 366}# + #{labels\ 368}# + #{w\ 348}#) + #{mod\ 349}#)))))) + #{tmp\ 362}#) + ((lambda (#{tmp\ 371}#) + (if #{tmp\ 371}# + (apply (lambda (#{ids\ 372}# + #{e1\ 373}# + #{e2\ 374}#) + (let ((#{old-ids\ 375}# + (#{lambda-var-list\ 177}# + #{ids\ 372}#))) + (if (not (#{valid-bound-ids?\ 154}# + #{old-ids\ 375}#)) (syntax-violation 'lambda "invalid parameter list" - #{e\ 1512}#) - (let ((#{labels\ 1544}# - (#{gen-labels\ 1303}# - #{old-ids\ 1543}#)) - (#{new-vars\ 1545}# - (map #{gen-var\ 1344}# - #{old-ids\ 1543}#))) - (#{k\ 1518}# - (letrec ((#{f\ 1546}# - (lambda (#{ls1\ 1547}# - #{ls2\ 1548}#) - (if (null? #{ls1\ 1547}#) - (syntax->datum - #{ls2\ 1548}#) - (#{f\ 1546}# - (cdr #{ls1\ 1547}#) - (cons (syntax->datum - (car #{ls1\ 1547}#)) - #{ls2\ 1548}#)))))) - (#{f\ 1546}# - (cdr #{old-ids\ 1543}#) - (car #{old-ids\ 1543}#))) - (letrec ((#{f\ 1549}# - (lambda (#{ls1\ 1550}# - #{ls2\ 1551}#) - (if (null? #{ls1\ 1550}#) - #{ls2\ 1551}# - (#{f\ 1549}# - (cdr #{ls1\ 1550}#) - (cons (car #{ls1\ 1550}#) - #{ls2\ 1551}#)))))) - (#{f\ 1549}# - (cdr #{new-vars\ 1545}#) - (car #{new-vars\ 1545}#))) - (if #{docstring\ 1513}# - (syntax->datum - #{docstring\ 1513}#) - #f) - (#{chi-body\ 1337}# - (cons #{e1\ 1541}# - #{e2\ 1542}#) - #{e\ 1512}# - (#{extend-var-env\ 1292}# - #{labels\ 1544}# - #{new-vars\ 1545}# - #{r\ 1515}#) - (#{make-binding-wrap\ 1314}# - #{old-ids\ 1543}# - #{labels\ 1544}# - #{w\ 1516}#) - #{mod\ 1517}#)))))) - #{tmp\ 1539}#) - ((lambda (#{_\ 1553}#) + #{e\ 344}#) + (let ((#{labels\ 376}# + (#{gen-labels\ 135}# + #{old-ids\ 375}#)) + (#{new-vars\ 377}# + (map #{gen-var\ 176}# + #{old-ids\ 375}#))) + (#{k\ 350}# (letrec ((#{f\ 378}# (lambda (#{ls1\ 379}# + #{ls2\ 380}#) + (if (null? #{ls1\ 379}#) + (syntax->datum + #{ls2\ 380}#) + (#{f\ 378}# (cdr #{ls1\ 379}#) + (cons (syntax->datum + (car #{ls1\ 379}#)) + #{ls2\ 380}#)))))) + (#{f\ 378}# (cdr #{old-ids\ 375}#) + (car #{old-ids\ 375}#))) + (letrec ((#{f\ 381}# (lambda (#{ls1\ 382}# + #{ls2\ 383}#) + (if (null? #{ls1\ 382}#) + #{ls2\ 383}# + (#{f\ 381}# (cdr #{ls1\ 382}#) + (cons (car #{ls1\ 382}#) + #{ls2\ 383}#)))))) + (#{f\ 381}# (cdr #{new-vars\ 377}#) + (car #{new-vars\ 377}#))) + (if #{docstring\ 345}# + (syntax->datum + #{docstring\ 345}#) + #f) + (#{chi-body\ 169}# + (cons #{e1\ 373}# + #{e2\ 374}#) + #{e\ 344}# + (#{extend-var-env\ 124}# + #{labels\ 376}# + #{new-vars\ 377}# + #{r\ 347}#) + (#{make-binding-wrap\ 146}# + #{old-ids\ 375}# + #{labels\ 376}# + #{w\ 348}#) + #{mod\ 349}#)))))) + #{tmp\ 371}#) + ((lambda (#{_\ 385}#) (syntax-violation 'lambda "bad lambda" - #{e\ 1512}#)) - #{tmp\ 1519}#))) + #{e\ 344}#)) + #{tmp\ 351}#))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 351}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 351}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 351}# '(any any any . each-any)))) - #{c\ 1514}#))) - (#{chi-body\ 1337}# - (lambda (#{body\ 1554}# - #{outer-form\ 1555}# - #{r\ 1556}# - #{w\ 1557}# - #{mod\ 1558}#) - (let ((#{r\ 1559}# - (cons '("placeholder" placeholder) - #{r\ 1556}#))) - (let ((#{ribcage\ 1560}# - (#{make-ribcage\ 1304}# + #{c\ 346}#))) + (#{chi-body\ 169}# + (lambda (#{body\ 386}# + #{outer-form\ 387}# + #{r\ 388}# + #{w\ 389}# + #{mod\ 390}#) + (let ((#{r\ 391}# (cons '("placeholder" placeholder) + #{r\ 388}#))) + (let ((#{ribcage\ 392}# + (#{make-ribcage\ 136}# '() '() '()))) - (let ((#{w\ 1561}# - (#{make-wrap\ 1299}# - (#{wrap-marks\ 1300}# #{w\ 1557}#) - (cons #{ribcage\ 1560}# - (#{wrap-subst\ 1301}# #{w\ 1557}#))))) - (letrec ((#{parse\ 1562}# - (lambda (#{body\ 1563}# - #{ids\ 1564}# - #{labels\ 1565}# - #{var-ids\ 1566}# - #{vars\ 1567}# - #{vals\ 1568}# - #{bindings\ 1569}#) - (if (null? #{body\ 1563}#) + (let ((#{w\ 393}# (#{make-wrap\ 131}# + (#{wrap-marks\ 132}# #{w\ 389}#) + (cons #{ribcage\ 392}# + (#{wrap-subst\ 133}# + #{w\ 389}#))))) + (letrec ((#{parse\ 394}# + (lambda (#{body\ 395}# + #{ids\ 396}# + #{labels\ 397}# + #{var-ids\ 398}# + #{vars\ 399}# + #{vals\ 400}# + #{bindings\ 401}#) + (if (null? #{body\ 395}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1555}#) - (let ((#{e\ 1571}# (cdar #{body\ 1563}#)) - (#{er\ 1572}# (caar #{body\ 1563}#))) + #{outer-form\ 387}#) + (let ((#{e\ 403}# (cdar #{body\ 395}#)) + (#{er\ 404}# (caar #{body\ 395}#))) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1571}# - #{er\ 1572}# + (#{syntax-type\ 163}# + #{e\ 403}# + #{er\ 404}# '(()) - (#{source-annotation\ 1288}# - #{er\ 1572}#) - #{ribcage\ 1560}# - #{mod\ 1558}# + (#{source-annotation\ 120}# + #{er\ 404}#) + #{ribcage\ 392}# + #{mod\ 390}# #f)) - (lambda (#{type\ 1573}# - #{value\ 1574}# - #{e\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#) - (if (memv #{type\ 1573}# + (lambda (#{type\ 405}# + #{value\ 406}# + #{e\ 407}# + #{w\ 408}# + #{s\ 409}# + #{mod\ 410}#) + (if (memv #{type\ 405}# '(define-form)) - (let ((#{id\ 1579}# - (#{wrap\ 1325}# - #{value\ 1574}# - #{w\ 1576}# - #{mod\ 1578}#)) - (#{label\ 1580}# - (#{gen-label\ 1302}#))) - (let ((#{var\ 1581}# - (#{gen-var\ 1344}# - #{id\ 1579}#))) + (let ((#{id\ 411}# + (#{wrap\ 157}# + #{value\ 406}# + #{w\ 408}# + #{mod\ 410}#)) + (#{label\ 412}# + (#{gen-label\ 134}#))) + (let ((#{var\ 413}# + (#{gen-var\ 176}# + #{id\ 411}#))) (begin - (#{extend-ribcage!\ 1313}# - #{ribcage\ 1560}# - #{id\ 1579}# - #{label\ 1580}#) - (#{parse\ 1562}# - (cdr #{body\ 1563}#) - (cons #{id\ 1579}# - #{ids\ 1564}#) - (cons #{label\ 1580}# - #{labels\ 1565}#) - (cons #{id\ 1579}# - #{var-ids\ 1566}#) - (cons #{var\ 1581}# - #{vars\ 1567}#) - (cons (cons #{er\ 1572}# - (#{wrap\ 1325}# - #{e\ 1575}# - #{w\ 1576}# - #{mod\ 1578}#)) - #{vals\ 1568}#) + (#{extend-ribcage!\ 145}# + #{ribcage\ 392}# + #{id\ 411}# + #{label\ 412}#) + (#{parse\ 394}# + (cdr #{body\ 395}#) + (cons #{id\ 411}# + #{ids\ 396}#) + (cons #{label\ 412}# + #{labels\ 397}#) + (cons #{id\ 411}# + #{var-ids\ 398}#) + (cons #{var\ 413}# + #{vars\ 399}#) + (cons (cons #{er\ 404}# + (#{wrap\ 157}# + #{e\ 407}# + #{w\ 408}# + #{mod\ 410}#)) + #{vals\ 400}#) (cons (cons 'lexical - #{var\ 1581}#) - #{bindings\ 1569}#))))) - (if (memv #{type\ 1573}# + #{var\ 413}#) + #{bindings\ 401}#))))) + (if (memv #{type\ 405}# '(define-syntax-form)) - (let ((#{id\ 1582}# - (#{wrap\ 1325}# - #{value\ 1574}# - #{w\ 1576}# - #{mod\ 1578}#)) - (#{label\ 1583}# - (#{gen-label\ 1302}#))) + (let ((#{id\ 414}# + (#{wrap\ 157}# + #{value\ 406}# + #{w\ 408}# + #{mod\ 410}#)) + (#{label\ 415}# + (#{gen-label\ 134}#))) (begin - (#{extend-ribcage!\ 1313}# - #{ribcage\ 1560}# - #{id\ 1582}# - #{label\ 1583}#) - (#{parse\ 1562}# - (cdr #{body\ 1563}#) - (cons #{id\ 1582}# - #{ids\ 1564}#) - (cons #{label\ 1583}# - #{labels\ 1565}#) - #{var-ids\ 1566}# - #{vars\ 1567}# - #{vals\ 1568}# + (#{extend-ribcage!\ 145}# + #{ribcage\ 392}# + #{id\ 414}# + #{label\ 415}#) + (#{parse\ 394}# + (cdr #{body\ 395}#) + (cons #{id\ 414}# + #{ids\ 396}#) + (cons #{label\ 415}# + #{labels\ 397}#) + #{var-ids\ 398}# + #{vars\ 399}# + #{vals\ 400}# (cons (cons 'macro - (cons #{er\ 1572}# - (#{wrap\ 1325}# - #{e\ 1575}# - #{w\ 1576}# - #{mod\ 1578}#))) - #{bindings\ 1569}#)))) - (if (memv #{type\ 1573}# + (cons #{er\ 404}# + (#{wrap\ 157}# + #{e\ 407}# + #{w\ 408}# + #{mod\ 410}#))) + #{bindings\ 401}#)))) + (if (memv #{type\ 405}# '(begin-form)) - ((lambda (#{tmp\ 1584}#) - ((lambda (#{tmp\ 1585}#) - (if #{tmp\ 1585}# - (apply (lambda (#{_\ 1586}# - #{e1\ 1587}#) - (#{parse\ 1562}# - (letrec ((#{f\ 1588}# - (lambda (#{forms\ 1589}#) - (if (null? #{forms\ 1589}#) - (cdr #{body\ 1563}#) - (cons (cons #{er\ 1572}# - (#{wrap\ 1325}# - (car #{forms\ 1589}#) - #{w\ 1576}# - #{mod\ 1578}#)) - (#{f\ 1588}# - (cdr #{forms\ 1589}#))))))) - (#{f\ 1588}# - #{e1\ 1587}#)) - #{ids\ 1564}# - #{labels\ 1565}# - #{var-ids\ 1566}# - #{vars\ 1567}# - #{vals\ 1568}# - #{bindings\ 1569}#)) - #{tmp\ 1585}#) + ((lambda (#{tmp\ 416}#) + ((lambda (#{tmp\ 417}#) + (if #{tmp\ 417}# + (apply (lambda (#{_\ 418}# + #{e1\ 419}#) + (#{parse\ 394}# + (letrec ((#{f\ 420}# (lambda (#{forms\ 421}#) + (if (null? #{forms\ 421}#) + (cdr #{body\ 395}#) + (cons (cons #{er\ 404}# + (#{wrap\ 157}# + (car #{forms\ 421}#) + #{w\ 408}# + #{mod\ 410}#)) + (#{f\ 420}# (cdr #{forms\ 421}#))))))) + (#{f\ 420}# #{e1\ 419}#)) + #{ids\ 396}# + #{labels\ 397}# + #{var-ids\ 398}# + #{vars\ 399}# + #{vals\ 400}# + #{bindings\ 401}#)) + #{tmp\ 417}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1584}#))) + #{tmp\ 416}#))) ($sc-dispatch - #{tmp\ 1584}# + #{tmp\ 416}# '(any . each-any)))) - #{e\ 1575}#) - (if (memv #{type\ 1573}# + #{e\ 407}#) + (if (memv #{type\ 405}# '(local-syntax-form)) - (#{chi-local-syntax\ 1339}# - #{value\ 1574}# - #{e\ 1575}# - #{er\ 1572}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}# - (lambda (#{forms\ 1591}# - #{er\ 1592}# - #{w\ 1593}# - #{s\ 1594}# - #{mod\ 1595}#) - (#{parse\ 1562}# - (letrec ((#{f\ 1596}# - (lambda (#{forms\ 1597}#) - (if (null? #{forms\ 1597}#) - (cdr #{body\ 1563}#) - (cons (cons #{er\ 1592}# - (#{wrap\ 1325}# - (car #{forms\ 1597}#) - #{w\ 1593}# - #{mod\ 1595}#)) - (#{f\ 1596}# - (cdr #{forms\ 1597}#))))))) - (#{f\ 1596}# - #{forms\ 1591}#)) - #{ids\ 1564}# - #{labels\ 1565}# - #{var-ids\ 1566}# - #{vars\ 1567}# - #{vals\ 1568}# - #{bindings\ 1569}#))) - (if (null? #{ids\ 1564}#) - (#{build-sequence\ 1276}# + (#{chi-local-syntax\ 171}# + #{value\ 406}# + #{e\ 407}# + #{er\ 404}# + #{w\ 408}# + #{s\ 409}# + #{mod\ 410}# + (lambda (#{forms\ 423}# + #{er\ 424}# + #{w\ 425}# + #{s\ 426}# + #{mod\ 427}#) + (#{parse\ 394}# + (letrec ((#{f\ 428}# (lambda (#{forms\ 429}#) + (if (null? #{forms\ 429}#) + (cdr #{body\ 395}#) + (cons (cons #{er\ 424}# + (#{wrap\ 157}# + (car #{forms\ 429}#) + #{w\ 425}# + #{mod\ 427}#)) + (#{f\ 428}# (cdr #{forms\ 429}#))))))) + (#{f\ 428}# #{forms\ 423}#)) + #{ids\ 396}# + #{labels\ 397}# + #{var-ids\ 398}# + #{vars\ 399}# + #{vals\ 400}# + #{bindings\ 401}#))) + (if (null? #{ids\ 396}#) + (#{build-sequence\ 108}# #f - (map (lambda (#{x\ 1598}#) - (#{chi\ 1333}# - (cdr #{x\ 1598}#) - (car #{x\ 1598}#) + (map (lambda (#{x\ 430}#) + (#{chi\ 165}# + (cdr #{x\ 430}#) + (car #{x\ 430}#) '(()) - #{mod\ 1578}#)) - (cons (cons #{er\ 1572}# - (#{source-wrap\ 1326}# - #{e\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#)) - (cdr #{body\ 1563}#)))) + #{mod\ 410}#)) + (cons (cons #{er\ 404}# + (#{source-wrap\ 158}# + #{e\ 407}# + #{w\ 408}# + #{s\ 409}# + #{mod\ 410}#)) + (cdr #{body\ 395}#)))) (begin - (if (not (#{valid-bound-ids?\ 1322}# - #{ids\ 1564}#)) + (if (not (#{valid-bound-ids?\ 154}# + #{ids\ 396}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1555}#)) - (letrec ((#{loop\ 1599}# - (lambda (#{bs\ 1600}# - #{er-cache\ 1601}# - #{r-cache\ 1602}#) - (if (not (null? #{bs\ 1600}#)) - (let ((#{b\ 1603}# - (car #{bs\ 1600}#))) - (if (eq? (car #{b\ 1603}#) + #{outer-form\ 387}#)) + (letrec ((#{loop\ 431}# + (lambda (#{bs\ 432}# + #{er-cache\ 433}# + #{r-cache\ 434}#) + (if (not (null? #{bs\ 432}#)) + (let ((#{b\ 435}# (car #{bs\ 432}#))) + (if (eq? (car #{b\ 435}#) 'macro) - (let ((#{er\ 1604}# - (cadr #{b\ 1603}#))) - (let ((#{r-cache\ 1605}# - (if (eq? #{er\ 1604}# - #{er-cache\ 1601}#) - #{r-cache\ 1602}# - (#{macros-only-env\ 1293}# - #{er\ 1604}#)))) + (let ((#{er\ 436}# + (cadr #{b\ 435}#))) + (let ((#{r-cache\ 437}# + (if (eq? #{er\ 436}# + #{er-cache\ 433}#) + #{r-cache\ 434}# + (#{macros-only-env\ 125}# + #{er\ 436}#)))) (begin (set-cdr! - #{b\ 1603}# - (#{eval-local-transformer\ 1340}# - (#{chi\ 1333}# - (cddr #{b\ 1603}#) - #{r-cache\ 1605}# + #{b\ 435}# + (#{eval-local-transformer\ 172}# + (#{chi\ 165}# + (cddr #{b\ 435}#) + #{r-cache\ 437}# '(()) - #{mod\ 1578}#) - #{mod\ 1578}#)) - (#{loop\ 1599}# - (cdr #{bs\ 1600}#) - #{er\ 1604}# - #{r-cache\ 1605}#)))) - (#{loop\ 1599}# - (cdr #{bs\ 1600}#) - #{er-cache\ 1601}# - #{r-cache\ 1602}#))))))) - (#{loop\ 1599}# - #{bindings\ 1569}# + #{mod\ 410}#) + #{mod\ 410}#)) + (#{loop\ 431}# + (cdr #{bs\ 432}#) + #{er\ 436}# + #{r-cache\ 437}#)))) + (#{loop\ 431}# + (cdr #{bs\ 432}#) + #{er-cache\ 433}# + #{r-cache\ 434}#))))))) + (#{loop\ 431}# + #{bindings\ 401}# #f #f)) (set-cdr! - #{r\ 1559}# - (#{extend-env\ 1291}# - #{labels\ 1565}# - #{bindings\ 1569}# - (cdr #{r\ 1559}#))) - (#{build-letrec\ 1279}# + #{r\ 391}# + (#{extend-env\ 123}# + #{labels\ 397}# + #{bindings\ 401}# + (cdr #{r\ 391}#))) + (#{build-letrec\ 111}# #f (map syntax->datum - #{var-ids\ 1566}#) - #{vars\ 1567}# - (map (lambda (#{x\ 1606}#) - (#{chi\ 1333}# - (cdr #{x\ 1606}#) - (car #{x\ 1606}#) + #{var-ids\ 398}#) + #{vars\ 399}# + (map (lambda (#{x\ 438}#) + (#{chi\ 165}# + (cdr #{x\ 438}#) + (car #{x\ 438}#) '(()) - #{mod\ 1578}#)) - #{vals\ 1568}#) - (#{build-sequence\ 1276}# + #{mod\ 410}#)) + #{vals\ 400}#) + (#{build-sequence\ 108}# #f - (map (lambda (#{x\ 1607}#) - (#{chi\ 1333}# - (cdr #{x\ 1607}#) - (car #{x\ 1607}#) + (map (lambda (#{x\ 439}#) + (#{chi\ 165}# + (cdr #{x\ 439}#) + (car #{x\ 439}#) '(()) - #{mod\ 1578}#)) - (cons (cons #{er\ 1572}# - (#{source-wrap\ 1326}# - #{e\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#)) - (cdr #{body\ 1563}#)))))))))))))))))) - (#{parse\ 1562}# - (map (lambda (#{x\ 1570}#) - (cons #{r\ 1559}# - (#{wrap\ 1325}# - #{x\ 1570}# - #{w\ 1561}# - #{mod\ 1558}#))) - #{body\ 1554}#) + #{mod\ 410}#)) + (cons (cons #{er\ 404}# + (#{source-wrap\ 158}# + #{e\ 407}# + #{w\ 408}# + #{s\ 409}# + #{mod\ 410}#)) + (cdr #{body\ 395}#)))))))))))))))))) + (#{parse\ 394}# + (map (lambda (#{x\ 402}#) + (cons #{r\ 391}# + (#{wrap\ 157}# + #{x\ 402}# + #{w\ 393}# + #{mod\ 390}#))) + #{body\ 386}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 1336}# - (lambda (#{p\ 1608}# - #{e\ 1609}# - #{r\ 1610}# - #{w\ 1611}# - #{rib\ 1612}# - #{mod\ 1613}#) - (letrec ((#{rebuild-macro-output\ 1614}# - (lambda (#{x\ 1615}# #{m\ 1616}#) - (if (pair? #{x\ 1615}#) - (cons (#{rebuild-macro-output\ 1614}# - (car #{x\ 1615}#) - #{m\ 1616}#) - (#{rebuild-macro-output\ 1614}# - (cdr #{x\ 1615}#) - #{m\ 1616}#)) - (if (#{syntax-object?\ 1281}# #{x\ 1615}#) - (let ((#{w\ 1617}# - (#{syntax-object-wrap\ 1283}# - #{x\ 1615}#))) - (let ((#{ms\ 1618}# - (#{wrap-marks\ 1300}# #{w\ 1617}#)) - (#{s\ 1619}# - (#{wrap-subst\ 1301}# #{w\ 1617}#))) - (if (if (pair? #{ms\ 1618}#) - (eq? (car #{ms\ 1618}#) #f) + (#{chi-macro\ 168}# + (lambda (#{p\ 440}# + #{e\ 441}# + #{r\ 442}# + #{w\ 443}# + #{rib\ 444}# + #{mod\ 445}#) + (letrec ((#{rebuild-macro-output\ 446}# + (lambda (#{x\ 447}# #{m\ 448}#) + (if (pair? #{x\ 447}#) + (cons (#{rebuild-macro-output\ 446}# + (car #{x\ 447}#) + #{m\ 448}#) + (#{rebuild-macro-output\ 446}# + (cdr #{x\ 447}#) + #{m\ 448}#)) + (if (#{syntax-object?\ 113}# #{x\ 447}#) + (let ((#{w\ 449}# (#{syntax-object-wrap\ 115}# + #{x\ 447}#))) + (let ((#{ms\ 450}# + (#{wrap-marks\ 132}# #{w\ 449}#)) + (#{s\ 451}# (#{wrap-subst\ 133}# + #{w\ 449}#))) + (if (if (pair? #{ms\ 450}#) + (eq? (car #{ms\ 450}#) #f) #f) - (#{make-syntax-object\ 1280}# - (#{syntax-object-expression\ 1282}# - #{x\ 1615}#) - (#{make-wrap\ 1299}# - (cdr #{ms\ 1618}#) - (if #{rib\ 1612}# - (cons #{rib\ 1612}# - (cdr #{s\ 1619}#)) - (cdr #{s\ 1619}#))) - (#{syntax-object-module\ 1284}# - #{x\ 1615}#)) - (#{make-syntax-object\ 1280}# - (#{syntax-object-expression\ 1282}# - #{x\ 1615}#) - (#{make-wrap\ 1299}# - (cons #{m\ 1616}# #{ms\ 1618}#) - (if #{rib\ 1612}# - (cons #{rib\ 1612}# + (#{make-syntax-object\ 112}# + (#{syntax-object-expression\ 114}# + #{x\ 447}#) + (#{make-wrap\ 131}# + (cdr #{ms\ 450}#) + (if #{rib\ 444}# + (cons #{rib\ 444}# + (cdr #{s\ 451}#)) + (cdr #{s\ 451}#))) + (#{syntax-object-module\ 116}# + #{x\ 447}#)) + (#{make-syntax-object\ 112}# + (#{syntax-object-expression\ 114}# + #{x\ 447}#) + (#{make-wrap\ 131}# + (cons #{m\ 448}# #{ms\ 450}#) + (if #{rib\ 444}# + (cons #{rib\ 444}# (cons 'shift - #{s\ 1619}#)) - (cons (quote shift) #{s\ 1619}#))) - (let ((#{pmod\ 1620}# - (procedure-module - #{p\ 1608}#))) - (if #{pmod\ 1620}# + #{s\ 451}#)) + (cons (quote shift) #{s\ 451}#))) + (let ((#{pmod\ 452}# + (procedure-module #{p\ 440}#))) + (if #{pmod\ 452}# (cons 'hygiene - (module-name #{pmod\ 1620}#)) + (module-name #{pmod\ 452}#)) '(hygiene guile))))))) - (if (vector? #{x\ 1615}#) - (let ((#{n\ 1621}# - (vector-length #{x\ 1615}#))) - (let ((#{v\ 1622}# - (make-vector #{n\ 1621}#))) - (letrec ((#{loop\ 1623}# - (lambda (#{i\ 1624}#) - (if (#{fx=\ 1256}# - #{i\ 1624}# - #{n\ 1621}#) + (if (vector? #{x\ 447}#) + (let ((#{n\ 453}# (vector-length + #{x\ 447}#))) + (let ((#{v\ 454}# (make-vector + #{n\ 453}#))) + (letrec ((#{loop\ 455}# + (lambda (#{i\ 456}#) + (if (#{fx=\ 88}# + #{i\ 456}# + #{n\ 453}#) (begin (if #f #f) - #{v\ 1622}#) + #{v\ 454}#) (begin (vector-set! - #{v\ 1622}# - #{i\ 1624}# - (#{rebuild-macro-output\ 1614}# + #{v\ 454}# + #{i\ 456}# + (#{rebuild-macro-output\ 446}# (vector-ref - #{x\ 1615}# - #{i\ 1624}#) - #{m\ 1616}#)) - (#{loop\ 1623}# - (#{fx+\ 1254}# - #{i\ 1624}# + #{x\ 447}# + #{i\ 456}#) + #{m\ 448}#)) + (#{loop\ 455}# + (#{fx+\ 86}# + #{i\ 456}# 1))))))) - (#{loop\ 1623}# 0)))) - (if (symbol? #{x\ 1615}#) + (#{loop\ 455}# 0)))) + (if (symbol? #{x\ 447}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 1326}# - #{e\ 1609}# - #{w\ 1611}# - s - #{mod\ 1613}#) - #{x\ 1615}#) - #{x\ 1615}#))))))) - (#{rebuild-macro-output\ 1614}# - (#{p\ 1608}# - (#{wrap\ 1325}# - #{e\ 1609}# - (#{anti-mark\ 1312}# #{w\ 1611}#) - #{mod\ 1613}#)) + (#{source-wrap\ 158}# + #{e\ 441}# + #{w\ 443}# + (#{wrap-subst\ 133}# #{w\ 443}#) + #{mod\ 445}#) + #{x\ 447}#) + #{x\ 447}#))))))) + (#{rebuild-macro-output\ 446}# + (#{p\ 440}# (#{wrap\ 157}# + #{e\ 441}# + (#{anti-mark\ 144}# #{w\ 443}#) + #{mod\ 445}#)) (string #\m))))) - (#{chi-application\ 1335}# - (lambda (#{x\ 1625}# - #{e\ 1626}# - #{r\ 1627}# - #{w\ 1628}# - #{s\ 1629}# - #{mod\ 1630}#) - ((lambda (#{tmp\ 1631}#) - ((lambda (#{tmp\ 1632}#) - (if #{tmp\ 1632}# - (apply (lambda (#{e0\ 1633}# #{e1\ 1634}#) - (#{build-application\ 1264}# - #{s\ 1629}# - #{x\ 1625}# - (map (lambda (#{e\ 1635}#) - (#{chi\ 1333}# - #{e\ 1635}# - #{r\ 1627}# - #{w\ 1628}# - #{mod\ 1630}#)) - #{e1\ 1634}#))) - #{tmp\ 1632}#) + (#{chi-application\ 167}# + (lambda (#{x\ 457}# + #{e\ 458}# + #{r\ 459}# + #{w\ 460}# + #{s\ 461}# + #{mod\ 462}#) + ((lambda (#{tmp\ 463}#) + ((lambda (#{tmp\ 464}#) + (if #{tmp\ 464}# + (apply (lambda (#{e0\ 465}# #{e1\ 466}#) + (#{build-application\ 96}# + #{s\ 461}# + #{x\ 457}# + (map (lambda (#{e\ 467}#) + (#{chi\ 165}# + #{e\ 467}# + #{r\ 459}# + #{w\ 460}# + #{mod\ 462}#)) + #{e1\ 466}#))) + #{tmp\ 464}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1631}#))) + #{tmp\ 463}#))) ($sc-dispatch - #{tmp\ 1631}# + #{tmp\ 463}# '(any . each-any)))) - #{e\ 1626}#))) - (#{chi-expr\ 1334}# - (lambda (#{type\ 1637}# - #{value\ 1638}# - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (lexical))) - (#{build-lexical-reference\ 1266}# + #{e\ 458}#))) + (#{chi-expr\ 166}# + (lambda (#{type\ 469}# + #{value\ 470}# + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (lexical))) + (#{build-lexical-reference\ 98}# 'value - #{s\ 1642}# - #{e\ 1639}# - #{value\ 1638}#) - (if (memv #{type\ 1637}# (quote (core core-form))) - (#{value\ 1638}# - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (module-ref))) + #{s\ 474}# + #{e\ 471}# + #{value\ 470}#) + (if (memv #{type\ 469}# (quote (core core-form))) + (#{value\ 470}# + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (module-ref))) (call-with-values - (lambda () (#{value\ 1638}# #{e\ 1639}#)) - (lambda (#{id\ 1644}# #{mod\ 1645}#) - (#{build-global-reference\ 1269}# - #{s\ 1642}# - #{id\ 1644}# - #{mod\ 1645}#))) - (if (memv #{type\ 1637}# (quote (lexical-call))) - (#{chi-application\ 1335}# - (#{build-lexical-reference\ 1266}# + (lambda () (#{value\ 470}# #{e\ 471}#)) + (lambda (#{id\ 476}# #{mod\ 477}#) + (#{build-global-reference\ 101}# + #{s\ 474}# + #{id\ 476}# + #{mod\ 477}#))) + (if (memv #{type\ 469}# (quote (lexical-call))) + (#{chi-application\ 167}# + (#{build-lexical-reference\ 98}# 'fun - (#{source-annotation\ 1288}# (car #{e\ 1639}#)) - (car #{e\ 1639}#) - #{value\ 1638}#) - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (global-call))) - (#{chi-application\ 1335}# - (#{build-global-reference\ 1269}# - (#{source-annotation\ 1288}# (car #{e\ 1639}#)) - (if (#{syntax-object?\ 1281}# #{value\ 1638}#) - (#{syntax-object-expression\ 1282}# - #{value\ 1638}#) - #{value\ 1638}#) - (if (#{syntax-object?\ 1281}# #{value\ 1638}#) - (#{syntax-object-module\ 1284}# #{value\ 1638}#) - #{mod\ 1643}#)) - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (constant))) - (#{build-data\ 1275}# - #{s\ 1642}# - (#{strip\ 1343}# - (#{source-wrap\ 1326}# - #{e\ 1639}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) + (#{source-annotation\ 120}# (car #{e\ 471}#)) + (car #{e\ 471}#) + #{value\ 470}#) + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (global-call))) + (#{chi-application\ 167}# + (#{build-global-reference\ 101}# + (#{source-annotation\ 120}# (car #{e\ 471}#)) + (if (#{syntax-object?\ 113}# #{value\ 470}#) + (#{syntax-object-expression\ 114}# + #{value\ 470}#) + #{value\ 470}#) + (if (#{syntax-object?\ 113}# #{value\ 470}#) + (#{syntax-object-module\ 116}# #{value\ 470}#) + #{mod\ 475}#)) + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (constant))) + (#{build-data\ 107}# + #{s\ 474}# + (#{strip\ 175}# + (#{source-wrap\ 158}# + #{e\ 471}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) '(()))) - (if (memv #{type\ 1637}# (quote (global))) - (#{build-global-reference\ 1269}# - #{s\ 1642}# - #{value\ 1638}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (call))) - (#{chi-application\ 1335}# - (#{chi\ 1333}# - (car #{e\ 1639}#) - #{r\ 1640}# - #{w\ 1641}# - #{mod\ 1643}#) - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (if (memv #{type\ 1637}# (quote (begin-form))) - ((lambda (#{tmp\ 1646}#) - ((lambda (#{tmp\ 1647}#) - (if #{tmp\ 1647}# - (apply (lambda (#{_\ 1648}# - #{e1\ 1649}# - #{e2\ 1650}#) - (#{chi-sequence\ 1327}# - (cons #{e1\ 1649}# - #{e2\ 1650}#) - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#)) - #{tmp\ 1647}#) + (if (memv #{type\ 469}# (quote (global))) + (#{build-global-reference\ 101}# + #{s\ 474}# + #{value\ 470}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (call))) + (#{chi-application\ 167}# + (#{chi\ 165}# + (car #{e\ 471}#) + #{r\ 472}# + #{w\ 473}# + #{mod\ 475}#) + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (if (memv #{type\ 469}# (quote (begin-form))) + ((lambda (#{tmp\ 478}#) + ((lambda (#{tmp\ 479}#) + (if #{tmp\ 479}# + (apply (lambda (#{_\ 480}# + #{e1\ 481}# + #{e2\ 482}#) + (#{chi-sequence\ 159}# + (cons #{e1\ 481}# + #{e2\ 482}#) + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#)) + #{tmp\ 479}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1646}#))) + #{tmp\ 478}#))) ($sc-dispatch - #{tmp\ 1646}# + #{tmp\ 478}# '(any any . each-any)))) - #{e\ 1639}#) - (if (memv #{type\ 1637}# + #{e\ 471}#) + (if (memv #{type\ 469}# '(local-syntax-form)) - (#{chi-local-syntax\ 1339}# - #{value\ 1638}# - #{e\ 1639}# - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}# - #{chi-sequence\ 1327}#) - (if (memv #{type\ 1637}# + (#{chi-local-syntax\ 171}# + #{value\ 470}# + #{e\ 471}# + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}# + #{chi-sequence\ 159}#) + (if (memv #{type\ 469}# '(eval-when-form)) - ((lambda (#{tmp\ 1652}#) - ((lambda (#{tmp\ 1653}#) - (if #{tmp\ 1653}# - (apply (lambda (#{_\ 1654}# - #{x\ 1655}# - #{e1\ 1656}# - #{e2\ 1657}#) - (let ((#{when-list\ 1658}# - (#{chi-when-list\ 1330}# - #{e\ 1639}# - #{x\ 1655}# - #{w\ 1641}#))) + ((lambda (#{tmp\ 484}#) + ((lambda (#{tmp\ 485}#) + (if #{tmp\ 485}# + (apply (lambda (#{_\ 486}# + #{x\ 487}# + #{e1\ 488}# + #{e2\ 489}#) + (let ((#{when-list\ 490}# + (#{chi-when-list\ 162}# + #{e\ 471}# + #{x\ 487}# + #{w\ 473}#))) (if (memq 'eval - #{when-list\ 1658}#) - (#{chi-sequence\ 1327}# - (cons #{e1\ 1656}# - #{e2\ 1657}#) - #{r\ 1640}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#) - (#{chi-void\ 1341}#)))) - #{tmp\ 1653}#) + #{when-list\ 490}#) + (#{chi-sequence\ 159}# + (cons #{e1\ 488}# + #{e2\ 489}#) + #{r\ 472}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#) + (#{chi-void\ 173}#)))) + #{tmp\ 485}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1652}#))) + #{tmp\ 484}#))) ($sc-dispatch - #{tmp\ 1652}# + #{tmp\ 484}# '(any each-any any . each-any)))) - #{e\ 1639}#) - (if (memv #{type\ 1637}# + #{e\ 471}#) + (if (memv #{type\ 469}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1639}# - (#{wrap\ 1325}# - #{value\ 1638}# - #{w\ 1641}# - #{mod\ 1643}#)) - (if (memv #{type\ 1637}# + #{e\ 471}# + (#{wrap\ 157}# + #{value\ 470}# + #{w\ 473}# + #{mod\ 475}#)) + (if (memv #{type\ 469}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 1326}# - #{e\ 1639}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#)) - (if (memv #{type\ 1637}# + (#{source-wrap\ 158}# + #{e\ 471}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#)) + (if (memv #{type\ 469}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 1326}# - #{e\ 1639}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#)) + (#{source-wrap\ 158}# + #{e\ 471}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 1326}# - #{e\ 1639}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#)))))))))))))))))) - (#{chi\ 1333}# - (lambda (#{e\ 1661}# - #{r\ 1662}# - #{w\ 1663}# - #{mod\ 1664}#) + (#{source-wrap\ 158}# + #{e\ 471}# + #{w\ 473}# + #{s\ 474}# + #{mod\ 475}#)))))))))))))))))) + (#{chi\ 165}# + (lambda (#{e\ 493}# #{r\ 494}# #{w\ 495}# #{mod\ 496}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1661}# - #{r\ 1662}# - #{w\ 1663}# - (#{source-annotation\ 1288}# #{e\ 1661}#) + (#{syntax-type\ 163}# + #{e\ 493}# + #{r\ 494}# + #{w\ 495}# + (#{source-annotation\ 120}# #{e\ 493}#) #f - #{mod\ 1664}# + #{mod\ 496}# #f)) - (lambda (#{type\ 1665}# - #{value\ 1666}# - #{e\ 1667}# - #{w\ 1668}# - #{s\ 1669}# - #{mod\ 1670}#) - (#{chi-expr\ 1334}# - #{type\ 1665}# - #{value\ 1666}# - #{e\ 1667}# - #{r\ 1662}# - #{w\ 1668}# - #{s\ 1669}# - #{mod\ 1670}#))))) - (#{chi-top\ 1332}# - (lambda (#{e\ 1671}# - #{r\ 1672}# - #{w\ 1673}# - #{m\ 1674}# - #{esew\ 1675}# - #{mod\ 1676}#) + (lambda (#{type\ 497}# + #{value\ 498}# + #{e\ 499}# + #{w\ 500}# + #{s\ 501}# + #{mod\ 502}#) + (#{chi-expr\ 166}# + #{type\ 497}# + #{value\ 498}# + #{e\ 499}# + #{r\ 494}# + #{w\ 500}# + #{s\ 501}# + #{mod\ 502}#))))) + (#{chi-top\ 164}# + (lambda (#{e\ 503}# + #{r\ 504}# + #{w\ 505}# + #{m\ 506}# + #{esew\ 507}# + #{mod\ 508}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1671}# - #{r\ 1672}# - #{w\ 1673}# - (#{source-annotation\ 1288}# #{e\ 1671}#) + (#{syntax-type\ 163}# + #{e\ 503}# + #{r\ 504}# + #{w\ 505}# + (#{source-annotation\ 120}# #{e\ 503}#) #f - #{mod\ 1676}# + #{mod\ 508}# #f)) - (lambda (#{type\ 1684}# - #{value\ 1685}# - #{e\ 1686}# - #{w\ 1687}# - #{s\ 1688}# - #{mod\ 1689}#) - (if (memv #{type\ 1684}# (quote (begin-form))) - ((lambda (#{tmp\ 1690}#) - ((lambda (#{tmp\ 1691}#) - (if #{tmp\ 1691}# - (apply (lambda (#{_\ 1692}#) (#{chi-void\ 1341}#)) - #{tmp\ 1691}#) - ((lambda (#{tmp\ 1693}#) - (if #{tmp\ 1693}# - (apply (lambda (#{_\ 1694}# - #{e1\ 1695}# - #{e2\ 1696}#) - (#{chi-top-sequence\ 1328}# - (cons #{e1\ 1695}# #{e2\ 1696}#) - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# - #{m\ 1674}# - #{esew\ 1675}# - #{mod\ 1689}#)) - #{tmp\ 1693}#) + (lambda (#{type\ 516}# + #{value\ 517}# + #{e\ 518}# + #{w\ 519}# + #{s\ 520}# + #{mod\ 521}#) + (if (memv #{type\ 516}# (quote (begin-form))) + ((lambda (#{tmp\ 522}#) + ((lambda (#{tmp\ 523}#) + (if #{tmp\ 523}# + (apply (lambda (#{_\ 524}#) (#{chi-void\ 173}#)) + #{tmp\ 523}#) + ((lambda (#{tmp\ 525}#) + (if #{tmp\ 525}# + (apply (lambda (#{_\ 526}# + #{e1\ 527}# + #{e2\ 528}#) + (#{chi-top-sequence\ 160}# + (cons #{e1\ 527}# #{e2\ 528}#) + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# + #{m\ 506}# + #{esew\ 507}# + #{mod\ 521}#)) + #{tmp\ 525}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1690}#))) + #{tmp\ 522}#))) ($sc-dispatch - #{tmp\ 1690}# + #{tmp\ 522}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1690}# (quote (any))))) - #{e\ 1686}#) - (if (memv #{type\ 1684}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 1339}# - #{value\ 1685}# - #{e\ 1686}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# - #{mod\ 1689}# - (lambda (#{body\ 1698}# - #{r\ 1699}# - #{w\ 1700}# - #{s\ 1701}# - #{mod\ 1702}#) - (#{chi-top-sequence\ 1328}# - #{body\ 1698}# - #{r\ 1699}# - #{w\ 1700}# - #{s\ 1701}# - #{m\ 1674}# - #{esew\ 1675}# - #{mod\ 1702}#))) - (if (memv #{type\ 1684}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1703}#) - ((lambda (#{tmp\ 1704}#) - (if #{tmp\ 1704}# - (apply (lambda (#{_\ 1705}# - #{x\ 1706}# - #{e1\ 1707}# - #{e2\ 1708}#) - (let ((#{when-list\ 1709}# - (#{chi-when-list\ 1330}# - #{e\ 1686}# - #{x\ 1706}# - #{w\ 1687}#)) - (#{body\ 1710}# - (cons #{e1\ 1707}# - #{e2\ 1708}#))) - (if (eq? #{m\ 1674}# (quote e)) + ($sc-dispatch #{tmp\ 522}# (quote (any))))) + #{e\ 518}#) + (if (memv #{type\ 516}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 171}# + #{value\ 517}# + #{e\ 518}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# + #{mod\ 521}# + (lambda (#{body\ 530}# + #{r\ 531}# + #{w\ 532}# + #{s\ 533}# + #{mod\ 534}#) + (#{chi-top-sequence\ 160}# + #{body\ 530}# + #{r\ 531}# + #{w\ 532}# + #{s\ 533}# + #{m\ 506}# + #{esew\ 507}# + #{mod\ 534}#))) + (if (memv #{type\ 516}# (quote (eval-when-form))) + ((lambda (#{tmp\ 535}#) + ((lambda (#{tmp\ 536}#) + (if #{tmp\ 536}# + (apply (lambda (#{_\ 537}# + #{x\ 538}# + #{e1\ 539}# + #{e2\ 540}#) + (let ((#{when-list\ 541}# + (#{chi-when-list\ 162}# + #{e\ 518}# + #{x\ 538}# + #{w\ 519}#)) + (#{body\ 542}# + (cons #{e1\ 539}# + #{e2\ 540}#))) + (if (eq? #{m\ 506}# (quote e)) (if (memq 'eval - #{when-list\ 1709}#) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + #{when-list\ 541}#) + (#{chi-top-sequence\ 160}# + #{body\ 542}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# 'e '(eval) - #{mod\ 1689}#) - (#{chi-void\ 1341}#)) + #{mod\ 521}#) + (#{chi-void\ 173}#)) (if (memq 'load - #{when-list\ 1709}#) - (if (let ((#{t\ 1713}# - (memq 'compile - #{when-list\ 1709}#))) - (if #{t\ 1713}# - #{t\ 1713}# - (if (eq? #{m\ 1674}# + #{when-list\ 541}#) + (if (let ((#{t\ 545}# (memq 'compile + #{when-list\ 541}#))) + (if #{t\ 545}# + #{t\ 545}# + (if (eq? #{m\ 506}# 'c&e) (memq 'eval - #{when-list\ 1709}#) + #{when-list\ 541}#) #f))) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{chi-top-sequence\ 160}# + #{body\ 542}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# 'c&e '(compile load) - #{mod\ 1689}#) - (if (memq #{m\ 1674}# + #{mod\ 521}#) + (if (memq #{m\ 506}# '(c c&e)) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{chi-top-sequence\ 160}# + #{body\ 542}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# 'c '(load) - #{mod\ 1689}#) - (#{chi-void\ 1341}#))) - (if (let ((#{t\ 1714}# - (memq 'compile - #{when-list\ 1709}#))) - (if #{t\ 1714}# - #{t\ 1714}# - (if (eq? #{m\ 1674}# + #{mod\ 521}#) + (#{chi-void\ 173}#))) + (if (let ((#{t\ 546}# (memq 'compile + #{when-list\ 541}#))) + (if #{t\ 546}# + #{t\ 546}# + (if (eq? #{m\ 506}# 'c&e) (memq 'eval - #{when-list\ 1709}#) + #{when-list\ 541}#) #f))) (begin - (#{top-level-eval-hook\ 1258}# - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{top-level-eval-hook\ 90}# + (#{chi-top-sequence\ 160}# + #{body\ 542}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# 'e '(eval) - #{mod\ 1689}#) - #{mod\ 1689}#) - (#{chi-void\ 1341}#)) - (#{chi-void\ 1341}#)))))) - #{tmp\ 1704}#) + #{mod\ 521}#) + #{mod\ 521}#) + (#{chi-void\ 173}#)) + (#{chi-void\ 173}#)))))) + #{tmp\ 536}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1703}#))) + #{tmp\ 535}#))) ($sc-dispatch - #{tmp\ 1703}# + #{tmp\ 535}# '(any each-any any . each-any)))) - #{e\ 1686}#) - (if (memv #{type\ 1684}# - '(define-syntax-form)) - (let ((#{n\ 1715}# - (#{id-var-name\ 1319}# - #{value\ 1685}# - #{w\ 1687}#)) - (#{r\ 1716}# - (#{macros-only-env\ 1293}# #{r\ 1672}#))) - (if (memv #{m\ 1674}# (quote (c))) - (if (memq (quote compile) #{esew\ 1675}#) - (let ((#{e\ 1717}# - (#{chi-install-global\ 1329}# - #{n\ 1715}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1716}# - #{w\ 1687}# - #{mod\ 1689}#)))) + #{e\ 518}#) + (if (memv #{type\ 516}# (quote (define-syntax-form))) + (let ((#{n\ 547}# (#{id-var-name\ 151}# + #{value\ 517}# + #{w\ 519}#)) + (#{r\ 548}# (#{macros-only-env\ 125}# + #{r\ 504}#))) + (if (memv #{m\ 506}# (quote (c))) + (if (memq (quote compile) #{esew\ 507}#) + (let ((#{e\ 549}# (#{chi-install-global\ 161}# + #{n\ 547}# + (#{chi\ 165}# + #{e\ 518}# + #{r\ 548}# + #{w\ 519}# + #{mod\ 521}#)))) (begin - (#{top-level-eval-hook\ 1258}# - #{e\ 1717}# - #{mod\ 1689}#) - (if (memq (quote load) #{esew\ 1675}#) - #{e\ 1717}# - (#{chi-void\ 1341}#)))) - (if (memq (quote load) #{esew\ 1675}#) - (#{chi-install-global\ 1329}# - #{n\ 1715}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1716}# - #{w\ 1687}# - #{mod\ 1689}#)) - (#{chi-void\ 1341}#))) - (if (memv #{m\ 1674}# (quote (c&e))) - (let ((#{e\ 1718}# - (#{chi-install-global\ 1329}# - #{n\ 1715}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1716}# - #{w\ 1687}# - #{mod\ 1689}#)))) + (#{top-level-eval-hook\ 90}# + #{e\ 549}# + #{mod\ 521}#) + (if (memq (quote load) #{esew\ 507}#) + #{e\ 549}# + (#{chi-void\ 173}#)))) + (if (memq (quote load) #{esew\ 507}#) + (#{chi-install-global\ 161}# + #{n\ 547}# + (#{chi\ 165}# + #{e\ 518}# + #{r\ 548}# + #{w\ 519}# + #{mod\ 521}#)) + (#{chi-void\ 173}#))) + (if (memv #{m\ 506}# (quote (c&e))) + (let ((#{e\ 550}# (#{chi-install-global\ 161}# + #{n\ 547}# + (#{chi\ 165}# + #{e\ 518}# + #{r\ 548}# + #{w\ 519}# + #{mod\ 521}#)))) (begin - (#{top-level-eval-hook\ 1258}# - #{e\ 1718}# - #{mod\ 1689}#) - #{e\ 1718}#)) + (#{top-level-eval-hook\ 90}# + #{e\ 550}# + #{mod\ 521}#) + #{e\ 550}#)) (begin - (if (memq (quote eval) #{esew\ 1675}#) - (#{top-level-eval-hook\ 1258}# - (#{chi-install-global\ 1329}# - #{n\ 1715}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1716}# - #{w\ 1687}# - #{mod\ 1689}#)) - #{mod\ 1689}#)) - (#{chi-void\ 1341}#))))) - (if (memv #{type\ 1684}# (quote (define-form))) - (let ((#{n\ 1719}# - (#{id-var-name\ 1319}# - #{value\ 1685}# - #{w\ 1687}#))) - (let ((#{type\ 1720}# - (#{binding-type\ 1289}# - (#{lookup\ 1294}# - #{n\ 1719}# - #{r\ 1672}# - #{mod\ 1689}#)))) - (if (memv #{type\ 1720}# + (if (memq (quote eval) #{esew\ 507}#) + (#{top-level-eval-hook\ 90}# + (#{chi-install-global\ 161}# + #{n\ 547}# + (#{chi\ 165}# + #{e\ 518}# + #{r\ 548}# + #{w\ 519}# + #{mod\ 521}#)) + #{mod\ 521}#)) + (#{chi-void\ 173}#))))) + (if (memv #{type\ 516}# (quote (define-form))) + (let ((#{n\ 551}# (#{id-var-name\ 151}# + #{value\ 517}# + #{w\ 519}#))) + (let ((#{type\ 552}# + (#{binding-type\ 121}# + (#{lookup\ 126}# + #{n\ 551}# + #{r\ 504}# + #{mod\ 521}#)))) + (if (memv #{type\ 552}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 1719}#)) + #{n\ 551}#)) (current-module) #f) - (let ((#{old\ 1721}# + (let ((#{old\ 553}# (module-variable (current-module) - #{n\ 1719}#))) + #{n\ 551}#))) (module-define! (current-module) - #{n\ 1719}# - (if (variable? #{old\ 1721}#) - (variable-ref #{old\ 1721}#) + #{n\ 551}# + (if (variable? #{old\ 553}#) + (variable-ref #{old\ 553}#) #f)))) - (let ((#{x\ 1722}# - (#{build-global-definition\ 1272}# - #{s\ 1688}# - #{n\ 1719}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1672}# - #{w\ 1687}# - #{mod\ 1689}#)))) + (let ((#{x\ 554}# (#{build-global-definition\ 104}# + #{s\ 520}# + #{n\ 551}# + (#{chi\ 165}# + #{e\ 518}# + #{r\ 504}# + #{w\ 519}# + #{mod\ 521}#)))) (begin - (if (eq? #{m\ 1674}# (quote c&e)) - (#{top-level-eval-hook\ 1258}# - #{x\ 1722}# - #{mod\ 1689}#)) - #{x\ 1722}#))) - (if (memv #{type\ 1720}# + (if (eq? #{m\ 506}# (quote c&e)) + (#{top-level-eval-hook\ 90}# + #{x\ 554}# + #{mod\ 521}#)) + #{x\ 554}#))) + (if (memv #{type\ 552}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1686}# - (#{wrap\ 1325}# - #{value\ 1685}# - #{w\ 1687}# - #{mod\ 1689}#)) + #{e\ 518}# + (#{wrap\ 157}# + #{value\ 517}# + #{w\ 519}# + #{mod\ 521}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1686}# - (#{wrap\ 1325}# - #{value\ 1685}# - #{w\ 1687}# - #{mod\ 1689}#)))))) - (let ((#{x\ 1723}# - (#{chi-expr\ 1334}# - #{type\ 1684}# - #{value\ 1685}# - #{e\ 1686}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# - #{mod\ 1689}#))) + #{e\ 518}# + (#{wrap\ 157}# + #{value\ 517}# + #{w\ 519}# + #{mod\ 521}#)))))) + (let ((#{x\ 555}# (#{chi-expr\ 166}# + #{type\ 516}# + #{value\ 517}# + #{e\ 518}# + #{r\ 504}# + #{w\ 519}# + #{s\ 520}# + #{mod\ 521}#))) (begin - (if (eq? #{m\ 1674}# (quote c&e)) - (#{top-level-eval-hook\ 1258}# - #{x\ 1723}# - #{mod\ 1689}#)) - #{x\ 1723}#))))))))))) - (#{syntax-type\ 1331}# - (lambda (#{e\ 1724}# - #{r\ 1725}# - #{w\ 1726}# - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# - #{for-car?\ 1730}#) - (if (symbol? #{e\ 1724}#) - (let ((#{n\ 1731}# - (#{id-var-name\ 1319}# #{e\ 1724}# #{w\ 1726}#))) - (let ((#{b\ 1732}# - (#{lookup\ 1294}# - #{n\ 1731}# - #{r\ 1725}# - #{mod\ 1729}#))) - (let ((#{type\ 1733}# - (#{binding-type\ 1289}# #{b\ 1732}#))) - (if (memv #{type\ 1733}# (quote (lexical))) + (if (eq? #{m\ 506}# (quote c&e)) + (#{top-level-eval-hook\ 90}# + #{x\ 555}# + #{mod\ 521}#)) + #{x\ 555}#))))))))))) + (#{syntax-type\ 163}# + (lambda (#{e\ 556}# + #{r\ 557}# + #{w\ 558}# + #{s\ 559}# + #{rib\ 560}# + #{mod\ 561}# + #{for-car?\ 562}#) + (if (symbol? #{e\ 556}#) + (let ((#{n\ 563}# (#{id-var-name\ 151}# + #{e\ 556}# + #{w\ 558}#))) + (let ((#{b\ 564}# (#{lookup\ 126}# + #{n\ 563}# + #{r\ 557}# + #{mod\ 561}#))) + (let ((#{type\ 565}# + (#{binding-type\ 121}# #{b\ 564}#))) + (if (memv #{type\ 565}# (quote (lexical))) (values - #{type\ 1733}# - (#{binding-value\ 1290}# #{b\ 1732}#) - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{type\ 1733}# (quote (global))) + #{type\ 565}# + (#{binding-value\ 122}# #{b\ 564}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{type\ 565}# (quote (global))) (values - #{type\ 1733}# - #{n\ 1731}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{type\ 1733}# (quote (macro))) - (if #{for-car?\ 1730}# + #{type\ 565}# + #{n\ 563}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{type\ 565}# (quote (macro))) + (if #{for-car?\ 562}# (values - #{type\ 1733}# - (#{binding-value\ 1290}# #{b\ 1732}#) - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (#{syntax-type\ 1331}# - (#{chi-macro\ 1336}# - (#{binding-value\ 1290}# #{b\ 1732}#) - #{e\ 1724}# - #{r\ 1725}# - #{w\ 1726}# - #{rib\ 1728}# - #{mod\ 1729}#) - #{r\ 1725}# + #{type\ 565}# + (#{binding-value\ 122}# #{b\ 564}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (#{syntax-type\ 163}# + (#{chi-macro\ 168}# + (#{binding-value\ 122}# #{b\ 564}#) + #{e\ 556}# + #{r\ 557}# + #{w\ 558}# + #{rib\ 560}# + #{mod\ 561}#) + #{r\ 557}# '(()) - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# + #{s\ 559}# + #{rib\ 560}# + #{mod\ 561}# #f)) (values - #{type\ 1733}# - (#{binding-value\ 1290}# #{b\ 1732}#) - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#))))))) - (if (pair? #{e\ 1724}#) - (let ((#{first\ 1734}# (car #{e\ 1724}#))) + #{type\ 565}# + (#{binding-value\ 122}# #{b\ 564}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#))))))) + (if (pair? #{e\ 556}#) + (let ((#{first\ 566}# (car #{e\ 556}#))) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{first\ 1734}# - #{r\ 1725}# - #{w\ 1726}# - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# + (#{syntax-type\ 163}# + #{first\ 566}# + #{r\ 557}# + #{w\ 558}# + #{s\ 559}# + #{rib\ 560}# + #{mod\ 561}# #t)) - (lambda (#{ftype\ 1735}# - #{fval\ 1736}# - #{fe\ 1737}# - #{fw\ 1738}# - #{fs\ 1739}# - #{fmod\ 1740}#) - (if (memv #{ftype\ 1735}# (quote (lexical))) + (lambda (#{ftype\ 567}# + #{fval\ 568}# + #{fe\ 569}# + #{fw\ 570}# + #{fs\ 571}# + #{fmod\ 572}#) + (if (memv #{ftype\ 567}# (quote (lexical))) (values 'lexical-call - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# (quote (global))) + #{fval\ 568}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 1280}# - #{fval\ 1736}# - #{w\ 1726}# - #{fmod\ 1740}#) - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# (quote (macro))) - (#{syntax-type\ 1331}# - (#{chi-macro\ 1336}# - #{fval\ 1736}# - #{e\ 1724}# - #{r\ 1725}# - #{w\ 1726}# - #{rib\ 1728}# - #{mod\ 1729}#) - #{r\ 1725}# + (#{make-syntax-object\ 112}# + #{fval\ 568}# + #{w\ 558}# + #{fmod\ 572}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# (quote (macro))) + (#{syntax-type\ 163}# + (#{chi-macro\ 168}# + #{fval\ 568}# + #{e\ 556}# + #{r\ 557}# + #{w\ 558}# + #{rib\ 560}# + #{mod\ 561}#) + #{r\ 557}# '(()) - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# - #{for-car?\ 1730}#) - (if (memv #{ftype\ 1735}# (quote (module-ref))) + #{s\ 559}# + #{rib\ 560}# + #{mod\ 561}# + #{for-car?\ 562}#) + (if (memv #{ftype\ 567}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 1736}# #{e\ 1724}#)) - (lambda (#{sym\ 1741}# #{mod\ 1742}#) - (#{syntax-type\ 1331}# - #{sym\ 1741}# - #{r\ 1725}# - #{w\ 1726}# - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1742}# - #{for-car?\ 1730}#))) - (if (memv #{ftype\ 1735}# (quote (core))) + (lambda () (#{fval\ 568}# #{e\ 556}#)) + (lambda (#{sym\ 573}# #{mod\ 574}#) + (#{syntax-type\ 163}# + #{sym\ 573}# + #{r\ 557}# + #{w\ 558}# + #{s\ 559}# + #{rib\ 560}# + #{mod\ 574}# + #{for-car?\ 562}#))) + (if (memv #{ftype\ 567}# (quote (core))) (values 'core-form - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{fval\ 568}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# (quote (begin))) + #{fval\ 568}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# (quote (begin))) (values 'begin-form #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) + (if (memv #{ftype\ 567}# '(define)) - ((lambda (#{tmp\ 1743}#) - ((lambda (#{tmp\ 1744}#) - (if (if #{tmp\ 1744}# - (apply (lambda (#{_\ 1745}# - #{name\ 1746}# - #{val\ 1747}#) - (#{id?\ 1297}# - #{name\ 1746}#)) - #{tmp\ 1744}#) + ((lambda (#{tmp\ 575}#) + ((lambda (#{tmp\ 576}#) + (if (if #{tmp\ 576}# + (apply (lambda (#{_\ 577}# + #{name\ 578}# + #{val\ 579}#) + (#{id?\ 129}# + #{name\ 578}#)) + #{tmp\ 576}#) #f) - (apply (lambda (#{_\ 1748}# - #{name\ 1749}# - #{val\ 1750}#) + (apply (lambda (#{_\ 580}# + #{name\ 581}# + #{val\ 582}#) (values 'define-form - #{name\ 1749}# - #{val\ 1750}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1744}#) - ((lambda (#{tmp\ 1751}#) - (if (if #{tmp\ 1751}# - (apply (lambda (#{_\ 1752}# - #{name\ 1753}# - #{args\ 1754}# - #{e1\ 1755}# - #{e2\ 1756}#) - (if (#{id?\ 1297}# - #{name\ 1753}#) - (#{valid-bound-ids?\ 1322}# - (#{lambda-var-list\ 1345}# - #{args\ 1754}#)) + #{name\ 581}# + #{val\ 582}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#)) + #{tmp\ 576}#) + ((lambda (#{tmp\ 583}#) + (if (if #{tmp\ 583}# + (apply (lambda (#{_\ 584}# + #{name\ 585}# + #{args\ 586}# + #{e1\ 587}# + #{e2\ 588}#) + (if (#{id?\ 129}# + #{name\ 585}#) + (#{valid-bound-ids?\ 154}# + (#{lambda-var-list\ 177}# + #{args\ 586}#)) #f)) - #{tmp\ 1751}#) + #{tmp\ 583}#) #f) - (apply (lambda (#{_\ 1757}# - #{name\ 1758}# - #{args\ 1759}# - #{e1\ 1760}# - #{e2\ 1761}#) + (apply (lambda (#{_\ 589}# + #{name\ 590}# + #{args\ 591}# + #{e1\ 592}# + #{e2\ 593}#) (values 'define-form - (#{wrap\ 1325}# - #{name\ 1758}# - #{w\ 1726}# - #{mod\ 1729}#) - (#{decorate-source\ 1262}# + (#{wrap\ 157}# + #{name\ 590}# + #{w\ 558}# + #{mod\ 561}#) + (#{decorate-source\ 94}# (cons '#(syntax-object lambda ((top) @@ -2295,33 +2267,33 @@ "i"))) (hygiene guile)) - (#{wrap\ 1325}# - (cons #{args\ 1759}# - (cons #{e1\ 1760}# - #{e2\ 1761}#)) - #{w\ 1726}# - #{mod\ 1729}#)) - #{s\ 1727}#) + (#{wrap\ 157}# + (cons #{args\ 591}# + (cons #{e1\ 592}# + #{e2\ 593}#)) + #{w\ 558}# + #{mod\ 561}#)) + #{s\ 559}#) '(()) - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1751}#) - ((lambda (#{tmp\ 1763}#) - (if (if #{tmp\ 1763}# - (apply (lambda (#{_\ 1764}# - #{name\ 1765}#) - (#{id?\ 1297}# - #{name\ 1765}#)) - #{tmp\ 1763}#) + #{s\ 559}# + #{mod\ 561}#)) + #{tmp\ 583}#) + ((lambda (#{tmp\ 595}#) + (if (if #{tmp\ 595}# + (apply (lambda (#{_\ 596}# + #{name\ 597}#) + (#{id?\ 129}# + #{name\ 597}#)) + #{tmp\ 595}#) #f) - (apply (lambda (#{_\ 1766}# - #{name\ 1767}#) + (apply (lambda (#{_\ 598}# + #{name\ 599}#) (values 'define-form - (#{wrap\ 1325}# - #{name\ 1767}# - #{w\ 1726}# - #{mod\ 1729}#) + (#{wrap\ 157}# + #{name\ 599}# + #{w\ 558}# + #{mod\ 561}#) '(#(syntax-object if ((top) @@ -3598,3179 +3570,3230 @@ (hygiene guile))) '(()) - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1763}#) + #{s\ 559}# + #{mod\ 561}#)) + #{tmp\ 595}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1743}#))) + #{tmp\ 575}#))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 575}# '(any any))))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 575}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 575}# '(any any any)))) - #{e\ 1724}#) - (if (memv #{ftype\ 1735}# + #{e\ 556}#) + (if (memv #{ftype\ 567}# '(define-syntax)) - ((lambda (#{tmp\ 1768}#) - ((lambda (#{tmp\ 1769}#) - (if (if #{tmp\ 1769}# - (apply (lambda (#{_\ 1770}# - #{name\ 1771}# - #{val\ 1772}#) - (#{id?\ 1297}# - #{name\ 1771}#)) - #{tmp\ 1769}#) + ((lambda (#{tmp\ 600}#) + ((lambda (#{tmp\ 601}#) + (if (if #{tmp\ 601}# + (apply (lambda (#{_\ 602}# + #{name\ 603}# + #{val\ 604}#) + (#{id?\ 129}# + #{name\ 603}#)) + #{tmp\ 601}#) #f) - (apply (lambda (#{_\ 1773}# - #{name\ 1774}# - #{val\ 1775}#) + (apply (lambda (#{_\ 605}# + #{name\ 606}# + #{val\ 607}#) (values 'define-syntax-form - #{name\ 1774}# - #{val\ 1775}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1769}#) + #{name\ 606}# + #{val\ 607}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#)) + #{tmp\ 601}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1768}#))) + #{tmp\ 600}#))) ($sc-dispatch - #{tmp\ 1768}# + #{tmp\ 600}# '(any any any)))) - #{e\ 1724}#) + #{e\ 556}#) (values 'call #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#)))))))))))))) - (if (#{syntax-object?\ 1281}# #{e\ 1724}#) - (#{syntax-type\ 1331}# - (#{syntax-object-expression\ 1282}# #{e\ 1724}#) - #{r\ 1725}# - (#{join-wraps\ 1316}# - #{w\ 1726}# - (#{syntax-object-wrap\ 1283}# #{e\ 1724}#)) - #{s\ 1727}# - #{rib\ 1728}# - (let ((#{t\ 1776}# - (#{syntax-object-module\ 1284}# #{e\ 1724}#))) - (if #{t\ 1776}# #{t\ 1776}# #{mod\ 1729}#)) - #{for-car?\ 1730}#) - (if (self-evaluating? #{e\ 1724}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#)))))))))))))) + (if (#{syntax-object?\ 113}# #{e\ 556}#) + (#{syntax-type\ 163}# + (#{syntax-object-expression\ 114}# #{e\ 556}#) + #{r\ 557}# + (#{join-wraps\ 148}# + #{w\ 558}# + (#{syntax-object-wrap\ 115}# #{e\ 556}#)) + #{s\ 559}# + #{rib\ 560}# + (let ((#{t\ 608}# (#{syntax-object-module\ 116}# + #{e\ 556}#))) + (if #{t\ 608}# #{t\ 608}# #{mod\ 561}#)) + #{for-car?\ 562}#) + (if (self-evaluating? #{e\ 556}#) (values 'constant #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#) (values 'other #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#))))))) - (#{chi-when-list\ 1330}# - (lambda (#{e\ 1777}# #{when-list\ 1778}# #{w\ 1779}#) - (letrec ((#{f\ 1780}# - (lambda (#{when-list\ 1781}# #{situations\ 1782}#) - (if (null? #{when-list\ 1781}#) - #{situations\ 1782}# - (#{f\ 1780}# - (cdr #{when-list\ 1781}#) - (cons (let ((#{x\ 1783}# - (car #{when-list\ 1781}#))) - (if (#{free-id=?\ 1320}# - #{x\ 1783}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-lambda-clause - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'compile - (if (#{free-id=?\ 1320}# - #{x\ 1783}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-lambda-clause - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure - and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'load - (if (#{free-id=?\ 1320}# - #{x\ 1783}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-lambda-clause - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure - and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'eval - (syntax-violation - 'eval-when - "invalid situation" - #{e\ 1777}# - (#{wrap\ 1325}# - #{x\ 1783}# - #{w\ 1779}# - #f)))))) - #{situations\ 1782}#)))))) - (#{f\ 1780}# #{when-list\ 1778}# (quote ()))))) - (#{chi-install-global\ 1329}# - (lambda (#{name\ 1784}# #{e\ 1785}#) - (#{build-global-definition\ 1272}# + #{e\ 556}# + #{w\ 558}# + #{s\ 559}# + #{mod\ 561}#))))))) + (#{chi-when-list\ 162}# + (lambda (#{e\ 609}# #{when-list\ 610}# #{w\ 611}#) + (letrec ((#{f\ 612}# (lambda (#{when-list\ 613}# + #{situations\ 614}#) + (if (null? #{when-list\ 613}#) + #{situations\ 614}# + (#{f\ 612}# (cdr #{when-list\ 613}#) + (cons (let ((#{x\ 615}# (car #{when-list\ 613}#))) + (if (#{free-id=?\ 152}# + #{x\ 615}# + '#(syntax-object + compile + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-lambda-clause + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'compile + (if (#{free-id=?\ 152}# + #{x\ 615}# + '#(syntax-object + load + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-lambda-clause + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'load + (if (#{free-id=?\ 152}# + #{x\ 615}# + '#(syntax-object + eval + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-lambda-clause + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'eval + (syntax-violation + 'eval-when + "invalid situation" + #{e\ 609}# + (#{wrap\ 157}# + #{x\ 615}# + #{w\ 611}# + #f)))))) + #{situations\ 614}#)))))) + (#{f\ 612}# #{when-list\ 610}# (quote ()))))) + (#{chi-install-global\ 161}# + (lambda (#{name\ 616}# #{e\ 617}#) + (#{build-global-definition\ 104}# #f - #{name\ 1784}# - (if (let ((#{v\ 1786}# - (module-variable - (current-module) - #{name\ 1784}#))) - (if #{v\ 1786}# - (if (variable-bound? #{v\ 1786}#) - (if (macro? (variable-ref #{v\ 1786}#)) - (not (eq? (macro-type (variable-ref #{v\ 1786}#)) + #{name\ 616}# + (if (let ((#{v\ 618}# (module-variable + (current-module) + #{name\ 616}#))) + (if #{v\ 618}# + (if (variable-bound? #{v\ 618}#) + (if (macro? (variable-ref #{v\ 618}#)) + (not (eq? (macro-type (variable-ref #{v\ 618}#)) 'syncase-macro)) #f) #f) #f)) - (#{build-application\ 1264}# + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f 'make-extended-syncase-macro) - (list (#{build-application\ 1264}# + (list (#{build-application\ 96}# #f - (#{build-primref\ 1274}# #f (quote module-ref)) - (list (#{build-application\ 1264}# + (#{build-primref\ 106}# #f (quote module-ref)) + (list (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f 'current-module) '()) - (#{build-data\ 1275}# #f #{name\ 1784}#))) - (#{build-data\ 1275}# #f (quote macro)) - #{e\ 1785}#)) - (#{build-application\ 1264}# + (#{build-data\ 107}# #f #{name\ 616}#))) + (#{build-data\ 107}# #f (quote macro)) + #{e\ 617}#)) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f 'make-syncase-macro) - (list (#{build-data\ 1275}# #f (quote macro)) - #{e\ 1785}#)))))) - (#{chi-top-sequence\ 1328}# - (lambda (#{body\ 1787}# - #{r\ 1788}# - #{w\ 1789}# - #{s\ 1790}# - #{m\ 1791}# - #{esew\ 1792}# - #{mod\ 1793}#) - (#{build-sequence\ 1276}# - #{s\ 1790}# - (letrec ((#{dobody\ 1794}# - (lambda (#{body\ 1795}# - #{r\ 1796}# - #{w\ 1797}# - #{m\ 1798}# - #{esew\ 1799}# - #{mod\ 1800}#) - (if (null? #{body\ 1795}#) + (list (#{build-data\ 107}# #f (quote macro)) + #{e\ 617}#)))))) + (#{chi-top-sequence\ 160}# + (lambda (#{body\ 619}# + #{r\ 620}# + #{w\ 621}# + #{s\ 622}# + #{m\ 623}# + #{esew\ 624}# + #{mod\ 625}#) + (#{build-sequence\ 108}# + #{s\ 622}# + (letrec ((#{dobody\ 626}# + (lambda (#{body\ 627}# + #{r\ 628}# + #{w\ 629}# + #{m\ 630}# + #{esew\ 631}# + #{mod\ 632}#) + (if (null? #{body\ 627}#) '() - (let ((#{first\ 1801}# - (#{chi-top\ 1332}# - (car #{body\ 1795}#) - #{r\ 1796}# - #{w\ 1797}# - #{m\ 1798}# - #{esew\ 1799}# - #{mod\ 1800}#))) - (cons #{first\ 1801}# - (#{dobody\ 1794}# - (cdr #{body\ 1795}#) - #{r\ 1796}# - #{w\ 1797}# - #{m\ 1798}# - #{esew\ 1799}# - #{mod\ 1800}#))))))) - (#{dobody\ 1794}# - #{body\ 1787}# - #{r\ 1788}# - #{w\ 1789}# - #{m\ 1791}# - #{esew\ 1792}# - #{mod\ 1793}#))))) - (#{chi-sequence\ 1327}# - (lambda (#{body\ 1802}# - #{r\ 1803}# - #{w\ 1804}# - #{s\ 1805}# - #{mod\ 1806}#) - (#{build-sequence\ 1276}# - #{s\ 1805}# - (letrec ((#{dobody\ 1807}# - (lambda (#{body\ 1808}# - #{r\ 1809}# - #{w\ 1810}# - #{mod\ 1811}#) - (if (null? #{body\ 1808}#) + (let ((#{first\ 633}# + (#{chi-top\ 164}# + (car #{body\ 627}#) + #{r\ 628}# + #{w\ 629}# + #{m\ 630}# + #{esew\ 631}# + #{mod\ 632}#))) + (cons #{first\ 633}# + (#{dobody\ 626}# + (cdr #{body\ 627}#) + #{r\ 628}# + #{w\ 629}# + #{m\ 630}# + #{esew\ 631}# + #{mod\ 632}#))))))) + (#{dobody\ 626}# + #{body\ 619}# + #{r\ 620}# + #{w\ 621}# + #{m\ 623}# + #{esew\ 624}# + #{mod\ 625}#))))) + (#{chi-sequence\ 159}# + (lambda (#{body\ 634}# + #{r\ 635}# + #{w\ 636}# + #{s\ 637}# + #{mod\ 638}#) + (#{build-sequence\ 108}# + #{s\ 637}# + (letrec ((#{dobody\ 639}# + (lambda (#{body\ 640}# + #{r\ 641}# + #{w\ 642}# + #{mod\ 643}#) + (if (null? #{body\ 640}#) '() - (let ((#{first\ 1812}# - (#{chi\ 1333}# - (car #{body\ 1808}#) - #{r\ 1809}# - #{w\ 1810}# - #{mod\ 1811}#))) - (cons #{first\ 1812}# - (#{dobody\ 1807}# - (cdr #{body\ 1808}#) - #{r\ 1809}# - #{w\ 1810}# - #{mod\ 1811}#))))))) - (#{dobody\ 1807}# - #{body\ 1802}# - #{r\ 1803}# - #{w\ 1804}# - #{mod\ 1806}#))))) - (#{source-wrap\ 1326}# - (lambda (#{x\ 1813}# - #{w\ 1814}# - #{s\ 1815}# - #{defmod\ 1816}#) - (#{wrap\ 1325}# - (#{decorate-source\ 1262}# - #{x\ 1813}# - #{s\ 1815}#) - #{w\ 1814}# - #{defmod\ 1816}#))) - (#{wrap\ 1325}# - (lambda (#{x\ 1817}# #{w\ 1818}# #{defmod\ 1819}#) - (if (if (null? (#{wrap-marks\ 1300}# #{w\ 1818}#)) - (null? (#{wrap-subst\ 1301}# #{w\ 1818}#)) + (let ((#{first\ 644}# + (#{chi\ 165}# + (car #{body\ 640}#) + #{r\ 641}# + #{w\ 642}# + #{mod\ 643}#))) + (cons #{first\ 644}# + (#{dobody\ 639}# + (cdr #{body\ 640}#) + #{r\ 641}# + #{w\ 642}# + #{mod\ 643}#))))))) + (#{dobody\ 639}# + #{body\ 634}# + #{r\ 635}# + #{w\ 636}# + #{mod\ 638}#))))) + (#{source-wrap\ 158}# + (lambda (#{x\ 645}# + #{w\ 646}# + #{s\ 647}# + #{defmod\ 648}#) + (#{wrap\ 157}# + (#{decorate-source\ 94}# #{x\ 645}# #{s\ 647}#) + #{w\ 646}# + #{defmod\ 648}#))) + (#{wrap\ 157}# + (lambda (#{x\ 649}# #{w\ 650}# #{defmod\ 651}#) + (if (if (null? (#{wrap-marks\ 132}# #{w\ 650}#)) + (null? (#{wrap-subst\ 133}# #{w\ 650}#)) #f) - #{x\ 1817}# - (if (#{syntax-object?\ 1281}# #{x\ 1817}#) - (#{make-syntax-object\ 1280}# - (#{syntax-object-expression\ 1282}# #{x\ 1817}#) - (#{join-wraps\ 1316}# - #{w\ 1818}# - (#{syntax-object-wrap\ 1283}# #{x\ 1817}#)) - (#{syntax-object-module\ 1284}# #{x\ 1817}#)) - (if (null? #{x\ 1817}#) - #{x\ 1817}# - (#{make-syntax-object\ 1280}# - #{x\ 1817}# - #{w\ 1818}# - #{defmod\ 1819}#)))))) - (#{bound-id-member?\ 1324}# - (lambda (#{x\ 1820}# #{list\ 1821}#) - (if (not (null? #{list\ 1821}#)) - (let ((#{t\ 1822}# - (#{bound-id=?\ 1321}# - #{x\ 1820}# - (car #{list\ 1821}#)))) - (if #{t\ 1822}# - #{t\ 1822}# - (#{bound-id-member?\ 1324}# - #{x\ 1820}# - (cdr #{list\ 1821}#)))) + #{x\ 649}# + (if (#{syntax-object?\ 113}# #{x\ 649}#) + (#{make-syntax-object\ 112}# + (#{syntax-object-expression\ 114}# #{x\ 649}#) + (#{join-wraps\ 148}# + #{w\ 650}# + (#{syntax-object-wrap\ 115}# #{x\ 649}#)) + (#{syntax-object-module\ 116}# #{x\ 649}#)) + (if (null? #{x\ 649}#) + #{x\ 649}# + (#{make-syntax-object\ 112}# + #{x\ 649}# + #{w\ 650}# + #{defmod\ 651}#)))))) + (#{bound-id-member?\ 156}# + (lambda (#{x\ 652}# #{list\ 653}#) + (if (not (null? #{list\ 653}#)) + (let ((#{t\ 654}# (#{bound-id=?\ 153}# + #{x\ 652}# + (car #{list\ 653}#)))) + (if #{t\ 654}# + #{t\ 654}# + (#{bound-id-member?\ 156}# + #{x\ 652}# + (cdr #{list\ 653}#)))) #f))) - (#{distinct-bound-ids?\ 1323}# - (lambda (#{ids\ 1823}#) - (letrec ((#{distinct?\ 1824}# - (lambda (#{ids\ 1825}#) - (let ((#{t\ 1826}# (null? #{ids\ 1825}#))) - (if #{t\ 1826}# - #{t\ 1826}# - (if (not (#{bound-id-member?\ 1324}# - (car #{ids\ 1825}#) - (cdr #{ids\ 1825}#))) - (#{distinct?\ 1824}# (cdr #{ids\ 1825}#)) + (#{distinct-bound-ids?\ 155}# + (lambda (#{ids\ 655}#) + (letrec ((#{distinct?\ 656}# + (lambda (#{ids\ 657}#) + (let ((#{t\ 658}# (null? #{ids\ 657}#))) + (if #{t\ 658}# + #{t\ 658}# + (if (not (#{bound-id-member?\ 156}# + (car #{ids\ 657}#) + (cdr #{ids\ 657}#))) + (#{distinct?\ 656}# (cdr #{ids\ 657}#)) #f)))))) - (#{distinct?\ 1824}# #{ids\ 1823}#)))) - (#{valid-bound-ids?\ 1322}# - (lambda (#{ids\ 1827}#) - (if (letrec ((#{all-ids?\ 1828}# - (lambda (#{ids\ 1829}#) - (let ((#{t\ 1830}# (null? #{ids\ 1829}#))) - (if #{t\ 1830}# - #{t\ 1830}# - (if (#{id?\ 1297}# (car #{ids\ 1829}#)) - (#{all-ids?\ 1828}# (cdr #{ids\ 1829}#)) + (#{distinct?\ 656}# #{ids\ 655}#)))) + (#{valid-bound-ids?\ 154}# + (lambda (#{ids\ 659}#) + (if (letrec ((#{all-ids?\ 660}# + (lambda (#{ids\ 661}#) + (let ((#{t\ 662}# (null? #{ids\ 661}#))) + (if #{t\ 662}# + #{t\ 662}# + (if (#{id?\ 129}# (car #{ids\ 661}#)) + (#{all-ids?\ 660}# (cdr #{ids\ 661}#)) #f)))))) - (#{all-ids?\ 1828}# #{ids\ 1827}#)) - (#{distinct-bound-ids?\ 1323}# #{ids\ 1827}#) + (#{all-ids?\ 660}# #{ids\ 659}#)) + (#{distinct-bound-ids?\ 155}# #{ids\ 659}#) #f))) - (#{bound-id=?\ 1321}# - (lambda (#{i\ 1831}# #{j\ 1832}#) - (if (if (#{syntax-object?\ 1281}# #{i\ 1831}#) - (#{syntax-object?\ 1281}# #{j\ 1832}#) + (#{bound-id=?\ 153}# + (lambda (#{i\ 663}# #{j\ 664}#) + (if (if (#{syntax-object?\ 113}# #{i\ 663}#) + (#{syntax-object?\ 113}# #{j\ 664}#) #f) - (if (eq? (#{syntax-object-expression\ 1282}# #{i\ 1831}#) - (#{syntax-object-expression\ 1282}# #{j\ 1832}#)) - (#{same-marks?\ 1318}# - (#{wrap-marks\ 1300}# - (#{syntax-object-wrap\ 1283}# #{i\ 1831}#)) - (#{wrap-marks\ 1300}# - (#{syntax-object-wrap\ 1283}# #{j\ 1832}#))) + (if (eq? (#{syntax-object-expression\ 114}# #{i\ 663}#) + (#{syntax-object-expression\ 114}# #{j\ 664}#)) + (#{same-marks?\ 150}# + (#{wrap-marks\ 132}# + (#{syntax-object-wrap\ 115}# #{i\ 663}#)) + (#{wrap-marks\ 132}# + (#{syntax-object-wrap\ 115}# #{j\ 664}#))) #f) - (eq? #{i\ 1831}# #{j\ 1832}#)))) - (#{free-id=?\ 1320}# - (lambda (#{i\ 1833}# #{j\ 1834}#) - (if (eq? (let ((#{x\ 1835}# #{i\ 1833}#)) - (if (#{syntax-object?\ 1281}# #{x\ 1835}#) - (#{syntax-object-expression\ 1282}# #{x\ 1835}#) - #{x\ 1835}#)) - (let ((#{x\ 1836}# #{j\ 1834}#)) - (if (#{syntax-object?\ 1281}# #{x\ 1836}#) - (#{syntax-object-expression\ 1282}# #{x\ 1836}#) - #{x\ 1836}#))) - (eq? (#{id-var-name\ 1319}# #{i\ 1833}# (quote (()))) - (#{id-var-name\ 1319}# #{j\ 1834}# (quote (())))) + (eq? #{i\ 663}# #{j\ 664}#)))) + (#{free-id=?\ 152}# + (lambda (#{i\ 665}# #{j\ 666}#) + (if (eq? (let ((#{x\ 667}# #{i\ 665}#)) + (if (#{syntax-object?\ 113}# #{x\ 667}#) + (#{syntax-object-expression\ 114}# #{x\ 667}#) + #{x\ 667}#)) + (let ((#{x\ 668}# #{j\ 666}#)) + (if (#{syntax-object?\ 113}# #{x\ 668}#) + (#{syntax-object-expression\ 114}# #{x\ 668}#) + #{x\ 668}#))) + (eq? (#{id-var-name\ 151}# #{i\ 665}# (quote (()))) + (#{id-var-name\ 151}# #{j\ 666}# (quote (())))) #f))) - (#{id-var-name\ 1319}# - (lambda (#{id\ 1837}# #{w\ 1838}#) - (letrec ((#{search-vector-rib\ 1841}# - (lambda (#{sym\ 1847}# - #{subst\ 1848}# - #{marks\ 1849}# - #{symnames\ 1850}# - #{ribcage\ 1851}#) - (let ((#{n\ 1852}# - (vector-length #{symnames\ 1850}#))) - (letrec ((#{f\ 1853}# - (lambda (#{i\ 1854}#) - (if (#{fx=\ 1256}# - #{i\ 1854}# - #{n\ 1852}#) - (#{search\ 1839}# - #{sym\ 1847}# - (cdr #{subst\ 1848}#) - #{marks\ 1849}#) - (if (if (eq? (vector-ref - #{symnames\ 1850}# - #{i\ 1854}#) - #{sym\ 1847}#) - (#{same-marks?\ 1318}# - #{marks\ 1849}# - (vector-ref - (#{ribcage-marks\ 1307}# - #{ribcage\ 1851}#) - #{i\ 1854}#)) - #f) - (values - (vector-ref - (#{ribcage-labels\ 1308}# - #{ribcage\ 1851}#) - #{i\ 1854}#) - #{marks\ 1849}#) - (#{f\ 1853}# - (#{fx+\ 1254}# - #{i\ 1854}# - 1))))))) - (#{f\ 1853}# 0))))) - (#{search-list-rib\ 1840}# - (lambda (#{sym\ 1855}# - #{subst\ 1856}# - #{marks\ 1857}# - #{symnames\ 1858}# - #{ribcage\ 1859}#) - (letrec ((#{f\ 1860}# - (lambda (#{symnames\ 1861}# #{i\ 1862}#) - (if (null? #{symnames\ 1861}#) - (#{search\ 1839}# - #{sym\ 1855}# - (cdr #{subst\ 1856}#) - #{marks\ 1857}#) - (if (if (eq? (car #{symnames\ 1861}#) - #{sym\ 1855}#) - (#{same-marks?\ 1318}# - #{marks\ 1857}# - (list-ref - (#{ribcage-marks\ 1307}# - #{ribcage\ 1859}#) - #{i\ 1862}#)) - #f) - (values - (list-ref - (#{ribcage-labels\ 1308}# - #{ribcage\ 1859}#) - #{i\ 1862}#) - #{marks\ 1857}#) - (#{f\ 1860}# - (cdr #{symnames\ 1861}#) - (#{fx+\ 1254}# - #{i\ 1862}# - 1))))))) - (#{f\ 1860}# #{symnames\ 1858}# 0)))) - (#{search\ 1839}# - (lambda (#{sym\ 1863}# - #{subst\ 1864}# - #{marks\ 1865}#) - (if (null? #{subst\ 1864}#) - (values #f #{marks\ 1865}#) - (let ((#{fst\ 1866}# (car #{subst\ 1864}#))) - (if (eq? #{fst\ 1866}# (quote shift)) - (#{search\ 1839}# - #{sym\ 1863}# - (cdr #{subst\ 1864}#) - (cdr #{marks\ 1865}#)) - (let ((#{symnames\ 1867}# - (#{ribcage-symnames\ 1306}# - #{fst\ 1866}#))) - (if (vector? #{symnames\ 1867}#) - (#{search-vector-rib\ 1841}# - #{sym\ 1863}# - #{subst\ 1864}# - #{marks\ 1865}# - #{symnames\ 1867}# - #{fst\ 1866}#) - (#{search-list-rib\ 1840}# - #{sym\ 1863}# - #{subst\ 1864}# - #{marks\ 1865}# - #{symnames\ 1867}# - #{fst\ 1866}#))))))))) - (if (symbol? #{id\ 1837}#) - (let ((#{t\ 1868}# - (call-with-values - (lambda () - (#{search\ 1839}# - #{id\ 1837}# - (#{wrap-subst\ 1301}# #{w\ 1838}#) - (#{wrap-marks\ 1300}# #{w\ 1838}#))) - (lambda (#{x\ 1870}# . #{ignore\ 1869}#) - #{x\ 1870}#)))) - (if #{t\ 1868}# #{t\ 1868}# #{id\ 1837}#)) - (if (#{syntax-object?\ 1281}# #{id\ 1837}#) - (let ((#{id\ 1871}# - (#{syntax-object-expression\ 1282}# #{id\ 1837}#)) - (#{w1\ 1872}# - (#{syntax-object-wrap\ 1283}# #{id\ 1837}#))) - (let ((#{marks\ 1873}# - (#{join-marks\ 1317}# - (#{wrap-marks\ 1300}# #{w\ 1838}#) - (#{wrap-marks\ 1300}# #{w1\ 1872}#)))) + (#{id-var-name\ 151}# + (lambda (#{id\ 669}# #{w\ 670}#) + (letrec ((#{search-vector-rib\ 673}# + (lambda (#{sym\ 679}# + #{subst\ 680}# + #{marks\ 681}# + #{symnames\ 682}# + #{ribcage\ 683}#) + (let ((#{n\ 684}# (vector-length + #{symnames\ 682}#))) + (letrec ((#{f\ 685}# (lambda (#{i\ 686}#) + (if (#{fx=\ 88}# + #{i\ 686}# + #{n\ 684}#) + (#{search\ 671}# + #{sym\ 679}# + (cdr #{subst\ 680}#) + #{marks\ 681}#) + (if (if (eq? (vector-ref + #{symnames\ 682}# + #{i\ 686}#) + #{sym\ 679}#) + (#{same-marks?\ 150}# + #{marks\ 681}# + (vector-ref + (#{ribcage-marks\ 139}# + #{ribcage\ 683}#) + #{i\ 686}#)) + #f) + (values + (vector-ref + (#{ribcage-labels\ 140}# + #{ribcage\ 683}#) + #{i\ 686}#) + #{marks\ 681}#) + (#{f\ 685}# (#{fx+\ 86}# + #{i\ 686}# + 1))))))) + (#{f\ 685}# 0))))) + (#{search-list-rib\ 672}# + (lambda (#{sym\ 687}# + #{subst\ 688}# + #{marks\ 689}# + #{symnames\ 690}# + #{ribcage\ 691}#) + (letrec ((#{f\ 692}# (lambda (#{symnames\ 693}# + #{i\ 694}#) + (if (null? #{symnames\ 693}#) + (#{search\ 671}# + #{sym\ 687}# + (cdr #{subst\ 688}#) + #{marks\ 689}#) + (if (if (eq? (car #{symnames\ 693}#) + #{sym\ 687}#) + (#{same-marks?\ 150}# + #{marks\ 689}# + (list-ref + (#{ribcage-marks\ 139}# + #{ribcage\ 691}#) + #{i\ 694}#)) + #f) + (values + (list-ref + (#{ribcage-labels\ 140}# + #{ribcage\ 691}#) + #{i\ 694}#) + #{marks\ 689}#) + (#{f\ 692}# (cdr #{symnames\ 693}#) + (#{fx+\ 86}# + #{i\ 694}# + 1))))))) + (#{f\ 692}# #{symnames\ 690}# 0)))) + (#{search\ 671}# + (lambda (#{sym\ 695}# #{subst\ 696}# #{marks\ 697}#) + (if (null? #{subst\ 696}#) + (values #f #{marks\ 697}#) + (let ((#{fst\ 698}# (car #{subst\ 696}#))) + (if (eq? #{fst\ 698}# (quote shift)) + (#{search\ 671}# + #{sym\ 695}# + (cdr #{subst\ 696}#) + (cdr #{marks\ 697}#)) + (let ((#{symnames\ 699}# + (#{ribcage-symnames\ 138}# + #{fst\ 698}#))) + (if (vector? #{symnames\ 699}#) + (#{search-vector-rib\ 673}# + #{sym\ 695}# + #{subst\ 696}# + #{marks\ 697}# + #{symnames\ 699}# + #{fst\ 698}#) + (#{search-list-rib\ 672}# + #{sym\ 695}# + #{subst\ 696}# + #{marks\ 697}# + #{symnames\ 699}# + #{fst\ 698}#))))))))) + (if (symbol? #{id\ 669}#) + (let ((#{t\ 700}# (call-with-values + (lambda () + (#{search\ 671}# + #{id\ 669}# + (#{wrap-subst\ 133}# #{w\ 670}#) + (#{wrap-marks\ 132}# #{w\ 670}#))) + (lambda (#{x\ 702}# . #{ignore\ 701}#) + #{x\ 702}#)))) + (if #{t\ 700}# #{t\ 700}# #{id\ 669}#)) + (if (#{syntax-object?\ 113}# #{id\ 669}#) + (let ((#{id\ 703}# + (#{syntax-object-expression\ 114}# #{id\ 669}#)) + (#{w1\ 704}# + (#{syntax-object-wrap\ 115}# #{id\ 669}#))) + (let ((#{marks\ 705}# + (#{join-marks\ 149}# + (#{wrap-marks\ 132}# #{w\ 670}#) + (#{wrap-marks\ 132}# #{w1\ 704}#)))) (call-with-values (lambda () - (#{search\ 1839}# - #{id\ 1871}# - (#{wrap-subst\ 1301}# #{w\ 1838}#) - #{marks\ 1873}#)) - (lambda (#{new-id\ 1874}# #{marks\ 1875}#) - (let ((#{t\ 1876}# #{new-id\ 1874}#)) - (if #{t\ 1876}# - #{t\ 1876}# - (let ((#{t\ 1877}# - (call-with-values - (lambda () - (#{search\ 1839}# - #{id\ 1871}# - (#{wrap-subst\ 1301}# - #{w1\ 1872}#) - #{marks\ 1875}#)) - (lambda (#{x\ 1879}# - . - #{ignore\ 1878}#) - #{x\ 1879}#)))) - (if #{t\ 1877}# - #{t\ 1877}# - #{id\ 1871}#)))))))) + (#{search\ 671}# + #{id\ 703}# + (#{wrap-subst\ 133}# #{w\ 670}#) + #{marks\ 705}#)) + (lambda (#{new-id\ 706}# #{marks\ 707}#) + (let ((#{t\ 708}# #{new-id\ 706}#)) + (if #{t\ 708}# + #{t\ 708}# + (let ((#{t\ 709}# (call-with-values + (lambda () + (#{search\ 671}# + #{id\ 703}# + (#{wrap-subst\ 133}# + #{w1\ 704}#) + #{marks\ 707}#)) + (lambda (#{x\ 711}# + . + #{ignore\ 710}#) + #{x\ 711}#)))) + (if #{t\ 709}# + #{t\ 709}# + #{id\ 703}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1837}#)))))) - (#{same-marks?\ 1318}# - (lambda (#{x\ 1880}# #{y\ 1881}#) - (let ((#{t\ 1882}# (eq? #{x\ 1880}# #{y\ 1881}#))) - (if #{t\ 1882}# - #{t\ 1882}# - (if (not (null? #{x\ 1880}#)) - (if (not (null? #{y\ 1881}#)) - (if (eq? (car #{x\ 1880}#) (car #{y\ 1881}#)) - (#{same-marks?\ 1318}# - (cdr #{x\ 1880}#) - (cdr #{y\ 1881}#)) + #{id\ 669}#)))))) + (#{same-marks?\ 150}# + (lambda (#{x\ 712}# #{y\ 713}#) + (let ((#{t\ 714}# (eq? #{x\ 712}# #{y\ 713}#))) + (if #{t\ 714}# + #{t\ 714}# + (if (not (null? #{x\ 712}#)) + (if (not (null? #{y\ 713}#)) + (if (eq? (car #{x\ 712}#) (car #{y\ 713}#)) + (#{same-marks?\ 150}# + (cdr #{x\ 712}#) + (cdr #{y\ 713}#)) #f) #f) #f))))) - (#{join-marks\ 1317}# - (lambda (#{m1\ 1883}# #{m2\ 1884}#) - (#{smart-append\ 1315}# - #{m1\ 1883}# - #{m2\ 1884}#))) - (#{join-wraps\ 1316}# - (lambda (#{w1\ 1885}# #{w2\ 1886}#) - (let ((#{m1\ 1887}# - (#{wrap-marks\ 1300}# #{w1\ 1885}#)) - (#{s1\ 1888}# - (#{wrap-subst\ 1301}# #{w1\ 1885}#))) - (if (null? #{m1\ 1887}#) - (if (null? #{s1\ 1888}#) - #{w2\ 1886}# - (#{make-wrap\ 1299}# - (#{wrap-marks\ 1300}# #{w2\ 1886}#) - (#{smart-append\ 1315}# - #{s1\ 1888}# - (#{wrap-subst\ 1301}# #{w2\ 1886}#)))) - (#{make-wrap\ 1299}# - (#{smart-append\ 1315}# - #{m1\ 1887}# - (#{wrap-marks\ 1300}# #{w2\ 1886}#)) - (#{smart-append\ 1315}# - #{s1\ 1888}# - (#{wrap-subst\ 1301}# #{w2\ 1886}#))))))) - (#{smart-append\ 1315}# - (lambda (#{m1\ 1889}# #{m2\ 1890}#) - (if (null? #{m2\ 1890}#) - #{m1\ 1889}# - (append #{m1\ 1889}# #{m2\ 1890}#)))) - (#{make-binding-wrap\ 1314}# - (lambda (#{ids\ 1891}# #{labels\ 1892}# #{w\ 1893}#) - (if (null? #{ids\ 1891}#) - #{w\ 1893}# - (#{make-wrap\ 1299}# - (#{wrap-marks\ 1300}# #{w\ 1893}#) - (cons (let ((#{labelvec\ 1894}# - (list->vector #{labels\ 1892}#))) - (let ((#{n\ 1895}# - (vector-length #{labelvec\ 1894}#))) - (let ((#{symnamevec\ 1896}# - (make-vector #{n\ 1895}#)) - (#{marksvec\ 1897}# - (make-vector #{n\ 1895}#))) + (#{join-marks\ 149}# + (lambda (#{m1\ 715}# #{m2\ 716}#) + (#{smart-append\ 147}# #{m1\ 715}# #{m2\ 716}#))) + (#{join-wraps\ 148}# + (lambda (#{w1\ 717}# #{w2\ 718}#) + (let ((#{m1\ 719}# (#{wrap-marks\ 132}# #{w1\ 717}#)) + (#{s1\ 720}# (#{wrap-subst\ 133}# #{w1\ 717}#))) + (if (null? #{m1\ 719}#) + (if (null? #{s1\ 720}#) + #{w2\ 718}# + (#{make-wrap\ 131}# + (#{wrap-marks\ 132}# #{w2\ 718}#) + (#{smart-append\ 147}# + #{s1\ 720}# + (#{wrap-subst\ 133}# #{w2\ 718}#)))) + (#{make-wrap\ 131}# + (#{smart-append\ 147}# + #{m1\ 719}# + (#{wrap-marks\ 132}# #{w2\ 718}#)) + (#{smart-append\ 147}# + #{s1\ 720}# + (#{wrap-subst\ 133}# #{w2\ 718}#))))))) + (#{smart-append\ 147}# + (lambda (#{m1\ 721}# #{m2\ 722}#) + (if (null? #{m2\ 722}#) + #{m1\ 721}# + (append #{m1\ 721}# #{m2\ 722}#)))) + (#{make-binding-wrap\ 146}# + (lambda (#{ids\ 723}# #{labels\ 724}# #{w\ 725}#) + (if (null? #{ids\ 723}#) + #{w\ 725}# + (#{make-wrap\ 131}# + (#{wrap-marks\ 132}# #{w\ 725}#) + (cons (let ((#{labelvec\ 726}# + (list->vector #{labels\ 724}#))) + (let ((#{n\ 727}# (vector-length + #{labelvec\ 726}#))) + (let ((#{symnamevec\ 728}# + (make-vector #{n\ 727}#)) + (#{marksvec\ 729}# + (make-vector #{n\ 727}#))) (begin - (letrec ((#{f\ 1898}# - (lambda (#{ids\ 1899}# #{i\ 1900}#) - (if (not (null? #{ids\ 1899}#)) - (call-with-values - (lambda () - (#{id-sym-name&marks\ 1298}# - (car #{ids\ 1899}#) - #{w\ 1893}#)) - (lambda (#{symname\ 1901}# - #{marks\ 1902}#) - (begin - (vector-set! - #{symnamevec\ 1896}# - #{i\ 1900}# - #{symname\ 1901}#) - (vector-set! - #{marksvec\ 1897}# - #{i\ 1900}# - #{marks\ 1902}#) - (#{f\ 1898}# - (cdr #{ids\ 1899}#) - (#{fx+\ 1254}# - #{i\ 1900}# - 1))))))))) - (#{f\ 1898}# #{ids\ 1891}# 0)) - (#{make-ribcage\ 1304}# - #{symnamevec\ 1896}# - #{marksvec\ 1897}# - #{labelvec\ 1894}#))))) - (#{wrap-subst\ 1301}# #{w\ 1893}#)))))) - (#{extend-ribcage!\ 1313}# - (lambda (#{ribcage\ 1903}# #{id\ 1904}# #{label\ 1905}#) + (letrec ((#{f\ 730}# (lambda (#{ids\ 731}# + #{i\ 732}#) + (if (not (null? #{ids\ 731}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks\ 130}# + (car #{ids\ 731}#) + #{w\ 725}#)) + (lambda (#{symname\ 733}# + #{marks\ 734}#) + (begin + (vector-set! + #{symnamevec\ 728}# + #{i\ 732}# + #{symname\ 733}#) + (vector-set! + #{marksvec\ 729}# + #{i\ 732}# + #{marks\ 734}#) + (#{f\ 730}# (cdr #{ids\ 731}#) + (#{fx+\ 86}# + #{i\ 732}# + 1))))))))) + (#{f\ 730}# #{ids\ 723}# 0)) + (#{make-ribcage\ 136}# + #{symnamevec\ 728}# + #{marksvec\ 729}# + #{labelvec\ 726}#))))) + (#{wrap-subst\ 133}# #{w\ 725}#)))))) + (#{extend-ribcage!\ 145}# + (lambda (#{ribcage\ 735}# #{id\ 736}# #{label\ 737}#) (begin - (#{set-ribcage-symnames!\ 1309}# - #{ribcage\ 1903}# - (cons (#{syntax-object-expression\ 1282}# #{id\ 1904}#) - (#{ribcage-symnames\ 1306}# #{ribcage\ 1903}#))) - (#{set-ribcage-marks!\ 1310}# - #{ribcage\ 1903}# - (cons (#{wrap-marks\ 1300}# - (#{syntax-object-wrap\ 1283}# #{id\ 1904}#)) - (#{ribcage-marks\ 1307}# #{ribcage\ 1903}#))) - (#{set-ribcage-labels!\ 1311}# - #{ribcage\ 1903}# - (cons #{label\ 1905}# - (#{ribcage-labels\ 1308}# #{ribcage\ 1903}#)))))) - (#{anti-mark\ 1312}# - (lambda (#{w\ 1906}#) - (#{make-wrap\ 1299}# - (cons #f (#{wrap-marks\ 1300}# #{w\ 1906}#)) + (#{set-ribcage-symnames!\ 141}# + #{ribcage\ 735}# + (cons (#{syntax-object-expression\ 114}# #{id\ 736}#) + (#{ribcage-symnames\ 138}# #{ribcage\ 735}#))) + (#{set-ribcage-marks!\ 142}# + #{ribcage\ 735}# + (cons (#{wrap-marks\ 132}# + (#{syntax-object-wrap\ 115}# #{id\ 736}#)) + (#{ribcage-marks\ 139}# #{ribcage\ 735}#))) + (#{set-ribcage-labels!\ 143}# + #{ribcage\ 735}# + (cons #{label\ 737}# + (#{ribcage-labels\ 140}# #{ribcage\ 735}#)))))) + (#{anti-mark\ 144}# + (lambda (#{w\ 738}#) + (#{make-wrap\ 131}# + (cons #f (#{wrap-marks\ 132}# #{w\ 738}#)) (cons 'shift - (#{wrap-subst\ 1301}# #{w\ 1906}#))))) - (#{set-ribcage-labels!\ 1311}# - (lambda (#{x\ 1907}# #{update\ 1908}#) - (vector-set! #{x\ 1907}# 3 #{update\ 1908}#))) - (#{set-ribcage-marks!\ 1310}# - (lambda (#{x\ 1909}# #{update\ 1910}#) - (vector-set! #{x\ 1909}# 2 #{update\ 1910}#))) - (#{set-ribcage-symnames!\ 1309}# - (lambda (#{x\ 1911}# #{update\ 1912}#) - (vector-set! #{x\ 1911}# 1 #{update\ 1912}#))) - (#{ribcage-labels\ 1308}# - (lambda (#{x\ 1913}#) (vector-ref #{x\ 1913}# 3))) - (#{ribcage-marks\ 1307}# - (lambda (#{x\ 1914}#) (vector-ref #{x\ 1914}# 2))) - (#{ribcage-symnames\ 1306}# - (lambda (#{x\ 1915}#) (vector-ref #{x\ 1915}# 1))) - (#{ribcage?\ 1305}# - (lambda (#{x\ 1916}#) - (if (vector? #{x\ 1916}#) - (if (= (vector-length #{x\ 1916}#) 4) - (eq? (vector-ref #{x\ 1916}# 0) (quote ribcage)) + (#{wrap-subst\ 133}# #{w\ 738}#))))) + (#{set-ribcage-labels!\ 143}# + (lambda (#{x\ 739}# #{update\ 740}#) + (vector-set! #{x\ 739}# 3 #{update\ 740}#))) + (#{set-ribcage-marks!\ 142}# + (lambda (#{x\ 741}# #{update\ 742}#) + (vector-set! #{x\ 741}# 2 #{update\ 742}#))) + (#{set-ribcage-symnames!\ 141}# + (lambda (#{x\ 743}# #{update\ 744}#) + (vector-set! #{x\ 743}# 1 #{update\ 744}#))) + (#{ribcage-labels\ 140}# + (lambda (#{x\ 745}#) (vector-ref #{x\ 745}# 3))) + (#{ribcage-marks\ 139}# + (lambda (#{x\ 746}#) (vector-ref #{x\ 746}# 2))) + (#{ribcage-symnames\ 138}# + (lambda (#{x\ 747}#) (vector-ref #{x\ 747}# 1))) + (#{ribcage?\ 137}# + (lambda (#{x\ 748}#) + (if (vector? #{x\ 748}#) + (if (= (vector-length #{x\ 748}#) 4) + (eq? (vector-ref #{x\ 748}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 1304}# - (lambda (#{symnames\ 1917}# - #{marks\ 1918}# - #{labels\ 1919}#) + (#{make-ribcage\ 136}# + (lambda (#{symnames\ 749}# + #{marks\ 750}# + #{labels\ 751}#) (vector 'ribcage - #{symnames\ 1917}# - #{marks\ 1918}# - #{labels\ 1919}#))) - (#{gen-labels\ 1303}# - (lambda (#{ls\ 1920}#) - (if (null? #{ls\ 1920}#) + #{symnames\ 749}# + #{marks\ 750}# + #{labels\ 751}#))) + (#{gen-labels\ 135}# + (lambda (#{ls\ 752}#) + (if (null? #{ls\ 752}#) '() - (cons (#{gen-label\ 1302}#) - (#{gen-labels\ 1303}# (cdr #{ls\ 1920}#)))))) - (#{gen-label\ 1302}# (lambda () (string #\i))) - (#{wrap-subst\ 1301}# cdr) - (#{wrap-marks\ 1300}# car) - (#{make-wrap\ 1299}# cons) - (#{id-sym-name&marks\ 1298}# - (lambda (#{x\ 1921}# #{w\ 1922}#) - (if (#{syntax-object?\ 1281}# #{x\ 1921}#) + (cons (#{gen-label\ 134}#) + (#{gen-labels\ 135}# (cdr #{ls\ 752}#)))))) + (#{gen-label\ 134}# (lambda () (string #\i))) + (#{wrap-subst\ 133}# cdr) + (#{wrap-marks\ 132}# car) + (#{make-wrap\ 131}# cons) + (#{id-sym-name&marks\ 130}# + (lambda (#{x\ 753}# #{w\ 754}#) + (if (#{syntax-object?\ 113}# #{x\ 753}#) (values - (#{syntax-object-expression\ 1282}# #{x\ 1921}#) - (#{join-marks\ 1317}# - (#{wrap-marks\ 1300}# #{w\ 1922}#) - (#{wrap-marks\ 1300}# - (#{syntax-object-wrap\ 1283}# #{x\ 1921}#)))) + (#{syntax-object-expression\ 114}# #{x\ 753}#) + (#{join-marks\ 149}# + (#{wrap-marks\ 132}# #{w\ 754}#) + (#{wrap-marks\ 132}# + (#{syntax-object-wrap\ 115}# #{x\ 753}#)))) (values - #{x\ 1921}# - (#{wrap-marks\ 1300}# #{w\ 1922}#))))) - (#{id?\ 1297}# - (lambda (#{x\ 1923}#) - (if (symbol? #{x\ 1923}#) + #{x\ 753}# + (#{wrap-marks\ 132}# #{w\ 754}#))))) + (#{id?\ 129}# + (lambda (#{x\ 755}#) + (if (symbol? #{x\ 755}#) #t - (if (#{syntax-object?\ 1281}# #{x\ 1923}#) + (if (#{syntax-object?\ 113}# #{x\ 755}#) (symbol? - (#{syntax-object-expression\ 1282}# #{x\ 1923}#)) + (#{syntax-object-expression\ 114}# #{x\ 755}#)) #f)))) - (#{nonsymbol-id?\ 1296}# - (lambda (#{x\ 1924}#) - (if (#{syntax-object?\ 1281}# #{x\ 1924}#) + (#{nonsymbol-id?\ 128}# + (lambda (#{x\ 756}#) + (if (#{syntax-object?\ 113}# #{x\ 756}#) (symbol? - (#{syntax-object-expression\ 1282}# #{x\ 1924}#)) + (#{syntax-object-expression\ 114}# #{x\ 756}#)) #f))) - (#{global-extend\ 1295}# - (lambda (#{type\ 1925}# #{sym\ 1926}# #{val\ 1927}#) - (#{put-global-definition-hook\ 1260}# - #{sym\ 1926}# - #{type\ 1925}# - #{val\ 1927}#))) - (#{lookup\ 1294}# - (lambda (#{x\ 1928}# #{r\ 1929}# #{mod\ 1930}#) - (let ((#{t\ 1931}# (assq #{x\ 1928}# #{r\ 1929}#))) - (if #{t\ 1931}# - (cdr #{t\ 1931}#) - (if (symbol? #{x\ 1928}#) - (let ((#{t\ 1932}# - (#{get-global-definition-hook\ 1261}# - #{x\ 1928}# - #{mod\ 1930}#))) - (if #{t\ 1932}# #{t\ 1932}# (quote (global)))) + (#{global-extend\ 127}# + (lambda (#{type\ 757}# #{sym\ 758}# #{val\ 759}#) + (#{put-global-definition-hook\ 92}# + #{sym\ 758}# + #{type\ 757}# + #{val\ 759}#))) + (#{lookup\ 126}# + (lambda (#{x\ 760}# #{r\ 761}# #{mod\ 762}#) + (let ((#{t\ 763}# (assq #{x\ 760}# #{r\ 761}#))) + (if #{t\ 763}# + (cdr #{t\ 763}#) + (if (symbol? #{x\ 760}#) + (let ((#{t\ 764}# (#{get-global-definition-hook\ 93}# + #{x\ 760}# + #{mod\ 762}#))) + (if #{t\ 764}# #{t\ 764}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 1293}# - (lambda (#{r\ 1933}#) - (if (null? #{r\ 1933}#) + (#{macros-only-env\ 125}# + (lambda (#{r\ 765}#) + (if (null? #{r\ 765}#) '() - (let ((#{a\ 1934}# (car #{r\ 1933}#))) - (if (eq? (cadr #{a\ 1934}#) (quote macro)) - (cons #{a\ 1934}# - (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#))) - (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#))))))) - (#{extend-var-env\ 1292}# - (lambda (#{labels\ 1935}# #{vars\ 1936}# #{r\ 1937}#) - (if (null? #{labels\ 1935}#) - #{r\ 1937}# - (#{extend-var-env\ 1292}# - (cdr #{labels\ 1935}#) - (cdr #{vars\ 1936}#) - (cons (cons (car #{labels\ 1935}#) - (cons (quote lexical) (car #{vars\ 1936}#))) - #{r\ 1937}#))))) - (#{extend-env\ 1291}# - (lambda (#{labels\ 1938}# #{bindings\ 1939}# #{r\ 1940}#) - (if (null? #{labels\ 1938}#) - #{r\ 1940}# - (#{extend-env\ 1291}# - (cdr #{labels\ 1938}#) - (cdr #{bindings\ 1939}#) - (cons (cons (car #{labels\ 1938}#) - (car #{bindings\ 1939}#)) - #{r\ 1940}#))))) - (#{binding-value\ 1290}# cdr) - (#{binding-type\ 1289}# car) - (#{source-annotation\ 1288}# - (lambda (#{x\ 1941}#) - (if (#{syntax-object?\ 1281}# #{x\ 1941}#) - (#{source-annotation\ 1288}# - (#{syntax-object-expression\ 1282}# #{x\ 1941}#)) - (if (pair? #{x\ 1941}#) - (let ((#{props\ 1942}# (source-properties #{x\ 1941}#))) - (if (pair? #{props\ 1942}#) #{props\ 1942}# #f)) + (let ((#{a\ 766}# (car #{r\ 765}#))) + (if (eq? (cadr #{a\ 766}#) (quote macro)) + (cons #{a\ 766}# + (#{macros-only-env\ 125}# (cdr #{r\ 765}#))) + (#{macros-only-env\ 125}# (cdr #{r\ 765}#))))))) + (#{extend-var-env\ 124}# + (lambda (#{labels\ 767}# #{vars\ 768}# #{r\ 769}#) + (if (null? #{labels\ 767}#) + #{r\ 769}# + (#{extend-var-env\ 124}# + (cdr #{labels\ 767}#) + (cdr #{vars\ 768}#) + (cons (cons (car #{labels\ 767}#) + (cons (quote lexical) (car #{vars\ 768}#))) + #{r\ 769}#))))) + (#{extend-env\ 123}# + (lambda (#{labels\ 770}# #{bindings\ 771}# #{r\ 772}#) + (if (null? #{labels\ 770}#) + #{r\ 772}# + (#{extend-env\ 123}# + (cdr #{labels\ 770}#) + (cdr #{bindings\ 771}#) + (cons (cons (car #{labels\ 770}#) + (car #{bindings\ 771}#)) + #{r\ 772}#))))) + (#{binding-value\ 122}# cdr) + (#{binding-type\ 121}# car) + (#{source-annotation\ 120}# + (lambda (#{x\ 773}#) + (if (#{syntax-object?\ 113}# #{x\ 773}#) + (#{source-annotation\ 120}# + (#{syntax-object-expression\ 114}# #{x\ 773}#)) + (if (pair? #{x\ 773}#) + (let ((#{props\ 774}# (source-properties #{x\ 773}#))) + (if (pair? #{props\ 774}#) #{props\ 774}# #f)) #f)))) - (#{set-syntax-object-module!\ 1287}# - (lambda (#{x\ 1943}# #{update\ 1944}#) - (vector-set! #{x\ 1943}# 3 #{update\ 1944}#))) - (#{set-syntax-object-wrap!\ 1286}# - (lambda (#{x\ 1945}# #{update\ 1946}#) - (vector-set! #{x\ 1945}# 2 #{update\ 1946}#))) - (#{set-syntax-object-expression!\ 1285}# - (lambda (#{x\ 1947}# #{update\ 1948}#) - (vector-set! #{x\ 1947}# 1 #{update\ 1948}#))) - (#{syntax-object-module\ 1284}# - (lambda (#{x\ 1949}#) (vector-ref #{x\ 1949}# 3))) - (#{syntax-object-wrap\ 1283}# - (lambda (#{x\ 1950}#) (vector-ref #{x\ 1950}# 2))) - (#{syntax-object-expression\ 1282}# - (lambda (#{x\ 1951}#) (vector-ref #{x\ 1951}# 1))) - (#{syntax-object?\ 1281}# - (lambda (#{x\ 1952}#) - (if (vector? #{x\ 1952}#) - (if (= (vector-length #{x\ 1952}#) 4) - (eq? (vector-ref #{x\ 1952}# 0) + (#{set-syntax-object-module!\ 119}# + (lambda (#{x\ 775}# #{update\ 776}#) + (vector-set! #{x\ 775}# 3 #{update\ 776}#))) + (#{set-syntax-object-wrap!\ 118}# + (lambda (#{x\ 777}# #{update\ 778}#) + (vector-set! #{x\ 777}# 2 #{update\ 778}#))) + (#{set-syntax-object-expression!\ 117}# + (lambda (#{x\ 779}# #{update\ 780}#) + (vector-set! #{x\ 779}# 1 #{update\ 780}#))) + (#{syntax-object-module\ 116}# + (lambda (#{x\ 781}#) (vector-ref #{x\ 781}# 3))) + (#{syntax-object-wrap\ 115}# + (lambda (#{x\ 782}#) (vector-ref #{x\ 782}# 2))) + (#{syntax-object-expression\ 114}# + (lambda (#{x\ 783}#) (vector-ref #{x\ 783}# 1))) + (#{syntax-object?\ 113}# + (lambda (#{x\ 784}#) + (if (vector? #{x\ 784}#) + (if (= (vector-length #{x\ 784}#) 4) + (eq? (vector-ref #{x\ 784}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 1280}# - (lambda (#{expression\ 1953}# - #{wrap\ 1954}# - #{module\ 1955}#) + (#{make-syntax-object\ 112}# + (lambda (#{expression\ 785}# + #{wrap\ 786}# + #{module\ 787}#) (vector 'syntax-object - #{expression\ 1953}# - #{wrap\ 1954}# - #{module\ 1955}#))) - (#{build-letrec\ 1279}# - (lambda (#{src\ 1956}# - #{ids\ 1957}# - #{vars\ 1958}# - #{val-exps\ 1959}# - #{body-exp\ 1960}#) - (if (null? #{vars\ 1958}#) - #{body-exp\ 1960}# - (let ((#{atom-key\ 1961}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1961}# (quote (c))) + #{expression\ 785}# + #{wrap\ 786}# + #{module\ 787}#))) + (#{build-letrec\ 111}# + (lambda (#{src\ 788}# + #{ids\ 789}# + #{vars\ 790}# + #{val-exps\ 791}# + #{body-exp\ 792}#) + (if (null? #{vars\ 790}#) + #{body-exp\ 792}# + (let ((#{atom-key\ 793}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 793}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1957}# - #{val-exps\ 1959}#) + #{maybe-name-value!\ 103}# + #{ids\ 789}# + #{val-exps\ 791}#) ((@ (language tree-il) make-letrec) - #{src\ 1956}# - #{ids\ 1957}# - #{vars\ 1958}# - #{val-exps\ 1959}# - #{body-exp\ 1960}#)) - (#{decorate-source\ 1262}# + #{src\ 788}# + #{ids\ 789}# + #{vars\ 790}# + #{val-exps\ 791}# + #{body-exp\ 792}#)) + (#{decorate-source\ 94}# (list 'letrec - (map list #{vars\ 1958}# #{val-exps\ 1959}#) - #{body-exp\ 1960}#) - #{src\ 1956}#)))))) - (#{build-named-let\ 1278}# - (lambda (#{src\ 1962}# - #{ids\ 1963}# - #{vars\ 1964}# - #{val-exps\ 1965}# - #{body-exp\ 1966}#) - (let ((#{f\ 1967}# (car #{vars\ 1964}#)) - (#{f-name\ 1968}# (car #{ids\ 1963}#)) - (#{vars\ 1969}# (cdr #{vars\ 1964}#)) - (#{ids\ 1970}# (cdr #{ids\ 1963}#))) - (let ((#{atom-key\ 1971}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1971}# (quote (c))) - (let ((#{proc\ 1972}# - (#{build-lambda\ 1273}# - #{src\ 1962}# - #{ids\ 1970}# - #{vars\ 1969}# + (map list #{vars\ 790}# #{val-exps\ 791}#) + #{body-exp\ 792}#) + #{src\ 788}#)))))) + (#{build-named-let\ 110}# + (lambda (#{src\ 794}# + #{ids\ 795}# + #{vars\ 796}# + #{val-exps\ 797}# + #{body-exp\ 798}#) + (let ((#{f\ 799}# (car #{vars\ 796}#)) + (#{f-name\ 800}# (car #{ids\ 795}#)) + (#{vars\ 801}# (cdr #{vars\ 796}#)) + (#{ids\ 802}# (cdr #{ids\ 795}#))) + (let ((#{atom-key\ 803}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 803}# (quote (c))) + (let ((#{proc\ 804}# + (#{build-lambda\ 105}# + #{src\ 794}# + #{ids\ 802}# + #{vars\ 801}# #f - #{body-exp\ 1966}#))) + #{body-exp\ 798}#))) (begin - (#{maybe-name-value!\ 1271}# - #{f-name\ 1968}# - #{proc\ 1972}#) + (#{maybe-name-value!\ 103}# + #{f-name\ 800}# + #{proc\ 804}#) (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1970}# - #{val-exps\ 1965}#) + #{maybe-name-value!\ 103}# + #{ids\ 802}# + #{val-exps\ 797}#) ((@ (language tree-il) make-letrec) - #{src\ 1962}# - (list #{f-name\ 1968}#) - (list #{f\ 1967}#) - (list #{proc\ 1972}#) - (#{build-application\ 1264}# - #{src\ 1962}# - (#{build-lexical-reference\ 1266}# + #{src\ 794}# + (list #{f-name\ 800}#) + (list #{f\ 799}#) + (list #{proc\ 804}#) + (#{build-application\ 96}# + #{src\ 794}# + (#{build-lexical-reference\ 98}# 'fun - #{src\ 1962}# - #{f-name\ 1968}# - #{f\ 1967}#) - #{val-exps\ 1965}#)))) - (#{decorate-source\ 1262}# + #{src\ 794}# + #{f-name\ 800}# + #{f\ 799}#) + #{val-exps\ 797}#)))) + (#{decorate-source\ 94}# (list 'let - #{f\ 1967}# - (map list #{vars\ 1969}# #{val-exps\ 1965}#) - #{body-exp\ 1966}#) - #{src\ 1962}#)))))) - (#{build-let\ 1277}# - (lambda (#{src\ 1973}# - #{ids\ 1974}# - #{vars\ 1975}# - #{val-exps\ 1976}# - #{body-exp\ 1977}#) - (if (null? #{vars\ 1975}#) - #{body-exp\ 1977}# - (let ((#{atom-key\ 1978}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1978}# (quote (c))) + #{f\ 799}# + (map list #{vars\ 801}# #{val-exps\ 797}#) + #{body-exp\ 798}#) + #{src\ 794}#)))))) + (#{build-let\ 109}# + (lambda (#{src\ 805}# + #{ids\ 806}# + #{vars\ 807}# + #{val-exps\ 808}# + #{body-exp\ 809}#) + (if (null? #{vars\ 807}#) + #{body-exp\ 809}# + (let ((#{atom-key\ 810}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 810}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1974}# - #{val-exps\ 1976}#) + #{maybe-name-value!\ 103}# + #{ids\ 806}# + #{val-exps\ 808}#) ((@ (language tree-il) make-let) - #{src\ 1973}# - #{ids\ 1974}# - #{vars\ 1975}# - #{val-exps\ 1976}# - #{body-exp\ 1977}#)) - (#{decorate-source\ 1262}# + #{src\ 805}# + #{ids\ 806}# + #{vars\ 807}# + #{val-exps\ 808}# + #{body-exp\ 809}#)) + (#{decorate-source\ 94}# (list 'let - (map list #{vars\ 1975}# #{val-exps\ 1976}#) - #{body-exp\ 1977}#) - #{src\ 1973}#)))))) - (#{build-sequence\ 1276}# - (lambda (#{src\ 1979}# #{exps\ 1980}#) - (if (null? (cdr #{exps\ 1980}#)) - (car #{exps\ 1980}#) - (let ((#{atom-key\ 1981}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1981}# (quote (c))) + (map list #{vars\ 807}# #{val-exps\ 808}#) + #{body-exp\ 809}#) + #{src\ 805}#)))))) + (#{build-sequence\ 108}# + (lambda (#{src\ 811}# #{exps\ 812}#) + (if (null? (cdr #{exps\ 812}#)) + (car #{exps\ 812}#) + (let ((#{atom-key\ 813}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 813}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 1979}# - #{exps\ 1980}#) - (#{decorate-source\ 1262}# - (cons (quote begin) #{exps\ 1980}#) - #{src\ 1979}#)))))) - (#{build-data\ 1275}# - (lambda (#{src\ 1982}# #{exp\ 1983}#) - (let ((#{atom-key\ 1984}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1984}# (quote (c))) + #{src\ 811}# + #{exps\ 812}#) + (#{decorate-source\ 94}# + (cons (quote begin) #{exps\ 812}#) + #{src\ 811}#)))))) + (#{build-data\ 107}# + (lambda (#{src\ 814}# #{exp\ 815}#) + (let ((#{atom-key\ 816}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 816}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 1982}# - #{exp\ 1983}#) - (#{decorate-source\ 1262}# - (if (if (self-evaluating? #{exp\ 1983}#) - (not (vector? #{exp\ 1983}#)) + #{src\ 814}# + #{exp\ 815}#) + (#{decorate-source\ 94}# + (if (if (self-evaluating? #{exp\ 815}#) + (not (vector? #{exp\ 815}#)) #f) - #{exp\ 1983}# - (list (quote quote) #{exp\ 1983}#)) - #{src\ 1982}#))))) - (#{build-primref\ 1274}# - (lambda (#{src\ 1985}# #{name\ 1986}#) + #{exp\ 815}# + (list (quote quote) #{exp\ 815}#)) + #{src\ 814}#))))) + (#{build-primref\ 106}# + (lambda (#{src\ 817}# #{name\ 818}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 1987}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1987}# (quote (c))) + (let ((#{atom-key\ 819}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 819}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 1985}# - #{name\ 1986}#) - (#{decorate-source\ 1262}# - #{name\ 1986}# - #{src\ 1985}#))) - (let ((#{atom-key\ 1988}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1988}# (quote (c))) + #{src\ 817}# + #{name\ 818}#) + (#{decorate-source\ 94}# + #{name\ 818}# + #{src\ 817}#))) + (let ((#{atom-key\ 820}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 820}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 1985}# + #{src\ 817}# '(guile) - #{name\ 1986}# + #{name\ 818}# #f) - (#{decorate-source\ 1262}# - (list (quote @@) (quote (guile)) #{name\ 1986}#) - #{src\ 1985}#)))))) - (#{build-lambda\ 1273}# - (lambda (#{src\ 1989}# - #{ids\ 1990}# - #{vars\ 1991}# - #{docstring\ 1992}# - #{exp\ 1993}#) - (let ((#{atom-key\ 1994}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1994}# (quote (c))) + (#{decorate-source\ 94}# + (list (quote @@) (quote (guile)) #{name\ 818}#) + #{src\ 817}#)))))) + (#{build-lambda\ 105}# + (lambda (#{src\ 821}# + #{ids\ 822}# + #{vars\ 823}# + #{docstring\ 824}# + #{exp\ 825}#) + (let ((#{atom-key\ 826}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 826}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 1989}# - #{ids\ 1990}# - #{vars\ 1991}# - (if #{docstring\ 1992}# - (list (cons (quote documentation) #{docstring\ 1992}#)) + #{src\ 821}# + #{ids\ 822}# + #{vars\ 823}# + (if #{docstring\ 824}# + (list (cons (quote documentation) #{docstring\ 824}#)) '()) - #{exp\ 1993}#) - (#{decorate-source\ 1262}# + #{exp\ 825}#) + (#{decorate-source\ 94}# (cons 'lambda - (cons #{vars\ 1991}# + (cons #{vars\ 823}# (append - (if #{docstring\ 1992}# - (list #{docstring\ 1992}#) + (if #{docstring\ 824}# + (list #{docstring\ 824}#) '()) - (list #{exp\ 1993}#)))) - #{src\ 1989}#))))) - (#{build-global-definition\ 1272}# - (lambda (#{source\ 1995}# #{var\ 1996}# #{exp\ 1997}#) - (let ((#{atom-key\ 1998}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1998}# (quote (c))) + (list #{exp\ 825}#)))) + #{src\ 821}#))))) + (#{build-global-definition\ 104}# + (lambda (#{source\ 827}# #{var\ 828}# #{exp\ 829}#) + (let ((#{atom-key\ 830}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 830}# (quote (c))) (begin - (#{maybe-name-value!\ 1271}# - #{var\ 1996}# - #{exp\ 1997}#) + (#{maybe-name-value!\ 103}# + #{var\ 828}# + #{exp\ 829}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 1995}# - #{var\ 1996}# - #{exp\ 1997}#)) - (#{decorate-source\ 1262}# - (list (quote define) #{var\ 1996}# #{exp\ 1997}#) - #{source\ 1995}#))))) - (#{maybe-name-value!\ 1271}# - (lambda (#{name\ 1999}# #{val\ 2000}#) - (if ((@ (language tree-il) lambda?) #{val\ 2000}#) - (let ((#{meta\ 2001}# - ((@ (language tree-il) lambda-meta) - #{val\ 2000}#))) - (if (not (assq (quote name) #{meta\ 2001}#)) + #{source\ 827}# + #{var\ 828}# + #{exp\ 829}#)) + (#{decorate-source\ 94}# + (list (quote define) #{var\ 828}# #{exp\ 829}#) + #{source\ 827}#))))) + (#{maybe-name-value!\ 103}# + (lambda (#{name\ 831}# #{val\ 832}#) + (if ((@ (language tree-il) lambda?) #{val\ 832}#) + (let ((#{meta\ 833}# + ((@ (language tree-il) lambda-meta) #{val\ 832}#))) + (if (not (assq (quote name) #{meta\ 833}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2000}# - (acons 'name - #{name\ 1999}# - #{meta\ 2001}#))))))) - (#{build-global-assignment\ 1270}# - (lambda (#{source\ 2002}# - #{var\ 2003}# - #{exp\ 2004}# - #{mod\ 2005}#) - (#{analyze-variable\ 1268}# - #{mod\ 2005}# - #{var\ 2003}# - (lambda (#{mod\ 2006}# #{var\ 2007}# #{public?\ 2008}#) - (let ((#{atom-key\ 2009}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2009}# (quote (c))) + #{val\ 832}# + (acons (quote name) #{name\ 831}# #{meta\ 833}#))))))) + (#{build-global-assignment\ 102}# + (lambda (#{source\ 834}# + #{var\ 835}# + #{exp\ 836}# + #{mod\ 837}#) + (#{analyze-variable\ 100}# + #{mod\ 837}# + #{var\ 835}# + (lambda (#{mod\ 838}# #{var\ 839}# #{public?\ 840}#) + (let ((#{atom-key\ 841}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 841}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 2002}# - #{mod\ 2006}# - #{var\ 2007}# - #{public?\ 2008}# - #{exp\ 2004}#) - (#{decorate-source\ 1262}# + #{source\ 834}# + #{mod\ 838}# + #{var\ 839}# + #{public?\ 840}# + #{exp\ 836}#) + (#{decorate-source\ 94}# (list 'set! - (list (if #{public?\ 2008}# - '@ - '@@) - #{mod\ 2006}# - #{var\ 2007}#) - #{exp\ 2004}#) - #{source\ 2002}#)))) - (lambda (#{var\ 2010}#) - (let ((#{atom-key\ 2011}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2011}# (quote (c))) + (list (if #{public?\ 840}# (quote @) (quote @@)) + #{mod\ 838}# + #{var\ 839}#) + #{exp\ 836}#) + #{source\ 834}#)))) + (lambda (#{var\ 842}#) + (let ((#{atom-key\ 843}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 843}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 2002}# - #{var\ 2010}# - #{exp\ 2004}#) - (#{decorate-source\ 1262}# - (list (quote set!) #{var\ 2010}# #{exp\ 2004}#) - #{source\ 2002}#))))))) - (#{build-global-reference\ 1269}# - (lambda (#{source\ 2012}# #{var\ 2013}# #{mod\ 2014}#) - (#{analyze-variable\ 1268}# - #{mod\ 2014}# - #{var\ 2013}# - (lambda (#{mod\ 2015}# #{var\ 2016}# #{public?\ 2017}#) - (let ((#{atom-key\ 2018}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2018}# (quote (c))) + #{source\ 834}# + #{var\ 842}# + #{exp\ 836}#) + (#{decorate-source\ 94}# + (list (quote set!) #{var\ 842}# #{exp\ 836}#) + #{source\ 834}#))))))) + (#{build-global-reference\ 101}# + (lambda (#{source\ 844}# #{var\ 845}# #{mod\ 846}#) + (#{analyze-variable\ 100}# + #{mod\ 846}# + #{var\ 845}# + (lambda (#{mod\ 847}# #{var\ 848}# #{public?\ 849}#) + (let ((#{atom-key\ 850}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 850}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 2012}# - #{mod\ 2015}# - #{var\ 2016}# - #{public?\ 2017}#) - (#{decorate-source\ 1262}# - (list (if #{public?\ 2017}# (quote @) (quote @@)) - #{mod\ 2015}# - #{var\ 2016}#) - #{source\ 2012}#)))) - (lambda (#{var\ 2019}#) - (let ((#{atom-key\ 2020}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2020}# (quote (c))) + #{source\ 844}# + #{mod\ 847}# + #{var\ 848}# + #{public?\ 849}#) + (#{decorate-source\ 94}# + (list (if #{public?\ 849}# (quote @) (quote @@)) + #{mod\ 847}# + #{var\ 848}#) + #{source\ 844}#)))) + (lambda (#{var\ 851}#) + (let ((#{atom-key\ 852}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 852}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 2012}# - #{var\ 2019}#) - (#{decorate-source\ 1262}# - #{var\ 2019}# - #{source\ 2012}#))))))) - (#{analyze-variable\ 1268}# - (lambda (#{mod\ 2021}# - #{var\ 2022}# - #{modref-cont\ 2023}# - #{bare-cont\ 2024}#) - (if (not #{mod\ 2021}#) - (#{bare-cont\ 2024}# #{var\ 2022}#) - (let ((#{kind\ 2025}# (car #{mod\ 2021}#)) - (#{mod\ 2026}# (cdr #{mod\ 2021}#))) - (if (memv #{kind\ 2025}# (quote (public))) - (#{modref-cont\ 2023}# - #{mod\ 2026}# - #{var\ 2022}# + #{source\ 844}# + #{var\ 851}#) + (#{decorate-source\ 94}# + #{var\ 851}# + #{source\ 844}#))))))) + (#{analyze-variable\ 100}# + (lambda (#{mod\ 853}# + #{var\ 854}# + #{modref-cont\ 855}# + #{bare-cont\ 856}#) + (if (not #{mod\ 853}#) + (#{bare-cont\ 856}# #{var\ 854}#) + (let ((#{kind\ 857}# (car #{mod\ 853}#)) + (#{mod\ 858}# (cdr #{mod\ 853}#))) + (if (memv #{kind\ 857}# (quote (public))) + (#{modref-cont\ 855}# + #{mod\ 858}# + #{var\ 854}# #t) - (if (memv #{kind\ 2025}# (quote (private))) + (if (memv #{kind\ 857}# (quote (private))) (if (not (equal? - #{mod\ 2026}# + #{mod\ 858}# (module-name (current-module)))) - (#{modref-cont\ 2023}# - #{mod\ 2026}# - #{var\ 2022}# + (#{modref-cont\ 855}# + #{mod\ 858}# + #{var\ 854}# #f) - (#{bare-cont\ 2024}# #{var\ 2022}#)) - (if (memv #{kind\ 2025}# (quote (bare))) - (#{bare-cont\ 2024}# #{var\ 2022}#) - (if (memv #{kind\ 2025}# (quote (hygiene))) + (#{bare-cont\ 856}# #{var\ 854}#)) + (if (memv #{kind\ 857}# (quote (bare))) + (#{bare-cont\ 856}# #{var\ 854}#) + (if (memv #{kind\ 857}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2026}# + #{mod\ 858}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2026}#) - #{var\ 2022}#) + (resolve-module #{mod\ 858}#) + #{var\ 854}#) #f) - (#{modref-cont\ 2023}# - #{mod\ 2026}# - #{var\ 2022}# + (#{modref-cont\ 855}# + #{mod\ 858}# + #{var\ 854}# #f) - (#{bare-cont\ 2024}# #{var\ 2022}#)) + (#{bare-cont\ 856}# #{var\ 854}#)) (syntax-violation #f "bad module kind" - #{var\ 2022}# - #{mod\ 2026}#))))))))) - (#{build-lexical-assignment\ 1267}# - (lambda (#{source\ 2027}# - #{name\ 2028}# - #{var\ 2029}# - #{exp\ 2030}#) - (let ((#{atom-key\ 2031}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2031}# (quote (c))) + #{var\ 854}# + #{mod\ 858}#))))))))) + (#{build-lexical-assignment\ 99}# + (lambda (#{source\ 859}# + #{name\ 860}# + #{var\ 861}# + #{exp\ 862}#) + (let ((#{atom-key\ 863}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 863}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 2027}# - #{name\ 2028}# - #{var\ 2029}# - #{exp\ 2030}#) - (#{decorate-source\ 1262}# - (list (quote set!) #{var\ 2029}# #{exp\ 2030}#) - #{source\ 2027}#))))) - (#{build-lexical-reference\ 1266}# - (lambda (#{type\ 2032}# - #{source\ 2033}# - #{name\ 2034}# - #{var\ 2035}#) - (let ((#{atom-key\ 2036}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2036}# (quote (c))) + #{source\ 859}# + #{name\ 860}# + #{var\ 861}# + #{exp\ 862}#) + (#{decorate-source\ 94}# + (list (quote set!) #{var\ 861}# #{exp\ 862}#) + #{source\ 859}#))))) + (#{build-lexical-reference\ 98}# + (lambda (#{type\ 864}# + #{source\ 865}# + #{name\ 866}# + #{var\ 867}#) + (let ((#{atom-key\ 868}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 868}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 2033}# - #{name\ 2034}# - #{var\ 2035}#) - (#{decorate-source\ 1262}# - #{var\ 2035}# - #{source\ 2033}#))))) - (#{build-conditional\ 1265}# - (lambda (#{source\ 2037}# - #{test-exp\ 2038}# - #{then-exp\ 2039}# - #{else-exp\ 2040}#) - (let ((#{atom-key\ 2041}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2041}# (quote (c))) + #{source\ 865}# + #{name\ 866}# + #{var\ 867}#) + (#{decorate-source\ 94}# + #{var\ 867}# + #{source\ 865}#))))) + (#{build-conditional\ 97}# + (lambda (#{source\ 869}# + #{test-exp\ 870}# + #{then-exp\ 871}# + #{else-exp\ 872}#) + (let ((#{atom-key\ 873}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 873}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 2037}# - #{test-exp\ 2038}# - #{then-exp\ 2039}# - #{else-exp\ 2040}#) - (#{decorate-source\ 1262}# - (if (equal? #{else-exp\ 2040}# (quote (if #f #f))) + #{source\ 869}# + #{test-exp\ 870}# + #{then-exp\ 871}# + #{else-exp\ 872}#) + (#{decorate-source\ 94}# + (if (equal? #{else-exp\ 872}# (quote (if #f #f))) (list 'if - #{test-exp\ 2038}# - #{then-exp\ 2039}#) + #{test-exp\ 870}# + #{then-exp\ 871}#) (list 'if - #{test-exp\ 2038}# - #{then-exp\ 2039}# - #{else-exp\ 2040}#)) - #{source\ 2037}#))))) - (#{build-application\ 1264}# - (lambda (#{source\ 2042}# - #{fun-exp\ 2043}# - #{arg-exps\ 2044}#) - (let ((#{atom-key\ 2045}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2045}# (quote (c))) + #{test-exp\ 870}# + #{then-exp\ 871}# + #{else-exp\ 872}#)) + #{source\ 869}#))))) + (#{build-application\ 96}# + (lambda (#{source\ 874}# + #{fun-exp\ 875}# + #{arg-exps\ 876}#) + (let ((#{atom-key\ 877}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 877}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 2042}# - #{fun-exp\ 2043}# - #{arg-exps\ 2044}#) - (#{decorate-source\ 1262}# - (cons #{fun-exp\ 2043}# #{arg-exps\ 2044}#) - #{source\ 2042}#))))) - (#{build-void\ 1263}# - (lambda (#{source\ 2046}#) - (let ((#{atom-key\ 2047}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2047}# (quote (c))) + #{source\ 874}# + #{fun-exp\ 875}# + #{arg-exps\ 876}#) + (#{decorate-source\ 94}# + (cons #{fun-exp\ 875}# #{arg-exps\ 876}#) + #{source\ 874}#))))) + (#{build-void\ 95}# + (lambda (#{source\ 878}#) + (let ((#{atom-key\ 879}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 879}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 2046}#) - (#{decorate-source\ 1262}# + #{source\ 878}#) + (#{decorate-source\ 94}# '(if #f #f) - #{source\ 2046}#))))) - (#{decorate-source\ 1262}# - (lambda (#{e\ 2048}# #{s\ 2049}#) + #{source\ 878}#))))) + (#{decorate-source\ 94}# + (lambda (#{e\ 880}# #{s\ 881}#) (begin - (if (if (pair? #{e\ 2048}#) #{s\ 2049}# #f) - (set-source-properties! #{e\ 2048}# #{s\ 2049}#)) - #{e\ 2048}#))) - (#{get-global-definition-hook\ 1261}# - (lambda (#{symbol\ 2050}# #{module\ 2051}#) + (if (if (pair? #{e\ 880}#) #{s\ 881}# #f) + (set-source-properties! #{e\ 880}# #{s\ 881}#)) + #{e\ 880}#))) + (#{get-global-definition-hook\ 93}# + (lambda (#{symbol\ 882}# #{module\ 883}#) (begin - (if (if (not #{module\ 2051}#) (current-module) #f) + (if (if (not #{module\ 883}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2050}#)) - (let ((#{v\ 2052}# - (module-variable - (if #{module\ 2051}# - (resolve-module (cdr #{module\ 2051}#)) - (current-module)) - #{symbol\ 2050}#))) - (if #{v\ 2052}# - (if (variable-bound? #{v\ 2052}#) - (let ((#{val\ 2053}# (variable-ref #{v\ 2052}#))) - (if (macro? #{val\ 2053}#) - (if (syncase-macro-type #{val\ 2053}#) - (cons (syncase-macro-type #{val\ 2053}#) - (syncase-macro-binding #{val\ 2053}#)) + #{symbol\ 882}#)) + (let ((#{v\ 884}# (module-variable + (if #{module\ 883}# + (resolve-module (cdr #{module\ 883}#)) + (current-module)) + #{symbol\ 882}#))) + (if #{v\ 884}# + (if (variable-bound? #{v\ 884}#) + (let ((#{val\ 885}# (variable-ref #{v\ 884}#))) + (if (macro? #{val\ 885}#) + (if (syncase-macro-type #{val\ 885}#) + (cons (syncase-macro-type #{val\ 885}#) + (syncase-macro-binding #{val\ 885}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 1260}# - (lambda (#{symbol\ 2054}# #{type\ 2055}# #{val\ 2056}#) - (let ((#{existing\ 2057}# - (let ((#{v\ 2058}# - (module-variable - (current-module) - #{symbol\ 2054}#))) - (if #{v\ 2058}# - (if (variable-bound? #{v\ 2058}#) - (let ((#{val\ 2059}# (variable-ref #{v\ 2058}#))) - (if (macro? #{val\ 2059}#) - (if (not (syncase-macro-type #{val\ 2059}#)) - #{val\ 2059}# + (#{put-global-definition-hook\ 92}# + (lambda (#{symbol\ 886}# #{type\ 887}# #{val\ 888}#) + (let ((#{existing\ 889}# + (let ((#{v\ 890}# (module-variable + (current-module) + #{symbol\ 886}#))) + (if #{v\ 890}# + (if (variable-bound? #{v\ 890}#) + (let ((#{val\ 891}# (variable-ref #{v\ 890}#))) + (if (macro? #{val\ 891}#) + (if (not (syncase-macro-type #{val\ 891}#)) + #{val\ 891}# #f) #f)) #f) #f)))) (module-define! (current-module) - #{symbol\ 2054}# - (if #{existing\ 2057}# + #{symbol\ 886}# + (if #{existing\ 889}# (make-extended-syncase-macro - #{existing\ 2057}# - #{type\ 2055}# - #{val\ 2056}#) - (make-syncase-macro #{type\ 2055}# #{val\ 2056}#)))))) - (#{local-eval-hook\ 1259}# - (lambda (#{x\ 2060}# #{mod\ 2061}#) + #{existing\ 889}# + #{type\ 887}# + #{val\ 888}#) + (make-syncase-macro #{type\ 887}# #{val\ 888}#)))))) + (#{local-eval-hook\ 91}# + (lambda (#{x\ 892}# #{mod\ 893}#) (primitive-eval - (list #{noexpand\ 1252}# - (let ((#{atom-key\ 2062}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2062}# (quote (c))) + (list #{noexpand\ 84}# + (let ((#{atom-key\ 894}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 894}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2060}#) - #{x\ 2060}#)))))) - (#{top-level-eval-hook\ 1258}# - (lambda (#{x\ 2063}# #{mod\ 2064}#) + #{x\ 892}#) + #{x\ 892}#)))))) + (#{top-level-eval-hook\ 90}# + (lambda (#{x\ 895}# #{mod\ 896}#) (primitive-eval - (list #{noexpand\ 1252}# - (let ((#{atom-key\ 2065}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2065}# (quote (c))) + (list #{noexpand\ 84}# + (let ((#{atom-key\ 897}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 897}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2063}#) - #{x\ 2063}#)))))) - (#{fx<\ 1257}# <) - (#{fx=\ 1256}# =) - (#{fx-\ 1255}# -) - (#{fx+\ 1254}# +) - (#{*mode*\ 1253}# (make-fluid)) - (#{noexpand\ 1252}# "noexpand")) + #{x\ 895}#) + #{x\ 895}#)))))) + (#{fx<\ 89}# <) + (#{fx=\ 88}# =) + (#{fx-\ 87}# -) + (#{fx+\ 86}# +) + (#{*mode*\ 85}# (make-fluid)) + (#{noexpand\ 84}# "noexpand")) (begin - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'core 'fluid-let-syntax - (lambda (#{e\ 2066}# - #{r\ 2067}# - #{w\ 2068}# - #{s\ 2069}# - #{mod\ 2070}#) - ((lambda (#{tmp\ 2071}#) - ((lambda (#{tmp\ 2072}#) - (if (if #{tmp\ 2072}# - (apply (lambda (#{_\ 2073}# - #{var\ 2074}# - #{val\ 2075}# - #{e1\ 2076}# - #{e2\ 2077}#) - (#{valid-bound-ids?\ 1322}# #{var\ 2074}#)) - #{tmp\ 2072}#) + (lambda (#{e\ 898}# + #{r\ 899}# + #{w\ 900}# + #{s\ 901}# + #{mod\ 902}#) + ((lambda (#{tmp\ 903}#) + ((lambda (#{tmp\ 904}#) + (if (if #{tmp\ 904}# + (apply (lambda (#{_\ 905}# + #{var\ 906}# + #{val\ 907}# + #{e1\ 908}# + #{e2\ 909}#) + (#{valid-bound-ids?\ 154}# #{var\ 906}#)) + #{tmp\ 904}#) #f) - (apply (lambda (#{_\ 2079}# - #{var\ 2080}# - #{val\ 2081}# - #{e1\ 2082}# - #{e2\ 2083}#) - (let ((#{names\ 2084}# - (map (lambda (#{x\ 2085}#) - (#{id-var-name\ 1319}# - #{x\ 2085}# - #{w\ 2068}#)) - #{var\ 2080}#))) + (apply (lambda (#{_\ 911}# + #{var\ 912}# + #{val\ 913}# + #{e1\ 914}# + #{e2\ 915}#) + (let ((#{names\ 916}# + (map (lambda (#{x\ 917}#) + (#{id-var-name\ 151}# + #{x\ 917}# + #{w\ 900}#)) + #{var\ 912}#))) (begin (for-each - (lambda (#{id\ 2087}# #{n\ 2088}#) - (let ((#{atom-key\ 2089}# - (#{binding-type\ 1289}# - (#{lookup\ 1294}# - #{n\ 2088}# - #{r\ 2067}# - #{mod\ 2070}#)))) - (if (memv #{atom-key\ 2089}# + (lambda (#{id\ 919}# #{n\ 920}#) + (let ((#{atom-key\ 921}# + (#{binding-type\ 121}# + (#{lookup\ 126}# + #{n\ 920}# + #{r\ 899}# + #{mod\ 902}#)))) + (if (memv #{atom-key\ 921}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2066}# - (#{source-wrap\ 1326}# - #{id\ 2087}# - #{w\ 2068}# - #{s\ 2069}# - #{mod\ 2070}#))))) - #{var\ 2080}# - #{names\ 2084}#) - (#{chi-body\ 1337}# - (cons #{e1\ 2082}# #{e2\ 2083}#) - (#{source-wrap\ 1326}# - #{e\ 2066}# - #{w\ 2068}# - #{s\ 2069}# - #{mod\ 2070}#) - (#{extend-env\ 1291}# - #{names\ 2084}# - (let ((#{trans-r\ 2092}# - (#{macros-only-env\ 1293}# - #{r\ 2067}#))) - (map (lambda (#{x\ 2093}#) + #{e\ 898}# + (#{source-wrap\ 158}# + #{id\ 919}# + #{w\ 900}# + #{s\ 901}# + #{mod\ 902}#))))) + #{var\ 912}# + #{names\ 916}#) + (#{chi-body\ 169}# + (cons #{e1\ 914}# #{e2\ 915}#) + (#{source-wrap\ 158}# + #{e\ 898}# + #{w\ 900}# + #{s\ 901}# + #{mod\ 902}#) + (#{extend-env\ 123}# + #{names\ 916}# + (let ((#{trans-r\ 924}# + (#{macros-only-env\ 125}# + #{r\ 899}#))) + (map (lambda (#{x\ 925}#) (cons 'macro - (#{eval-local-transformer\ 1340}# - (#{chi\ 1333}# - #{x\ 2093}# - #{trans-r\ 2092}# - #{w\ 2068}# - #{mod\ 2070}#) - #{mod\ 2070}#))) - #{val\ 2081}#)) - #{r\ 2067}#) - #{w\ 2068}# - #{mod\ 2070}#)))) - #{tmp\ 2072}#) - ((lambda (#{_\ 2095}#) + (#{eval-local-transformer\ 172}# + (#{chi\ 165}# + #{x\ 925}# + #{trans-r\ 924}# + #{w\ 900}# + #{mod\ 902}#) + #{mod\ 902}#))) + #{val\ 913}#)) + #{r\ 899}#) + #{w\ 900}# + #{mod\ 902}#)))) + #{tmp\ 904}#) + ((lambda (#{_\ 927}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 1326}# - #{e\ 2066}# - #{w\ 2068}# - #{s\ 2069}# - #{mod\ 2070}#))) - #{tmp\ 2071}#))) + (#{source-wrap\ 158}# + #{e\ 898}# + #{w\ 900}# + #{s\ 901}# + #{mod\ 902}#))) + #{tmp\ 903}#))) ($sc-dispatch - #{tmp\ 2071}# + #{tmp\ 903}# '(any #(each (any any)) any . each-any)))) - #{e\ 2066}#))) - (#{global-extend\ 1295}# + #{e\ 898}#))) + (#{global-extend\ 127}# 'core 'quote - (lambda (#{e\ 2096}# - #{r\ 2097}# - #{w\ 2098}# - #{s\ 2099}# - #{mod\ 2100}#) - ((lambda (#{tmp\ 2101}#) - ((lambda (#{tmp\ 2102}#) - (if #{tmp\ 2102}# - (apply (lambda (#{_\ 2103}# #{e\ 2104}#) - (#{build-data\ 1275}# - #{s\ 2099}# - (#{strip\ 1343}# #{e\ 2104}# #{w\ 2098}#))) - #{tmp\ 2102}#) - ((lambda (#{_\ 2105}#) + (lambda (#{e\ 928}# + #{r\ 929}# + #{w\ 930}# + #{s\ 931}# + #{mod\ 932}#) + ((lambda (#{tmp\ 933}#) + ((lambda (#{tmp\ 934}#) + (if #{tmp\ 934}# + (apply (lambda (#{_\ 935}# #{e\ 936}#) + (#{build-data\ 107}# + #{s\ 931}# + (#{strip\ 175}# #{e\ 936}# #{w\ 930}#))) + #{tmp\ 934}#) + ((lambda (#{_\ 937}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 1326}# - #{e\ 2096}# - #{w\ 2098}# - #{s\ 2099}# - #{mod\ 2100}#))) - #{tmp\ 2101}#))) - ($sc-dispatch #{tmp\ 2101}# (quote (any any))))) - #{e\ 2096}#))) - (#{global-extend\ 1295}# + (#{source-wrap\ 158}# + #{e\ 928}# + #{w\ 930}# + #{s\ 931}# + #{mod\ 932}#))) + #{tmp\ 933}#))) + ($sc-dispatch #{tmp\ 933}# (quote (any any))))) + #{e\ 928}#))) + (#{global-extend\ 127}# 'core 'syntax - (letrec ((#{regen\ 2113}# - (lambda (#{x\ 2114}#) - (let ((#{atom-key\ 2115}# (car #{x\ 2114}#))) - (if (memv #{atom-key\ 2115}# (quote (ref))) - (#{build-lexical-reference\ 1266}# + (letrec ((#{regen\ 945}# + (lambda (#{x\ 946}#) + (let ((#{atom-key\ 947}# (car #{x\ 946}#))) + (if (memv #{atom-key\ 947}# (quote (ref))) + (#{build-lexical-reference\ 98}# 'value #f - (cadr #{x\ 2114}#) - (cadr #{x\ 2114}#)) - (if (memv #{atom-key\ 2115}# (quote (primitive))) - (#{build-primref\ 1274}# #f (cadr #{x\ 2114}#)) - (if (memv #{atom-key\ 2115}# (quote (quote))) - (#{build-data\ 1275}# #f (cadr #{x\ 2114}#)) - (if (memv #{atom-key\ 2115}# (quote (lambda))) - (#{build-lambda\ 1273}# + (cadr #{x\ 946}#) + (cadr #{x\ 946}#)) + (if (memv #{atom-key\ 947}# (quote (primitive))) + (#{build-primref\ 106}# #f (cadr #{x\ 946}#)) + (if (memv #{atom-key\ 947}# (quote (quote))) + (#{build-data\ 107}# #f (cadr #{x\ 946}#)) + (if (memv #{atom-key\ 947}# (quote (lambda))) + (#{build-lambda\ 105}# #f - (cadr #{x\ 2114}#) - (cadr #{x\ 2114}#) + (cadr #{x\ 946}#) + (cadr #{x\ 946}#) #f - (#{regen\ 2113}# (caddr #{x\ 2114}#))) - (#{build-application\ 1264}# + (#{regen\ 945}# (caddr #{x\ 946}#))) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# #f (car #{x\ 2114}#)) - (map #{regen\ 2113}# - (cdr #{x\ 2114}#)))))))))) - (#{gen-vector\ 2112}# - (lambda (#{x\ 2116}#) - (if (eq? (car #{x\ 2116}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2116}#)) - (if (eq? (car #{x\ 2116}#) (quote quote)) + (#{build-primref\ 106}# #f (car #{x\ 946}#)) + (map #{regen\ 945}# (cdr #{x\ 946}#)))))))))) + (#{gen-vector\ 944}# + (lambda (#{x\ 948}#) + (if (eq? (car #{x\ 948}#) (quote list)) + (cons (quote vector) (cdr #{x\ 948}#)) + (if (eq? (car #{x\ 948}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 2116}#))) - (list (quote list->vector) #{x\ 2116}#))))) - (#{gen-append\ 2111}# - (lambda (#{x\ 2117}# #{y\ 2118}#) - (if (equal? #{y\ 2118}# (quote (quote ()))) - #{x\ 2117}# - (list (quote append) #{x\ 2117}# #{y\ 2118}#)))) - (#{gen-cons\ 2110}# - (lambda (#{x\ 2119}# #{y\ 2120}#) - (let ((#{atom-key\ 2121}# (car #{y\ 2120}#))) - (if (memv #{atom-key\ 2121}# (quote (quote))) - (if (eq? (car #{x\ 2119}#) (quote quote)) + (list->vector (cadr #{x\ 948}#))) + (list (quote list->vector) #{x\ 948}#))))) + (#{gen-append\ 943}# + (lambda (#{x\ 949}# #{y\ 950}#) + (if (equal? #{y\ 950}# (quote (quote ()))) + #{x\ 949}# + (list (quote append) #{x\ 949}# #{y\ 950}#)))) + (#{gen-cons\ 942}# + (lambda (#{x\ 951}# #{y\ 952}#) + (let ((#{atom-key\ 953}# (car #{y\ 952}#))) + (if (memv #{atom-key\ 953}# (quote (quote))) + (if (eq? (car #{x\ 951}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 2119}#) (cadr #{y\ 2120}#))) - (if (eq? (cadr #{y\ 2120}#) (quote ())) - (list (quote list) #{x\ 2119}#) - (list (quote cons) #{x\ 2119}# #{y\ 2120}#))) - (if (memv #{atom-key\ 2121}# (quote (list))) + (cons (cadr #{x\ 951}#) (cadr #{y\ 952}#))) + (if (eq? (cadr #{y\ 952}#) (quote ())) + (list (quote list) #{x\ 951}#) + (list (quote cons) #{x\ 951}# #{y\ 952}#))) + (if (memv #{atom-key\ 953}# (quote (list))) (cons 'list - (cons #{x\ 2119}# (cdr #{y\ 2120}#))) - (list (quote cons) #{x\ 2119}# #{y\ 2120}#)))))) - (#{gen-map\ 2109}# - (lambda (#{e\ 2122}# #{map-env\ 2123}#) - (let ((#{formals\ 2124}# (map cdr #{map-env\ 2123}#)) - (#{actuals\ 2125}# - (map (lambda (#{x\ 2126}#) - (list (quote ref) (car #{x\ 2126}#))) - #{map-env\ 2123}#))) - (if (eq? (car #{e\ 2122}#) (quote ref)) - (car #{actuals\ 2125}#) + (cons #{x\ 951}# (cdr #{y\ 952}#))) + (list (quote cons) #{x\ 951}# #{y\ 952}#)))))) + (#{gen-map\ 941}# + (lambda (#{e\ 954}# #{map-env\ 955}#) + (let ((#{formals\ 956}# (map cdr #{map-env\ 955}#)) + (#{actuals\ 957}# + (map (lambda (#{x\ 958}#) + (list (quote ref) (car #{x\ 958}#))) + #{map-env\ 955}#))) + (if (eq? (car #{e\ 954}#) (quote ref)) + (car #{actuals\ 957}#) (if (and-map - (lambda (#{x\ 2127}#) - (if (eq? (car #{x\ 2127}#) (quote ref)) - (memq (cadr #{x\ 2127}#) #{formals\ 2124}#) + (lambda (#{x\ 959}#) + (if (eq? (car #{x\ 959}#) (quote ref)) + (memq (cadr #{x\ 959}#) #{formals\ 956}#) #f)) - (cdr #{e\ 2122}#)) + (cdr #{e\ 954}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2122}#)) - (map (let ((#{r\ 2128}# - (map cons - #{formals\ 2124}# - #{actuals\ 2125}#))) - (lambda (#{x\ 2129}#) - (cdr (assq (cadr #{x\ 2129}#) - #{r\ 2128}#)))) - (cdr #{e\ 2122}#)))) + (car #{e\ 954}#)) + (map (let ((#{r\ 960}# (map cons + #{formals\ 956}# + #{actuals\ 957}#))) + (lambda (#{x\ 961}#) + (cdr (assq (cadr #{x\ 961}#) + #{r\ 960}#)))) + (cdr #{e\ 954}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2124}# - #{e\ 2122}#) - #{actuals\ 2125}#))))))) - (#{gen-mappend\ 2108}# - (lambda (#{e\ 2130}# #{map-env\ 2131}#) + #{formals\ 956}# + #{e\ 954}#) + #{actuals\ 957}#))))))) + (#{gen-mappend\ 940}# + (lambda (#{e\ 962}# #{map-env\ 963}#) (list 'apply '(primitive append) - (#{gen-map\ 2109}# #{e\ 2130}# #{map-env\ 2131}#)))) - (#{gen-ref\ 2107}# - (lambda (#{src\ 2132}# - #{var\ 2133}# - #{level\ 2134}# - #{maps\ 2135}#) - (if (#{fx=\ 1256}# #{level\ 2134}# 0) - (values #{var\ 2133}# #{maps\ 2135}#) - (if (null? #{maps\ 2135}#) + (#{gen-map\ 941}# #{e\ 962}# #{map-env\ 963}#)))) + (#{gen-ref\ 939}# + (lambda (#{src\ 964}# + #{var\ 965}# + #{level\ 966}# + #{maps\ 967}#) + (if (#{fx=\ 88}# #{level\ 966}# 0) + (values #{var\ 965}# #{maps\ 967}#) + (if (null? #{maps\ 967}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2132}#) + #{src\ 964}#) (call-with-values (lambda () - (#{gen-ref\ 2107}# - #{src\ 2132}# - #{var\ 2133}# - (#{fx-\ 1255}# #{level\ 2134}# 1) - (cdr #{maps\ 2135}#))) - (lambda (#{outer-var\ 2136}# #{outer-maps\ 2137}#) - (let ((#{b\ 2138}# - (assq #{outer-var\ 2136}# - (car #{maps\ 2135}#)))) - (if #{b\ 2138}# - (values (cdr #{b\ 2138}#) #{maps\ 2135}#) - (let ((#{inner-var\ 2139}# - (#{gen-var\ 1344}# (quote tmp)))) + (#{gen-ref\ 939}# + #{src\ 964}# + #{var\ 965}# + (#{fx-\ 87}# #{level\ 966}# 1) + (cdr #{maps\ 967}#))) + (lambda (#{outer-var\ 968}# #{outer-maps\ 969}#) + (let ((#{b\ 970}# (assq #{outer-var\ 968}# + (car #{maps\ 967}#)))) + (if #{b\ 970}# + (values (cdr #{b\ 970}#) #{maps\ 967}#) + (let ((#{inner-var\ 971}# + (#{gen-var\ 176}# (quote tmp)))) (values - #{inner-var\ 2139}# - (cons (cons (cons #{outer-var\ 2136}# - #{inner-var\ 2139}#) - (car #{maps\ 2135}#)) - #{outer-maps\ 2137}#))))))))))) - (#{gen-syntax\ 2106}# - (lambda (#{src\ 2140}# - #{e\ 2141}# - #{r\ 2142}# - #{maps\ 2143}# - #{ellipsis?\ 2144}# - #{mod\ 2145}#) - (if (#{id?\ 1297}# #{e\ 2141}#) - (let ((#{label\ 2146}# - (#{id-var-name\ 1319}# - #{e\ 2141}# - '(())))) - (let ((#{b\ 2147}# - (#{lookup\ 1294}# - #{label\ 2146}# - #{r\ 2142}# - #{mod\ 2145}#))) - (if (eq? (#{binding-type\ 1289}# #{b\ 2147}#) + #{inner-var\ 971}# + (cons (cons (cons #{outer-var\ 968}# + #{inner-var\ 971}#) + (car #{maps\ 967}#)) + #{outer-maps\ 969}#))))))))))) + (#{gen-syntax\ 938}# + (lambda (#{src\ 972}# + #{e\ 973}# + #{r\ 974}# + #{maps\ 975}# + #{ellipsis?\ 976}# + #{mod\ 977}#) + (if (#{id?\ 129}# #{e\ 973}#) + (let ((#{label\ 978}# + (#{id-var-name\ 151}# #{e\ 973}# (quote (()))))) + (let ((#{b\ 979}# (#{lookup\ 126}# + #{label\ 978}# + #{r\ 974}# + #{mod\ 977}#))) + (if (eq? (#{binding-type\ 121}# #{b\ 979}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 2148}# - (#{binding-value\ 1290}# - #{b\ 2147}#))) - (#{gen-ref\ 2107}# - #{src\ 2140}# - (car #{var.lev\ 2148}#) - (cdr #{var.lev\ 2148}#) - #{maps\ 2143}#))) - (lambda (#{var\ 2149}# #{maps\ 2150}#) + (let ((#{var.lev\ 980}# + (#{binding-value\ 122}# #{b\ 979}#))) + (#{gen-ref\ 939}# + #{src\ 972}# + (car #{var.lev\ 980}#) + (cdr #{var.lev\ 980}#) + #{maps\ 975}#))) + (lambda (#{var\ 981}# #{maps\ 982}#) (values - (list (quote ref) #{var\ 2149}#) - #{maps\ 2150}#))) - (if (#{ellipsis?\ 2144}# #{e\ 2141}#) + (list (quote ref) #{var\ 981}#) + #{maps\ 982}#))) + (if (#{ellipsis?\ 976}# #{e\ 973}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2140}#) + #{src\ 972}#) (values - (list (quote quote) #{e\ 2141}#) - #{maps\ 2143}#))))) - ((lambda (#{tmp\ 2151}#) - ((lambda (#{tmp\ 2152}#) - (if (if #{tmp\ 2152}# - (apply (lambda (#{dots\ 2153}# #{e\ 2154}#) - (#{ellipsis?\ 2144}# - #{dots\ 2153}#)) - #{tmp\ 2152}#) + (list (quote quote) #{e\ 973}#) + #{maps\ 975}#))))) + ((lambda (#{tmp\ 983}#) + ((lambda (#{tmp\ 984}#) + (if (if #{tmp\ 984}# + (apply (lambda (#{dots\ 985}# #{e\ 986}#) + (#{ellipsis?\ 976}# #{dots\ 985}#)) + #{tmp\ 984}#) #f) - (apply (lambda (#{dots\ 2155}# #{e\ 2156}#) - (#{gen-syntax\ 2106}# - #{src\ 2140}# - #{e\ 2156}# - #{r\ 2142}# - #{maps\ 2143}# - (lambda (#{x\ 2157}#) #f) - #{mod\ 2145}#)) - #{tmp\ 2152}#) - ((lambda (#{tmp\ 2158}#) - (if (if #{tmp\ 2158}# - (apply (lambda (#{x\ 2159}# - #{dots\ 2160}# - #{y\ 2161}#) - (#{ellipsis?\ 2144}# - #{dots\ 2160}#)) - #{tmp\ 2158}#) + (apply (lambda (#{dots\ 987}# #{e\ 988}#) + (#{gen-syntax\ 938}# + #{src\ 972}# + #{e\ 988}# + #{r\ 974}# + #{maps\ 975}# + (lambda (#{x\ 989}#) #f) + #{mod\ 977}#)) + #{tmp\ 984}#) + ((lambda (#{tmp\ 990}#) + (if (if #{tmp\ 990}# + (apply (lambda (#{x\ 991}# + #{dots\ 992}# + #{y\ 993}#) + (#{ellipsis?\ 976}# + #{dots\ 992}#)) + #{tmp\ 990}#) #f) - (apply (lambda (#{x\ 2162}# - #{dots\ 2163}# - #{y\ 2164}#) - (letrec ((#{f\ 2165}# - (lambda (#{y\ 2166}# - #{k\ 2167}#) - ((lambda (#{tmp\ 2171}#) - ((lambda (#{tmp\ 2172}#) - (if (if #{tmp\ 2172}# - (apply (lambda (#{dots\ 2173}# - #{y\ 2174}#) - (#{ellipsis?\ 2144}# - #{dots\ 2173}#)) - #{tmp\ 2172}#) - #f) - (apply (lambda (#{dots\ 2175}# - #{y\ 2176}#) - (#{f\ 2165}# - #{y\ 2176}# - (lambda (#{maps\ 2177}#) + (apply (lambda (#{x\ 994}# + #{dots\ 995}# + #{y\ 996}#) + (letrec ((#{f\ 997}# (lambda (#{y\ 998}# + #{k\ 999}#) + ((lambda (#{tmp\ 1003}#) + ((lambda (#{tmp\ 1004}#) + (if (if #{tmp\ 1004}# + (apply (lambda (#{dots\ 1005}# + #{y\ 1006}#) + (#{ellipsis?\ 976}# + #{dots\ 1005}#)) + #{tmp\ 1004}#) + #f) + (apply (lambda (#{dots\ 1007}# + #{y\ 1008}#) + (#{f\ 997}# #{y\ 1008}# + (lambda (#{maps\ 1009}#) + (call-with-values + (lambda () + (#{k\ 999}# (cons '() + #{maps\ 1009}#))) + (lambda (#{x\ 1010}# + #{maps\ 1011}#) + (if (null? (car #{maps\ 1011}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 972}#) + (values + (#{gen-mappend\ 940}# + #{x\ 1010}# + (car #{maps\ 1011}#)) + (cdr #{maps\ 1011}#)))))))) + #{tmp\ 1004}#) + ((lambda (#{_\ 1012}#) (call-with-values (lambda () - (#{k\ 2167}# - (cons '() - #{maps\ 2177}#))) - (lambda (#{x\ 2178}# - #{maps\ 2179}#) - (if (null? (car #{maps\ 2179}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src\ 2140}#) - (values - (#{gen-mappend\ 2108}# - #{x\ 2178}# - (car #{maps\ 2179}#)) - (cdr #{maps\ 2179}#)))))))) - #{tmp\ 2172}#) - ((lambda (#{_\ 2180}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2106}# - #{src\ 2140}# - #{y\ 2166}# - #{r\ 2142}# - #{maps\ 2143}# - #{ellipsis?\ 2144}# - #{mod\ 2145}#)) - (lambda (#{y\ 2181}# - #{maps\ 2182}#) - (call-with-values - (lambda () - (#{k\ 2167}# - #{maps\ 2182}#)) - (lambda (#{x\ 2183}# - #{maps\ 2184}#) - (values - (#{gen-append\ 2111}# - #{x\ 2183}# - #{y\ 2181}#) - #{maps\ 2184}#)))))) - #{tmp\ 2171}#))) - ($sc-dispatch - #{tmp\ 2171}# - '(any . any)))) - #{y\ 2166}#)))) - (#{f\ 2165}# - #{y\ 2164}# - (lambda (#{maps\ 2168}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2106}# - #{src\ 2140}# - #{x\ 2162}# - #{r\ 2142}# - (cons '() - #{maps\ 2168}#) - #{ellipsis?\ 2144}# - #{mod\ 2145}#)) - (lambda (#{x\ 2169}# - #{maps\ 2170}#) - (if (null? (car #{maps\ 2170}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src\ 2140}#) - (values - (#{gen-map\ 2109}# - #{x\ 2169}# - (car #{maps\ 2170}#)) - (cdr #{maps\ 2170}#))))))))) - #{tmp\ 2158}#) - ((lambda (#{tmp\ 2185}#) - (if #{tmp\ 2185}# - (apply (lambda (#{x\ 2186}# - #{y\ 2187}#) + (#{gen-syntax\ 938}# + #{src\ 972}# + #{y\ 998}# + #{r\ 974}# + #{maps\ 975}# + #{ellipsis?\ 976}# + #{mod\ 977}#)) + (lambda (#{y\ 1013}# + #{maps\ 1014}#) + (call-with-values + (lambda () + (#{k\ 999}# #{maps\ 1014}#)) + (lambda (#{x\ 1015}# + #{maps\ 1016}#) + (values + (#{gen-append\ 943}# + #{x\ 1015}# + #{y\ 1013}#) + #{maps\ 1016}#)))))) + #{tmp\ 1003}#))) + ($sc-dispatch + #{tmp\ 1003}# + '(any . + any)))) + #{y\ 998}#)))) + (#{f\ 997}# #{y\ 996}# + (lambda (#{maps\ 1000}#) + (call-with-values + (lambda () + (#{gen-syntax\ 938}# + #{src\ 972}# + #{x\ 994}# + #{r\ 974}# + (cons '() + #{maps\ 1000}#) + #{ellipsis?\ 976}# + #{mod\ 977}#)) + (lambda (#{x\ 1001}# + #{maps\ 1002}#) + (if (null? (car #{maps\ 1002}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 972}#) + (values + (#{gen-map\ 941}# + #{x\ 1001}# + (car #{maps\ 1002}#)) + (cdr #{maps\ 1002}#))))))))) + #{tmp\ 990}#) + ((lambda (#{tmp\ 1017}#) + (if #{tmp\ 1017}# + (apply (lambda (#{x\ 1018}# + #{y\ 1019}#) (call-with-values (lambda () - (#{gen-syntax\ 2106}# - #{src\ 2140}# - #{x\ 2186}# - #{r\ 2142}# - #{maps\ 2143}# - #{ellipsis?\ 2144}# - #{mod\ 2145}#)) - (lambda (#{x\ 2188}# - #{maps\ 2189}#) + (#{gen-syntax\ 938}# + #{src\ 972}# + #{x\ 1018}# + #{r\ 974}# + #{maps\ 975}# + #{ellipsis?\ 976}# + #{mod\ 977}#)) + (lambda (#{x\ 1020}# + #{maps\ 1021}#) (call-with-values (lambda () - (#{gen-syntax\ 2106}# - #{src\ 2140}# - #{y\ 2187}# - #{r\ 2142}# - #{maps\ 2189}# - #{ellipsis?\ 2144}# - #{mod\ 2145}#)) - (lambda (#{y\ 2190}# - #{maps\ 2191}#) + (#{gen-syntax\ 938}# + #{src\ 972}# + #{y\ 1019}# + #{r\ 974}# + #{maps\ 1021}# + #{ellipsis?\ 976}# + #{mod\ 977}#)) + (lambda (#{y\ 1022}# + #{maps\ 1023}#) (values - (#{gen-cons\ 2110}# - #{x\ 2188}# - #{y\ 2190}#) - #{maps\ 2191}#)))))) - #{tmp\ 2185}#) - ((lambda (#{tmp\ 2192}#) - (if #{tmp\ 2192}# - (apply (lambda (#{e1\ 2193}# - #{e2\ 2194}#) + (#{gen-cons\ 942}# + #{x\ 1020}# + #{y\ 1022}#) + #{maps\ 1023}#)))))) + #{tmp\ 1017}#) + ((lambda (#{tmp\ 1024}#) + (if #{tmp\ 1024}# + (apply (lambda (#{e1\ 1025}# + #{e2\ 1026}#) (call-with-values (lambda () - (#{gen-syntax\ 2106}# - #{src\ 2140}# - (cons #{e1\ 2193}# - #{e2\ 2194}#) - #{r\ 2142}# - #{maps\ 2143}# - #{ellipsis?\ 2144}# - #{mod\ 2145}#)) - (lambda (#{e\ 2196}# - #{maps\ 2197}#) + (#{gen-syntax\ 938}# + #{src\ 972}# + (cons #{e1\ 1025}# + #{e2\ 1026}#) + #{r\ 974}# + #{maps\ 975}# + #{ellipsis?\ 976}# + #{mod\ 977}#)) + (lambda (#{e\ 1028}# + #{maps\ 1029}#) (values - (#{gen-vector\ 2112}# - #{e\ 2196}#) - #{maps\ 2197}#)))) - #{tmp\ 2192}#) - ((lambda (#{_\ 2198}#) + (#{gen-vector\ 944}# + #{e\ 1028}#) + #{maps\ 1029}#)))) + #{tmp\ 1024}#) + ((lambda (#{_\ 1030}#) (values (list 'quote - #{e\ 2141}#) - #{maps\ 2143}#)) - #{tmp\ 2151}#))) + #{e\ 973}#) + #{maps\ 975}#)) + #{tmp\ 983}#))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 983}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 983}# '(any . any))))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 983}# '(any any . any))))) - ($sc-dispatch #{tmp\ 2151}# (quote (any any))))) - #{e\ 2141}#))))) - (lambda (#{e\ 2199}# - #{r\ 2200}# - #{w\ 2201}# - #{s\ 2202}# - #{mod\ 2203}#) - (let ((#{e\ 2204}# - (#{source-wrap\ 1326}# - #{e\ 2199}# - #{w\ 2201}# - #{s\ 2202}# - #{mod\ 2203}#))) - ((lambda (#{tmp\ 2205}#) - ((lambda (#{tmp\ 2206}#) - (if #{tmp\ 2206}# - (apply (lambda (#{_\ 2207}# #{x\ 2208}#) + ($sc-dispatch #{tmp\ 983}# (quote (any any))))) + #{e\ 973}#))))) + (lambda (#{e\ 1031}# + #{r\ 1032}# + #{w\ 1033}# + #{s\ 1034}# + #{mod\ 1035}#) + (let ((#{e\ 1036}# + (#{source-wrap\ 158}# + #{e\ 1031}# + #{w\ 1033}# + #{s\ 1034}# + #{mod\ 1035}#))) + ((lambda (#{tmp\ 1037}#) + ((lambda (#{tmp\ 1038}#) + (if #{tmp\ 1038}# + (apply (lambda (#{_\ 1039}# #{x\ 1040}#) (call-with-values (lambda () - (#{gen-syntax\ 2106}# - #{e\ 2204}# - #{x\ 2208}# - #{r\ 2200}# + (#{gen-syntax\ 938}# + #{e\ 1036}# + #{x\ 1040}# + #{r\ 1032}# '() - #{ellipsis?\ 1342}# - #{mod\ 2203}#)) - (lambda (#{e\ 2209}# #{maps\ 2210}#) - (#{regen\ 2113}# #{e\ 2209}#)))) - #{tmp\ 2206}#) - ((lambda (#{_\ 2211}#) + #{ellipsis?\ 174}# + #{mod\ 1035}#)) + (lambda (#{e\ 1041}# #{maps\ 1042}#) + (#{regen\ 945}# #{e\ 1041}#)))) + #{tmp\ 1038}#) + ((lambda (#{_\ 1043}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2204}#)) - #{tmp\ 2205}#))) - ($sc-dispatch #{tmp\ 2205}# (quote (any any))))) - #{e\ 2204}#))))) - (#{global-extend\ 1295}# + #{e\ 1036}#)) + #{tmp\ 1037}#))) + ($sc-dispatch #{tmp\ 1037}# (quote (any any))))) + #{e\ 1036}#))))) + (#{global-extend\ 127}# 'core 'lambda - (lambda (#{e\ 2212}# - #{r\ 2213}# - #{w\ 2214}# - #{s\ 2215}# - #{mod\ 2216}#) - ((lambda (#{tmp\ 2217}#) - ((lambda (#{tmp\ 2218}#) - (if #{tmp\ 2218}# - (apply (lambda (#{_\ 2219}# #{c\ 2220}#) - (#{chi-lambda-clause\ 1338}# - (#{source-wrap\ 1326}# - #{e\ 2212}# - #{w\ 2214}# - #{s\ 2215}# - #{mod\ 2216}#) + (lambda (#{e\ 1044}# + #{r\ 1045}# + #{w\ 1046}# + #{s\ 1047}# + #{mod\ 1048}#) + ((lambda (#{tmp\ 1049}#) + ((lambda (#{tmp\ 1050}#) + (if #{tmp\ 1050}# + (apply (lambda (#{_\ 1051}# #{c\ 1052}#) + (#{chi-lambda-clause\ 170}# + (#{source-wrap\ 158}# + #{e\ 1044}# + #{w\ 1046}# + #{s\ 1047}# + #{mod\ 1048}#) #f - #{c\ 2220}# - #{r\ 2213}# - #{w\ 2214}# - #{mod\ 2216}# - (lambda (#{names\ 2221}# - #{vars\ 2222}# - #{docstring\ 2223}# - #{body\ 2224}#) - (#{build-lambda\ 1273}# - #{s\ 2215}# - #{names\ 2221}# - #{vars\ 2222}# - #{docstring\ 2223}# - #{body\ 2224}#)))) - #{tmp\ 2218}#) + #{c\ 1052}# + #{r\ 1045}# + #{w\ 1046}# + #{mod\ 1048}# + (lambda (#{names\ 1053}# + #{vars\ 1054}# + #{docstring\ 1055}# + #{body\ 1056}#) + (#{build-lambda\ 105}# + #{s\ 1047}# + #{names\ 1053}# + #{vars\ 1054}# + #{docstring\ 1055}# + #{body\ 1056}#)))) + #{tmp\ 1050}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2217}#))) - ($sc-dispatch #{tmp\ 2217}# (quote (any . any))))) - #{e\ 2212}#))) - (#{global-extend\ 1295}# + #{tmp\ 1049}#))) + ($sc-dispatch #{tmp\ 1049}# (quote (any . any))))) + #{e\ 1044}#))) + (#{global-extend\ 127}# 'core 'let - (letrec ((#{chi-let\ 2225}# - (lambda (#{e\ 2226}# - #{r\ 2227}# - #{w\ 2228}# - #{s\ 2229}# - #{mod\ 2230}# - #{constructor\ 2231}# - #{ids\ 2232}# - #{vals\ 2233}# - #{exps\ 2234}#) - (if (not (#{valid-bound-ids?\ 1322}# #{ids\ 2232}#)) + (letrec ((#{chi-let\ 1057}# + (lambda (#{e\ 1058}# + #{r\ 1059}# + #{w\ 1060}# + #{s\ 1061}# + #{mod\ 1062}# + #{constructor\ 1063}# + #{ids\ 1064}# + #{vals\ 1065}# + #{exps\ 1066}#) + (if (not (#{valid-bound-ids?\ 154}# #{ids\ 1064}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 2226}#) - (let ((#{labels\ 2235}# - (#{gen-labels\ 1303}# #{ids\ 2232}#)) - (#{new-vars\ 2236}# - (map #{gen-var\ 1344}# #{ids\ 2232}#))) - (let ((#{nw\ 2237}# - (#{make-binding-wrap\ 1314}# - #{ids\ 2232}# - #{labels\ 2235}# - #{w\ 2228}#)) - (#{nr\ 2238}# - (#{extend-var-env\ 1292}# - #{labels\ 2235}# - #{new-vars\ 2236}# - #{r\ 2227}#))) - (#{constructor\ 2231}# - #{s\ 2229}# - (map syntax->datum #{ids\ 2232}#) - #{new-vars\ 2236}# - (map (lambda (#{x\ 2239}#) - (#{chi\ 1333}# - #{x\ 2239}# - #{r\ 2227}# - #{w\ 2228}# - #{mod\ 2230}#)) - #{vals\ 2233}#) - (#{chi-body\ 1337}# - #{exps\ 2234}# - (#{source-wrap\ 1326}# - #{e\ 2226}# - #{nw\ 2237}# - #{s\ 2229}# - #{mod\ 2230}#) - #{nr\ 2238}# - #{nw\ 2237}# - #{mod\ 2230}#)))))))) - (lambda (#{e\ 2240}# - #{r\ 2241}# - #{w\ 2242}# - #{s\ 2243}# - #{mod\ 2244}#) - ((lambda (#{tmp\ 2245}#) - ((lambda (#{tmp\ 2246}#) - (if (if #{tmp\ 2246}# - (apply (lambda (#{_\ 2247}# - #{id\ 2248}# - #{val\ 2249}# - #{e1\ 2250}# - #{e2\ 2251}#) - (and-map #{id?\ 1297}# #{id\ 2248}#)) - #{tmp\ 2246}#) + #{e\ 1058}#) + (let ((#{labels\ 1067}# + (#{gen-labels\ 135}# #{ids\ 1064}#)) + (#{new-vars\ 1068}# + (map #{gen-var\ 176}# #{ids\ 1064}#))) + (let ((#{nw\ 1069}# + (#{make-binding-wrap\ 146}# + #{ids\ 1064}# + #{labels\ 1067}# + #{w\ 1060}#)) + (#{nr\ 1070}# + (#{extend-var-env\ 124}# + #{labels\ 1067}# + #{new-vars\ 1068}# + #{r\ 1059}#))) + (#{constructor\ 1063}# + #{s\ 1061}# + (map syntax->datum #{ids\ 1064}#) + #{new-vars\ 1068}# + (map (lambda (#{x\ 1071}#) + (#{chi\ 165}# + #{x\ 1071}# + #{r\ 1059}# + #{w\ 1060}# + #{mod\ 1062}#)) + #{vals\ 1065}#) + (#{chi-body\ 169}# + #{exps\ 1066}# + (#{source-wrap\ 158}# + #{e\ 1058}# + #{nw\ 1069}# + #{s\ 1061}# + #{mod\ 1062}#) + #{nr\ 1070}# + #{nw\ 1069}# + #{mod\ 1062}#)))))))) + (lambda (#{e\ 1072}# + #{r\ 1073}# + #{w\ 1074}# + #{s\ 1075}# + #{mod\ 1076}#) + ((lambda (#{tmp\ 1077}#) + ((lambda (#{tmp\ 1078}#) + (if (if #{tmp\ 1078}# + (apply (lambda (#{_\ 1079}# + #{id\ 1080}# + #{val\ 1081}# + #{e1\ 1082}# + #{e2\ 1083}#) + (and-map #{id?\ 129}# #{id\ 1080}#)) + #{tmp\ 1078}#) #f) - (apply (lambda (#{_\ 2253}# - #{id\ 2254}# - #{val\ 2255}# - #{e1\ 2256}# - #{e2\ 2257}#) - (#{chi-let\ 2225}# - #{e\ 2240}# - #{r\ 2241}# - #{w\ 2242}# - #{s\ 2243}# - #{mod\ 2244}# - #{build-let\ 1277}# - #{id\ 2254}# - #{val\ 2255}# - (cons #{e1\ 2256}# #{e2\ 2257}#))) - #{tmp\ 2246}#) - ((lambda (#{tmp\ 2261}#) - (if (if #{tmp\ 2261}# - (apply (lambda (#{_\ 2262}# - #{f\ 2263}# - #{id\ 2264}# - #{val\ 2265}# - #{e1\ 2266}# - #{e2\ 2267}#) - (if (#{id?\ 1297}# #{f\ 2263}#) - (and-map #{id?\ 1297}# #{id\ 2264}#) + (apply (lambda (#{_\ 1085}# + #{id\ 1086}# + #{val\ 1087}# + #{e1\ 1088}# + #{e2\ 1089}#) + (#{chi-let\ 1057}# + #{e\ 1072}# + #{r\ 1073}# + #{w\ 1074}# + #{s\ 1075}# + #{mod\ 1076}# + #{build-let\ 109}# + #{id\ 1086}# + #{val\ 1087}# + (cons #{e1\ 1088}# #{e2\ 1089}#))) + #{tmp\ 1078}#) + ((lambda (#{tmp\ 1093}#) + (if (if #{tmp\ 1093}# + (apply (lambda (#{_\ 1094}# + #{f\ 1095}# + #{id\ 1096}# + #{val\ 1097}# + #{e1\ 1098}# + #{e2\ 1099}#) + (if (#{id?\ 129}# #{f\ 1095}#) + (and-map #{id?\ 129}# #{id\ 1096}#) #f)) - #{tmp\ 2261}#) + #{tmp\ 1093}#) #f) - (apply (lambda (#{_\ 2269}# - #{f\ 2270}# - #{id\ 2271}# - #{val\ 2272}# - #{e1\ 2273}# - #{e2\ 2274}#) - (#{chi-let\ 2225}# - #{e\ 2240}# - #{r\ 2241}# - #{w\ 2242}# - #{s\ 2243}# - #{mod\ 2244}# - #{build-named-let\ 1278}# - (cons #{f\ 2270}# #{id\ 2271}#) - #{val\ 2272}# - (cons #{e1\ 2273}# #{e2\ 2274}#))) - #{tmp\ 2261}#) - ((lambda (#{_\ 2278}#) + (apply (lambda (#{_\ 1101}# + #{f\ 1102}# + #{id\ 1103}# + #{val\ 1104}# + #{e1\ 1105}# + #{e2\ 1106}#) + (#{chi-let\ 1057}# + #{e\ 1072}# + #{r\ 1073}# + #{w\ 1074}# + #{s\ 1075}# + #{mod\ 1076}# + #{build-named-let\ 110}# + (cons #{f\ 1102}# #{id\ 1103}#) + #{val\ 1104}# + (cons #{e1\ 1105}# #{e2\ 1106}#))) + #{tmp\ 1093}#) + ((lambda (#{_\ 1110}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 1326}# - #{e\ 2240}# - #{w\ 2242}# - #{s\ 2243}# - #{mod\ 2244}#))) - #{tmp\ 2245}#))) + (#{source-wrap\ 158}# + #{e\ 1072}# + #{w\ 1074}# + #{s\ 1075}# + #{mod\ 1076}#))) + #{tmp\ 1077}#))) ($sc-dispatch - #{tmp\ 2245}# + #{tmp\ 1077}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2245}# + #{tmp\ 1077}# '(any #(each (any any)) any . each-any)))) - #{e\ 2240}#)))) - (#{global-extend\ 1295}# + #{e\ 1072}#)))) + (#{global-extend\ 127}# 'core 'letrec - (lambda (#{e\ 2279}# - #{r\ 2280}# - #{w\ 2281}# - #{s\ 2282}# - #{mod\ 2283}#) - ((lambda (#{tmp\ 2284}#) - ((lambda (#{tmp\ 2285}#) - (if (if #{tmp\ 2285}# - (apply (lambda (#{_\ 2286}# - #{id\ 2287}# - #{val\ 2288}# - #{e1\ 2289}# - #{e2\ 2290}#) - (and-map #{id?\ 1297}# #{id\ 2287}#)) - #{tmp\ 2285}#) + (lambda (#{e\ 1111}# + #{r\ 1112}# + #{w\ 1113}# + #{s\ 1114}# + #{mod\ 1115}#) + ((lambda (#{tmp\ 1116}#) + ((lambda (#{tmp\ 1117}#) + (if (if #{tmp\ 1117}# + (apply (lambda (#{_\ 1118}# + #{id\ 1119}# + #{val\ 1120}# + #{e1\ 1121}# + #{e2\ 1122}#) + (and-map #{id?\ 129}# #{id\ 1119}#)) + #{tmp\ 1117}#) #f) - (apply (lambda (#{_\ 2292}# - #{id\ 2293}# - #{val\ 2294}# - #{e1\ 2295}# - #{e2\ 2296}#) - (let ((#{ids\ 2297}# #{id\ 2293}#)) - (if (not (#{valid-bound-ids?\ 1322}# - #{ids\ 2297}#)) + (apply (lambda (#{_\ 1124}# + #{id\ 1125}# + #{val\ 1126}# + #{e1\ 1127}# + #{e2\ 1128}#) + (let ((#{ids\ 1129}# #{id\ 1125}#)) + (if (not (#{valid-bound-ids?\ 154}# + #{ids\ 1129}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 2279}#) - (let ((#{labels\ 2299}# - (#{gen-labels\ 1303}# #{ids\ 2297}#)) - (#{new-vars\ 2300}# - (map #{gen-var\ 1344}# #{ids\ 2297}#))) - (let ((#{w\ 2301}# - (#{make-binding-wrap\ 1314}# - #{ids\ 2297}# - #{labels\ 2299}# - #{w\ 2281}#)) - (#{r\ 2302}# - (#{extend-var-env\ 1292}# - #{labels\ 2299}# - #{new-vars\ 2300}# - #{r\ 2280}#))) - (#{build-letrec\ 1279}# - #{s\ 2282}# - (map syntax->datum #{ids\ 2297}#) - #{new-vars\ 2300}# - (map (lambda (#{x\ 2303}#) - (#{chi\ 1333}# - #{x\ 2303}# - #{r\ 2302}# - #{w\ 2301}# - #{mod\ 2283}#)) - #{val\ 2294}#) - (#{chi-body\ 1337}# - (cons #{e1\ 2295}# #{e2\ 2296}#) - (#{source-wrap\ 1326}# - #{e\ 2279}# - #{w\ 2301}# - #{s\ 2282}# - #{mod\ 2283}#) - #{r\ 2302}# - #{w\ 2301}# - #{mod\ 2283}#))))))) - #{tmp\ 2285}#) - ((lambda (#{_\ 2306}#) + #{e\ 1111}#) + (let ((#{labels\ 1131}# + (#{gen-labels\ 135}# #{ids\ 1129}#)) + (#{new-vars\ 1132}# + (map #{gen-var\ 176}# #{ids\ 1129}#))) + (let ((#{w\ 1133}# + (#{make-binding-wrap\ 146}# + #{ids\ 1129}# + #{labels\ 1131}# + #{w\ 1113}#)) + (#{r\ 1134}# + (#{extend-var-env\ 124}# + #{labels\ 1131}# + #{new-vars\ 1132}# + #{r\ 1112}#))) + (#{build-letrec\ 111}# + #{s\ 1114}# + (map syntax->datum #{ids\ 1129}#) + #{new-vars\ 1132}# + (map (lambda (#{x\ 1135}#) + (#{chi\ 165}# + #{x\ 1135}# + #{r\ 1134}# + #{w\ 1133}# + #{mod\ 1115}#)) + #{val\ 1126}#) + (#{chi-body\ 169}# + (cons #{e1\ 1127}# #{e2\ 1128}#) + (#{source-wrap\ 158}# + #{e\ 1111}# + #{w\ 1133}# + #{s\ 1114}# + #{mod\ 1115}#) + #{r\ 1134}# + #{w\ 1133}# + #{mod\ 1115}#))))))) + #{tmp\ 1117}#) + ((lambda (#{_\ 1138}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 1326}# - #{e\ 2279}# - #{w\ 2281}# - #{s\ 2282}# - #{mod\ 2283}#))) - #{tmp\ 2284}#))) + (#{source-wrap\ 158}# + #{e\ 1111}# + #{w\ 1113}# + #{s\ 1114}# + #{mod\ 1115}#))) + #{tmp\ 1116}#))) ($sc-dispatch - #{tmp\ 2284}# + #{tmp\ 1116}# '(any #(each (any any)) any . each-any)))) - #{e\ 2279}#))) - (#{global-extend\ 1295}# + #{e\ 1111}#))) + (#{global-extend\ 127}# 'core 'set! - (lambda (#{e\ 2307}# - #{r\ 2308}# - #{w\ 2309}# - #{s\ 2310}# - #{mod\ 2311}#) - ((lambda (#{tmp\ 2312}#) - ((lambda (#{tmp\ 2313}#) - (if (if #{tmp\ 2313}# - (apply (lambda (#{_\ 2314}# #{id\ 2315}# #{val\ 2316}#) - (#{id?\ 1297}# #{id\ 2315}#)) - #{tmp\ 2313}#) + (lambda (#{e\ 1139}# + #{r\ 1140}# + #{w\ 1141}# + #{s\ 1142}# + #{mod\ 1143}#) + ((lambda (#{tmp\ 1144}#) + ((lambda (#{tmp\ 1145}#) + (if (if #{tmp\ 1145}# + (apply (lambda (#{_\ 1146}# #{id\ 1147}# #{val\ 1148}#) + (#{id?\ 129}# #{id\ 1147}#)) + #{tmp\ 1145}#) #f) - (apply (lambda (#{_\ 2317}# #{id\ 2318}# #{val\ 2319}#) - (let ((#{val\ 2320}# - (#{chi\ 1333}# - #{val\ 2319}# - #{r\ 2308}# - #{w\ 2309}# - #{mod\ 2311}#)) - (#{n\ 2321}# - (#{id-var-name\ 1319}# - #{id\ 2318}# - #{w\ 2309}#))) - (let ((#{b\ 2322}# - (#{lookup\ 1294}# - #{n\ 2321}# - #{r\ 2308}# - #{mod\ 2311}#))) - (let ((#{atom-key\ 2323}# - (#{binding-type\ 1289}# #{b\ 2322}#))) - (if (memv #{atom-key\ 2323}# + (apply (lambda (#{_\ 1149}# #{id\ 1150}# #{val\ 1151}#) + (let ((#{val\ 1152}# + (#{chi\ 165}# + #{val\ 1151}# + #{r\ 1140}# + #{w\ 1141}# + #{mod\ 1143}#)) + (#{n\ 1153}# + (#{id-var-name\ 151}# + #{id\ 1150}# + #{w\ 1141}#))) + (let ((#{b\ 1154}# + (#{lookup\ 126}# + #{n\ 1153}# + #{r\ 1140}# + #{mod\ 1143}#))) + (let ((#{atom-key\ 1155}# + (#{binding-type\ 121}# #{b\ 1154}#))) + (if (memv #{atom-key\ 1155}# '(lexical)) - (#{build-lexical-assignment\ 1267}# - #{s\ 2310}# - (syntax->datum #{id\ 2318}#) - (#{binding-value\ 1290}# #{b\ 2322}#) - #{val\ 2320}#) - (if (memv #{atom-key\ 2323}# + (#{build-lexical-assignment\ 99}# + #{s\ 1142}# + (syntax->datum #{id\ 1150}#) + (#{binding-value\ 122}# #{b\ 1154}#) + #{val\ 1152}#) + (if (memv #{atom-key\ 1155}# '(global)) - (#{build-global-assignment\ 1270}# - #{s\ 2310}# - #{n\ 2321}# - #{val\ 2320}# - #{mod\ 2311}#) - (if (memv #{atom-key\ 2323}# + (#{build-global-assignment\ 102}# + #{s\ 1142}# + #{n\ 1153}# + #{val\ 1152}# + #{mod\ 1143}#) + (if (memv #{atom-key\ 1155}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 1325}# - #{id\ 2318}# - #{w\ 2309}# - #{mod\ 2311}#)) + (#{wrap\ 157}# + #{id\ 1150}# + #{w\ 1141}# + #{mod\ 1143}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 1326}# - #{e\ 2307}# - #{w\ 2309}# - #{s\ 2310}# - #{mod\ 2311}#))))))))) - #{tmp\ 2313}#) - ((lambda (#{tmp\ 2324}#) - (if #{tmp\ 2324}# - (apply (lambda (#{_\ 2325}# - #{head\ 2326}# - #{tail\ 2327}# - #{val\ 2328}#) + (#{source-wrap\ 158}# + #{e\ 1139}# + #{w\ 1141}# + #{s\ 1142}# + #{mod\ 1143}#))))))))) + #{tmp\ 1145}#) + ((lambda (#{tmp\ 1156}#) + (if #{tmp\ 1156}# + (apply (lambda (#{_\ 1157}# + #{head\ 1158}# + #{tail\ 1159}# + #{val\ 1160}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{head\ 2326}# - #{r\ 2308}# + (#{syntax-type\ 163}# + #{head\ 1158}# + #{r\ 1140}# '(()) #f #f - #{mod\ 2311}# + #{mod\ 1143}# #t)) - (lambda (#{type\ 2329}# - #{value\ 2330}# - #{ee\ 2331}# - #{ww\ 2332}# - #{ss\ 2333}# - #{modmod\ 2334}#) - (if (memv #{type\ 2329}# + (lambda (#{type\ 1161}# + #{value\ 1162}# + #{ee\ 1163}# + #{ww\ 1164}# + #{ss\ 1165}# + #{modmod\ 1166}#) + (if (memv #{type\ 1161}# '(module-ref)) - (let ((#{val\ 2335}# - (#{chi\ 1333}# - #{val\ 2328}# - #{r\ 2308}# - #{w\ 2309}# - #{mod\ 2311}#))) + (let ((#{val\ 1167}# + (#{chi\ 165}# + #{val\ 1160}# + #{r\ 1140}# + #{w\ 1141}# + #{mod\ 1143}#))) (call-with-values (lambda () - (#{value\ 2330}# - (cons #{head\ 2326}# - #{tail\ 2327}#))) - (lambda (#{id\ 2337}# #{mod\ 2338}#) - (#{build-global-assignment\ 1270}# - #{s\ 2310}# - #{id\ 2337}# - #{val\ 2335}# - #{mod\ 2338}#)))) - (#{build-application\ 1264}# - #{s\ 2310}# - (#{chi\ 1333}# + (#{value\ 1162}# + (cons #{head\ 1158}# + #{tail\ 1159}#))) + (lambda (#{id\ 1169}# #{mod\ 1170}#) + (#{build-global-assignment\ 102}# + #{s\ 1142}# + #{id\ 1169}# + #{val\ 1167}# + #{mod\ 1170}#)))) + (#{build-application\ 96}# + #{s\ 1142}# + (#{chi\ 165}# (list '#(syntax-object setter ((top) @@ -7154,53 +7177,53 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{head\ 2326}#) - #{r\ 2308}# - #{w\ 2309}# - #{mod\ 2311}#) - (map (lambda (#{e\ 2339}#) - (#{chi\ 1333}# - #{e\ 2339}# - #{r\ 2308}# - #{w\ 2309}# - #{mod\ 2311}#)) + #{head\ 1158}#) + #{r\ 1140}# + #{w\ 1141}# + #{mod\ 1143}#) + (map (lambda (#{e\ 1171}#) + (#{chi\ 165}# + #{e\ 1171}# + #{r\ 1140}# + #{w\ 1141}# + #{mod\ 1143}#)) (append - #{tail\ 2327}# - (list #{val\ 2328}#)))))))) - #{tmp\ 2324}#) - ((lambda (#{_\ 2341}#) + #{tail\ 1159}# + (list #{val\ 1160}#)))))))) + #{tmp\ 1156}#) + ((lambda (#{_\ 1173}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 1326}# - #{e\ 2307}# - #{w\ 2309}# - #{s\ 2310}# - #{mod\ 2311}#))) - #{tmp\ 2312}#))) + (#{source-wrap\ 158}# + #{e\ 1139}# + #{w\ 1141}# + #{s\ 1142}# + #{mod\ 1143}#))) + #{tmp\ 1144}#))) ($sc-dispatch - #{tmp\ 2312}# + #{tmp\ 1144}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 2312}# + #{tmp\ 1144}# '(any any any)))) - #{e\ 2307}#))) - (#{global-extend\ 1295}# + #{e\ 1139}#))) + (#{global-extend\ 127}# 'module-ref '@ - (lambda (#{e\ 2342}#) - ((lambda (#{tmp\ 2343}#) - ((lambda (#{tmp\ 2344}#) - (if (if #{tmp\ 2344}# - (apply (lambda (#{_\ 2345}# #{mod\ 2346}# #{id\ 2347}#) - (if (and-map #{id?\ 1297}# #{mod\ 2346}#) - (#{id?\ 1297}# #{id\ 2347}#) + (lambda (#{e\ 1174}#) + ((lambda (#{tmp\ 1175}#) + ((lambda (#{tmp\ 1176}#) + (if (if #{tmp\ 1176}# + (apply (lambda (#{_\ 1177}# #{mod\ 1178}# #{id\ 1179}#) + (if (and-map #{id?\ 129}# #{mod\ 1178}#) + (#{id?\ 129}# #{id\ 1179}#) #f)) - #{tmp\ 2344}#) + #{tmp\ 1176}#) #f) - (apply (lambda (#{_\ 2349}# #{mod\ 2350}# #{id\ 2351}#) + (apply (lambda (#{_\ 1181}# #{mod\ 1182}# #{id\ 1183}#) (values - (syntax->datum #{id\ 2351}#) + (syntax->datum #{id\ 1183}#) (syntax->datum (cons '#(syntax-object public @@ -7553,32 +7576,32 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 2350}#)))) - #{tmp\ 2344}#) + #{mod\ 1182}#)))) + #{tmp\ 1176}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2343}#))) + #{tmp\ 1175}#))) ($sc-dispatch - #{tmp\ 2343}# + #{tmp\ 1175}# '(any each-any any)))) - #{e\ 2342}#))) - (#{global-extend\ 1295}# + #{e\ 1174}#))) + (#{global-extend\ 127}# 'module-ref '@@ - (lambda (#{e\ 2353}#) - ((lambda (#{tmp\ 2354}#) - ((lambda (#{tmp\ 2355}#) - (if (if #{tmp\ 2355}# - (apply (lambda (#{_\ 2356}# #{mod\ 2357}# #{id\ 2358}#) - (if (and-map #{id?\ 1297}# #{mod\ 2357}#) - (#{id?\ 1297}# #{id\ 2358}#) + (lambda (#{e\ 1185}#) + ((lambda (#{tmp\ 1186}#) + ((lambda (#{tmp\ 1187}#) + (if (if #{tmp\ 1187}# + (apply (lambda (#{_\ 1188}# #{mod\ 1189}# #{id\ 1190}#) + (if (and-map #{id?\ 129}# #{mod\ 1189}#) + (#{id?\ 129}# #{id\ 1190}#) #f)) - #{tmp\ 2355}#) + #{tmp\ 1187}#) #f) - (apply (lambda (#{_\ 2360}# #{mod\ 2361}# #{id\ 2362}#) + (apply (lambda (#{_\ 1192}# #{mod\ 1193}# #{id\ 1194}#) (values - (syntax->datum #{id\ 2362}#) + (syntax->datum #{id\ 1194}#) (syntax->datum (cons '#(syntax-object private @@ -7931,123 +7954,123 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 2361}#)))) - #{tmp\ 2355}#) + #{mod\ 1193}#)))) + #{tmp\ 1187}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2354}#))) + #{tmp\ 1186}#))) ($sc-dispatch - #{tmp\ 2354}# + #{tmp\ 1186}# '(any each-any any)))) - #{e\ 2353}#))) - (#{global-extend\ 1295}# + #{e\ 1185}#))) + (#{global-extend\ 127}# 'core 'if - (lambda (#{e\ 2364}# - #{r\ 2365}# - #{w\ 2366}# - #{s\ 2367}# - #{mod\ 2368}#) - ((lambda (#{tmp\ 2369}#) - ((lambda (#{tmp\ 2370}#) - (if #{tmp\ 2370}# - (apply (lambda (#{_\ 2371}# #{test\ 2372}# #{then\ 2373}#) - (#{build-conditional\ 1265}# - #{s\ 2367}# - (#{chi\ 1333}# - #{test\ 2372}# - #{r\ 2365}# - #{w\ 2366}# - #{mod\ 2368}#) - (#{chi\ 1333}# - #{then\ 2373}# - #{r\ 2365}# - #{w\ 2366}# - #{mod\ 2368}#) - (#{build-void\ 1263}# #f))) - #{tmp\ 2370}#) - ((lambda (#{tmp\ 2374}#) - (if #{tmp\ 2374}# - (apply (lambda (#{_\ 2375}# - #{test\ 2376}# - #{then\ 2377}# - #{else\ 2378}#) - (#{build-conditional\ 1265}# - #{s\ 2367}# - (#{chi\ 1333}# - #{test\ 2376}# - #{r\ 2365}# - #{w\ 2366}# - #{mod\ 2368}#) - (#{chi\ 1333}# - #{then\ 2377}# - #{r\ 2365}# - #{w\ 2366}# - #{mod\ 2368}#) - (#{chi\ 1333}# - #{else\ 2378}# - #{r\ 2365}# - #{w\ 2366}# - #{mod\ 2368}#))) - #{tmp\ 2374}#) + (lambda (#{e\ 1196}# + #{r\ 1197}# + #{w\ 1198}# + #{s\ 1199}# + #{mod\ 1200}#) + ((lambda (#{tmp\ 1201}#) + ((lambda (#{tmp\ 1202}#) + (if #{tmp\ 1202}# + (apply (lambda (#{_\ 1203}# #{test\ 1204}# #{then\ 1205}#) + (#{build-conditional\ 97}# + #{s\ 1199}# + (#{chi\ 165}# + #{test\ 1204}# + #{r\ 1197}# + #{w\ 1198}# + #{mod\ 1200}#) + (#{chi\ 165}# + #{then\ 1205}# + #{r\ 1197}# + #{w\ 1198}# + #{mod\ 1200}#) + (#{build-void\ 95}# #f))) + #{tmp\ 1202}#) + ((lambda (#{tmp\ 1206}#) + (if #{tmp\ 1206}# + (apply (lambda (#{_\ 1207}# + #{test\ 1208}# + #{then\ 1209}# + #{else\ 1210}#) + (#{build-conditional\ 97}# + #{s\ 1199}# + (#{chi\ 165}# + #{test\ 1208}# + #{r\ 1197}# + #{w\ 1198}# + #{mod\ 1200}#) + (#{chi\ 165}# + #{then\ 1209}# + #{r\ 1197}# + #{w\ 1198}# + #{mod\ 1200}#) + (#{chi\ 165}# + #{else\ 1210}# + #{r\ 1197}# + #{w\ 1198}# + #{mod\ 1200}#))) + #{tmp\ 1206}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2369}#))) + #{tmp\ 1201}#))) ($sc-dispatch - #{tmp\ 2369}# + #{tmp\ 1201}# '(any any any any))))) ($sc-dispatch - #{tmp\ 2369}# + #{tmp\ 1201}# '(any any any)))) - #{e\ 2364}#))) - (#{global-extend\ 1295}# + #{e\ 1196}#))) + (#{global-extend\ 127}# 'begin 'begin '()) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'define 'define '()) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'eval-when 'eval-when '()) - (#{global-extend\ 1295}# + (#{global-extend\ 127}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 2382}# - (lambda (#{x\ 2383}# - #{keys\ 2384}# - #{clauses\ 2385}# - #{r\ 2386}# - #{mod\ 2387}#) - (if (null? #{clauses\ 2385}#) - (#{build-application\ 1264}# + (letrec ((#{gen-syntax-case\ 1214}# + (lambda (#{x\ 1215}# + #{keys\ 1216}# + #{clauses\ 1217}# + #{r\ 1218}# + #{mod\ 1219}#) + (if (null? #{clauses\ 1217}#) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f 'syntax-violation) - (list (#{build-data\ 1275}# #f #f) - (#{build-data\ 1275}# + (list (#{build-data\ 107}# #f #f) + (#{build-data\ 107}# #f "source expression failed to match any pattern") - #{x\ 2383}#)) - ((lambda (#{tmp\ 2388}#) - ((lambda (#{tmp\ 2389}#) - (if #{tmp\ 2389}# - (apply (lambda (#{pat\ 2390}# #{exp\ 2391}#) - (if (if (#{id?\ 1297}# #{pat\ 2390}#) + #{x\ 1215}#)) + ((lambda (#{tmp\ 1220}#) + ((lambda (#{tmp\ 1221}#) + (if #{tmp\ 1221}# + (apply (lambda (#{pat\ 1222}# #{exp\ 1223}#) + (if (if (#{id?\ 129}# #{pat\ 1222}#) (and-map - (lambda (#{x\ 2392}#) - (not (#{free-id=?\ 1320}# - #{pat\ 2390}# - #{x\ 2392}#))) + (lambda (#{x\ 1224}#) + (not (#{free-id=?\ 152}# + #{pat\ 1222}# + #{x\ 1224}#))) (cons '#(syntax-object ... ((top) @@ -8425,731 +8448,730 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{keys\ 2384}#)) + #{keys\ 1216}#)) #f) - (let ((#{labels\ 2393}# - (list (#{gen-label\ 1302}#))) - (#{var\ 2394}# - (#{gen-var\ 1344}# - #{pat\ 2390}#))) - (#{build-application\ 1264}# + (let ((#{labels\ 1225}# + (list (#{gen-label\ 134}#))) + (#{var\ 1226}# + (#{gen-var\ 176}# + #{pat\ 1222}#))) + (#{build-application\ 96}# #f - (#{build-lambda\ 1273}# + (#{build-lambda\ 105}# #f (list (syntax->datum - #{pat\ 2390}#)) - (list #{var\ 2394}#) + #{pat\ 1222}#)) + (list #{var\ 1226}#) #f - (#{chi\ 1333}# - #{exp\ 2391}# - (#{extend-env\ 1291}# - #{labels\ 2393}# + (#{chi\ 165}# + #{exp\ 1223}# + (#{extend-env\ 123}# + #{labels\ 1225}# (list (cons 'syntax - (cons #{var\ 2394}# + (cons #{var\ 1226}# 0))) - #{r\ 2386}#) - (#{make-binding-wrap\ 1314}# - (list #{pat\ 2390}#) - #{labels\ 2393}# + #{r\ 1218}#) + (#{make-binding-wrap\ 146}# + (list #{pat\ 1222}#) + #{labels\ 1225}# '(())) - #{mod\ 2387}#)) - (list #{x\ 2383}#))) - (#{gen-clause\ 2381}# - #{x\ 2383}# - #{keys\ 2384}# - (cdr #{clauses\ 2385}#) - #{r\ 2386}# - #{pat\ 2390}# + #{mod\ 1219}#)) + (list #{x\ 1215}#))) + (#{gen-clause\ 1213}# + #{x\ 1215}# + #{keys\ 1216}# + (cdr #{clauses\ 1217}#) + #{r\ 1218}# + #{pat\ 1222}# #t - #{exp\ 2391}# - #{mod\ 2387}#))) - #{tmp\ 2389}#) - ((lambda (#{tmp\ 2395}#) - (if #{tmp\ 2395}# - (apply (lambda (#{pat\ 2396}# - #{fender\ 2397}# - #{exp\ 2398}#) - (#{gen-clause\ 2381}# - #{x\ 2383}# - #{keys\ 2384}# - (cdr #{clauses\ 2385}#) - #{r\ 2386}# - #{pat\ 2396}# - #{fender\ 2397}# - #{exp\ 2398}# - #{mod\ 2387}#)) - #{tmp\ 2395}#) - ((lambda (#{_\ 2399}#) + #{exp\ 1223}# + #{mod\ 1219}#))) + #{tmp\ 1221}#) + ((lambda (#{tmp\ 1227}#) + (if #{tmp\ 1227}# + (apply (lambda (#{pat\ 1228}# + #{fender\ 1229}# + #{exp\ 1230}#) + (#{gen-clause\ 1213}# + #{x\ 1215}# + #{keys\ 1216}# + (cdr #{clauses\ 1217}#) + #{r\ 1218}# + #{pat\ 1228}# + #{fender\ 1229}# + #{exp\ 1230}# + #{mod\ 1219}#)) + #{tmp\ 1227}#) + ((lambda (#{_\ 1231}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 2385}#))) - #{tmp\ 2388}#))) + (car #{clauses\ 1217}#))) + #{tmp\ 1220}#))) ($sc-dispatch - #{tmp\ 2388}# + #{tmp\ 1220}# '(any any any))))) - ($sc-dispatch #{tmp\ 2388}# (quote (any any))))) - (car #{clauses\ 2385}#))))) - (#{gen-clause\ 2381}# - (lambda (#{x\ 2400}# - #{keys\ 2401}# - #{clauses\ 2402}# - #{r\ 2403}# - #{pat\ 2404}# - #{fender\ 2405}# - #{exp\ 2406}# - #{mod\ 2407}#) + ($sc-dispatch #{tmp\ 1220}# (quote (any any))))) + (car #{clauses\ 1217}#))))) + (#{gen-clause\ 1213}# + (lambda (#{x\ 1232}# + #{keys\ 1233}# + #{clauses\ 1234}# + #{r\ 1235}# + #{pat\ 1236}# + #{fender\ 1237}# + #{exp\ 1238}# + #{mod\ 1239}#) (call-with-values (lambda () - (#{convert-pattern\ 2379}# - #{pat\ 2404}# - #{keys\ 2401}#)) - (lambda (#{p\ 2408}# #{pvars\ 2409}#) - (if (not (#{distinct-bound-ids?\ 1323}# - (map car #{pvars\ 2409}#))) + (#{convert-pattern\ 1211}# + #{pat\ 1236}# + #{keys\ 1233}#)) + (lambda (#{p\ 1240}# #{pvars\ 1241}#) + (if (not (#{distinct-bound-ids?\ 155}# + (map car #{pvars\ 1241}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 2404}#) + #{pat\ 1236}#) (if (not (and-map - (lambda (#{x\ 2410}#) - (not (#{ellipsis?\ 1342}# - (car #{x\ 2410}#)))) - #{pvars\ 2409}#)) + (lambda (#{x\ 1242}#) + (not (#{ellipsis?\ 174}# + (car #{x\ 1242}#)))) + #{pvars\ 1241}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 2404}#) - (let ((#{y\ 2411}# - (#{gen-var\ 1344}# (quote tmp)))) - (#{build-application\ 1264}# + #{pat\ 1236}#) + (let ((#{y\ 1243}# + (#{gen-var\ 176}# (quote tmp)))) + (#{build-application\ 96}# #f - (#{build-lambda\ 1273}# + (#{build-lambda\ 105}# #f (list (quote tmp)) - (list #{y\ 2411}#) + (list #{y\ 1243}#) #f - (let ((#{y\ 2412}# - (#{build-lexical-reference\ 1266}# + (let ((#{y\ 1244}# + (#{build-lexical-reference\ 98}# 'value #f 'tmp - #{y\ 2411}#))) - (#{build-conditional\ 1265}# + #{y\ 1243}#))) + (#{build-conditional\ 97}# #f - ((lambda (#{tmp\ 2413}#) - ((lambda (#{tmp\ 2414}#) - (if #{tmp\ 2414}# - (apply (lambda () #{y\ 2412}#) - #{tmp\ 2414}#) - ((lambda (#{_\ 2415}#) - (#{build-conditional\ 1265}# + ((lambda (#{tmp\ 1245}#) + ((lambda (#{tmp\ 1246}#) + (if #{tmp\ 1246}# + (apply (lambda () #{y\ 1244}#) + #{tmp\ 1246}#) + ((lambda (#{_\ 1247}#) + (#{build-conditional\ 97}# #f - #{y\ 2412}# - (#{build-dispatch-call\ 2380}# - #{pvars\ 2409}# - #{fender\ 2405}# - #{y\ 2412}# - #{r\ 2403}# - #{mod\ 2407}#) - (#{build-data\ 1275}# + #{y\ 1244}# + (#{build-dispatch-call\ 1212}# + #{pvars\ 1241}# + #{fender\ 1237}# + #{y\ 1244}# + #{r\ 1235}# + #{mod\ 1239}#) + (#{build-data\ 107}# #f #f))) - #{tmp\ 2413}#))) + #{tmp\ 1245}#))) ($sc-dispatch - #{tmp\ 2413}# + #{tmp\ 1245}# '#(atom #t)))) - #{fender\ 2405}#) - (#{build-dispatch-call\ 2380}# - #{pvars\ 2409}# - #{exp\ 2406}# - #{y\ 2412}# - #{r\ 2403}# - #{mod\ 2407}#) - (#{gen-syntax-case\ 2382}# - #{x\ 2400}# - #{keys\ 2401}# - #{clauses\ 2402}# - #{r\ 2403}# - #{mod\ 2407}#)))) - (list (if (eq? #{p\ 2408}# (quote any)) - (#{build-application\ 1264}# + #{fender\ 1237}#) + (#{build-dispatch-call\ 1212}# + #{pvars\ 1241}# + #{exp\ 1238}# + #{y\ 1244}# + #{r\ 1235}# + #{mod\ 1239}#) + (#{gen-syntax-case\ 1214}# + #{x\ 1232}# + #{keys\ 1233}# + #{clauses\ 1234}# + #{r\ 1235}# + #{mod\ 1239}#)))) + (list (if (eq? #{p\ 1240}# (quote any)) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f 'list) - (list #{x\ 2400}#)) - (#{build-application\ 1264}# + (list #{x\ 1232}#)) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 106}# #f '$sc-dispatch) - (list #{x\ 2400}# - (#{build-data\ 1275}# + (list #{x\ 1232}# + (#{build-data\ 107}# #f - #{p\ 2408}#))))))))))))) - (#{build-dispatch-call\ 2380}# - (lambda (#{pvars\ 2416}# - #{exp\ 2417}# - #{y\ 2418}# - #{r\ 2419}# - #{mod\ 2420}#) - (let ((#{ids\ 2421}# (map car #{pvars\ 2416}#)) - (#{levels\ 2422}# (map cdr #{pvars\ 2416}#))) - (let ((#{labels\ 2423}# - (#{gen-labels\ 1303}# #{ids\ 2421}#)) - (#{new-vars\ 2424}# - (map #{gen-var\ 1344}# #{ids\ 2421}#))) - (#{build-application\ 1264}# + #{p\ 1240}#))))))))))))) + (#{build-dispatch-call\ 1212}# + (lambda (#{pvars\ 1248}# + #{exp\ 1249}# + #{y\ 1250}# + #{r\ 1251}# + #{mod\ 1252}#) + (let ((#{ids\ 1253}# (map car #{pvars\ 1248}#)) + (#{levels\ 1254}# (map cdr #{pvars\ 1248}#))) + (let ((#{labels\ 1255}# + (#{gen-labels\ 135}# #{ids\ 1253}#)) + (#{new-vars\ 1256}# + (map #{gen-var\ 176}# #{ids\ 1253}#))) + (#{build-application\ 96}# #f - (#{build-primref\ 1274}# #f (quote apply)) - (list (#{build-lambda\ 1273}# + (#{build-primref\ 106}# #f (quote apply)) + (list (#{build-lambda\ 105}# #f - (map syntax->datum #{ids\ 2421}#) - #{new-vars\ 2424}# + (map syntax->datum #{ids\ 1253}#) + #{new-vars\ 1256}# #f - (#{chi\ 1333}# - #{exp\ 2417}# - (#{extend-env\ 1291}# - #{labels\ 2423}# - (map (lambda (#{var\ 2425}# - #{level\ 2426}#) + (#{chi\ 165}# + #{exp\ 1249}# + (#{extend-env\ 123}# + #{labels\ 1255}# + (map (lambda (#{var\ 1257}# + #{level\ 1258}#) (cons 'syntax - (cons #{var\ 2425}# - #{level\ 2426}#))) - #{new-vars\ 2424}# - (map cdr #{pvars\ 2416}#)) - #{r\ 2419}#) - (#{make-binding-wrap\ 1314}# - #{ids\ 2421}# - #{labels\ 2423}# + (cons #{var\ 1257}# + #{level\ 1258}#))) + #{new-vars\ 1256}# + (map cdr #{pvars\ 1248}#)) + #{r\ 1251}#) + (#{make-binding-wrap\ 146}# + #{ids\ 1253}# + #{labels\ 1255}# '(())) - #{mod\ 2420}#)) - #{y\ 2418}#)))))) - (#{convert-pattern\ 2379}# - (lambda (#{pattern\ 2427}# #{keys\ 2428}#) - (letrec ((#{cvt\ 2429}# - (lambda (#{p\ 2430}# #{n\ 2431}# #{ids\ 2432}#) - (if (#{id?\ 1297}# #{p\ 2430}#) - (if (#{bound-id-member?\ 1324}# - #{p\ 2430}# - #{keys\ 2428}#) + #{mod\ 1252}#)) + #{y\ 1250}#)))))) + (#{convert-pattern\ 1211}# + (lambda (#{pattern\ 1259}# #{keys\ 1260}#) + (letrec ((#{cvt\ 1261}# + (lambda (#{p\ 1262}# #{n\ 1263}# #{ids\ 1264}#) + (if (#{id?\ 129}# #{p\ 1262}#) + (if (#{bound-id-member?\ 156}# + #{p\ 1262}# + #{keys\ 1260}#) (values - (vector (quote free-id) #{p\ 2430}#) - #{ids\ 2432}#) + (vector (quote free-id) #{p\ 1262}#) + #{ids\ 1264}#) (values 'any - (cons (cons #{p\ 2430}# #{n\ 2431}#) - #{ids\ 2432}#))) - ((lambda (#{tmp\ 2433}#) - ((lambda (#{tmp\ 2434}#) - (if (if #{tmp\ 2434}# - (apply (lambda (#{x\ 2435}# - #{dots\ 2436}#) - (#{ellipsis?\ 1342}# - #{dots\ 2436}#)) - #{tmp\ 2434}#) + (cons (cons #{p\ 1262}# #{n\ 1263}#) + #{ids\ 1264}#))) + ((lambda (#{tmp\ 1265}#) + ((lambda (#{tmp\ 1266}#) + (if (if #{tmp\ 1266}# + (apply (lambda (#{x\ 1267}# + #{dots\ 1268}#) + (#{ellipsis?\ 174}# + #{dots\ 1268}#)) + #{tmp\ 1266}#) #f) - (apply (lambda (#{x\ 2437}# - #{dots\ 2438}#) + (apply (lambda (#{x\ 1269}# + #{dots\ 1270}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2437}# - (#{fx+\ 1254}# - #{n\ 2431}# + (#{cvt\ 1261}# + #{x\ 1269}# + (#{fx+\ 86}# + #{n\ 1263}# 1) - #{ids\ 2432}#)) - (lambda (#{p\ 2439}# - #{ids\ 2440}#) + #{ids\ 1264}#)) + (lambda (#{p\ 1271}# + #{ids\ 1272}#) (values - (if (eq? #{p\ 2439}# + (if (eq? #{p\ 1271}# 'any) 'each-any (vector 'each - #{p\ 2439}#)) - #{ids\ 2440}#)))) - #{tmp\ 2434}#) - ((lambda (#{tmp\ 2441}#) - (if #{tmp\ 2441}# - (apply (lambda (#{x\ 2442}# - #{y\ 2443}#) + #{p\ 1271}#)) + #{ids\ 1272}#)))) + #{tmp\ 1266}#) + ((lambda (#{tmp\ 1273}#) + (if #{tmp\ 1273}# + (apply (lambda (#{x\ 1274}# + #{y\ 1275}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{y\ 2443}# - #{n\ 2431}# - #{ids\ 2432}#)) - (lambda (#{y\ 2444}# - #{ids\ 2445}#) + (#{cvt\ 1261}# + #{y\ 1275}# + #{n\ 1263}# + #{ids\ 1264}#)) + (lambda (#{y\ 1276}# + #{ids\ 1277}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2442}# - #{n\ 2431}# - #{ids\ 2445}#)) - (lambda (#{x\ 2446}# - #{ids\ 2447}#) + (#{cvt\ 1261}# + #{x\ 1274}# + #{n\ 1263}# + #{ids\ 1277}#)) + (lambda (#{x\ 1278}# + #{ids\ 1279}#) (values - (cons #{x\ 2446}# - #{y\ 2444}#) - #{ids\ 2447}#)))))) - #{tmp\ 2441}#) - ((lambda (#{tmp\ 2448}#) - (if #{tmp\ 2448}# + (cons #{x\ 1278}# + #{y\ 1276}#) + #{ids\ 1279}#)))))) + #{tmp\ 1273}#) + ((lambda (#{tmp\ 1280}#) + (if #{tmp\ 1280}# (apply (lambda () (values '() - #{ids\ 2432}#)) - #{tmp\ 2448}#) - ((lambda (#{tmp\ 2449}#) - (if #{tmp\ 2449}# - (apply (lambda (#{x\ 2450}#) + #{ids\ 1264}#)) + #{tmp\ 1280}#) + ((lambda (#{tmp\ 1281}#) + (if #{tmp\ 1281}# + (apply (lambda (#{x\ 1282}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2450}# - #{n\ 2431}# - #{ids\ 2432}#)) - (lambda (#{p\ 2452}# - #{ids\ 2453}#) + (#{cvt\ 1261}# + #{x\ 1282}# + #{n\ 1263}# + #{ids\ 1264}#)) + (lambda (#{p\ 1284}# + #{ids\ 1285}#) (values (vector 'vector - #{p\ 2452}#) - #{ids\ 2453}#)))) - #{tmp\ 2449}#) - ((lambda (#{x\ 2454}#) + #{p\ 1284}#) + #{ids\ 1285}#)))) + #{tmp\ 1281}#) + ((lambda (#{x\ 1286}#) (values (vector 'atom - (#{strip\ 1343}# - #{p\ 2430}# + (#{strip\ 175}# + #{p\ 1262}# '(()))) - #{ids\ 2432}#)) - #{tmp\ 2433}#))) + #{ids\ 1264}#)) + #{tmp\ 1265}#))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1265}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1265}# '())))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1265}# '(any . any))))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1265}# '(any any)))) - #{p\ 2430}#))))) - (#{cvt\ 2429}# #{pattern\ 2427}# 0 (quote ())))))) - (lambda (#{e\ 2455}# - #{r\ 2456}# - #{w\ 2457}# - #{s\ 2458}# - #{mod\ 2459}#) - (let ((#{e\ 2460}# - (#{source-wrap\ 1326}# - #{e\ 2455}# - #{w\ 2457}# - #{s\ 2458}# - #{mod\ 2459}#))) - ((lambda (#{tmp\ 2461}#) - ((lambda (#{tmp\ 2462}#) - (if #{tmp\ 2462}# - (apply (lambda (#{_\ 2463}# - #{val\ 2464}# - #{key\ 2465}# - #{m\ 2466}#) + #{p\ 1262}#))))) + (#{cvt\ 1261}# #{pattern\ 1259}# 0 (quote ())))))) + (lambda (#{e\ 1287}# + #{r\ 1288}# + #{w\ 1289}# + #{s\ 1290}# + #{mod\ 1291}#) + (let ((#{e\ 1292}# + (#{source-wrap\ 158}# + #{e\ 1287}# + #{w\ 1289}# + #{s\ 1290}# + #{mod\ 1291}#))) + ((lambda (#{tmp\ 1293}#) + ((lambda (#{tmp\ 1294}#) + (if #{tmp\ 1294}# + (apply (lambda (#{_\ 1295}# + #{val\ 1296}# + #{key\ 1297}# + #{m\ 1298}#) (if (and-map - (lambda (#{x\ 2467}#) - (if (#{id?\ 1297}# #{x\ 2467}#) - (not (#{ellipsis?\ 1342}# - #{x\ 2467}#)) + (lambda (#{x\ 1299}#) + (if (#{id?\ 129}# #{x\ 1299}#) + (not (#{ellipsis?\ 174}# #{x\ 1299}#)) #f)) - #{key\ 2465}#) - (let ((#{x\ 2469}# - (#{gen-var\ 1344}# (quote tmp)))) - (#{build-application\ 1264}# - #{s\ 2458}# - (#{build-lambda\ 1273}# + #{key\ 1297}#) + (let ((#{x\ 1301}# + (#{gen-var\ 176}# (quote tmp)))) + (#{build-application\ 96}# + #{s\ 1290}# + (#{build-lambda\ 105}# #f (list (quote tmp)) - (list #{x\ 2469}#) + (list #{x\ 1301}#) #f - (#{gen-syntax-case\ 2382}# - (#{build-lexical-reference\ 1266}# + (#{gen-syntax-case\ 1214}# + (#{build-lexical-reference\ 98}# 'value #f 'tmp - #{x\ 2469}#) - #{key\ 2465}# - #{m\ 2466}# - #{r\ 2456}# - #{mod\ 2459}#)) - (list (#{chi\ 1333}# - #{val\ 2464}# - #{r\ 2456}# + #{x\ 1301}#) + #{key\ 1297}# + #{m\ 1298}# + #{r\ 1288}# + #{mod\ 1291}#)) + (list (#{chi\ 165}# + #{val\ 1296}# + #{r\ 1288}# '(()) - #{mod\ 2459}#)))) + #{mod\ 1291}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 2460}#))) - #{tmp\ 2462}#) + #{e\ 1292}#))) + #{tmp\ 1294}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2461}#))) + #{tmp\ 1293}#))) ($sc-dispatch - #{tmp\ 2461}# + #{tmp\ 1293}# '(any any each-any . each-any)))) - #{e\ 2460}#))))) + #{e\ 1292}#))))) (set! sc-expand - (lambda (#{x\ 2473}# . #{rest\ 2472}#) - (if (if (pair? #{x\ 2473}#) - (equal? (car #{x\ 2473}#) #{noexpand\ 1252}#) + (lambda (#{x\ 1305}# . #{rest\ 1304}#) + (if (if (pair? #{x\ 1305}#) + (equal? (car #{x\ 1305}#) #{noexpand\ 84}#) #f) - (cadr #{x\ 2473}#) - (let ((#{m\ 2474}# - (if (null? #{rest\ 2472}#) + (cadr #{x\ 1305}#) + (let ((#{m\ 1306}# + (if (null? #{rest\ 1304}#) 'e - (car #{rest\ 2472}#))) - (#{esew\ 2475}# - (if (let ((#{t\ 2476}# (null? #{rest\ 2472}#))) - (if #{t\ 2476}# - #{t\ 2476}# - (null? (cdr #{rest\ 2472}#)))) + (car #{rest\ 1304}#))) + (#{esew\ 1307}# + (if (let ((#{t\ 1308}# (null? #{rest\ 1304}#))) + (if #{t\ 1308}# + #{t\ 1308}# + (null? (cdr #{rest\ 1304}#)))) '(eval) - (cadr #{rest\ 2472}#)))) + (cadr #{rest\ 1304}#)))) (with-fluid* - #{*mode*\ 1253}# - #{m\ 2474}# + #{*mode*\ 85}# + #{m\ 1306}# (lambda () - (#{chi-top\ 1332}# - #{x\ 2473}# + (#{chi-top\ 164}# + #{x\ 1305}# '() '((top)) - #{m\ 2474}# - #{esew\ 2475}# + #{m\ 1306}# + #{esew\ 1307}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? - (lambda (#{x\ 2477}#) - (#{nonsymbol-id?\ 1296}# #{x\ 2477}#))) + (lambda (#{x\ 1309}#) + (#{nonsymbol-id?\ 128}# #{x\ 1309}#))) (set! datum->syntax - (lambda (#{id\ 2478}# #{datum\ 2479}#) - (#{make-syntax-object\ 1280}# - #{datum\ 2479}# - (#{syntax-object-wrap\ 1283}# #{id\ 2478}#) + (lambda (#{id\ 1310}# #{datum\ 1311}#) + (#{make-syntax-object\ 112}# + #{datum\ 1311}# + (#{syntax-object-wrap\ 115}# #{id\ 1310}#) #f))) (set! syntax->datum - (lambda (#{x\ 2480}#) - (#{strip\ 1343}# #{x\ 2480}# (quote (()))))) + (lambda (#{x\ 1312}#) + (#{strip\ 175}# #{x\ 1312}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 2481}#) + (lambda (#{ls\ 1313}#) (begin - (let ((#{x\ 2482}# #{ls\ 2481}#)) - (if (not (list? #{x\ 2482}#)) + (let ((#{x\ 1314}# #{ls\ 1313}#)) + (if (not (list? #{x\ 1314}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 2482}#))) - (map (lambda (#{x\ 2483}#) - (#{wrap\ 1325}# (gensym) (quote ((top))) #f)) - #{ls\ 2481}#)))) + #{x\ 1314}#))) + (map (lambda (#{x\ 1315}#) + (#{wrap\ 157}# (gensym) (quote ((top))) #f)) + #{ls\ 1313}#)))) (set! free-identifier=? - (lambda (#{x\ 2484}# #{y\ 2485}#) + (lambda (#{x\ 1316}# #{y\ 1317}#) (begin - (let ((#{x\ 2486}# #{x\ 2484}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2486}#)) + (let ((#{x\ 1318}# #{x\ 1316}#)) + (if (not (#{nonsymbol-id?\ 128}# #{x\ 1318}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 2486}#))) - (let ((#{x\ 2487}# #{y\ 2485}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2487}#)) + #{x\ 1318}#))) + (let ((#{x\ 1319}# #{y\ 1317}#)) + (if (not (#{nonsymbol-id?\ 128}# #{x\ 1319}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 2487}#))) - (#{free-id=?\ 1320}# #{x\ 2484}# #{y\ 2485}#)))) + #{x\ 1319}#))) + (#{free-id=?\ 152}# #{x\ 1316}# #{y\ 1317}#)))) (set! bound-identifier=? - (lambda (#{x\ 2488}# #{y\ 2489}#) + (lambda (#{x\ 1320}# #{y\ 1321}#) (begin - (let ((#{x\ 2490}# #{x\ 2488}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2490}#)) + (let ((#{x\ 1322}# #{x\ 1320}#)) + (if (not (#{nonsymbol-id?\ 128}# #{x\ 1322}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 2490}#))) - (let ((#{x\ 2491}# #{y\ 2489}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2491}#)) + #{x\ 1322}#))) + (let ((#{x\ 1323}# #{y\ 1321}#)) + (if (not (#{nonsymbol-id?\ 128}# #{x\ 1323}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 2491}#))) - (#{bound-id=?\ 1321}# #{x\ 2488}# #{y\ 2489}#)))) + #{x\ 1323}#))) + (#{bound-id=?\ 153}# #{x\ 1320}# #{y\ 1321}#)))) (set! syntax-violation - (lambda (#{who\ 2495}# - #{message\ 2494}# - #{form\ 2493}# + (lambda (#{who\ 1327}# + #{message\ 1326}# + #{form\ 1325}# . - #{subform\ 2492}#) + #{subform\ 1324}#) (begin - (let ((#{x\ 2496}# #{who\ 2495}#)) - (if (not ((lambda (#{x\ 2497}#) - (let ((#{t\ 2498}# (not #{x\ 2497}#))) - (if #{t\ 2498}# - #{t\ 2498}# - (let ((#{t\ 2499}# (string? #{x\ 2497}#))) - (if #{t\ 2499}# - #{t\ 2499}# - (symbol? #{x\ 2497}#)))))) - #{x\ 2496}#)) + (let ((#{x\ 1328}# #{who\ 1327}#)) + (if (not ((lambda (#{x\ 1329}#) + (let ((#{t\ 1330}# (not #{x\ 1329}#))) + (if #{t\ 1330}# + #{t\ 1330}# + (let ((#{t\ 1331}# (string? #{x\ 1329}#))) + (if #{t\ 1331}# + #{t\ 1331}# + (symbol? #{x\ 1329}#)))))) + #{x\ 1328}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 2496}#))) - (let ((#{x\ 2500}# #{message\ 2494}#)) - (if (not (string? #{x\ 2500}#)) + #{x\ 1328}#))) + (let ((#{x\ 1332}# #{message\ 1326}#)) + (if (not (string? #{x\ 1332}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 2500}#))) + #{x\ 1332}#))) (scm-error 'syntax-error 'sc-expand (string-append - (if #{who\ 2495}# "~a: " "") + (if #{who\ 1327}# "~a: " "") "~a " - (if (null? #{subform\ 2492}#) + (if (null? #{subform\ 1324}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 2501}# - (cons #{message\ 2494}# - (map (lambda (#{x\ 2502}#) - (#{strip\ 1343}# #{x\ 2502}# (quote (())))) + (let ((#{tail\ 1333}# + (cons #{message\ 1326}# + (map (lambda (#{x\ 1334}#) + (#{strip\ 175}# #{x\ 1334}# (quote (())))) (append - #{subform\ 2492}# - (list #{form\ 2493}#)))))) - (if #{who\ 2495}# - (cons #{who\ 2495}# #{tail\ 2501}#) - #{tail\ 2501}#)) + #{subform\ 1324}# + (list #{form\ 1325}#)))))) + (if #{who\ 1327}# + (cons #{who\ 1327}# #{tail\ 1333}#) + #{tail\ 1333}#)) #f)))) - (letrec ((#{match\ 2507}# - (lambda (#{e\ 2508}# - #{p\ 2509}# - #{w\ 2510}# - #{r\ 2511}# - #{mod\ 2512}#) - (if (not #{r\ 2511}#) + (letrec ((#{match\ 1339}# + (lambda (#{e\ 1340}# + #{p\ 1341}# + #{w\ 1342}# + #{r\ 1343}# + #{mod\ 1344}#) + (if (not #{r\ 1343}#) #f - (if (eq? #{p\ 2509}# (quote any)) - (cons (#{wrap\ 1325}# - #{e\ 2508}# - #{w\ 2510}# - #{mod\ 2512}#) - #{r\ 2511}#) - (if (#{syntax-object?\ 1281}# #{e\ 2508}#) - (#{match*\ 2506}# - (#{syntax-object-expression\ 1282}# #{e\ 2508}#) - #{p\ 2509}# - (#{join-wraps\ 1316}# - #{w\ 2510}# - (#{syntax-object-wrap\ 1283}# #{e\ 2508}#)) - #{r\ 2511}# - (#{syntax-object-module\ 1284}# #{e\ 2508}#)) - (#{match*\ 2506}# - #{e\ 2508}# - #{p\ 2509}# - #{w\ 2510}# - #{r\ 2511}# - #{mod\ 2512}#)))))) - (#{match*\ 2506}# - (lambda (#{e\ 2513}# - #{p\ 2514}# - #{w\ 2515}# - #{r\ 2516}# - #{mod\ 2517}#) - (if (null? #{p\ 2514}#) - (if (null? #{e\ 2513}#) #{r\ 2516}# #f) - (if (pair? #{p\ 2514}#) - (if (pair? #{e\ 2513}#) - (#{match\ 2507}# - (car #{e\ 2513}#) - (car #{p\ 2514}#) - #{w\ 2515}# - (#{match\ 2507}# - (cdr #{e\ 2513}#) - (cdr #{p\ 2514}#) - #{w\ 2515}# - #{r\ 2516}# - #{mod\ 2517}#) - #{mod\ 2517}#) + (if (eq? #{p\ 1341}# (quote any)) + (cons (#{wrap\ 157}# + #{e\ 1340}# + #{w\ 1342}# + #{mod\ 1344}#) + #{r\ 1343}#) + (if (#{syntax-object?\ 113}# #{e\ 1340}#) + (#{match*\ 1338}# + (#{syntax-object-expression\ 114}# #{e\ 1340}#) + #{p\ 1341}# + (#{join-wraps\ 148}# + #{w\ 1342}# + (#{syntax-object-wrap\ 115}# #{e\ 1340}#)) + #{r\ 1343}# + (#{syntax-object-module\ 116}# #{e\ 1340}#)) + (#{match*\ 1338}# + #{e\ 1340}# + #{p\ 1341}# + #{w\ 1342}# + #{r\ 1343}# + #{mod\ 1344}#)))))) + (#{match*\ 1338}# + (lambda (#{e\ 1345}# + #{p\ 1346}# + #{w\ 1347}# + #{r\ 1348}# + #{mod\ 1349}#) + (if (null? #{p\ 1346}#) + (if (null? #{e\ 1345}#) #{r\ 1348}# #f) + (if (pair? #{p\ 1346}#) + (if (pair? #{e\ 1345}#) + (#{match\ 1339}# + (car #{e\ 1345}#) + (car #{p\ 1346}#) + #{w\ 1347}# + (#{match\ 1339}# + (cdr #{e\ 1345}#) + (cdr #{p\ 1346}#) + #{w\ 1347}# + #{r\ 1348}# + #{mod\ 1349}#) + #{mod\ 1349}#) #f) - (if (eq? #{p\ 2514}# (quote each-any)) - (let ((#{l\ 2518}# - (#{match-each-any\ 2504}# - #{e\ 2513}# - #{w\ 2515}# - #{mod\ 2517}#))) - (if #{l\ 2518}# - (cons #{l\ 2518}# #{r\ 2516}#) + (if (eq? #{p\ 1346}# (quote each-any)) + (let ((#{l\ 1350}# + (#{match-each-any\ 1336}# + #{e\ 1345}# + #{w\ 1347}# + #{mod\ 1349}#))) + (if #{l\ 1350}# + (cons #{l\ 1350}# #{r\ 1348}#) #f)) - (let ((#{atom-key\ 2519}# (vector-ref #{p\ 2514}# 0))) - (if (memv #{atom-key\ 2519}# (quote (each))) - (if (null? #{e\ 2513}#) - (#{match-empty\ 2505}# - (vector-ref #{p\ 2514}# 1) - #{r\ 2516}#) - (let ((#{l\ 2520}# - (#{match-each\ 2503}# - #{e\ 2513}# - (vector-ref #{p\ 2514}# 1) - #{w\ 2515}# - #{mod\ 2517}#))) - (if #{l\ 2520}# - (letrec ((#{collect\ 2521}# - (lambda (#{l\ 2522}#) - (if (null? (car #{l\ 2522}#)) - #{r\ 2516}# - (cons (map car #{l\ 2522}#) - (#{collect\ 2521}# + (let ((#{atom-key\ 1351}# (vector-ref #{p\ 1346}# 0))) + (if (memv #{atom-key\ 1351}# (quote (each))) + (if (null? #{e\ 1345}#) + (#{match-empty\ 1337}# + (vector-ref #{p\ 1346}# 1) + #{r\ 1348}#) + (let ((#{l\ 1352}# + (#{match-each\ 1335}# + #{e\ 1345}# + (vector-ref #{p\ 1346}# 1) + #{w\ 1347}# + #{mod\ 1349}#))) + (if #{l\ 1352}# + (letrec ((#{collect\ 1353}# + (lambda (#{l\ 1354}#) + (if (null? (car #{l\ 1354}#)) + #{r\ 1348}# + (cons (map car #{l\ 1354}#) + (#{collect\ 1353}# (map cdr - #{l\ 2522}#))))))) - (#{collect\ 2521}# #{l\ 2520}#)) + #{l\ 1354}#))))))) + (#{collect\ 1353}# #{l\ 1352}#)) #f))) - (if (memv #{atom-key\ 2519}# (quote (free-id))) - (if (#{id?\ 1297}# #{e\ 2513}#) - (if (#{free-id=?\ 1320}# - (#{wrap\ 1325}# - #{e\ 2513}# - #{w\ 2515}# - #{mod\ 2517}#) - (vector-ref #{p\ 2514}# 1)) - #{r\ 2516}# + (if (memv #{atom-key\ 1351}# (quote (free-id))) + (if (#{id?\ 129}# #{e\ 1345}#) + (if (#{free-id=?\ 152}# + (#{wrap\ 157}# + #{e\ 1345}# + #{w\ 1347}# + #{mod\ 1349}#) + (vector-ref #{p\ 1346}# 1)) + #{r\ 1348}# #f) #f) - (if (memv #{atom-key\ 2519}# (quote (atom))) + (if (memv #{atom-key\ 1351}# (quote (atom))) (if (equal? - (vector-ref #{p\ 2514}# 1) - (#{strip\ 1343}# - #{e\ 2513}# - #{w\ 2515}#)) - #{r\ 2516}# + (vector-ref #{p\ 1346}# 1) + (#{strip\ 175}# + #{e\ 1345}# + #{w\ 1347}#)) + #{r\ 1348}# #f) - (if (memv #{atom-key\ 2519}# (quote (vector))) - (if (vector? #{e\ 2513}#) - (#{match\ 2507}# - (vector->list #{e\ 2513}#) - (vector-ref #{p\ 2514}# 1) - #{w\ 2515}# - #{r\ 2516}# - #{mod\ 2517}#) + (if (memv #{atom-key\ 1351}# (quote (vector))) + (if (vector? #{e\ 1345}#) + (#{match\ 1339}# + (vector->list #{e\ 1345}#) + (vector-ref #{p\ 1346}# 1) + #{w\ 1347}# + #{r\ 1348}# + #{mod\ 1349}#) #f))))))))))) - (#{match-empty\ 2505}# - (lambda (#{p\ 2523}# #{r\ 2524}#) - (if (null? #{p\ 2523}#) - #{r\ 2524}# - (if (eq? #{p\ 2523}# (quote any)) - (cons (quote ()) #{r\ 2524}#) - (if (pair? #{p\ 2523}#) - (#{match-empty\ 2505}# - (car #{p\ 2523}#) - (#{match-empty\ 2505}# - (cdr #{p\ 2523}#) - #{r\ 2524}#)) - (if (eq? #{p\ 2523}# (quote each-any)) - (cons (quote ()) #{r\ 2524}#) - (let ((#{atom-key\ 2525}# - (vector-ref #{p\ 2523}# 0))) - (if (memv #{atom-key\ 2525}# (quote (each))) - (#{match-empty\ 2505}# - (vector-ref #{p\ 2523}# 1) - #{r\ 2524}#) - (if (memv #{atom-key\ 2525}# + (#{match-empty\ 1337}# + (lambda (#{p\ 1355}# #{r\ 1356}#) + (if (null? #{p\ 1355}#) + #{r\ 1356}# + (if (eq? #{p\ 1355}# (quote any)) + (cons (quote ()) #{r\ 1356}#) + (if (pair? #{p\ 1355}#) + (#{match-empty\ 1337}# + (car #{p\ 1355}#) + (#{match-empty\ 1337}# + (cdr #{p\ 1355}#) + #{r\ 1356}#)) + (if (eq? #{p\ 1355}# (quote each-any)) + (cons (quote ()) #{r\ 1356}#) + (let ((#{atom-key\ 1357}# + (vector-ref #{p\ 1355}# 0))) + (if (memv #{atom-key\ 1357}# (quote (each))) + (#{match-empty\ 1337}# + (vector-ref #{p\ 1355}# 1) + #{r\ 1356}#) + (if (memv #{atom-key\ 1357}# '(free-id atom)) - #{r\ 2524}# - (if (memv #{atom-key\ 2525}# (quote (vector))) - (#{match-empty\ 2505}# - (vector-ref #{p\ 2523}# 1) - #{r\ 2524}#))))))))))) - (#{match-each-any\ 2504}# - (lambda (#{e\ 2526}# #{w\ 2527}# #{mod\ 2528}#) - (if (pair? #{e\ 2526}#) - (let ((#{l\ 2529}# - (#{match-each-any\ 2504}# - (cdr #{e\ 2526}#) - #{w\ 2527}# - #{mod\ 2528}#))) - (if #{l\ 2529}# - (cons (#{wrap\ 1325}# - (car #{e\ 2526}#) - #{w\ 2527}# - #{mod\ 2528}#) - #{l\ 2529}#) + #{r\ 1356}# + (if (memv #{atom-key\ 1357}# (quote (vector))) + (#{match-empty\ 1337}# + (vector-ref #{p\ 1355}# 1) + #{r\ 1356}#))))))))))) + (#{match-each-any\ 1336}# + (lambda (#{e\ 1358}# #{w\ 1359}# #{mod\ 1360}#) + (if (pair? #{e\ 1358}#) + (let ((#{l\ 1361}# + (#{match-each-any\ 1336}# + (cdr #{e\ 1358}#) + #{w\ 1359}# + #{mod\ 1360}#))) + (if #{l\ 1361}# + (cons (#{wrap\ 157}# + (car #{e\ 1358}#) + #{w\ 1359}# + #{mod\ 1360}#) + #{l\ 1361}#) #f)) - (if (null? #{e\ 2526}#) + (if (null? #{e\ 1358}#) '() - (if (#{syntax-object?\ 1281}# #{e\ 2526}#) - (#{match-each-any\ 2504}# - (#{syntax-object-expression\ 1282}# #{e\ 2526}#) - (#{join-wraps\ 1316}# - #{w\ 2527}# - (#{syntax-object-wrap\ 1283}# #{e\ 2526}#)) - #{mod\ 2528}#) + (if (#{syntax-object?\ 113}# #{e\ 1358}#) + (#{match-each-any\ 1336}# + (#{syntax-object-expression\ 114}# #{e\ 1358}#) + (#{join-wraps\ 148}# + #{w\ 1359}# + (#{syntax-object-wrap\ 115}# #{e\ 1358}#)) + #{mod\ 1360}#) #f))))) - (#{match-each\ 2503}# - (lambda (#{e\ 2530}# - #{p\ 2531}# - #{w\ 2532}# - #{mod\ 2533}#) - (if (pair? #{e\ 2530}#) - (let ((#{first\ 2534}# - (#{match\ 2507}# - (car #{e\ 2530}#) - #{p\ 2531}# - #{w\ 2532}# + (#{match-each\ 1335}# + (lambda (#{e\ 1362}# + #{p\ 1363}# + #{w\ 1364}# + #{mod\ 1365}#) + (if (pair? #{e\ 1362}#) + (let ((#{first\ 1366}# + (#{match\ 1339}# + (car #{e\ 1362}#) + #{p\ 1363}# + #{w\ 1364}# '() - #{mod\ 2533}#))) - (if #{first\ 2534}# - (let ((#{rest\ 2535}# - (#{match-each\ 2503}# - (cdr #{e\ 2530}#) - #{p\ 2531}# - #{w\ 2532}# - #{mod\ 2533}#))) - (if #{rest\ 2535}# - (cons #{first\ 2534}# #{rest\ 2535}#) + #{mod\ 1365}#))) + (if #{first\ 1366}# + (let ((#{rest\ 1367}# + (#{match-each\ 1335}# + (cdr #{e\ 1362}#) + #{p\ 1363}# + #{w\ 1364}# + #{mod\ 1365}#))) + (if #{rest\ 1367}# + (cons #{first\ 1366}# #{rest\ 1367}#) #f)) #f)) - (if (null? #{e\ 2530}#) + (if (null? #{e\ 1362}#) '() - (if (#{syntax-object?\ 1281}# #{e\ 2530}#) - (#{match-each\ 2503}# - (#{syntax-object-expression\ 1282}# #{e\ 2530}#) - #{p\ 2531}# - (#{join-wraps\ 1316}# - #{w\ 2532}# - (#{syntax-object-wrap\ 1283}# #{e\ 2530}#)) - (#{syntax-object-module\ 1284}# #{e\ 2530}#)) + (if (#{syntax-object?\ 113}# #{e\ 1362}#) + (#{match-each\ 1335}# + (#{syntax-object-expression\ 114}# #{e\ 1362}#) + #{p\ 1363}# + (#{join-wraps\ 148}# + #{w\ 1364}# + (#{syntax-object-wrap\ 115}# #{e\ 1362}#)) + (#{syntax-object-module\ 116}# #{e\ 1362}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 2536}# #{p\ 2537}#) - (if (eq? #{p\ 2537}# (quote any)) - (list #{e\ 2536}#) - (if (#{syntax-object?\ 1281}# #{e\ 2536}#) - (#{match*\ 2506}# - (#{syntax-object-expression\ 1282}# #{e\ 2536}#) - #{p\ 2537}# - (#{syntax-object-wrap\ 1283}# #{e\ 2536}#) + (lambda (#{e\ 1368}# #{p\ 1369}#) + (if (eq? #{p\ 1369}# (quote any)) + (list #{e\ 1368}#) + (if (#{syntax-object?\ 113}# #{e\ 1368}#) + (#{match*\ 1338}# + (#{syntax-object-expression\ 114}# #{e\ 1368}#) + #{p\ 1369}# + (#{syntax-object-wrap\ 115}# #{e\ 1368}#) '() - (#{syntax-object-module\ 1284}# #{e\ 2536}#)) - (#{match*\ 2506}# - #{e\ 2536}# - #{p\ 2537}# + (#{syntax-object-module\ 116}# #{e\ 1368}#)) + (#{match*\ 1338}# + #{e\ 1368}# + #{p\ 1369}# '(()) '() #f))))))))) @@ -9157,11 +9179,11 @@ (define with-syntax (make-syncase-macro 'macro - (lambda (#{x\ 2538}#) - ((lambda (#{tmp\ 2539}#) - ((lambda (#{tmp\ 2540}#) - (if #{tmp\ 2540}# - (apply (lambda (#{_\ 2541}# #{e1\ 2542}# #{e2\ 2543}#) + (lambda (#{x\ 1370}#) + ((lambda (#{tmp\ 1371}#) + ((lambda (#{tmp\ 1372}#) + (if #{tmp\ 1372}# + (apply (lambda (#{_\ 1373}# #{e1\ 1374}# #{e2\ 1375}#) (cons '#(syntax-object begin ((top) @@ -9172,15 +9194,15 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 2542}# #{e2\ 2543}#))) - #{tmp\ 2540}#) - ((lambda (#{tmp\ 2545}#) - (if #{tmp\ 2545}# - (apply (lambda (#{_\ 2546}# - #{out\ 2547}# - #{in\ 2548}# - #{e1\ 2549}# - #{e2\ 2550}#) + (cons #{e1\ 1374}# #{e2\ 1375}#))) + #{tmp\ 1372}#) + ((lambda (#{tmp\ 1377}#) + (if #{tmp\ 1377}# + (apply (lambda (#{_\ 1378}# + #{out\ 1379}# + #{in\ 1380}# + #{e1\ 1381}# + #{e2\ 1382}#) (list '#(syntax-object syntax-case ((top) @@ -9191,9 +9213,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - #{in\ 2548}# + #{in\ 1380}# '() - (list #{out\ 2547}# + (list #{out\ 1379}# (cons '#(syntax-object begin ((top) @@ -9211,16 +9233,16 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 2549}# - #{e2\ 2550}#))))) - #{tmp\ 2545}#) - ((lambda (#{tmp\ 2552}#) - (if #{tmp\ 2552}# - (apply (lambda (#{_\ 2553}# - #{out\ 2554}# - #{in\ 2555}# - #{e1\ 2556}# - #{e2\ 2557}#) + (cons #{e1\ 1381}# + #{e2\ 1382}#))))) + #{tmp\ 1377}#) + ((lambda (#{tmp\ 1384}#) + (if #{tmp\ 1384}# + (apply (lambda (#{_\ 1385}# + #{out\ 1386}# + #{in\ 1387}# + #{e1\ 1388}# + #{e2\ 1389}#) (list '#(syntax-object syntax-case ((top) @@ -9248,9 +9270,9 @@ #((top)) #("i"))) (hygiene guile)) - #{in\ 2555}#) + #{in\ 1387}#) '() - (list #{out\ 2554}# + (list #{out\ 1386}# (cons '#(syntax-object begin ((top) @@ -9272,36 +9294,36 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 2556}# - #{e2\ 2557}#))))) - #{tmp\ 2552}#) + (cons #{e1\ 1388}# + #{e2\ 1389}#))))) + #{tmp\ 1384}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2539}#))) + #{tmp\ 1371}#))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1371}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1371}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1371}# '(any () any . each-any)))) - #{x\ 2538}#)))) + #{x\ 1370}#)))) (define syntax-rules (make-syncase-macro 'macro - (lambda (#{x\ 2561}#) - ((lambda (#{tmp\ 2562}#) - ((lambda (#{tmp\ 2563}#) - (if #{tmp\ 2563}# - (apply (lambda (#{_\ 2564}# - #{k\ 2565}# - #{keyword\ 2566}# - #{pattern\ 2567}# - #{template\ 2568}#) + (lambda (#{x\ 1393}#) + ((lambda (#{tmp\ 1394}#) + ((lambda (#{tmp\ 1395}#) + (if #{tmp\ 1395}# + (apply (lambda (#{_\ 1396}# + #{k\ 1397}# + #{keyword\ 1398}# + #{pattern\ 1399}# + #{template\ 1400}#) (list '#(syntax-object lambda ((top) @@ -9342,9 +9364,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - (cons #{k\ 2565}# - (map (lambda (#{tmp\ 2571}# - #{tmp\ 2570}#) + (cons #{k\ 1397}# + (map (lambda (#{tmp\ 1403}# + #{tmp\ 1402}#) (list (cons '#(syntax-object dummy ((top) @@ -9374,7 +9396,7 @@ #("i"))) (hygiene guile)) - #{tmp\ 2570}#) + #{tmp\ 1402}#) (list '#(syntax-object syntax ((top) @@ -9404,43 +9426,43 @@ #("i"))) (hygiene guile)) - #{tmp\ 2571}#))) - #{template\ 2568}# - #{pattern\ 2567}#)))))) - #{tmp\ 2563}#) + #{tmp\ 1403}#))) + #{template\ 1400}# + #{pattern\ 1399}#)))))) + #{tmp\ 1395}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2562}#))) + #{tmp\ 1394}#))) ($sc-dispatch - #{tmp\ 2562}# + #{tmp\ 1394}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 2561}#)))) + #{x\ 1393}#)))) (define let* (make-extended-syncase-macro (module-ref (current-module) (quote let*)) 'macro - (lambda (#{x\ 2572}#) - ((lambda (#{tmp\ 2573}#) - ((lambda (#{tmp\ 2574}#) - (if (if #{tmp\ 2574}# - (apply (lambda (#{let*\ 2575}# - #{x\ 2576}# - #{v\ 2577}# - #{e1\ 2578}# - #{e2\ 2579}#) - (and-map identifier? #{x\ 2576}#)) - #{tmp\ 2574}#) + (lambda (#{x\ 1404}#) + ((lambda (#{tmp\ 1405}#) + ((lambda (#{tmp\ 1406}#) + (if (if #{tmp\ 1406}# + (apply (lambda (#{let*\ 1407}# + #{x\ 1408}# + #{v\ 1409}# + #{e1\ 1410}# + #{e2\ 1411}#) + (and-map identifier? #{x\ 1408}#)) + #{tmp\ 1406}#) #f) - (apply (lambda (#{let*\ 2581}# - #{x\ 2582}# - #{v\ 2583}# - #{e1\ 2584}# - #{e2\ 2585}#) - (letrec ((#{f\ 2586}# - (lambda (#{bindings\ 2587}#) - (if (null? #{bindings\ 2587}#) + (apply (lambda (#{let*\ 1413}# + #{x\ 1414}# + #{v\ 1415}# + #{e1\ 1416}# + #{e2\ 1417}#) + (letrec ((#{f\ 1418}# + (lambda (#{bindings\ 1419}#) + (if (null? #{bindings\ 1419}#) (cons '#(syntax-object let ((top) @@ -9464,13 +9486,13 @@ #("i"))) (hygiene guile)) (cons '() - (cons #{e1\ 2584}# - #{e2\ 2585}#))) - ((lambda (#{tmp\ 2591}#) - ((lambda (#{tmp\ 2592}#) - (if #{tmp\ 2592}# - (apply (lambda (#{body\ 2593}# - #{binding\ 2594}#) + (cons #{e1\ 1416}# + #{e2\ 1417}#))) + ((lambda (#{tmp\ 1423}#) + ((lambda (#{tmp\ 1424}#) + (if #{tmp\ 1424}# + (apply (lambda (#{body\ 1425}# + #{binding\ 1426}#) (list '#(syntax-object let ((top) @@ -9516,52 +9538,52 @@ #("i"))) (hygiene guile)) - (list #{binding\ 2594}#) - #{body\ 2593}#)) - #{tmp\ 2592}#) + (list #{binding\ 1426}#) + #{body\ 1425}#)) + #{tmp\ 1424}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2591}#))) + #{tmp\ 1423}#))) ($sc-dispatch - #{tmp\ 2591}# + #{tmp\ 1423}# '(any any)))) - (list (#{f\ 2586}# - (cdr #{bindings\ 2587}#)) - (car #{bindings\ 2587}#))))))) - (#{f\ 2586}# (map list #{x\ 2582}# #{v\ 2583}#)))) - #{tmp\ 2574}#) + (list (#{f\ 1418}# + (cdr #{bindings\ 1419}#)) + (car #{bindings\ 1419}#))))))) + (#{f\ 1418}# (map list #{x\ 1414}# #{v\ 1415}#)))) + #{tmp\ 1406}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2573}#))) + #{tmp\ 1405}#))) ($sc-dispatch - #{tmp\ 2573}# + #{tmp\ 1405}# '(any #(each (any any)) any . each-any)))) - #{x\ 2572}#)))) + #{x\ 1404}#)))) (define do (make-extended-syncase-macro (module-ref (current-module) (quote do)) 'macro - (lambda (#{orig-x\ 2595}#) - ((lambda (#{tmp\ 2596}#) - ((lambda (#{tmp\ 2597}#) - (if #{tmp\ 2597}# - (apply (lambda (#{_\ 2598}# - #{var\ 2599}# - #{init\ 2600}# - #{step\ 2601}# - #{e0\ 2602}# - #{e1\ 2603}# - #{c\ 2604}#) - ((lambda (#{tmp\ 2605}#) - ((lambda (#{tmp\ 2606}#) - (if #{tmp\ 2606}# - (apply (lambda (#{step\ 2607}#) - ((lambda (#{tmp\ 2608}#) - ((lambda (#{tmp\ 2609}#) - (if #{tmp\ 2609}# + (lambda (#{orig-x\ 1427}#) + ((lambda (#{tmp\ 1428}#) + ((lambda (#{tmp\ 1429}#) + (if #{tmp\ 1429}# + (apply (lambda (#{_\ 1430}# + #{var\ 1431}# + #{init\ 1432}# + #{step\ 1433}# + #{e0\ 1434}# + #{e1\ 1435}# + #{c\ 1436}#) + ((lambda (#{tmp\ 1437}#) + ((lambda (#{tmp\ 1438}#) + (if #{tmp\ 1438}# + (apply (lambda (#{step\ 1439}#) + ((lambda (#{tmp\ 1440}#) + ((lambda (#{tmp\ 1441}#) + (if #{tmp\ 1441}# (apply (lambda () (list '#(syntax-object let @@ -9642,8 +9664,8 @@ (hygiene guile)) (map list - #{var\ 2599}# - #{init\ 2600}#) + #{var\ 1431}# + #{init\ 1432}#) (list '#(syntax-object if ((top) @@ -9722,7 +9744,7 @@ #("i"))) (hygiene guile)) - #{e0\ 2602}#) + #{e0\ 1434}#) (cons '#(syntax-object begin ((top) @@ -9763,7 +9785,7 @@ (hygiene guile)) (append - #{c\ 2604}# + #{c\ 1436}# (list (cons '#(syntax-object doloop ((top) @@ -9803,12 +9825,12 @@ #("i"))) (hygiene guile)) - #{step\ 2607}#))))))) - #{tmp\ 2609}#) - ((lambda (#{tmp\ 2614}#) - (if #{tmp\ 2614}# - (apply (lambda (#{e1\ 2615}# - #{e2\ 2616}#) + #{step\ 1439}#))))))) + #{tmp\ 1441}#) + ((lambda (#{tmp\ 1446}#) + (if #{tmp\ 1446}# + (apply (lambda (#{e1\ 1447}# + #{e2\ 1448}#) (list '#(syntax-object let ((top) @@ -9902,8 +9924,8 @@ (hygiene guile)) (map list - #{var\ 2599}# - #{init\ 2600}#) + #{var\ 1431}# + #{init\ 1432}#) (list '#(syntax-object if ((top) @@ -9950,7 +9972,7 @@ #("i"))) (hygiene guile)) - #{e0\ 2602}# + #{e0\ 1434}# (cons '#(syntax-object begin ((top) @@ -9997,8 +10019,8 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2615}# - #{e2\ 2616}#)) + (cons #{e1\ 1447}# + #{e2\ 1448}#)) (cons '#(syntax-object begin ((top) @@ -10046,7 +10068,7 @@ (hygiene guile)) (append - #{c\ 2604}# + #{c\ 1436}# (list (cons '#(syntax-object doloop ((top) @@ -10093,81 +10115,81 @@ #("i"))) (hygiene guile)) - #{step\ 2607}#))))))) - #{tmp\ 2614}#) + #{step\ 1439}#))))))) + #{tmp\ 1446}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2608}#))) + #{tmp\ 1440}#))) ($sc-dispatch - #{tmp\ 2608}# + #{tmp\ 1440}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 2608}# + #{tmp\ 1440}# '()))) - #{e1\ 2603}#)) - #{tmp\ 2606}#) + #{e1\ 1435}#)) + #{tmp\ 1438}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2605}#))) - ($sc-dispatch #{tmp\ 2605}# (quote each-any)))) - (map (lambda (#{v\ 2623}# #{s\ 2624}#) - ((lambda (#{tmp\ 2625}#) - ((lambda (#{tmp\ 2626}#) - (if #{tmp\ 2626}# - (apply (lambda () #{v\ 2623}#) - #{tmp\ 2626}#) - ((lambda (#{tmp\ 2627}#) - (if #{tmp\ 2627}# - (apply (lambda (#{e\ 2628}#) - #{e\ 2628}#) - #{tmp\ 2627}#) - ((lambda (#{_\ 2629}#) + #{tmp\ 1437}#))) + ($sc-dispatch #{tmp\ 1437}# (quote each-any)))) + (map (lambda (#{v\ 1455}# #{s\ 1456}#) + ((lambda (#{tmp\ 1457}#) + ((lambda (#{tmp\ 1458}#) + (if #{tmp\ 1458}# + (apply (lambda () #{v\ 1455}#) + #{tmp\ 1458}#) + ((lambda (#{tmp\ 1459}#) + (if #{tmp\ 1459}# + (apply (lambda (#{e\ 1460}#) + #{e\ 1460}#) + #{tmp\ 1459}#) + ((lambda (#{_\ 1461}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 2595}# - #{s\ 2624}#)) - #{tmp\ 2625}#))) + #{orig-x\ 1427}# + #{s\ 1456}#)) + #{tmp\ 1457}#))) ($sc-dispatch - #{tmp\ 2625}# + #{tmp\ 1457}# '(any))))) - ($sc-dispatch #{tmp\ 2625}# (quote ())))) - #{s\ 2624}#)) - #{var\ 2599}# - #{step\ 2601}#))) - #{tmp\ 2597}#) + ($sc-dispatch #{tmp\ 1457}# (quote ())))) + #{s\ 1456}#)) + #{var\ 1431}# + #{step\ 1433}#))) + #{tmp\ 1429}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2596}#))) + #{tmp\ 1428}#))) ($sc-dispatch - #{tmp\ 2596}# + #{tmp\ 1428}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 2595}#)))) + #{orig-x\ 1427}#)))) (define quasiquote (make-extended-syncase-macro (module-ref (current-module) (quote quasiquote)) 'macro - (letrec ((#{quasicons\ 2632}# - (lambda (#{x\ 2636}# #{y\ 2637}#) - ((lambda (#{tmp\ 2638}#) - ((lambda (#{tmp\ 2639}#) - (if #{tmp\ 2639}# - (apply (lambda (#{x\ 2640}# #{y\ 2641}#) - ((lambda (#{tmp\ 2642}#) - ((lambda (#{tmp\ 2643}#) - (if #{tmp\ 2643}# - (apply (lambda (#{dy\ 2644}#) - ((lambda (#{tmp\ 2645}#) - ((lambda (#{tmp\ 2646}#) - (if #{tmp\ 2646}# - (apply (lambda (#{dx\ 2647}#) + (letrec ((#{quasicons\ 1464}# + (lambda (#{x\ 1468}# #{y\ 1469}#) + ((lambda (#{tmp\ 1470}#) + ((lambda (#{tmp\ 1471}#) + (if #{tmp\ 1471}# + (apply (lambda (#{x\ 1472}# #{y\ 1473}#) + ((lambda (#{tmp\ 1474}#) + ((lambda (#{tmp\ 1475}#) + (if #{tmp\ 1475}# + (apply (lambda (#{dy\ 1476}#) + ((lambda (#{tmp\ 1477}#) + ((lambda (#{tmp\ 1478}#) + (if #{tmp\ 1478}# + (apply (lambda (#{dx\ 1479}#) (list '#(syntax-object quote ((top) @@ -10216,11 +10238,11 @@ "i"))) (hygiene guile)) - (cons #{dx\ 2647}# - #{dy\ 2644}#))) - #{tmp\ 2646}#) - ((lambda (#{_\ 2648}#) - (if (null? #{dy\ 2644}#) + (cons #{dx\ 1479}# + #{dy\ 1476}#))) + #{tmp\ 1478}#) + ((lambda (#{_\ 1480}#) + (if (null? #{dy\ 1476}#) (list '#(syntax-object list ((top) @@ -10269,7 +10291,7 @@ "i"))) (hygiene guile)) - #{x\ 2640}#) + #{x\ 1472}#) (list '#(syntax-object cons ((top) @@ -10318,11 +10340,11 @@ "i"))) (hygiene guile)) - #{x\ 2640}# - #{y\ 2641}#))) - #{tmp\ 2645}#))) + #{x\ 1472}# + #{y\ 1473}#))) + #{tmp\ 1477}#))) ($sc-dispatch - #{tmp\ 2645}# + #{tmp\ 1477}# '(#(free-id #(syntax-object quote @@ -10365,11 +10387,11 @@ (hygiene guile))) any)))) - #{x\ 2640}#)) - #{tmp\ 2643}#) - ((lambda (#{tmp\ 2649}#) - (if #{tmp\ 2649}# - (apply (lambda (#{stuff\ 2650}#) + #{x\ 1472}#)) + #{tmp\ 1475}#) + ((lambda (#{tmp\ 1481}#) + (if #{tmp\ 1481}# + (apply (lambda (#{stuff\ 1482}#) (cons '#(syntax-object list ((top) @@ -10410,10 +10432,10 @@ "i"))) (hygiene guile)) - (cons #{x\ 2640}# - #{stuff\ 2650}#))) - #{tmp\ 2649}#) - ((lambda (#{else\ 2651}#) + (cons #{x\ 1472}# + #{stuff\ 1482}#))) + #{tmp\ 1481}#) + ((lambda (#{else\ 1483}#) (list '#(syntax-object cons ((top) @@ -10445,11 +10467,11 @@ "i" "i"))) (hygiene guile)) - #{x\ 2640}# - #{y\ 2641}#)) - #{tmp\ 2642}#))) + #{x\ 1472}# + #{y\ 1473}#)) + #{tmp\ 1474}#))) ($sc-dispatch - #{tmp\ 2642}# + #{tmp\ 1474}# '(#(free-id #(syntax-object list @@ -10478,7 +10500,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2642}# + #{tmp\ 1474}# '(#(free-id #(syntax-object quote @@ -10502,26 +10524,26 @@ #("i" "i" "i" "i"))) (hygiene guile))) any)))) - #{y\ 2641}#)) - #{tmp\ 2639}#) + #{y\ 1473}#)) + #{tmp\ 1471}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2638}#))) - ($sc-dispatch #{tmp\ 2638}# (quote (any any))))) - (list #{x\ 2636}# #{y\ 2637}#)))) - (#{quasiappend\ 2633}# - (lambda (#{x\ 2652}# #{y\ 2653}#) - ((lambda (#{tmp\ 2654}#) - ((lambda (#{tmp\ 2655}#) - (if #{tmp\ 2655}# - (apply (lambda (#{x\ 2656}# #{y\ 2657}#) - ((lambda (#{tmp\ 2658}#) - ((lambda (#{tmp\ 2659}#) - (if #{tmp\ 2659}# - (apply (lambda () #{x\ 2656}#) - #{tmp\ 2659}#) - ((lambda (#{_\ 2660}#) + #{tmp\ 1470}#))) + ($sc-dispatch #{tmp\ 1470}# (quote (any any))))) + (list #{x\ 1468}# #{y\ 1469}#)))) + (#{quasiappend\ 1465}# + (lambda (#{x\ 1484}# #{y\ 1485}#) + ((lambda (#{tmp\ 1486}#) + ((lambda (#{tmp\ 1487}#) + (if #{tmp\ 1487}# + (apply (lambda (#{x\ 1488}# #{y\ 1489}#) + ((lambda (#{tmp\ 1490}#) + ((lambda (#{tmp\ 1491}#) + (if #{tmp\ 1491}# + (apply (lambda () #{x\ 1488}#) + #{tmp\ 1491}#) + ((lambda (#{_\ 1492}#) (list '#(syntax-object append ((top) @@ -10550,11 +10572,11 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2656}# - #{y\ 2657}#)) - #{tmp\ 2658}#))) + #{x\ 1488}# + #{y\ 1489}#)) + #{tmp\ 1490}#))) ($sc-dispatch - #{tmp\ 2658}# + #{tmp\ 1490}# '(#(free-id #(syntax-object quote @@ -10578,22 +10600,22 @@ #("i" "i" "i" "i"))) (hygiene guile))) ())))) - #{y\ 2657}#)) - #{tmp\ 2655}#) + #{y\ 1489}#)) + #{tmp\ 1487}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2654}#))) - ($sc-dispatch #{tmp\ 2654}# (quote (any any))))) - (list #{x\ 2652}# #{y\ 2653}#)))) - (#{quasivector\ 2634}# - (lambda (#{x\ 2661}#) - ((lambda (#{tmp\ 2662}#) - ((lambda (#{x\ 2663}#) - ((lambda (#{tmp\ 2664}#) - ((lambda (#{tmp\ 2665}#) - (if #{tmp\ 2665}# - (apply (lambda (#{x\ 2666}#) + #{tmp\ 1486}#))) + ($sc-dispatch #{tmp\ 1486}# (quote (any any))))) + (list #{x\ 1484}# #{y\ 1485}#)))) + (#{quasivector\ 1466}# + (lambda (#{x\ 1493}#) + ((lambda (#{tmp\ 1494}#) + ((lambda (#{x\ 1495}#) + ((lambda (#{tmp\ 1496}#) + ((lambda (#{tmp\ 1497}#) + (if #{tmp\ 1497}# + (apply (lambda (#{x\ 1498}#) (list '#(syntax-object quote ((top) @@ -10619,11 +10641,11 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - (list->vector #{x\ 2666}#))) - #{tmp\ 2665}#) - ((lambda (#{tmp\ 2668}#) - (if #{tmp\ 2668}# - (apply (lambda (#{x\ 2669}#) + (list->vector #{x\ 1498}#))) + #{tmp\ 1497}#) + ((lambda (#{tmp\ 1500}#) + (if #{tmp\ 1500}# + (apply (lambda (#{x\ 1501}#) (cons '#(syntax-object vector ((top) @@ -10652,9 +10674,9 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2669}#)) - #{tmp\ 2668}#) - ((lambda (#{_\ 2671}#) + #{x\ 1501}#)) + #{tmp\ 1500}#) + ((lambda (#{_\ 1503}#) (list '#(syntax-object list->vector ((top) @@ -10680,10 +10702,10 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2663}#)) - #{tmp\ 2664}#))) + #{x\ 1495}#)) + #{tmp\ 1496}#))) ($sc-dispatch - #{tmp\ 2664}# + #{tmp\ 1496}# '(#(free-id #(syntax-object list @@ -10703,7 +10725,7 @@ . each-any))))) ($sc-dispatch - #{tmp\ 2664}# + #{tmp\ 1496}# '(#(free-id #(syntax-object quote @@ -10721,18 +10743,18 @@ #("i" "i" "i" "i"))) (hygiene guile))) each-any)))) - #{x\ 2663}#)) - #{tmp\ 2662}#)) - #{x\ 2661}#))) - (#{quasi\ 2635}# - (lambda (#{p\ 2672}# #{lev\ 2673}#) - ((lambda (#{tmp\ 2674}#) - ((lambda (#{tmp\ 2675}#) - (if #{tmp\ 2675}# - (apply (lambda (#{p\ 2676}#) - (if (= #{lev\ 2673}# 0) - #{p\ 2676}# - (#{quasicons\ 2632}# + #{x\ 1495}#)) + #{tmp\ 1494}#)) + #{x\ 1493}#))) + (#{quasi\ 1467}# + (lambda (#{p\ 1504}# #{lev\ 1505}#) + ((lambda (#{tmp\ 1506}#) + ((lambda (#{tmp\ 1507}#) + (if #{tmp\ 1507}# + (apply (lambda (#{p\ 1508}#) + (if (= #{lev\ 1505}# 0) + #{p\ 1508}# + (#{quasicons\ 1464}# '(#(syntax-object quote ((top) @@ -10767,21 +10789,21 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) - (#{quasi\ 2635}# - (list #{p\ 2676}#) - (- #{lev\ 2673}# 1))))) - #{tmp\ 2675}#) - ((lambda (#{tmp\ 2677}#) - (if (if #{tmp\ 2677}# - (apply (lambda (#{args\ 2678}#) - (= #{lev\ 2673}# 0)) - #{tmp\ 2677}#) + (#{quasi\ 1467}# + (list #{p\ 1508}#) + (- #{lev\ 1505}# 1))))) + #{tmp\ 1507}#) + ((lambda (#{tmp\ 1509}#) + (if (if #{tmp\ 1509}# + (apply (lambda (#{args\ 1510}#) + (= #{lev\ 1505}# 0)) + #{tmp\ 1509}#) #f) - (apply (lambda (#{args\ 2679}#) + (apply (lambda (#{args\ 1511}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 2672}# + #{p\ 1504}# (cons '#(syntax-object unquote ((top) @@ -10802,19 +10824,19 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{args\ 2679}#))) - #{tmp\ 2677}#) - ((lambda (#{tmp\ 2680}#) - (if #{tmp\ 2680}# - (apply (lambda (#{p\ 2681}# #{q\ 2682}#) - (if (= #{lev\ 2673}# 0) - (#{quasiappend\ 2633}# - #{p\ 2681}# - (#{quasi\ 2635}# - #{q\ 2682}# - #{lev\ 2673}#)) - (#{quasicons\ 2632}# - (#{quasicons\ 2632}# + #{args\ 1511}#))) + #{tmp\ 1509}#) + ((lambda (#{tmp\ 1512}#) + (if #{tmp\ 1512}# + (apply (lambda (#{p\ 1513}# #{q\ 1514}#) + (if (= #{lev\ 1505}# 0) + (#{quasiappend\ 1465}# + #{p\ 1513}# + (#{quasi\ 1467}# + #{q\ 1514}# + #{lev\ 1505}#)) + (#{quasicons\ 1464}# + (#{quasicons\ 1464}# '(#(syntax-object quote ((top) @@ -10861,26 +10883,26 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile))) - (#{quasi\ 2635}# - (list #{p\ 2681}#) - (- #{lev\ 2673}# 1))) - (#{quasi\ 2635}# - #{q\ 2682}# - #{lev\ 2673}#)))) - #{tmp\ 2680}#) - ((lambda (#{tmp\ 2683}#) - (if (if #{tmp\ 2683}# - (apply (lambda (#{args\ 2684}# - #{q\ 2685}#) - (= #{lev\ 2673}# 0)) - #{tmp\ 2683}#) + (#{quasi\ 1467}# + (list #{p\ 1513}#) + (- #{lev\ 1505}# 1))) + (#{quasi\ 1467}# + #{q\ 1514}# + #{lev\ 1505}#)))) + #{tmp\ 1512}#) + ((lambda (#{tmp\ 1515}#) + (if (if #{tmp\ 1515}# + (apply (lambda (#{args\ 1516}# + #{q\ 1517}#) + (= #{lev\ 1505}# 0)) + #{tmp\ 1515}#) #f) - (apply (lambda (#{args\ 2686}# - #{q\ 2687}#) + (apply (lambda (#{args\ 1518}# + #{q\ 1519}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 2672}# + #{p\ 1504}# (cons '#(syntax-object unquote-splicing ((top) @@ -10910,12 +10932,12 @@ "i" "i"))) (hygiene guile)) - #{args\ 2686}#))) - #{tmp\ 2683}#) - ((lambda (#{tmp\ 2688}#) - (if #{tmp\ 2688}# - (apply (lambda (#{p\ 2689}#) - (#{quasicons\ 2632}# + #{args\ 1518}#))) + #{tmp\ 1515}#) + ((lambda (#{tmp\ 1520}#) + (if #{tmp\ 1520}# + (apply (lambda (#{p\ 1521}#) + (#{quasicons\ 1464}# '(#(syntax-object quote ((top) @@ -10974,32 +10996,32 @@ "i" "i"))) (hygiene guile))) - (#{quasi\ 2635}# - (list #{p\ 2689}#) - (+ #{lev\ 2673}# + (#{quasi\ 1467}# + (list #{p\ 1521}#) + (+ #{lev\ 1505}# 1)))) - #{tmp\ 2688}#) - ((lambda (#{tmp\ 2690}#) - (if #{tmp\ 2690}# - (apply (lambda (#{p\ 2691}# - #{q\ 2692}#) - (#{quasicons\ 2632}# - (#{quasi\ 2635}# - #{p\ 2691}# - #{lev\ 2673}#) - (#{quasi\ 2635}# - #{q\ 2692}# - #{lev\ 2673}#))) - #{tmp\ 2690}#) - ((lambda (#{tmp\ 2693}#) - (if #{tmp\ 2693}# - (apply (lambda (#{x\ 2694}#) - (#{quasivector\ 2634}# - (#{quasi\ 2635}# - #{x\ 2694}# - #{lev\ 2673}#))) - #{tmp\ 2693}#) - ((lambda (#{p\ 2696}#) + #{tmp\ 1520}#) + ((lambda (#{tmp\ 1522}#) + (if #{tmp\ 1522}# + (apply (lambda (#{p\ 1523}# + #{q\ 1524}#) + (#{quasicons\ 1464}# + (#{quasi\ 1467}# + #{p\ 1523}# + #{lev\ 1505}#) + (#{quasi\ 1467}# + #{q\ 1524}# + #{lev\ 1505}#))) + #{tmp\ 1522}#) + ((lambda (#{tmp\ 1525}#) + (if #{tmp\ 1525}# + (apply (lambda (#{x\ 1526}#) + (#{quasivector\ 1466}# + (#{quasi\ 1467}# + #{x\ 1526}# + #{lev\ 1505}#))) + #{tmp\ 1525}#) + ((lambda (#{p\ 1528}#) (list '#(syntax-object quote ((top) @@ -11032,16 +11054,16 @@ "i"))) (hygiene guile)) - #{p\ 2696}#)) - #{tmp\ 2674}#))) + #{p\ 1528}#)) + #{tmp\ 1506}#))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '(any . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '(#(free-id #(syntax-object quasiquote @@ -11061,7 +11083,7 @@ (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '((#(free-id #(syntax-object unquote-splicing @@ -11084,7 +11106,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '((#(free-id #(syntax-object unquote-splicing @@ -11106,7 +11128,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '(#(free-id #(syntax-object unquote @@ -11124,7 +11146,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1506}# '(#(free-id #(syntax-object unquote @@ -11137,49 +11159,49 @@ #("i" "i" "i" "i"))) (hygiene guile))) any)))) - #{p\ 2672}#)))) - (lambda (#{x\ 2697}#) - ((lambda (#{tmp\ 2698}#) - ((lambda (#{tmp\ 2699}#) - (if #{tmp\ 2699}# - (apply (lambda (#{_\ 2700}# #{e\ 2701}#) - (#{quasi\ 2635}# #{e\ 2701}# 0)) - #{tmp\ 2699}#) + #{p\ 1504}#)))) + (lambda (#{x\ 1529}#) + ((lambda (#{tmp\ 1530}#) + ((lambda (#{tmp\ 1531}#) + (if #{tmp\ 1531}# + (apply (lambda (#{_\ 1532}# #{e\ 1533}#) + (#{quasi\ 1467}# #{e\ 1533}# 0)) + #{tmp\ 1531}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2698}#))) - ($sc-dispatch #{tmp\ 2698}# (quote (any any))))) - #{x\ 2697}#))))) + #{tmp\ 1530}#))) + ($sc-dispatch #{tmp\ 1530}# (quote (any any))))) + #{x\ 1529}#))))) (define include (make-syncase-macro 'macro - (lambda (#{x\ 2702}#) - (letrec ((#{read-file\ 2703}# - (lambda (#{fn\ 2704}# #{k\ 2705}#) - (let ((#{p\ 2706}# (open-input-file #{fn\ 2704}#))) - (letrec ((#{f\ 2707}# - (lambda (#{x\ 2708}#) - (if (eof-object? #{x\ 2708}#) + (lambda (#{x\ 1534}#) + (letrec ((#{read-file\ 1535}# + (lambda (#{fn\ 1536}# #{k\ 1537}#) + (let ((#{p\ 1538}# (open-input-file #{fn\ 1536}#))) + (letrec ((#{f\ 1539}# + (lambda (#{x\ 1540}#) + (if (eof-object? #{x\ 1540}#) (begin - (close-input-port #{p\ 2706}#) + (close-input-port #{p\ 1538}#) '()) (cons (datum->syntax - #{k\ 2705}# - #{x\ 2708}#) - (#{f\ 2707}# (read #{p\ 2706}#))))))) - (#{f\ 2707}# (read #{p\ 2706}#))))))) - ((lambda (#{tmp\ 2709}#) - ((lambda (#{tmp\ 2710}#) - (if #{tmp\ 2710}# - (apply (lambda (#{k\ 2711}# #{filename\ 2712}#) - (let ((#{fn\ 2713}# - (syntax->datum #{filename\ 2712}#))) - ((lambda (#{tmp\ 2714}#) - ((lambda (#{tmp\ 2715}#) - (if #{tmp\ 2715}# - (apply (lambda (#{exp\ 2716}#) + #{k\ 1537}# + #{x\ 1540}#) + (#{f\ 1539}# (read #{p\ 1538}#))))))) + (#{f\ 1539}# (read #{p\ 1538}#))))))) + ((lambda (#{tmp\ 1541}#) + ((lambda (#{tmp\ 1542}#) + (if #{tmp\ 1542}# + (apply (lambda (#{k\ 1543}# #{filename\ 1544}#) + (let ((#{fn\ 1545}# + (syntax->datum #{filename\ 1544}#))) + ((lambda (#{tmp\ 1546}#) + ((lambda (#{tmp\ 1547}#) + (if #{tmp\ 1547}# + (apply (lambda (#{exp\ 1548}#) (cons '#(syntax-object begin ((top) @@ -11206,76 +11228,76 @@ #((top)) #("i"))) (hygiene guile)) - #{exp\ 2716}#)) - #{tmp\ 2715}#) + #{exp\ 1548}#)) + #{tmp\ 1547}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2714}#))) - ($sc-dispatch #{tmp\ 2714}# (quote each-any)))) - (#{read-file\ 2703}# #{fn\ 2713}# #{k\ 2711}#)))) - #{tmp\ 2710}#) + #{tmp\ 1546}#))) + ($sc-dispatch #{tmp\ 1546}# (quote each-any)))) + (#{read-file\ 1535}# #{fn\ 1545}# #{k\ 1543}#)))) + #{tmp\ 1542}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2709}#))) - ($sc-dispatch #{tmp\ 2709}# (quote (any any))))) - #{x\ 2702}#))))) + #{tmp\ 1541}#))) + ($sc-dispatch #{tmp\ 1541}# (quote (any any))))) + #{x\ 1534}#))))) (define unquote (make-syncase-macro 'macro - (lambda (#{x\ 2718}#) - ((lambda (#{tmp\ 2719}#) - ((lambda (#{tmp\ 2720}#) - (if #{tmp\ 2720}# - (apply (lambda (#{_\ 2721}# #{e\ 2722}#) + (lambda (#{x\ 1550}#) + ((lambda (#{tmp\ 1551}#) + ((lambda (#{tmp\ 1552}#) + (if #{tmp\ 1552}# + (apply (lambda (#{_\ 1553}# #{e\ 1554}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 2718}#)) - #{tmp\ 2720}#) + #{x\ 1550}#)) + #{tmp\ 1552}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2719}#))) - ($sc-dispatch #{tmp\ 2719}# (quote (any any))))) - #{x\ 2718}#)))) + #{tmp\ 1551}#))) + ($sc-dispatch #{tmp\ 1551}# (quote (any any))))) + #{x\ 1550}#)))) (define unquote-splicing (make-syncase-macro 'macro - (lambda (#{x\ 2723}#) - ((lambda (#{tmp\ 2724}#) - ((lambda (#{tmp\ 2725}#) - (if #{tmp\ 2725}# - (apply (lambda (#{_\ 2726}# #{e\ 2727}#) + (lambda (#{x\ 1555}#) + ((lambda (#{tmp\ 1556}#) + ((lambda (#{tmp\ 1557}#) + (if #{tmp\ 1557}# + (apply (lambda (#{_\ 1558}# #{e\ 1559}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 2723}#)) - #{tmp\ 2725}#) + #{x\ 1555}#)) + #{tmp\ 1557}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2724}#))) - ($sc-dispatch #{tmp\ 2724}# (quote (any any))))) - #{x\ 2723}#)))) + #{tmp\ 1556}#))) + ($sc-dispatch #{tmp\ 1556}# (quote (any any))))) + #{x\ 1555}#)))) (define case (make-extended-syncase-macro (module-ref (current-module) (quote case)) 'macro - (lambda (#{x\ 2728}#) - ((lambda (#{tmp\ 2729}#) - ((lambda (#{tmp\ 2730}#) - (if #{tmp\ 2730}# - (apply (lambda (#{_\ 2731}# - #{e\ 2732}# - #{m1\ 2733}# - #{m2\ 2734}#) - ((lambda (#{tmp\ 2735}#) - ((lambda (#{body\ 2736}#) + (lambda (#{x\ 1560}#) + ((lambda (#{tmp\ 1561}#) + ((lambda (#{tmp\ 1562}#) + (if #{tmp\ 1562}# + (apply (lambda (#{_\ 1563}# + #{e\ 1564}# + #{m1\ 1565}# + #{m2\ 1566}#) + ((lambda (#{tmp\ 1567}#) + ((lambda (#{body\ 1568}#) (list '#(syntax-object let ((top) @@ -11304,17 +11326,17 @@ #((top)) #("i"))) (hygiene guile)) - #{e\ 2732}#)) - #{body\ 2736}#)) - #{tmp\ 2735}#)) - (letrec ((#{f\ 2737}# - (lambda (#{clause\ 2738}# #{clauses\ 2739}#) - (if (null? #{clauses\ 2739}#) - ((lambda (#{tmp\ 2741}#) - ((lambda (#{tmp\ 2742}#) - (if #{tmp\ 2742}# - (apply (lambda (#{e1\ 2743}# - #{e2\ 2744}#) + #{e\ 1564}#)) + #{body\ 1568}#)) + #{tmp\ 1567}#)) + (letrec ((#{f\ 1569}# + (lambda (#{clause\ 1570}# #{clauses\ 1571}#) + (if (null? #{clauses\ 1571}#) + ((lambda (#{tmp\ 1573}#) + ((lambda (#{tmp\ 1574}#) + (if #{tmp\ 1574}# + (apply (lambda (#{e1\ 1575}# + #{e2\ 1576}#) (cons '#(syntax-object begin ((top) @@ -11360,14 +11382,14 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2743}# - #{e2\ 2744}#))) - #{tmp\ 2742}#) - ((lambda (#{tmp\ 2746}#) - (if #{tmp\ 2746}# - (apply (lambda (#{k\ 2747}# - #{e1\ 2748}# - #{e2\ 2749}#) + (cons #{e1\ 1575}# + #{e2\ 1576}#))) + #{tmp\ 1574}#) + ((lambda (#{tmp\ 1578}#) + (if #{tmp\ 1578}# + (apply (lambda (#{k\ 1579}# + #{e1\ 1580}# + #{e2\ 1581}#) (list '#(syntax-object if ((top) @@ -11568,7 +11590,7 @@ #("i"))) (hygiene guile)) - #{k\ 2747}#)) + #{k\ 1579}#)) (cons '#(syntax-object begin ((top) @@ -11619,24 +11641,24 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2748}# - #{e2\ 2749}#)))) - #{tmp\ 2746}#) - ((lambda (#{_\ 2752}#) + (cons #{e1\ 1580}# + #{e2\ 1581}#)))) + #{tmp\ 1578}#) + ((lambda (#{_\ 1584}#) (syntax-violation 'case "bad clause" - #{x\ 2728}# - #{clause\ 2738}#)) - #{tmp\ 2741}#))) + #{x\ 1560}# + #{clause\ 1570}#)) + #{tmp\ 1573}#))) ($sc-dispatch - #{tmp\ 2741}# + #{tmp\ 1573}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 2741}# + #{tmp\ 1573}# '(#(free-id #(syntax-object else @@ -11662,15 +11684,15 @@ any . each-any)))) - #{clause\ 2738}#) - ((lambda (#{tmp\ 2753}#) - ((lambda (#{rest\ 2754}#) - ((lambda (#{tmp\ 2755}#) - ((lambda (#{tmp\ 2756}#) - (if #{tmp\ 2756}# - (apply (lambda (#{k\ 2757}# - #{e1\ 2758}# - #{e2\ 2759}#) + #{clause\ 1570}#) + ((lambda (#{tmp\ 1585}#) + ((lambda (#{rest\ 1586}#) + ((lambda (#{tmp\ 1587}#) + ((lambda (#{tmp\ 1588}#) + (if #{tmp\ 1588}# + (apply (lambda (#{k\ 1589}# + #{e1\ 1590}# + #{e2\ 1591}#) (list '#(syntax-object if ((top) @@ -11887,7 +11909,7 @@ #("i"))) (hygiene guile)) - #{k\ 2757}#)) + #{k\ 1589}#)) (cons '#(syntax-object begin ((top) @@ -11942,47 +11964,47 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2758}# - #{e2\ 2759}#)) - #{rest\ 2754}#)) - #{tmp\ 2756}#) - ((lambda (#{_\ 2762}#) + (cons #{e1\ 1590}# + #{e2\ 1591}#)) + #{rest\ 1586}#)) + #{tmp\ 1588}#) + ((lambda (#{_\ 1594}#) (syntax-violation 'case "bad clause" - #{x\ 2728}# - #{clause\ 2738}#)) - #{tmp\ 2755}#))) + #{x\ 1560}# + #{clause\ 1570}#)) + #{tmp\ 1587}#))) ($sc-dispatch - #{tmp\ 2755}# + #{tmp\ 1587}# '(each-any any . each-any)))) - #{clause\ 2738}#)) - #{tmp\ 2753}#)) - (#{f\ 2737}# - (car #{clauses\ 2739}#) - (cdr #{clauses\ 2739}#))))))) - (#{f\ 2737}# #{m1\ 2733}# #{m2\ 2734}#)))) - #{tmp\ 2730}#) + #{clause\ 1570}#)) + #{tmp\ 1585}#)) + (#{f\ 1569}# + (car #{clauses\ 1571}#) + (cdr #{clauses\ 1571}#))))))) + (#{f\ 1569}# #{m1\ 1565}# #{m2\ 1566}#)))) + #{tmp\ 1562}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2729}#))) + #{tmp\ 1561}#))) ($sc-dispatch - #{tmp\ 2729}# + #{tmp\ 1561}# '(any any any . each-any)))) - #{x\ 2728}#)))) + #{x\ 1560}#)))) (define identifier-syntax (make-syncase-macro 'macro - (lambda (#{x\ 2763}#) - ((lambda (#{tmp\ 2764}#) - ((lambda (#{tmp\ 2765}#) - (if #{tmp\ 2765}# - (apply (lambda (#{_\ 2766}# #{e\ 2767}#) + (lambda (#{x\ 1595}#) + ((lambda (#{tmp\ 1596}#) + ((lambda (#{tmp\ 1597}#) + (if #{tmp\ 1597}# + (apply (lambda (#{_\ 1598}# #{e\ 1599}#) (list '#(syntax-object lambda ((top) @@ -12071,8 +12093,8 @@ #((top)) #("i"))) (hygiene guile)) - #{e\ 2767}#)) - (list (cons #{_\ 2766}# + #{e\ 1599}#)) + (list (cons #{_\ 1598}# '(#(syntax-object x ((top) @@ -12112,7 +12134,7 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e\ 2767}# + (cons #{e\ 1599}# '(#(syntax-object x ((top) @@ -12140,11 +12162,11 @@ #("i"))) (hygiene guile))))))))) - #{tmp\ 2765}#) + #{tmp\ 1597}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2764}#))) - ($sc-dispatch #{tmp\ 2764}# (quote (any any))))) - #{x\ 2763}#)))) + #{tmp\ 1596}#))) + ($sc-dispatch #{tmp\ 1596}# (quote (any any))))) + #{x\ 1595}#)))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index cb90fcc17..1b5adddd0 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1323,7 +1323,7 @@ (rebuild-macro-output (vector-ref x i) m))))) ((symbol? x) (syntax-violation #f "encountered raw symbol in macro output" - (source-wrap e w s mod) x)) + (source-wrap e w (wrap-subst w) mod) x)) (else x)))) (rebuild-macro-output (p (wrap e (anti-mark w) mod)) (new-mark)))) |