diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-08-21 00:37:39 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-08-21 00:37:39 +0200 |
| commit | 8dbe147366a3a258bd79134c3da761e820798f86 (patch) | |
| tree | 80dee8abd44ccde1ef5c588b21a61e177d961a0c | |
| parent | afe5e6baa76796b1467890fd55416a7f304bed5c (diff) | |
| download | guile-8dbe147366a3a258bd79134c3da761e820798f86.tar.gz | |
expand out named let to letrec in the eval case
* module/ice-9/psyntax.scm: In the eval case, expand out named let to
letrec.
* module/ice-9/psyntax-pp.scm: Regenerated.
| -rw-r--r-- | module/ice-9/psyntax-pp.scm | 10702 | ||||
| -rw-r--r-- | module/ice-9/psyntax.scm | 3 |
2 files changed, 5365 insertions, 5340 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index fecd2b25d..9fc6983d9 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*\ 30}# + (lambda (#{f\ 70}# #{first\ 69}# . #{rest\ 68}#) + (let ((#{t\ 71}# (null? #{first\ 69}#))) + (if #{t\ 71}# + #{t\ 71}# + (if (null? #{rest\ 68}#) + (letrec ((#{andmap\ 72}# + (lambda (#{first\ 73}#) + (let ((#{x\ 74}# (car #{first\ 73}#)) + (#{first\ 75}# (cdr #{first\ 73}#))) + (if (null? #{first\ 75}#) + (#{f\ 70}# #{x\ 74}#) + (if (#{f\ 70}# #{x\ 74}#) + (#{andmap\ 72}# #{first\ 75}#) #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\ 72}# #{first\ 69}#)) + (letrec ((#{andmap\ 76}# + (lambda (#{first\ 77}# #{rest\ 78}#) + (let ((#{x\ 79}# (car #{first\ 77}#)) + (#{xr\ 80}# (map car #{rest\ 78}#)) + (#{first\ 81}# (cdr #{first\ 77}#)) + (#{rest\ 82}# (map cdr #{rest\ 78}#))) + (if (null? #{first\ 81}#) + (apply #{f\ 70}# + (cons #{x\ 79}# #{xr\ 80}#)) + (if (apply #{f\ 70}# + (cons #{x\ 79}# #{xr\ 80}#)) + (#{andmap\ 76}# + #{first\ 81}# + #{rest\ 82}#) #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\ 76}# #{first\ 69}# #{rest\ 68}#)))))))) + (letrec ((#{lambda-var-list\ 176}# + (lambda (#{vars\ 300}#) + (letrec ((#{lvl\ 301}# + (lambda (#{vars\ 302}# #{ls\ 303}# #{w\ 304}#) + (if (pair? #{vars\ 302}#) + (#{lvl\ 301}# + (cdr #{vars\ 302}#) + (cons (#{wrap\ 156}# + (car #{vars\ 302}#) + #{w\ 304}# #f) - #{ls\ 1472}#) - #{w\ 1473}#) - (if (#{id?\ 1297}# #{vars\ 1471}#) - (cons (#{wrap\ 1325}# - #{vars\ 1471}# - #{w\ 1473}# + #{ls\ 303}#) + #{w\ 304}#) + (if (#{id?\ 128}# #{vars\ 302}#) + (cons (#{wrap\ 156}# + #{vars\ 302}# + #{w\ 304}# #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\ 303}#) + (if (null? #{vars\ 302}#) + #{ls\ 303}# + (if (#{syntax-object?\ 112}# #{vars\ 302}#) + (#{lvl\ 301}# + (#{syntax-object-expression\ 113}# + #{vars\ 302}#) + #{ls\ 303}# + (#{join-wraps\ 147}# + #{w\ 304}# + (#{syntax-object-wrap\ 114}# + #{vars\ 302}#))) + (cons #{vars\ 302}# #{ls\ 303}#)))))))) + (#{lvl\ 301}# + #{vars\ 300}# '() '(()))))) - (#{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\ 175}# + (lambda (#{id\ 305}#) + (let ((#{id\ 306}# + (if (#{syntax-object?\ 112}# #{id\ 305}#) + (#{syntax-object-expression\ 113}# #{id\ 305}#) + #{id\ 305}#))) (gensym - (string-append (symbol->string #{id\ 1475}#) " "))))) - (#{strip\ 1343}# - (lambda (#{x\ 1476}# #{w\ 1477}#) + (string-append (symbol->string #{id\ 306}#) " "))))) + (#{strip\ 174}# + (lambda (#{x\ 307}# #{w\ 308}#) (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\ 131}# #{w\ 308}#)) + #{x\ 307}# + (letrec ((#{f\ 309}# (lambda (#{x\ 310}#) + (if (#{syntax-object?\ 112}# + #{x\ 310}#) + (#{strip\ 174}# + (#{syntax-object-expression\ 113}# + #{x\ 310}#) + (#{syntax-object-wrap\ 114}# + #{x\ 310}#)) + (if (pair? #{x\ 310}#) + (let ((#{a\ 311}# (#{f\ 309}# (car #{x\ 310}#))) + (#{d\ 312}# (#{f\ 309}# (cdr #{x\ 310}#)))) + (if (if (eq? #{a\ 311}# + (car #{x\ 310}#)) + (eq? #{d\ 312}# + (cdr #{x\ 310}#)) + #f) + #{x\ 310}# + (cons #{a\ 311}# #{d\ 312}#))) + (if (vector? #{x\ 310}#) + (let ((#{old\ 313}# + (vector->list + #{x\ 310}#))) + (let ((#{new\ 314}# + (map #{f\ 309}# + #{old\ 313}#))) + (if (#{and-map*\ 30}# + eq? + #{old\ 313}# + #{new\ 314}#) + #{x\ 310}# + (list->vector + #{new\ 314}#)))) + #{x\ 310}#)))))) + (#{f\ 309}# #{x\ 307}#))))) + (#{ellipsis?\ 173}# + (lambda (#{x\ 315}#) + (if (#{nonsymbol-id?\ 127}# #{x\ 315}#) + (#{free-id=?\ 151}# + #{x\ 315}# '#(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\ 172}# + (lambda () (#{build-void\ 94}# #f))) + (#{eval-local-transformer\ 171}# + (lambda (#{expanded\ 316}# #{mod\ 317}#) + (let ((#{p\ 318}# (#{local-eval-hook\ 90}# + #{expanded\ 316}# + #{mod\ 317}#))) + (if (procedure? #{p\ 318}#) + #{p\ 318}# (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\ 318}#))))) + (#{chi-local-syntax\ 170}# + (lambda (#{rec?\ 319}# + #{e\ 320}# + #{r\ 321}# + #{w\ 322}# + #{s\ 323}# + #{mod\ 324}# + #{k\ 325}#) + ((lambda (#{tmp\ 326}#) + ((lambda (#{tmp\ 327}#) + (if #{tmp\ 327}# + (apply (lambda (#{_\ 328}# + #{id\ 329}# + #{val\ 330}# + #{e1\ 331}# + #{e2\ 332}#) + (let ((#{ids\ 333}# #{id\ 329}#)) + (if (not (#{valid-bound-ids?\ 153}# + #{ids\ 333}#)) (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\ 320}#) + (let ((#{labels\ 335}# + (#{gen-labels\ 134}# + #{ids\ 333}#))) + (let ((#{new-w\ 336}# + (#{make-binding-wrap\ 145}# + #{ids\ 333}# + #{labels\ 335}# + #{w\ 322}#))) + (#{k\ 325}# (cons #{e1\ 331}# + #{e2\ 332}#) + (#{extend-env\ 122}# + #{labels\ 335}# + (let ((#{w\ 338}# (if #{rec?\ 319}# + #{new-w\ 336}# + #{w\ 322}#)) + (#{trans-r\ 339}# + (#{macros-only-env\ 124}# + #{r\ 321}#))) + (map (lambda (#{x\ 340}#) + (cons 'macro + (#{eval-local-transformer\ 171}# + (#{chi\ 164}# + #{x\ 340}# + #{trans-r\ 339}# + #{w\ 338}# + #{mod\ 324}#) + #{mod\ 324}#))) + #{val\ 330}#)) + #{r\ 321}#) + #{new-w\ 336}# + #{s\ 323}# + #{mod\ 324}#)))))) + #{tmp\ 327}#) + ((lambda (#{_\ 342}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 1326}# - #{e\ 1489}# - #{w\ 1491}# - #{s\ 1492}# - #{mod\ 1493}#))) - #{tmp\ 1495}#))) + (#{source-wrap\ 157}# + #{e\ 320}# + #{w\ 322}# + #{s\ 323}# + #{mod\ 324}#))) + #{tmp\ 326}#))) ($sc-dispatch - #{tmp\ 1495}# + #{tmp\ 326}# '(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\ 320}#))) + (#{chi-lambda-clause\ 169}# + (lambda (#{e\ 343}# + #{docstring\ 344}# + #{c\ 345}# + #{r\ 346}# + #{w\ 347}# + #{mod\ 348}# + #{k\ 349}#) + ((lambda (#{tmp\ 350}#) + ((lambda (#{tmp\ 351}#) + (if (if #{tmp\ 351}# + (apply (lambda (#{args\ 352}# + #{doc\ 353}# + #{e1\ 354}# + #{e2\ 355}#) + (if (string? (syntax->datum #{doc\ 353}#)) + (not #{docstring\ 344}#) #f)) - #{tmp\ 1520}#) + #{tmp\ 351}#) #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\ 356}# + #{doc\ 357}# + #{e1\ 358}# + #{e2\ 359}#) + (#{chi-lambda-clause\ 169}# + #{e\ 343}# + #{doc\ 357}# + (cons #{args\ 356}# + (cons #{e1\ 358}# #{e2\ 359}#)) + #{r\ 346}# + #{w\ 347}# + #{mod\ 348}# + #{k\ 349}#)) + #{tmp\ 351}#) + ((lambda (#{tmp\ 361}#) + (if #{tmp\ 361}# + (apply (lambda (#{id\ 362}# + #{e1\ 363}# + #{e2\ 364}#) + (let ((#{ids\ 365}# #{id\ 362}#)) + (if (not (#{valid-bound-ids?\ 153}# + #{ids\ 365}#)) (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\ 343}#) + (let ((#{labels\ 367}# + (#{gen-labels\ 134}# + #{ids\ 365}#)) + (#{new-vars\ 368}# + (map #{gen-var\ 175}# + #{ids\ 365}#))) + (#{k\ 349}# (map syntax->datum + #{ids\ 365}#) + #{new-vars\ 368}# + (if #{docstring\ 344}# + (syntax->datum + #{docstring\ 344}#) + #f) + (#{chi-body\ 168}# + (cons #{e1\ 363}# + #{e2\ 364}#) + #{e\ 343}# + (#{extend-var-env\ 123}# + #{labels\ 367}# + #{new-vars\ 368}# + #{r\ 346}#) + (#{make-binding-wrap\ 145}# + #{ids\ 365}# + #{labels\ 367}# + #{w\ 347}#) + #{mod\ 348}#)))))) + #{tmp\ 361}#) + ((lambda (#{tmp\ 370}#) + (if #{tmp\ 370}# + (apply (lambda (#{ids\ 371}# + #{e1\ 372}# + #{e2\ 373}#) + (let ((#{old-ids\ 374}# + (#{lambda-var-list\ 176}# + #{ids\ 371}#))) + (if (not (#{valid-bound-ids?\ 153}# + #{old-ids\ 374}#)) (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\ 343}#) + (let ((#{labels\ 375}# + (#{gen-labels\ 134}# + #{old-ids\ 374}#)) + (#{new-vars\ 376}# + (map #{gen-var\ 175}# + #{old-ids\ 374}#))) + (#{k\ 349}# (letrec ((#{f\ 377}# (lambda (#{ls1\ 378}# + #{ls2\ 379}#) + (if (null? #{ls1\ 378}#) + (syntax->datum + #{ls2\ 379}#) + (#{f\ 377}# (cdr #{ls1\ 378}#) + (cons (syntax->datum + (car #{ls1\ 378}#)) + #{ls2\ 379}#)))))) + (#{f\ 377}# (cdr #{old-ids\ 374}#) + (car #{old-ids\ 374}#))) + (letrec ((#{f\ 380}# (lambda (#{ls1\ 381}# + #{ls2\ 382}#) + (if (null? #{ls1\ 381}#) + #{ls2\ 382}# + (#{f\ 380}# (cdr #{ls1\ 381}#) + (cons (car #{ls1\ 381}#) + #{ls2\ 382}#)))))) + (#{f\ 380}# (cdr #{new-vars\ 376}#) + (car #{new-vars\ 376}#))) + (if #{docstring\ 344}# + (syntax->datum + #{docstring\ 344}#) + #f) + (#{chi-body\ 168}# + (cons #{e1\ 372}# + #{e2\ 373}#) + #{e\ 343}# + (#{extend-var-env\ 123}# + #{labels\ 375}# + #{new-vars\ 376}# + #{r\ 346}#) + (#{make-binding-wrap\ 145}# + #{old-ids\ 374}# + #{labels\ 375}# + #{w\ 347}#) + #{mod\ 348}#)))))) + #{tmp\ 370}#) + ((lambda (#{_\ 384}#) (syntax-violation 'lambda "bad lambda" - #{e\ 1512}#)) - #{tmp\ 1519}#))) + #{e\ 343}#)) + #{tmp\ 350}#))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 350}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 350}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 1519}# + #{tmp\ 350}# '(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\ 345}#))) + (#{chi-body\ 168}# + (lambda (#{body\ 385}# + #{outer-form\ 386}# + #{r\ 387}# + #{w\ 388}# + #{mod\ 389}#) + (let ((#{r\ 390}# (cons '("placeholder" placeholder) + #{r\ 387}#))) + (let ((#{ribcage\ 391}# + (#{make-ribcage\ 135}# '() '() '()))) - (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\ 392}# (#{make-wrap\ 130}# + (#{wrap-marks\ 131}# #{w\ 388}#) + (cons #{ribcage\ 391}# + (#{wrap-subst\ 132}# + #{w\ 388}#))))) + (letrec ((#{parse\ 393}# + (lambda (#{body\ 394}# + #{ids\ 395}# + #{labels\ 396}# + #{var-ids\ 397}# + #{vars\ 398}# + #{vals\ 399}# + #{bindings\ 400}#) + (if (null? #{body\ 394}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1555}#) - (let ((#{e\ 1571}# (cdar #{body\ 1563}#)) - (#{er\ 1572}# (caar #{body\ 1563}#))) + #{outer-form\ 386}#) + (let ((#{e\ 402}# (cdar #{body\ 394}#)) + (#{er\ 403}# (caar #{body\ 394}#))) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1571}# - #{er\ 1572}# + (#{syntax-type\ 162}# + #{e\ 402}# + #{er\ 403}# '(()) - (#{source-annotation\ 1288}# - #{er\ 1572}#) - #{ribcage\ 1560}# - #{mod\ 1558}# + (#{source-annotation\ 119}# + #{er\ 403}#) + #{ribcage\ 391}# + #{mod\ 389}# #f)) - (lambda (#{type\ 1573}# - #{value\ 1574}# - #{e\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#) - (if (memv #{type\ 1573}# + (lambda (#{type\ 404}# + #{value\ 405}# + #{e\ 406}# + #{w\ 407}# + #{s\ 408}# + #{mod\ 409}#) + (if (memv #{type\ 404}# '(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\ 410}# + (#{wrap\ 156}# + #{value\ 405}# + #{w\ 407}# + #{mod\ 409}#)) + (#{label\ 411}# + (#{gen-label\ 133}#))) + (let ((#{var\ 412}# + (#{gen-var\ 175}# + #{id\ 410}#))) (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!\ 144}# + #{ribcage\ 391}# + #{id\ 410}# + #{label\ 411}#) + (#{parse\ 393}# + (cdr #{body\ 394}#) + (cons #{id\ 410}# + #{ids\ 395}#) + (cons #{label\ 411}# + #{labels\ 396}#) + (cons #{id\ 410}# + #{var-ids\ 397}#) + (cons #{var\ 412}# + #{vars\ 398}#) + (cons (cons #{er\ 403}# + (#{wrap\ 156}# + #{e\ 406}# + #{w\ 407}# + #{mod\ 409}#)) + #{vals\ 399}#) (cons (cons 'lexical - #{var\ 1581}#) - #{bindings\ 1569}#))))) - (if (memv #{type\ 1573}# + #{var\ 412}#) + #{bindings\ 400}#))))) + (if (memv #{type\ 404}# '(define-syntax-form)) - (let ((#{id\ 1582}# - (#{wrap\ 1325}# - #{value\ 1574}# - #{w\ 1576}# - #{mod\ 1578}#)) - (#{label\ 1583}# - (#{gen-label\ 1302}#))) + (let ((#{id\ 413}# + (#{wrap\ 156}# + #{value\ 405}# + #{w\ 407}# + #{mod\ 409}#)) + (#{label\ 414}# + (#{gen-label\ 133}#))) (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!\ 144}# + #{ribcage\ 391}# + #{id\ 413}# + #{label\ 414}#) + (#{parse\ 393}# + (cdr #{body\ 394}#) + (cons #{id\ 413}# + #{ids\ 395}#) + (cons #{label\ 414}# + #{labels\ 396}#) + #{var-ids\ 397}# + #{vars\ 398}# + #{vals\ 399}# (cons (cons 'macro - (cons #{er\ 1572}# - (#{wrap\ 1325}# - #{e\ 1575}# - #{w\ 1576}# - #{mod\ 1578}#))) - #{bindings\ 1569}#)))) - (if (memv #{type\ 1573}# + (cons #{er\ 403}# + (#{wrap\ 156}# + #{e\ 406}# + #{w\ 407}# + #{mod\ 409}#))) + #{bindings\ 400}#)))) + (if (memv #{type\ 404}# '(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\ 415}#) + ((lambda (#{tmp\ 416}#) + (if #{tmp\ 416}# + (apply (lambda (#{_\ 417}# + #{e1\ 418}#) + (#{parse\ 393}# + (letrec ((#{f\ 419}# (lambda (#{forms\ 420}#) + (if (null? #{forms\ 420}#) + (cdr #{body\ 394}#) + (cons (cons #{er\ 403}# + (#{wrap\ 156}# + (car #{forms\ 420}#) + #{w\ 407}# + #{mod\ 409}#)) + (#{f\ 419}# (cdr #{forms\ 420}#))))))) + (#{f\ 419}# #{e1\ 418}#)) + #{ids\ 395}# + #{labels\ 396}# + #{var-ids\ 397}# + #{vars\ 398}# + #{vals\ 399}# + #{bindings\ 400}#)) + #{tmp\ 416}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1584}#))) + #{tmp\ 415}#))) ($sc-dispatch - #{tmp\ 1584}# + #{tmp\ 415}# '(any . each-any)))) - #{e\ 1575}#) - (if (memv #{type\ 1573}# + #{e\ 406}#) + (if (memv #{type\ 404}# '(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\ 170}# + #{value\ 405}# + #{e\ 406}# + #{er\ 403}# + #{w\ 407}# + #{s\ 408}# + #{mod\ 409}# + (lambda (#{forms\ 422}# + #{er\ 423}# + #{w\ 424}# + #{s\ 425}# + #{mod\ 426}#) + (#{parse\ 393}# + (letrec ((#{f\ 427}# (lambda (#{forms\ 428}#) + (if (null? #{forms\ 428}#) + (cdr #{body\ 394}#) + (cons (cons #{er\ 423}# + (#{wrap\ 156}# + (car #{forms\ 428}#) + #{w\ 424}# + #{mod\ 426}#)) + (#{f\ 427}# (cdr #{forms\ 428}#))))))) + (#{f\ 427}# #{forms\ 422}#)) + #{ids\ 395}# + #{labels\ 396}# + #{var-ids\ 397}# + #{vars\ 398}# + #{vals\ 399}# + #{bindings\ 400}#))) + (if (null? #{ids\ 395}#) + (#{build-sequence\ 107}# #f - (map (lambda (#{x\ 1598}#) - (#{chi\ 1333}# - (cdr #{x\ 1598}#) - (car #{x\ 1598}#) + (map (lambda (#{x\ 429}#) + (#{chi\ 164}# + (cdr #{x\ 429}#) + (car #{x\ 429}#) '(()) - #{mod\ 1578}#)) - (cons (cons #{er\ 1572}# - (#{source-wrap\ 1326}# - #{e\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#)) - (cdr #{body\ 1563}#)))) + #{mod\ 409}#)) + (cons (cons #{er\ 403}# + (#{source-wrap\ 157}# + #{e\ 406}# + #{w\ 407}# + #{s\ 408}# + #{mod\ 409}#)) + (cdr #{body\ 394}#)))) (begin - (if (not (#{valid-bound-ids?\ 1322}# - #{ids\ 1564}#)) + (if (not (#{valid-bound-ids?\ 153}# + #{ids\ 395}#)) (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\ 386}#)) + (letrec ((#{loop\ 430}# + (lambda (#{bs\ 431}# + #{er-cache\ 432}# + #{r-cache\ 433}#) + (if (not (null? #{bs\ 431}#)) + (let ((#{b\ 434}# (car #{bs\ 431}#))) + (if (eq? (car #{b\ 434}#) '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\ 435}# + (cadr #{b\ 434}#))) + (let ((#{r-cache\ 436}# + (if (eq? #{er\ 435}# + #{er-cache\ 432}#) + #{r-cache\ 433}# + (#{macros-only-env\ 124}# + #{er\ 435}#)))) (begin (set-cdr! - #{b\ 1603}# - (#{eval-local-transformer\ 1340}# - (#{chi\ 1333}# - (cddr #{b\ 1603}#) - #{r-cache\ 1605}# + #{b\ 434}# + (#{eval-local-transformer\ 171}# + (#{chi\ 164}# + (cddr #{b\ 434}#) + #{r-cache\ 436}# '(()) - #{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\ 409}#) + #{mod\ 409}#)) + (#{loop\ 430}# + (cdr #{bs\ 431}#) + #{er\ 435}# + #{r-cache\ 436}#)))) + (#{loop\ 430}# + (cdr #{bs\ 431}#) + #{er-cache\ 432}# + #{r-cache\ 433}#))))))) + (#{loop\ 430}# + #{bindings\ 400}# #f #f)) (set-cdr! - #{r\ 1559}# - (#{extend-env\ 1291}# - #{labels\ 1565}# - #{bindings\ 1569}# - (cdr #{r\ 1559}#))) - (#{build-letrec\ 1279}# + #{r\ 390}# + (#{extend-env\ 122}# + #{labels\ 396}# + #{bindings\ 400}# + (cdr #{r\ 390}#))) + (#{build-letrec\ 110}# #f (map syntax->datum - #{var-ids\ 1566}#) - #{vars\ 1567}# - (map (lambda (#{x\ 1606}#) - (#{chi\ 1333}# - (cdr #{x\ 1606}#) - (car #{x\ 1606}#) + #{var-ids\ 397}#) + #{vars\ 398}# + (map (lambda (#{x\ 437}#) + (#{chi\ 164}# + (cdr #{x\ 437}#) + (car #{x\ 437}#) '(()) - #{mod\ 1578}#)) - #{vals\ 1568}#) - (#{build-sequence\ 1276}# + #{mod\ 409}#)) + #{vals\ 399}#) + (#{build-sequence\ 107}# #f - (map (lambda (#{x\ 1607}#) - (#{chi\ 1333}# - (cdr #{x\ 1607}#) - (car #{x\ 1607}#) + (map (lambda (#{x\ 438}#) + (#{chi\ 164}# + (cdr #{x\ 438}#) + (car #{x\ 438}#) '(()) - #{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\ 409}#)) + (cons (cons #{er\ 403}# + (#{source-wrap\ 157}# + #{e\ 406}# + #{w\ 407}# + #{s\ 408}# + #{mod\ 409}#)) + (cdr #{body\ 394}#)))))))))))))))))) + (#{parse\ 393}# + (map (lambda (#{x\ 401}#) + (cons #{r\ 390}# + (#{wrap\ 156}# + #{x\ 401}# + #{w\ 392}# + #{mod\ 389}#))) + #{body\ 385}#) '() '() '() '() '() '()))))))) - (#{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\ 167}# + (lambda (#{p\ 439}# + #{e\ 440}# + #{r\ 441}# + #{w\ 442}# + #{rib\ 443}# + #{mod\ 444}#) + (letrec ((#{rebuild-macro-output\ 445}# + (lambda (#{x\ 446}# #{m\ 447}#) + (if (pair? #{x\ 446}#) + (cons (#{rebuild-macro-output\ 445}# + (car #{x\ 446}#) + #{m\ 447}#) + (#{rebuild-macro-output\ 445}# + (cdr #{x\ 446}#) + #{m\ 447}#)) + (if (#{syntax-object?\ 112}# #{x\ 446}#) + (let ((#{w\ 448}# (#{syntax-object-wrap\ 114}# + #{x\ 446}#))) + (let ((#{ms\ 449}# + (#{wrap-marks\ 131}# #{w\ 448}#)) + (#{s\ 450}# (#{wrap-subst\ 132}# + #{w\ 448}#))) + (if (if (pair? #{ms\ 449}#) + (eq? (car #{ms\ 449}#) #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\ 111}# + (#{syntax-object-expression\ 113}# + #{x\ 446}#) + (#{make-wrap\ 130}# + (cdr #{ms\ 449}#) + (if #{rib\ 443}# + (cons #{rib\ 443}# + (cdr #{s\ 450}#)) + (cdr #{s\ 450}#))) + (#{syntax-object-module\ 115}# + #{x\ 446}#)) + (#{make-syntax-object\ 111}# + (#{syntax-object-expression\ 113}# + #{x\ 446}#) + (#{make-wrap\ 130}# + (cons #{m\ 447}# #{ms\ 449}#) + (if #{rib\ 443}# + (cons #{rib\ 443}# (cons 'shift - #{s\ 1619}#)) - (cons (quote shift) #{s\ 1619}#))) - (let ((#{pmod\ 1620}# - (procedure-module - #{p\ 1608}#))) - (if #{pmod\ 1620}# + #{s\ 450}#)) + (cons (quote shift) #{s\ 450}#))) + (let ((#{pmod\ 451}# + (procedure-module #{p\ 439}#))) + (if #{pmod\ 451}# (cons 'hygiene - (module-name #{pmod\ 1620}#)) + (module-name #{pmod\ 451}#)) '(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\ 446}#) + (let ((#{n\ 452}# (vector-length + #{x\ 446}#))) + (let ((#{v\ 453}# (make-vector + #{n\ 452}#))) + (letrec ((#{loop\ 454}# + (lambda (#{i\ 455}#) + (if (#{fx=\ 87}# + #{i\ 455}# + #{n\ 452}#) (begin (if #f #f) - #{v\ 1622}#) + #{v\ 453}#) (begin (vector-set! - #{v\ 1622}# - #{i\ 1624}# - (#{rebuild-macro-output\ 1614}# + #{v\ 453}# + #{i\ 455}# + (#{rebuild-macro-output\ 445}# (vector-ref - #{x\ 1615}# - #{i\ 1624}#) - #{m\ 1616}#)) - (#{loop\ 1623}# - (#{fx+\ 1254}# - #{i\ 1624}# + #{x\ 446}# + #{i\ 455}#) + #{m\ 447}#)) + (#{loop\ 454}# + (#{fx+\ 85}# + #{i\ 455}# 1))))))) - (#{loop\ 1623}# 0)))) - (if (symbol? #{x\ 1615}#) + (#{loop\ 454}# 0)))) + (if (symbol? #{x\ 446}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 1326}# - #{e\ 1609}# - #{w\ 1611}# + (#{source-wrap\ 157}# + #{e\ 440}# + #{w\ 442}# s - #{mod\ 1613}#) - #{x\ 1615}#) - #{x\ 1615}#))))))) - (#{rebuild-macro-output\ 1614}# - (#{p\ 1608}# - (#{wrap\ 1325}# - #{e\ 1609}# - (#{anti-mark\ 1312}# #{w\ 1611}#) - #{mod\ 1613}#)) + #{mod\ 444}#) + #{x\ 446}#) + #{x\ 446}#))))))) + (#{rebuild-macro-output\ 445}# + (#{p\ 439}# (#{wrap\ 156}# + #{e\ 440}# + (#{anti-mark\ 143}# #{w\ 442}#) + #{mod\ 444}#)) (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\ 166}# + (lambda (#{x\ 456}# + #{e\ 457}# + #{r\ 458}# + #{w\ 459}# + #{s\ 460}# + #{mod\ 461}#) + ((lambda (#{tmp\ 462}#) + ((lambda (#{tmp\ 463}#) + (if #{tmp\ 463}# + (apply (lambda (#{e0\ 464}# #{e1\ 465}#) + (#{build-application\ 95}# + #{s\ 460}# + #{x\ 456}# + (map (lambda (#{e\ 466}#) + (#{chi\ 164}# + #{e\ 466}# + #{r\ 458}# + #{w\ 459}# + #{mod\ 461}#)) + #{e1\ 465}#))) + #{tmp\ 463}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1631}#))) + #{tmp\ 462}#))) ($sc-dispatch - #{tmp\ 1631}# + #{tmp\ 462}# '(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\ 457}#))) + (#{chi-expr\ 165}# + (lambda (#{type\ 468}# + #{value\ 469}# + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (quote (lexical))) + (#{build-lexical-reference\ 97}# '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\ 473}# + #{e\ 470}# + #{value\ 469}#) + (if (memv #{type\ 468}# (quote (core core-form))) + (#{value\ 469}# + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (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\ 469}# #{e\ 470}#)) + (lambda (#{id\ 475}# #{mod\ 476}#) + (#{build-global-reference\ 100}# + #{s\ 473}# + #{id\ 475}# + #{mod\ 476}#))) + (if (memv #{type\ 468}# (quote (lexical-call))) + (#{chi-application\ 166}# + (#{build-lexical-reference\ 97}# '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\ 119}# (car #{e\ 470}#)) + (car #{e\ 470}#) + #{value\ 469}#) + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (quote (global-call))) + (#{chi-application\ 166}# + (#{build-global-reference\ 100}# + (#{source-annotation\ 119}# (car #{e\ 470}#)) + (if (#{syntax-object?\ 112}# #{value\ 469}#) + (#{syntax-object-expression\ 113}# + #{value\ 469}#) + #{value\ 469}#) + (if (#{syntax-object?\ 112}# #{value\ 469}#) + (#{syntax-object-module\ 115}# #{value\ 469}#) + #{mod\ 474}#)) + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (quote (constant))) + (#{build-data\ 106}# + #{s\ 473}# + (#{strip\ 174}# + (#{source-wrap\ 157}# + #{e\ 470}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) '(()))) - (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\ 468}# (quote (global))) + (#{build-global-reference\ 100}# + #{s\ 473}# + #{value\ 469}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (quote (call))) + (#{chi-application\ 166}# + (#{chi\ 164}# + (car #{e\ 470}#) + #{r\ 471}# + #{w\ 472}# + #{mod\ 474}#) + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (if (memv #{type\ 468}# (quote (begin-form))) + ((lambda (#{tmp\ 477}#) + ((lambda (#{tmp\ 478}#) + (if #{tmp\ 478}# + (apply (lambda (#{_\ 479}# + #{e1\ 480}# + #{e2\ 481}#) + (#{chi-sequence\ 158}# + (cons #{e1\ 480}# + #{e2\ 481}#) + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#)) + #{tmp\ 478}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1646}#))) + #{tmp\ 477}#))) ($sc-dispatch - #{tmp\ 1646}# + #{tmp\ 477}# '(any any . each-any)))) - #{e\ 1639}#) - (if (memv #{type\ 1637}# + #{e\ 470}#) + (if (memv #{type\ 468}# '(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\ 170}# + #{value\ 469}# + #{e\ 470}# + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}# + #{chi-sequence\ 158}#) + (if (memv #{type\ 468}# '(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\ 483}#) + ((lambda (#{tmp\ 484}#) + (if #{tmp\ 484}# + (apply (lambda (#{_\ 485}# + #{x\ 486}# + #{e1\ 487}# + #{e2\ 488}#) + (let ((#{when-list\ 489}# + (#{chi-when-list\ 161}# + #{e\ 470}# + #{x\ 486}# + #{w\ 472}#))) (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\ 489}#) + (#{chi-sequence\ 158}# + (cons #{e1\ 487}# + #{e2\ 488}#) + #{r\ 471}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#) + (#{chi-void\ 172}#)))) + #{tmp\ 484}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1652}#))) + #{tmp\ 483}#))) ($sc-dispatch - #{tmp\ 1652}# + #{tmp\ 483}# '(any each-any any . each-any)))) - #{e\ 1639}#) - (if (memv #{type\ 1637}# + #{e\ 470}#) + (if (memv #{type\ 468}# '(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\ 470}# + (#{wrap\ 156}# + #{value\ 469}# + #{w\ 472}# + #{mod\ 474}#)) + (if (memv #{type\ 468}# '(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\ 157}# + #{e\ 470}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#)) + (if (memv #{type\ 468}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 1326}# - #{e\ 1639}# - #{w\ 1641}# - #{s\ 1642}# - #{mod\ 1643}#)) + (#{source-wrap\ 157}# + #{e\ 470}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#)) (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\ 157}# + #{e\ 470}# + #{w\ 472}# + #{s\ 473}# + #{mod\ 474}#)))))))))))))))))) + (#{chi\ 164}# + (lambda (#{e\ 492}# #{r\ 493}# #{w\ 494}# #{mod\ 495}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1661}# - #{r\ 1662}# - #{w\ 1663}# - (#{source-annotation\ 1288}# #{e\ 1661}#) + (#{syntax-type\ 162}# + #{e\ 492}# + #{r\ 493}# + #{w\ 494}# + (#{source-annotation\ 119}# #{e\ 492}#) #f - #{mod\ 1664}# + #{mod\ 495}# #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\ 496}# + #{value\ 497}# + #{e\ 498}# + #{w\ 499}# + #{s\ 500}# + #{mod\ 501}#) + (#{chi-expr\ 165}# + #{type\ 496}# + #{value\ 497}# + #{e\ 498}# + #{r\ 493}# + #{w\ 499}# + #{s\ 500}# + #{mod\ 501}#))))) + (#{chi-top\ 163}# + (lambda (#{e\ 502}# + #{r\ 503}# + #{w\ 504}# + #{m\ 505}# + #{esew\ 506}# + #{mod\ 507}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{e\ 1671}# - #{r\ 1672}# - #{w\ 1673}# - (#{source-annotation\ 1288}# #{e\ 1671}#) + (#{syntax-type\ 162}# + #{e\ 502}# + #{r\ 503}# + #{w\ 504}# + (#{source-annotation\ 119}# #{e\ 502}#) #f - #{mod\ 1676}# + #{mod\ 507}# #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\ 515}# + #{value\ 516}# + #{e\ 517}# + #{w\ 518}# + #{s\ 519}# + #{mod\ 520}#) + (if (memv #{type\ 515}# (quote (begin-form))) + ((lambda (#{tmp\ 521}#) + ((lambda (#{tmp\ 522}#) + (if #{tmp\ 522}# + (apply (lambda (#{_\ 523}#) (#{chi-void\ 172}#)) + #{tmp\ 522}#) + ((lambda (#{tmp\ 524}#) + (if #{tmp\ 524}# + (apply (lambda (#{_\ 525}# + #{e1\ 526}# + #{e2\ 527}#) + (#{chi-top-sequence\ 159}# + (cons #{e1\ 526}# #{e2\ 527}#) + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# + #{m\ 505}# + #{esew\ 506}# + #{mod\ 520}#)) + #{tmp\ 524}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1690}#))) + #{tmp\ 521}#))) ($sc-dispatch - #{tmp\ 1690}# + #{tmp\ 521}# '(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\ 521}# (quote (any))))) + #{e\ 517}#) + (if (memv #{type\ 515}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 170}# + #{value\ 516}# + #{e\ 517}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# + #{mod\ 520}# + (lambda (#{body\ 529}# + #{r\ 530}# + #{w\ 531}# + #{s\ 532}# + #{mod\ 533}#) + (#{chi-top-sequence\ 159}# + #{body\ 529}# + #{r\ 530}# + #{w\ 531}# + #{s\ 532}# + #{m\ 505}# + #{esew\ 506}# + #{mod\ 533}#))) + (if (memv #{type\ 515}# (quote (eval-when-form))) + ((lambda (#{tmp\ 534}#) + ((lambda (#{tmp\ 535}#) + (if #{tmp\ 535}# + (apply (lambda (#{_\ 536}# + #{x\ 537}# + #{e1\ 538}# + #{e2\ 539}#) + (let ((#{when-list\ 540}# + (#{chi-when-list\ 161}# + #{e\ 517}# + #{x\ 537}# + #{w\ 518}#)) + (#{body\ 541}# + (cons #{e1\ 538}# + #{e2\ 539}#))) + (if (eq? #{m\ 505}# (quote e)) (if (memq 'eval - #{when-list\ 1709}#) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + #{when-list\ 540}#) + (#{chi-top-sequence\ 159}# + #{body\ 541}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# 'e '(eval) - #{mod\ 1689}#) - (#{chi-void\ 1341}#)) + #{mod\ 520}#) + (#{chi-void\ 172}#)) (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\ 540}#) + (if (let ((#{t\ 544}# (memq 'compile + #{when-list\ 540}#))) + (if #{t\ 544}# + #{t\ 544}# + (if (eq? #{m\ 505}# 'c&e) (memq 'eval - #{when-list\ 1709}#) + #{when-list\ 540}#) #f))) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{chi-top-sequence\ 159}# + #{body\ 541}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# 'c&e '(compile load) - #{mod\ 1689}#) - (if (memq #{m\ 1674}# + #{mod\ 520}#) + (if (memq #{m\ 505}# '(c c&e)) - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{chi-top-sequence\ 159}# + #{body\ 541}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# '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\ 520}#) + (#{chi-void\ 172}#))) + (if (let ((#{t\ 545}# (memq 'compile + #{when-list\ 540}#))) + (if #{t\ 545}# + #{t\ 545}# + (if (eq? #{m\ 505}# 'c&e) (memq 'eval - #{when-list\ 1709}#) + #{when-list\ 540}#) #f))) (begin - (#{top-level-eval-hook\ 1258}# - (#{chi-top-sequence\ 1328}# - #{body\ 1710}# - #{r\ 1672}# - #{w\ 1687}# - #{s\ 1688}# + (#{top-level-eval-hook\ 89}# + (#{chi-top-sequence\ 159}# + #{body\ 541}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# 'e '(eval) - #{mod\ 1689}#) - #{mod\ 1689}#) - (#{chi-void\ 1341}#)) - (#{chi-void\ 1341}#)))))) - #{tmp\ 1704}#) + #{mod\ 520}#) + #{mod\ 520}#) + (#{chi-void\ 172}#)) + (#{chi-void\ 172}#)))))) + #{tmp\ 535}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1703}#))) + #{tmp\ 534}#))) ($sc-dispatch - #{tmp\ 1703}# + #{tmp\ 534}# '(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\ 517}#) + (if (memv #{type\ 515}# (quote (define-syntax-form))) + (let ((#{n\ 546}# (#{id-var-name\ 150}# + #{value\ 516}# + #{w\ 518}#)) + (#{r\ 547}# (#{macros-only-env\ 124}# + #{r\ 503}#))) + (if (memv #{m\ 505}# (quote (c))) + (if (memq (quote compile) #{esew\ 506}#) + (let ((#{e\ 548}# (#{chi-install-global\ 160}# + #{n\ 546}# + (#{chi\ 164}# + #{e\ 517}# + #{r\ 547}# + #{w\ 518}# + #{mod\ 520}#)))) (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\ 89}# + #{e\ 548}# + #{mod\ 520}#) + (if (memq (quote load) #{esew\ 506}#) + #{e\ 548}# + (#{chi-void\ 172}#)))) + (if (memq (quote load) #{esew\ 506}#) + (#{chi-install-global\ 160}# + #{n\ 546}# + (#{chi\ 164}# + #{e\ 517}# + #{r\ 547}# + #{w\ 518}# + #{mod\ 520}#)) + (#{chi-void\ 172}#))) + (if (memv #{m\ 505}# (quote (c&e))) + (let ((#{e\ 549}# (#{chi-install-global\ 160}# + #{n\ 546}# + (#{chi\ 164}# + #{e\ 517}# + #{r\ 547}# + #{w\ 518}# + #{mod\ 520}#)))) (begin - (#{top-level-eval-hook\ 1258}# - #{e\ 1718}# - #{mod\ 1689}#) - #{e\ 1718}#)) + (#{top-level-eval-hook\ 89}# + #{e\ 549}# + #{mod\ 520}#) + #{e\ 549}#)) (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\ 506}#) + (#{top-level-eval-hook\ 89}# + (#{chi-install-global\ 160}# + #{n\ 546}# + (#{chi\ 164}# + #{e\ 517}# + #{r\ 547}# + #{w\ 518}# + #{mod\ 520}#)) + #{mod\ 520}#)) + (#{chi-void\ 172}#))))) + (if (memv #{type\ 515}# (quote (define-form))) + (let ((#{n\ 550}# (#{id-var-name\ 150}# + #{value\ 516}# + #{w\ 518}#))) + (let ((#{type\ 551}# + (#{binding-type\ 120}# + (#{lookup\ 125}# + #{n\ 550}# + #{r\ 503}# + #{mod\ 520}#)))) + (if (memv #{type\ 551}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 1719}#)) + #{n\ 550}#)) (current-module) #f) - (let ((#{old\ 1721}# + (let ((#{old\ 552}# (module-variable (current-module) - #{n\ 1719}#))) + #{n\ 550}#))) (module-define! (current-module) - #{n\ 1719}# - (if (variable? #{old\ 1721}#) - (variable-ref #{old\ 1721}#) + #{n\ 550}# + (if (variable? #{old\ 552}#) + (variable-ref #{old\ 552}#) #f)))) - (let ((#{x\ 1722}# - (#{build-global-definition\ 1272}# - #{s\ 1688}# - #{n\ 1719}# - (#{chi\ 1333}# - #{e\ 1686}# - #{r\ 1672}# - #{w\ 1687}# - #{mod\ 1689}#)))) + (let ((#{x\ 553}# (#{build-global-definition\ 103}# + #{s\ 519}# + #{n\ 550}# + (#{chi\ 164}# + #{e\ 517}# + #{r\ 503}# + #{w\ 518}# + #{mod\ 520}#)))) (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\ 505}# (quote c&e)) + (#{top-level-eval-hook\ 89}# + #{x\ 553}# + #{mod\ 520}#)) + #{x\ 553}#))) + (if (memv #{type\ 551}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1686}# - (#{wrap\ 1325}# - #{value\ 1685}# - #{w\ 1687}# - #{mod\ 1689}#)) + #{e\ 517}# + (#{wrap\ 156}# + #{value\ 516}# + #{w\ 518}# + #{mod\ 520}#)) (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\ 517}# + (#{wrap\ 156}# + #{value\ 516}# + #{w\ 518}# + #{mod\ 520}#)))))) + (let ((#{x\ 554}# (#{chi-expr\ 165}# + #{type\ 515}# + #{value\ 516}# + #{e\ 517}# + #{r\ 503}# + #{w\ 518}# + #{s\ 519}# + #{mod\ 520}#))) (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\ 505}# (quote c&e)) + (#{top-level-eval-hook\ 89}# + #{x\ 554}# + #{mod\ 520}#)) + #{x\ 554}#))))))))))) + (#{syntax-type\ 162}# + (lambda (#{e\ 555}# + #{r\ 556}# + #{w\ 557}# + #{s\ 558}# + #{rib\ 559}# + #{mod\ 560}# + #{for-car?\ 561}#) + (if (symbol? #{e\ 555}#) + (let ((#{n\ 562}# (#{id-var-name\ 150}# + #{e\ 555}# + #{w\ 557}#))) + (let ((#{b\ 563}# (#{lookup\ 125}# + #{n\ 562}# + #{r\ 556}# + #{mod\ 560}#))) + (let ((#{type\ 564}# + (#{binding-type\ 120}# #{b\ 563}#))) + (if (memv #{type\ 564}# (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\ 564}# + (#{binding-value\ 121}# #{b\ 563}#) + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{type\ 564}# (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\ 564}# + #{n\ 562}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{type\ 564}# (quote (macro))) + (if #{for-car?\ 561}# (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\ 564}# + (#{binding-value\ 121}# #{b\ 563}#) + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (#{syntax-type\ 162}# + (#{chi-macro\ 167}# + (#{binding-value\ 121}# #{b\ 563}#) + #{e\ 555}# + #{r\ 556}# + #{w\ 557}# + #{rib\ 559}# + #{mod\ 560}#) + #{r\ 556}# '(()) - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# + #{s\ 558}# + #{rib\ 559}# + #{mod\ 560}# #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\ 564}# + (#{binding-value\ 121}# #{b\ 563}#) + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#))))))) + (if (pair? #{e\ 555}#) + (let ((#{first\ 565}# (car #{e\ 555}#))) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{first\ 1734}# - #{r\ 1725}# - #{w\ 1726}# - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# + (#{syntax-type\ 162}# + #{first\ 565}# + #{r\ 556}# + #{w\ 557}# + #{s\ 558}# + #{rib\ 559}# + #{mod\ 560}# #t)) - (lambda (#{ftype\ 1735}# - #{fval\ 1736}# - #{fe\ 1737}# - #{fw\ 1738}# - #{fs\ 1739}# - #{fmod\ 1740}#) - (if (memv #{ftype\ 1735}# (quote (lexical))) + (lambda (#{ftype\ 566}# + #{fval\ 567}# + #{fe\ 568}# + #{fw\ 569}# + #{fs\ 570}# + #{fmod\ 571}#) + (if (memv #{ftype\ 566}# (quote (lexical))) (values 'lexical-call - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# (quote (global))) + #{fval\ 567}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# (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\ 111}# + #{fval\ 567}# + #{w\ 557}# + #{fmod\ 571}#) + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# (quote (macro))) + (#{syntax-type\ 162}# + (#{chi-macro\ 167}# + #{fval\ 567}# + #{e\ 555}# + #{r\ 556}# + #{w\ 557}# + #{rib\ 559}# + #{mod\ 560}#) + #{r\ 556}# '(()) - #{s\ 1727}# - #{rib\ 1728}# - #{mod\ 1729}# - #{for-car?\ 1730}#) - (if (memv #{ftype\ 1735}# (quote (module-ref))) + #{s\ 558}# + #{rib\ 559}# + #{mod\ 560}# + #{for-car?\ 561}#) + (if (memv #{ftype\ 566}# (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\ 567}# #{e\ 555}#)) + (lambda (#{sym\ 572}# #{mod\ 573}#) + (#{syntax-type\ 162}# + #{sym\ 572}# + #{r\ 556}# + #{w\ 557}# + #{s\ 558}# + #{rib\ 559}# + #{mod\ 573}# + #{for-car?\ 561}#))) + (if (memv #{ftype\ 566}# (quote (core))) (values 'core-form - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{fval\ 567}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1736}# - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# (quote (begin))) + #{fval\ 567}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# (quote (begin))) (values 'begin-form #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) - (if (memv #{ftype\ 1735}# + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) + (if (memv #{ftype\ 566}# '(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\ 574}#) + ((lambda (#{tmp\ 575}#) + (if (if #{tmp\ 575}# + (apply (lambda (#{_\ 576}# + #{name\ 577}# + #{val\ 578}#) + (#{id?\ 128}# + #{name\ 577}#)) + #{tmp\ 575}#) #f) - (apply (lambda (#{_\ 1748}# - #{name\ 1749}# - #{val\ 1750}#) + (apply (lambda (#{_\ 579}# + #{name\ 580}# + #{val\ 581}#) (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\ 580}# + #{val\ 581}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#)) + #{tmp\ 575}#) + ((lambda (#{tmp\ 582}#) + (if (if #{tmp\ 582}# + (apply (lambda (#{_\ 583}# + #{name\ 584}# + #{args\ 585}# + #{e1\ 586}# + #{e2\ 587}#) + (if (#{id?\ 128}# + #{name\ 584}#) + (#{valid-bound-ids?\ 153}# + (#{lambda-var-list\ 176}# + #{args\ 585}#)) #f)) - #{tmp\ 1751}#) + #{tmp\ 582}#) #f) - (apply (lambda (#{_\ 1757}# - #{name\ 1758}# - #{args\ 1759}# - #{e1\ 1760}# - #{e2\ 1761}#) + (apply (lambda (#{_\ 588}# + #{name\ 589}# + #{args\ 590}# + #{e1\ 591}# + #{e2\ 592}#) (values 'define-form - (#{wrap\ 1325}# - #{name\ 1758}# - #{w\ 1726}# - #{mod\ 1729}#) - (#{decorate-source\ 1262}# + (#{wrap\ 156}# + #{name\ 589}# + #{w\ 557}# + #{mod\ 560}#) + (#{decorate-source\ 93}# (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\ 156}# + (cons #{args\ 590}# + (cons #{e1\ 591}# + #{e2\ 592}#)) + #{w\ 557}# + #{mod\ 560}#)) + #{s\ 558}#) '(()) - #{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\ 558}# + #{mod\ 560}#)) + #{tmp\ 582}#) + ((lambda (#{tmp\ 594}#) + (if (if #{tmp\ 594}# + (apply (lambda (#{_\ 595}# + #{name\ 596}#) + (#{id?\ 128}# + #{name\ 596}#)) + #{tmp\ 594}#) #f) - (apply (lambda (#{_\ 1766}# - #{name\ 1767}#) + (apply (lambda (#{_\ 597}# + #{name\ 598}#) (values 'define-form - (#{wrap\ 1325}# - #{name\ 1767}# - #{w\ 1726}# - #{mod\ 1729}#) + (#{wrap\ 156}# + #{name\ 598}# + #{w\ 557}# + #{mod\ 560}#) '(#(syntax-object if ((top) @@ -3598,3179 +3570,3232 @@ (hygiene guile))) '(()) - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1763}#) + #{s\ 558}# + #{mod\ 560}#)) + #{tmp\ 594}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1743}#))) + #{tmp\ 574}#))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 574}# '(any any))))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 574}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1743}# + #{tmp\ 574}# '(any any any)))) - #{e\ 1724}#) - (if (memv #{ftype\ 1735}# + #{e\ 555}#) + (if (memv #{ftype\ 566}# '(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\ 599}#) + ((lambda (#{tmp\ 600}#) + (if (if #{tmp\ 600}# + (apply (lambda (#{_\ 601}# + #{name\ 602}# + #{val\ 603}#) + (#{id?\ 128}# + #{name\ 602}#)) + #{tmp\ 600}#) #f) - (apply (lambda (#{_\ 1773}# - #{name\ 1774}# - #{val\ 1775}#) + (apply (lambda (#{_\ 604}# + #{name\ 605}# + #{val\ 606}#) (values 'define-syntax-form - #{name\ 1774}# - #{val\ 1775}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#)) - #{tmp\ 1769}#) + #{name\ 605}# + #{val\ 606}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#)) + #{tmp\ 600}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1768}#))) + #{tmp\ 599}#))) ($sc-dispatch - #{tmp\ 1768}# + #{tmp\ 599}# '(any any any)))) - #{e\ 1724}#) + #{e\ 555}#) (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\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#)))))))))))))) + (if (#{syntax-object?\ 112}# #{e\ 555}#) + (#{syntax-type\ 162}# + (#{syntax-object-expression\ 113}# #{e\ 555}#) + #{r\ 556}# + (#{join-wraps\ 147}# + #{w\ 557}# + (#{syntax-object-wrap\ 114}# #{e\ 555}#)) + #{s\ 558}# + #{rib\ 559}# + (let ((#{t\ 607}# (#{syntax-object-module\ 115}# + #{e\ 555}#))) + (if #{t\ 607}# #{t\ 607}# #{mod\ 560}#)) + #{for-car?\ 561}#) + (if (self-evaluating? #{e\ 555}#) (values 'constant #f - #{e\ 1724}# - #{w\ 1726}# - #{s\ 1727}# - #{mod\ 1729}#) + #{e\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#) (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\ 555}# + #{w\ 557}# + #{s\ 558}# + #{mod\ 560}#))))))) + (#{chi-when-list\ 161}# + (lambda (#{e\ 608}# #{when-list\ 609}# #{w\ 610}#) + (letrec ((#{f\ 611}# (lambda (#{when-list\ 612}# + #{situations\ 613}#) + (if (null? #{when-list\ 612}#) + #{situations\ 613}# + (#{f\ 611}# (cdr #{when-list\ 612}#) + (cons (let ((#{x\ 614}# (car #{when-list\ 612}#))) + (if (#{free-id=?\ 151}# + #{x\ 614}# + '#(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=?\ 151}# + #{x\ 614}# + '#(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=?\ 151}# + #{x\ 614}# + '#(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\ 608}# + (#{wrap\ 156}# + #{x\ 614}# + #{w\ 610}# + #f)))))) + #{situations\ 613}#)))))) + (#{f\ 611}# #{when-list\ 609}# (quote ()))))) + (#{chi-install-global\ 160}# + (lambda (#{name\ 615}# #{e\ 616}#) + (#{build-global-definition\ 103}# #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\ 615}# + (if (let ((#{v\ 617}# (module-variable + (current-module) + #{name\ 615}#))) + (if #{v\ 617}# + (if (variable-bound? #{v\ 617}#) + (if (macro? (variable-ref #{v\ 617}#)) + (not (eq? (macro-type (variable-ref #{v\ 617}#)) 'syncase-macro)) #f) #f) #f)) - (#{build-application\ 1264}# + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #f 'make-extended-syncase-macro) - (list (#{build-application\ 1264}# + (list (#{build-application\ 95}# #f - (#{build-primref\ 1274}# #f (quote module-ref)) - (list (#{build-application\ 1264}# + (#{build-primref\ 105}# #f (quote module-ref)) + (list (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #f 'current-module) '()) - (#{build-data\ 1275}# #f #{name\ 1784}#))) - (#{build-data\ 1275}# #f (quote macro)) - #{e\ 1785}#)) - (#{build-application\ 1264}# + (#{build-data\ 106}# #f #{name\ 615}#))) + (#{build-data\ 106}# #f (quote macro)) + #{e\ 616}#)) + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #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\ 106}# #f (quote macro)) + #{e\ 616}#)))))) + (#{chi-top-sequence\ 159}# + (lambda (#{body\ 618}# + #{r\ 619}# + #{w\ 620}# + #{s\ 621}# + #{m\ 622}# + #{esew\ 623}# + #{mod\ 624}#) + (#{build-sequence\ 107}# + #{s\ 621}# + (letrec ((#{dobody\ 625}# + (lambda (#{body\ 626}# + #{r\ 627}# + #{w\ 628}# + #{m\ 629}# + #{esew\ 630}# + #{mod\ 631}#) + (if (null? #{body\ 626}#) '() - (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\ 632}# + (#{chi-top\ 163}# + (car #{body\ 626}#) + #{r\ 627}# + #{w\ 628}# + #{m\ 629}# + #{esew\ 630}# + #{mod\ 631}#))) + (cons #{first\ 632}# + (#{dobody\ 625}# + (cdr #{body\ 626}#) + #{r\ 627}# + #{w\ 628}# + #{m\ 629}# + #{esew\ 630}# + #{mod\ 631}#))))))) + (#{dobody\ 625}# + #{body\ 618}# + #{r\ 619}# + #{w\ 620}# + #{m\ 622}# + #{esew\ 623}# + #{mod\ 624}#))))) + (#{chi-sequence\ 158}# + (lambda (#{body\ 633}# + #{r\ 634}# + #{w\ 635}# + #{s\ 636}# + #{mod\ 637}#) + (#{build-sequence\ 107}# + #{s\ 636}# + (letrec ((#{dobody\ 638}# + (lambda (#{body\ 639}# + #{r\ 640}# + #{w\ 641}# + #{mod\ 642}#) + (if (null? #{body\ 639}#) '() - (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\ 643}# + (#{chi\ 164}# + (car #{body\ 639}#) + #{r\ 640}# + #{w\ 641}# + #{mod\ 642}#))) + (cons #{first\ 643}# + (#{dobody\ 638}# + (cdr #{body\ 639}#) + #{r\ 640}# + #{w\ 641}# + #{mod\ 642}#))))))) + (#{dobody\ 638}# + #{body\ 633}# + #{r\ 634}# + #{w\ 635}# + #{mod\ 637}#))))) + (#{source-wrap\ 157}# + (lambda (#{x\ 644}# + #{w\ 645}# + #{s\ 646}# + #{defmod\ 647}#) + (#{wrap\ 156}# + (#{decorate-source\ 93}# #{x\ 644}# #{s\ 646}#) + #{w\ 645}# + #{defmod\ 647}#))) + (#{wrap\ 156}# + (lambda (#{x\ 648}# #{w\ 649}# #{defmod\ 650}#) + (if (if (null? (#{wrap-marks\ 131}# #{w\ 649}#)) + (null? (#{wrap-subst\ 132}# #{w\ 649}#)) #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\ 648}# + (if (#{syntax-object?\ 112}# #{x\ 648}#) + (#{make-syntax-object\ 111}# + (#{syntax-object-expression\ 113}# #{x\ 648}#) + (#{join-wraps\ 147}# + #{w\ 649}# + (#{syntax-object-wrap\ 114}# #{x\ 648}#)) + (#{syntax-object-module\ 115}# #{x\ 648}#)) + (if (null? #{x\ 648}#) + #{x\ 648}# + (#{make-syntax-object\ 111}# + #{x\ 648}# + #{w\ 649}# + #{defmod\ 650}#)))))) + (#{bound-id-member?\ 155}# + (lambda (#{x\ 651}# #{list\ 652}#) + (if (not (null? #{list\ 652}#)) + (let ((#{t\ 653}# (#{bound-id=?\ 152}# + #{x\ 651}# + (car #{list\ 652}#)))) + (if #{t\ 653}# + #{t\ 653}# + (#{bound-id-member?\ 155}# + #{x\ 651}# + (cdr #{list\ 652}#)))) #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?\ 154}# + (lambda (#{ids\ 654}#) + (letrec ((#{distinct?\ 655}# + (lambda (#{ids\ 656}#) + (let ((#{t\ 657}# (null? #{ids\ 656}#))) + (if #{t\ 657}# + #{t\ 657}# + (if (not (#{bound-id-member?\ 155}# + (car #{ids\ 656}#) + (cdr #{ids\ 656}#))) + (#{distinct?\ 655}# (cdr #{ids\ 656}#)) #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?\ 655}# #{ids\ 654}#)))) + (#{valid-bound-ids?\ 153}# + (lambda (#{ids\ 658}#) + (if (letrec ((#{all-ids?\ 659}# + (lambda (#{ids\ 660}#) + (let ((#{t\ 661}# (null? #{ids\ 660}#))) + (if #{t\ 661}# + #{t\ 661}# + (if (#{id?\ 128}# (car #{ids\ 660}#)) + (#{all-ids?\ 659}# (cdr #{ids\ 660}#)) #f)))))) - (#{all-ids?\ 1828}# #{ids\ 1827}#)) - (#{distinct-bound-ids?\ 1323}# #{ids\ 1827}#) + (#{all-ids?\ 659}# #{ids\ 658}#)) + (#{distinct-bound-ids?\ 154}# #{ids\ 658}#) #f))) - (#{bound-id=?\ 1321}# - (lambda (#{i\ 1831}# #{j\ 1832}#) - (if (if (#{syntax-object?\ 1281}# #{i\ 1831}#) - (#{syntax-object?\ 1281}# #{j\ 1832}#) + (#{bound-id=?\ 152}# + (lambda (#{i\ 662}# #{j\ 663}#) + (if (if (#{syntax-object?\ 112}# #{i\ 662}#) + (#{syntax-object?\ 112}# #{j\ 663}#) #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\ 113}# #{i\ 662}#) + (#{syntax-object-expression\ 113}# #{j\ 663}#)) + (#{same-marks?\ 149}# + (#{wrap-marks\ 131}# + (#{syntax-object-wrap\ 114}# #{i\ 662}#)) + (#{wrap-marks\ 131}# + (#{syntax-object-wrap\ 114}# #{j\ 663}#))) #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\ 662}# #{j\ 663}#)))) + (#{free-id=?\ 151}# + (lambda (#{i\ 664}# #{j\ 665}#) + (if (eq? (let ((#{x\ 666}# #{i\ 664}#)) + (if (#{syntax-object?\ 112}# #{x\ 666}#) + (#{syntax-object-expression\ 113}# #{x\ 666}#) + #{x\ 666}#)) + (let ((#{x\ 667}# #{j\ 665}#)) + (if (#{syntax-object?\ 112}# #{x\ 667}#) + (#{syntax-object-expression\ 113}# #{x\ 667}#) + #{x\ 667}#))) + (eq? (#{id-var-name\ 150}# #{i\ 664}# (quote (()))) + (#{id-var-name\ 150}# #{j\ 665}# (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\ 150}# + (lambda (#{id\ 668}# #{w\ 669}#) + (letrec ((#{search-vector-rib\ 672}# + (lambda (#{sym\ 678}# + #{subst\ 679}# + #{marks\ 680}# + #{symnames\ 681}# + #{ribcage\ 682}#) + (let ((#{n\ 683}# (vector-length + #{symnames\ 681}#))) + (letrec ((#{f\ 684}# (lambda (#{i\ 685}#) + (if (#{fx=\ 87}# + #{i\ 685}# + #{n\ 683}#) + (#{search\ 670}# + #{sym\ 678}# + (cdr #{subst\ 679}#) + #{marks\ 680}#) + (if (if (eq? (vector-ref + #{symnames\ 681}# + #{i\ 685}#) + #{sym\ 678}#) + (#{same-marks?\ 149}# + #{marks\ 680}# + (vector-ref + (#{ribcage-marks\ 138}# + #{ribcage\ 682}#) + #{i\ 685}#)) + #f) + (values + (vector-ref + (#{ribcage-labels\ 139}# + #{ribcage\ 682}#) + #{i\ 685}#) + #{marks\ 680}#) + (#{f\ 684}# (#{fx+\ 85}# + #{i\ 685}# + 1))))))) + (#{f\ 684}# 0))))) + (#{search-list-rib\ 671}# + (lambda (#{sym\ 686}# + #{subst\ 687}# + #{marks\ 688}# + #{symnames\ 689}# + #{ribcage\ 690}#) + (letrec ((#{f\ 691}# (lambda (#{symnames\ 692}# + #{i\ 693}#) + (if (null? #{symnames\ 692}#) + (#{search\ 670}# + #{sym\ 686}# + (cdr #{subst\ 687}#) + #{marks\ 688}#) + (if (if (eq? (car #{symnames\ 692}#) + #{sym\ 686}#) + (#{same-marks?\ 149}# + #{marks\ 688}# + (list-ref + (#{ribcage-marks\ 138}# + #{ribcage\ 690}#) + #{i\ 693}#)) + #f) + (values + (list-ref + (#{ribcage-labels\ 139}# + #{ribcage\ 690}#) + #{i\ 693}#) + #{marks\ 688}#) + (#{f\ 691}# (cdr #{symnames\ 692}#) + (#{fx+\ 85}# + #{i\ 693}# + 1))))))) + (#{f\ 691}# #{symnames\ 689}# 0)))) + (#{search\ 670}# + (lambda (#{sym\ 694}# #{subst\ 695}# #{marks\ 696}#) + (if (null? #{subst\ 695}#) + (values #f #{marks\ 696}#) + (let ((#{fst\ 697}# (car #{subst\ 695}#))) + (if (eq? #{fst\ 697}# (quote shift)) + (#{search\ 670}# + #{sym\ 694}# + (cdr #{subst\ 695}#) + (cdr #{marks\ 696}#)) + (let ((#{symnames\ 698}# + (#{ribcage-symnames\ 137}# + #{fst\ 697}#))) + (if (vector? #{symnames\ 698}#) + (#{search-vector-rib\ 672}# + #{sym\ 694}# + #{subst\ 695}# + #{marks\ 696}# + #{symnames\ 698}# + #{fst\ 697}#) + (#{search-list-rib\ 671}# + #{sym\ 694}# + #{subst\ 695}# + #{marks\ 696}# + #{symnames\ 698}# + #{fst\ 697}#))))))))) + (if (symbol? #{id\ 668}#) + (let ((#{t\ 699}# (call-with-values + (lambda () + (#{search\ 670}# + #{id\ 668}# + (#{wrap-subst\ 132}# #{w\ 669}#) + (#{wrap-marks\ 131}# #{w\ 669}#))) + (lambda (#{x\ 701}# . #{ignore\ 700}#) + #{x\ 701}#)))) + (if #{t\ 699}# #{t\ 699}# #{id\ 668}#)) + (if (#{syntax-object?\ 112}# #{id\ 668}#) + (let ((#{id\ 702}# + (#{syntax-object-expression\ 113}# #{id\ 668}#)) + (#{w1\ 703}# + (#{syntax-object-wrap\ 114}# #{id\ 668}#))) + (let ((#{marks\ 704}# + (#{join-marks\ 148}# + (#{wrap-marks\ 131}# #{w\ 669}#) + (#{wrap-marks\ 131}# #{w1\ 703}#)))) (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\ 670}# + #{id\ 702}# + (#{wrap-subst\ 132}# #{w\ 669}#) + #{marks\ 704}#)) + (lambda (#{new-id\ 705}# #{marks\ 706}#) + (let ((#{t\ 707}# #{new-id\ 705}#)) + (if #{t\ 707}# + #{t\ 707}# + (let ((#{t\ 708}# (call-with-values + (lambda () + (#{search\ 670}# + #{id\ 702}# + (#{wrap-subst\ 132}# + #{w1\ 703}#) + #{marks\ 706}#)) + (lambda (#{x\ 710}# + . + #{ignore\ 709}#) + #{x\ 710}#)))) + (if #{t\ 708}# + #{t\ 708}# + #{id\ 702}#)))))))) (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\ 668}#)))))) + (#{same-marks?\ 149}# + (lambda (#{x\ 711}# #{y\ 712}#) + (let ((#{t\ 713}# (eq? #{x\ 711}# #{y\ 712}#))) + (if #{t\ 713}# + #{t\ 713}# + (if (not (null? #{x\ 711}#)) + (if (not (null? #{y\ 712}#)) + (if (eq? (car #{x\ 711}#) (car #{y\ 712}#)) + (#{same-marks?\ 149}# + (cdr #{x\ 711}#) + (cdr #{y\ 712}#)) #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\ 148}# + (lambda (#{m1\ 714}# #{m2\ 715}#) + (#{smart-append\ 146}# #{m1\ 714}# #{m2\ 715}#))) + (#{join-wraps\ 147}# + (lambda (#{w1\ 716}# #{w2\ 717}#) + (let ((#{m1\ 718}# (#{wrap-marks\ 131}# #{w1\ 716}#)) + (#{s1\ 719}# (#{wrap-subst\ 132}# #{w1\ 716}#))) + (if (null? #{m1\ 718}#) + (if (null? #{s1\ 719}#) + #{w2\ 717}# + (#{make-wrap\ 130}# + (#{wrap-marks\ 131}# #{w2\ 717}#) + (#{smart-append\ 146}# + #{s1\ 719}# + (#{wrap-subst\ 132}# #{w2\ 717}#)))) + (#{make-wrap\ 130}# + (#{smart-append\ 146}# + #{m1\ 718}# + (#{wrap-marks\ 131}# #{w2\ 717}#)) + (#{smart-append\ 146}# + #{s1\ 719}# + (#{wrap-subst\ 132}# #{w2\ 717}#))))))) + (#{smart-append\ 146}# + (lambda (#{m1\ 720}# #{m2\ 721}#) + (if (null? #{m2\ 721}#) + #{m1\ 720}# + (append #{m1\ 720}# #{m2\ 721}#)))) + (#{make-binding-wrap\ 145}# + (lambda (#{ids\ 722}# #{labels\ 723}# #{w\ 724}#) + (if (null? #{ids\ 722}#) + #{w\ 724}# + (#{make-wrap\ 130}# + (#{wrap-marks\ 131}# #{w\ 724}#) + (cons (let ((#{labelvec\ 725}# + (list->vector #{labels\ 723}#))) + (let ((#{n\ 726}# (vector-length + #{labelvec\ 725}#))) + (let ((#{symnamevec\ 727}# + (make-vector #{n\ 726}#)) + (#{marksvec\ 728}# + (make-vector #{n\ 726}#))) (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\ 729}# (lambda (#{ids\ 730}# + #{i\ 731}#) + (if (not (null? #{ids\ 730}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks\ 129}# + (car #{ids\ 730}#) + #{w\ 724}#)) + (lambda (#{symname\ 732}# + #{marks\ 733}#) + (begin + (vector-set! + #{symnamevec\ 727}# + #{i\ 731}# + #{symname\ 732}#) + (vector-set! + #{marksvec\ 728}# + #{i\ 731}# + #{marks\ 733}#) + (#{f\ 729}# (cdr #{ids\ 730}#) + (#{fx+\ 85}# + #{i\ 731}# + 1))))))))) + (#{f\ 729}# #{ids\ 722}# 0)) + (#{make-ribcage\ 135}# + #{symnamevec\ 727}# + #{marksvec\ 728}# + #{labelvec\ 725}#))))) + (#{wrap-subst\ 132}# #{w\ 724}#)))))) + (#{extend-ribcage!\ 144}# + (lambda (#{ribcage\ 734}# #{id\ 735}# #{label\ 736}#) (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!\ 140}# + #{ribcage\ 734}# + (cons (#{syntax-object-expression\ 113}# #{id\ 735}#) + (#{ribcage-symnames\ 137}# #{ribcage\ 734}#))) + (#{set-ribcage-marks!\ 141}# + #{ribcage\ 734}# + (cons (#{wrap-marks\ 131}# + (#{syntax-object-wrap\ 114}# #{id\ 735}#)) + (#{ribcage-marks\ 138}# #{ribcage\ 734}#))) + (#{set-ribcage-labels!\ 142}# + #{ribcage\ 734}# + (cons #{label\ 736}# + (#{ribcage-labels\ 139}# #{ribcage\ 734}#)))))) + (#{anti-mark\ 143}# + (lambda (#{w\ 737}#) + (#{make-wrap\ 130}# + (cons #f (#{wrap-marks\ 131}# #{w\ 737}#)) (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\ 132}# #{w\ 737}#))))) + (#{set-ribcage-labels!\ 142}# + (lambda (#{x\ 738}# #{update\ 739}#) + (vector-set! #{x\ 738}# 3 #{update\ 739}#))) + (#{set-ribcage-marks!\ 141}# + (lambda (#{x\ 740}# #{update\ 741}#) + (vector-set! #{x\ 740}# 2 #{update\ 741}#))) + (#{set-ribcage-symnames!\ 140}# + (lambda (#{x\ 742}# #{update\ 743}#) + (vector-set! #{x\ 742}# 1 #{update\ 743}#))) + (#{ribcage-labels\ 139}# + (lambda (#{x\ 744}#) (vector-ref #{x\ 744}# 3))) + (#{ribcage-marks\ 138}# + (lambda (#{x\ 745}#) (vector-ref #{x\ 745}# 2))) + (#{ribcage-symnames\ 137}# + (lambda (#{x\ 746}#) (vector-ref #{x\ 746}# 1))) + (#{ribcage?\ 136}# + (lambda (#{x\ 747}#) + (if (vector? #{x\ 747}#) + (if (= (vector-length #{x\ 747}#) 4) + (eq? (vector-ref #{x\ 747}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 1304}# - (lambda (#{symnames\ 1917}# - #{marks\ 1918}# - #{labels\ 1919}#) + (#{make-ribcage\ 135}# + (lambda (#{symnames\ 748}# + #{marks\ 749}# + #{labels\ 750}#) (vector 'ribcage - #{symnames\ 1917}# - #{marks\ 1918}# - #{labels\ 1919}#))) - (#{gen-labels\ 1303}# - (lambda (#{ls\ 1920}#) - (if (null? #{ls\ 1920}#) + #{symnames\ 748}# + #{marks\ 749}# + #{labels\ 750}#))) + (#{gen-labels\ 134}# + (lambda (#{ls\ 751}#) + (if (null? #{ls\ 751}#) '() - (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\ 133}#) + (#{gen-labels\ 134}# (cdr #{ls\ 751}#)))))) + (#{gen-label\ 133}# (lambda () (string #\i))) + (#{wrap-subst\ 132}# cdr) + (#{wrap-marks\ 131}# car) + (#{make-wrap\ 130}# cons) + (#{id-sym-name&marks\ 129}# + (lambda (#{x\ 752}# #{w\ 753}#) + (if (#{syntax-object?\ 112}# #{x\ 752}#) (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\ 113}# #{x\ 752}#) + (#{join-marks\ 148}# + (#{wrap-marks\ 131}# #{w\ 753}#) + (#{wrap-marks\ 131}# + (#{syntax-object-wrap\ 114}# #{x\ 752}#)))) (values - #{x\ 1921}# - (#{wrap-marks\ 1300}# #{w\ 1922}#))))) - (#{id?\ 1297}# - (lambda (#{x\ 1923}#) - (if (symbol? #{x\ 1923}#) + #{x\ 752}# + (#{wrap-marks\ 131}# #{w\ 753}#))))) + (#{id?\ 128}# + (lambda (#{x\ 754}#) + (if (symbol? #{x\ 754}#) #t - (if (#{syntax-object?\ 1281}# #{x\ 1923}#) + (if (#{syntax-object?\ 112}# #{x\ 754}#) (symbol? - (#{syntax-object-expression\ 1282}# #{x\ 1923}#)) + (#{syntax-object-expression\ 113}# #{x\ 754}#)) #f)))) - (#{nonsymbol-id?\ 1296}# - (lambda (#{x\ 1924}#) - (if (#{syntax-object?\ 1281}# #{x\ 1924}#) + (#{nonsymbol-id?\ 127}# + (lambda (#{x\ 755}#) + (if (#{syntax-object?\ 112}# #{x\ 755}#) (symbol? - (#{syntax-object-expression\ 1282}# #{x\ 1924}#)) + (#{syntax-object-expression\ 113}# #{x\ 755}#)) #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\ 126}# + (lambda (#{type\ 756}# #{sym\ 757}# #{val\ 758}#) + (#{put-global-definition-hook\ 91}# + #{sym\ 757}# + #{type\ 756}# + #{val\ 758}#))) + (#{lookup\ 125}# + (lambda (#{x\ 759}# #{r\ 760}# #{mod\ 761}#) + (let ((#{t\ 762}# (assq #{x\ 759}# #{r\ 760}#))) + (if #{t\ 762}# + (cdr #{t\ 762}#) + (if (symbol? #{x\ 759}#) + (let ((#{t\ 763}# (#{get-global-definition-hook\ 92}# + #{x\ 759}# + #{mod\ 761}#))) + (if #{t\ 763}# #{t\ 763}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 1293}# - (lambda (#{r\ 1933}#) - (if (null? #{r\ 1933}#) + (#{macros-only-env\ 124}# + (lambda (#{r\ 764}#) + (if (null? #{r\ 764}#) '() - (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\ 765}# (car #{r\ 764}#))) + (if (eq? (cadr #{a\ 765}#) (quote macro)) + (cons #{a\ 765}# + (#{macros-only-env\ 124}# (cdr #{r\ 764}#))) + (#{macros-only-env\ 124}# (cdr #{r\ 764}#))))))) + (#{extend-var-env\ 123}# + (lambda (#{labels\ 766}# #{vars\ 767}# #{r\ 768}#) + (if (null? #{labels\ 766}#) + #{r\ 768}# + (#{extend-var-env\ 123}# + (cdr #{labels\ 766}#) + (cdr #{vars\ 767}#) + (cons (cons (car #{labels\ 766}#) + (cons (quote lexical) (car #{vars\ 767}#))) + #{r\ 768}#))))) + (#{extend-env\ 122}# + (lambda (#{labels\ 769}# #{bindings\ 770}# #{r\ 771}#) + (if (null? #{labels\ 769}#) + #{r\ 771}# + (#{extend-env\ 122}# + (cdr #{labels\ 769}#) + (cdr #{bindings\ 770}#) + (cons (cons (car #{labels\ 769}#) + (car #{bindings\ 770}#)) + #{r\ 771}#))))) + (#{binding-value\ 121}# cdr) + (#{binding-type\ 120}# car) + (#{source-annotation\ 119}# + (lambda (#{x\ 772}#) + (if (#{syntax-object?\ 112}# #{x\ 772}#) + (#{source-annotation\ 119}# + (#{syntax-object-expression\ 113}# #{x\ 772}#)) + (if (pair? #{x\ 772}#) + (let ((#{props\ 773}# (source-properties #{x\ 772}#))) + (if (pair? #{props\ 773}#) #{props\ 773}# #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!\ 118}# + (lambda (#{x\ 774}# #{update\ 775}#) + (vector-set! #{x\ 774}# 3 #{update\ 775}#))) + (#{set-syntax-object-wrap!\ 117}# + (lambda (#{x\ 776}# #{update\ 777}#) + (vector-set! #{x\ 776}# 2 #{update\ 777}#))) + (#{set-syntax-object-expression!\ 116}# + (lambda (#{x\ 778}# #{update\ 779}#) + (vector-set! #{x\ 778}# 1 #{update\ 779}#))) + (#{syntax-object-module\ 115}# + (lambda (#{x\ 780}#) (vector-ref #{x\ 780}# 3))) + (#{syntax-object-wrap\ 114}# + (lambda (#{x\ 781}#) (vector-ref #{x\ 781}# 2))) + (#{syntax-object-expression\ 113}# + (lambda (#{x\ 782}#) (vector-ref #{x\ 782}# 1))) + (#{syntax-object?\ 112}# + (lambda (#{x\ 783}#) + (if (vector? #{x\ 783}#) + (if (= (vector-length #{x\ 783}#) 4) + (eq? (vector-ref #{x\ 783}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 1280}# - (lambda (#{expression\ 1953}# - #{wrap\ 1954}# - #{module\ 1955}#) + (#{make-syntax-object\ 111}# + (lambda (#{expression\ 784}# + #{wrap\ 785}# + #{module\ 786}#) (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\ 784}# + #{wrap\ 785}# + #{module\ 786}#))) + (#{build-letrec\ 110}# + (lambda (#{src\ 787}# + #{ids\ 788}# + #{vars\ 789}# + #{val-exps\ 790}# + #{body-exp\ 791}#) + (if (null? #{vars\ 789}#) + #{body-exp\ 791}# + (let ((#{atom-key\ 792}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 792}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1957}# - #{val-exps\ 1959}#) + #{maybe-name-value!\ 102}# + #{ids\ 788}# + #{val-exps\ 790}#) ((@ (language tree-il) make-letrec) - #{src\ 1956}# - #{ids\ 1957}# - #{vars\ 1958}# - #{val-exps\ 1959}# - #{body-exp\ 1960}#)) - (#{decorate-source\ 1262}# + #{src\ 787}# + #{ids\ 788}# + #{vars\ 789}# + #{val-exps\ 790}# + #{body-exp\ 791}#)) + (#{decorate-source\ 93}# (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\ 789}# #{val-exps\ 790}#) + #{body-exp\ 791}#) + #{src\ 787}#)))))) + (#{build-named-let\ 109}# + (lambda (#{src\ 793}# + #{ids\ 794}# + #{vars\ 795}# + #{val-exps\ 796}# + #{body-exp\ 797}#) + (let ((#{f\ 798}# (car #{vars\ 795}#)) + (#{f-name\ 799}# (car #{ids\ 794}#)) + (#{vars\ 800}# (cdr #{vars\ 795}#)) + (#{ids\ 801}# (cdr #{ids\ 794}#))) + (let ((#{atom-key\ 802}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 802}# (quote (c))) + (let ((#{proc\ 803}# + (#{build-lambda\ 104}# + #{src\ 793}# + #{ids\ 801}# + #{vars\ 800}# #f - #{body-exp\ 1966}#))) + #{body-exp\ 797}#))) (begin - (#{maybe-name-value!\ 1271}# - #{f-name\ 1968}# - #{proc\ 1972}#) + (#{maybe-name-value!\ 102}# + #{f-name\ 799}# + #{proc\ 803}#) (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1970}# - #{val-exps\ 1965}#) + #{maybe-name-value!\ 102}# + #{ids\ 801}# + #{val-exps\ 796}#) ((@ (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\ 793}# + (list #{f-name\ 799}#) + (list #{f\ 798}#) + (list #{proc\ 803}#) + (#{build-application\ 95}# + #{src\ 793}# + (#{build-lexical-reference\ 97}# 'fun - #{src\ 1962}# - #{f-name\ 1968}# - #{f\ 1967}#) - #{val-exps\ 1965}#)))) - (#{decorate-source\ 1262}# - (list 'let - #{f\ 1967}# - (map list #{vars\ 1969}# #{val-exps\ 1965}#) - #{body-exp\ 1966}#) - #{src\ 1962}#)))))) - (#{build-let\ 1277}# - (lambda (#{src\ 1973}# - #{ids\ 1974}# - #{vars\ 1975}# - #{val-exps\ 1976}# - #{body-exp\ 1977}#) - (if (null? #{vars\ 1975}#) - #{body-exp\ 1977}# - (let ((#{atom-key\ 1978}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 1978}# (quote (c))) + #{src\ 793}# + #{f-name\ 799}# + #{f\ 798}#) + #{val-exps\ 796}#)))) + (#{decorate-source\ 93}# + (list 'letrec + (list (list #{f\ 798}# + (list 'lambda + #{vars\ 800}# + #{body-exp\ 797}#))) + (cons #{f\ 798}# #{val-exps\ 796}#)) + #{src\ 793}#)))))) + (#{build-let\ 108}# + (lambda (#{src\ 804}# + #{ids\ 805}# + #{vars\ 806}# + #{val-exps\ 807}# + #{body-exp\ 808}#) + (if (null? #{vars\ 806}#) + #{body-exp\ 808}# + (let ((#{atom-key\ 809}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 809}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 1271}# - #{ids\ 1974}# - #{val-exps\ 1976}#) + #{maybe-name-value!\ 102}# + #{ids\ 805}# + #{val-exps\ 807}#) ((@ (language tree-il) make-let) - #{src\ 1973}# - #{ids\ 1974}# - #{vars\ 1975}# - #{val-exps\ 1976}# - #{body-exp\ 1977}#)) - (#{decorate-source\ 1262}# + #{src\ 804}# + #{ids\ 805}# + #{vars\ 806}# + #{val-exps\ 807}# + #{body-exp\ 808}#)) + (#{decorate-source\ 93}# (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\ 806}# #{val-exps\ 807}#) + #{body-exp\ 808}#) + #{src\ 804}#)))))) + (#{build-sequence\ 107}# + (lambda (#{src\ 810}# #{exps\ 811}#) + (if (null? (cdr #{exps\ 811}#)) + (car #{exps\ 811}#) + (let ((#{atom-key\ 812}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 812}# (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\ 810}# + #{exps\ 811}#) + (#{decorate-source\ 93}# + (cons (quote begin) #{exps\ 811}#) + #{src\ 810}#)))))) + (#{build-data\ 106}# + (lambda (#{src\ 813}# #{exp\ 814}#) + (let ((#{atom-key\ 815}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 815}# (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\ 813}# + #{exp\ 814}#) + (#{decorate-source\ 93}# + (if (if (self-evaluating? #{exp\ 814}#) + (not (vector? #{exp\ 814}#)) #f) - #{exp\ 1983}# - (list (quote quote) #{exp\ 1983}#)) - #{src\ 1982}#))))) - (#{build-primref\ 1274}# - (lambda (#{src\ 1985}# #{name\ 1986}#) + #{exp\ 814}# + (list (quote quote) #{exp\ 814}#)) + #{src\ 813}#))))) + (#{build-primref\ 105}# + (lambda (#{src\ 816}# #{name\ 817}#) (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\ 818}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 818}# (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\ 816}# + #{name\ 817}#) + (#{decorate-source\ 93}# + #{name\ 817}# + #{src\ 816}#))) + (let ((#{atom-key\ 819}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 819}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 1985}# + #{src\ 816}# '(guile) - #{name\ 1986}# + #{name\ 817}# #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\ 93}# + (list (quote @@) (quote (guile)) #{name\ 817}#) + #{src\ 816}#)))))) + (#{build-lambda\ 104}# + (lambda (#{src\ 820}# + #{ids\ 821}# + #{vars\ 822}# + #{docstring\ 823}# + #{exp\ 824}#) + (let ((#{atom-key\ 825}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 825}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 1989}# - #{ids\ 1990}# - #{vars\ 1991}# - (if #{docstring\ 1992}# - (list (cons (quote documentation) #{docstring\ 1992}#)) + #{src\ 820}# + #{ids\ 821}# + #{vars\ 822}# + (if #{docstring\ 823}# + (list (cons (quote documentation) #{docstring\ 823}#)) '()) - #{exp\ 1993}#) - (#{decorate-source\ 1262}# + #{exp\ 824}#) + (#{decorate-source\ 93}# (cons 'lambda - (cons #{vars\ 1991}# + (cons #{vars\ 822}# (append - (if #{docstring\ 1992}# - (list #{docstring\ 1992}#) + (if #{docstring\ 823}# + (list #{docstring\ 823}#) '()) - (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\ 824}#)))) + #{src\ 820}#))))) + (#{build-global-definition\ 103}# + (lambda (#{source\ 826}# #{var\ 827}# #{exp\ 828}#) + (let ((#{atom-key\ 829}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 829}# (quote (c))) (begin - (#{maybe-name-value!\ 1271}# - #{var\ 1996}# - #{exp\ 1997}#) + (#{maybe-name-value!\ 102}# + #{var\ 827}# + #{exp\ 828}#) ((@ (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\ 826}# + #{var\ 827}# + #{exp\ 828}#)) + (#{decorate-source\ 93}# + (list (quote define) #{var\ 827}# #{exp\ 828}#) + #{source\ 826}#))))) + (#{maybe-name-value!\ 102}# + (lambda (#{name\ 830}# #{val\ 831}#) + (if ((@ (language tree-il) lambda?) #{val\ 831}#) + (let ((#{meta\ 832}# + ((@ (language tree-il) lambda-meta) #{val\ 831}#))) + (if (not (assq (quote name) #{meta\ 832}#)) ((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\ 831}# + (acons (quote name) #{name\ 830}# #{meta\ 832}#))))))) + (#{build-global-assignment\ 101}# + (lambda (#{source\ 833}# + #{var\ 834}# + #{exp\ 835}# + #{mod\ 836}#) + (#{analyze-variable\ 99}# + #{mod\ 836}# + #{var\ 834}# + (lambda (#{mod\ 837}# #{var\ 838}# #{public?\ 839}#) + (let ((#{atom-key\ 840}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 840}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 2002}# - #{mod\ 2006}# - #{var\ 2007}# - #{public?\ 2008}# - #{exp\ 2004}#) - (#{decorate-source\ 1262}# + #{source\ 833}# + #{mod\ 837}# + #{var\ 838}# + #{public?\ 839}# + #{exp\ 835}#) + (#{decorate-source\ 93}# (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?\ 839}# (quote @) (quote @@)) + #{mod\ 837}# + #{var\ 838}#) + #{exp\ 835}#) + #{source\ 833}#)))) + (lambda (#{var\ 841}#) + (let ((#{atom-key\ 842}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 842}# (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\ 833}# + #{var\ 841}# + #{exp\ 835}#) + (#{decorate-source\ 93}# + (list (quote set!) #{var\ 841}# #{exp\ 835}#) + #{source\ 833}#))))))) + (#{build-global-reference\ 100}# + (lambda (#{source\ 843}# #{var\ 844}# #{mod\ 845}#) + (#{analyze-variable\ 99}# + #{mod\ 845}# + #{var\ 844}# + (lambda (#{mod\ 846}# #{var\ 847}# #{public?\ 848}#) + (let ((#{atom-key\ 849}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 849}# (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\ 843}# + #{mod\ 846}# + #{var\ 847}# + #{public?\ 848}#) + (#{decorate-source\ 93}# + (list (if #{public?\ 848}# (quote @) (quote @@)) + #{mod\ 846}# + #{var\ 847}#) + #{source\ 843}#)))) + (lambda (#{var\ 850}#) + (let ((#{atom-key\ 851}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 851}# (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\ 843}# + #{var\ 850}#) + (#{decorate-source\ 93}# + #{var\ 850}# + #{source\ 843}#))))))) + (#{analyze-variable\ 99}# + (lambda (#{mod\ 852}# + #{var\ 853}# + #{modref-cont\ 854}# + #{bare-cont\ 855}#) + (if (not #{mod\ 852}#) + (#{bare-cont\ 855}# #{var\ 853}#) + (let ((#{kind\ 856}# (car #{mod\ 852}#)) + (#{mod\ 857}# (cdr #{mod\ 852}#))) + (if (memv #{kind\ 856}# (quote (public))) + (#{modref-cont\ 854}# + #{mod\ 857}# + #{var\ 853}# #t) - (if (memv #{kind\ 2025}# (quote (private))) + (if (memv #{kind\ 856}# (quote (private))) (if (not (equal? - #{mod\ 2026}# + #{mod\ 857}# (module-name (current-module)))) - (#{modref-cont\ 2023}# - #{mod\ 2026}# - #{var\ 2022}# + (#{modref-cont\ 854}# + #{mod\ 857}# + #{var\ 853}# #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\ 855}# #{var\ 853}#)) + (if (memv #{kind\ 856}# (quote (bare))) + (#{bare-cont\ 855}# #{var\ 853}#) + (if (memv #{kind\ 856}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2026}# + #{mod\ 857}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2026}#) - #{var\ 2022}#) + (resolve-module #{mod\ 857}#) + #{var\ 853}#) #f) - (#{modref-cont\ 2023}# - #{mod\ 2026}# - #{var\ 2022}# + (#{modref-cont\ 854}# + #{mod\ 857}# + #{var\ 853}# #f) - (#{bare-cont\ 2024}# #{var\ 2022}#)) + (#{bare-cont\ 855}# #{var\ 853}#)) (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\ 853}# + #{mod\ 857}#))))))))) + (#{build-lexical-assignment\ 98}# + (lambda (#{source\ 858}# + #{name\ 859}# + #{var\ 860}# + #{exp\ 861}#) + (let ((#{atom-key\ 862}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 862}# (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\ 858}# + #{name\ 859}# + #{var\ 860}# + #{exp\ 861}#) + (#{decorate-source\ 93}# + (list (quote set!) #{var\ 860}# #{exp\ 861}#) + #{source\ 858}#))))) + (#{build-lexical-reference\ 97}# + (lambda (#{type\ 863}# + #{source\ 864}# + #{name\ 865}# + #{var\ 866}#) + (let ((#{atom-key\ 867}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 867}# (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\ 864}# + #{name\ 865}# + #{var\ 866}#) + (#{decorate-source\ 93}# + #{var\ 866}# + #{source\ 864}#))))) + (#{build-conditional\ 96}# + (lambda (#{source\ 868}# + #{test-exp\ 869}# + #{then-exp\ 870}# + #{else-exp\ 871}#) + (let ((#{atom-key\ 872}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 872}# (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\ 868}# + #{test-exp\ 869}# + #{then-exp\ 870}# + #{else-exp\ 871}#) + (#{decorate-source\ 93}# + (if (equal? #{else-exp\ 871}# (quote (if #f #f))) (list 'if - #{test-exp\ 2038}# - #{then-exp\ 2039}#) + #{test-exp\ 869}# + #{then-exp\ 870}#) (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\ 869}# + #{then-exp\ 870}# + #{else-exp\ 871}#)) + #{source\ 868}#))))) + (#{build-application\ 95}# + (lambda (#{source\ 873}# + #{fun-exp\ 874}# + #{arg-exps\ 875}#) + (let ((#{atom-key\ 876}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 876}# (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\ 873}# + #{fun-exp\ 874}# + #{arg-exps\ 875}#) + (#{decorate-source\ 93}# + (cons #{fun-exp\ 874}# #{arg-exps\ 875}#) + #{source\ 873}#))))) + (#{build-void\ 94}# + (lambda (#{source\ 877}#) + (let ((#{atom-key\ 878}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 878}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 2046}#) - (#{decorate-source\ 1262}# + #{source\ 877}#) + (#{decorate-source\ 93}# '(if #f #f) - #{source\ 2046}#))))) - (#{decorate-source\ 1262}# - (lambda (#{e\ 2048}# #{s\ 2049}#) + #{source\ 877}#))))) + (#{decorate-source\ 93}# + (lambda (#{e\ 879}# #{s\ 880}#) (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\ 879}#) #{s\ 880}# #f) + (set-source-properties! #{e\ 879}# #{s\ 880}#)) + #{e\ 879}#))) + (#{get-global-definition-hook\ 92}# + (lambda (#{symbol\ 881}# #{module\ 882}#) (begin - (if (if (not #{module\ 2051}#) (current-module) #f) + (if (if (not #{module\ 882}#) (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\ 881}#)) + (let ((#{v\ 883}# (module-variable + (if #{module\ 882}# + (resolve-module (cdr #{module\ 882}#)) + (current-module)) + #{symbol\ 881}#))) + (if #{v\ 883}# + (if (variable-bound? #{v\ 883}#) + (let ((#{val\ 884}# (variable-ref #{v\ 883}#))) + (if (macro? #{val\ 884}#) + (if (syncase-macro-type #{val\ 884}#) + (cons (syncase-macro-type #{val\ 884}#) + (syncase-macro-binding #{val\ 884}#)) #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\ 91}# + (lambda (#{symbol\ 885}# #{type\ 886}# #{val\ 887}#) + (let ((#{existing\ 888}# + (let ((#{v\ 889}# (module-variable + (current-module) + #{symbol\ 885}#))) + (if #{v\ 889}# + (if (variable-bound? #{v\ 889}#) + (let ((#{val\ 890}# (variable-ref #{v\ 889}#))) + (if (macro? #{val\ 890}#) + (if (not (syncase-macro-type #{val\ 890}#)) + #{val\ 890}# #f) #f)) #f) #f)))) (module-define! (current-module) - #{symbol\ 2054}# - (if #{existing\ 2057}# + #{symbol\ 885}# + (if #{existing\ 888}# (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\ 888}# + #{type\ 886}# + #{val\ 887}#) + (make-syncase-macro #{type\ 886}# #{val\ 887}#)))))) + (#{local-eval-hook\ 90}# + (lambda (#{x\ 891}# #{mod\ 892}#) (primitive-eval - (list #{noexpand\ 1252}# - (let ((#{atom-key\ 2062}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2062}# (quote (c))) + (list #{noexpand\ 83}# + (let ((#{atom-key\ 893}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 893}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2060}#) - #{x\ 2060}#)))))) - (#{top-level-eval-hook\ 1258}# - (lambda (#{x\ 2063}# #{mod\ 2064}#) + #{x\ 891}#) + #{x\ 891}#)))))) + (#{top-level-eval-hook\ 89}# + (lambda (#{x\ 894}# #{mod\ 895}#) (primitive-eval - (list #{noexpand\ 1252}# - (let ((#{atom-key\ 2065}# (fluid-ref #{*mode*\ 1253}#))) - (if (memv #{atom-key\ 2065}# (quote (c))) + (list #{noexpand\ 83}# + (let ((#{atom-key\ 896}# (fluid-ref #{*mode*\ 84}#))) + (if (memv #{atom-key\ 896}# (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\ 894}#) + #{x\ 894}#)))))) + (#{fx<\ 88}# <) + (#{fx=\ 87}# =) + (#{fx-\ 86}# -) + (#{fx+\ 85}# +) + (#{*mode*\ 84}# (make-fluid)) + (#{noexpand\ 83}# "noexpand")) (begin - (#{global-extend\ 1295}# + (#{global-extend\ 126}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# '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\ 897}# + #{r\ 898}# + #{w\ 899}# + #{s\ 900}# + #{mod\ 901}#) + ((lambda (#{tmp\ 902}#) + ((lambda (#{tmp\ 903}#) + (if (if #{tmp\ 903}# + (apply (lambda (#{_\ 904}# + #{var\ 905}# + #{val\ 906}# + #{e1\ 907}# + #{e2\ 908}#) + (#{valid-bound-ids?\ 153}# #{var\ 905}#)) + #{tmp\ 903}#) #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 (#{_\ 910}# + #{var\ 911}# + #{val\ 912}# + #{e1\ 913}# + #{e2\ 914}#) + (let ((#{names\ 915}# + (map (lambda (#{x\ 916}#) + (#{id-var-name\ 150}# + #{x\ 916}# + #{w\ 899}#)) + #{var\ 911}#))) (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\ 918}# #{n\ 919}#) + (let ((#{atom-key\ 920}# + (#{binding-type\ 120}# + (#{lookup\ 125}# + #{n\ 919}# + #{r\ 898}# + #{mod\ 901}#)))) + (if (memv #{atom-key\ 920}# '(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\ 897}# + (#{source-wrap\ 157}# + #{id\ 918}# + #{w\ 899}# + #{s\ 900}# + #{mod\ 901}#))))) + #{var\ 911}# + #{names\ 915}#) + (#{chi-body\ 168}# + (cons #{e1\ 913}# #{e2\ 914}#) + (#{source-wrap\ 157}# + #{e\ 897}# + #{w\ 899}# + #{s\ 900}# + #{mod\ 901}#) + (#{extend-env\ 122}# + #{names\ 915}# + (let ((#{trans-r\ 923}# + (#{macros-only-env\ 124}# + #{r\ 898}#))) + (map (lambda (#{x\ 924}#) (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\ 171}# + (#{chi\ 164}# + #{x\ 924}# + #{trans-r\ 923}# + #{w\ 899}# + #{mod\ 901}#) + #{mod\ 901}#))) + #{val\ 912}#)) + #{r\ 898}#) + #{w\ 899}# + #{mod\ 901}#)))) + #{tmp\ 903}#) + ((lambda (#{_\ 926}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 1326}# - #{e\ 2066}# - #{w\ 2068}# - #{s\ 2069}# - #{mod\ 2070}#))) - #{tmp\ 2071}#))) + (#{source-wrap\ 157}# + #{e\ 897}# + #{w\ 899}# + #{s\ 900}# + #{mod\ 901}#))) + #{tmp\ 902}#))) ($sc-dispatch - #{tmp\ 2071}# + #{tmp\ 902}# '(any #(each (any any)) any . each-any)))) - #{e\ 2066}#))) - (#{global-extend\ 1295}# + #{e\ 897}#))) + (#{global-extend\ 126}# '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\ 927}# + #{r\ 928}# + #{w\ 929}# + #{s\ 930}# + #{mod\ 931}#) + ((lambda (#{tmp\ 932}#) + ((lambda (#{tmp\ 933}#) + (if #{tmp\ 933}# + (apply (lambda (#{_\ 934}# #{e\ 935}#) + (#{build-data\ 106}# + #{s\ 930}# + (#{strip\ 174}# #{e\ 935}# #{w\ 929}#))) + #{tmp\ 933}#) + ((lambda (#{_\ 936}#) (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\ 157}# + #{e\ 927}# + #{w\ 929}# + #{s\ 930}# + #{mod\ 931}#))) + #{tmp\ 932}#))) + ($sc-dispatch #{tmp\ 932}# (quote (any any))))) + #{e\ 927}#))) + (#{global-extend\ 126}# '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\ 944}# + (lambda (#{x\ 945}#) + (let ((#{atom-key\ 946}# (car #{x\ 945}#))) + (if (memv #{atom-key\ 946}# (quote (ref))) + (#{build-lexical-reference\ 97}# '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\ 945}#) + (cadr #{x\ 945}#)) + (if (memv #{atom-key\ 946}# (quote (primitive))) + (#{build-primref\ 105}# #f (cadr #{x\ 945}#)) + (if (memv #{atom-key\ 946}# (quote (quote))) + (#{build-data\ 106}# #f (cadr #{x\ 945}#)) + (if (memv #{atom-key\ 946}# (quote (lambda))) + (#{build-lambda\ 104}# #f - (cadr #{x\ 2114}#) - (cadr #{x\ 2114}#) + (cadr #{x\ 945}#) + (cadr #{x\ 945}#) #f - (#{regen\ 2113}# (caddr #{x\ 2114}#))) - (#{build-application\ 1264}# + (#{regen\ 944}# (caddr #{x\ 945}#))) + (#{build-application\ 95}# #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\ 105}# #f (car #{x\ 945}#)) + (map #{regen\ 944}# (cdr #{x\ 945}#)))))))))) + (#{gen-vector\ 943}# + (lambda (#{x\ 947}#) + (if (eq? (car #{x\ 947}#) (quote list)) + (cons (quote vector) (cdr #{x\ 947}#)) + (if (eq? (car #{x\ 947}#) (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\ 947}#))) + (list (quote list->vector) #{x\ 947}#))))) + (#{gen-append\ 942}# + (lambda (#{x\ 948}# #{y\ 949}#) + (if (equal? #{y\ 949}# (quote (quote ()))) + #{x\ 948}# + (list (quote append) #{x\ 948}# #{y\ 949}#)))) + (#{gen-cons\ 941}# + (lambda (#{x\ 950}# #{y\ 951}#) + (let ((#{atom-key\ 952}# (car #{y\ 951}#))) + (if (memv #{atom-key\ 952}# (quote (quote))) + (if (eq? (car #{x\ 950}#) (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\ 950}#) (cadr #{y\ 951}#))) + (if (eq? (cadr #{y\ 951}#) (quote ())) + (list (quote list) #{x\ 950}#) + (list (quote cons) #{x\ 950}# #{y\ 951}#))) + (if (memv #{atom-key\ 952}# (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\ 950}# (cdr #{y\ 951}#))) + (list (quote cons) #{x\ 950}# #{y\ 951}#)))))) + (#{gen-map\ 940}# + (lambda (#{e\ 953}# #{map-env\ 954}#) + (let ((#{formals\ 955}# (map cdr #{map-env\ 954}#)) + (#{actuals\ 956}# + (map (lambda (#{x\ 957}#) + (list (quote ref) (car #{x\ 957}#))) + #{map-env\ 954}#))) + (if (eq? (car #{e\ 953}#) (quote ref)) + (car #{actuals\ 956}#) (if (and-map - (lambda (#{x\ 2127}#) - (if (eq? (car #{x\ 2127}#) (quote ref)) - (memq (cadr #{x\ 2127}#) #{formals\ 2124}#) + (lambda (#{x\ 958}#) + (if (eq? (car #{x\ 958}#) (quote ref)) + (memq (cadr #{x\ 958}#) #{formals\ 955}#) #f)) - (cdr #{e\ 2122}#)) + (cdr #{e\ 953}#)) (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\ 953}#)) + (map (let ((#{r\ 959}# (map cons + #{formals\ 955}# + #{actuals\ 956}#))) + (lambda (#{x\ 960}#) + (cdr (assq (cadr #{x\ 960}#) + #{r\ 959}#)))) + (cdr #{e\ 953}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2124}# - #{e\ 2122}#) - #{actuals\ 2125}#))))))) - (#{gen-mappend\ 2108}# - (lambda (#{e\ 2130}# #{map-env\ 2131}#) + #{formals\ 955}# + #{e\ 953}#) + #{actuals\ 956}#))))))) + (#{gen-mappend\ 939}# + (lambda (#{e\ 961}# #{map-env\ 962}#) (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\ 940}# #{e\ 961}# #{map-env\ 962}#)))) + (#{gen-ref\ 938}# + (lambda (#{src\ 963}# + #{var\ 964}# + #{level\ 965}# + #{maps\ 966}#) + (if (#{fx=\ 87}# #{level\ 965}# 0) + (values #{var\ 964}# #{maps\ 966}#) + (if (null? #{maps\ 966}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2132}#) + #{src\ 963}#) (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\ 938}# + #{src\ 963}# + #{var\ 964}# + (#{fx-\ 86}# #{level\ 965}# 1) + (cdr #{maps\ 966}#))) + (lambda (#{outer-var\ 967}# #{outer-maps\ 968}#) + (let ((#{b\ 969}# (assq #{outer-var\ 967}# + (car #{maps\ 966}#)))) + (if #{b\ 969}# + (values (cdr #{b\ 969}#) #{maps\ 966}#) + (let ((#{inner-var\ 970}# + (#{gen-var\ 175}# (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\ 970}# + (cons (cons (cons #{outer-var\ 967}# + #{inner-var\ 970}#) + (car #{maps\ 966}#)) + #{outer-maps\ 968}#))))))))))) + (#{gen-syntax\ 937}# + (lambda (#{src\ 971}# + #{e\ 972}# + #{r\ 973}# + #{maps\ 974}# + #{ellipsis?\ 975}# + #{mod\ 976}#) + (if (#{id?\ 128}# #{e\ 972}#) + (let ((#{label\ 977}# + (#{id-var-name\ 150}# #{e\ 972}# (quote (()))))) + (let ((#{b\ 978}# (#{lookup\ 125}# + #{label\ 977}# + #{r\ 973}# + #{mod\ 976}#))) + (if (eq? (#{binding-type\ 120}# #{b\ 978}#) '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\ 979}# + (#{binding-value\ 121}# #{b\ 978}#))) + (#{gen-ref\ 938}# + #{src\ 971}# + (car #{var.lev\ 979}#) + (cdr #{var.lev\ 979}#) + #{maps\ 974}#))) + (lambda (#{var\ 980}# #{maps\ 981}#) (values - (list (quote ref) #{var\ 2149}#) - #{maps\ 2150}#))) - (if (#{ellipsis?\ 2144}# #{e\ 2141}#) + (list (quote ref) #{var\ 980}#) + #{maps\ 981}#))) + (if (#{ellipsis?\ 975}# #{e\ 972}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2140}#) + #{src\ 971}#) (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\ 972}#) + #{maps\ 974}#))))) + ((lambda (#{tmp\ 982}#) + ((lambda (#{tmp\ 983}#) + (if (if #{tmp\ 983}# + (apply (lambda (#{dots\ 984}# #{e\ 985}#) + (#{ellipsis?\ 975}# #{dots\ 984}#)) + #{tmp\ 983}#) #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\ 986}# #{e\ 987}#) + (#{gen-syntax\ 937}# + #{src\ 971}# + #{e\ 987}# + #{r\ 973}# + #{maps\ 974}# + (lambda (#{x\ 988}#) #f) + #{mod\ 976}#)) + #{tmp\ 983}#) + ((lambda (#{tmp\ 989}#) + (if (if #{tmp\ 989}# + (apply (lambda (#{x\ 990}# + #{dots\ 991}# + #{y\ 992}#) + (#{ellipsis?\ 975}# + #{dots\ 991}#)) + #{tmp\ 989}#) #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\ 993}# + #{dots\ 994}# + #{y\ 995}#) + (letrec ((#{f\ 996}# (lambda (#{y\ 997}# + #{k\ 998}#) + ((lambda (#{tmp\ 1002}#) + ((lambda (#{tmp\ 1003}#) + (if (if #{tmp\ 1003}# + (apply (lambda (#{dots\ 1004}# + #{y\ 1005}#) + (#{ellipsis?\ 975}# + #{dots\ 1004}#)) + #{tmp\ 1003}#) + #f) + (apply (lambda (#{dots\ 1006}# + #{y\ 1007}#) + (#{f\ 996}# #{y\ 1007}# + (lambda (#{maps\ 1008}#) + (call-with-values + (lambda () + (#{k\ 998}# (cons '() + #{maps\ 1008}#))) + (lambda (#{x\ 1009}# + #{maps\ 1010}#) + (if (null? (car #{maps\ 1010}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 971}#) + (values + (#{gen-mappend\ 939}# + #{x\ 1009}# + (car #{maps\ 1010}#)) + (cdr #{maps\ 1010}#)))))))) + #{tmp\ 1003}#) + ((lambda (#{_\ 1011}#) (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\ 937}# + #{src\ 971}# + #{y\ 997}# + #{r\ 973}# + #{maps\ 974}# + #{ellipsis?\ 975}# + #{mod\ 976}#)) + (lambda (#{y\ 1012}# + #{maps\ 1013}#) + (call-with-values + (lambda () + (#{k\ 998}# #{maps\ 1013}#)) + (lambda (#{x\ 1014}# + #{maps\ 1015}#) + (values + (#{gen-append\ 942}# + #{x\ 1014}# + #{y\ 1012}#) + #{maps\ 1015}#)))))) + #{tmp\ 1002}#))) + ($sc-dispatch + #{tmp\ 1002}# + '(any . + any)))) + #{y\ 997}#)))) + (#{f\ 996}# #{y\ 995}# + (lambda (#{maps\ 999}#) + (call-with-values + (lambda () + (#{gen-syntax\ 937}# + #{src\ 971}# + #{x\ 993}# + #{r\ 973}# + (cons '() + #{maps\ 999}#) + #{ellipsis?\ 975}# + #{mod\ 976}#)) + (lambda (#{x\ 1000}# + #{maps\ 1001}#) + (if (null? (car #{maps\ 1001}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 971}#) + (values + (#{gen-map\ 940}# + #{x\ 1000}# + (car #{maps\ 1001}#)) + (cdr #{maps\ 1001}#))))))))) + #{tmp\ 989}#) + ((lambda (#{tmp\ 1016}#) + (if #{tmp\ 1016}# + (apply (lambda (#{x\ 1017}# + #{y\ 1018}#) (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\ 937}# + #{src\ 971}# + #{x\ 1017}# + #{r\ 973}# + #{maps\ 974}# + #{ellipsis?\ 975}# + #{mod\ 976}#)) + (lambda (#{x\ 1019}# + #{maps\ 1020}#) (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\ 937}# + #{src\ 971}# + #{y\ 1018}# + #{r\ 973}# + #{maps\ 1020}# + #{ellipsis?\ 975}# + #{mod\ 976}#)) + (lambda (#{y\ 1021}# + #{maps\ 1022}#) (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\ 941}# + #{x\ 1019}# + #{y\ 1021}#) + #{maps\ 1022}#)))))) + #{tmp\ 1016}#) + ((lambda (#{tmp\ 1023}#) + (if #{tmp\ 1023}# + (apply (lambda (#{e1\ 1024}# + #{e2\ 1025}#) (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\ 937}# + #{src\ 971}# + (cons #{e1\ 1024}# + #{e2\ 1025}#) + #{r\ 973}# + #{maps\ 974}# + #{ellipsis?\ 975}# + #{mod\ 976}#)) + (lambda (#{e\ 1027}# + #{maps\ 1028}#) (values - (#{gen-vector\ 2112}# - #{e\ 2196}#) - #{maps\ 2197}#)))) - #{tmp\ 2192}#) - ((lambda (#{_\ 2198}#) + (#{gen-vector\ 943}# + #{e\ 1027}#) + #{maps\ 1028}#)))) + #{tmp\ 1023}#) + ((lambda (#{_\ 1029}#) (values (list 'quote - #{e\ 2141}#) - #{maps\ 2143}#)) - #{tmp\ 2151}#))) + #{e\ 972}#) + #{maps\ 974}#)) + #{tmp\ 982}#))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 982}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 982}# '(any . any))))) ($sc-dispatch - #{tmp\ 2151}# + #{tmp\ 982}# '(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\ 982}# (quote (any any))))) + #{e\ 972}#))))) + (lambda (#{e\ 1030}# + #{r\ 1031}# + #{w\ 1032}# + #{s\ 1033}# + #{mod\ 1034}#) + (let ((#{e\ 1035}# + (#{source-wrap\ 157}# + #{e\ 1030}# + #{w\ 1032}# + #{s\ 1033}# + #{mod\ 1034}#))) + ((lambda (#{tmp\ 1036}#) + ((lambda (#{tmp\ 1037}#) + (if #{tmp\ 1037}# + (apply (lambda (#{_\ 1038}# #{x\ 1039}#) (call-with-values (lambda () - (#{gen-syntax\ 2106}# - #{e\ 2204}# - #{x\ 2208}# - #{r\ 2200}# + (#{gen-syntax\ 937}# + #{e\ 1035}# + #{x\ 1039}# + #{r\ 1031}# '() - #{ellipsis?\ 1342}# - #{mod\ 2203}#)) - (lambda (#{e\ 2209}# #{maps\ 2210}#) - (#{regen\ 2113}# #{e\ 2209}#)))) - #{tmp\ 2206}#) - ((lambda (#{_\ 2211}#) + #{ellipsis?\ 173}# + #{mod\ 1034}#)) + (lambda (#{e\ 1040}# #{maps\ 1041}#) + (#{regen\ 944}# #{e\ 1040}#)))) + #{tmp\ 1037}#) + ((lambda (#{_\ 1042}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2204}#)) - #{tmp\ 2205}#))) - ($sc-dispatch #{tmp\ 2205}# (quote (any any))))) - #{e\ 2204}#))))) - (#{global-extend\ 1295}# + #{e\ 1035}#)) + #{tmp\ 1036}#))) + ($sc-dispatch #{tmp\ 1036}# (quote (any any))))) + #{e\ 1035}#))))) + (#{global-extend\ 126}# '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\ 1043}# + #{r\ 1044}# + #{w\ 1045}# + #{s\ 1046}# + #{mod\ 1047}#) + ((lambda (#{tmp\ 1048}#) + ((lambda (#{tmp\ 1049}#) + (if #{tmp\ 1049}# + (apply (lambda (#{_\ 1050}# #{c\ 1051}#) + (#{chi-lambda-clause\ 169}# + (#{source-wrap\ 157}# + #{e\ 1043}# + #{w\ 1045}# + #{s\ 1046}# + #{mod\ 1047}#) #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\ 1051}# + #{r\ 1044}# + #{w\ 1045}# + #{mod\ 1047}# + (lambda (#{names\ 1052}# + #{vars\ 1053}# + #{docstring\ 1054}# + #{body\ 1055}#) + (#{build-lambda\ 104}# + #{s\ 1046}# + #{names\ 1052}# + #{vars\ 1053}# + #{docstring\ 1054}# + #{body\ 1055}#)))) + #{tmp\ 1049}#) (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\ 1048}#))) + ($sc-dispatch #{tmp\ 1048}# (quote (any . any))))) + #{e\ 1043}#))) + (#{global-extend\ 126}# '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\ 1056}# + (lambda (#{e\ 1057}# + #{r\ 1058}# + #{w\ 1059}# + #{s\ 1060}# + #{mod\ 1061}# + #{constructor\ 1062}# + #{ids\ 1063}# + #{vals\ 1064}# + #{exps\ 1065}#) + (if (not (#{valid-bound-ids?\ 153}# #{ids\ 1063}#)) (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\ 1057}#) + (let ((#{labels\ 1066}# + (#{gen-labels\ 134}# #{ids\ 1063}#)) + (#{new-vars\ 1067}# + (map #{gen-var\ 175}# #{ids\ 1063}#))) + (let ((#{nw\ 1068}# + (#{make-binding-wrap\ 145}# + #{ids\ 1063}# + #{labels\ 1066}# + #{w\ 1059}#)) + (#{nr\ 1069}# + (#{extend-var-env\ 123}# + #{labels\ 1066}# + #{new-vars\ 1067}# + #{r\ 1058}#))) + (#{constructor\ 1062}# + #{s\ 1060}# + (map syntax->datum #{ids\ 1063}#) + #{new-vars\ 1067}# + (map (lambda (#{x\ 1070}#) + (#{chi\ 164}# + #{x\ 1070}# + #{r\ 1058}# + #{w\ 1059}# + #{mod\ 1061}#)) + #{vals\ 1064}#) + (#{chi-body\ 168}# + #{exps\ 1065}# + (#{source-wrap\ 157}# + #{e\ 1057}# + #{nw\ 1068}# + #{s\ 1060}# + #{mod\ 1061}#) + #{nr\ 1069}# + #{nw\ 1068}# + #{mod\ 1061}#)))))))) + (lambda (#{e\ 1071}# + #{r\ 1072}# + #{w\ 1073}# + #{s\ 1074}# + #{mod\ 1075}#) + ((lambda (#{tmp\ 1076}#) + ((lambda (#{tmp\ 1077}#) + (if (if #{tmp\ 1077}# + (apply (lambda (#{_\ 1078}# + #{id\ 1079}# + #{val\ 1080}# + #{e1\ 1081}# + #{e2\ 1082}#) + (and-map #{id?\ 128}# #{id\ 1079}#)) + #{tmp\ 1077}#) #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 (#{_\ 1084}# + #{id\ 1085}# + #{val\ 1086}# + #{e1\ 1087}# + #{e2\ 1088}#) + (#{chi-let\ 1056}# + #{e\ 1071}# + #{r\ 1072}# + #{w\ 1073}# + #{s\ 1074}# + #{mod\ 1075}# + #{build-let\ 108}# + #{id\ 1085}# + #{val\ 1086}# + (cons #{e1\ 1087}# #{e2\ 1088}#))) + #{tmp\ 1077}#) + ((lambda (#{tmp\ 1092}#) + (if (if #{tmp\ 1092}# + (apply (lambda (#{_\ 1093}# + #{f\ 1094}# + #{id\ 1095}# + #{val\ 1096}# + #{e1\ 1097}# + #{e2\ 1098}#) + (if (#{id?\ 128}# #{f\ 1094}#) + (and-map #{id?\ 128}# #{id\ 1095}#) #f)) - #{tmp\ 2261}#) + #{tmp\ 1092}#) #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 (#{_\ 1100}# + #{f\ 1101}# + #{id\ 1102}# + #{val\ 1103}# + #{e1\ 1104}# + #{e2\ 1105}#) + (#{chi-let\ 1056}# + #{e\ 1071}# + #{r\ 1072}# + #{w\ 1073}# + #{s\ 1074}# + #{mod\ 1075}# + #{build-named-let\ 109}# + (cons #{f\ 1101}# #{id\ 1102}#) + #{val\ 1103}# + (cons #{e1\ 1104}# #{e2\ 1105}#))) + #{tmp\ 1092}#) + ((lambda (#{_\ 1109}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 1326}# - #{e\ 2240}# - #{w\ 2242}# - #{s\ 2243}# - #{mod\ 2244}#))) - #{tmp\ 2245}#))) + (#{source-wrap\ 157}# + #{e\ 1071}# + #{w\ 1073}# + #{s\ 1074}# + #{mod\ 1075}#))) + #{tmp\ 1076}#))) ($sc-dispatch - #{tmp\ 2245}# + #{tmp\ 1076}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2245}# + #{tmp\ 1076}# '(any #(each (any any)) any . each-any)))) - #{e\ 2240}#)))) - (#{global-extend\ 1295}# + #{e\ 1071}#)))) + (#{global-extend\ 126}# '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\ 1110}# + #{r\ 1111}# + #{w\ 1112}# + #{s\ 1113}# + #{mod\ 1114}#) + ((lambda (#{tmp\ 1115}#) + ((lambda (#{tmp\ 1116}#) + (if (if #{tmp\ 1116}# + (apply (lambda (#{_\ 1117}# + #{id\ 1118}# + #{val\ 1119}# + #{e1\ 1120}# + #{e2\ 1121}#) + (and-map #{id?\ 128}# #{id\ 1118}#)) + #{tmp\ 1116}#) #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 (#{_\ 1123}# + #{id\ 1124}# + #{val\ 1125}# + #{e1\ 1126}# + #{e2\ 1127}#) + (let ((#{ids\ 1128}# #{id\ 1124}#)) + (if (not (#{valid-bound-ids?\ 153}# + #{ids\ 1128}#)) (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\ 1110}#) + (let ((#{labels\ 1130}# + (#{gen-labels\ 134}# #{ids\ 1128}#)) + (#{new-vars\ 1131}# + (map #{gen-var\ 175}# #{ids\ 1128}#))) + (let ((#{w\ 1132}# + (#{make-binding-wrap\ 145}# + #{ids\ 1128}# + #{labels\ 1130}# + #{w\ 1112}#)) + (#{r\ 1133}# + (#{extend-var-env\ 123}# + #{labels\ 1130}# + #{new-vars\ 1131}# + #{r\ 1111}#))) + (#{build-letrec\ 110}# + #{s\ 1113}# + (map syntax->datum #{ids\ 1128}#) + #{new-vars\ 1131}# + (map (lambda (#{x\ 1134}#) + (#{chi\ 164}# + #{x\ 1134}# + #{r\ 1133}# + #{w\ 1132}# + #{mod\ 1114}#)) + #{val\ 1125}#) + (#{chi-body\ 168}# + (cons #{e1\ 1126}# #{e2\ 1127}#) + (#{source-wrap\ 157}# + #{e\ 1110}# + #{w\ 1132}# + #{s\ 1113}# + #{mod\ 1114}#) + #{r\ 1133}# + #{w\ 1132}# + #{mod\ 1114}#))))))) + #{tmp\ 1116}#) + ((lambda (#{_\ 1137}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 1326}# - #{e\ 2279}# - #{w\ 2281}# - #{s\ 2282}# - #{mod\ 2283}#))) - #{tmp\ 2284}#))) + (#{source-wrap\ 157}# + #{e\ 1110}# + #{w\ 1112}# + #{s\ 1113}# + #{mod\ 1114}#))) + #{tmp\ 1115}#))) ($sc-dispatch - #{tmp\ 2284}# + #{tmp\ 1115}# '(any #(each (any any)) any . each-any)))) - #{e\ 2279}#))) - (#{global-extend\ 1295}# + #{e\ 1110}#))) + (#{global-extend\ 126}# '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\ 1138}# + #{r\ 1139}# + #{w\ 1140}# + #{s\ 1141}# + #{mod\ 1142}#) + ((lambda (#{tmp\ 1143}#) + ((lambda (#{tmp\ 1144}#) + (if (if #{tmp\ 1144}# + (apply (lambda (#{_\ 1145}# #{id\ 1146}# #{val\ 1147}#) + (#{id?\ 128}# #{id\ 1146}#)) + #{tmp\ 1144}#) #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 (#{_\ 1148}# #{id\ 1149}# #{val\ 1150}#) + (let ((#{val\ 1151}# + (#{chi\ 164}# + #{val\ 1150}# + #{r\ 1139}# + #{w\ 1140}# + #{mod\ 1142}#)) + (#{n\ 1152}# + (#{id-var-name\ 150}# + #{id\ 1149}# + #{w\ 1140}#))) + (let ((#{b\ 1153}# + (#{lookup\ 125}# + #{n\ 1152}# + #{r\ 1139}# + #{mod\ 1142}#))) + (let ((#{atom-key\ 1154}# + (#{binding-type\ 120}# #{b\ 1153}#))) + (if (memv #{atom-key\ 1154}# '(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\ 98}# + #{s\ 1141}# + (syntax->datum #{id\ 1149}#) + (#{binding-value\ 121}# #{b\ 1153}#) + #{val\ 1151}#) + (if (memv #{atom-key\ 1154}# '(global)) - (#{build-global-assignment\ 1270}# - #{s\ 2310}# - #{n\ 2321}# - #{val\ 2320}# - #{mod\ 2311}#) - (if (memv #{atom-key\ 2323}# + (#{build-global-assignment\ 101}# + #{s\ 1141}# + #{n\ 1152}# + #{val\ 1151}# + #{mod\ 1142}#) + (if (memv #{atom-key\ 1154}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 1325}# - #{id\ 2318}# - #{w\ 2309}# - #{mod\ 2311}#)) + (#{wrap\ 156}# + #{id\ 1149}# + #{w\ 1140}# + #{mod\ 1142}#)) (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\ 157}# + #{e\ 1138}# + #{w\ 1140}# + #{s\ 1141}# + #{mod\ 1142}#))))))))) + #{tmp\ 1144}#) + ((lambda (#{tmp\ 1155}#) + (if #{tmp\ 1155}# + (apply (lambda (#{_\ 1156}# + #{head\ 1157}# + #{tail\ 1158}# + #{val\ 1159}#) (call-with-values (lambda () - (#{syntax-type\ 1331}# - #{head\ 2326}# - #{r\ 2308}# + (#{syntax-type\ 162}# + #{head\ 1157}# + #{r\ 1139}# '(()) #f #f - #{mod\ 2311}# + #{mod\ 1142}# #t)) - (lambda (#{type\ 2329}# - #{value\ 2330}# - #{ee\ 2331}# - #{ww\ 2332}# - #{ss\ 2333}# - #{modmod\ 2334}#) - (if (memv #{type\ 2329}# + (lambda (#{type\ 1160}# + #{value\ 1161}# + #{ee\ 1162}# + #{ww\ 1163}# + #{ss\ 1164}# + #{modmod\ 1165}#) + (if (memv #{type\ 1160}# '(module-ref)) - (let ((#{val\ 2335}# - (#{chi\ 1333}# - #{val\ 2328}# - #{r\ 2308}# - #{w\ 2309}# - #{mod\ 2311}#))) + (let ((#{val\ 1166}# + (#{chi\ 164}# + #{val\ 1159}# + #{r\ 1139}# + #{w\ 1140}# + #{mod\ 1142}#))) (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\ 1161}# + (cons #{head\ 1157}# + #{tail\ 1158}#))) + (lambda (#{id\ 1168}# #{mod\ 1169}#) + (#{build-global-assignment\ 101}# + #{s\ 1141}# + #{id\ 1168}# + #{val\ 1166}# + #{mod\ 1169}#)))) + (#{build-application\ 95}# + #{s\ 1141}# + (#{chi\ 164}# (list '#(syntax-object setter ((top) @@ -7154,53 +7179,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\ 1157}#) + #{r\ 1139}# + #{w\ 1140}# + #{mod\ 1142}#) + (map (lambda (#{e\ 1170}#) + (#{chi\ 164}# + #{e\ 1170}# + #{r\ 1139}# + #{w\ 1140}# + #{mod\ 1142}#)) (append - #{tail\ 2327}# - (list #{val\ 2328}#)))))))) - #{tmp\ 2324}#) - ((lambda (#{_\ 2341}#) + #{tail\ 1158}# + (list #{val\ 1159}#)))))))) + #{tmp\ 1155}#) + ((lambda (#{_\ 1172}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 1326}# - #{e\ 2307}# - #{w\ 2309}# - #{s\ 2310}# - #{mod\ 2311}#))) - #{tmp\ 2312}#))) + (#{source-wrap\ 157}# + #{e\ 1138}# + #{w\ 1140}# + #{s\ 1141}# + #{mod\ 1142}#))) + #{tmp\ 1143}#))) ($sc-dispatch - #{tmp\ 2312}# + #{tmp\ 1143}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 2312}# + #{tmp\ 1143}# '(any any any)))) - #{e\ 2307}#))) - (#{global-extend\ 1295}# + #{e\ 1138}#))) + (#{global-extend\ 126}# '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\ 1173}#) + ((lambda (#{tmp\ 1174}#) + ((lambda (#{tmp\ 1175}#) + (if (if #{tmp\ 1175}# + (apply (lambda (#{_\ 1176}# #{mod\ 1177}# #{id\ 1178}#) + (if (and-map #{id?\ 128}# #{mod\ 1177}#) + (#{id?\ 128}# #{id\ 1178}#) #f)) - #{tmp\ 2344}#) + #{tmp\ 1175}#) #f) - (apply (lambda (#{_\ 2349}# #{mod\ 2350}# #{id\ 2351}#) + (apply (lambda (#{_\ 1180}# #{mod\ 1181}# #{id\ 1182}#) (values - (syntax->datum #{id\ 2351}#) + (syntax->datum #{id\ 1182}#) (syntax->datum (cons '#(syntax-object public @@ -7553,32 +7578,32 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 2350}#)))) - #{tmp\ 2344}#) + #{mod\ 1181}#)))) + #{tmp\ 1175}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2343}#))) + #{tmp\ 1174}#))) ($sc-dispatch - #{tmp\ 2343}# + #{tmp\ 1174}# '(any each-any any)))) - #{e\ 2342}#))) - (#{global-extend\ 1295}# + #{e\ 1173}#))) + (#{global-extend\ 126}# '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\ 1184}#) + ((lambda (#{tmp\ 1185}#) + ((lambda (#{tmp\ 1186}#) + (if (if #{tmp\ 1186}# + (apply (lambda (#{_\ 1187}# #{mod\ 1188}# #{id\ 1189}#) + (if (and-map #{id?\ 128}# #{mod\ 1188}#) + (#{id?\ 128}# #{id\ 1189}#) #f)) - #{tmp\ 2355}#) + #{tmp\ 1186}#) #f) - (apply (lambda (#{_\ 2360}# #{mod\ 2361}# #{id\ 2362}#) + (apply (lambda (#{_\ 1191}# #{mod\ 1192}# #{id\ 1193}#) (values - (syntax->datum #{id\ 2362}#) + (syntax->datum #{id\ 1193}#) (syntax->datum (cons '#(syntax-object private @@ -7931,123 +7956,123 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 2361}#)))) - #{tmp\ 2355}#) + #{mod\ 1192}#)))) + #{tmp\ 1186}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2354}#))) + #{tmp\ 1185}#))) ($sc-dispatch - #{tmp\ 2354}# + #{tmp\ 1185}# '(any each-any any)))) - #{e\ 2353}#))) - (#{global-extend\ 1295}# + #{e\ 1184}#))) + (#{global-extend\ 126}# '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\ 1195}# + #{r\ 1196}# + #{w\ 1197}# + #{s\ 1198}# + #{mod\ 1199}#) + ((lambda (#{tmp\ 1200}#) + ((lambda (#{tmp\ 1201}#) + (if #{tmp\ 1201}# + (apply (lambda (#{_\ 1202}# #{test\ 1203}# #{then\ 1204}#) + (#{build-conditional\ 96}# + #{s\ 1198}# + (#{chi\ 164}# + #{test\ 1203}# + #{r\ 1196}# + #{w\ 1197}# + #{mod\ 1199}#) + (#{chi\ 164}# + #{then\ 1204}# + #{r\ 1196}# + #{w\ 1197}# + #{mod\ 1199}#) + (#{build-void\ 94}# #f))) + #{tmp\ 1201}#) + ((lambda (#{tmp\ 1205}#) + (if #{tmp\ 1205}# + (apply (lambda (#{_\ 1206}# + #{test\ 1207}# + #{then\ 1208}# + #{else\ 1209}#) + (#{build-conditional\ 96}# + #{s\ 1198}# + (#{chi\ 164}# + #{test\ 1207}# + #{r\ 1196}# + #{w\ 1197}# + #{mod\ 1199}#) + (#{chi\ 164}# + #{then\ 1208}# + #{r\ 1196}# + #{w\ 1197}# + #{mod\ 1199}#) + (#{chi\ 164}# + #{else\ 1209}# + #{r\ 1196}# + #{w\ 1197}# + #{mod\ 1199}#))) + #{tmp\ 1205}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2369}#))) + #{tmp\ 1200}#))) ($sc-dispatch - #{tmp\ 2369}# + #{tmp\ 1200}# '(any any any any))))) ($sc-dispatch - #{tmp\ 2369}# + #{tmp\ 1200}# '(any any any)))) - #{e\ 2364}#))) - (#{global-extend\ 1295}# + #{e\ 1195}#))) + (#{global-extend\ 126}# 'begin 'begin '()) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# 'define 'define '()) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# 'eval-when 'eval-when '()) - (#{global-extend\ 1295}# + (#{global-extend\ 126}# '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\ 1213}# + (lambda (#{x\ 1214}# + #{keys\ 1215}# + #{clauses\ 1216}# + #{r\ 1217}# + #{mod\ 1218}#) + (if (null? #{clauses\ 1216}#) + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #f 'syntax-violation) - (list (#{build-data\ 1275}# #f #f) - (#{build-data\ 1275}# + (list (#{build-data\ 106}# #f #f) + (#{build-data\ 106}# #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\ 1214}#)) + ((lambda (#{tmp\ 1219}#) + ((lambda (#{tmp\ 1220}#) + (if #{tmp\ 1220}# + (apply (lambda (#{pat\ 1221}# #{exp\ 1222}#) + (if (if (#{id?\ 128}# #{pat\ 1221}#) (and-map - (lambda (#{x\ 2392}#) - (not (#{free-id=?\ 1320}# - #{pat\ 2390}# - #{x\ 2392}#))) + (lambda (#{x\ 1223}#) + (not (#{free-id=?\ 151}# + #{pat\ 1221}# + #{x\ 1223}#))) (cons '#(syntax-object ... ((top) @@ -8425,731 +8450,730 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{keys\ 2384}#)) + #{keys\ 1215}#)) #f) - (let ((#{labels\ 2393}# - (list (#{gen-label\ 1302}#))) - (#{var\ 2394}# - (#{gen-var\ 1344}# - #{pat\ 2390}#))) - (#{build-application\ 1264}# + (let ((#{labels\ 1224}# + (list (#{gen-label\ 133}#))) + (#{var\ 1225}# + (#{gen-var\ 175}# + #{pat\ 1221}#))) + (#{build-application\ 95}# #f - (#{build-lambda\ 1273}# + (#{build-lambda\ 104}# #f (list (syntax->datum - #{pat\ 2390}#)) - (list #{var\ 2394}#) + #{pat\ 1221}#)) + (list #{var\ 1225}#) #f - (#{chi\ 1333}# - #{exp\ 2391}# - (#{extend-env\ 1291}# - #{labels\ 2393}# + (#{chi\ 164}# + #{exp\ 1222}# + (#{extend-env\ 122}# + #{labels\ 1224}# (list (cons 'syntax - (cons #{var\ 2394}# + (cons #{var\ 1225}# 0))) - #{r\ 2386}#) - (#{make-binding-wrap\ 1314}# - (list #{pat\ 2390}#) - #{labels\ 2393}# + #{r\ 1217}#) + (#{make-binding-wrap\ 145}# + (list #{pat\ 1221}#) + #{labels\ 1224}# '(())) - #{mod\ 2387}#)) - (list #{x\ 2383}#))) - (#{gen-clause\ 2381}# - #{x\ 2383}# - #{keys\ 2384}# - (cdr #{clauses\ 2385}#) - #{r\ 2386}# - #{pat\ 2390}# + #{mod\ 1218}#)) + (list #{x\ 1214}#))) + (#{gen-clause\ 1212}# + #{x\ 1214}# + #{keys\ 1215}# + (cdr #{clauses\ 1216}#) + #{r\ 1217}# + #{pat\ 1221}# #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\ 1222}# + #{mod\ 1218}#))) + #{tmp\ 1220}#) + ((lambda (#{tmp\ 1226}#) + (if #{tmp\ 1226}# + (apply (lambda (#{pat\ 1227}# + #{fender\ 1228}# + #{exp\ 1229}#) + (#{gen-clause\ 1212}# + #{x\ 1214}# + #{keys\ 1215}# + (cdr #{clauses\ 1216}#) + #{r\ 1217}# + #{pat\ 1227}# + #{fender\ 1228}# + #{exp\ 1229}# + #{mod\ 1218}#)) + #{tmp\ 1226}#) + ((lambda (#{_\ 1230}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 2385}#))) - #{tmp\ 2388}#))) + (car #{clauses\ 1216}#))) + #{tmp\ 1219}#))) ($sc-dispatch - #{tmp\ 2388}# + #{tmp\ 1219}# '(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\ 1219}# (quote (any any))))) + (car #{clauses\ 1216}#))))) + (#{gen-clause\ 1212}# + (lambda (#{x\ 1231}# + #{keys\ 1232}# + #{clauses\ 1233}# + #{r\ 1234}# + #{pat\ 1235}# + #{fender\ 1236}# + #{exp\ 1237}# + #{mod\ 1238}#) (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\ 1210}# + #{pat\ 1235}# + #{keys\ 1232}#)) + (lambda (#{p\ 1239}# #{pvars\ 1240}#) + (if (not (#{distinct-bound-ids?\ 154}# + (map car #{pvars\ 1240}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 2404}#) + #{pat\ 1235}#) (if (not (and-map - (lambda (#{x\ 2410}#) - (not (#{ellipsis?\ 1342}# - (car #{x\ 2410}#)))) - #{pvars\ 2409}#)) + (lambda (#{x\ 1241}#) + (not (#{ellipsis?\ 173}# + (car #{x\ 1241}#)))) + #{pvars\ 1240}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 2404}#) - (let ((#{y\ 2411}# - (#{gen-var\ 1344}# (quote tmp)))) - (#{build-application\ 1264}# + #{pat\ 1235}#) + (let ((#{y\ 1242}# + (#{gen-var\ 175}# (quote tmp)))) + (#{build-application\ 95}# #f - (#{build-lambda\ 1273}# + (#{build-lambda\ 104}# #f (list (quote tmp)) - (list #{y\ 2411}#) + (list #{y\ 1242}#) #f - (let ((#{y\ 2412}# - (#{build-lexical-reference\ 1266}# + (let ((#{y\ 1243}# + (#{build-lexical-reference\ 97}# 'value #f 'tmp - #{y\ 2411}#))) - (#{build-conditional\ 1265}# + #{y\ 1242}#))) + (#{build-conditional\ 96}# #f - ((lambda (#{tmp\ 2413}#) - ((lambda (#{tmp\ 2414}#) - (if #{tmp\ 2414}# - (apply (lambda () #{y\ 2412}#) - #{tmp\ 2414}#) - ((lambda (#{_\ 2415}#) - (#{build-conditional\ 1265}# + ((lambda (#{tmp\ 1244}#) + ((lambda (#{tmp\ 1245}#) + (if #{tmp\ 1245}# + (apply (lambda () #{y\ 1243}#) + #{tmp\ 1245}#) + ((lambda (#{_\ 1246}#) + (#{build-conditional\ 96}# #f - #{y\ 2412}# - (#{build-dispatch-call\ 2380}# - #{pvars\ 2409}# - #{fender\ 2405}# - #{y\ 2412}# - #{r\ 2403}# - #{mod\ 2407}#) - (#{build-data\ 1275}# + #{y\ 1243}# + (#{build-dispatch-call\ 1211}# + #{pvars\ 1240}# + #{fender\ 1236}# + #{y\ 1243}# + #{r\ 1234}# + #{mod\ 1238}#) + (#{build-data\ 106}# #f #f))) - #{tmp\ 2413}#))) + #{tmp\ 1244}#))) ($sc-dispatch - #{tmp\ 2413}# + #{tmp\ 1244}# '#(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\ 1236}#) + (#{build-dispatch-call\ 1211}# + #{pvars\ 1240}# + #{exp\ 1237}# + #{y\ 1243}# + #{r\ 1234}# + #{mod\ 1238}#) + (#{gen-syntax-case\ 1213}# + #{x\ 1231}# + #{keys\ 1232}# + #{clauses\ 1233}# + #{r\ 1234}# + #{mod\ 1238}#)))) + (list (if (eq? #{p\ 1239}# (quote any)) + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #f 'list) - (list #{x\ 2400}#)) - (#{build-application\ 1264}# + (list #{x\ 1231}#)) + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# + (#{build-primref\ 105}# #f '$sc-dispatch) - (list #{x\ 2400}# - (#{build-data\ 1275}# + (list #{x\ 1231}# + (#{build-data\ 106}# #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\ 1239}#))))))))))))) + (#{build-dispatch-call\ 1211}# + (lambda (#{pvars\ 1247}# + #{exp\ 1248}# + #{y\ 1249}# + #{r\ 1250}# + #{mod\ 1251}#) + (let ((#{ids\ 1252}# (map car #{pvars\ 1247}#)) + (#{levels\ 1253}# (map cdr #{pvars\ 1247}#))) + (let ((#{labels\ 1254}# + (#{gen-labels\ 134}# #{ids\ 1252}#)) + (#{new-vars\ 1255}# + (map #{gen-var\ 175}# #{ids\ 1252}#))) + (#{build-application\ 95}# #f - (#{build-primref\ 1274}# #f (quote apply)) - (list (#{build-lambda\ 1273}# + (#{build-primref\ 105}# #f (quote apply)) + (list (#{build-lambda\ 104}# #f - (map syntax->datum #{ids\ 2421}#) - #{new-vars\ 2424}# + (map syntax->datum #{ids\ 1252}#) + #{new-vars\ 1255}# #f - (#{chi\ 1333}# - #{exp\ 2417}# - (#{extend-env\ 1291}# - #{labels\ 2423}# - (map (lambda (#{var\ 2425}# - #{level\ 2426}#) + (#{chi\ 164}# + #{exp\ 1248}# + (#{extend-env\ 122}# + #{labels\ 1254}# + (map (lambda (#{var\ 1256}# + #{level\ 1257}#) (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\ 1256}# + #{level\ 1257}#))) + #{new-vars\ 1255}# + (map cdr #{pvars\ 1247}#)) + #{r\ 1250}#) + (#{make-binding-wrap\ 145}# + #{ids\ 1252}# + #{labels\ 1254}# '(())) - #{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\ 1251}#)) + #{y\ 1249}#)))))) + (#{convert-pattern\ 1210}# + (lambda (#{pattern\ 1258}# #{keys\ 1259}#) + (letrec ((#{cvt\ 1260}# + (lambda (#{p\ 1261}# #{n\ 1262}# #{ids\ 1263}#) + (if (#{id?\ 128}# #{p\ 1261}#) + (if (#{bound-id-member?\ 155}# + #{p\ 1261}# + #{keys\ 1259}#) (values - (vector (quote free-id) #{p\ 2430}#) - #{ids\ 2432}#) + (vector (quote free-id) #{p\ 1261}#) + #{ids\ 1263}#) (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\ 1261}# #{n\ 1262}#) + #{ids\ 1263}#))) + ((lambda (#{tmp\ 1264}#) + ((lambda (#{tmp\ 1265}#) + (if (if #{tmp\ 1265}# + (apply (lambda (#{x\ 1266}# + #{dots\ 1267}#) + (#{ellipsis?\ 173}# + #{dots\ 1267}#)) + #{tmp\ 1265}#) #f) - (apply (lambda (#{x\ 2437}# - #{dots\ 2438}#) + (apply (lambda (#{x\ 1268}# + #{dots\ 1269}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2437}# - (#{fx+\ 1254}# - #{n\ 2431}# + (#{cvt\ 1260}# + #{x\ 1268}# + (#{fx+\ 85}# + #{n\ 1262}# 1) - #{ids\ 2432}#)) - (lambda (#{p\ 2439}# - #{ids\ 2440}#) + #{ids\ 1263}#)) + (lambda (#{p\ 1270}# + #{ids\ 1271}#) (values - (if (eq? #{p\ 2439}# + (if (eq? #{p\ 1270}# 'any) 'each-any (vector 'each - #{p\ 2439}#)) - #{ids\ 2440}#)))) - #{tmp\ 2434}#) - ((lambda (#{tmp\ 2441}#) - (if #{tmp\ 2441}# - (apply (lambda (#{x\ 2442}# - #{y\ 2443}#) + #{p\ 1270}#)) + #{ids\ 1271}#)))) + #{tmp\ 1265}#) + ((lambda (#{tmp\ 1272}#) + (if #{tmp\ 1272}# + (apply (lambda (#{x\ 1273}# + #{y\ 1274}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{y\ 2443}# - #{n\ 2431}# - #{ids\ 2432}#)) - (lambda (#{y\ 2444}# - #{ids\ 2445}#) + (#{cvt\ 1260}# + #{y\ 1274}# + #{n\ 1262}# + #{ids\ 1263}#)) + (lambda (#{y\ 1275}# + #{ids\ 1276}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2442}# - #{n\ 2431}# - #{ids\ 2445}#)) - (lambda (#{x\ 2446}# - #{ids\ 2447}#) + (#{cvt\ 1260}# + #{x\ 1273}# + #{n\ 1262}# + #{ids\ 1276}#)) + (lambda (#{x\ 1277}# + #{ids\ 1278}#) (values - (cons #{x\ 2446}# - #{y\ 2444}#) - #{ids\ 2447}#)))))) - #{tmp\ 2441}#) - ((lambda (#{tmp\ 2448}#) - (if #{tmp\ 2448}# + (cons #{x\ 1277}# + #{y\ 1275}#) + #{ids\ 1278}#)))))) + #{tmp\ 1272}#) + ((lambda (#{tmp\ 1279}#) + (if #{tmp\ 1279}# (apply (lambda () (values '() - #{ids\ 2432}#)) - #{tmp\ 2448}#) - ((lambda (#{tmp\ 2449}#) - (if #{tmp\ 2449}# - (apply (lambda (#{x\ 2450}#) + #{ids\ 1263}#)) + #{tmp\ 1279}#) + ((lambda (#{tmp\ 1280}#) + (if #{tmp\ 1280}# + (apply (lambda (#{x\ 1281}#) (call-with-values (lambda () - (#{cvt\ 2429}# - #{x\ 2450}# - #{n\ 2431}# - #{ids\ 2432}#)) - (lambda (#{p\ 2452}# - #{ids\ 2453}#) + (#{cvt\ 1260}# + #{x\ 1281}# + #{n\ 1262}# + #{ids\ 1263}#)) + (lambda (#{p\ 1283}# + #{ids\ 1284}#) (values (vector 'vector - #{p\ 2452}#) - #{ids\ 2453}#)))) - #{tmp\ 2449}#) - ((lambda (#{x\ 2454}#) + #{p\ 1283}#) + #{ids\ 1284}#)))) + #{tmp\ 1280}#) + ((lambda (#{x\ 1285}#) (values (vector 'atom - (#{strip\ 1343}# - #{p\ 2430}# + (#{strip\ 174}# + #{p\ 1261}# '(()))) - #{ids\ 2432}#)) - #{tmp\ 2433}#))) + #{ids\ 1263}#)) + #{tmp\ 1264}#))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1264}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1264}# '())))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1264}# '(any . any))))) ($sc-dispatch - #{tmp\ 2433}# + #{tmp\ 1264}# '(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\ 1261}#))))) + (#{cvt\ 1260}# #{pattern\ 1258}# 0 (quote ())))))) + (lambda (#{e\ 1286}# + #{r\ 1287}# + #{w\ 1288}# + #{s\ 1289}# + #{mod\ 1290}#) + (let ((#{e\ 1291}# + (#{source-wrap\ 157}# + #{e\ 1286}# + #{w\ 1288}# + #{s\ 1289}# + #{mod\ 1290}#))) + ((lambda (#{tmp\ 1292}#) + ((lambda (#{tmp\ 1293}#) + (if #{tmp\ 1293}# + (apply (lambda (#{_\ 1294}# + #{val\ 1295}# + #{key\ 1296}# + #{m\ 1297}#) (if (and-map - (lambda (#{x\ 2467}#) - (if (#{id?\ 1297}# #{x\ 2467}#) - (not (#{ellipsis?\ 1342}# - #{x\ 2467}#)) + (lambda (#{x\ 1298}#) + (if (#{id?\ 128}# #{x\ 1298}#) + (not (#{ellipsis?\ 173}# #{x\ 1298}#)) #f)) - #{key\ 2465}#) - (let ((#{x\ 2469}# - (#{gen-var\ 1344}# (quote tmp)))) - (#{build-application\ 1264}# - #{s\ 2458}# - (#{build-lambda\ 1273}# + #{key\ 1296}#) + (let ((#{x\ 1300}# + (#{gen-var\ 175}# (quote tmp)))) + (#{build-application\ 95}# + #{s\ 1289}# + (#{build-lambda\ 104}# #f (list (quote tmp)) - (list #{x\ 2469}#) + (list #{x\ 1300}#) #f - (#{gen-syntax-case\ 2382}# - (#{build-lexical-reference\ 1266}# + (#{gen-syntax-case\ 1213}# + (#{build-lexical-reference\ 97}# 'value #f 'tmp - #{x\ 2469}#) - #{key\ 2465}# - #{m\ 2466}# - #{r\ 2456}# - #{mod\ 2459}#)) - (list (#{chi\ 1333}# - #{val\ 2464}# - #{r\ 2456}# + #{x\ 1300}#) + #{key\ 1296}# + #{m\ 1297}# + #{r\ 1287}# + #{mod\ 1290}#)) + (list (#{chi\ 164}# + #{val\ 1295}# + #{r\ 1287}# '(()) - #{mod\ 2459}#)))) + #{mod\ 1290}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 2460}#))) - #{tmp\ 2462}#) + #{e\ 1291}#))) + #{tmp\ 1293}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2461}#))) + #{tmp\ 1292}#))) ($sc-dispatch - #{tmp\ 2461}# + #{tmp\ 1292}# '(any any each-any . each-any)))) - #{e\ 2460}#))))) + #{e\ 1291}#))))) (set! sc-expand - (lambda (#{x\ 2473}# . #{rest\ 2472}#) - (if (if (pair? #{x\ 2473}#) - (equal? (car #{x\ 2473}#) #{noexpand\ 1252}#) + (lambda (#{x\ 1304}# . #{rest\ 1303}#) + (if (if (pair? #{x\ 1304}#) + (equal? (car #{x\ 1304}#) #{noexpand\ 83}#) #f) - (cadr #{x\ 2473}#) - (let ((#{m\ 2474}# - (if (null? #{rest\ 2472}#) + (cadr #{x\ 1304}#) + (let ((#{m\ 1305}# + (if (null? #{rest\ 1303}#) 'e - (car #{rest\ 2472}#))) - (#{esew\ 2475}# - (if (let ((#{t\ 2476}# (null? #{rest\ 2472}#))) - (if #{t\ 2476}# - #{t\ 2476}# - (null? (cdr #{rest\ 2472}#)))) + (car #{rest\ 1303}#))) + (#{esew\ 1306}# + (if (let ((#{t\ 1307}# (null? #{rest\ 1303}#))) + (if #{t\ 1307}# + #{t\ 1307}# + (null? (cdr #{rest\ 1303}#)))) '(eval) - (cadr #{rest\ 2472}#)))) + (cadr #{rest\ 1303}#)))) (with-fluid* - #{*mode*\ 1253}# - #{m\ 2474}# + #{*mode*\ 84}# + #{m\ 1305}# (lambda () - (#{chi-top\ 1332}# - #{x\ 2473}# + (#{chi-top\ 163}# + #{x\ 1304}# '() '((top)) - #{m\ 2474}# - #{esew\ 2475}# + #{m\ 1305}# + #{esew\ 1306}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? - (lambda (#{x\ 2477}#) - (#{nonsymbol-id?\ 1296}# #{x\ 2477}#))) + (lambda (#{x\ 1308}#) + (#{nonsymbol-id?\ 127}# #{x\ 1308}#))) (set! datum->syntax - (lambda (#{id\ 2478}# #{datum\ 2479}#) - (#{make-syntax-object\ 1280}# - #{datum\ 2479}# - (#{syntax-object-wrap\ 1283}# #{id\ 2478}#) + (lambda (#{id\ 1309}# #{datum\ 1310}#) + (#{make-syntax-object\ 111}# + #{datum\ 1310}# + (#{syntax-object-wrap\ 114}# #{id\ 1309}#) #f))) (set! syntax->datum - (lambda (#{x\ 2480}#) - (#{strip\ 1343}# #{x\ 2480}# (quote (()))))) + (lambda (#{x\ 1311}#) + (#{strip\ 174}# #{x\ 1311}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 2481}#) + (lambda (#{ls\ 1312}#) (begin - (let ((#{x\ 2482}# #{ls\ 2481}#)) - (if (not (list? #{x\ 2482}#)) + (let ((#{x\ 1313}# #{ls\ 1312}#)) + (if (not (list? #{x\ 1313}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 2482}#))) - (map (lambda (#{x\ 2483}#) - (#{wrap\ 1325}# (gensym) (quote ((top))) #f)) - #{ls\ 2481}#)))) + #{x\ 1313}#))) + (map (lambda (#{x\ 1314}#) + (#{wrap\ 156}# (gensym) (quote ((top))) #f)) + #{ls\ 1312}#)))) (set! free-identifier=? - (lambda (#{x\ 2484}# #{y\ 2485}#) + (lambda (#{x\ 1315}# #{y\ 1316}#) (begin - (let ((#{x\ 2486}# #{x\ 2484}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2486}#)) + (let ((#{x\ 1317}# #{x\ 1315}#)) + (if (not (#{nonsymbol-id?\ 127}# #{x\ 1317}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 2486}#))) - (let ((#{x\ 2487}# #{y\ 2485}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2487}#)) + #{x\ 1317}#))) + (let ((#{x\ 1318}# #{y\ 1316}#)) + (if (not (#{nonsymbol-id?\ 127}# #{x\ 1318}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 2487}#))) - (#{free-id=?\ 1320}# #{x\ 2484}# #{y\ 2485}#)))) + #{x\ 1318}#))) + (#{free-id=?\ 151}# #{x\ 1315}# #{y\ 1316}#)))) (set! bound-identifier=? - (lambda (#{x\ 2488}# #{y\ 2489}#) + (lambda (#{x\ 1319}# #{y\ 1320}#) (begin - (let ((#{x\ 2490}# #{x\ 2488}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2490}#)) + (let ((#{x\ 1321}# #{x\ 1319}#)) + (if (not (#{nonsymbol-id?\ 127}# #{x\ 1321}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 2490}#))) - (let ((#{x\ 2491}# #{y\ 2489}#)) - (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2491}#)) + #{x\ 1321}#))) + (let ((#{x\ 1322}# #{y\ 1320}#)) + (if (not (#{nonsymbol-id?\ 127}# #{x\ 1322}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 2491}#))) - (#{bound-id=?\ 1321}# #{x\ 2488}# #{y\ 2489}#)))) + #{x\ 1322}#))) + (#{bound-id=?\ 152}# #{x\ 1319}# #{y\ 1320}#)))) (set! syntax-violation - (lambda (#{who\ 2495}# - #{message\ 2494}# - #{form\ 2493}# + (lambda (#{who\ 1326}# + #{message\ 1325}# + #{form\ 1324}# . - #{subform\ 2492}#) + #{subform\ 1323}#) (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\ 1327}# #{who\ 1326}#)) + (if (not ((lambda (#{x\ 1328}#) + (let ((#{t\ 1329}# (not #{x\ 1328}#))) + (if #{t\ 1329}# + #{t\ 1329}# + (let ((#{t\ 1330}# (string? #{x\ 1328}#))) + (if #{t\ 1330}# + #{t\ 1330}# + (symbol? #{x\ 1328}#)))))) + #{x\ 1327}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 2496}#))) - (let ((#{x\ 2500}# #{message\ 2494}#)) - (if (not (string? #{x\ 2500}#)) + #{x\ 1327}#))) + (let ((#{x\ 1331}# #{message\ 1325}#)) + (if (not (string? #{x\ 1331}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 2500}#))) + #{x\ 1331}#))) (scm-error 'syntax-error 'sc-expand (string-append - (if #{who\ 2495}# "~a: " "") + (if #{who\ 1326}# "~a: " "") "~a " - (if (null? #{subform\ 2492}#) + (if (null? #{subform\ 1323}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 2501}# - (cons #{message\ 2494}# - (map (lambda (#{x\ 2502}#) - (#{strip\ 1343}# #{x\ 2502}# (quote (())))) + (let ((#{tail\ 1332}# + (cons #{message\ 1325}# + (map (lambda (#{x\ 1333}#) + (#{strip\ 174}# #{x\ 1333}# (quote (())))) (append - #{subform\ 2492}# - (list #{form\ 2493}#)))))) - (if #{who\ 2495}# - (cons #{who\ 2495}# #{tail\ 2501}#) - #{tail\ 2501}#)) + #{subform\ 1323}# + (list #{form\ 1324}#)))))) + (if #{who\ 1326}# + (cons #{who\ 1326}# #{tail\ 1332}#) + #{tail\ 1332}#)) #f)))) - (letrec ((#{match\ 2507}# - (lambda (#{e\ 2508}# - #{p\ 2509}# - #{w\ 2510}# - #{r\ 2511}# - #{mod\ 2512}#) - (if (not #{r\ 2511}#) + (letrec ((#{match\ 1338}# + (lambda (#{e\ 1339}# + #{p\ 1340}# + #{w\ 1341}# + #{r\ 1342}# + #{mod\ 1343}#) + (if (not #{r\ 1342}#) #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\ 1340}# (quote any)) + (cons (#{wrap\ 156}# + #{e\ 1339}# + #{w\ 1341}# + #{mod\ 1343}#) + #{r\ 1342}#) + (if (#{syntax-object?\ 112}# #{e\ 1339}#) + (#{match*\ 1337}# + (#{syntax-object-expression\ 113}# #{e\ 1339}#) + #{p\ 1340}# + (#{join-wraps\ 147}# + #{w\ 1341}# + (#{syntax-object-wrap\ 114}# #{e\ 1339}#)) + #{r\ 1342}# + (#{syntax-object-module\ 115}# #{e\ 1339}#)) + (#{match*\ 1337}# + #{e\ 1339}# + #{p\ 1340}# + #{w\ 1341}# + #{r\ 1342}# + #{mod\ 1343}#)))))) + (#{match*\ 1337}# + (lambda (#{e\ 1344}# + #{p\ 1345}# + #{w\ 1346}# + #{r\ 1347}# + #{mod\ 1348}#) + (if (null? #{p\ 1345}#) + (if (null? #{e\ 1344}#) #{r\ 1347}# #f) + (if (pair? #{p\ 1345}#) + (if (pair? #{e\ 1344}#) + (#{match\ 1338}# + (car #{e\ 1344}#) + (car #{p\ 1345}#) + #{w\ 1346}# + (#{match\ 1338}# + (cdr #{e\ 1344}#) + (cdr #{p\ 1345}#) + #{w\ 1346}# + #{r\ 1347}# + #{mod\ 1348}#) + #{mod\ 1348}#) #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\ 1345}# (quote each-any)) + (let ((#{l\ 1349}# + (#{match-each-any\ 1335}# + #{e\ 1344}# + #{w\ 1346}# + #{mod\ 1348}#))) + (if #{l\ 1349}# + (cons #{l\ 1349}# #{r\ 1347}#) #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\ 1350}# (vector-ref #{p\ 1345}# 0))) + (if (memv #{atom-key\ 1350}# (quote (each))) + (if (null? #{e\ 1344}#) + (#{match-empty\ 1336}# + (vector-ref #{p\ 1345}# 1) + #{r\ 1347}#) + (let ((#{l\ 1351}# + (#{match-each\ 1334}# + #{e\ 1344}# + (vector-ref #{p\ 1345}# 1) + #{w\ 1346}# + #{mod\ 1348}#))) + (if #{l\ 1351}# + (letrec ((#{collect\ 1352}# + (lambda (#{l\ 1353}#) + (if (null? (car #{l\ 1353}#)) + #{r\ 1347}# + (cons (map car #{l\ 1353}#) + (#{collect\ 1352}# (map cdr - #{l\ 2522}#))))))) - (#{collect\ 2521}# #{l\ 2520}#)) + #{l\ 1353}#))))))) + (#{collect\ 1352}# #{l\ 1351}#)) #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\ 1350}# (quote (free-id))) + (if (#{id?\ 128}# #{e\ 1344}#) + (if (#{free-id=?\ 151}# + (#{wrap\ 156}# + #{e\ 1344}# + #{w\ 1346}# + #{mod\ 1348}#) + (vector-ref #{p\ 1345}# 1)) + #{r\ 1347}# #f) #f) - (if (memv #{atom-key\ 2519}# (quote (atom))) + (if (memv #{atom-key\ 1350}# (quote (atom))) (if (equal? - (vector-ref #{p\ 2514}# 1) - (#{strip\ 1343}# - #{e\ 2513}# - #{w\ 2515}#)) - #{r\ 2516}# + (vector-ref #{p\ 1345}# 1) + (#{strip\ 174}# + #{e\ 1344}# + #{w\ 1346}#)) + #{r\ 1347}# #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\ 1350}# (quote (vector))) + (if (vector? #{e\ 1344}#) + (#{match\ 1338}# + (vector->list #{e\ 1344}#) + (vector-ref #{p\ 1345}# 1) + #{w\ 1346}# + #{r\ 1347}# + #{mod\ 1348}#) #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\ 1336}# + (lambda (#{p\ 1354}# #{r\ 1355}#) + (if (null? #{p\ 1354}#) + #{r\ 1355}# + (if (eq? #{p\ 1354}# (quote any)) + (cons (quote ()) #{r\ 1355}#) + (if (pair? #{p\ 1354}#) + (#{match-empty\ 1336}# + (car #{p\ 1354}#) + (#{match-empty\ 1336}# + (cdr #{p\ 1354}#) + #{r\ 1355}#)) + (if (eq? #{p\ 1354}# (quote each-any)) + (cons (quote ()) #{r\ 1355}#) + (let ((#{atom-key\ 1356}# + (vector-ref #{p\ 1354}# 0))) + (if (memv #{atom-key\ 1356}# (quote (each))) + (#{match-empty\ 1336}# + (vector-ref #{p\ 1354}# 1) + #{r\ 1355}#) + (if (memv #{atom-key\ 1356}# '(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\ 1355}# + (if (memv #{atom-key\ 1356}# (quote (vector))) + (#{match-empty\ 1336}# + (vector-ref #{p\ 1354}# 1) + #{r\ 1355}#))))))))))) + (#{match-each-any\ 1335}# + (lambda (#{e\ 1357}# #{w\ 1358}# #{mod\ 1359}#) + (if (pair? #{e\ 1357}#) + (let ((#{l\ 1360}# + (#{match-each-any\ 1335}# + (cdr #{e\ 1357}#) + #{w\ 1358}# + #{mod\ 1359}#))) + (if #{l\ 1360}# + (cons (#{wrap\ 156}# + (car #{e\ 1357}#) + #{w\ 1358}# + #{mod\ 1359}#) + #{l\ 1360}#) #f)) - (if (null? #{e\ 2526}#) + (if (null? #{e\ 1357}#) '() - (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?\ 112}# #{e\ 1357}#) + (#{match-each-any\ 1335}# + (#{syntax-object-expression\ 113}# #{e\ 1357}#) + (#{join-wraps\ 147}# + #{w\ 1358}# + (#{syntax-object-wrap\ 114}# #{e\ 1357}#)) + #{mod\ 1359}#) #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\ 1334}# + (lambda (#{e\ 1361}# + #{p\ 1362}# + #{w\ 1363}# + #{mod\ 1364}#) + (if (pair? #{e\ 1361}#) + (let ((#{first\ 1365}# + (#{match\ 1338}# + (car #{e\ 1361}#) + #{p\ 1362}# + #{w\ 1363}# '() - #{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\ 1364}#))) + (if #{first\ 1365}# + (let ((#{rest\ 1366}# + (#{match-each\ 1334}# + (cdr #{e\ 1361}#) + #{p\ 1362}# + #{w\ 1363}# + #{mod\ 1364}#))) + (if #{rest\ 1366}# + (cons #{first\ 1365}# #{rest\ 1366}#) #f)) #f)) - (if (null? #{e\ 2530}#) + (if (null? #{e\ 1361}#) '() - (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?\ 112}# #{e\ 1361}#) + (#{match-each\ 1334}# + (#{syntax-object-expression\ 113}# #{e\ 1361}#) + #{p\ 1362}# + (#{join-wraps\ 147}# + #{w\ 1363}# + (#{syntax-object-wrap\ 114}# #{e\ 1361}#)) + (#{syntax-object-module\ 115}# #{e\ 1361}#)) #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\ 1367}# #{p\ 1368}#) + (if (eq? #{p\ 1368}# (quote any)) + (list #{e\ 1367}#) + (if (#{syntax-object?\ 112}# #{e\ 1367}#) + (#{match*\ 1337}# + (#{syntax-object-expression\ 113}# #{e\ 1367}#) + #{p\ 1368}# + (#{syntax-object-wrap\ 114}# #{e\ 1367}#) '() - (#{syntax-object-module\ 1284}# #{e\ 2536}#)) - (#{match*\ 2506}# - #{e\ 2536}# - #{p\ 2537}# + (#{syntax-object-module\ 115}# #{e\ 1367}#)) + (#{match*\ 1337}# + #{e\ 1367}# + #{p\ 1368}# '(()) '() #f))))))))) @@ -9157,11 +9181,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\ 1369}#) + ((lambda (#{tmp\ 1370}#) + ((lambda (#{tmp\ 1371}#) + (if #{tmp\ 1371}# + (apply (lambda (#{_\ 1372}# #{e1\ 1373}# #{e2\ 1374}#) (cons '#(syntax-object begin ((top) @@ -9172,15 +9196,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\ 1373}# #{e2\ 1374}#))) + #{tmp\ 1371}#) + ((lambda (#{tmp\ 1376}#) + (if #{tmp\ 1376}# + (apply (lambda (#{_\ 1377}# + #{out\ 1378}# + #{in\ 1379}# + #{e1\ 1380}# + #{e2\ 1381}#) (list '#(syntax-object syntax-case ((top) @@ -9191,9 +9215,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - #{in\ 2548}# + #{in\ 1379}# '() - (list #{out\ 2547}# + (list #{out\ 1378}# (cons '#(syntax-object begin ((top) @@ -9211,16 +9235,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\ 1380}# + #{e2\ 1381}#))))) + #{tmp\ 1376}#) + ((lambda (#{tmp\ 1383}#) + (if #{tmp\ 1383}# + (apply (lambda (#{_\ 1384}# + #{out\ 1385}# + #{in\ 1386}# + #{e1\ 1387}# + #{e2\ 1388}#) (list '#(syntax-object syntax-case ((top) @@ -9248,9 +9272,9 @@ #((top)) #("i"))) (hygiene guile)) - #{in\ 2555}#) + #{in\ 1386}#) '() - (list #{out\ 2554}# + (list #{out\ 1385}# (cons '#(syntax-object begin ((top) @@ -9272,36 +9296,36 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 2556}# - #{e2\ 2557}#))))) - #{tmp\ 2552}#) + (cons #{e1\ 1387}# + #{e2\ 1388}#))))) + #{tmp\ 1383}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2539}#))) + #{tmp\ 1370}#))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1370}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1370}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 2539}# + #{tmp\ 1370}# '(any () any . each-any)))) - #{x\ 2538}#)))) + #{x\ 1369}#)))) (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\ 1392}#) + ((lambda (#{tmp\ 1393}#) + ((lambda (#{tmp\ 1394}#) + (if #{tmp\ 1394}# + (apply (lambda (#{_\ 1395}# + #{k\ 1396}# + #{keyword\ 1397}# + #{pattern\ 1398}# + #{template\ 1399}#) (list '#(syntax-object lambda ((top) @@ -9342,9 +9366,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - (cons #{k\ 2565}# - (map (lambda (#{tmp\ 2571}# - #{tmp\ 2570}#) + (cons #{k\ 1396}# + (map (lambda (#{tmp\ 1402}# + #{tmp\ 1401}#) (list (cons '#(syntax-object dummy ((top) @@ -9374,7 +9398,7 @@ #("i"))) (hygiene guile)) - #{tmp\ 2570}#) + #{tmp\ 1401}#) (list '#(syntax-object syntax ((top) @@ -9404,43 +9428,43 @@ #("i"))) (hygiene guile)) - #{tmp\ 2571}#))) - #{template\ 2568}# - #{pattern\ 2567}#)))))) - #{tmp\ 2563}#) + #{tmp\ 1402}#))) + #{template\ 1399}# + #{pattern\ 1398}#)))))) + #{tmp\ 1394}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2562}#))) + #{tmp\ 1393}#))) ($sc-dispatch - #{tmp\ 2562}# + #{tmp\ 1393}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 2561}#)))) + #{x\ 1392}#)))) (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\ 1403}#) + ((lambda (#{tmp\ 1404}#) + ((lambda (#{tmp\ 1405}#) + (if (if #{tmp\ 1405}# + (apply (lambda (#{let*\ 1406}# + #{x\ 1407}# + #{v\ 1408}# + #{e1\ 1409}# + #{e2\ 1410}#) + (and-map identifier? #{x\ 1407}#)) + #{tmp\ 1405}#) #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*\ 1412}# + #{x\ 1413}# + #{v\ 1414}# + #{e1\ 1415}# + #{e2\ 1416}#) + (letrec ((#{f\ 1417}# + (lambda (#{bindings\ 1418}#) + (if (null? #{bindings\ 1418}#) (cons '#(syntax-object let ((top) @@ -9464,13 +9488,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\ 1415}# + #{e2\ 1416}#))) + ((lambda (#{tmp\ 1422}#) + ((lambda (#{tmp\ 1423}#) + (if #{tmp\ 1423}# + (apply (lambda (#{body\ 1424}# + #{binding\ 1425}#) (list '#(syntax-object let ((top) @@ -9516,52 +9540,52 @@ #("i"))) (hygiene guile)) - (list #{binding\ 2594}#) - #{body\ 2593}#)) - #{tmp\ 2592}#) + (list #{binding\ 1425}#) + #{body\ 1424}#)) + #{tmp\ 1423}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2591}#))) + #{tmp\ 1422}#))) ($sc-dispatch - #{tmp\ 2591}# + #{tmp\ 1422}# '(any any)))) - (list (#{f\ 2586}# - (cdr #{bindings\ 2587}#)) - (car #{bindings\ 2587}#))))))) - (#{f\ 2586}# (map list #{x\ 2582}# #{v\ 2583}#)))) - #{tmp\ 2574}#) + (list (#{f\ 1417}# + (cdr #{bindings\ 1418}#)) + (car #{bindings\ 1418}#))))))) + (#{f\ 1417}# (map list #{x\ 1413}# #{v\ 1414}#)))) + #{tmp\ 1405}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2573}#))) + #{tmp\ 1404}#))) ($sc-dispatch - #{tmp\ 2573}# + #{tmp\ 1404}# '(any #(each (any any)) any . each-any)))) - #{x\ 2572}#)))) + #{x\ 1403}#)))) (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\ 1426}#) + ((lambda (#{tmp\ 1427}#) + ((lambda (#{tmp\ 1428}#) + (if #{tmp\ 1428}# + (apply (lambda (#{_\ 1429}# + #{var\ 1430}# + #{init\ 1431}# + #{step\ 1432}# + #{e0\ 1433}# + #{e1\ 1434}# + #{c\ 1435}#) + ((lambda (#{tmp\ 1436}#) + ((lambda (#{tmp\ 1437}#) + (if #{tmp\ 1437}# + (apply (lambda (#{step\ 1438}#) + ((lambda (#{tmp\ 1439}#) + ((lambda (#{tmp\ 1440}#) + (if #{tmp\ 1440}# (apply (lambda () (list '#(syntax-object let @@ -9642,8 +9666,8 @@ (hygiene guile)) (map list - #{var\ 2599}# - #{init\ 2600}#) + #{var\ 1430}# + #{init\ 1431}#) (list '#(syntax-object if ((top) @@ -9722,7 +9746,7 @@ #("i"))) (hygiene guile)) - #{e0\ 2602}#) + #{e0\ 1433}#) (cons '#(syntax-object begin ((top) @@ -9763,7 +9787,7 @@ (hygiene guile)) (append - #{c\ 2604}# + #{c\ 1435}# (list (cons '#(syntax-object doloop ((top) @@ -9803,12 +9827,12 @@ #("i"))) (hygiene guile)) - #{step\ 2607}#))))))) - #{tmp\ 2609}#) - ((lambda (#{tmp\ 2614}#) - (if #{tmp\ 2614}# - (apply (lambda (#{e1\ 2615}# - #{e2\ 2616}#) + #{step\ 1438}#))))))) + #{tmp\ 1440}#) + ((lambda (#{tmp\ 1445}#) + (if #{tmp\ 1445}# + (apply (lambda (#{e1\ 1446}# + #{e2\ 1447}#) (list '#(syntax-object let ((top) @@ -9902,8 +9926,8 @@ (hygiene guile)) (map list - #{var\ 2599}# - #{init\ 2600}#) + #{var\ 1430}# + #{init\ 1431}#) (list '#(syntax-object if ((top) @@ -9950,7 +9974,7 @@ #("i"))) (hygiene guile)) - #{e0\ 2602}# + #{e0\ 1433}# (cons '#(syntax-object begin ((top) @@ -9997,8 +10021,8 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2615}# - #{e2\ 2616}#)) + (cons #{e1\ 1446}# + #{e2\ 1447}#)) (cons '#(syntax-object begin ((top) @@ -10046,7 +10070,7 @@ (hygiene guile)) (append - #{c\ 2604}# + #{c\ 1435}# (list (cons '#(syntax-object doloop ((top) @@ -10093,81 +10117,81 @@ #("i"))) (hygiene guile)) - #{step\ 2607}#))))))) - #{tmp\ 2614}#) + #{step\ 1438}#))))))) + #{tmp\ 1445}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2608}#))) + #{tmp\ 1439}#))) ($sc-dispatch - #{tmp\ 2608}# + #{tmp\ 1439}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 2608}# + #{tmp\ 1439}# '()))) - #{e1\ 2603}#)) - #{tmp\ 2606}#) + #{e1\ 1434}#)) + #{tmp\ 1437}#) (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\ 1436}#))) + ($sc-dispatch #{tmp\ 1436}# (quote each-any)))) + (map (lambda (#{v\ 1454}# #{s\ 1455}#) + ((lambda (#{tmp\ 1456}#) + ((lambda (#{tmp\ 1457}#) + (if #{tmp\ 1457}# + (apply (lambda () #{v\ 1454}#) + #{tmp\ 1457}#) + ((lambda (#{tmp\ 1458}#) + (if #{tmp\ 1458}# + (apply (lambda (#{e\ 1459}#) + #{e\ 1459}#) + #{tmp\ 1458}#) + ((lambda (#{_\ 1460}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 2595}# - #{s\ 2624}#)) - #{tmp\ 2625}#))) + #{orig-x\ 1426}# + #{s\ 1455}#)) + #{tmp\ 1456}#))) ($sc-dispatch - #{tmp\ 2625}# + #{tmp\ 1456}# '(any))))) - ($sc-dispatch #{tmp\ 2625}# (quote ())))) - #{s\ 2624}#)) - #{var\ 2599}# - #{step\ 2601}#))) - #{tmp\ 2597}#) + ($sc-dispatch #{tmp\ 1456}# (quote ())))) + #{s\ 1455}#)) + #{var\ 1430}# + #{step\ 1432}#))) + #{tmp\ 1428}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2596}#))) + #{tmp\ 1427}#))) ($sc-dispatch - #{tmp\ 2596}# + #{tmp\ 1427}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 2595}#)))) + #{orig-x\ 1426}#)))) (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\ 1463}# + (lambda (#{x\ 1467}# #{y\ 1468}#) + ((lambda (#{tmp\ 1469}#) + ((lambda (#{tmp\ 1470}#) + (if #{tmp\ 1470}# + (apply (lambda (#{x\ 1471}# #{y\ 1472}#) + ((lambda (#{tmp\ 1473}#) + ((lambda (#{tmp\ 1474}#) + (if #{tmp\ 1474}# + (apply (lambda (#{dy\ 1475}#) + ((lambda (#{tmp\ 1476}#) + ((lambda (#{tmp\ 1477}#) + (if #{tmp\ 1477}# + (apply (lambda (#{dx\ 1478}#) (list '#(syntax-object quote ((top) @@ -10216,11 +10240,11 @@ "i"))) (hygiene guile)) - (cons #{dx\ 2647}# - #{dy\ 2644}#))) - #{tmp\ 2646}#) - ((lambda (#{_\ 2648}#) - (if (null? #{dy\ 2644}#) + (cons #{dx\ 1478}# + #{dy\ 1475}#))) + #{tmp\ 1477}#) + ((lambda (#{_\ 1479}#) + (if (null? #{dy\ 1475}#) (list '#(syntax-object list ((top) @@ -10269,7 +10293,7 @@ "i"))) (hygiene guile)) - #{x\ 2640}#) + #{x\ 1471}#) (list '#(syntax-object cons ((top) @@ -10318,11 +10342,11 @@ "i"))) (hygiene guile)) - #{x\ 2640}# - #{y\ 2641}#))) - #{tmp\ 2645}#))) + #{x\ 1471}# + #{y\ 1472}#))) + #{tmp\ 1476}#))) ($sc-dispatch - #{tmp\ 2645}# + #{tmp\ 1476}# '(#(free-id #(syntax-object quote @@ -10365,11 +10389,11 @@ (hygiene guile))) any)))) - #{x\ 2640}#)) - #{tmp\ 2643}#) - ((lambda (#{tmp\ 2649}#) - (if #{tmp\ 2649}# - (apply (lambda (#{stuff\ 2650}#) + #{x\ 1471}#)) + #{tmp\ 1474}#) + ((lambda (#{tmp\ 1480}#) + (if #{tmp\ 1480}# + (apply (lambda (#{stuff\ 1481}#) (cons '#(syntax-object list ((top) @@ -10410,10 +10434,10 @@ "i"))) (hygiene guile)) - (cons #{x\ 2640}# - #{stuff\ 2650}#))) - #{tmp\ 2649}#) - ((lambda (#{else\ 2651}#) + (cons #{x\ 1471}# + #{stuff\ 1481}#))) + #{tmp\ 1480}#) + ((lambda (#{else\ 1482}#) (list '#(syntax-object cons ((top) @@ -10445,11 +10469,11 @@ "i" "i"))) (hygiene guile)) - #{x\ 2640}# - #{y\ 2641}#)) - #{tmp\ 2642}#))) + #{x\ 1471}# + #{y\ 1472}#)) + #{tmp\ 1473}#))) ($sc-dispatch - #{tmp\ 2642}# + #{tmp\ 1473}# '(#(free-id #(syntax-object list @@ -10478,7 +10502,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2642}# + #{tmp\ 1473}# '(#(free-id #(syntax-object quote @@ -10502,26 +10526,26 @@ #("i" "i" "i" "i"))) (hygiene guile))) any)))) - #{y\ 2641}#)) - #{tmp\ 2639}#) + #{y\ 1472}#)) + #{tmp\ 1470}#) (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\ 1469}#))) + ($sc-dispatch #{tmp\ 1469}# (quote (any any))))) + (list #{x\ 1467}# #{y\ 1468}#)))) + (#{quasiappend\ 1464}# + (lambda (#{x\ 1483}# #{y\ 1484}#) + ((lambda (#{tmp\ 1485}#) + ((lambda (#{tmp\ 1486}#) + (if #{tmp\ 1486}# + (apply (lambda (#{x\ 1487}# #{y\ 1488}#) + ((lambda (#{tmp\ 1489}#) + ((lambda (#{tmp\ 1490}#) + (if #{tmp\ 1490}# + (apply (lambda () #{x\ 1487}#) + #{tmp\ 1490}#) + ((lambda (#{_\ 1491}#) (list '#(syntax-object append ((top) @@ -10550,11 +10574,11 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2656}# - #{y\ 2657}#)) - #{tmp\ 2658}#))) + #{x\ 1487}# + #{y\ 1488}#)) + #{tmp\ 1489}#))) ($sc-dispatch - #{tmp\ 2658}# + #{tmp\ 1489}# '(#(free-id #(syntax-object quote @@ -10578,22 +10602,22 @@ #("i" "i" "i" "i"))) (hygiene guile))) ())))) - #{y\ 2657}#)) - #{tmp\ 2655}#) + #{y\ 1488}#)) + #{tmp\ 1486}#) (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\ 1485}#))) + ($sc-dispatch #{tmp\ 1485}# (quote (any any))))) + (list #{x\ 1483}# #{y\ 1484}#)))) + (#{quasivector\ 1465}# + (lambda (#{x\ 1492}#) + ((lambda (#{tmp\ 1493}#) + ((lambda (#{x\ 1494}#) + ((lambda (#{tmp\ 1495}#) + ((lambda (#{tmp\ 1496}#) + (if #{tmp\ 1496}# + (apply (lambda (#{x\ 1497}#) (list '#(syntax-object quote ((top) @@ -10619,11 +10643,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\ 1497}#))) + #{tmp\ 1496}#) + ((lambda (#{tmp\ 1499}#) + (if #{tmp\ 1499}# + (apply (lambda (#{x\ 1500}#) (cons '#(syntax-object vector ((top) @@ -10652,9 +10676,9 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2669}#)) - #{tmp\ 2668}#) - ((lambda (#{_\ 2671}#) + #{x\ 1500}#)) + #{tmp\ 1499}#) + ((lambda (#{_\ 1502}#) (list '#(syntax-object list->vector ((top) @@ -10680,10 +10704,10 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2663}#)) - #{tmp\ 2664}#))) + #{x\ 1494}#)) + #{tmp\ 1495}#))) ($sc-dispatch - #{tmp\ 2664}# + #{tmp\ 1495}# '(#(free-id #(syntax-object list @@ -10703,7 +10727,7 @@ . each-any))))) ($sc-dispatch - #{tmp\ 2664}# + #{tmp\ 1495}# '(#(free-id #(syntax-object quote @@ -10721,18 +10745,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\ 1494}#)) + #{tmp\ 1493}#)) + #{x\ 1492}#))) + (#{quasi\ 1466}# + (lambda (#{p\ 1503}# #{lev\ 1504}#) + ((lambda (#{tmp\ 1505}#) + ((lambda (#{tmp\ 1506}#) + (if #{tmp\ 1506}# + (apply (lambda (#{p\ 1507}#) + (if (= #{lev\ 1504}# 0) + #{p\ 1507}# + (#{quasicons\ 1463}# '(#(syntax-object quote ((top) @@ -10767,21 +10791,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\ 1466}# + (list #{p\ 1507}#) + (- #{lev\ 1504}# 1))))) + #{tmp\ 1506}#) + ((lambda (#{tmp\ 1508}#) + (if (if #{tmp\ 1508}# + (apply (lambda (#{args\ 1509}#) + (= #{lev\ 1504}# 0)) + #{tmp\ 1508}#) #f) - (apply (lambda (#{args\ 2679}#) + (apply (lambda (#{args\ 1510}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 2672}# + #{p\ 1503}# (cons '#(syntax-object unquote ((top) @@ -10802,19 +10826,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\ 1510}#))) + #{tmp\ 1508}#) + ((lambda (#{tmp\ 1511}#) + (if #{tmp\ 1511}# + (apply (lambda (#{p\ 1512}# #{q\ 1513}#) + (if (= #{lev\ 1504}# 0) + (#{quasiappend\ 1464}# + #{p\ 1512}# + (#{quasi\ 1466}# + #{q\ 1513}# + #{lev\ 1504}#)) + (#{quasicons\ 1463}# + (#{quasicons\ 1463}# '(#(syntax-object quote ((top) @@ -10861,26 +10885,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\ 1466}# + (list #{p\ 1512}#) + (- #{lev\ 1504}# 1))) + (#{quasi\ 1466}# + #{q\ 1513}# + #{lev\ 1504}#)))) + #{tmp\ 1511}#) + ((lambda (#{tmp\ 1514}#) + (if (if #{tmp\ 1514}# + (apply (lambda (#{args\ 1515}# + #{q\ 1516}#) + (= #{lev\ 1504}# 0)) + #{tmp\ 1514}#) #f) - (apply (lambda (#{args\ 2686}# - #{q\ 2687}#) + (apply (lambda (#{args\ 1517}# + #{q\ 1518}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 2672}# + #{p\ 1503}# (cons '#(syntax-object unquote-splicing ((top) @@ -10910,12 +10934,12 @@ "i" "i"))) (hygiene guile)) - #{args\ 2686}#))) - #{tmp\ 2683}#) - ((lambda (#{tmp\ 2688}#) - (if #{tmp\ 2688}# - (apply (lambda (#{p\ 2689}#) - (#{quasicons\ 2632}# + #{args\ 1517}#))) + #{tmp\ 1514}#) + ((lambda (#{tmp\ 1519}#) + (if #{tmp\ 1519}# + (apply (lambda (#{p\ 1520}#) + (#{quasicons\ 1463}# '(#(syntax-object quote ((top) @@ -10974,32 +10998,32 @@ "i" "i"))) (hygiene guile))) - (#{quasi\ 2635}# - (list #{p\ 2689}#) - (+ #{lev\ 2673}# + (#{quasi\ 1466}# + (list #{p\ 1520}#) + (+ #{lev\ 1504}# 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\ 1519}#) + ((lambda (#{tmp\ 1521}#) + (if #{tmp\ 1521}# + (apply (lambda (#{p\ 1522}# + #{q\ 1523}#) + (#{quasicons\ 1463}# + (#{quasi\ 1466}# + #{p\ 1522}# + #{lev\ 1504}#) + (#{quasi\ 1466}# + #{q\ 1523}# + #{lev\ 1504}#))) + #{tmp\ 1521}#) + ((lambda (#{tmp\ 1524}#) + (if #{tmp\ 1524}# + (apply (lambda (#{x\ 1525}#) + (#{quasivector\ 1465}# + (#{quasi\ 1466}# + #{x\ 1525}# + #{lev\ 1504}#))) + #{tmp\ 1524}#) + ((lambda (#{p\ 1527}#) (list '#(syntax-object quote ((top) @@ -11032,16 +11056,16 @@ "i"))) (hygiene guile)) - #{p\ 2696}#)) - #{tmp\ 2674}#))) + #{p\ 1527}#)) + #{tmp\ 1505}#))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '(any . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '(#(free-id #(syntax-object quasiquote @@ -11061,7 +11085,7 @@ (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '((#(free-id #(syntax-object unquote-splicing @@ -11084,7 +11108,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '((#(free-id #(syntax-object unquote-splicing @@ -11106,7 +11130,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '(#(free-id #(syntax-object unquote @@ -11124,7 +11148,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2674}# + #{tmp\ 1505}# '(#(free-id #(syntax-object unquote @@ -11137,49 +11161,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\ 1503}#)))) + (lambda (#{x\ 1528}#) + ((lambda (#{tmp\ 1529}#) + ((lambda (#{tmp\ 1530}#) + (if #{tmp\ 1530}# + (apply (lambda (#{_\ 1531}# #{e\ 1532}#) + (#{quasi\ 1466}# #{e\ 1532}# 0)) + #{tmp\ 1530}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2698}#))) - ($sc-dispatch #{tmp\ 2698}# (quote (any any))))) - #{x\ 2697}#))))) + #{tmp\ 1529}#))) + ($sc-dispatch #{tmp\ 1529}# (quote (any any))))) + #{x\ 1528}#))))) (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\ 1533}#) + (letrec ((#{read-file\ 1534}# + (lambda (#{fn\ 1535}# #{k\ 1536}#) + (let ((#{p\ 1537}# (open-input-file #{fn\ 1535}#))) + (letrec ((#{f\ 1538}# + (lambda (#{x\ 1539}#) + (if (eof-object? #{x\ 1539}#) (begin - (close-input-port #{p\ 2706}#) + (close-input-port #{p\ 1537}#) '()) (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\ 1536}# + #{x\ 1539}#) + (#{f\ 1538}# (read #{p\ 1537}#))))))) + (#{f\ 1538}# (read #{p\ 1537}#))))))) + ((lambda (#{tmp\ 1540}#) + ((lambda (#{tmp\ 1541}#) + (if #{tmp\ 1541}# + (apply (lambda (#{k\ 1542}# #{filename\ 1543}#) + (let ((#{fn\ 1544}# + (syntax->datum #{filename\ 1543}#))) + ((lambda (#{tmp\ 1545}#) + ((lambda (#{tmp\ 1546}#) + (if #{tmp\ 1546}# + (apply (lambda (#{exp\ 1547}#) (cons '#(syntax-object begin ((top) @@ -11206,76 +11230,76 @@ #((top)) #("i"))) (hygiene guile)) - #{exp\ 2716}#)) - #{tmp\ 2715}#) + #{exp\ 1547}#)) + #{tmp\ 1546}#) (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\ 1545}#))) + ($sc-dispatch #{tmp\ 1545}# (quote each-any)))) + (#{read-file\ 1534}# #{fn\ 1544}# #{k\ 1542}#)))) + #{tmp\ 1541}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2709}#))) - ($sc-dispatch #{tmp\ 2709}# (quote (any any))))) - #{x\ 2702}#))))) + #{tmp\ 1540}#))) + ($sc-dispatch #{tmp\ 1540}# (quote (any any))))) + #{x\ 1533}#))))) (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\ 1549}#) + ((lambda (#{tmp\ 1550}#) + ((lambda (#{tmp\ 1551}#) + (if #{tmp\ 1551}# + (apply (lambda (#{_\ 1552}# #{e\ 1553}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 2718}#)) - #{tmp\ 2720}#) + #{x\ 1549}#)) + #{tmp\ 1551}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2719}#))) - ($sc-dispatch #{tmp\ 2719}# (quote (any any))))) - #{x\ 2718}#)))) + #{tmp\ 1550}#))) + ($sc-dispatch #{tmp\ 1550}# (quote (any any))))) + #{x\ 1549}#)))) (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\ 1554}#) + ((lambda (#{tmp\ 1555}#) + ((lambda (#{tmp\ 1556}#) + (if #{tmp\ 1556}# + (apply (lambda (#{_\ 1557}# #{e\ 1558}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 2723}#)) - #{tmp\ 2725}#) + #{x\ 1554}#)) + #{tmp\ 1556}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2724}#))) - ($sc-dispatch #{tmp\ 2724}# (quote (any any))))) - #{x\ 2723}#)))) + #{tmp\ 1555}#))) + ($sc-dispatch #{tmp\ 1555}# (quote (any any))))) + #{x\ 1554}#)))) (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\ 1559}#) + ((lambda (#{tmp\ 1560}#) + ((lambda (#{tmp\ 1561}#) + (if #{tmp\ 1561}# + (apply (lambda (#{_\ 1562}# + #{e\ 1563}# + #{m1\ 1564}# + #{m2\ 1565}#) + ((lambda (#{tmp\ 1566}#) + ((lambda (#{body\ 1567}#) (list '#(syntax-object let ((top) @@ -11304,17 +11328,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\ 1563}#)) + #{body\ 1567}#)) + #{tmp\ 1566}#)) + (letrec ((#{f\ 1568}# + (lambda (#{clause\ 1569}# #{clauses\ 1570}#) + (if (null? #{clauses\ 1570}#) + ((lambda (#{tmp\ 1572}#) + ((lambda (#{tmp\ 1573}#) + (if #{tmp\ 1573}# + (apply (lambda (#{e1\ 1574}# + #{e2\ 1575}#) (cons '#(syntax-object begin ((top) @@ -11360,14 +11384,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\ 1574}# + #{e2\ 1575}#))) + #{tmp\ 1573}#) + ((lambda (#{tmp\ 1577}#) + (if #{tmp\ 1577}# + (apply (lambda (#{k\ 1578}# + #{e1\ 1579}# + #{e2\ 1580}#) (list '#(syntax-object if ((top) @@ -11568,7 +11592,7 @@ #("i"))) (hygiene guile)) - #{k\ 2747}#)) + #{k\ 1578}#)) (cons '#(syntax-object begin ((top) @@ -11619,24 +11643,24 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2748}# - #{e2\ 2749}#)))) - #{tmp\ 2746}#) - ((lambda (#{_\ 2752}#) + (cons #{e1\ 1579}# + #{e2\ 1580}#)))) + #{tmp\ 1577}#) + ((lambda (#{_\ 1583}#) (syntax-violation 'case "bad clause" - #{x\ 2728}# - #{clause\ 2738}#)) - #{tmp\ 2741}#))) + #{x\ 1559}# + #{clause\ 1569}#)) + #{tmp\ 1572}#))) ($sc-dispatch - #{tmp\ 2741}# + #{tmp\ 1572}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 2741}# + #{tmp\ 1572}# '(#(free-id #(syntax-object else @@ -11662,15 +11686,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\ 1569}#) + ((lambda (#{tmp\ 1584}#) + ((lambda (#{rest\ 1585}#) + ((lambda (#{tmp\ 1586}#) + ((lambda (#{tmp\ 1587}#) + (if #{tmp\ 1587}# + (apply (lambda (#{k\ 1588}# + #{e1\ 1589}# + #{e2\ 1590}#) (list '#(syntax-object if ((top) @@ -11887,7 +11911,7 @@ #("i"))) (hygiene guile)) - #{k\ 2757}#)) + #{k\ 1588}#)) (cons '#(syntax-object begin ((top) @@ -11942,47 +11966,47 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2758}# - #{e2\ 2759}#)) - #{rest\ 2754}#)) - #{tmp\ 2756}#) - ((lambda (#{_\ 2762}#) + (cons #{e1\ 1589}# + #{e2\ 1590}#)) + #{rest\ 1585}#)) + #{tmp\ 1587}#) + ((lambda (#{_\ 1593}#) (syntax-violation 'case "bad clause" - #{x\ 2728}# - #{clause\ 2738}#)) - #{tmp\ 2755}#))) + #{x\ 1559}# + #{clause\ 1569}#)) + #{tmp\ 1586}#))) ($sc-dispatch - #{tmp\ 2755}# + #{tmp\ 1586}# '(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\ 1569}#)) + #{tmp\ 1584}#)) + (#{f\ 1568}# + (car #{clauses\ 1570}#) + (cdr #{clauses\ 1570}#))))))) + (#{f\ 1568}# #{m1\ 1564}# #{m2\ 1565}#)))) + #{tmp\ 1561}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2729}#))) + #{tmp\ 1560}#))) ($sc-dispatch - #{tmp\ 2729}# + #{tmp\ 1560}# '(any any any . each-any)))) - #{x\ 2728}#)))) + #{x\ 1559}#)))) (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\ 1594}#) + ((lambda (#{tmp\ 1595}#) + ((lambda (#{tmp\ 1596}#) + (if #{tmp\ 1596}# + (apply (lambda (#{_\ 1597}# #{e\ 1598}#) (list '#(syntax-object lambda ((top) @@ -12071,8 +12095,8 @@ #((top)) #("i"))) (hygiene guile)) - #{e\ 2767}#)) - (list (cons #{_\ 2766}# + #{e\ 1598}#)) + (list (cons #{_\ 1597}# '(#(syntax-object x ((top) @@ -12112,7 +12136,7 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e\ 2767}# + (cons #{e\ 1598}# '(#(syntax-object x ((top) @@ -12140,11 +12164,11 @@ #("i"))) (hygiene guile))))))))) - #{tmp\ 2765}#) + #{tmp\ 1596}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2764}#))) - ($sc-dispatch #{tmp\ 2764}# (quote (any any))))) - #{x\ 2763}#)))) + #{tmp\ 1595}#))) + ($sc-dispatch #{tmp\ 1595}# (quote (any any))))) + #{x\ 1594}#)))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index cb90fcc17..789b51bec 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -514,7 +514,8 @@ (build-application src (build-lexical-reference 'fun src f-name f) val-exps)))) (else (decorate-source - `(let ,f ,(map list vars val-exps) ,body-exp) + `(letrec ((,f (lambda ,vars ,body-exp))) + (,f ,@val-exps)) src)))))) (define build-letrec |