diff options
| -rw-r--r-- | THANKS | 1 | ||||
| -rw-r--r-- | module/ice-9/psyntax-pp.scm | 15503 | ||||
| -rw-r--r-- | module/ice-9/psyntax.scm | 9 |
3 files changed, 7721 insertions, 7792 deletions
@@ -76,6 +76,7 @@ For fixes or providing information which led to a fix: Gregory Marton Kjetil S. Matheussen Antoine Mathys + Patrick McCarty Dan McMahill Roger Mc Murtrie Scott McPeak diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 27552523b..a95d966f1 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,618 +1,610 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 9214}# - (lambda (#{f\ 9276}# #{first\ 9277}# . #{rest\ 9278}#) - (let ((#{t\ 9284}# (null? #{first\ 9277}#))) - (if #{t\ 9284}# - #{t\ 9284}# - (if (null? #{rest\ 9278}#) - (letrec ((#{andmap\ 9288}# - (lambda (#{first\ 9289}#) - (let ((#{x\ 9292}# (car #{first\ 9289}#)) - (#{first\ 9293}# (cdr #{first\ 9289}#))) - (if (null? #{first\ 9293}#) - (#{f\ 9276}# #{x\ 9292}#) - (if (#{f\ 9276}# #{x\ 9292}#) - (#{andmap\ 9288}# #{first\ 9293}#) +(letrec ((#{and-map*\ 60}# + (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#) + (let ((#{t\ 130}# (null? #{first\ 123}#))) + (if #{t\ 130}# + #{t\ 130}# + (if (null? #{rest\ 124}#) + (letrec ((#{andmap\ 134}# + (lambda (#{first\ 135}#) + (let ((#{x\ 138}# (car #{first\ 135}#)) + (#{first\ 139}# (cdr #{first\ 135}#))) + (if (null? #{first\ 139}#) + (#{f\ 122}# #{x\ 138}#) + (if (#{f\ 122}# #{x\ 138}#) + (#{andmap\ 134}# #{first\ 139}#) #f)))))) - (#{andmap\ 9288}# #{first\ 9277}#)) - (letrec ((#{andmap\ 9299}# - (lambda (#{first\ 9300}# #{rest\ 9301}#) - (let ((#{x\ 9306}# (car #{first\ 9300}#)) - (#{xr\ 9307}# (map car #{rest\ 9301}#)) - (#{first\ 9308}# (cdr #{first\ 9300}#)) - (#{rest\ 9309}# - (map cdr #{rest\ 9301}#))) - (if (null? #{first\ 9308}#) - (apply #{f\ 9276}# - (cons #{x\ 9306}# #{xr\ 9307}#)) - (if (apply #{f\ 9276}# - (cons #{x\ 9306}# #{xr\ 9307}#)) - (#{andmap\ 9299}# - #{first\ 9308}# - #{rest\ 9309}#) + (#{andmap\ 134}# #{first\ 123}#)) + (letrec ((#{andmap\ 145}# + (lambda (#{first\ 146}# #{rest\ 147}#) + (let ((#{x\ 152}# (car #{first\ 146}#)) + (#{xr\ 153}# (map car #{rest\ 147}#)) + (#{first\ 154}# (cdr #{first\ 146}#)) + (#{rest\ 155}# (map cdr #{rest\ 147}#))) + (if (null? #{first\ 154}#) + (apply #{f\ 122}# + (cons #{x\ 152}# #{xr\ 153}#)) + (if (apply #{f\ 122}# + (cons #{x\ 152}# #{xr\ 153}#)) + (#{andmap\ 145}# + #{first\ 154}# + #{rest\ 155}#) #f)))))) - (#{andmap\ 9299}# #{first\ 9277}# #{rest\ 9278}#)))))))) - (letrec ((#{lambda-var-list\ 9529}# - (lambda (#{vars\ 9744}#) - (letrec ((#{lvl\ 9750}# - (lambda (#{vars\ 9751}# #{ls\ 9752}# #{w\ 9753}#) - (if (pair? #{vars\ 9751}#) - (#{lvl\ 9750}# - (cdr #{vars\ 9751}#) - (cons (#{wrap\ 9483}# - (car #{vars\ 9751}#) - #{w\ 9753}# + (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#)))))))) + (letrec ((#{lambda-var-list\ 375}# + (lambda (#{vars\ 590}#) + (letrec ((#{lvl\ 596}# + (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#) + (if (pair? #{vars\ 597}#) + (#{lvl\ 596}# + (cdr #{vars\ 597}#) + (cons (#{wrap\ 329}# + (car #{vars\ 597}#) + #{w\ 599}# #f) - #{ls\ 9752}#) - #{w\ 9753}#) - (if (#{id?\ 9414}# #{vars\ 9751}#) - (cons (#{wrap\ 9483}# - #{vars\ 9751}# - #{w\ 9753}# + #{ls\ 598}#) + #{w\ 599}#) + (if (#{id?\ 260}# #{vars\ 597}#) + (cons (#{wrap\ 329}# + #{vars\ 597}# + #{w\ 599}# #f) - #{ls\ 9752}#) - (if (null? #{vars\ 9751}#) - #{ls\ 9752}# - (if (#{syntax-object?\ 9378}# #{vars\ 9751}#) - (#{lvl\ 9750}# - (#{syntax-object-expression\ 9380}# - #{vars\ 9751}#) - #{ls\ 9752}# - (#{join-wraps\ 9465}# - #{w\ 9753}# - (#{syntax-object-wrap\ 9382}# - #{vars\ 9751}#))) - (cons #{vars\ 9751}# #{ls\ 9752}#)))))))) - (#{lvl\ 9750}# - #{vars\ 9744}# + #{ls\ 598}#) + (if (null? #{vars\ 597}#) + #{ls\ 598}# + (if (#{syntax-object?\ 224}# #{vars\ 597}#) + (#{lvl\ 596}# + (#{syntax-object-expression\ 226}# + #{vars\ 597}#) + #{ls\ 598}# + (#{join-wraps\ 311}# + #{w\ 599}# + (#{syntax-object-wrap\ 228}# + #{vars\ 597}#))) + (cons #{vars\ 597}# #{ls\ 598}#)))))))) + (#{lvl\ 596}# + #{vars\ 590}# '() '(()))))) - (#{gen-var\ 9527}# - (lambda (#{id\ 9764}#) - (let ((#{id\ 9767}# - (if (#{syntax-object?\ 9378}# #{id\ 9764}#) - (#{syntax-object-expression\ 9380}# #{id\ 9764}#) - #{id\ 9764}#))) + (#{gen-var\ 373}# + (lambda (#{id\ 610}#) + (let ((#{id\ 613}# + (if (#{syntax-object?\ 224}# #{id\ 610}#) + (#{syntax-object-expression\ 226}# #{id\ 610}#) + #{id\ 610}#))) (gensym - (string-append (symbol->string #{id\ 9767}#) " "))))) - (#{strip\ 9525}# - (lambda (#{x\ 9769}# #{w\ 9770}#) + (string-append (symbol->string #{id\ 613}#) " "))))) + (#{strip\ 371}# + (lambda (#{x\ 615}# #{w\ 616}#) (if (memq 'top - (#{wrap-marks\ 9421}# #{w\ 9770}#)) - #{x\ 9769}# - (letrec ((#{f\ 9776}# - (lambda (#{x\ 9777}#) - (if (#{syntax-object?\ 9378}# #{x\ 9777}#) - (#{strip\ 9525}# - (#{syntax-object-expression\ 9380}# - #{x\ 9777}#) - (#{syntax-object-wrap\ 9382}# #{x\ 9777}#)) - (if (pair? #{x\ 9777}#) - (let ((#{a\ 9784}# - (#{f\ 9776}# (car #{x\ 9777}#))) - (#{d\ 9785}# - (#{f\ 9776}# (cdr #{x\ 9777}#)))) - (if (if (eq? #{a\ 9784}# (car #{x\ 9777}#)) - (eq? #{d\ 9785}# (cdr #{x\ 9777}#)) - #f) - #{x\ 9777}# - (cons #{a\ 9784}# #{d\ 9785}#))) - (if (vector? #{x\ 9777}#) - (let ((#{old\ 9791}# - (vector->list #{x\ 9777}#))) - (let ((#{new\ 9793}# - (map #{f\ 9776}# #{old\ 9791}#))) - (if (#{and-map*\ 9214}# - eq? - #{old\ 9791}# - #{new\ 9793}#) - #{x\ 9777}# - (list->vector #{new\ 9793}#)))) - #{x\ 9777}#)))))) - (#{f\ 9776}# #{x\ 9769}#))))) - (#{chi-lambda-case\ 9523}# - (lambda (#{e\ 9795}# - #{r\ 9796}# - #{w\ 9797}# - #{s\ 9798}# - #{mod\ 9799}# - #{get-formals\ 9800}# - #{clauses\ 9801}#) - (letrec ((#{expand-body\ 9816}# - (lambda (#{req\ 9817}# - #{opt\ 9818}# - #{rest\ 9819}# - #{kw\ 9820}# - #{body\ 9821}# - #{vars\ 9822}# - #{r*\ 9823}# - #{w*\ 9824}# - #{inits\ 9825}#) - ((lambda (#{tmp\ 9835}#) - ((lambda (#{tmp\ 9836}#) - (if (if #{tmp\ 9836}# - (apply (lambda (#{docstring\ 9840}# - #{e1\ 9841}# - #{e2\ 9842}#) + (#{wrap-marks\ 267}# #{w\ 616}#)) + #{x\ 615}# + (letrec ((#{f\ 622}# (lambda (#{x\ 623}#) + (if (#{syntax-object?\ 224}# + #{x\ 623}#) + (#{strip\ 371}# + (#{syntax-object-expression\ 226}# + #{x\ 623}#) + (#{syntax-object-wrap\ 228}# + #{x\ 623}#)) + (if (pair? #{x\ 623}#) + (let ((#{a\ 630}# (#{f\ 622}# (car #{x\ 623}#))) + (#{d\ 631}# (#{f\ 622}# (cdr #{x\ 623}#)))) + (if (if (eq? #{a\ 630}# + (car #{x\ 623}#)) + (eq? #{d\ 631}# + (cdr #{x\ 623}#)) + #f) + #{x\ 623}# + (cons #{a\ 630}# #{d\ 631}#))) + (if (vector? #{x\ 623}#) + (let ((#{old\ 637}# + (vector->list + #{x\ 623}#))) + (let ((#{new\ 639}# + (map #{f\ 622}# + #{old\ 637}#))) + (if (#{and-map*\ 60}# + eq? + #{old\ 637}# + #{new\ 639}#) + #{x\ 623}# + (list->vector + #{new\ 639}#)))) + #{x\ 623}#)))))) + (#{f\ 622}# #{x\ 615}#))))) + (#{chi-lambda-case\ 369}# + (lambda (#{e\ 641}# + #{r\ 642}# + #{w\ 643}# + #{s\ 644}# + #{mod\ 645}# + #{get-formals\ 646}# + #{clauses\ 647}#) + (letrec ((#{expand-body\ 662}# + (lambda (#{req\ 663}# + #{opt\ 664}# + #{rest\ 665}# + #{kw\ 666}# + #{body\ 667}# + #{vars\ 668}# + #{r*\ 669}# + #{w*\ 670}# + #{inits\ 671}#) + ((lambda (#{tmp\ 681}#) + ((lambda (#{tmp\ 682}#) + (if (if #{tmp\ 682}# + (apply (lambda (#{docstring\ 686}# + #{e1\ 687}# + #{e2\ 688}#) (string? (syntax->datum - #{docstring\ 9840}#))) - #{tmp\ 9836}#) + #{docstring\ 686}#))) + #{tmp\ 682}#) #f) - (apply (lambda (#{docstring\ 9846}# - #{e1\ 9847}# - #{e2\ 9848}#) + (apply (lambda (#{docstring\ 692}# + #{e1\ 693}# + #{e2\ 694}#) (values (syntax->datum - #{docstring\ 9846}#) - #{req\ 9817}# - #{opt\ 9818}# - #{rest\ 9819}# - #{kw\ 9820}# - #{inits\ 9825}# - #{vars\ 9822}# - (#{chi-body\ 9507}# - (cons #{e1\ 9847}# - #{e2\ 9848}#) - (#{source-wrap\ 9485}# - #{e\ 9795}# - #{w\ 9797}# - #{s\ 9798}# - #{mod\ 9799}#) - #{r*\ 9823}# - #{w*\ 9824}# - #{mod\ 9799}#))) - #{tmp\ 9836}#) - ((lambda (#{tmp\ 9850}#) - (if #{tmp\ 9850}# - (apply (lambda (#{e1\ 9853}# - #{e2\ 9854}#) + #{docstring\ 692}#) + #{req\ 663}# + #{opt\ 664}# + #{rest\ 665}# + #{kw\ 666}# + #{inits\ 671}# + #{vars\ 668}# + (#{chi-body\ 353}# + (cons #{e1\ 693}# #{e2\ 694}#) + (#{source-wrap\ 331}# + #{e\ 641}# + #{w\ 643}# + #{s\ 644}# + #{mod\ 645}#) + #{r*\ 669}# + #{w*\ 670}# + #{mod\ 645}#))) + #{tmp\ 682}#) + ((lambda (#{tmp\ 696}#) + (if #{tmp\ 696}# + (apply (lambda (#{e1\ 699}# + #{e2\ 700}#) (values #f - #{req\ 9817}# - #{opt\ 9818}# - #{rest\ 9819}# - #{kw\ 9820}# - #{inits\ 9825}# - #{vars\ 9822}# - (#{chi-body\ 9507}# - (cons #{e1\ 9853}# - #{e2\ 9854}#) - (#{source-wrap\ 9485}# - #{e\ 9795}# - #{w\ 9797}# - #{s\ 9798}# - #{mod\ 9799}#) - #{r*\ 9823}# - #{w*\ 9824}# - #{mod\ 9799}#))) - #{tmp\ 9850}#) + #{req\ 663}# + #{opt\ 664}# + #{rest\ 665}# + #{kw\ 666}# + #{inits\ 671}# + #{vars\ 668}# + (#{chi-body\ 353}# + (cons #{e1\ 699}# + #{e2\ 700}#) + (#{source-wrap\ 331}# + #{e\ 641}# + #{w\ 643}# + #{s\ 644}# + #{mod\ 645}#) + #{r*\ 669}# + #{w*\ 670}# + #{mod\ 645}#))) + #{tmp\ 696}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9835}#))) + #{tmp\ 681}#))) ($sc-dispatch - #{tmp\ 9835}# + #{tmp\ 681}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 9835}# + #{tmp\ 681}# '(any any . each-any)))) - #{body\ 9821}#))) - (#{expand-kw\ 9814}# - (lambda (#{req\ 9856}# - #{opt\ 9857}# - #{rest\ 9858}# - #{kw\ 9859}# - #{body\ 9860}# - #{vars\ 9861}# - #{r*\ 9862}# - #{w*\ 9863}# - #{aok\ 9864}# - #{out\ 9865}# - #{inits\ 9866}#) - (if (pair? #{kw\ 9859}#) - ((lambda (#{tmp\ 9880}#) - ((lambda (#{tmp\ 9881}#) - (if #{tmp\ 9881}# - (apply (lambda (#{k\ 9885}# - #{id\ 9886}# - #{i\ 9887}#) - (let ((#{v\ 9890}# - (#{gen-var\ 9527}# - #{id\ 9886}#))) - (let ((#{l\ 9892}# - (#{gen-labels\ 9432}# - (list #{v\ 9890}#)))) - (let ((#{r**\ 9894}# - (#{extend-var-env\ 9404}# - #{l\ 9892}# - (list #{v\ 9890}#) - #{r*\ 9862}#))) - (let ((#{w**\ 9896}# - (#{make-binding-wrap\ 9461}# - (list #{id\ 9886}#) - #{l\ 9892}# - #{w*\ 9863}#))) - (#{expand-kw\ 9814}# - #{req\ 9856}# - #{opt\ 9857}# - #{rest\ 9858}# - (cdr #{kw\ 9859}#) - #{body\ 9860}# - (cons #{v\ 9890}# - #{vars\ 9861}#) - #{r**\ 9894}# - #{w**\ 9896}# - #{aok\ 9864}# + #{body\ 667}#))) + (#{expand-kw\ 660}# + (lambda (#{req\ 702}# + #{opt\ 703}# + #{rest\ 704}# + #{kw\ 705}# + #{body\ 706}# + #{vars\ 707}# + #{r*\ 708}# + #{w*\ 709}# + #{aok\ 710}# + #{out\ 711}# + #{inits\ 712}#) + (if (pair? #{kw\ 705}#) + ((lambda (#{tmp\ 726}#) + ((lambda (#{tmp\ 727}#) + (if #{tmp\ 727}# + (apply (lambda (#{k\ 731}# + #{id\ 732}# + #{i\ 733}#) + (let ((#{v\ 736}# (#{gen-var\ 373}# + #{id\ 732}#))) + (let ((#{l\ 738}# (#{gen-labels\ 278}# + (list #{v\ 736}#)))) + (let ((#{r**\ 740}# + (#{extend-var-env\ 250}# + #{l\ 738}# + (list #{v\ 736}#) + #{r*\ 708}#))) + (let ((#{w**\ 742}# + (#{make-binding-wrap\ 307}# + (list #{id\ 732}#) + #{l\ 738}# + #{w*\ 709}#))) + (#{expand-kw\ 660}# + #{req\ 702}# + #{opt\ 703}# + #{rest\ 704}# + (cdr #{kw\ 705}#) + #{body\ 706}# + (cons #{v\ 736}# + #{vars\ 707}#) + #{r**\ 740}# + #{w**\ 742}# + #{aok\ 710}# (cons (list (syntax->datum - #{k\ 9885}#) + #{k\ 731}#) (syntax->datum - #{id\ 9886}#) - #{v\ 9890}#) - #{out\ 9865}#) - (cons (#{chi\ 9499}# - #{i\ 9887}# - #{r*\ 9862}# - #{w*\ 9863}# - #{mod\ 9799}#) - #{inits\ 9866}#))))))) - #{tmp\ 9881}#) + #{id\ 732}#) + #{v\ 736}#) + #{out\ 711}#) + (cons (#{chi\ 345}# + #{i\ 733}# + #{r*\ 708}# + #{w*\ 709}# + #{mod\ 645}#) + #{inits\ 712}#))))))) + #{tmp\ 727}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9880}#))) + #{tmp\ 726}#))) ($sc-dispatch - #{tmp\ 9880}# + #{tmp\ 726}# '(any any any)))) - (car #{kw\ 9859}#)) - (#{expand-body\ 9816}# - #{req\ 9856}# - #{opt\ 9857}# - #{rest\ 9858}# - (if (let ((#{t\ 9900}# #{aok\ 9864}#)) - (if #{t\ 9900}# - #{t\ 9900}# - (pair? #{out\ 9865}#))) - (cons #{aok\ 9864}# (reverse #{out\ 9865}#)) + (car #{kw\ 705}#)) + (#{expand-body\ 662}# + #{req\ 702}# + #{opt\ 703}# + #{rest\ 704}# + (if (let ((#{t\ 746}# #{aok\ 710}#)) + (if #{t\ 746}# + #{t\ 746}# + (pair? #{out\ 711}#))) + (cons #{aok\ 710}# (reverse #{out\ 711}#)) #f) - #{body\ 9860}# - (reverse #{vars\ 9861}#) - #{r*\ 9862}# - #{w*\ 9863}# - (reverse #{inits\ 9866}#))))) - (#{expand-opt\ 9812}# - (lambda (#{req\ 9902}# - #{opt\ 9903}# - #{rest\ 9904}# - #{kw\ 9905}# - #{body\ 9906}# - #{vars\ 9907}# - #{r*\ 9908}# - #{w*\ 9909}# - #{out\ 9910}# - #{inits\ 9911}#) - (if (pair? #{opt\ 9903}#) - ((lambda (#{tmp\ 9924}#) - ((lambda (#{tmp\ 9925}#) - (if #{tmp\ 9925}# - (apply (lambda (#{id\ 9928}# #{i\ 9929}#) - (let ((#{v\ 9932}# - (#{gen-var\ 9527}# - #{id\ 9928}#))) - (let ((#{l\ 9934}# - (#{gen-labels\ 9432}# - (list #{v\ 9932}#)))) - (let ((#{r**\ 9936}# - (#{extend-var-env\ 9404}# - #{l\ 9934}# - (list #{v\ 9932}#) - #{r*\ 9908}#))) - (let ((#{w**\ 9938}# - (#{make-binding-wrap\ 9461}# - (list #{id\ 9928}#) - #{l\ 9934}# - #{w*\ 9909}#))) - (#{expand-opt\ 9812}# - #{req\ 9902}# - (cdr #{opt\ 9903}#) - #{rest\ 9904}# - #{kw\ 9905}# - #{body\ 9906}# - (cons #{v\ 9932}# - #{vars\ 9907}#) - #{r**\ 9936}# - #{w**\ 9938}# + #{body\ 706}# + (reverse #{vars\ 707}#) + #{r*\ 708}# + #{w*\ 709}# + (reverse #{inits\ 712}#))))) + (#{expand-opt\ 658}# + (lambda (#{req\ 748}# + #{opt\ 749}# + #{rest\ 750}# + #{kw\ 751}# + #{body\ 752}# + #{vars\ 753}# + #{r*\ 754}# + #{w*\ 755}# + #{out\ 756}# + #{inits\ 757}#) + (if (pair? #{opt\ 749}#) + ((lambda (#{tmp\ 770}#) + ((lambda (#{tmp\ 771}#) + (if #{tmp\ 771}# + (apply (lambda (#{id\ 774}# #{i\ 775}#) + (let ((#{v\ 778}# (#{gen-var\ 373}# + #{id\ 774}#))) + (let ((#{l\ 780}# (#{gen-labels\ 278}# + (list #{v\ 778}#)))) + (let ((#{r**\ 782}# + (#{extend-var-env\ 250}# + #{l\ 780}# + (list #{v\ 778}#) + #{r*\ 754}#))) + (let ((#{w**\ 784}# + (#{make-binding-wrap\ 307}# + (list #{id\ 774}#) + #{l\ 780}# + #{w*\ 755}#))) + (#{expand-opt\ 658}# + #{req\ 748}# + (cdr #{opt\ 749}#) + #{rest\ 750}# + #{kw\ 751}# + #{body\ 752}# + (cons #{v\ 778}# + #{vars\ 753}#) + #{r**\ 782}# + #{w**\ 784}# (cons (syntax->datum - #{id\ 9928}#) - #{out\ 9910}#) - (cons (#{chi\ 9499}# - #{i\ 9929}# - #{r*\ 9908}# - #{w*\ 9909}# - #{mod\ 9799}#) - #{inits\ 9911}#))))))) - #{tmp\ 9925}#) + #{id\ 774}#) + #{out\ 756}#) + (cons (#{chi\ 345}# + #{i\ 775}# + #{r*\ 754}# + #{w*\ 755}# + #{mod\ 645}#) + #{inits\ 757}#))))))) + #{tmp\ 771}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9924}#))) + #{tmp\ 770}#))) ($sc-dispatch - #{tmp\ 9924}# + #{tmp\ 770}# '(any any)))) - (car #{opt\ 9903}#)) - (if #{rest\ 9904}# - (let ((#{v\ 9943}# - (#{gen-var\ 9527}# #{rest\ 9904}#))) - (let ((#{l\ 9945}# - (#{gen-labels\ 9432}# - (list #{v\ 9943}#)))) - (let ((#{r*\ 9947}# - (#{extend-var-env\ 9404}# - #{l\ 9945}# - (list #{v\ 9943}#) - #{r*\ 9908}#))) - (let ((#{w*\ 9949}# - (#{make-binding-wrap\ 9461}# - (list #{rest\ 9904}#) - #{l\ 9945}# - #{w*\ 9909}#))) - (#{expand-kw\ 9814}# - #{req\ 9902}# - (if (pair? #{out\ 9910}#) - (reverse #{out\ 9910}#) + (car #{opt\ 749}#)) + (if #{rest\ 750}# + (let ((#{v\ 789}# (#{gen-var\ 373}# + #{rest\ 750}#))) + (let ((#{l\ 791}# (#{gen-labels\ 278}# + (list #{v\ 789}#)))) + (let ((#{r*\ 793}# + (#{extend-var-env\ 250}# + #{l\ 791}# + (list #{v\ 789}#) + #{r*\ 754}#))) + (let ((#{w*\ 795}# + (#{make-binding-wrap\ 307}# + (list #{rest\ 750}#) + #{l\ 791}# + #{w*\ 755}#))) + (#{expand-kw\ 660}# + #{req\ 748}# + (if (pair? #{out\ 756}#) + (reverse #{out\ 756}#) #f) - (syntax->datum #{rest\ 9904}#) - (if (pair? #{kw\ 9905}#) - (cdr #{kw\ 9905}#) - #{kw\ 9905}#) - #{body\ 9906}# - (cons #{v\ 9943}# #{vars\ 9907}#) - #{r*\ 9947}# - #{w*\ 9949}# - (if (pair? #{kw\ 9905}#) - (car #{kw\ 9905}#) + (syntax->datum #{rest\ 750}#) + (if (pair? #{kw\ 751}#) + (cdr #{kw\ 751}#) + #{kw\ 751}#) + #{body\ 752}# + (cons #{v\ 789}# #{vars\ 753}#) + #{r*\ 793}# + #{w*\ 795}# + (if (pair? #{kw\ 751}#) + (car #{kw\ 751}#) #f) '() - #{inits\ 9911}#))))) - (#{expand-kw\ 9814}# - #{req\ 9902}# - (if (pair? #{out\ 9910}#) - (reverse #{out\ 9910}#) + #{inits\ 757}#))))) + (#{expand-kw\ 660}# + #{req\ 748}# + (if (pair? #{out\ 756}#) + (reverse #{out\ 756}#) #f) #f - (if (pair? #{kw\ 9905}#) - (cdr #{kw\ 9905}#) - #{kw\ 9905}#) - #{body\ 9906}# - #{vars\ 9907}# - #{r*\ 9908}# - #{w*\ 9909}# - (if (pair? #{kw\ 9905}#) - (car #{kw\ 9905}#) - #f) + (if (pair? #{kw\ 751}#) + (cdr #{kw\ 751}#) + #{kw\ 751}#) + #{body\ 752}# + #{vars\ 753}# + #{r*\ 754}# + #{w*\ 755}# + (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f) '() - #{inits\ 9911}#))))) - (#{expand-req\ 9810}# - (lambda (#{req\ 9951}# - #{opt\ 9952}# - #{rest\ 9953}# - #{kw\ 9954}# - #{body\ 9955}#) - (let ((#{vars\ 9963}# - (map #{gen-var\ 9527}# #{req\ 9951}#)) - (#{labels\ 9964}# - (#{gen-labels\ 9432}# #{req\ 9951}#))) - (let ((#{r*\ 9967}# - (#{extend-var-env\ 9404}# - #{labels\ 9964}# - #{vars\ 9963}# - #{r\ 9796}#)) - (#{w*\ 9968}# - (#{make-binding-wrap\ 9461}# - #{req\ 9951}# - #{labels\ 9964}# - #{w\ 9797}#))) - (#{expand-opt\ 9812}# - (map syntax->datum #{req\ 9951}#) - #{opt\ 9952}# - #{rest\ 9953}# - #{kw\ 9954}# - #{body\ 9955}# - (reverse #{vars\ 9963}#) - #{r*\ 9967}# - #{w*\ 9968}# + #{inits\ 757}#))))) + (#{expand-req\ 656}# + (lambda (#{req\ 797}# + #{opt\ 798}# + #{rest\ 799}# + #{kw\ 800}# + #{body\ 801}#) + (let ((#{vars\ 809}# + (map #{gen-var\ 373}# #{req\ 797}#)) + (#{labels\ 810}# + (#{gen-labels\ 278}# #{req\ 797}#))) + (let ((#{r*\ 813}# + (#{extend-var-env\ 250}# + #{labels\ 810}# + #{vars\ 809}# + #{r\ 642}#)) + (#{w*\ 814}# + (#{make-binding-wrap\ 307}# + #{req\ 797}# + #{labels\ 810}# + #{w\ 643}#))) + (#{expand-opt\ 658}# + (map syntax->datum #{req\ 797}#) + #{opt\ 798}# + #{rest\ 799}# + #{kw\ 800}# + #{body\ 801}# + (reverse #{vars\ 809}#) + #{r*\ 813}# + #{w*\ 814}# '() '())))))) - ((lambda (#{tmp\ 9969}#) - ((lambda (#{tmp\ 9970}#) - (if #{tmp\ 9970}# - (apply (lambda () (values #f #f)) #{tmp\ 9970}#) - ((lambda (#{tmp\ 9971}#) - (if #{tmp\ 9971}# - (apply (lambda (#{args\ 9978}# - #{e1\ 9979}# - #{e2\ 9980}# - #{args*\ 9981}# - #{e1*\ 9982}# - #{e2*\ 9983}#) + ((lambda (#{tmp\ 815}#) + ((lambda (#{tmp\ 816}#) + (if #{tmp\ 816}# + (apply (lambda () (values #f #f)) #{tmp\ 816}#) + ((lambda (#{tmp\ 817}#) + (if #{tmp\ 817}# + (apply (lambda (#{args\ 824}# + #{e1\ 825}# + #{e2\ 826}# + #{args*\ 827}# + #{e1*\ 828}# + #{e2*\ 829}#) (call-with-values (lambda () - (#{get-formals\ 9800}# - #{args\ 9978}#)) - (lambda (#{req\ 9984}# - #{opt\ 9985}# - #{rest\ 9986}# - #{kw\ 9987}#) + (#{get-formals\ 646}# + #{args\ 824}#)) + (lambda (#{req\ 830}# + #{opt\ 831}# + #{rest\ 832}# + #{kw\ 833}#) (call-with-values (lambda () - (#{expand-req\ 9810}# - #{req\ 9984}# - #{opt\ 9985}# - #{rest\ 9986}# - #{kw\ 9987}# - (cons #{e1\ 9979}# - #{e2\ 9980}#))) - (lambda (#{docstring\ 9993}# - #{req\ 9994}# - #{opt\ 9995}# - #{rest\ 9996}# - #{kw\ 9997}# - #{inits\ 9998}# - #{vars\ 9999}# - #{body\ 10000}#) + (#{expand-req\ 656}# + #{req\ 830}# + #{opt\ 831}# + #{rest\ 832}# + #{kw\ 833}# + (cons #{e1\ 825}# + #{e2\ 826}#))) + (lambda (#{docstring\ 839}# + #{req\ 840}# + #{opt\ 841}# + #{rest\ 842}# + #{kw\ 843}# + #{inits\ 844}# + #{vars\ 845}# + #{body\ 846}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9523}# - #{e\ 9795}# - #{r\ 9796}# - #{w\ 9797}# - #{s\ 9798}# - #{mod\ 9799}# - #{get-formals\ 9800}# - (map (lambda (#{tmp\ 10011}# - #{tmp\ 10010}# - #{tmp\ 10009}#) - (cons #{tmp\ 10009}# - (cons #{tmp\ 10010}# - #{tmp\ 10011}#))) - #{e2*\ 9983}# - #{e1*\ 9982}# - #{args*\ 9981}#))) - (lambda (#{docstring*\ 10013}# - #{else*\ 10014}#) + (#{chi-lambda-case\ 369}# + #{e\ 641}# + #{r\ 642}# + #{w\ 643}# + #{s\ 644}# + #{mod\ 645}# + #{get-formals\ 646}# + (map (lambda (#{tmp\ 857}# + #{tmp\ 856}# + #{tmp\ 855}#) + (cons #{tmp\ 855}# + (cons #{tmp\ 856}# + #{tmp\ 857}#))) + #{e2*\ 829}# + #{e1*\ 828}# + #{args*\ 827}#))) + (lambda (#{docstring*\ 859}# + #{else*\ 860}#) (values - (let ((#{t\ 10019}# - #{docstring\ 9993}#)) - (if #{t\ 10019}# - #{t\ 10019}# - #{docstring*\ 10013}#)) - (#{build-lambda-case\ 9360}# - #{s\ 9798}# - #{req\ 9994}# - #{opt\ 9995}# - #{rest\ 9996}# - #{kw\ 9997}# - #{inits\ 9998}# - #{vars\ 9999}# - #{body\ 10000}# - #{else*\ 10014}#))))))))) - #{tmp\ 9971}#) + (let ((#{t\ 865}# #{docstring\ 839}#)) + (if #{t\ 865}# + #{t\ 865}# + #{docstring*\ 859}#)) + (#{build-lambda-case\ 206}# + #{s\ 644}# + #{req\ 840}# + #{opt\ 841}# + #{rest\ 842}# + #{kw\ 843}# + #{inits\ 844}# + #{vars\ 845}# + #{body\ 846}# + #{else*\ 860}#))))))))) + #{tmp\ 817}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9969}#))) + #{tmp\ 815}#))) ($sc-dispatch - #{tmp\ 9969}# + #{tmp\ 815}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 9969}# (quote ())))) - #{clauses\ 9801}#)))) - (#{lambda*-formals\ 9521}# - (lambda (#{orig-args\ 10021}#) - (letrec ((#{check\ 10032}# - (lambda (#{req\ 10033}# - #{opt\ 10034}# - #{rest\ 10035}# - #{kw\ 10036}#) - (if (#{distinct-bound-ids?\ 9479}# + ($sc-dispatch #{tmp\ 815}# (quote ())))) + #{clauses\ 647}#)))) + (#{lambda*-formals\ 367}# + (lambda (#{orig-args\ 867}#) + (letrec ((#{check\ 878}# + (lambda (#{req\ 879}# + #{opt\ 880}# + #{rest\ 881}# + #{kw\ 882}#) + (if (#{distinct-bound-ids?\ 325}# (append - #{req\ 10033}# - (map car #{opt\ 10034}#) - (if #{rest\ 10035}# - (list #{rest\ 10035}#) + #{req\ 879}# + (map car #{opt\ 880}#) + (if #{rest\ 881}# + (list #{rest\ 881}#) '()) - (if (pair? #{kw\ 10036}#) - (map cadr (cdr #{kw\ 10036}#)) + (if (pair? #{kw\ 882}#) + (map cadr (cdr #{kw\ 882}#)) '()))) (values - #{req\ 10033}# - #{opt\ 10034}# - #{rest\ 10035}# - #{kw\ 10036}#) + #{req\ 879}# + #{opt\ 880}# + #{rest\ 881}# + #{kw\ 882}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 10021}#)))) - (#{rest\ 10030}# - (lambda (#{args\ 10044}# - #{req\ 10045}# - #{opt\ 10046}# - #{kw\ 10047}#) - ((lambda (#{tmp\ 10052}#) - ((lambda (#{tmp\ 10053}#) - (if (if #{tmp\ 10053}# - (apply (lambda (#{r\ 10055}#) - (#{id?\ 9414}# #{r\ 10055}#)) - #{tmp\ 10053}#) + #{orig-args\ 867}#)))) + (#{rest\ 876}# + (lambda (#{args\ 890}# + #{req\ 891}# + #{opt\ 892}# + #{kw\ 893}#) + ((lambda (#{tmp\ 898}#) + ((lambda (#{tmp\ 899}#) + (if (if #{tmp\ 899}# + (apply (lambda (#{r\ 901}#) + (#{id?\ 260}# #{r\ 901}#)) + #{tmp\ 899}#) #f) - (apply (lambda (#{r\ 10057}#) - (#{check\ 10032}# - #{req\ 10045}# - #{opt\ 10046}# - #{r\ 10057}# - #{kw\ 10047}#)) - #{tmp\ 10053}#) - ((lambda (#{else\ 10059}#) + (apply (lambda (#{r\ 903}#) + (#{check\ 878}# + #{req\ 891}# + #{opt\ 892}# + #{r\ 903}# + #{kw\ 893}#)) + #{tmp\ 899}#) + ((lambda (#{else\ 905}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 10021}# - #{args\ 10044}#)) - #{tmp\ 10052}#))) - (list #{tmp\ 10052}#))) - #{args\ 10044}#))) - (#{key\ 10028}# - (lambda (#{args\ 10060}# - #{req\ 10061}# - #{opt\ 10062}# - #{rkey\ 10063}#) - ((lambda (#{tmp\ 10068}#) - ((lambda (#{tmp\ 10069}#) - (if #{tmp\ 10069}# + #{orig-args\ 867}# + #{args\ 890}#)) + #{tmp\ 898}#))) + (list #{tmp\ 898}#))) + #{args\ 890}#))) + (#{key\ 874}# + (lambda (#{args\ 906}# + #{req\ 907}# + #{opt\ 908}# + #{rkey\ 909}#) + ((lambda (#{tmp\ 914}#) + ((lambda (#{tmp\ 915}#) + (if #{tmp\ 915}# (apply (lambda () - (#{check\ 10032}# - #{req\ 10061}# - #{opt\ 10062}# + (#{check\ 878}# + #{req\ 907}# + #{opt\ 908}# #f (cons #f - (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10069}#) - ((lambda (#{tmp\ 10070}#) - (if (if #{tmp\ 10070}# - (apply (lambda (#{a\ 10073}# - #{b\ 10074}#) - (#{id?\ 9414}# - #{a\ 10073}#)) - #{tmp\ 10070}#) + (reverse #{rkey\ 909}#)))) + #{tmp\ 915}#) + ((lambda (#{tmp\ 916}#) + (if (if #{tmp\ 916}# + (apply (lambda (#{a\ 919}# + #{b\ 920}#) + (#{id?\ 260}# + #{a\ 919}#)) + #{tmp\ 916}#) #f) - (apply (lambda (#{a\ 10077}# - #{b\ 10078}#) - ((lambda (#{tmp\ 10080}#) - ((lambda (#{k\ 10082}#) - (#{key\ 10028}# - #{b\ 10078}# - #{req\ 10061}# - #{opt\ 10062}# - (cons (cons #{k\ 10082}# - (cons #{a\ 10077}# + (apply (lambda (#{a\ 923}# #{b\ 924}#) + ((lambda (#{tmp\ 926}#) + ((lambda (#{k\ 928}#) + (#{key\ 874}# + #{b\ 924}# + #{req\ 907}# + #{opt\ 908}# + (cons (cons #{k\ 928}# + (cons #{a\ 923}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i10081")) + #("i927")) #(ribcage #(a b) #((top) (top)) - #("i10075" - "i10076")) + #("i921" + "i922")) #(ribcage () () @@ -626,10 +618,10 @@ (top) (top) (top)) - #("i10064" - "i10065" - "i10066" - "i10067")) + #("i910" + "i911" + "i912" + "i913")) #(ribcage (check rest key @@ -640,15 +632,15 @@ (top) (top) (top)) - ("i10031" - "i10029" - "i10027" - "i10025" - "i10023")) + ("i877" + "i875" + "i873" + "i871" + "i869")) #(ribcage #(orig-args) #((top)) - #("i10022")) + #("i868")) #(ribcage (lambda-var-list gen-var @@ -884,351 +876,349 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile))))) - #{rkey\ 10063}#))) - #{tmp\ 10080}#)) + #{rkey\ 909}#))) + #{tmp\ 926}#)) (symbol->keyword (syntax->datum - #{a\ 10077}#)))) - #{tmp\ 10070}#) - ((lambda (#{tmp\ 10083}#) - (if (if #{tmp\ 10083}# - (apply (lambda (#{a\ 10087}# - #{init\ 10088}# - #{b\ 10089}#) - (#{id?\ 9414}# - #{a\ 10087}#)) - #{tmp\ 10083}#) + #{a\ 923}#)))) + #{tmp\ 916}#) + ((lambda (#{tmp\ 929}#) + (if (if #{tmp\ 929}# + (apply (lambda (#{a\ 933}# + #{init\ 934}# + #{b\ 935}#) + (#{id?\ 260}# + #{a\ 933}#)) + #{tmp\ 929}#) #f) - (apply (lambda (#{a\ 10093}# - #{init\ 10094}# - #{b\ 10095}#) - ((lambda (#{tmp\ 10097}#) - ((lambda (#{k\ 10099}#) - (#{key\ 10028}# - #{b\ 10095}# - #{req\ 10061}# - #{opt\ 10062}# - (cons (list #{k\ 10099}# - #{a\ 10093}# - #{init\ 10094}#) - #{rkey\ 10063}#))) - #{tmp\ 10097}#)) + (apply (lambda (#{a\ 939}# + #{init\ 940}# + #{b\ 941}#) + ((lambda (#{tmp\ 943}#) + ((lambda (#{k\ 945}#) + (#{key\ 874}# + #{b\ 941}# + #{req\ 907}# + #{opt\ 908}# + (cons (list #{k\ 945}# + #{a\ 939}# + #{init\ 940}#) + #{rkey\ 909}#))) + #{tmp\ 943}#)) (symbol->keyword (syntax->datum - #{a\ 10093}#)))) - #{tmp\ 10083}#) - ((lambda (#{tmp\ 10100}#) - (if (if #{tmp\ 10100}# - (apply (lambda (#{a\ 10105}# - #{init\ 10106}# - #{k\ 10107}# - #{b\ 10108}#) - (if (#{id?\ 9414}# - #{a\ 10105}#) + #{a\ 939}#)))) + #{tmp\ 929}#) + ((lambda (#{tmp\ 946}#) + (if (if #{tmp\ 946}# + (apply (lambda (#{a\ 951}# + #{init\ 952}# + #{k\ 953}# + #{b\ 954}#) + (if (#{id?\ 260}# + #{a\ 951}#) (keyword? (syntax->datum - #{k\ 10107}#)) + #{k\ 953}#)) #f)) - #{tmp\ 10100}#) + #{tmp\ 946}#) #f) - (apply (lambda (#{a\ 10115}# - #{init\ 10116}# - #{k\ 10117}# - #{b\ 10118}#) - (#{key\ 10028}# - #{b\ 10118}# - #{req\ 10061}# - #{opt\ 10062}# - (cons (list #{k\ 10117}# - #{a\ 10115}# - #{init\ 10116}#) - #{rkey\ 10063}#))) - #{tmp\ 10100}#) - ((lambda (#{tmp\ 10119}#) - (if (if #{tmp\ 10119}# - (apply (lambda (#{aok\ 10121}#) + (apply (lambda (#{a\ 961}# + #{init\ 962}# + #{k\ 963}# + #{b\ 964}#) + (#{key\ 874}# + #{b\ 964}# + #{req\ 907}# + #{opt\ 908}# + (cons (list #{k\ 963}# + #{a\ 961}# + #{init\ 962}#) + #{rkey\ 909}#))) + #{tmp\ 946}#) + ((lambda (#{tmp\ 965}#) + (if (if #{tmp\ 965}# + (apply (lambda (#{aok\ 967}#) (eq? (syntax->datum - #{aok\ 10121}#) + #{aok\ 967}#) #:allow-other-keys)) - #{tmp\ 10119}#) + #{tmp\ 965}#) #f) - (apply (lambda (#{aok\ 10123}#) - (#{check\ 10032}# - #{req\ 10061}# - #{opt\ 10062}# + (apply (lambda (#{aok\ 969}#) + (#{check\ 878}# + #{req\ 907}# + #{opt\ 908}# #f (cons #t (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10119}#) - ((lambda (#{tmp\ 10124}#) - (if (if #{tmp\ 10124}# - (apply (lambda (#{aok\ 10128}# - #{a\ 10129}# - #{b\ 10130}#) + #{rkey\ 909}#)))) + #{tmp\ 965}#) + ((lambda (#{tmp\ 970}#) + (if (if #{tmp\ 970}# + (apply (lambda (#{aok\ 974}# + #{a\ 975}# + #{b\ 976}#) (if (eq? (syntax->datum - #{aok\ 10128}#) + #{aok\ 974}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 10129}#) + #{a\ 975}#) #:rest) #f)) - #{tmp\ 10124}#) + #{tmp\ 970}#) #f) - (apply (lambda (#{aok\ 10136}# - #{a\ 10137}# - #{b\ 10138}#) - (#{rest\ 10030}# - #{b\ 10138}# - #{req\ 10061}# - #{opt\ 10062}# + (apply (lambda (#{aok\ 982}# + #{a\ 983}# + #{b\ 984}#) + (#{rest\ 876}# + #{b\ 984}# + #{req\ 907}# + #{opt\ 908}# (cons #t (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10124}#) - ((lambda (#{tmp\ 10139}#) - (if (if #{tmp\ 10139}# - (apply (lambda (#{aok\ 10142}# - #{r\ 10143}#) + #{rkey\ 909}#)))) + #{tmp\ 970}#) + ((lambda (#{tmp\ 985}#) + (if (if #{tmp\ 985}# + (apply (lambda (#{aok\ 988}# + #{r\ 989}#) (if (eq? (syntax->datum - #{aok\ 10142}#) + #{aok\ 988}#) #:allow-other-keys) - (#{id?\ 9414}# - #{r\ 10143}#) + (#{id?\ 260}# + #{r\ 989}#) #f)) - #{tmp\ 10139}#) + #{tmp\ 985}#) #f) - (apply (lambda (#{aok\ 10148}# - #{r\ 10149}#) - (#{rest\ 10030}# - #{r\ 10149}# - #{req\ 10061}# - #{opt\ 10062}# + (apply (lambda (#{aok\ 994}# + #{r\ 995}#) + (#{rest\ 876}# + #{r\ 995}# + #{req\ 907}# + #{opt\ 908}# (cons #t (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10139}#) - ((lambda (#{tmp\ 10150}#) - (if (if #{tmp\ 10150}# - (apply (lambda (#{a\ 10153}# - #{b\ 10154}#) + #{rkey\ 909}#)))) + #{tmp\ 985}#) + ((lambda (#{tmp\ 996}#) + (if (if #{tmp\ 996}# + (apply (lambda (#{a\ 999}# + #{b\ 1000}#) (eq? (syntax->datum - #{a\ 10153}#) + #{a\ 999}#) #:rest)) - #{tmp\ 10150}#) + #{tmp\ 996}#) #f) - (apply (lambda (#{a\ 10157}# - #{b\ 10158}#) - (#{rest\ 10030}# - #{b\ 10158}# - #{req\ 10061}# - #{opt\ 10062}# + (apply (lambda (#{a\ 1003}# + #{b\ 1004}#) + (#{rest\ 876}# + #{b\ 1004}# + #{req\ 907}# + #{opt\ 908}# (cons #f (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10150}#) - ((lambda (#{tmp\ 10159}#) - (if (if #{tmp\ 10159}# - (apply (lambda (#{r\ 10161}#) - (#{id?\ 9414}# - #{r\ 10161}#)) - #{tmp\ 10159}#) + #{rkey\ 909}#)))) + #{tmp\ 996}#) + ((lambda (#{tmp\ 1005}#) + (if (if #{tmp\ 1005}# + (apply (lambda (#{r\ 1007}#) + (#{id?\ 260}# + #{r\ 1007}#)) + #{tmp\ 1005}#) #f) - (apply (lambda (#{r\ 10163}#) - (#{rest\ 10030}# - #{r\ 10163}# - #{req\ 10061}# - #{opt\ 10062}# + (apply (lambda (#{r\ 1009}#) + (#{rest\ 876}# + #{r\ 1009}# + #{req\ 907}# + #{opt\ 908}# (cons #f (reverse - #{rkey\ 10063}#)))) - #{tmp\ 10159}#) - ((lambda (#{else\ 10165}#) + #{rkey\ 909}#)))) + #{tmp\ 1005}#) + ((lambda (#{else\ 1011}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 10021}# - #{args\ 10060}#)) - #{tmp\ 10068}#))) - (list #{tmp\ 10068}#)))) + #{orig-args\ 867}# + #{args\ 906}#)) + #{tmp\ 914}#))) + (list #{tmp\ 914}#)))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '(any any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '(any . any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '(any any any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '(any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 10068}# + #{tmp\ 914}# '(any . any))))) - ($sc-dispatch #{tmp\ 10068}# (quote ())))) - #{args\ 10060}#))) - (#{opt\ 10026}# - (lambda (#{args\ 10166}# - #{req\ 10167}# - #{ropt\ 10168}#) - ((lambda (#{tmp\ 10172}#) - ((lambda (#{tmp\ 10173}#) - (if #{tmp\ 10173}# + ($sc-dispatch #{tmp\ 914}# (quote ())))) + #{args\ 906}#))) + (#{opt\ 872}# + (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#) + ((lambda (#{tmp\ 1018}#) + ((lambda (#{tmp\ 1019}#) + (if #{tmp\ 1019}# (apply (lambda () - (#{check\ 10032}# - #{req\ 10167}# - (reverse #{ropt\ 10168}#) + (#{check\ 878}# + #{req\ 1013}# + (reverse #{ropt\ 1014}#) #f '())) - #{tmp\ 10173}#) - ((lambda (#{tmp\ 10174}#) - (if (if #{tmp\ 10174}# - (apply (lambda (#{a\ 10177}# - #{b\ 10178}#) - (#{id?\ 9414}# - #{a\ 10177}#)) - #{tmp\ 10174}#) + #{tmp\ 1019}#) + ((lambda (#{tmp\ 1020}#) + (if (if #{tmp\ 1020}# + (apply (lambda (#{a\ 1023}# + #{b\ 1024}#) + (#{id?\ 260}# + #{a\ 1023}#)) + #{tmp\ 1020}#) #f) - (apply (lambda (#{a\ 10181}# - #{b\ 10182}#) - (#{opt\ 10026}# - #{b\ 10182}# - #{req\ 10167}# - (cons (cons #{a\ 10181}# + (apply (lambda (#{a\ 1027}# + #{b\ 1028}#) + (#{opt\ 872}# + #{b\ 1028}# + #{req\ 1013}# + (cons (cons #{a\ 1027}# '(#(syntax-object #f ((top) @@ -1236,8 +1226,8 @@ #(a b) #((top) (top)) - #("i10179" - "i10180")) + #("i1025" + "i1026")) #(ribcage () () @@ -1249,9 +1239,9 @@ #((top) (top) (top)) - #("i10169" - "i10170" - "i10171")) + #("i1015" + "i1016" + "i1017")) #(ribcage (check rest key @@ -1262,15 +1252,15 @@ (top) (top) (top)) - ("i10031" - "i10029" - "i10027" - "i10025" - "i10023")) + ("i877" + "i875" + "i873" + "i871" + "i869")) #(ribcage #(orig-args) #((top)) - #("i10022")) + #("i868")) #(ribcage (lambda-var-list gen-var @@ -1506,462 +1496,462 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile)))) - #{ropt\ 10168}#))) - #{tmp\ 10174}#) - ((lambda (#{tmp\ 10183}#) - (if (if #{tmp\ 10183}# - (apply (lambda (#{a\ 10187}# - #{init\ 10188}# - #{b\ 10189}#) - (#{id?\ 9414}# - #{a\ 10187}#)) - #{tmp\ 10183}#) + #{ropt\ 1014}#))) + #{tmp\ 1020}#) + ((lambda (#{tmp\ 1029}#) + (if (if #{tmp\ 1029}# + (apply (lambda (#{a\ 1033}# + #{init\ 1034}# + #{b\ 1035}#) + (#{id?\ 260}# + #{a\ 1033}#)) + #{tmp\ 1029}#) #f) - (apply (lambda (#{a\ 10193}# - #{init\ 10194}# - #{b\ 10195}#) - (#{opt\ 10026}# - #{b\ 10195}# - #{req\ 10167}# - (cons (list #{a\ 10193}# - #{init\ 10194}#) - #{ropt\ 10168}#))) - #{tmp\ 10183}#) - ((lambda (#{tmp\ 10196}#) - (if (if #{tmp\ 10196}# - (apply (lambda (#{a\ 10199}# - #{b\ 10200}#) + (apply (lambda (#{a\ 1039}# + #{init\ 1040}# + #{b\ 1041}#) + (#{opt\ 872}# + #{b\ 1041}# + #{req\ 1013}# + (cons (list #{a\ 1039}# + #{init\ 1040}#) + #{ropt\ 1014}#))) + #{tmp\ 1029}#) + ((lambda (#{tmp\ 1042}#) + (if (if #{tmp\ 1042}# + (apply (lambda (#{a\ 1045}# + #{b\ 1046}#) (eq? (syntax->datum - #{a\ 10199}#) + #{a\ 1045}#) #:key)) - #{tmp\ 10196}#) + #{tmp\ 1042}#) #f) - (apply (lambda (#{a\ 10203}# - #{b\ 10204}#) - (#{key\ 10028}# - #{b\ 10204}# - #{req\ 10167}# + (apply (lambda (#{a\ 1049}# + #{b\ 1050}#) + (#{key\ 874}# + #{b\ 1050}# + #{req\ 1013}# (reverse - #{ropt\ 10168}#) + #{ropt\ 1014}#) '())) - #{tmp\ 10196}#) - ((lambda (#{tmp\ 10205}#) - (if (if #{tmp\ 10205}# - (apply (lambda (#{a\ 10208}# - #{b\ 10209}#) + #{tmp\ 1042}#) + ((lambda (#{tmp\ 1051}#) + (if (if #{tmp\ 1051}# + (apply (lambda (#{a\ 1054}# + #{b\ 1055}#) (eq? (syntax->datum - #{a\ 10208}#) + #{a\ 1054}#) #:rest)) - #{tmp\ 10205}#) + #{tmp\ 1051}#) #f) - (apply (lambda (#{a\ 10212}# - #{b\ 10213}#) - (#{rest\ 10030}# - #{b\ 10213}# - #{req\ 10167}# + (apply (lambda (#{a\ 1058}# + #{b\ 1059}#) + (#{rest\ 876}# + #{b\ 1059}# + #{req\ 1013}# (reverse - #{ropt\ 10168}#) + #{ropt\ 1014}#) '())) - #{tmp\ 10205}#) - ((lambda (#{tmp\ 10214}#) - (if (if #{tmp\ 10214}# - (apply (lambda (#{r\ 10216}#) - (#{id?\ 9414}# - #{r\ 10216}#)) - #{tmp\ 10214}#) + #{tmp\ 1051}#) + ((lambda (#{tmp\ 1060}#) + (if (if #{tmp\ 1060}# + (apply (lambda (#{r\ 1062}#) + (#{id?\ 260}# + #{r\ 1062}#)) + #{tmp\ 1060}#) #f) - (apply (lambda (#{r\ 10218}#) - (#{rest\ 10030}# - #{r\ 10218}# - #{req\ 10167}# + (apply (lambda (#{r\ 1064}#) + (#{rest\ 876}# + #{r\ 1064}# + #{req\ 1013}# (reverse - #{ropt\ 10168}#) + #{ropt\ 1014}#) '())) - #{tmp\ 10214}#) - ((lambda (#{else\ 10220}#) + #{tmp\ 1060}#) + ((lambda (#{else\ 1066}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 10021}# - #{args\ 10166}#)) - #{tmp\ 10172}#))) - (list #{tmp\ 10172}#)))) + #{orig-args\ 867}# + #{args\ 1012}#)) + #{tmp\ 1018}#))) + (list #{tmp\ 1018}#)))) ($sc-dispatch - #{tmp\ 10172}# + #{tmp\ 1018}# '(any any))))) ($sc-dispatch - #{tmp\ 10172}# + #{tmp\ 1018}# '(any . any))))) ($sc-dispatch - #{tmp\ 10172}# + #{tmp\ 1018}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 10172}# + #{tmp\ 1018}# '(any . any))))) - ($sc-dispatch #{tmp\ 10172}# (quote ())))) - #{args\ 10166}#))) - (#{req\ 10024}# - (lambda (#{args\ 10221}# #{rreq\ 10222}#) - ((lambda (#{tmp\ 10225}#) - ((lambda (#{tmp\ 10226}#) - (if #{tmp\ 10226}# + ($sc-dispatch #{tmp\ 1018}# (quote ())))) + #{args\ 1012}#))) + (#{req\ 870}# + (lambda (#{args\ 1067}# #{rreq\ 1068}#) + ((lambda (#{tmp\ 1071}#) + ((lambda (#{tmp\ 1072}#) + (if #{tmp\ 1072}# (apply (lambda () - (#{check\ 10032}# - (reverse #{rreq\ 10222}#) + (#{check\ 878}# + (reverse #{rreq\ 1068}#) '() #f '())) - #{tmp\ 10226}#) - ((lambda (#{tmp\ 10227}#) - (if (if #{tmp\ 10227}# - (apply (lambda (#{a\ 10230}# - #{b\ 10231}#) - (#{id?\ 9414}# - #{a\ 10230}#)) - #{tmp\ 10227}#) + #{tmp\ 1072}#) + ((lambda (#{tmp\ 1073}#) + (if (if #{tmp\ 1073}# + (apply (lambda (#{a\ 1076}# + #{b\ 1077}#) + (#{id?\ 260}# + #{a\ 1076}#)) + #{tmp\ 1073}#) #f) - (apply (lambda (#{a\ 10234}# - #{b\ 10235}#) - (#{req\ 10024}# - #{b\ 10235}# - (cons #{a\ 10234}# - #{rreq\ 10222}#))) - #{tmp\ 10227}#) - ((lambda (#{tmp\ 10236}#) - (if (if #{tmp\ 10236}# - (apply (lambda (#{a\ 10239}# - #{b\ 10240}#) + (apply (lambda (#{a\ 1080}# + #{b\ 1081}#) + (#{req\ 870}# + #{b\ 1081}# + (cons #{a\ 1080}# + #{rreq\ 1068}#))) + #{tmp\ 1073}#) + ((lambda (#{tmp\ 1082}#) + (if (if #{tmp\ 1082}# + (apply (lambda (#{a\ 1085}# + #{b\ 1086}#) (eq? (syntax->datum - #{a\ 10239}#) + #{a\ 1085}#) #:optional)) - #{tmp\ 10236}#) + #{tmp\ 1082}#) #f) - (apply (lambda (#{a\ 10243}# - #{b\ 10244}#) - (#{opt\ 10026}# - #{b\ 10244}# + (apply (lambda (#{a\ 1089}# + #{b\ 1090}#) + (#{opt\ 872}# + #{b\ 1090}# (reverse - #{rreq\ 10222}#) + #{rreq\ 1068}#) '())) - #{tmp\ 10236}#) - ((lambda (#{tmp\ 10245}#) - (if (if #{tmp\ 10245}# - (apply (lambda (#{a\ 10248}# - #{b\ 10249}#) + #{tmp\ 1082}#) + ((lambda (#{tmp\ 1091}#) + (if (if #{tmp\ 1091}# + (apply (lambda (#{a\ 1094}# + #{b\ 1095}#) (eq? (syntax->datum - #{a\ 10248}#) + #{a\ 1094}#) #:key)) - #{tmp\ 10245}#) + #{tmp\ 1091}#) #f) - (apply (lambda (#{a\ 10252}# - #{b\ 10253}#) - (#{key\ 10028}# - #{b\ 10253}# + (apply (lambda (#{a\ 1098}# + #{b\ 1099}#) + (#{key\ 874}# + #{b\ 1099}# (reverse - #{rreq\ 10222}#) + #{rreq\ 1068}#) '() '())) - #{tmp\ 10245}#) - ((lambda (#{tmp\ 10254}#) - (if (if #{tmp\ 10254}# - (apply (lambda (#{a\ 10257}# - #{b\ 10258}#) + #{tmp\ 1091}#) + ((lambda (#{tmp\ 1100}#) + (if (if #{tmp\ 1100}# + (apply (lambda (#{a\ 1103}# + #{b\ 1104}#) (eq? (syntax->datum - #{a\ 10257}#) + #{a\ 1103}#) #:rest)) - #{tmp\ 10254}#) + #{tmp\ 1100}#) #f) - (apply (lambda (#{a\ 10261}# - #{b\ 10262}#) - (#{rest\ 10030}# - #{b\ 10262}# + (apply (lambda (#{a\ 1107}# + #{b\ 1108}#) + (#{rest\ 876}# + #{b\ 1108}# (reverse - #{rreq\ 10222}#) + #{rreq\ 1068}#) '() '())) - #{tmp\ 10254}#) - ((lambda (#{tmp\ 10263}#) - (if (if #{tmp\ 10263}# - (apply (lambda (#{r\ 10265}#) - (#{id?\ 9414}# - #{r\ 10265}#)) - #{tmp\ 10263}#) + #{tmp\ 1100}#) + ((lambda (#{tmp\ 1109}#) + (if (if #{tmp\ 1109}# + (apply (lambda (#{r\ 1111}#) + (#{id?\ 260}# + #{r\ 1111}#)) + #{tmp\ 1109}#) #f) - (apply (lambda (#{r\ 10267}#) - (#{rest\ 10030}# - #{r\ 10267}# + (apply (lambda (#{r\ 1113}#) + (#{rest\ 876}# + #{r\ 1113}# (reverse - #{rreq\ 10222}#) + #{rreq\ 1068}#) '() '())) - #{tmp\ 10263}#) - ((lambda (#{else\ 10269}#) + #{tmp\ 1109}#) + ((lambda (#{else\ 1115}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 10021}# - #{args\ 10221}#)) - #{tmp\ 10225}#))) - (list #{tmp\ 10225}#)))) + #{orig-args\ 867}# + #{args\ 1067}#)) + #{tmp\ 1071}#))) + (list #{tmp\ 1071}#)))) ($sc-dispatch - #{tmp\ 10225}# + #{tmp\ 1071}# '(any any))))) ($sc-dispatch - #{tmp\ 10225}# + #{tmp\ 1071}# '(any . any))))) ($sc-dispatch - #{tmp\ 10225}# + #{tmp\ 1071}# '(any . any))))) ($sc-dispatch - #{tmp\ 10225}# + #{tmp\ 1071}# '(any . any))))) - ($sc-dispatch #{tmp\ 10225}# (quote ())))) - #{args\ 10221}#)))) - (#{req\ 10024}# #{orig-args\ 10021}# (quote ()))))) - (#{chi-simple-lambda\ 9519}# - (lambda (#{e\ 10270}# - #{r\ 10271}# - #{w\ 10272}# - #{s\ 10273}# - #{mod\ 10274}# - #{req\ 10275}# - #{rest\ 10276}# - #{docstring\ 10277}# - #{body\ 10278}#) - (let ((#{ids\ 10290}# - (if #{rest\ 10276}# - (append #{req\ 10275}# (list #{rest\ 10276}#)) - #{req\ 10275}#))) - (let ((#{vars\ 10292}# - (map #{gen-var\ 9527}# #{ids\ 10290}#))) - (let ((#{labels\ 10294}# - (#{gen-labels\ 9432}# #{ids\ 10290}#))) - (#{build-simple-lambda\ 9356}# - #{s\ 10273}# - (map syntax->datum #{req\ 10275}#) - (if #{rest\ 10276}# - (syntax->datum #{rest\ 10276}#) + ($sc-dispatch #{tmp\ 1071}# (quote ())))) + #{args\ 1067}#)))) + (#{req\ 870}# #{orig-args\ 867}# (quote ()))))) + (#{chi-simple-lambda\ 365}# + (lambda (#{e\ 1116}# + #{r\ 1117}# + #{w\ 1118}# + #{s\ 1119}# + #{mod\ 1120}# + #{req\ 1121}# + #{rest\ 1122}# + #{docstring\ 1123}# + #{body\ 1124}#) + (let ((#{ids\ 1136}# + (if #{rest\ 1122}# + (append #{req\ 1121}# (list #{rest\ 1122}#)) + #{req\ 1121}#))) + (let ((#{vars\ 1138}# + (map #{gen-var\ 373}# #{ids\ 1136}#))) + (let ((#{labels\ 1140}# + (#{gen-labels\ 278}# #{ids\ 1136}#))) + (#{build-simple-lambda\ 202}# + #{s\ 1119}# + (map syntax->datum #{req\ 1121}#) + (if #{rest\ 1122}# + (syntax->datum #{rest\ 1122}#) #f) - #{vars\ 10292}# - #{docstring\ 10277}# - (#{chi-body\ 9507}# - #{body\ 10278}# - (#{source-wrap\ 9485}# - #{e\ 10270}# - #{w\ 10272}# - #{s\ 10273}# - #{mod\ 10274}#) - (#{extend-var-env\ 9404}# - #{labels\ 10294}# - #{vars\ 10292}# - #{r\ 10271}#) - (#{make-binding-wrap\ 9461}# - #{ids\ 10290}# - #{labels\ 10294}# - #{w\ 10272}#) - #{mod\ 10274}#))))))) - (#{lambda-formals\ 9517}# - (lambda (#{orig-args\ 10297}#) - (letrec ((#{check\ 10302}# - (lambda (#{req\ 10303}# #{rest\ 10304}#) - (if (#{distinct-bound-ids?\ 9479}# - (if #{rest\ 10304}# - (cons #{rest\ 10304}# #{req\ 10303}#) - #{req\ 10303}#)) - (values #{req\ 10303}# #f #{rest\ 10304}# #f) + #{vars\ 1138}# + #{docstring\ 1123}# + (#{chi-body\ 353}# + #{body\ 1124}# + (#{source-wrap\ 331}# + #{e\ 1116}# + #{w\ 1118}# + #{s\ 1119}# + #{mod\ 1120}#) + (#{extend-var-env\ 250}# + #{labels\ 1140}# + #{vars\ 1138}# + #{r\ 1117}#) + (#{make-binding-wrap\ 307}# + #{ids\ 1136}# + #{labels\ 1140}# + #{w\ 1118}#) + #{mod\ 1120}#))))))) + (#{lambda-formals\ 363}# + (lambda (#{orig-args\ 1143}#) + (letrec ((#{check\ 1148}# + (lambda (#{req\ 1149}# #{rest\ 1150}#) + (if (#{distinct-bound-ids?\ 325}# + (if #{rest\ 1150}# + (cons #{rest\ 1150}# #{req\ 1149}#) + #{req\ 1149}#)) + (values #{req\ 1149}# #f #{rest\ 1150}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 10297}#)))) - (#{req\ 10300}# - (lambda (#{args\ 10310}# #{rreq\ 10311}#) - ((lambda (#{tmp\ 10314}#) - ((lambda (#{tmp\ 10315}#) - (if #{tmp\ 10315}# + #{orig-args\ 1143}#)))) + (#{req\ 1146}# + (lambda (#{args\ 1156}# #{rreq\ 1157}#) + ((lambda (#{tmp\ 1160}#) + ((lambda (#{tmp\ 1161}#) + (if #{tmp\ 1161}# (apply (lambda () - (#{check\ 10302}# - (reverse #{rreq\ 10311}#) + (#{check\ 1148}# + (reverse #{rreq\ 1157}#) #f)) - #{tmp\ 10315}#) - ((lambda (#{tmp\ 10316}#) - (if (if #{tmp\ 10316}# - (apply (lambda (#{a\ 10319}# - #{b\ 10320}#) - (#{id?\ 9414}# - #{a\ 10319}#)) - #{tmp\ 10316}#) + #{tmp\ 1161}#) + ((lambda (#{tmp\ 1162}#) + (if (if #{tmp\ 1162}# + (apply (lambda (#{a\ 1165}# + #{b\ 1166}#) + (#{id?\ 260}# + #{a\ 1165}#)) + #{tmp\ 1162}#) #f) - (apply (lambda (#{a\ 10323}# - #{b\ 10324}#) - (#{req\ 10300}# - #{b\ 10324}# - (cons #{a\ 10323}# - #{rreq\ 10311}#))) - #{tmp\ 10316}#) - ((lambda (#{tmp\ 10325}#) - (if (if #{tmp\ 10325}# - (apply (lambda (#{r\ 10327}#) - (#{id?\ 9414}# - #{r\ 10327}#)) - #{tmp\ 10325}#) + (apply (lambda (#{a\ 1169}# + #{b\ 1170}#) + (#{req\ 1146}# + #{b\ 1170}# + (cons #{a\ 1169}# + #{rreq\ 1157}#))) + #{tmp\ 1162}#) + ((lambda (#{tmp\ 1171}#) + (if (if #{tmp\ 1171}# + (apply (lambda (#{r\ 1173}#) + (#{id?\ 260}# + #{r\ 1173}#)) + #{tmp\ 1171}#) #f) - (apply (lambda (#{r\ 10329}#) - (#{check\ 10302}# + (apply (lambda (#{r\ 1175}#) + (#{check\ 1148}# (reverse - #{rreq\ 10311}#) - #{r\ 10329}#)) - #{tmp\ 10325}#) - ((lambda (#{else\ 10331}#) + #{rreq\ 1157}#) + #{r\ 1175}#)) + #{tmp\ 1171}#) + ((lambda (#{else\ 1177}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 10297}# - #{args\ 10310}#)) - #{tmp\ 10314}#))) - (list #{tmp\ 10314}#)))) + #{orig-args\ 1143}# + #{args\ 1156}#)) + #{tmp\ 1160}#))) + (list #{tmp\ 1160}#)))) ($sc-dispatch - #{tmp\ 10314}# + #{tmp\ 1160}# '(any . any))))) - ($sc-dispatch #{tmp\ 10314}# (quote ())))) - #{args\ 10310}#)))) - (#{req\ 10300}# #{orig-args\ 10297}# (quote ()))))) - (#{ellipsis?\ 9515}# - (lambda (#{x\ 10332}#) - (if (#{nonsymbol-id?\ 9412}# #{x\ 10332}#) - (#{free-id=?\ 9473}# - #{x\ 10332}# + ($sc-dispatch #{tmp\ 1160}# (quote ())))) + #{args\ 1156}#)))) + (#{req\ 1146}# #{orig-args\ 1143}# (quote ()))))) + (#{ellipsis?\ 361}# + (lambda (#{x\ 1178}#) + (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#) + (#{free-id=?\ 319}# + #{x\ 1178}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10333")) + #(ribcage #(x) #((top)) #("i1179")) #(ribcage (lambda-var-list gen-var @@ -2197,1372 +2187,1366 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile))) #f))) - (#{chi-void\ 9513}# - (lambda () (#{build-void\ 9336}# #f))) - (#{eval-local-transformer\ 9511}# - (lambda (#{expanded\ 10337}# #{mod\ 10338}#) - (let ((#{p\ 10342}# - (#{local-eval-hook\ 9327}# - #{expanded\ 10337}# - #{mod\ 10338}#))) - (if (procedure? #{p\ 10342}#) - (cons #{p\ 10342}# - (module-name (current-module))) + (#{chi-void\ 359}# + (lambda () (#{build-void\ 182}# #f))) + (#{eval-local-transformer\ 357}# + (lambda (#{expanded\ 1183}# #{mod\ 1184}#) + (let ((#{p\ 1188}# + (#{local-eval-hook\ 173}# + #{expanded\ 1183}# + #{mod\ 1184}#))) + (if (procedure? #{p\ 1188}#) + (cons #{p\ 1188}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 10342}#))))) - (#{chi-local-syntax\ 9509}# - (lambda (#{rec?\ 10343}# - #{e\ 10344}# - #{r\ 10345}# - #{w\ 10346}# - #{s\ 10347}# - #{mod\ 10348}# - #{k\ 10349}#) - ((lambda (#{tmp\ 10357}#) - ((lambda (#{tmp\ 10358}#) - (if #{tmp\ 10358}# - (apply (lambda (#{_\ 10364}# - #{id\ 10365}# - #{val\ 10366}# - #{e1\ 10367}# - #{e2\ 10368}#) - (let ((#{ids\ 10370}# #{id\ 10365}#)) - (if (not (#{valid-bound-ids?\ 9477}# - #{ids\ 10370}#)) + #{p\ 1188}#))))) + (#{chi-local-syntax\ 355}# + (lambda (#{rec?\ 1189}# + #{e\ 1190}# + #{r\ 1191}# + #{w\ 1192}# + #{s\ 1193}# + #{mod\ 1194}# + #{k\ 1195}#) + ((lambda (#{tmp\ 1203}#) + ((lambda (#{tmp\ 1204}#) + (if #{tmp\ 1204}# + (apply (lambda (#{_\ 1210}# + #{id\ 1211}# + #{val\ 1212}# + #{e1\ 1213}# + #{e2\ 1214}#) + (let ((#{ids\ 1216}# #{id\ 1211}#)) + (if (not (#{valid-bound-ids?\ 323}# + #{ids\ 1216}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 10344}#) - (let ((#{labels\ 10373}# - (#{gen-labels\ 9432}# - #{ids\ 10370}#))) - (let ((#{new-w\ 10375}# - (#{make-binding-wrap\ 9461}# - #{ids\ 10370}# - #{labels\ 10373}# - #{w\ 10346}#))) - (#{k\ 10349}# - (cons #{e1\ 10367}# #{e2\ 10368}#) - (#{extend-env\ 9402}# - #{labels\ 10373}# - (let ((#{w\ 10379}# - (if #{rec?\ 10343}# - #{new-w\ 10375}# - #{w\ 10346}#)) - (#{trans-r\ 10380}# - (#{macros-only-env\ 9406}# - #{r\ 10345}#))) - (map (lambda (#{x\ 10381}#) + #{e\ 1190}#) + (let ((#{labels\ 1219}# + (#{gen-labels\ 278}# + #{ids\ 1216}#))) + (let ((#{new-w\ 1221}# + (#{make-binding-wrap\ 307}# + #{ids\ 1216}# + #{labels\ 1219}# + #{w\ 1192}#))) + (#{k\ 1195}# + (cons #{e1\ 1213}# #{e2\ 1214}#) + (#{extend-env\ 248}# + #{labels\ 1219}# + (let ((#{w\ 1225}# + (if #{rec?\ 1189}# + #{new-w\ 1221}# + #{w\ 1192}#)) + (#{trans-r\ 1226}# + (#{macros-only-env\ 252}# + #{r\ 1191}#))) + (map (lambda (#{x\ 1227}#) (cons 'macro - (#{eval-local-transformer\ 9511}# - (#{chi\ 9499}# - #{x\ 10381}# - #{trans-r\ 10380}# - #{w\ 10379}# - #{mod\ 10348}#) - #{mod\ 10348}#))) - #{val\ 10366}#)) - #{r\ 10345}#) - #{new-w\ 10375}# - #{s\ 10347}# - #{mod\ 10348}#)))))) - #{tmp\ 10358}#) - ((lambda (#{_\ 10386}#) + (#{eval-local-transformer\ 357}# + (#{chi\ 345}# + #{x\ 1227}# + #{trans-r\ 1226}# + #{w\ 1225}# + #{mod\ 1194}#) + #{mod\ 1194}#))) + #{val\ 1212}#)) + #{r\ 1191}#) + #{new-w\ 1221}# + #{s\ 1193}# + #{mod\ 1194}#)))))) + #{tmp\ 1204}#) + ((lambda (#{_\ 1232}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 9485}# - #{e\ 10344}# - #{w\ 10346}# - #{s\ 10347}# - #{mod\ 10348}#))) - #{tmp\ 10357}#))) + (#{source-wrap\ 331}# + #{e\ 1190}# + #{w\ 1192}# + #{s\ 1193}# + #{mod\ 1194}#))) + #{tmp\ 1203}#))) ($sc-dispatch - #{tmp\ 10357}# + #{tmp\ 1203}# '(any #(each (any any)) any . each-any)))) - #{e\ 10344}#))) - (#{chi-body\ 9507}# - (lambda (#{body\ 10387}# - #{outer-form\ 10388}# - #{r\ 10389}# - #{w\ 10390}# - #{mod\ 10391}#) - (let ((#{r\ 10399}# + #{e\ 1190}#))) + (#{chi-body\ 353}# + (lambda (#{body\ 1233}# + #{outer-form\ 1234}# + #{r\ 1235}# + #{w\ 1236}# + #{mod\ 1237}#) + (let ((#{r\ 1245}# (cons '("placeholder" placeholder) - #{r\ 10389}#))) - (let ((#{ribcage\ 10401}# - (#{make-ribcage\ 9435}# + #{r\ 1235}#))) + (let ((#{ribcage\ 1247}# + (#{make-ribcage\ 281}# '() '() '()))) - (let ((#{w\ 10404}# - (#{make-wrap\ 9419}# - (#{wrap-marks\ 9421}# #{w\ 10390}#) - (cons #{ribcage\ 10401}# - (#{wrap-subst\ 9423}# #{w\ 10390}#))))) - (letrec ((#{parse\ 10413}# - (lambda (#{body\ 10414}# - #{ids\ 10415}# - #{labels\ 10416}# - #{var-ids\ 10417}# - #{vars\ 10418}# - #{vals\ 10419}# - #{bindings\ 10420}#) - (if (null? #{body\ 10414}#) + (let ((#{w\ 1250}# + (#{make-wrap\ 265}# + (#{wrap-marks\ 267}# #{w\ 1236}#) + (cons #{ribcage\ 1247}# + (#{wrap-subst\ 269}# #{w\ 1236}#))))) + (letrec ((#{parse\ 1259}# + (lambda (#{body\ 1260}# + #{ids\ 1261}# + #{labels\ 1262}# + #{var-ids\ 1263}# + #{vars\ 1264}# + #{vals\ 1265}# + #{bindings\ 1266}#) + (if (null? #{body\ 1260}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 10388}#) - (let ((#{e\ 10425}# (cdar #{body\ 10414}#)) - (#{er\ 10426}# - (caar #{body\ 10414}#))) + #{outer-form\ 1234}#) + (let ((#{e\ 1271}# (cdar #{body\ 1260}#)) + (#{er\ 1272}# (caar #{body\ 1260}#))) (call-with-values (lambda () - (#{syntax-type\ 9495}# - #{e\ 10425}# - #{er\ 10426}# + (#{syntax-type\ 341}# + #{e\ 1271}# + #{er\ 1272}# '(()) - (#{source-annotation\ 9393}# - #{er\ 10426}#) - #{ribcage\ 10401}# - #{mod\ 10391}# + (#{source-annotation\ 239}# + #{er\ 1272}#) + #{ribcage\ 1247}# + #{mod\ 1237}# #f)) - (lambda (#{type\ 10428}# - #{value\ 10429}# - #{e\ 10430}# - #{w\ 10431}# - #{s\ 10432}# - #{mod\ 10433}#) - (if (memv #{type\ 10428}# + (lambda (#{type\ 1274}# + #{value\ 1275}# + #{e\ 1276}# + #{w\ 1277}# + #{s\ 1278}# + #{mod\ 1279}#) + (if (memv #{type\ 1274}# '(define-form)) - (let ((#{id\ 10443}# - (#{wrap\ 9483}# - #{value\ 10429}# - #{w\ 10431}# - #{mod\ 10433}#)) - (#{label\ 10444}# - (#{gen-label\ 9430}#))) - (let ((#{var\ 10446}# - (#{gen-var\ 9527}# - #{id\ 10443}#))) + (let ((#{id\ 1289}# + (#{wrap\ 329}# + #{value\ 1275}# + #{w\ 1277}# + #{mod\ 1279}#)) + (#{label\ 1290}# + (#{gen-label\ 276}#))) + (let ((#{var\ 1292}# + (#{gen-var\ 373}# + #{id\ 1289}#))) (begin - (#{extend-ribcage!\ 9459}# - #{ribcage\ 10401}# - #{id\ 10443}# - #{label\ 10444}#) - (#{parse\ 10413}# - (cdr #{body\ 10414}#) - (cons #{id\ 10443}# - #{ids\ 10415}#) - (cons #{label\ 10444}# - #{labels\ 10416}#) - (cons #{id\ 10443}# - #{var-ids\ 10417}#) - (cons #{var\ 10446}# - #{vars\ 10418}#) - (cons (cons #{er\ 10426}# - (#{wrap\ 9483}# - #{e\ 10430}# - #{w\ 10431}# - #{mod\ 10433}#)) - #{vals\ 10419}#) + (#{extend-ribcage!\ 305}# + #{ribcage\ 1247}# + #{id\ 1289}# + #{label\ 1290}#) + (#{parse\ 1259}# + (cdr #{body\ 1260}#) + (cons #{id\ 1289}# + #{ids\ 1261}#) + (cons #{label\ 1290}# + #{labels\ 1262}#) + (cons #{id\ 1289}# + #{var-ids\ 1263}#) + (cons #{var\ 1292}# + #{vars\ 1264}#) + (cons (cons #{er\ 1272}# + (#{wrap\ 329}# + #{e\ 1276}# + #{w\ 1277}# + #{mod\ 1279}#)) + #{vals\ 1265}#) (cons (cons 'lexical - #{var\ 10446}#) - #{bindings\ 10420}#))))) - (if (memv #{type\ 10428}# + #{var\ 1292}#) + #{bindings\ 1266}#))))) + (if (memv #{type\ 1274}# '(define-syntax-form)) - (let ((#{id\ 10451}# - (#{wrap\ 9483}# - #{value\ 10429}# - #{w\ 10431}# - #{mod\ 10433}#)) - (#{label\ 10452}# - (#{gen-label\ 9430}#))) + (let ((#{id\ 1297}# + (#{wrap\ 329}# + #{value\ 1275}# + #{w\ 1277}# + #{mod\ 1279}#)) + (#{label\ 1298}# + (#{gen-label\ 276}#))) (begin - (#{extend-ribcage!\ 9459}# - #{ribcage\ 10401}# - #{id\ 10451}# - #{label\ 10452}#) - (#{parse\ 10413}# - (cdr #{body\ 10414}#) - (cons #{id\ 10451}# - #{ids\ 10415}#) - (cons #{label\ 10452}# - #{labels\ 10416}#) - #{var-ids\ 10417}# - #{vars\ 10418}# - #{vals\ 10419}# + (#{extend-ribcage!\ 305}# + #{ribcage\ 1247}# + #{id\ 1297}# + #{label\ 1298}#) + (#{parse\ 1259}# + (cdr #{body\ 1260}#) + (cons #{id\ 1297}# + #{ids\ 1261}#) + (cons #{label\ 1298}# + #{labels\ 1262}#) + #{var-ids\ 1263}# + #{vars\ 1264}# + #{vals\ 1265}# (cons (cons 'macro - (cons #{er\ 10426}# - (#{wrap\ 9483}# - #{e\ 10430}# - #{w\ 10431}# - #{mod\ 10433}#))) - #{bindings\ 10420}#)))) - (if (memv #{type\ 10428}# + (cons #{er\ 1272}# + (#{wrap\ 329}# + #{e\ 1276}# + #{w\ 1277}# + #{mod\ 1279}#))) + #{bindings\ 1266}#)))) + (if (memv #{type\ 1274}# '(begin-form)) - ((lambda (#{tmp\ 10455}#) - ((lambda (#{tmp\ 10456}#) - (if #{tmp\ 10456}# - (apply (lambda (#{_\ 10459}# - #{e1\ 10460}#) - (#{parse\ 10413}# - (letrec ((#{f\ 10463}# - (lambda (#{forms\ 10464}#) - (if (null? #{forms\ 10464}#) - (cdr #{body\ 10414}#) - (cons (cons #{er\ 10426}# - (#{wrap\ 9483}# - (car #{forms\ 10464}#) - #{w\ 10431}# - #{mod\ 10433}#)) - (#{f\ 10463}# - (cdr #{forms\ 10464}#))))))) - (#{f\ 10463}# - #{e1\ 10460}#)) - #{ids\ 10415}# - #{labels\ 10416}# - #{var-ids\ 10417}# - #{vars\ 10418}# - #{vals\ 10419}# - #{bindings\ 10420}#)) - #{tmp\ 10456}#) + ((lambda (#{tmp\ 1301}#) + ((lambda (#{tmp\ 1302}#) + (if #{tmp\ 1302}# + (apply (lambda (#{_\ 1305}# + #{e1\ 1306}#) + (#{parse\ 1259}# + (letrec ((#{f\ 1309}# + (lambda (#{forms\ 1310}#) + (if (null? #{forms\ 1310}#) + (cdr #{body\ 1260}#) + (cons (cons #{er\ 1272}# + (#{wrap\ 329}# + (car #{forms\ 1310}#) + #{w\ 1277}# + #{mod\ 1279}#)) + (#{f\ 1309}# + (cdr #{forms\ 1310}#))))))) + (#{f\ 1309}# + #{e1\ 1306}#)) + #{ids\ 1261}# + #{labels\ 1262}# + #{var-ids\ 1263}# + #{vars\ 1264}# + #{vals\ 1265}# + #{bindings\ 1266}#)) + #{tmp\ 1302}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10455}#))) + #{tmp\ 1301}#))) ($sc-dispatch - #{tmp\ 10455}# + #{tmp\ 1301}# '(any . each-any)))) - #{e\ 10430}#) - (if (memv #{type\ 10428}# + #{e\ 1276}#) + (if (memv #{type\ 1274}# '(local-syntax-form)) - (#{chi-local-syntax\ 9509}# - #{value\ 10429}# - #{e\ 10430}# - #{er\ 10426}# - #{w\ 10431}# - #{s\ 10432}# - #{mod\ 10433}# - (lambda (#{forms\ 10467}# - #{er\ 10468}# - #{w\ 10469}# - #{s\ 10470}# - #{mod\ 10471}#) - (#{parse\ 10413}# - (letrec ((#{f\ 10479}# - (lambda (#{forms\ 10480}#) - (if (null? #{forms\ 10480}#) - (cdr #{body\ 10414}#) - (cons (cons #{er\ 10468}# - (#{wrap\ 9483}# - (car #{forms\ 10480}#) - #{w\ 10469}# - #{mod\ 10471}#)) - (#{f\ 10479}# - (cdr #{forms\ 10480}#))))))) - (#{f\ 10479}# - #{forms\ 10467}#)) - #{ids\ 10415}# - #{labels\ 10416}# - #{var-ids\ 10417}# - #{vars\ 10418}# - #{vals\ 10419}# - #{bindings\ 10420}#))) - (if (null? #{ids\ 10415}#) - (#{build-sequence\ 9366}# + (#{chi-local-syntax\ 355}# + #{value\ 1275}# + #{e\ 1276}# + #{er\ 1272}# + #{w\ 1277}# + #{s\ 1278}# + #{mod\ 1279}# + (lambda (#{forms\ 1313}# + #{er\ 1314}# + #{w\ 1315}# + #{s\ 1316}# + #{mod\ 1317}#) + (#{parse\ 1259}# + (letrec ((#{f\ 1325}# + (lambda (#{forms\ 1326}#) + (if (null? #{forms\ 1326}#) + (cdr #{body\ 1260}#) + (cons (cons #{er\ 1314}# + (#{wrap\ 329}# + (car #{forms\ 1326}#) + #{w\ 1315}# + #{mod\ 1317}#)) + (#{f\ 1325}# + (cdr #{forms\ 1326}#))))))) + (#{f\ 1325}# + #{forms\ 1313}#)) + #{ids\ 1261}# + #{labels\ 1262}# + #{var-ids\ 1263}# + #{vars\ 1264}# + #{vals\ 1265}# + #{bindings\ 1266}#))) + (if (null? #{ids\ 1261}#) + (#{build-sequence\ 212}# #f - (map (lambda (#{x\ 10483}#) - (#{chi\ 9499}# - (cdr #{x\ 10483}#) - (car #{x\ 10483}#) + (map (lambda (#{x\ 1329}#) + (#{chi\ 345}# + (cdr #{x\ 1329}#) + (car #{x\ 1329}#) '(()) - #{mod\ 10433}#)) - (cons (cons #{er\ 10426}# - (#{source-wrap\ 9485}# - #{e\ 10430}# - #{w\ 10431}# - #{s\ 10432}# - #{mod\ 10433}#)) - (cdr #{body\ 10414}#)))) + #{mod\ 1279}#)) + (cons (cons #{er\ 1272}# + (#{source-wrap\ 331}# + #{e\ 1276}# + #{w\ 1277}# + #{s\ 1278}# + #{mod\ 1279}#)) + (cdr #{body\ 1260}#)))) (begin - (if (not (#{valid-bound-ids?\ 9477}# - #{ids\ 10415}#)) + (if (not (#{valid-bound-ids?\ 323}# + #{ids\ 1261}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 10388}#)) - (letrec ((#{loop\ 10490}# - (lambda (#{bs\ 10491}# - #{er-cache\ 10492}# - #{r-cache\ 10493}#) - (if (not (null? #{bs\ 10491}#)) - (let ((#{b\ 10496}# - (car #{bs\ 10491}#))) - (if (eq? (car #{b\ 10496}#) + #{outer-form\ 1234}#)) + (letrec ((#{loop\ 1336}# + (lambda (#{bs\ 1337}# + #{er-cache\ 1338}# + #{r-cache\ 1339}#) + (if (not (null? #{bs\ 1337}#)) + (let ((#{b\ 1342}# + (car #{bs\ 1337}#))) + (if (eq? (car #{b\ 1342}#) 'macro) - (let ((#{er\ 10499}# - (cadr #{b\ 10496}#))) - (let ((#{r-cache\ 10501}# - (if (eq? #{er\ 10499}# - #{er-cache\ 10492}#) - #{r-cache\ 10493}# - (#{macros-only-env\ 9406}# - #{er\ 10499}#)))) + (let ((#{er\ 1345}# + (cadr #{b\ 1342}#))) + (let ((#{r-cache\ 1347}# + (if (eq? #{er\ 1345}# + #{er-cache\ 1338}#) + #{r-cache\ 1339}# + (#{macros-only-env\ 252}# + #{er\ 1345}#)))) (begin (set-cdr! - #{b\ 10496}# - (#{eval-local-transformer\ 9511}# - (#{chi\ 9499}# - (cddr #{b\ 10496}#) - #{r-cache\ 10501}# + #{b\ 1342}# + (#{eval-local-transformer\ 357}# + (#{chi\ 345}# + (cddr #{b\ 1342}#) + #{r-cache\ 1347}# '(()) - #{mod\ 10433}#) - #{mod\ 10433}#)) - (#{loop\ 10490}# - (cdr #{bs\ 10491}#) - #{er\ 10499}# - #{r-cache\ 10501}#)))) - (#{loop\ 10490}# - (cdr #{bs\ 10491}#) - #{er-cache\ 10492}# - #{r-cache\ 10493}#))))))) - (#{loop\ 10490}# - #{bindings\ 10420}# + #{mod\ 1279}#) + #{mod\ 1279}#)) + (#{loop\ 1336}# + (cdr #{bs\ 1337}#) + #{er\ 1345}# + #{r-cache\ 1347}#)))) + (#{loop\ 1336}# + (cdr #{bs\ 1337}#) + #{er-cache\ 1338}# + #{r-cache\ 1339}#))))))) + (#{loop\ 1336}# + #{bindings\ 1266}# #f #f)) (set-cdr! - #{r\ 10399}# - (#{extend-env\ 9402}# - #{labels\ 10416}# - #{bindings\ 10420}# - (cdr #{r\ 10399}#))) - (#{build-letrec\ 9372}# + #{r\ 1245}# + (#{extend-env\ 248}# + #{labels\ 1262}# + #{bindings\ 1266}# + (cdr #{r\ 1245}#))) + (#{build-letrec\ 218}# #f (map syntax->datum - #{var-ids\ 10417}#) - #{vars\ 10418}# - (map (lambda (#{x\ 10504}#) - (#{chi\ 9499}# - (cdr #{x\ 10504}#) - (car #{x\ 10504}#) + #{var-ids\ 1263}#) + #{vars\ 1264}# + (map (lambda (#{x\ 1350}#) + (#{chi\ 345}# + (cdr #{x\ 1350}#) + (car #{x\ 1350}#) '(()) - #{mod\ 10433}#)) - #{vals\ 10419}#) - (#{build-sequence\ 9366}# + #{mod\ 1279}#)) + #{vals\ 1265}#) + (#{build-sequence\ 212}# #f - (map (lambda (#{x\ 10508}#) - (#{chi\ 9499}# - (cdr #{x\ 10508}#) - (car #{x\ 10508}#) + (map (lambda (#{x\ 1354}#) + (#{chi\ 345}# + (cdr #{x\ 1354}#) + (car #{x\ 1354}#) '(()) - #{mod\ 10433}#)) - (cons (cons #{er\ 10426}# - (#{source-wrap\ 9485}# - #{e\ 10430}# - #{w\ 10431}# - #{s\ 10432}# - #{mod\ 10433}#)) - (cdr #{body\ 10414}#)))))))))))))))))) - (#{parse\ 10413}# - (map (lambda (#{x\ 10421}#) - (cons #{r\ 10399}# - (#{wrap\ 9483}# - #{x\ 10421}# - #{w\ 10404}# - #{mod\ 10391}#))) - #{body\ 10387}#) + #{mod\ 1279}#)) + (cons (cons #{er\ 1272}# + (#{source-wrap\ 331}# + #{e\ 1276}# + #{w\ 1277}# + #{s\ 1278}# + #{mod\ 1279}#)) + (cdr #{body\ 1260}#)))))))))))))))))) + (#{parse\ 1259}# + (map (lambda (#{x\ 1267}#) + (cons #{r\ 1245}# + (#{wrap\ 329}# + #{x\ 1267}# + #{w\ 1250}# + #{mod\ 1237}#))) + #{body\ 1233}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 9505}# - (lambda (#{p\ 10511}# - #{e\ 10512}# - #{r\ 10513}# - #{w\ 10514}# - #{rib\ 10515}# - #{mod\ 10516}#) - (letrec ((#{rebuild-macro-output\ 10524}# - (lambda (#{x\ 10525}# #{m\ 10526}#) - (if (pair? #{x\ 10525}#) - (cons (#{rebuild-macro-output\ 10524}# - (car #{x\ 10525}#) - #{m\ 10526}#) - (#{rebuild-macro-output\ 10524}# - (cdr #{x\ 10525}#) - #{m\ 10526}#)) - (if (#{syntax-object?\ 9378}# #{x\ 10525}#) - (let ((#{w\ 10534}# - (#{syntax-object-wrap\ 9382}# - #{x\ 10525}#))) - (let ((#{ms\ 10537}# - (#{wrap-marks\ 9421}# #{w\ 10534}#)) - (#{s\ 10538}# - (#{wrap-subst\ 9423}# #{w\ 10534}#))) - (if (if (pair? #{ms\ 10537}#) - (eq? (car #{ms\ 10537}#) #f) + (#{chi-macro\ 351}# + (lambda (#{p\ 1357}# + #{e\ 1358}# + #{r\ 1359}# + #{w\ 1360}# + #{rib\ 1361}# + #{mod\ 1362}#) + (letrec ((#{rebuild-macro-output\ 1370}# + (lambda (#{x\ 1371}# #{m\ 1372}#) + (if (pair? #{x\ 1371}#) + (cons (#{rebuild-macro-output\ 1370}# + (car #{x\ 1371}#) + #{m\ 1372}#) + (#{rebuild-macro-output\ 1370}# + (cdr #{x\ 1371}#) + #{m\ 1372}#)) + (if (#{syntax-object?\ 224}# #{x\ 1371}#) + (let ((#{w\ 1380}# + (#{syntax-object-wrap\ 228}# + #{x\ 1371}#))) + (let ((#{ms\ 1383}# + (#{wrap-marks\ 267}# #{w\ 1380}#)) + (#{s\ 1384}# + (#{wrap-subst\ 269}# #{w\ 1380}#))) + (if (if (pair? #{ms\ 1383}#) + (eq? (car #{ms\ 1383}#) #f) #f) - (#{make-syntax-object\ 9376}# - (#{syntax-object-expression\ 9380}# - #{x\ 10525}#) - (#{make-wrap\ 9419}# - (cdr #{ms\ 10537}#) - (if #{rib\ 10515}# - (cons #{rib\ 10515}# - (cdr #{s\ 10538}#)) - (cdr #{s\ 10538}#))) - (#{syntax-object-module\ 9384}# - #{x\ 10525}#)) - (#{make-syntax-object\ 9376}# - (#{syntax-object-expression\ 9380}# - #{x\ 10525}#) - (#{make-wrap\ 9419}# - (cons #{m\ 10526}# #{ms\ 10537}#) - (if #{rib\ 10515}# - (cons #{rib\ 10515}# + (#{make-syntax-object\ 222}# + (#{syntax-object-expression\ 226}# + #{x\ 1371}#) + (#{make-wrap\ 265}# + (cdr #{ms\ 1383}#) + (if #{rib\ 1361}# + (cons #{rib\ 1361}# + (cdr #{s\ 1384}#)) + (cdr #{s\ 1384}#))) + (#{syntax-object-module\ 230}# + #{x\ 1371}#)) + (#{make-syntax-object\ 222}# + (#{syntax-object-expression\ 226}# + #{x\ 1371}#) + (#{make-wrap\ 265}# + (cons #{m\ 1372}# #{ms\ 1383}#) + (if #{rib\ 1361}# + (cons #{rib\ 1361}# (cons 'shift - #{s\ 10538}#)) - (cons (quote shift) #{s\ 10538}#))) + #{s\ 1384}#)) + (cons (quote shift) #{s\ 1384}#))) (cons 'hygiene - (cdr #{p\ 10511}#)))))) - (if (vector? #{x\ 10525}#) - (let ((#{n\ 10546}# - (vector-length #{x\ 10525}#))) - (let ((#{v\ 10548}# - (make-vector #{n\ 10546}#))) - (letrec ((#{loop\ 10551}# - (lambda (#{i\ 10552}#) - (if (#{fx=\ 9321}# - #{i\ 10552}# - #{n\ 10546}#) + (cdr #{p\ 1357}#)))))) + (if (vector? #{x\ 1371}#) + (let ((#{n\ 1392}# + (vector-length #{x\ 1371}#))) + (let ((#{v\ 1394}# + (make-vector #{n\ 1392}#))) + (letrec ((#{loop\ 1397}# + (lambda (#{i\ 1398}#) + (if (#{fx=\ 167}# + #{i\ 1398}# + #{n\ 1392}#) (begin (if #f #f) - #{v\ 10548}#) + #{v\ 1394}#) (begin (vector-set! - #{v\ 10548}# - #{i\ 10552}# - (#{rebuild-macro-output\ 10524}# + #{v\ 1394}# + #{i\ 1398}# + (#{rebuild-macro-output\ 1370}# (vector-ref - #{x\ 10525}# - #{i\ 10552}#) - #{m\ 10526}#)) - (#{loop\ 10551}# - (#{fx+\ 9317}# - #{i\ 10552}# + #{x\ 1371}# + #{i\ 1398}#) + #{m\ 1372}#)) + (#{loop\ 1397}# + (#{fx+\ 163}# + #{i\ 1398}# 1))))))) - (#{loop\ 10551}# 0)))) - (if (symbol? #{x\ 10525}#) + (#{loop\ 1397}# 0)))) + (if (symbol? #{x\ 1371}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 9485}# - #{e\ 10512}# - #{w\ 10514}# - (#{wrap-subst\ 9423}# #{w\ 10514}#) - #{mod\ 10516}#) - #{x\ 10525}#) - #{x\ 10525}#))))))) - (#{rebuild-macro-output\ 10524}# - ((car #{p\ 10511}#) - (#{wrap\ 9483}# - #{e\ 10512}# - (#{anti-mark\ 9455}# #{w\ 10514}#) - #{mod\ 10516}#)) + (#{source-wrap\ 331}# + #{e\ 1358}# + #{w\ 1360}# + (#{wrap-subst\ 269}# #{w\ 1360}#) + #{mod\ 1362}#) + #{x\ 1371}#) + #{x\ 1371}#))))))) + (#{rebuild-macro-output\ 1370}# + ((car #{p\ 1357}#) + (#{wrap\ 329}# + #{e\ 1358}# + (#{anti-mark\ 301}# #{w\ 1360}#) + #{mod\ 1362}#)) (gensym "m"))))) - (#{chi-application\ 9503}# - (lambda (#{x\ 10559}# - #{e\ 10560}# - #{r\ 10561}# - #{w\ 10562}# - #{s\ 10563}# - #{mod\ 10564}#) - ((lambda (#{tmp\ 10571}#) - ((lambda (#{tmp\ 10572}#) - (if #{tmp\ 10572}# - (apply (lambda (#{e0\ 10575}# #{e1\ 10576}#) - (#{build-application\ 9338}# - #{s\ 10563}# - #{x\ 10559}# - (map (lambda (#{e\ 10577}#) - (#{chi\ 9499}# - #{e\ 10577}# - #{r\ 10561}# - #{w\ 10562}# - #{mod\ 10564}#)) - #{e1\ 10576}#))) - #{tmp\ 10572}#) + (#{chi-application\ 349}# + (lambda (#{x\ 1405}# + #{e\ 1406}# + #{r\ 1407}# + #{w\ 1408}# + #{s\ 1409}# + #{mod\ 1410}#) + ((lambda (#{tmp\ 1417}#) + ((lambda (#{tmp\ 1418}#) + (if #{tmp\ 1418}# + (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#) + (#{build-application\ 184}# + #{s\ 1409}# + #{x\ 1405}# + (map (lambda (#{e\ 1423}#) + (#{chi\ 345}# + #{e\ 1423}# + #{r\ 1407}# + #{w\ 1408}# + #{mod\ 1410}#)) + #{e1\ 1422}#))) + #{tmp\ 1418}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10571}#))) + #{tmp\ 1417}#))) ($sc-dispatch - #{tmp\ 10571}# + #{tmp\ 1417}# '(any . each-any)))) - #{e\ 10560}#))) - (#{chi-expr\ 9501}# - (lambda (#{type\ 10580}# - #{value\ 10581}# - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (lexical))) - (#{build-lexical-reference\ 9342}# + #{e\ 1406}#))) + (#{chi-expr\ 347}# + (lambda (#{type\ 1426}# + #{value\ 1427}# + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (lexical))) + (#{build-lexical-reference\ 188}# 'value - #{s\ 10585}# - #{e\ 10582}# - #{value\ 10581}#) - (if (memv #{type\ 10580}# (quote (core core-form))) - (#{value\ 10581}# - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (module-ref))) + #{s\ 1431}# + #{e\ 1428}# + #{value\ 1427}#) + (if (memv #{type\ 1426}# (quote (core core-form))) + (#{value\ 1427}# + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (module-ref))) (call-with-values - (lambda () (#{value\ 10581}# #{e\ 10582}#)) - (lambda (#{id\ 10597}# #{mod\ 10598}#) - (#{build-global-reference\ 9348}# - #{s\ 10585}# - #{id\ 10597}# - #{mod\ 10598}#))) - (if (memv #{type\ 10580}# (quote (lexical-call))) - (#{chi-application\ 9503}# - (#{build-lexical-reference\ 9342}# + (lambda () (#{value\ 1427}# #{e\ 1428}#)) + (lambda (#{id\ 1443}# #{mod\ 1444}#) + (#{build-global-reference\ 194}# + #{s\ 1431}# + #{id\ 1443}# + #{mod\ 1444}#))) + (if (memv #{type\ 1426}# (quote (lexical-call))) + (#{chi-application\ 349}# + (#{build-lexical-reference\ 188}# 'fun - (#{source-annotation\ 9393}# (car #{e\ 10582}#)) - (car #{e\ 10582}#) - #{value\ 10581}#) - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (global-call))) - (#{chi-application\ 9503}# - (#{build-global-reference\ 9348}# - (#{source-annotation\ 9393}# (car #{e\ 10582}#)) - (if (#{syntax-object?\ 9378}# #{value\ 10581}#) - (#{syntax-object-expression\ 9380}# - #{value\ 10581}#) - #{value\ 10581}#) - (if (#{syntax-object?\ 9378}# #{value\ 10581}#) - (#{syntax-object-module\ 9384}# - #{value\ 10581}#) - #{mod\ 10586}#)) - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (constant))) - (#{build-data\ 9364}# - #{s\ 10585}# - (#{strip\ 9525}# - (#{source-wrap\ 9485}# - #{e\ 10582}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) + (#{source-annotation\ 239}# (car #{e\ 1428}#)) + (car #{e\ 1428}#) + #{value\ 1427}#) + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (global-call))) + (#{chi-application\ 349}# + (#{build-global-reference\ 194}# + (#{source-annotation\ 239}# (car #{e\ 1428}#)) + (if (#{syntax-object?\ 224}# #{value\ 1427}#) + (#{syntax-object-expression\ 226}# + #{value\ 1427}#) + #{value\ 1427}#) + (if (#{syntax-object?\ 224}# #{value\ 1427}#) + (#{syntax-object-module\ 230}# #{value\ 1427}#) + #{mod\ 1432}#)) + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (constant))) + (#{build-data\ 210}# + #{s\ 1431}# + (#{strip\ 371}# + (#{source-wrap\ 331}# + #{e\ 1428}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) '(()))) - (if (memv #{type\ 10580}# (quote (global))) - (#{build-global-reference\ 9348}# - #{s\ 10585}# - #{value\ 10581}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (call))) - (#{chi-application\ 9503}# - (#{chi\ 9499}# - (car #{e\ 10582}#) - #{r\ 10583}# - #{w\ 10584}# - #{mod\ 10586}#) - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (if (memv #{type\ 10580}# (quote (begin-form))) - ((lambda (#{tmp\ 10608}#) - ((lambda (#{tmp\ 10609}#) - (if #{tmp\ 10609}# - (apply (lambda (#{_\ 10613}# - #{e1\ 10614}# - #{e2\ 10615}#) - (#{chi-sequence\ 9487}# - (cons #{e1\ 10614}# - #{e2\ 10615}#) - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#)) - #{tmp\ 10609}#) + (if (memv #{type\ 1426}# (quote (global))) + (#{build-global-reference\ 194}# + #{s\ 1431}# + #{value\ 1427}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (call))) + (#{chi-application\ 349}# + (#{chi\ 345}# + (car #{e\ 1428}#) + #{r\ 1429}# + #{w\ 1430}# + #{mod\ 1432}#) + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (if (memv #{type\ 1426}# (quote (begin-form))) + ((lambda (#{tmp\ 1454}#) + ((lambda (#{tmp\ 1455}#) + (if #{tmp\ 1455}# + (apply (lambda (#{_\ 1459}# + #{e1\ 1460}# + #{e2\ 1461}#) + (#{chi-sequence\ 333}# + (cons #{e1\ 1460}# + #{e2\ 1461}#) + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#)) + #{tmp\ 1455}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10608}#))) + #{tmp\ 1454}#))) ($sc-dispatch - #{tmp\ 10608}# + #{tmp\ 1454}# '(any any . each-any)))) - #{e\ 10582}#) - (if (memv #{type\ 10580}# + #{e\ 1428}#) + (if (memv #{type\ 1426}# '(local-syntax-form)) - (#{chi-local-syntax\ 9509}# - #{value\ 10581}# - #{e\ 10582}# - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}# - #{chi-sequence\ 9487}#) - (if (memv #{type\ 10580}# + (#{chi-local-syntax\ 355}# + #{value\ 1427}# + #{e\ 1428}# + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}# + #{chi-sequence\ 333}#) + (if (memv #{type\ 1426}# '(eval-when-form)) - ((lambda (#{tmp\ 10619}#) - ((lambda (#{tmp\ 10620}#) - (if #{tmp\ 10620}# - (apply (lambda (#{_\ 10625}# - #{x\ 10626}# - #{e1\ 10627}# - #{e2\ 10628}#) - (let ((#{when-list\ 10630}# - (#{chi-when-list\ 9493}# - #{e\ 10582}# - #{x\ 10626}# - #{w\ 10584}#))) + ((lambda (#{tmp\ 1465}#) + ((lambda (#{tmp\ 1466}#) + (if #{tmp\ 1466}# + (apply (lambda (#{_\ 1471}# + #{x\ 1472}# + #{e1\ 1473}# + #{e2\ 1474}#) + (let ((#{when-list\ 1476}# + (#{chi-when-list\ 339}# + #{e\ 1428}# + #{x\ 1472}# + #{w\ 1430}#))) (if (memq 'eval - #{when-list\ 10630}#) - (#{chi-sequence\ 9487}# - (cons #{e1\ 10627}# - #{e2\ 10628}#) - #{r\ 10583}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#) - (#{chi-void\ 9513}#)))) - #{tmp\ 10620}#) + #{when-list\ 1476}#) + (#{chi-sequence\ 333}# + (cons #{e1\ 1473}# + #{e2\ 1474}#) + #{r\ 1429}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#) + (#{chi-void\ 359}#)))) + #{tmp\ 1466}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10619}#))) + #{tmp\ 1465}#))) ($sc-dispatch - #{tmp\ 10619}# + #{tmp\ 1465}# '(any each-any any . each-any)))) - #{e\ 10582}#) - (if (memv #{type\ 10580}# + #{e\ 1428}#) + (if (memv #{type\ 1426}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 10582}# - (#{wrap\ 9483}# - #{value\ 10581}# - #{w\ 10584}# - #{mod\ 10586}#)) - (if (memv #{type\ 10580}# + #{e\ 1428}# + (#{wrap\ 329}# + #{value\ 1427}# + #{w\ 1430}# + #{mod\ 1432}#)) + (if (memv #{type\ 1426}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 9485}# - #{e\ 10582}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#)) - (if (memv #{type\ 10580}# + (#{source-wrap\ 331}# + #{e\ 1428}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#)) + (if (memv #{type\ 1426}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 9485}# - #{e\ 10582}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#)) + (#{source-wrap\ 331}# + #{e\ 1428}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 9485}# - #{e\ 10582}# - #{w\ 10584}# - #{s\ 10585}# - #{mod\ 10586}#)))))))))))))))))) - (#{chi\ 9499}# - (lambda (#{e\ 10637}# - #{r\ 10638}# - #{w\ 10639}# - #{mod\ 10640}#) + (#{source-wrap\ 331}# + #{e\ 1428}# + #{w\ 1430}# + #{s\ 1431}# + #{mod\ 1432}#)))))))))))))))))) + (#{chi\ 345}# + (lambda (#{e\ 1483}# + #{r\ 1484}# + #{w\ 1485}# + #{mod\ 1486}#) (call-with-values (lambda () - (#{syntax-type\ 9495}# - #{e\ 10637}# - #{r\ 10638}# - #{w\ 10639}# - (#{source-annotation\ 9393}# #{e\ 10637}#) + (#{syntax-type\ 341}# + #{e\ 1483}# + #{r\ 1484}# + #{w\ 1485}# + (#{source-annotation\ 239}# #{e\ 1483}#) #f - #{mod\ 10640}# + #{mod\ 1486}# #f)) - (lambda (#{type\ 10645}# - #{value\ 10646}# - #{e\ 10647}# - #{w\ 10648}# - #{s\ 10649}# - #{mod\ 10650}#) - (#{chi-expr\ 9501}# - #{type\ 10645}# - #{value\ 10646}# - #{e\ 10647}# - #{r\ 10638}# - #{w\ 10648}# - #{s\ 10649}# - #{mod\ 10650}#))))) - (#{chi-top\ 9497}# - (lambda (#{e\ 10657}# - #{r\ 10658}# - #{w\ 10659}# - #{m\ 10660}# - #{esew\ 10661}# - #{mod\ 10662}#) + (lambda (#{type\ 1491}# + #{value\ 1492}# + #{e\ 1493}# + #{w\ 1494}# + #{s\ 1495}# + #{mod\ 1496}#) + (#{chi-expr\ 347}# + #{type\ 1491}# + #{value\ 1492}# + #{e\ 1493}# + #{r\ 1484}# + #{w\ 1494}# + #{s\ 1495}# + #{mod\ 1496}#))))) + (#{chi-top\ 343}# + (lambda (#{e\ 1503}# + #{r\ 1504}# + #{w\ 1505}# + #{m\ 1506}# + #{esew\ 1507}# + #{mod\ 1508}#) (call-with-values (lambda () - (#{syntax-type\ 9495}# - #{e\ 10657}# - #{r\ 10658}# - #{w\ 10659}# - (#{source-annotation\ 9393}# #{e\ 10657}#) + (#{syntax-type\ 341}# + #{e\ 1503}# + #{r\ 1504}# + #{w\ 1505}# + (#{source-annotation\ 239}# #{e\ 1503}#) #f - #{mod\ 10662}# + #{mod\ 1508}# #f)) - (lambda (#{type\ 10683}# - #{value\ 10684}# - #{e\ 10685}# - #{w\ 10686}# - #{s\ 10687}# - #{mod\ 10688}#) - (if (memv #{type\ 10683}# (quote (begin-form))) - ((lambda (#{tmp\ 10696}#) - ((lambda (#{tmp\ 10697}#) - (if #{tmp\ 10697}# - (apply (lambda (#{_\ 10699}#) - (#{chi-void\ 9513}#)) - #{tmp\ 10697}#) - ((lambda (#{tmp\ 10700}#) - (if #{tmp\ 10700}# - (apply (lambda (#{_\ 10704}# - #{e1\ 10705}# - #{e2\ 10706}#) - (#{chi-top-sequence\ 9489}# - (cons #{e1\ 10705}# #{e2\ 10706}#) - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# - #{m\ 10660}# - #{esew\ 10661}# - #{mod\ 10688}#)) - #{tmp\ 10700}#) + (lambda (#{type\ 1529}# + #{value\ 1530}# + #{e\ 1531}# + #{w\ 1532}# + #{s\ 1533}# + #{mod\ 1534}#) + (if (memv #{type\ 1529}# (quote (begin-form))) + ((lambda (#{tmp\ 1542}#) + ((lambda (#{tmp\ 1543}#) + (if #{tmp\ 1543}# + (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#)) + #{tmp\ 1543}#) + ((lambda (#{tmp\ 1546}#) + (if #{tmp\ 1546}# + (apply (lambda (#{_\ 1550}# + #{e1\ 1551}# + #{e2\ 1552}#) + (#{chi-top-sequence\ 335}# + (cons #{e1\ 1551}# #{e2\ 1552}#) + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# + #{m\ 1506}# + #{esew\ 1507}# + #{mod\ 1534}#)) + #{tmp\ 1546}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10696}#))) + #{tmp\ 1542}#))) ($sc-dispatch - #{tmp\ 10696}# + #{tmp\ 1542}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 10696}# (quote (any))))) - #{e\ 10685}#) - (if (memv #{type\ 10683}# - '(local-syntax-form)) - (#{chi-local-syntax\ 9509}# - #{value\ 10684}# - #{e\ 10685}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# - #{mod\ 10688}# - (lambda (#{body\ 10709}# - #{r\ 10710}# - #{w\ 10711}# - #{s\ 10712}# - #{mod\ 10713}#) - (#{chi-top-sequence\ 9489}# - #{body\ 10709}# - #{r\ 10710}# - #{w\ 10711}# - #{s\ 10712}# - #{m\ 10660}# - #{esew\ 10661}# - #{mod\ 10713}#))) - (if (memv #{type\ 10683}# (quote (eval-when-form))) - ((lambda (#{tmp\ 10720}#) - ((lambda (#{tmp\ 10721}#) - (if #{tmp\ 10721}# - (apply (lambda (#{_\ 10726}# - #{x\ 10727}# - #{e1\ 10728}# - #{e2\ 10729}#) - (let ((#{when-list\ 10732}# - (#{chi-when-list\ 9493}# - #{e\ 10685}# - #{x\ 10727}# - #{w\ 10686}#)) - (#{body\ 10733}# - (cons #{e1\ 10728}# - #{e2\ 10729}#))) - (if (eq? #{m\ 10660}# (quote e)) + ($sc-dispatch #{tmp\ 1542}# (quote (any))))) + #{e\ 1531}#) + (if (memv #{type\ 1529}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 355}# + #{value\ 1530}# + #{e\ 1531}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# + #{mod\ 1534}# + (lambda (#{body\ 1555}# + #{r\ 1556}# + #{w\ 1557}# + #{s\ 1558}# + #{mod\ 1559}#) + (#{chi-top-sequence\ 335}# + #{body\ 1555}# + #{r\ 1556}# + #{w\ 1557}# + #{s\ 1558}# + #{m\ 1506}# + #{esew\ 1507}# + #{mod\ 1559}#))) + (if (memv #{type\ 1529}# (quote (eval-when-form))) + ((lambda (#{tmp\ 1566}#) + ((lambda (#{tmp\ 1567}#) + (if #{tmp\ 1567}# + (apply (lambda (#{_\ 1572}# + #{x\ 1573}# + #{e1\ 1574}# + #{e2\ 1575}#) + (let ((#{when-list\ 1578}# + (#{chi-when-list\ 339}# + #{e\ 1531}# + #{x\ 1573}# + #{w\ 1532}#)) + (#{body\ 1579}# + (cons #{e1\ 1574}# + #{e2\ 1575}#))) + (if (eq? #{m\ 1506}# (quote e)) (if (memq 'eval - #{when-list\ 10732}#) - (#{chi-top-sequence\ 9489}# - #{body\ 10733}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# + #{when-list\ 1578}#) + (#{chi-top-sequence\ 335}# + #{body\ 1579}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# 'e '(eval) - #{mod\ 10688}#) - (#{chi-void\ 9513}#)) + #{mod\ 1534}#) + (#{chi-void\ 359}#)) (if (memq 'load - #{when-list\ 10732}#) - (if (let ((#{t\ 10742}# + #{when-list\ 1578}#) + (if (let ((#{t\ 1588}# (memq 'compile - #{when-list\ 10732}#))) - (if #{t\ 10742}# - #{t\ 10742}# - (if (eq? #{m\ 10660}# + #{when-list\ 1578}#))) + (if #{t\ 1588}# + #{t\ 1588}# + (if (eq? #{m\ 1506}# 'c&e) (memq 'eval - #{when-list\ 10732}#) + #{when-list\ 1578}#) #f))) - (#{chi-top-sequence\ 9489}# - #{body\ 10733}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# + (#{chi-top-sequence\ 335}# + #{body\ 1579}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# 'c&e '(compile load) - #{mod\ 10688}#) - (if (memq #{m\ 10660}# + #{mod\ 1534}#) + (if (memq #{m\ 1506}# '(c c&e)) - (#{chi-top-sequence\ 9489}# - #{body\ 10733}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# + (#{chi-top-sequence\ 335}# + #{body\ 1579}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# 'c '(load) - #{mod\ 10688}#) - (#{chi-void\ 9513}#))) - (if (let ((#{t\ 10750}# + #{mod\ 1534}#) + (#{chi-void\ 359}#))) + (if (let ((#{t\ 1596}# (memq 'compile - #{when-list\ 10732}#))) - (if #{t\ 10750}# - #{t\ 10750}# - (if (eq? #{m\ 10660}# + #{when-list\ 1578}#))) + (if #{t\ 1596}# + #{t\ 1596}# + (if (eq? #{m\ 1506}# 'c&e) (memq 'eval - #{when-list\ 10732}#) + #{when-list\ 1578}#) #f))) (begin - (#{top-level-eval-hook\ 9325}# - (#{chi-top-sequence\ 9489}# - #{body\ 10733}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# + (#{top-level-eval-hook\ 171}# + (#{chi-top-sequence\ 335}# + #{body\ 1579}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# 'e '(eval) - #{mod\ 10688}#) - #{mod\ 10688}#) - (#{chi-void\ 9513}#)) - (#{chi-void\ 9513}#)))))) - #{tmp\ 10721}#) + #{mod\ 1534}#) + #{mod\ 1534}#) + (#{chi-void\ 359}#)) + (#{chi-void\ 359}#)))))) + #{tmp\ 1567}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10720}#))) + #{tmp\ 1566}#))) ($sc-dispatch - #{tmp\ 10720}# + #{tmp\ 1566}# '(any each-any any . each-any)))) - #{e\ 10685}#) - (if (memv #{type\ 10683}# + #{e\ 1531}#) + (if (memv #{type\ 1529}# '(define-syntax-form)) - (let ((#{n\ 10758}# - (#{id-var-name\ 9471}# - #{value\ 10684}# - #{w\ 10686}#)) - (#{r\ 10759}# - (#{macros-only-env\ 9406}# #{r\ 10658}#))) - (if (memv #{m\ 10660}# (quote (c))) - (if (memq (quote compile) #{esew\ 10661}#) - (let ((#{e\ 10762}# - (#{chi-install-global\ 9491}# - #{n\ 10758}# - (#{chi\ 9499}# - #{e\ 10685}# - #{r\ 10759}# - #{w\ 10686}# - #{mod\ 10688}#)))) + (let ((#{n\ 1604}# + (#{id-var-name\ 317}# + #{value\ 1530}# + #{w\ 1532}#)) + (#{r\ 1605}# + (#{macros-only-env\ 252}# #{r\ 1504}#))) + (if (memv #{m\ 1506}# (quote (c))) + (if (memq (quote compile) #{esew\ 1507}#) + (let ((#{e\ 1608}# + (#{chi-install-global\ 337}# + #{n\ 1604}# + (#{chi\ 345}# + #{e\ 1531}# + #{r\ 1605}# + #{w\ 1532}# + #{mod\ 1534}#)))) (begin - (#{top-level-eval-hook\ 9325}# - #{e\ 10762}# - #{mod\ 10688}#) - (if (memq (quote load) #{esew\ 10661}#) - #{e\ 10762}# - (#{chi-void\ 9513}#)))) - (if (memq (quote load) #{esew\ 10661}#) - (#{chi-install-global\ 9491}# - #{n\ 10758}# - (#{chi\ 9499}# - #{e\ 10685}# - #{r\ 10759}# - #{w\ 10686}# - #{mod\ 10688}#)) - (#{chi-void\ 9513}#))) - (if (memv #{m\ 10660}# (quote (c&e))) - (let ((#{e\ 10765}# - (#{chi-install-global\ 9491}# - #{n\ 10758}# - (#{chi\ 9499}# - #{e\ 10685}# - #{r\ 10759}# - #{w\ 10686}# - #{mod\ 10688}#)))) + (#{top-level-eval-hook\ 171}# + #{e\ 1608}# + #{mod\ 1534}#) + (if (memq (quote load) #{esew\ 1507}#) + #{e\ 1608}# + (#{chi-void\ 359}#)))) + (if (memq (quote load) #{esew\ 1507}#) + (#{chi-install-global\ 337}# + #{n\ 1604}# + (#{chi\ 345}# + #{e\ 1531}# + #{r\ 1605}# + #{w\ 1532}# + #{mod\ 1534}#)) + (#{chi-void\ 359}#))) + (if (memv #{m\ 1506}# (quote (c&e))) + (let ((#{e\ 1611}# + (#{chi-install-global\ 337}# + #{n\ 1604}# + (#{chi\ 345}# + #{e\ 1531}# + #{r\ 1605}# + #{w\ 1532}# + #{mod\ 1534}#)))) (begin - (#{top-level-eval-hook\ 9325}# - #{e\ 10765}# - #{mod\ 10688}#) - #{e\ 10765}#)) + (#{top-level-eval-hook\ 171}# + #{e\ 1611}# + #{mod\ 1534}#) + #{e\ 1611}#)) (begin - (if (memq (quote eval) #{esew\ 10661}#) - (#{top-level-eval-hook\ 9325}# - (#{chi-install-global\ 9491}# - #{n\ 10758}# - (#{chi\ 9499}# - #{e\ 10685}# - #{r\ 10759}# - #{w\ 10686}# - #{mod\ 10688}#)) - #{mod\ 10688}#)) - (#{chi-void\ 9513}#))))) - (if (memv #{type\ 10683}# (quote (define-form))) - (let ((#{n\ 10770}# - (#{id-var-name\ 9471}# - #{value\ 10684}# - #{w\ 10686}#))) - (let ((#{type\ 10772}# - (#{binding-type\ 9397}# - (#{lookup\ 9408}# - #{n\ 10770}# - #{r\ 10658}# - #{mod\ 10688}#)))) - (if (memv #{type\ 10772}# + (if (memq (quote eval) #{esew\ 1507}#) + (#{top-level-eval-hook\ 171}# + (#{chi-install-global\ 337}# + #{n\ 1604}# + (#{chi\ 345}# + #{e\ 1531}# + #{r\ 1605}# + #{w\ 1532}# + #{mod\ 1534}#)) + #{mod\ 1534}#)) + (#{chi-void\ 359}#))))) + (if (memv #{type\ 1529}# (quote (define-form))) + (let ((#{n\ 1616}# + (#{id-var-name\ 317}# + #{value\ 1530}# + #{w\ 1532}#))) + (let ((#{type\ 1618}# + (#{binding-type\ 243}# + (#{lookup\ 254}# + #{n\ 1616}# + #{r\ 1504}# + #{mod\ 1534}#)))) + (if (memv #{type\ 1618}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 10770}#)) + #{n\ 1616}#)) (current-module) #f) - (let ((#{old\ 10777}# + (let ((#{old\ 1623}# (module-variable (current-module) - #{n\ 10770}#))) + #{n\ 1616}#))) (module-define! (current-module) - #{n\ 10770}# - (if (variable? #{old\ 10777}#) - (variable-ref #{old\ 10777}#) + #{n\ 1616}# + (if (variable? #{old\ 1623}#) + (variable-ref #{old\ 1623}#) #f)))) - (let ((#{x\ 10780}# - (#{build-global-definition\ 9354}# - #{s\ 10687}# - #{n\ 10770}# - (#{chi\ 9499}# - #{e\ 10685}# - #{r\ 10658}# - #{w\ 10686}# - #{mod\ 10688}#)))) + (let ((#{x\ 1626}# + (#{build-global-definition\ 200}# + #{s\ 1533}# + #{n\ 1616}# + (#{chi\ 345}# + #{e\ 1531}# + #{r\ 1504}# + #{w\ 1532}# + #{mod\ 1534}#)))) (begin - (if (eq? #{m\ 10660}# (quote c&e)) - (#{top-level-eval-hook\ 9325}# - #{x\ 10780}# - #{mod\ 10688}#)) - #{x\ 10780}#))) - (if (memv #{type\ 10772}# + (if (eq? #{m\ 1506}# (quote c&e)) + (#{top-level-eval-hook\ 171}# + #{x\ 1626}# + #{mod\ 1534}#)) + #{x\ 1626}#))) + (if (memv #{type\ 1618}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 10685}# - (#{wrap\ 9483}# - #{value\ 10684}# - #{w\ 10686}# - #{mod\ 10688}#)) + #{e\ 1531}# + (#{wrap\ 329}# + #{value\ 1530}# + #{w\ 1532}# + #{mod\ 1534}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 10685}# - (#{wrap\ 9483}# - #{value\ 10684}# - #{w\ 10686}# - #{mod\ 10688}#)))))) - (let ((#{x\ 10786}# - (#{chi-expr\ 9501}# - #{type\ 10683}# - #{value\ 10684}# - #{e\ 10685}# - #{r\ 10658}# - #{w\ 10686}# - #{s\ 10687}# - #{mod\ 10688}#))) + #{e\ 1531}# + (#{wrap\ 329}# + #{value\ 1530}# + #{w\ 1532}# + #{mod\ 1534}#)))))) + (let ((#{x\ 1632}# + (#{chi-expr\ 347}# + #{type\ 1529}# + #{value\ 1530}# + #{e\ 1531}# + #{r\ 1504}# + #{w\ 1532}# + #{s\ 1533}# + #{mod\ 1534}#))) (begin - (if (eq? #{m\ 10660}# (quote c&e)) - (#{top-level-eval-hook\ 9325}# - #{x\ 10786}# - #{mod\ 10688}#)) - #{x\ 10786}#))))))))))) - (#{syntax-type\ 9495}# - (lambda (#{e\ 10787}# - #{r\ 10788}# - #{w\ 10789}# - #{s\ 10790}# - #{rib\ 10791}# - #{mod\ 10792}# - #{for-car?\ 10793}#) - (if (symbol? #{e\ 10787}#) - (let ((#{n\ 10805}# - (#{id-var-name\ 9471}# #{e\ 10787}# #{w\ 10789}#))) - (let ((#{b\ 10807}# - (#{lookup\ 9408}# - #{n\ 10805}# - #{r\ 10788}# - #{mod\ 10792}#))) - (let ((#{type\ 10809}# - (#{binding-type\ 9397}# #{b\ 10807}#))) - (if (memv #{type\ 10809}# (quote (lexical))) + (if (eq? #{m\ 1506}# (quote c&e)) + (#{top-level-eval-hook\ 171}# + #{x\ 1632}# + #{mod\ 1534}#)) + #{x\ 1632}#))))))))))) + (#{syntax-type\ 341}# + (lambda (#{e\ 1633}# + #{r\ 1634}# + #{w\ 1635}# + #{s\ 1636}# + #{rib\ 1637}# + #{mod\ 1638}# + #{for-car?\ 1639}#) + (if (symbol? #{e\ 1633}#) + (let ((#{n\ 1651}# + (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#))) + (let ((#{b\ 1653}# + (#{lookup\ 254}# + #{n\ 1651}# + #{r\ 1634}# + #{mod\ 1638}#))) + (let ((#{type\ 1655}# + (#{binding-type\ 243}# #{b\ 1653}#))) + (if (memv #{type\ 1655}# (quote (lexical))) (values - #{type\ 10809}# - (#{binding-value\ 9399}# #{b\ 10807}#) - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{type\ 10809}# (quote (global))) + #{type\ 1655}# + (#{binding-value\ 245}# #{b\ 1653}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{type\ 1655}# (quote (global))) (values - #{type\ 10809}# - #{n\ 10805}# - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{type\ 10809}# (quote (macro))) - (if #{for-car?\ 10793}# + #{type\ 1655}# + #{n\ 1651}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{type\ 1655}# (quote (macro))) + (if #{for-car?\ 1639}# (values - #{type\ 10809}# - (#{binding-value\ 9399}# #{b\ 10807}#) - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (#{syntax-type\ 9495}# - (#{chi-macro\ 9505}# - (#{binding-value\ 9399}# #{b\ 10807}#) - #{e\ 10787}# - #{r\ 10788}# - #{w\ 10789}# - #{rib\ 10791}# - #{mod\ 10792}#) - #{r\ 10788}# + #{type\ 1655}# + (#{binding-value\ 245}# #{b\ 1653}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (#{syntax-type\ 341}# + (#{chi-macro\ 351}# + (#{binding-value\ 245}# #{b\ 1653}#) + #{e\ 1633}# + #{r\ 1634}# + #{w\ 1635}# + #{rib\ 1637}# + #{mod\ 1638}#) + #{r\ 1634}# '(()) - #{s\ 10790}# - #{rib\ 10791}# - #{mod\ 10792}# + #{s\ 1636}# + #{rib\ 1637}# + #{mod\ 1638}# #f)) (values - #{type\ 10809}# - (#{binding-value\ 9399}# #{b\ 10807}#) - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#))))))) - (if (pair? #{e\ 10787}#) - (let ((#{first\ 10818}# (car #{e\ 10787}#))) + #{type\ 1655}# + (#{binding-value\ 245}# #{b\ 1653}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#))))))) + (if (pair? #{e\ 1633}#) + (let ((#{first\ 1664}# (car #{e\ 1633}#))) (call-with-values (lambda () - (#{syntax-type\ 9495}# - #{first\ 10818}# - #{r\ 10788}# - #{w\ 10789}# - #{s\ 10790}# - #{rib\ 10791}# - #{mod\ 10792}# + (#{syntax-type\ 341}# + #{first\ 1664}# + #{r\ 1634}# + #{w\ 1635}# + #{s\ 1636}# + #{rib\ 1637}# + #{mod\ 1638}# #t)) - (lambda (#{ftype\ 10819}# - #{fval\ 10820}# - #{fe\ 10821}# - #{fw\ 10822}# - #{fs\ 10823}# - #{fmod\ 10824}#) - (if (memv #{ftype\ 10819}# (quote (lexical))) + (lambda (#{ftype\ 1665}# + #{fval\ 1666}# + #{fe\ 1667}# + #{fw\ 1668}# + #{fs\ 1669}# + #{fmod\ 1670}#) + (if (memv #{ftype\ 1665}# (quote (lexical))) (values 'lexical-call - #{fval\ 10820}# - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# (quote (global))) + #{fval\ 1666}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 9376}# - #{fval\ 10820}# - #{w\ 10789}# - #{fmod\ 10824}#) - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# (quote (macro))) - (#{syntax-type\ 9495}# - (#{chi-macro\ 9505}# - #{fval\ 10820}# - #{e\ 10787}# - #{r\ 10788}# - #{w\ 10789}# - #{rib\ 10791}# - #{mod\ 10792}#) - #{r\ 10788}# + (#{make-syntax-object\ 222}# + #{fval\ 1666}# + #{w\ 1635}# + #{fmod\ 1670}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# (quote (macro))) + (#{syntax-type\ 341}# + (#{chi-macro\ 351}# + #{fval\ 1666}# + #{e\ 1633}# + #{r\ 1634}# + #{w\ 1635}# + #{rib\ 1637}# + #{mod\ 1638}#) + #{r\ 1634}# '(()) - #{s\ 10790}# - #{rib\ 10791}# - #{mod\ 10792}# - #{for-car?\ 10793}#) - (if (memv #{ftype\ 10819}# (quote (module-ref))) + #{s\ 1636}# + #{rib\ 1637}# + #{mod\ 1638}# + #{for-car?\ 1639}#) + (if (memv #{ftype\ 1665}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 10820}# #{e\ 10787}#)) - (lambda (#{sym\ 10836}# #{mod\ 10837}#) - (#{syntax-type\ 9495}# - #{sym\ 10836}# - #{r\ 10788}# - #{w\ 10789}# - #{s\ 10790}# - #{rib\ 10791}# - #{mod\ 10837}# - #{for-car?\ 10793}#))) - (if (memv #{ftype\ 10819}# (quote (core))) + (lambda () (#{fval\ 1666}# #{e\ 1633}#)) + (lambda (#{sym\ 1682}# #{mod\ 1683}#) + (#{syntax-type\ 341}# + #{sym\ 1682}# + #{r\ 1634}# + #{w\ 1635}# + #{s\ 1636}# + #{rib\ 1637}# + #{mod\ 1683}# + #{for-car?\ 1639}#))) + (if (memv #{ftype\ 1665}# (quote (core))) (values 'core-form - #{fval\ 10820}# - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# + #{fval\ 1666}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 10820}# - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# - '(begin)) + #{fval\ 1666}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# (quote (begin))) (values 'begin-form #f - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# '(eval-when)) (values 'eval-when-form #f - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) - (if (memv #{ftype\ 10819}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) + (if (memv #{ftype\ 1665}# '(define)) - ((lambda (#{tmp\ 10845}#) - ((lambda (#{tmp\ 10846}#) - (if (if #{tmp\ 10846}# - (apply (lambda (#{_\ 10850}# - #{name\ 10851}# - #{val\ 10852}#) - (#{id?\ 9414}# - #{name\ 10851}#)) - #{tmp\ 10846}#) + ((lambda (#{tmp\ 1691}#) + ((lambda (#{tmp\ 1692}#) + (if (if #{tmp\ 1692}# + (apply (lambda (#{_\ 1696}# + #{name\ 1697}# + #{val\ 1698}#) + (#{id?\ 260}# + #{name\ 1697}#)) + #{tmp\ 1692}#) #f) - (apply (lambda (#{_\ 10856}# - #{name\ 10857}# - #{val\ 10858}#) + (apply (lambda (#{_\ 1702}# + #{name\ 1703}# + #{val\ 1704}#) (values 'define-form - #{name\ 10857}# - #{val\ 10858}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#)) - #{tmp\ 10846}#) - ((lambda (#{tmp\ 10859}#) - (if (if #{tmp\ 10859}# - (apply (lambda (#{_\ 10865}# - #{name\ 10866}# - #{args\ 10867}# - #{e1\ 10868}# - #{e2\ 10869}#) - (if (#{id?\ 9414}# - #{name\ 10866}#) - (#{valid-bound-ids?\ 9477}# - (#{lambda-var-list\ 9529}# - #{args\ 10867}#)) + #{name\ 1703}# + #{val\ 1704}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#)) + #{tmp\ 1692}#) + ((lambda (#{tmp\ 1705}#) + (if (if #{tmp\ 1705}# + (apply (lambda (#{_\ 1711}# + #{name\ 1712}# + #{args\ 1713}# + #{e1\ 1714}# + #{e2\ 1715}#) + (if (#{id?\ 260}# + #{name\ 1712}#) + (#{valid-bound-ids?\ 323}# + (#{lambda-var-list\ 375}# + #{args\ 1713}#)) #f)) - #{tmp\ 10859}#) + #{tmp\ 1705}#) #f) - (apply (lambda (#{_\ 10877}# - #{name\ 10878}# - #{args\ 10879}# - #{e1\ 10880}# - #{e2\ 10881}#) + (apply (lambda (#{_\ 1723}# + #{name\ 1724}# + #{args\ 1725}# + #{e1\ 1726}# + #{e2\ 1727}#) (values 'define-form - (#{wrap\ 9483}# - #{name\ 10878}# - #{w\ 10789}# - #{mod\ 10792}#) - (#{decorate-source\ 9334}# + (#{wrap\ 329}# + #{name\ 1724}# + #{w\ 1635}# + #{mod\ 1638}#) + (#{decorate-source\ 180}# (cons '#(syntax-object lambda ((top) @@ -3577,11 +3561,11 @@ (top) (top) (top)) - #("i10872" - "i10873" - "i10874" - "i10875" - "i10876")) + #("i1718" + "i1719" + "i1720" + "i1721" + "i1722")) #(ribcage () () @@ -3603,12 +3587,12 @@ (top) (top) (top)) - #("i10825" - "i10826" - "i10827" - "i10828" - "i10829" - "i10830")) + #("i1671" + "i1672" + "i1673" + "i1674" + "i1675" + "i1676")) #(ribcage () () @@ -3616,7 +3600,7 @@ #(ribcage #(first) #((top)) - #("i10817")) + #("i1663")) #(ribcage () () @@ -3644,13 +3628,13 @@ (top) (top) (top)) - #("i10794" - "i10795" - "i10796" - "i10797" - "i10798" - "i10799" - "i10800")) + #("i1640" + "i1641" + "i1642" + "i1643" + "i1644" + "i1645" + "i1646")) #(ribcage (lambda-var-list gen-var @@ -3886,159 +3870,159 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile)) - (#{wrap\ 9483}# - (cons #{args\ 10879}# - (cons #{e1\ 10880}# - #{e2\ 10881}#)) - #{w\ 10789}# - #{mod\ 10792}#)) - #{s\ 10790}#) + (#{wrap\ 329}# + (cons #{args\ 1725}# + (cons #{e1\ 1726}# + #{e2\ 1727}#)) + #{w\ 1635}# + #{mod\ 1638}#)) + #{s\ 1636}#) '(()) - #{s\ 10790}# - #{mod\ 10792}#)) - #{tmp\ 10859}#) - ((lambda (#{tmp\ 10884}#) - (if (if #{tmp\ 10884}# - (apply (lambda (#{_\ 10887}# - #{name\ 10888}#) - (#{id?\ 9414}# - #{name\ 10888}#)) - #{tmp\ 10884}#) + #{s\ 1636}# + #{mod\ 1638}#)) + #{tmp\ 1705}#) + ((lambda (#{tmp\ 1730}#) + (if (if #{tmp\ 1730}# + (apply (lambda (#{_\ 1733}# + #{name\ 1734}#) + (#{id?\ 260}# + #{name\ 1734}#)) + #{tmp\ 1730}#) #f) - (apply (lambda (#{_\ 10891}# - #{name\ 10892}#) + (apply (lambda (#{_\ 1737}# + #{name\ 1738}#) (values 'define-form - (#{wrap\ 9483}# - #{name\ 10892}# - #{w\ 10789}# - #{mod\ 10792}#) + (#{wrap\ 329}# + #{name\ 1738}# + #{w\ 1635}# + #{mod\ 1638}#) '(#(syntax-object if ((top) @@ -4047,8 +4031,8 @@ name) #((top) (top)) - #("i10889" - "i10890")) + #("i1735" + "i1736")) #(ribcage () () @@ -4070,12 +4054,12 @@ (top) (top) (top)) - #("i10825" - "i10826" - "i10827" - "i10828" - "i10829" - "i10830")) + #("i1671" + "i1672" + "i1673" + "i1674" + "i1675" + "i1676")) #(ribcage () () @@ -4083,7 +4067,7 @@ #(ribcage #(first) #((top)) - #("i10817")) + #("i1663")) #(ribcage () () @@ -4111,13 +4095,13 @@ (top) (top) (top)) - #("i10794" - "i10795" - "i10796" - "i10797" - "i10798" - "i10799" - "i10800")) + #("i1640" + "i1641" + "i1642" + "i1643" + "i1644" + "i1645" + "i1646")) #(ribcage (lambda-var-list gen-var @@ -4353,130 +4337,130 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile)) #(syntax-object @@ -4487,8 +4471,8 @@ name) #((top) (top)) - #("i10889" - "i10890")) + #("i1735" + "i1736")) #(ribcage () () @@ -4510,12 +4494,12 @@ (top) (top) (top)) - #("i10825" - "i10826" - "i10827" - "i10828" - "i10829" - "i10830")) + #("i1671" + "i1672" + "i1673" + "i1674" + "i1675" + "i1676")) #(ribcage () () @@ -4523,7 +4507,7 @@ #(ribcage #(first) #((top)) - #("i10817")) + #("i1663")) #(ribcage () () @@ -4551,13 +4535,13 @@ (top) (top) (top)) - #("i10794" - "i10795" - "i10796" - "i10797" - "i10798" - "i10799" - "i10800")) + #("i1640" + "i1641" + "i1642" + "i1643" + "i1644" + "i1645" + "i1646")) #(ribcage (lambda-var-list gen-var @@ -4793,130 +4777,130 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile)) #(syntax-object @@ -4927,8 +4911,8 @@ name) #((top) (top)) - #("i10889" - "i10890")) + #("i1735" + "i1736")) #(ribcage () () @@ -4950,12 +4934,12 @@ (top) (top) (top)) - #("i10825" - "i10826" - "i10827" - "i10828" - "i10829" - "i10830")) + #("i1671" + "i1672" + "i1673" + "i1674" + "i1675" + "i1676")) #(ribcage () () @@ -4963,7 +4947,7 @@ #(ribcage #(first) #((top)) - #("i10817")) + #("i1663")) #(ribcage () () @@ -4991,13 +4975,13 @@ (top) (top) (top)) - #("i10794" - "i10795" - "i10796" - "i10797" - "i10798" - "i10799" - "i10800")) + #("i1640" + "i1641" + "i1642" + "i1643" + "i1644" + "i1645" + "i1646")) #(ribcage (lambda-var-list gen-var @@ -5233,231 +5217,231 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" - "i9213"))) + ("i61" + "i59"))) (hygiene guile))) '(()) - #{s\ 10790}# - #{mod\ 10792}#)) - #{tmp\ 10884}#) + #{s\ 1636}# + #{mod\ 1638}#)) + #{tmp\ 1730}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10845}#))) + #{tmp\ 1691}#))) ($sc-dispatch - #{tmp\ 10845}# + #{tmp\ 1691}# '(any any))))) ($sc-dispatch - #{tmp\ 10845}# + #{tmp\ 1691}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 10845}# + #{tmp\ 1691}# '(any any any)))) - #{e\ 10787}#) - (if (memv #{ftype\ 10819}# + #{e\ 1633}#) + (if (memv #{ftype\ 1665}# '(define-syntax)) - ((lambda (#{tmp\ 10895}#) - ((lambda (#{tmp\ 10896}#) - (if (if #{tmp\ 10896}# - (apply (lambda (#{_\ 10900}# - #{name\ 10901}# - #{val\ 10902}#) - (#{id?\ 9414}# - #{name\ 10901}#)) - #{tmp\ 10896}#) + ((lambda (#{tmp\ 1741}#) + ((lambda (#{tmp\ 1742}#) + (if (if #{tmp\ 1742}# + (apply (lambda (#{_\ 1746}# + #{name\ 1747}# + #{val\ 1748}#) + (#{id?\ 260}# + #{name\ 1747}#)) + #{tmp\ 1742}#) #f) - (apply (lambda (#{_\ 10906}# - #{name\ 10907}# - #{val\ 10908}#) + (apply (lambda (#{_\ 1752}# + #{name\ 1753}# + #{val\ 1754}#) (values 'define-syntax-form - #{name\ 10907}# - #{val\ 10908}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#)) - #{tmp\ 10896}#) + #{name\ 1753}# + #{val\ 1754}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#)) + #{tmp\ 1742}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10895}#))) + #{tmp\ 1741}#))) ($sc-dispatch - #{tmp\ 10895}# + #{tmp\ 1741}# '(any any any)))) - #{e\ 10787}#) + #{e\ 1633}#) (values 'call #f - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#)))))))))))))) - (if (#{syntax-object?\ 9378}# #{e\ 10787}#) - (#{syntax-type\ 9495}# - (#{syntax-object-expression\ 9380}# #{e\ 10787}#) - #{r\ 10788}# - (#{join-wraps\ 9465}# - #{w\ 10789}# - (#{syntax-object-wrap\ 9382}# #{e\ 10787}#)) - #{s\ 10790}# - #{rib\ 10791}# - (let ((#{t\ 10914}# - (#{syntax-object-module\ 9384}# #{e\ 10787}#))) - (if #{t\ 10914}# #{t\ 10914}# #{mod\ 10792}#)) - #{for-car?\ 10793}#) - (if (self-evaluating? #{e\ 10787}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#)))))))))))))) + (if (#{syntax-object?\ 224}# #{e\ 1633}#) + (#{syntax-type\ 341}# + (#{syntax-object-expression\ 226}# #{e\ 1633}#) + #{r\ 1634}# + (#{join-wraps\ 311}# + #{w\ 1635}# + (#{syntax-object-wrap\ 228}# #{e\ 1633}#)) + #{s\ 1636}# + #{rib\ 1637}# + (let ((#{t\ 1760}# + (#{syntax-object-module\ 230}# #{e\ 1633}#))) + (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#)) + #{for-car?\ 1639}#) + (if (self-evaluating? #{e\ 1633}#) (values 'constant #f - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#) + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#) (values 'other #f - #{e\ 10787}# - #{w\ 10789}# - #{s\ 10790}# - #{mod\ 10792}#))))))) - (#{chi-when-list\ 9493}# - (lambda (#{e\ 10919}# #{when-list\ 10920}# #{w\ 10921}#) - (letrec ((#{f\ 10928}# - (lambda (#{when-list\ 10929}# #{situations\ 10930}#) - (if (null? #{when-list\ 10929}#) - #{situations\ 10930}# - (#{f\ 10928}# - (cdr #{when-list\ 10929}#) - (cons (let ((#{x\ 10932}# - (car #{when-list\ 10929}#))) - (if (#{free-id=?\ 9473}# - #{x\ 10932}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1638}#))))))) + (#{chi-when-list\ 339}# + (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#) + (letrec ((#{f\ 1774}# + (lambda (#{when-list\ 1775}# #{situations\ 1776}#) + (if (null? #{when-list\ 1775}#) + #{situations\ 1776}# + (#{f\ 1774}# + (cdr #{when-list\ 1775}#) + (cons (let ((#{x\ 1778}# + (car #{when-list\ 1775}#))) + (if (#{free-id=?\ 319}# + #{x\ 1778}# '#(syntax-object compile ((top) @@ -5467,21 +5451,17 @@ #(ribcage #(x) #((top)) - #("i10931")) + #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10925" - "i10926" - "i10927")) + #("i1771" "i1772" "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10922" - "i10923" - "i10924")) + #("i1768" "i1769" "i1770")) #(ribcage (lambda-var-list gen-var @@ -5717,131 +5697,131 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 9473}# - #{x\ 10932}# + (if (#{free-id=?\ 319}# + #{x\ 1778}# '#(syntax-object load ((top) @@ -5851,21 +5831,21 @@ #(ribcage #(x) #((top)) - #("i10931")) + #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10925" - "i10926" - "i10927")) + #("i1771" + "i1772" + "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10922" - "i10923" - "i10924")) + #("i1768" + "i1769" + "i1770")) #(ribcage (lambda-var-list gen-var @@ -6101,132 +6081,132 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile))) 'load - (if (#{free-id=?\ 9473}# - #{x\ 10932}# + (if (#{free-id=?\ 319}# + #{x\ 1778}# '#(syntax-object eval ((top) @@ -6236,23 +6216,23 @@ #(ribcage #(x) #((top)) - #("i10931")) + #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10925" - "i10926" - "i10927")) + #("i1771" + "i1772" + "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10922" - "i10923" - "i10924")) + #("i1768" + "i1769" + "i1770")) #(ribcage (lambda-var-list gen-var @@ -6488,1030 +6468,1002 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile))) 'eval (syntax-violation 'eval-when "invalid situation" - #{e\ 10919}# - (#{wrap\ 9483}# - #{x\ 10932}# - #{w\ 10921}# + #{e\ 1765}# + (#{wrap\ 329}# + #{x\ 1778}# + #{w\ 1767}# #f)))))) - #{situations\ 10930}#)))))) - (#{f\ 10928}# #{when-list\ 10920}# (quote ()))))) - (#{chi-install-global\ 9491}# - (lambda (#{name\ 10940}# #{e\ 10941}#) - (#{build-global-definition\ 9354}# + #{situations\ 1776}#)))))) + (#{f\ 1774}# #{when-list\ 1766}# (quote ()))))) + (#{chi-install-global\ 337}# + (lambda (#{name\ 1786}# #{e\ 1787}#) + (#{build-global-definition\ 200}# #f - #{name\ 10940}# - (#{build-application\ 9338}# + #{name\ 1786}# + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f 'make-syntax-transformer) - (list (#{build-data\ 9364}# #f #{name\ 10940}#) - (#{build-data\ 9364}# #f (quote macro)) - (#{build-application\ 9338}# + (list (#{build-data\ 210}# #f #{name\ 1786}#) + (#{build-data\ 210}# #f (quote macro)) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# #f (quote cons)) - (list #{e\ 10941}# - (#{build-application\ 9338}# + (#{build-primref\ 208}# #f (quote cons)) + (list #{e\ 1787}# + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f 'module-name) - (list (#{build-application\ 9338}# + (list (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 9489}# - (lambda (#{body\ 10955}# - #{r\ 10956}# - #{w\ 10957}# - #{s\ 10958}# - #{m\ 10959}# - #{esew\ 10960}# - #{mod\ 10961}#) - (#{build-sequence\ 9366}# - #{s\ 10958}# - (letrec ((#{dobody\ 10976}# - (lambda (#{body\ 10977}# - #{r\ 10978}# - #{w\ 10979}# - #{m\ 10980}# - #{esew\ 10981}# - #{mod\ 10982}#) - (if (null? #{body\ 10977}#) + (#{chi-top-sequence\ 335}# + (lambda (#{body\ 1801}# + #{r\ 1802}# + #{w\ 1803}# + #{s\ 1804}# + #{m\ 1805}# + #{esew\ 1806}# + #{mod\ 1807}#) + (#{build-sequence\ 212}# + #{s\ 1804}# + (letrec ((#{dobody\ 1822}# + (lambda (#{body\ 1823}# + #{r\ 1824}# + #{w\ 1825}# + #{m\ 1826}# + #{esew\ 1827}# + #{mod\ 1828}#) + (if (null? #{body\ 1823}#) '() - (let ((#{first\ 10984}# - (#{chi-top\ 9497}# - (car #{body\ 10977}#) - #{r\ 10978}# - #{w\ 10979}# - #{m\ 10980}# - #{esew\ 10981}# - #{mod\ 10982}#))) - (cons #{first\ 10984}# - (#{dobody\ 10976}# - (cdr #{body\ 10977}#) - #{r\ 10978}# - #{w\ 10979}# - #{m\ 10980}# - #{esew\ 10981}# - #{mod\ 10982}#))))))) - (#{dobody\ 10976}# - #{body\ 10955}# - #{r\ 10956}# - #{w\ 10957}# - #{m\ 10959}# - #{esew\ 10960}# - #{mod\ 10961}#))))) - (#{chi-sequence\ 9487}# - (lambda (#{body\ 10985}# - #{r\ 10986}# - #{w\ 10987}# - #{s\ 10988}# - #{mod\ 10989}#) - (#{build-sequence\ 9366}# - #{s\ 10988}# - (letrec ((#{dobody\ 11000}# - (lambda (#{body\ 11001}# - #{r\ 11002}# - #{w\ 11003}# - #{mod\ 11004}#) - (if (null? #{body\ 11001}#) + (let ((#{first\ 1830}# + (#{chi-top\ 343}# + (car #{body\ 1823}#) + #{r\ 1824}# + #{w\ 1825}# + #{m\ 1826}# + #{esew\ 1827}# + #{mod\ 1828}#))) + (cons #{first\ 1830}# + (#{dobody\ 1822}# + (cdr #{body\ 1823}#) + #{r\ 1824}# + #{w\ 1825}# + #{m\ 1826}# + #{esew\ 1827}# + #{mod\ 1828}#))))))) + (#{dobody\ 1822}# + #{body\ 1801}# + #{r\ 1802}# + #{w\ 1803}# + #{m\ 1805}# + #{esew\ 1806}# + #{mod\ 1807}#))))) + (#{chi-sequence\ 333}# + (lambda (#{body\ 1831}# + #{r\ 1832}# + #{w\ 1833}# + #{s\ 1834}# + #{mod\ 1835}#) + (#{build-sequence\ 212}# + #{s\ 1834}# + (letrec ((#{dobody\ 1846}# + (lambda (#{body\ 1847}# + #{r\ 1848}# + #{w\ 1849}# + #{mod\ 1850}#) + (if (null? #{body\ 1847}#) '() - (let ((#{first\ 11006}# - (#{chi\ 9499}# - (car #{body\ 11001}#) - #{r\ 11002}# - #{w\ 11003}# - #{mod\ 11004}#))) - (cons #{first\ 11006}# - (#{dobody\ 11000}# - (cdr #{body\ 11001}#) - #{r\ 11002}# - #{w\ 11003}# - #{mod\ 11004}#))))))) - (#{dobody\ 11000}# - #{body\ 10985}# - #{r\ 10986}# - #{w\ 10987}# - #{mod\ 10989}#))))) - (#{source-wrap\ 9485}# - (lambda (#{x\ 11007}# - #{w\ 11008}# - #{s\ 11009}# - #{defmod\ 11010}#) - (#{wrap\ 9483}# - (#{decorate-source\ 9334}# - #{x\ 11007}# - #{s\ 11009}#) - #{w\ 11008}# - #{defmod\ 11010}#))) - (#{wrap\ 9483}# - (lambda (#{x\ 11015}# #{w\ 11016}# #{defmod\ 11017}#) - (if (if (null? (#{wrap-marks\ 9421}# #{w\ 11016}#)) - (null? (#{wrap-subst\ 9423}# #{w\ 11016}#)) + (let ((#{first\ 1852}# + (#{chi\ 345}# + (car #{body\ 1847}#) + #{r\ 1848}# + #{w\ 1849}# + #{mod\ 1850}#))) + (cons #{first\ 1852}# + (#{dobody\ 1846}# + (cdr #{body\ 1847}#) + #{r\ 1848}# + #{w\ 1849}# + #{mod\ 1850}#))))))) + (#{dobody\ 1846}# + #{body\ 1831}# + #{r\ 1832}# + #{w\ 1833}# + #{mod\ 1835}#))))) + (#{source-wrap\ 331}# + (lambda (#{x\ 1853}# + #{w\ 1854}# + #{s\ 1855}# + #{defmod\ 1856}#) + (#{wrap\ 329}# + (#{decorate-source\ 180}# + #{x\ 1853}# + #{s\ 1855}#) + #{w\ 1854}# + #{defmod\ 1856}#))) + (#{wrap\ 329}# + (lambda (#{x\ 1861}# #{w\ 1862}# #{defmod\ 1863}#) + (if (if (null? (#{wrap-marks\ 267}# #{w\ 1862}#)) + (null? (#{wrap-subst\ 269}# #{w\ 1862}#)) #f) - #{x\ 11015}# - (if (#{syntax-object?\ 9378}# #{x\ 11015}#) - (#{make-syntax-object\ 9376}# - (#{syntax-object-expression\ 9380}# #{x\ 11015}#) - (#{join-wraps\ 9465}# - #{w\ 11016}# - (#{syntax-object-wrap\ 9382}# #{x\ 11015}#)) - (#{syntax-object-module\ 9384}# #{x\ 11015}#)) - (if (null? #{x\ 11015}#) - #{x\ 11015}# - (#{make-syntax-object\ 9376}# - #{x\ 11015}# - #{w\ 11016}# - #{defmod\ 11017}#)))))) - (#{bound-id-member?\ 9481}# - (lambda (#{x\ 11030}# #{list\ 11031}#) - (if (not (null? #{list\ 11031}#)) - (let ((#{t\ 11038}# - (#{bound-id=?\ 9475}# - #{x\ 11030}# - (car #{list\ 11031}#)))) - (if #{t\ 11038}# - #{t\ 11038}# - (#{bound-id-member?\ 9481}# - #{x\ 11030}# - (cdr #{list\ 11031}#)))) + #{x\ 1861}# + (if (#{syntax-object?\ 224}# #{x\ 1861}#) + (#{make-syntax-object\ 222}# + (#{syntax-object-expression\ 226}# #{x\ 1861}#) + (#{join-wraps\ 311}# + #{w\ 1862}# + (#{syntax-object-wrap\ 228}# #{x\ 1861}#)) + (#{syntax-object-module\ 230}# #{x\ 1861}#)) + (if (null? #{x\ 1861}#) + #{x\ 1861}# + (#{make-syntax-object\ 222}# + #{x\ 1861}# + #{w\ 1862}# + #{defmod\ 1863}#)))))) + (#{bound-id-member?\ 327}# + (lambda (#{x\ 1876}# #{list\ 1877}#) + (if (not (null? #{list\ 1877}#)) + (let ((#{t\ 1884}# + (#{bound-id=?\ 321}# + #{x\ 1876}# + (car #{list\ 1877}#)))) + (if #{t\ 1884}# + #{t\ 1884}# + (#{bound-id-member?\ 327}# + #{x\ 1876}# + (cdr #{list\ 1877}#)))) #f))) - (#{distinct-bound-ids?\ 9479}# - (lambda (#{ids\ 11040}#) - (letrec ((#{distinct?\ 11044}# - (lambda (#{ids\ 11045}#) - (let ((#{t\ 11048}# (null? #{ids\ 11045}#))) - (if #{t\ 11048}# - #{t\ 11048}# - (if (not (#{bound-id-member?\ 9481}# - (car #{ids\ 11045}#) - (cdr #{ids\ 11045}#))) - (#{distinct?\ 11044}# (cdr #{ids\ 11045}#)) + (#{distinct-bound-ids?\ 325}# + (lambda (#{ids\ 1886}#) + (letrec ((#{distinct?\ 1890}# + (lambda (#{ids\ 1891}#) + (let ((#{t\ 1894}# (null? #{ids\ 1891}#))) + (if #{t\ 1894}# + #{t\ 1894}# + (if (not (#{bound-id-member?\ 327}# + (car #{ids\ 1891}#) + (cdr #{ids\ 1891}#))) + (#{distinct?\ 1890}# (cdr #{ids\ 1891}#)) #f)))))) - (#{distinct?\ 11044}# #{ids\ 11040}#)))) - (#{valid-bound-ids?\ 9477}# - (lambda (#{ids\ 11052}#) - (if (letrec ((#{all-ids?\ 11057}# - (lambda (#{ids\ 11058}#) - (let ((#{t\ 11061}# (null? #{ids\ 11058}#))) - (if #{t\ 11061}# - #{t\ 11061}# - (if (#{id?\ 9414}# (car #{ids\ 11058}#)) - (#{all-ids?\ 11057}# - (cdr #{ids\ 11058}#)) + (#{distinct?\ 1890}# #{ids\ 1886}#)))) + (#{valid-bound-ids?\ 323}# + (lambda (#{ids\ 1898}#) + (if (letrec ((#{all-ids?\ 1903}# + (lambda (#{ids\ 1904}#) + (let ((#{t\ 1907}# (null? #{ids\ 1904}#))) + (if #{t\ 1907}# + #{t\ 1907}# + (if (#{id?\ 260}# (car #{ids\ 1904}#)) + (#{all-ids?\ 1903}# (cdr #{ids\ 1904}#)) #f)))))) - (#{all-ids?\ 11057}# #{ids\ 11052}#)) - (#{distinct-bound-ids?\ 9479}# #{ids\ 11052}#) + (#{all-ids?\ 1903}# #{ids\ 1898}#)) + (#{distinct-bound-ids?\ 325}# #{ids\ 1898}#) #f))) - (#{bound-id=?\ 9475}# - (lambda (#{i\ 11066}# #{j\ 11067}#) - (if (if (#{syntax-object?\ 9378}# #{i\ 11066}#) - (#{syntax-object?\ 9378}# #{j\ 11067}#) + (#{bound-id=?\ 321}# + (lambda (#{i\ 1912}# #{j\ 1913}#) + (if (if (#{syntax-object?\ 224}# #{i\ 1912}#) + (#{syntax-object?\ 224}# #{j\ 1913}#) #f) - (if (eq? (#{syntax-object-expression\ 9380}# #{i\ 11066}#) - (#{syntax-object-expression\ 9380}# #{j\ 11067}#)) - (#{same-marks?\ 9469}# - (#{wrap-marks\ 9421}# - (#{syntax-object-wrap\ 9382}# #{i\ 11066}#)) - (#{wrap-marks\ 9421}# - (#{syntax-object-wrap\ 9382}# #{j\ 11067}#))) + (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1912}#) + (#{syntax-object-expression\ 226}# #{j\ 1913}#)) + (#{same-marks?\ 315}# + (#{wrap-marks\ 267}# + (#{syntax-object-wrap\ 228}# #{i\ 1912}#)) + (#{wrap-marks\ 267}# + (#{syntax-object-wrap\ 228}# #{j\ 1913}#))) #f) - (eq? #{i\ 11066}# #{j\ 11067}#)))) - (#{free-id=?\ 9473}# - (lambda (#{i\ 11074}# #{j\ 11075}#) - (if (eq? (let ((#{x\ 11081}# #{i\ 11074}#)) - (if (#{syntax-object?\ 9378}# #{x\ 11081}#) - (#{syntax-object-expression\ 9380}# #{x\ 11081}#) - #{x\ 11081}#)) - (let ((#{x\ 11084}# #{j\ 11075}#)) - (if (#{syntax-object?\ 9378}# #{x\ 11084}#) - (#{syntax-object-expression\ 9380}# #{x\ 11084}#) - #{x\ 11084}#))) - (eq? (#{id-var-name\ 9471}# #{i\ 11074}# (quote (()))) - (#{id-var-name\ 9471}# #{j\ 11075}# (quote (())))) + (eq? #{i\ 1912}# #{j\ 1913}#)))) + (#{free-id=?\ 319}# + (lambda (#{i\ 1920}# #{j\ 1921}#) + (if (eq? (let ((#{x\ 1927}# #{i\ 1920}#)) + (if (#{syntax-object?\ 224}# #{x\ 1927}#) + (#{syntax-object-expression\ 226}# #{x\ 1927}#) + #{x\ 1927}#)) + (let ((#{x\ 1930}# #{j\ 1921}#)) + (if (#{syntax-object?\ 224}# #{x\ 1930}#) + (#{syntax-object-expression\ 226}# #{x\ 1930}#) + #{x\ 1930}#))) + (eq? (#{id-var-name\ 317}# #{i\ 1920}# (quote (()))) + (#{id-var-name\ 317}# #{j\ 1921}# (quote (())))) #f))) - (#{id-var-name\ 9471}# - (lambda (#{id\ 11088}# #{w\ 11089}#) - (letrec ((#{search-vector-rib\ 11098}# - (lambda (#{sym\ 11110}# - #{subst\ 11111}# - #{marks\ 11112}# - #{symnames\ 11113}# - #{ribcage\ 11114}#) - (let ((#{n\ 11121}# - (vector-length #{symnames\ 11113}#))) - (letrec ((#{f\ 11124}# - (lambda (#{i\ 11125}#) - (if (#{fx=\ 9321}# - #{i\ 11125}# - #{n\ 11121}#) - (#{search\ 11094}# - #{sym\ 11110}# - (cdr #{subst\ 11111}#) - #{marks\ 11112}#) + (#{id-var-name\ 317}# + (lambda (#{id\ 1934}# #{w\ 1935}#) + (letrec ((#{search-vector-rib\ 1944}# + (lambda (#{sym\ 1956}# + #{subst\ 1957}# + #{marks\ 1958}# + #{symnames\ 1959}# + #{ribcage\ 1960}#) + (let ((#{n\ 1967}# + (vector-length #{symnames\ 1959}#))) + (letrec ((#{f\ 1970}# + (lambda (#{i\ 1971}#) + (if (#{fx=\ 167}# + #{i\ 1971}# + #{n\ 1967}#) + (#{search\ 1940}# + #{sym\ 1956}# + (cdr #{subst\ 1957}#) + #{marks\ 1958}#) (if (if (eq? (vector-ref - #{symnames\ 11113}# - #{i\ 11125}#) - #{sym\ 11110}#) - (#{same-marks?\ 9469}# - #{marks\ 11112}# + #{symnames\ 1959}# + #{i\ 1971}#) + #{sym\ 1956}#) + (#{same-marks?\ 315}# + #{marks\ 1958}# (vector-ref - (#{ribcage-marks\ 9441}# - #{ribcage\ 11114}#) - #{i\ 11125}#)) + (#{ribcage-marks\ 287}# + #{ribcage\ 1960}#) + #{i\ 1971}#)) #f) (values (vector-ref - (#{ribcage-labels\ 9443}# - #{ribcage\ 11114}#) - #{i\ 11125}#) - #{marks\ 11112}#) - (#{f\ 11124}# - (#{fx+\ 9317}# - #{i\ 11125}# + (#{ribcage-labels\ 289}# + #{ribcage\ 1960}#) + #{i\ 1971}#) + #{marks\ 1958}#) + (#{f\ 1970}# + (#{fx+\ 163}# + #{i\ 1971}# 1))))))) - (#{f\ 11124}# 0))))) - (#{search-list-rib\ 11096}# - (lambda (#{sym\ 11133}# - #{subst\ 11134}# - #{marks\ 11135}# - #{symnames\ 11136}# - #{ribcage\ 11137}#) - (letrec ((#{f\ 11146}# - (lambda (#{symnames\ 11147}# - #{i\ 11148}#) - (if (null? #{symnames\ 11147}#) - (#{search\ 11094}# - #{sym\ 11133}# - (cdr #{subst\ 11134}#) - #{marks\ 11135}#) - (if (if (eq? (car #{symnames\ 11147}#) - #{sym\ 11133}#) - (#{same-marks?\ 9469}# - #{marks\ 11135}# + (#{f\ 1970}# 0))))) + (#{search-list-rib\ 1942}# + (lambda (#{sym\ 1979}# + #{subst\ 1980}# + #{marks\ 1981}# + #{symnames\ 1982}# + #{ribcage\ 1983}#) + (letrec ((#{f\ 1992}# + (lambda (#{symnames\ 1993}# #{i\ 1994}#) + (if (null? #{symnames\ 1993}#) + (#{search\ 1940}# + #{sym\ 1979}# + (cdr #{subst\ 1980}#) + #{marks\ 1981}#) + (if (if (eq? (car #{symnames\ 1993}#) + #{sym\ 1979}#) + (#{same-marks?\ 315}# + #{marks\ 1981}# (list-ref - (#{ribcage-marks\ 9441}# - #{ribcage\ 11137}#) - #{i\ 11148}#)) + (#{ribcage-marks\ 287}# + #{ribcage\ 1983}#) + #{i\ 1994}#)) #f) (values (list-ref - (#{ribcage-labels\ 9443}# - #{ribcage\ 11137}#) - #{i\ 11148}#) - #{marks\ 11135}#) - (#{f\ 11146}# - (cdr #{symnames\ 11147}#) - (#{fx+\ 9317}# - #{i\ 11148}# + (#{ribcage-labels\ 289}# + #{ribcage\ 1983}#) + #{i\ 1994}#) + #{marks\ 1981}#) + (#{f\ 1992}# + (cdr #{symnames\ 1993}#) + (#{fx+\ 163}# + #{i\ 1994}# 1))))))) - (#{f\ 11146}# #{symnames\ 11136}# 0)))) - (#{search\ 11094}# - (lambda (#{sym\ 11156}# - #{subst\ 11157}# - #{marks\ 11158}#) - (if (null? #{subst\ 11157}#) - (values #f #{marks\ 11158}#) - (let ((#{fst\ 11163}# (car #{subst\ 11157}#))) - (if (eq? #{fst\ 11163}# (quote shift)) - (#{search\ 11094}# - #{sym\ 11156}# - (cdr #{subst\ 11157}#) - (cdr #{marks\ 11158}#)) - (let ((#{symnames\ 11165}# - (#{ribcage-symnames\ 9439}# - #{fst\ 11163}#))) - (if (vector? #{symnames\ 11165}#) - (#{search-vector-rib\ 11098}# - #{sym\ 11156}# - #{subst\ 11157}# - #{marks\ 11158}# - #{symnames\ 11165}# - #{fst\ 11163}#) - (#{search-list-rib\ 11096}# - #{sym\ 11156}# - #{subst\ 11157}# - #{marks\ 11158}# - #{symnames\ 11165}# - #{fst\ 11163}#))))))))) - (if (symbol? #{id\ 11088}#) - (let ((#{t\ 11168}# + (#{f\ 1992}# #{symnames\ 1982}# 0)))) + (#{search\ 1940}# + (lambda (#{sym\ 2002}# + #{subst\ 2003}# + #{marks\ 2004}#) + (if (null? #{subst\ 2003}#) + (values #f #{marks\ 2004}#) + (let ((#{fst\ 2009}# (car #{subst\ 2003}#))) + (if (eq? #{fst\ 2009}# (quote shift)) + (#{search\ 1940}# + #{sym\ 2002}# + (cdr #{subst\ 2003}#) + (cdr #{marks\ 2004}#)) + (let ((#{symnames\ 2011}# + (#{ribcage-symnames\ 285}# + #{fst\ 2009}#))) + (if (vector? #{symnames\ 2011}#) + (#{search-vector-rib\ 1944}# + #{sym\ 2002}# + #{subst\ 2003}# + #{marks\ 2004}# + #{symnames\ 2011}# + #{fst\ 2009}#) + (#{search-list-rib\ 1942}# + #{sym\ 2002}# + #{subst\ 2003}# + #{marks\ 2004}# + #{symnames\ 2011}# + #{fst\ 2009}#))))))))) + (if (symbol? #{id\ 1934}#) + (let ((#{t\ 2014}# (call-with-values (lambda () - (#{search\ 11094}# - #{id\ 11088}# - (#{wrap-subst\ 9423}# #{w\ 11089}#) - (#{wrap-marks\ 9421}# #{w\ 11089}#))) - (lambda (#{x\ 11170}# . #{ignore\ 11171}#) - #{x\ 11170}#)))) - (if #{t\ 11168}# #{t\ 11168}# #{id\ 11088}#)) - (if (#{syntax-object?\ 9378}# #{id\ 11088}#) - (let ((#{id\ 11179}# - (#{syntax-object-expression\ 9380}# - #{id\ 11088}#)) - (#{w1\ 11180}# - (#{syntax-object-wrap\ 9382}# #{id\ 11088}#))) - (let ((#{marks\ 11182}# - (#{join-marks\ 9467}# - (#{wrap-marks\ 9421}# #{w\ 11089}#) - (#{wrap-marks\ 9421}# #{w1\ 11180}#)))) + (#{search\ 1940}# + #{id\ 1934}# + (#{wrap-subst\ 269}# #{w\ 1935}#) + (#{wrap-marks\ 267}# #{w\ 1935}#))) + (lambda (#{x\ 2016}# . #{ignore\ 2017}#) + #{x\ 2016}#)))) + (if #{t\ 2014}# #{t\ 2014}# #{id\ 1934}#)) + (if (#{syntax-object?\ 224}# #{id\ 1934}#) + (let ((#{id\ 2025}# + (#{syntax-object-expression\ 226}# #{id\ 1934}#)) + (#{w1\ 2026}# + (#{syntax-object-wrap\ 228}# #{id\ 1934}#))) + (let ((#{marks\ 2028}# + (#{join-marks\ 313}# + (#{wrap-marks\ 267}# #{w\ 1935}#) + (#{wrap-marks\ 267}# #{w1\ 2026}#)))) (call-with-values (lambda () - (#{search\ 11094}# - #{id\ 11179}# - (#{wrap-subst\ 9423}# #{w\ 11089}#) - #{marks\ 11182}#)) - (lambda (#{new-id\ 11183}# #{marks\ 11184}#) - (let ((#{t\ 11189}# #{new-id\ 11183}#)) - (if #{t\ 11189}# - #{t\ 11189}# - (let ((#{t\ 11192}# + (#{search\ 1940}# + #{id\ 2025}# + (#{wrap-subst\ 269}# #{w\ 1935}#) + #{marks\ 2028}#)) + (lambda (#{new-id\ 2029}# #{marks\ 2030}#) + (let ((#{t\ 2035}# #{new-id\ 2029}#)) + (if #{t\ 2035}# + #{t\ 2035}# + (let ((#{t\ 2038}# (call-with-values (lambda () - (#{search\ 11094}# - #{id\ 11179}# - (#{wrap-subst\ 9423}# - #{w1\ 11180}#) - #{marks\ 11184}#)) - (lambda (#{x\ 11194}# + (#{search\ 1940}# + #{id\ 2025}# + (#{wrap-subst\ 269}# + #{w1\ 2026}#) + #{marks\ 2030}#)) + (lambda (#{x\ 2040}# . - #{ignore\ 11195}#) - #{x\ 11194}#)))) - (if #{t\ 11192}# - #{t\ 11192}# - #{id\ 11179}#)))))))) + #{ignore\ 2041}#) + #{x\ 2040}#)))) + (if #{t\ 2038}# + #{t\ 2038}# + #{id\ 2025}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 11088}#)))))) - (#{same-marks?\ 9469}# - (lambda (#{x\ 11200}# #{y\ 11201}#) - (let ((#{t\ 11206}# (eq? #{x\ 11200}# #{y\ 11201}#))) - (if #{t\ 11206}# - #{t\ 11206}# - (if (not (null? #{x\ 11200}#)) - (if (not (null? #{y\ 11201}#)) - (if (eq? (car #{x\ 11200}#) (car #{y\ 11201}#)) - (#{same-marks?\ 9469}# - (cdr #{x\ 11200}#) - (cdr #{y\ 11201}#)) + #{id\ 1934}#)))))) + (#{same-marks?\ 315}# + (lambda (#{x\ 2046}# #{y\ 2047}#) + (let ((#{t\ 2052}# (eq? #{x\ 2046}# #{y\ 2047}#))) + (if #{t\ 2052}# + #{t\ 2052}# + (if (not (null? #{x\ 2046}#)) + (if (not (null? #{y\ 2047}#)) + (if (eq? (car #{x\ 2046}#) (car #{y\ 2047}#)) + (#{same-marks?\ 315}# + (cdr #{x\ 2046}#) + (cdr #{y\ 2047}#)) #f) #f) #f))))) - (#{join-marks\ 9467}# - (lambda (#{m1\ 11212}# #{m2\ 11213}#) - (#{smart-append\ 9463}# - #{m1\ 11212}# - #{m2\ 11213}#))) - (#{join-wraps\ 9465}# - (lambda (#{w1\ 11216}# #{w2\ 11217}#) - (let ((#{m1\ 11222}# - (#{wrap-marks\ 9421}# #{w1\ 11216}#)) - (#{s1\ 11223}# - (#{wrap-subst\ 9423}# #{w1\ 11216}#))) - (if (null? #{m1\ 11222}#) - (if (null? #{s1\ 11223}#) - #{w2\ 11217}# - (#{make-wrap\ 9419}# - (#{wrap-marks\ 9421}# #{w2\ 11217}#) - (#{smart-append\ 9463}# - #{s1\ 11223}# - (#{wrap-subst\ 9423}# #{w2\ 11217}#)))) - (#{make-wrap\ 9419}# - (#{smart-append\ 9463}# - #{m1\ 11222}# - (#{wrap-marks\ 9421}# #{w2\ 11217}#)) - (#{smart-append\ 9463}# - #{s1\ 11223}# - (#{wrap-subst\ 9423}# #{w2\ 11217}#))))))) - (#{smart-append\ 9463}# - (lambda (#{m1\ 11224}# #{m2\ 11225}#) - (if (null? #{m2\ 11225}#) - #{m1\ 11224}# - (append #{m1\ 11224}# #{m2\ 11225}#)))) - (#{make-binding-wrap\ 9461}# - (lambda (#{ids\ 11228}# #{labels\ 11229}# #{w\ 11230}#) - (if (null? #{ids\ 11228}#) - #{w\ 11230}# - (#{make-wrap\ 9419}# - (#{wrap-marks\ 9421}# #{w\ 11230}#) - (cons (let ((#{labelvec\ 11235}# - (list->vector #{labels\ 11229}#))) - (let ((#{n\ 11237}# - (vector-length #{labelvec\ 11235}#))) - (let ((#{symnamevec\ 11240}# - (make-vector #{n\ 11237}#)) - (#{marksvec\ 11241}# - (make-vector #{n\ 11237}#))) + (#{join-marks\ 313}# + (lambda (#{m1\ 2058}# #{m2\ 2059}#) + (#{smart-append\ 309}# #{m1\ 2058}# #{m2\ 2059}#))) + (#{join-wraps\ 311}# + (lambda (#{w1\ 2062}# #{w2\ 2063}#) + (let ((#{m1\ 2068}# (#{wrap-marks\ 267}# #{w1\ 2062}#)) + (#{s1\ 2069}# (#{wrap-subst\ 269}# #{w1\ 2062}#))) + (if (null? #{m1\ 2068}#) + (if (null? #{s1\ 2069}#) + #{w2\ 2063}# + (#{make-wrap\ 265}# + (#{wrap-marks\ 267}# #{w2\ 2063}#) + (#{smart-append\ 309}# + #{s1\ 2069}# + (#{wrap-subst\ 269}# #{w2\ 2063}#)))) + (#{make-wrap\ 265}# + (#{smart-append\ 309}# + #{m1\ 2068}# + (#{wrap-marks\ 267}# #{w2\ 2063}#)) + (#{smart-append\ 309}# + #{s1\ 2069}# + (#{wrap-subst\ 269}# #{w2\ 2063}#))))))) + (#{smart-append\ 309}# + (lambda (#{m1\ 2070}# #{m2\ 2071}#) + (if (null? #{m2\ 2071}#) + #{m1\ 2070}# + (append #{m1\ 2070}# #{m2\ 2071}#)))) + (#{make-binding-wrap\ 307}# + (lambda (#{ids\ 2074}# #{labels\ 2075}# #{w\ 2076}#) + (if (null? #{ids\ 2074}#) + #{w\ 2076}# + (#{make-wrap\ 265}# + (#{wrap-marks\ 267}# #{w\ 2076}#) + (cons (let ((#{labelvec\ 2081}# + (list->vector #{labels\ 2075}#))) + (let ((#{n\ 2083}# + (vector-length #{labelvec\ 2081}#))) + (let ((#{symnamevec\ 2086}# + (make-vector #{n\ 2083}#)) + (#{marksvec\ 2087}# + (make-vector #{n\ 2083}#))) (begin - (letrec ((#{f\ 11245}# - (lambda (#{ids\ 11246}# - #{i\ 11247}#) - (if (not (null? #{ids\ 11246}#)) + (letrec ((#{f\ 2091}# + (lambda (#{ids\ 2092}# #{i\ 2093}#) + (if (not (null? #{ids\ 2092}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 9417}# - (car #{ids\ 11246}#) - #{w\ 11230}#)) - (lambda (#{symname\ 11248}# - #{marks\ 11249}#) + (#{id-sym-name&marks\ 263}# + (car #{ids\ 2092}#) + #{w\ 2076}#)) + (lambda (#{symname\ 2094}# + #{marks\ 2095}#) (begin (vector-set! - #{symnamevec\ 11240}# - #{i\ 11247}# - #{symname\ 11248}#) + #{symnamevec\ 2086}# + #{i\ 2093}# + #{symname\ 2094}#) (vector-set! - #{marksvec\ 11241}# - #{i\ 11247}# - #{marks\ 11249}#) - (#{f\ 11245}# - (cdr #{ids\ 11246}#) - (#{fx+\ 9317}# - #{i\ 11247}# + #{marksvec\ 2087}# + #{i\ 2093}# + #{marks\ 2095}#) + (#{f\ 2091}# + (cdr #{ids\ 2092}#) + (#{fx+\ 163}# + #{i\ 2093}# 1))))))))) - (#{f\ 11245}# #{ids\ 11228}# 0)) - (#{make-ribcage\ 9435}# - #{symnamevec\ 11240}# - #{marksvec\ 11241}# - #{labelvec\ 11235}#))))) - (#{wrap-subst\ 9423}# #{w\ 11230}#)))))) - (#{extend-ribcage!\ 9459}# - (lambda (#{ribcage\ 11252}# - #{id\ 11253}# - #{label\ 11254}#) + (#{f\ 2091}# #{ids\ 2074}# 0)) + (#{make-ribcage\ 281}# + #{symnamevec\ 2086}# + #{marksvec\ 2087}# + #{labelvec\ 2081}#))))) + (#{wrap-subst\ 269}# #{w\ 2076}#)))))) + (#{extend-ribcage!\ 305}# + (lambda (#{ribcage\ 2098}# #{id\ 2099}# #{label\ 2100}#) (begin - (#{set-ribcage-symnames!\ 9445}# - #{ribcage\ 11252}# - (cons (#{syntax-object-expression\ 9380}# - #{id\ 11253}#) - (#{ribcage-symnames\ 9439}# #{ribcage\ 11252}#))) - (#{set-ribcage-marks!\ 9447}# - #{ribcage\ 11252}# - (cons (#{wrap-marks\ 9421}# - (#{syntax-object-wrap\ 9382}# #{id\ 11253}#)) - (#{ribcage-marks\ 9441}# #{ribcage\ 11252}#))) - (#{set-ribcage-labels!\ 9449}# - #{ribcage\ 11252}# - (cons #{label\ 11254}# - (#{ribcage-labels\ 9443}# #{ribcage\ 11252}#)))))) - (#{anti-mark\ 9455}# - (lambda (#{w\ 11258}#) - (#{make-wrap\ 9419}# - (cons #f (#{wrap-marks\ 9421}# #{w\ 11258}#)) + (#{set-ribcage-symnames!\ 291}# + #{ribcage\ 2098}# + (cons (#{syntax-object-expression\ 226}# #{id\ 2099}#) + (#{ribcage-symnames\ 285}# #{ribcage\ 2098}#))) + (#{set-ribcage-marks!\ 293}# + #{ribcage\ 2098}# + (cons (#{wrap-marks\ 267}# + (#{syntax-object-wrap\ 228}# #{id\ 2099}#)) + (#{ribcage-marks\ 287}# #{ribcage\ 2098}#))) + (#{set-ribcage-labels!\ 295}# + #{ribcage\ 2098}# + (cons #{label\ 2100}# + (#{ribcage-labels\ 289}# #{ribcage\ 2098}#)))))) + (#{anti-mark\ 301}# + (lambda (#{w\ 2104}#) + (#{make-wrap\ 265}# + (cons #f (#{wrap-marks\ 267}# #{w\ 2104}#)) (cons 'shift - (#{wrap-subst\ 9423}# #{w\ 11258}#))))) - (#{set-ribcage-labels!\ 9449}# - (lambda (#{x\ 11261}# #{update\ 11262}#) - (vector-set! #{x\ 11261}# 3 #{update\ 11262}#))) - (#{set-ribcage-marks!\ 9447}# - (lambda (#{x\ 11265}# #{update\ 11266}#) - (vector-set! #{x\ 11265}# 2 #{update\ 11266}#))) - (#{set-ribcage-symnames!\ 9445}# - (lambda (#{x\ 11269}# #{update\ 11270}#) - (vector-set! #{x\ 11269}# 1 #{update\ 11270}#))) - (#{ribcage-labels\ 9443}# - (lambda (#{x\ 11273}#) - (vector-ref #{x\ 11273}# 3))) - (#{ribcage-marks\ 9441}# - (lambda (#{x\ 11275}#) - (vector-ref #{x\ 11275}# 2))) - (#{ribcage-symnames\ 9439}# - (lambda (#{x\ 11277}#) - (vector-ref #{x\ 11277}# 1))) - (#{ribcage?\ 9437}# - (lambda (#{x\ 11279}#) - (if (vector? #{x\ 11279}#) - (if (= (vector-length #{x\ 11279}#) 4) - (eq? (vector-ref #{x\ 11279}# 0) (quote ribcage)) + (#{wrap-subst\ 269}# #{w\ 2104}#))))) + (#{set-ribcage-labels!\ 295}# + (lambda (#{x\ 2107}# #{update\ 2108}#) + (vector-set! #{x\ 2107}# 3 #{update\ 2108}#))) + (#{set-ribcage-marks!\ 293}# + (lambda (#{x\ 2111}# #{update\ 2112}#) + (vector-set! #{x\ 2111}# 2 #{update\ 2112}#))) + (#{set-ribcage-symnames!\ 291}# + (lambda (#{x\ 2115}# #{update\ 2116}#) + (vector-set! #{x\ 2115}# 1 #{update\ 2116}#))) + (#{ribcage-labels\ 289}# + (lambda (#{x\ 2119}#) (vector-ref #{x\ 2119}# 3))) + (#{ribcage-marks\ 287}# + (lambda (#{x\ 2121}#) (vector-ref #{x\ 2121}# 2))) + (#{ribcage-symnames\ 285}# + (lambda (#{x\ 2123}#) (vector-ref #{x\ 2123}# 1))) + (#{ribcage?\ 283}# + (lambda (#{x\ 2125}#) + (if (vector? #{x\ 2125}#) + (if (= (vector-length #{x\ 2125}#) 4) + (eq? (vector-ref #{x\ 2125}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 9435}# - (lambda (#{symnames\ 11284}# - #{marks\ 11285}# - #{labels\ 11286}#) + (#{make-ribcage\ 281}# + (lambda (#{symnames\ 2130}# + #{marks\ 2131}# + #{labels\ 2132}#) (vector 'ribcage - #{symnames\ 11284}# - #{marks\ 11285}# - #{labels\ 11286}#))) - (#{gen-labels\ 9432}# - (lambda (#{ls\ 11290}#) - (if (null? #{ls\ 11290}#) + #{symnames\ 2130}# + #{marks\ 2131}# + #{labels\ 2132}#))) + (#{gen-labels\ 278}# + (lambda (#{ls\ 2136}#) + (if (null? #{ls\ 2136}#) '() - (cons (#{gen-label\ 9430}#) - (#{gen-labels\ 9432}# (cdr #{ls\ 11290}#)))))) - (#{gen-label\ 9430}# + (cons (#{gen-label\ 276}#) + (#{gen-labels\ 278}# (cdr #{ls\ 2136}#)))))) + (#{gen-label\ 276}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 9423}# cdr) - (#{wrap-marks\ 9421}# car) - (#{make-wrap\ 9419}# cons) - (#{id-sym-name&marks\ 9417}# - (lambda (#{x\ 11292}# #{w\ 11293}#) - (if (#{syntax-object?\ 9378}# #{x\ 11292}#) + (#{wrap-subst\ 269}# cdr) + (#{wrap-marks\ 267}# car) + (#{make-wrap\ 265}# cons) + (#{id-sym-name&marks\ 263}# + (lambda (#{x\ 2138}# #{w\ 2139}#) + (if (#{syntax-object?\ 224}# #{x\ 2138}#) (values - (#{syntax-object-expression\ 9380}# #{x\ 11292}#) - (#{join-marks\ 9467}# - (#{wrap-marks\ 9421}# #{w\ 11293}#) - (#{wrap-marks\ 9421}# - (#{syntax-object-wrap\ 9382}# #{x\ 11292}#)))) + (#{syntax-object-expression\ 226}# #{x\ 2138}#) + (#{join-marks\ 313}# + (#{wrap-marks\ 267}# #{w\ 2139}#) + (#{wrap-marks\ 267}# + (#{syntax-object-wrap\ 228}# #{x\ 2138}#)))) (values - #{x\ 11292}# - (#{wrap-marks\ 9421}# #{w\ 11293}#))))) - (#{id?\ 9414}# - (lambda (#{x\ 11296}#) - (if (symbol? #{x\ 11296}#) + #{x\ 2138}# + (#{wrap-marks\ 267}# #{w\ 2139}#))))) + (#{id?\ 260}# + (lambda (#{x\ 2142}#) + (if (symbol? #{x\ 2142}#) #t - (if (#{syntax-object?\ 9378}# #{x\ 11296}#) + (if (#{syntax-object?\ 224}# #{x\ 2142}#) (symbol? - (#{syntax-object-expression\ 9380}# #{x\ 11296}#)) + (#{syntax-object-expression\ 226}# #{x\ 2142}#)) #f)))) - (#{nonsymbol-id?\ 9412}# - (lambda (#{x\ 11303}#) - (if (#{syntax-object?\ 9378}# #{x\ 11303}#) + (#{nonsymbol-id?\ 258}# + (lambda (#{x\ 2149}#) + (if (#{syntax-object?\ 224}# #{x\ 2149}#) (symbol? - (#{syntax-object-expression\ 9380}# #{x\ 11303}#)) + (#{syntax-object-expression\ 226}# #{x\ 2149}#)) #f))) - (#{global-extend\ 9410}# - (lambda (#{type\ 11307}# #{sym\ 11308}# #{val\ 11309}#) - (#{put-global-definition-hook\ 9330}# - #{sym\ 11308}# - #{type\ 11307}# - #{val\ 11309}#))) - (#{lookup\ 9408}# - (lambda (#{x\ 11313}# #{r\ 11314}# #{mod\ 11315}#) - (let ((#{t\ 11321}# (assq #{x\ 11313}# #{r\ 11314}#))) - (if #{t\ 11321}# - (cdr #{t\ 11321}#) - (if (symbol? #{x\ 11313}#) - (let ((#{t\ 11327}# - (#{get-global-definition-hook\ 9332}# - #{x\ 11313}# - #{mod\ 11315}#))) - (if #{t\ 11327}# #{t\ 11327}# (quote (global)))) + (#{global-extend\ 256}# + (lambda (#{type\ 2153}# #{sym\ 2154}# #{val\ 2155}#) + (#{put-global-definition-hook\ 176}# + #{sym\ 2154}# + #{type\ 2153}# + #{val\ 2155}#))) + (#{lookup\ 254}# + (lambda (#{x\ 2159}# #{r\ 2160}# #{mod\ 2161}#) + (let ((#{t\ 2167}# (assq #{x\ 2159}# #{r\ 2160}#))) + (if #{t\ 2167}# + (cdr #{t\ 2167}#) + (if (symbol? #{x\ 2159}#) + (let ((#{t\ 2173}# + (#{get-global-definition-hook\ 178}# + #{x\ 2159}# + #{mod\ 2161}#))) + (if #{t\ 2173}# #{t\ 2173}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 9406}# - (lambda (#{r\ 11332}#) - (if (null? #{r\ 11332}#) + (#{macros-only-env\ 252}# + (lambda (#{r\ 2178}#) + (if (null? #{r\ 2178}#) '() - (let ((#{a\ 11335}# (car #{r\ 11332}#))) - (if (eq? (cadr #{a\ 11335}#) (quote macro)) - (cons #{a\ 11335}# - (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#))) - (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#))))))) - (#{extend-var-env\ 9404}# - (lambda (#{labels\ 11336}# #{vars\ 11337}# #{r\ 11338}#) - (if (null? #{labels\ 11336}#) - #{r\ 11338}# - (#{extend-var-env\ 9404}# - (cdr #{labels\ 11336}#) - (cdr #{vars\ 11337}#) - (cons (cons (car #{labels\ 11336}#) - (cons (quote lexical) (car #{vars\ 11337}#))) - #{r\ 11338}#))))) - (#{extend-env\ 9402}# - (lambda (#{labels\ 11343}# - #{bindings\ 11344}# - #{r\ 11345}#) - (if (null? #{labels\ 11343}#) - #{r\ 11345}# - (#{extend-env\ 9402}# - (cdr #{labels\ 11343}#) - (cdr #{bindings\ 11344}#) - (cons (cons (car #{labels\ 11343}#) - (car #{bindings\ 11344}#)) - #{r\ 11345}#))))) - (#{binding-value\ 9399}# cdr) - (#{binding-type\ 9397}# car) - (#{source-annotation\ 9393}# - (lambda (#{x\ 11349}#) - (if (#{syntax-object?\ 9378}# #{x\ 11349}#) - (#{source-annotation\ 9393}# - (#{syntax-object-expression\ 9380}# #{x\ 11349}#)) - (if (pair? #{x\ 11349}#) - (let ((#{props\ 11356}# - (source-properties #{x\ 11349}#))) - (if (pair? #{props\ 11356}#) #{props\ 11356}# #f)) + (let ((#{a\ 2181}# (car #{r\ 2178}#))) + (if (eq? (cadr #{a\ 2181}#) (quote macro)) + (cons #{a\ 2181}# + (#{macros-only-env\ 252}# (cdr #{r\ 2178}#))) + (#{macros-only-env\ 252}# (cdr #{r\ 2178}#))))))) + (#{extend-var-env\ 250}# + (lambda (#{labels\ 2182}# #{vars\ 2183}# #{r\ 2184}#) + (if (null? #{labels\ 2182}#) + #{r\ 2184}# + (#{extend-var-env\ 250}# + (cdr #{labels\ 2182}#) + (cdr #{vars\ 2183}#) + (cons (cons (car #{labels\ 2182}#) + (cons (quote lexical) (car #{vars\ 2183}#))) + #{r\ 2184}#))))) + (#{extend-env\ 248}# + (lambda (#{labels\ 2189}# #{bindings\ 2190}# #{r\ 2191}#) + (if (null? #{labels\ 2189}#) + #{r\ 2191}# + (#{extend-env\ 248}# + (cdr #{labels\ 2189}#) + (cdr #{bindings\ 2190}#) + (cons (cons (car #{labels\ 2189}#) + (car #{bindings\ 2190}#)) + #{r\ 2191}#))))) + (#{binding-value\ 245}# cdr) + (#{binding-type\ 243}# car) + (#{source-annotation\ 239}# + (lambda (#{x\ 2195}#) + (if (#{syntax-object?\ 224}# #{x\ 2195}#) + (#{source-annotation\ 239}# + (#{syntax-object-expression\ 226}# #{x\ 2195}#)) + (if (pair? #{x\ 2195}#) + (let ((#{props\ 2202}# (source-properties #{x\ 2195}#))) + (if (pair? #{props\ 2202}#) #{props\ 2202}# #f)) #f)))) - (#{set-syntax-object-module!\ 9390}# - (lambda (#{x\ 11358}# #{update\ 11359}#) - (vector-set! #{x\ 11358}# 3 #{update\ 11359}#))) - (#{set-syntax-object-wrap!\ 9388}# - (lambda (#{x\ 11362}# #{update\ 11363}#) - (vector-set! #{x\ 11362}# 2 #{update\ 11363}#))) - (#{set-syntax-object-expression!\ 9386}# - (lambda (#{x\ 11366}# #{update\ 11367}#) - (vector-set! #{x\ 11366}# 1 #{update\ 11367}#))) - (#{syntax-object-module\ 9384}# - (lambda (#{x\ 11370}#) - (vector-ref #{x\ 11370}# 3))) - (#{syntax-object-wrap\ 9382}# - (lambda (#{x\ 11372}#) - (vector-ref #{x\ 11372}# 2))) - (#{syntax-object-expression\ 9380}# - (lambda (#{x\ 11374}#) - (vector-ref #{x\ 11374}# 1))) - (#{syntax-object?\ 9378}# - (lambda (#{x\ 11376}#) - (if (vector? #{x\ 11376}#) - (if (= (vector-length #{x\ 11376}#) 4) - (eq? (vector-ref #{x\ 11376}# 0) + (#{set-syntax-object-module!\ 236}# + (lambda (#{x\ 2204}# #{update\ 2205}#) + (vector-set! #{x\ 2204}# 3 #{update\ 2205}#))) + (#{set-syntax-object-wrap!\ 234}# + (lambda (#{x\ 2208}# #{update\ 2209}#) + (vector-set! #{x\ 2208}# 2 #{update\ 2209}#))) + (#{set-syntax-object-expression!\ 232}# + (lambda (#{x\ 2212}# #{update\ 2213}#) + (vector-set! #{x\ 2212}# 1 #{update\ 2213}#))) + (#{syntax-object-module\ 230}# + (lambda (#{x\ 2216}#) (vector-ref #{x\ 2216}# 3))) + (#{syntax-object-wrap\ 228}# + (lambda (#{x\ 2218}#) (vector-ref #{x\ 2218}# 2))) + (#{syntax-object-expression\ 226}# + (lambda (#{x\ 2220}#) (vector-ref #{x\ 2220}# 1))) + (#{syntax-object?\ 224}# + (lambda (#{x\ 2222}#) + (if (vector? #{x\ 2222}#) + (if (= (vector-length #{x\ 2222}#) 4) + (eq? (vector-ref #{x\ 2222}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 9376}# - (lambda (#{expression\ 11381}# - #{wrap\ 11382}# - #{module\ 11383}#) + (#{make-syntax-object\ 222}# + (lambda (#{expression\ 2227}# + #{wrap\ 2228}# + #{module\ 2229}#) (vector 'syntax-object - #{expression\ 11381}# - #{wrap\ 11382}# - #{module\ 11383}#))) - (#{build-letrec\ 9372}# - (lambda (#{src\ 11387}# - #{ids\ 11388}# - #{vars\ 11389}# - #{val-exps\ 11390}# - #{body-exp\ 11391}#) - (if (null? #{vars\ 11389}#) - #{body-exp\ 11391}# - (let ((#{atom-key\ 11399}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11399}# (quote (c))) + #{expression\ 2227}# + #{wrap\ 2228}# + #{module\ 2229}#))) + (#{build-letrec\ 218}# + (lambda (#{src\ 2233}# + #{ids\ 2234}# + #{vars\ 2235}# + #{val-exps\ 2236}# + #{body-exp\ 2237}#) + (if (null? #{vars\ 2235}#) + #{body-exp\ 2237}# + (let ((#{atom-key\ 2245}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2245}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 9352}# - #{ids\ 11388}# - #{val-exps\ 11390}#) + #{maybe-name-value!\ 198}# + #{ids\ 2234}# + #{val-exps\ 2236}#) ((@ (language tree-il) make-letrec) - #{src\ 11387}# - #{ids\ 11388}# - #{vars\ 11389}# - #{val-exps\ 11390}# - #{body-exp\ 11391}#)) - (#{decorate-source\ 9334}# + #{src\ 2233}# + #{ids\ 2234}# + #{vars\ 2235}# + #{val-exps\ 2236}# + #{body-exp\ 2237}#)) + (#{decorate-source\ 180}# (list 'letrec - (map list #{vars\ 11389}# #{val-exps\ 11390}#) - #{body-exp\ 11391}#) - #{src\ 11387}#)))))) - (#{build-named-let\ 9370}# - (lambda (#{src\ 11403}# - #{ids\ 11404}# - #{vars\ 11405}# - #{val-exps\ 11406}# - #{body-exp\ 11407}#) - (let ((#{f\ 11417}# (car #{vars\ 11405}#)) - (#{f-name\ 11418}# (car #{ids\ 11404}#)) - (#{vars\ 11419}# (cdr #{vars\ 11405}#)) - (#{ids\ 11420}# (cdr #{ids\ 11404}#))) - (let ((#{atom-key\ 11423}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11423}# (quote (c))) - (let ((#{proc\ 11426}# - (#{build-simple-lambda\ 9356}# - #{src\ 11403}# - #{ids\ 11420}# + (map list #{vars\ 2235}# #{val-exps\ 2236}#) + #{body-exp\ 2237}#) + #{src\ 2233}#)))))) + (#{build-named-let\ 216}# + (lambda (#{src\ 2249}# + #{ids\ 2250}# + #{vars\ 2251}# + #{val-exps\ 2252}# + #{body-exp\ 2253}#) + (let ((#{f\ 2263}# (car #{vars\ 2251}#)) + (#{f-name\ 2264}# (car #{ids\ 2250}#)) + (#{vars\ 2265}# (cdr #{vars\ 2251}#)) + (#{ids\ 2266}# (cdr #{ids\ 2250}#))) + (let ((#{atom-key\ 2269}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2269}# (quote (c))) + (let ((#{proc\ 2272}# + (#{build-simple-lambda\ 202}# + #{src\ 2249}# + #{ids\ 2266}# #f - #{vars\ 11419}# + #{vars\ 2265}# #f - #{body-exp\ 11407}#))) + #{body-exp\ 2253}#))) (begin - (#{maybe-name-value!\ 9352}# - #{f-name\ 11418}# - #{proc\ 11426}#) + (#{maybe-name-value!\ 198}# + #{f-name\ 2264}# + #{proc\ 2272}#) (for-each - #{maybe-name-value!\ 9352}# - #{ids\ 11420}# - #{val-exps\ 11406}#) + #{maybe-name-value!\ 198}# + #{ids\ 2266}# + #{val-exps\ 2252}#) ((@ (language tree-il) make-letrec) - #{src\ 11403}# - (list #{f-name\ 11418}#) - (list #{f\ 11417}#) - (list #{proc\ 11426}#) - (#{build-application\ 9338}# - #{src\ 11403}# - (#{build-lexical-reference\ 9342}# + #{src\ 2249}# + (list #{f-name\ 2264}#) + (list #{f\ 2263}#) + (list #{proc\ 2272}#) + (#{build-application\ 184}# + #{src\ 2249}# + (#{build-lexical-reference\ 188}# 'fun - #{src\ 11403}# - #{f-name\ 11418}# - #{f\ 11417}#) - #{val-exps\ 11406}#)))) - (#{decorate-source\ 9334}# + #{src\ 2249}# + #{f-name\ 2264}# + #{f\ 2263}#) + #{val-exps\ 2252}#)))) + (#{decorate-source\ 180}# (list 'letrec - (list (list #{f\ 11417}# + (list (list #{f\ 2263}# (list 'lambda - #{vars\ 11419}# - #{body-exp\ 11407}#))) - (cons #{f\ 11417}# #{val-exps\ 11406}#)) - #{src\ 11403}#)))))) - (#{build-let\ 9368}# - (lambda (#{src\ 11429}# - #{ids\ 11430}# - #{vars\ 11431}# - #{val-exps\ 11432}# - #{body-exp\ 11433}#) - (if (null? #{vars\ 11431}#) - #{body-exp\ 11433}# - (let ((#{atom-key\ 11441}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11441}# (quote (c))) + #{vars\ 2265}# + #{body-exp\ 2253}#))) + (cons #{f\ 2263}# #{val-exps\ 2252}#)) + #{src\ 2249}#)))))) + (#{build-let\ 214}# + (lambda (#{src\ 2275}# + #{ids\ 2276}# + #{vars\ 2277}# + #{val-exps\ 2278}# + #{body-exp\ 2279}#) + (if (null? #{vars\ 2277}#) + #{body-exp\ 2279}# + (let ((#{atom-key\ 2287}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2287}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 9352}# - #{ids\ 11430}# - #{val-exps\ 11432}#) + #{maybe-name-value!\ 198}# + #{ids\ 2276}# + #{val-exps\ 2278}#) ((@ (language tree-il) make-let) - #{src\ 11429}# - #{ids\ 11430}# - #{vars\ 11431}# - #{val-exps\ 11432}# - #{body-exp\ 11433}#)) - (#{decorate-source\ 9334}# + #{src\ 2275}# + #{ids\ 2276}# + #{vars\ 2277}# + #{val-exps\ 2278}# + #{body-exp\ 2279}#)) + (#{decorate-source\ 180}# (list 'let - (map list #{vars\ 11431}# #{val-exps\ 11432}#) - #{body-exp\ 11433}#) - #{src\ 11429}#)))))) - (#{build-sequence\ 9366}# - (lambda (#{src\ 11445}# #{exps\ 11446}#) - (if (null? (cdr #{exps\ 11446}#)) - (car #{exps\ 11446}#) - (let ((#{atom-key\ 11451}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11451}# (quote (c))) + (map list #{vars\ 2277}# #{val-exps\ 2278}#) + #{body-exp\ 2279}#) + #{src\ 2275}#)))))) + (#{build-sequence\ 212}# + (lambda (#{src\ 2291}# #{exps\ 2292}#) + (if (null? (cdr #{exps\ 2292}#)) + (car #{exps\ 2292}#) + (let ((#{atom-key\ 2297}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2297}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 11445}# - #{exps\ 11446}#) - (#{decorate-source\ 9334}# - (cons (quote begin) #{exps\ 11446}#) - #{src\ 11445}#)))))) - (#{build-data\ 9364}# - (lambda (#{src\ 11455}# #{exp\ 11456}#) - (let ((#{atom-key\ 11461}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11461}# (quote (c))) + #{src\ 2291}# + #{exps\ 2292}#) + (#{decorate-source\ 180}# + (cons (quote begin) #{exps\ 2292}#) + #{src\ 2291}#)))))) + (#{build-data\ 210}# + (lambda (#{src\ 2301}# #{exp\ 2302}#) + (let ((#{atom-key\ 2307}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2307}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 11455}# - #{exp\ 11456}#) - (#{decorate-source\ 9334}# - (if (if (self-evaluating? #{exp\ 11456}#) - (not (vector? #{exp\ 11456}#)) + #{src\ 2301}# + #{exp\ 2302}#) + (#{decorate-source\ 180}# + (if (if (self-evaluating? #{exp\ 2302}#) + (not (vector? #{exp\ 2302}#)) #f) - #{exp\ 11456}# - (list (quote quote) #{exp\ 11456}#)) - #{src\ 11455}#))))) - (#{build-primref\ 9362}# - (lambda (#{src\ 11466}# #{name\ 11467}#) + #{exp\ 2302}# + (list (quote quote) #{exp\ 2302}#)) + #{src\ 2301}#))))) + (#{build-primref\ 208}# + (lambda (#{src\ 2312}# #{name\ 2313}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 11472}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11472}# (quote (c))) + (let ((#{atom-key\ 2318}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2318}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 11466}# - #{name\ 11467}#) - (#{decorate-source\ 9334}# - #{name\ 11467}# - #{src\ 11466}#))) - (let ((#{atom-key\ 11477}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11477}# (quote (c))) + #{src\ 2312}# + #{name\ 2313}#) + (#{decorate-source\ 180}# + #{name\ 2313}# + #{src\ 2312}#))) + (let ((#{atom-key\ 2323}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2323}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 11466}# + #{src\ 2312}# '(guile) - #{name\ 11467}# + #{name\ 2313}# #f) - (#{decorate-source\ 9334}# - (list (quote @@) (quote (guile)) #{name\ 11467}#) - #{src\ 11466}#)))))) - (#{build-lambda-case\ 9360}# - (lambda (#{src\ 11481}# - #{req\ 11482}# - #{opt\ 11483}# - #{rest\ 11484}# - #{kw\ 11485}# - #{inits\ 11486}# - #{vars\ 11487}# - #{body\ 11488}# - #{else-case\ 11489}#) - (let ((#{atom-key\ 11501}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11501}# (quote (c))) + (#{decorate-source\ 180}# + (list (quote @@) (quote (guile)) #{name\ 2313}#) + #{src\ 2312}#)))))) + (#{build-lambda-case\ 206}# + (lambda (#{src\ 2327}# + #{req\ 2328}# + #{opt\ 2329}# + #{rest\ 2330}# + #{kw\ 2331}# + #{inits\ 2332}# + #{vars\ 2333}# + #{body\ 2334}# + #{else-case\ 2335}#) + (let ((#{atom-key\ 2347}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2347}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 11481}# - #{req\ 11482}# - #{opt\ 11483}# - #{rest\ 11484}# - #{kw\ 11485}# - #{inits\ 11486}# - #{vars\ 11487}# - #{body\ 11488}# - #{else-case\ 11489}#) - (let ((#{nreq\ 11506}# (length #{req\ 11482}#))) - (let ((#{nopt\ 11508}# - (if #{opt\ 11483}# (length #{opt\ 11483}#) 0))) - (let ((#{rest-idx\ 11510}# - (if #{rest\ 11484}# - (+ #{nreq\ 11506}# #{nopt\ 11508}#) + #{src\ 2327}# + #{req\ 2328}# + #{opt\ 2329}# + #{rest\ 2330}# + #{kw\ 2331}# + #{inits\ 2332}# + #{vars\ 2333}# + #{body\ 2334}# + #{else-case\ 2335}#) + (let ((#{nreq\ 2352}# (length #{req\ 2328}#))) + (let ((#{nopt\ 2354}# + (if #{opt\ 2329}# (length #{opt\ 2329}#) 0))) + (let ((#{rest-idx\ 2356}# + (if #{rest\ 2330}# + (+ #{nreq\ 2352}# #{nopt\ 2354}#) #f))) - (let ((#{allow-other-keys?\ 11514}# - (if #{kw\ 11485}# (car #{kw\ 11485}#) #f))) - (let ((#{kw-indices\ 11516}# - (map (lambda (#{x\ 11517}#) - (cons (car #{x\ 11517}#) + (let ((#{allow-other-keys?\ 2360}# + (if #{kw\ 2331}# (car #{kw\ 2331}#) #f))) + (let ((#{kw-indices\ 2362}# + (map (lambda (#{x\ 2363}#) + (cons (car #{x\ 2363}#) (list-index - #{vars\ 11487}# - (caddr #{x\ 11517}#)))) - (if #{kw\ 11485}# - (cdr #{kw\ 11485}#) + #{vars\ 2333}# + (caddr #{x\ 2363}#)))) + (if #{kw\ 2331}# + (cdr #{kw\ 2331}#) '())))) - (let ((#{nargs\ 11520}# + (let ((#{nargs\ 2366}# (apply max - (+ #{nreq\ 11506}# - #{nopt\ 11508}# - (if #{rest\ 11484}# 1 0)) + (+ #{nreq\ 2352}# + #{nopt\ 2354}# + (if #{rest\ 2330}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 11516}#))))) + #{kw-indices\ 2362}#))))) (begin - (let ((#{t\ 11523}# - (= #{nargs\ 11520}# - (length #{vars\ 11487}#) - (+ #{nreq\ 11506}# - (length #{inits\ 11486}#) - (if #{rest\ 11484}# 1 0))))) - (if #{t\ 11523}# - #{t\ 11523}# + (let ((#{t\ 2369}# + (= #{nargs\ 2366}# + (length #{vars\ 2333}#) + (+ #{nreq\ 2352}# + (length #{inits\ 2332}#) + (if #{rest\ 2330}# 1 0))))) + (if #{t\ 2369}# + #{t\ 2369}# (error "something went wrong" - #{req\ 11482}# - #{opt\ 11483}# - #{rest\ 11484}# - #{kw\ 11485}# - #{inits\ 11486}# - #{vars\ 11487}# - #{nreq\ 11506}# - #{nopt\ 11508}# - #{kw-indices\ 11516}# - #{nargs\ 11520}#))) - (#{decorate-source\ 9334}# + #{req\ 2328}# + #{opt\ 2329}# + #{rest\ 2330}# + #{kw\ 2331}# + #{inits\ 2332}# + #{vars\ 2333}# + #{nreq\ 2352}# + #{nopt\ 2354}# + #{kw-indices\ 2362}# + #{nargs\ 2366}#))) + (#{decorate-source\ 180}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 11506}# - #{nopt\ 11508}# - #{rest-idx\ 11510}# - #{nargs\ 11520}# - #{allow-other-keys?\ 11514}# - #{kw-indices\ 11516}#)) + (list #{nreq\ 2352}# + #{nopt\ 2354}# + #{rest-idx\ 2356}# + #{nargs\ 2366}# + #{allow-other-keys?\ 2360}# + #{kw-indices\ 2362}#)) (cons (cons 'list - (map (lambda (#{i\ 11526}#) + (map (lambda (#{i\ 2372}#) (list 'lambda - #{vars\ 11487}# - #{i\ 11526}#)) - #{inits\ 11486}#)) + #{vars\ 2333}# + #{i\ 2372}#)) + #{inits\ 2332}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 11487}# - #{body\ 11488}#) + #{vars\ 2333}# + #{body\ 2334}#) '(%%args))))) - (let ((#{t\ 11531}# - #{else-case\ 11489}#)) - (if #{t\ 11531}# - #{t\ 11531}# + (let ((#{t\ 2377}# + #{else-case\ 2335}#)) + (if #{t\ 2377}# + #{t\ 2377}# '((%%args (scm-error 'wrong-number-of-args @@ -7519,1444 +7471,1406 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 11481}#)))))))))))) - (#{build-case-lambda\ 9358}# - (lambda (#{src\ 11534}# - #{docstring\ 11535}# - #{body\ 11536}#) - (let ((#{atom-key\ 11542}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11542}# (quote (c))) + #{src\ 2327}#)))))))))))) + (#{build-case-lambda\ 204}# + (lambda (#{src\ 2380}# + #{docstring\ 2381}# + #{body\ 2382}#) + (let ((#{atom-key\ 2388}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2388}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 11534}# - (if #{docstring\ 11535}# - (list (cons (quote documentation) #{docstring\ 11535}#)) + #{src\ 2380}# + (if #{docstring\ 2381}# + (list (cons (quote documentation) #{docstring\ 2381}#)) '()) - #{body\ 11536}#) - (#{decorate-source\ 9334}# + #{body\ 2382}#) + (#{decorate-source\ 180}# (cons 'lambda (cons '%%args (append - (if #{docstring\ 11535}# - (list #{docstring\ 11535}#) + (if #{docstring\ 2381}# + (list #{docstring\ 2381}#) '()) - (list (cons 'cond - #{body\ 11536}#))))) - #{src\ 11534}#))))) - (#{build-simple-lambda\ 9356}# - (lambda (#{src\ 11547}# - #{req\ 11548}# - #{rest\ 11549}# - #{vars\ 11550}# - #{docstring\ 11551}# - #{exp\ 11552}#) - (let ((#{atom-key\ 11561}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11561}# (quote (c))) + (list (cons (quote cond) #{body\ 2382}#))))) + #{src\ 2380}#))))) + (#{build-simple-lambda\ 202}# + (lambda (#{src\ 2393}# + #{req\ 2394}# + #{rest\ 2395}# + #{vars\ 2396}# + #{docstring\ 2397}# + #{exp\ 2398}#) + (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2407}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 11547}# - (if #{docstring\ 11551}# - (list (cons (quote documentation) #{docstring\ 11551}#)) + #{src\ 2393}# + (if #{docstring\ 2397}# + (list (cons (quote documentation) #{docstring\ 2397}#)) '()) ((@ (language tree-il) make-lambda-case) - #{src\ 11547}# - #{req\ 11548}# + #{src\ 2393}# + #{req\ 2394}# #f - #{rest\ 11549}# + #{rest\ 2395}# #f '() - #{vars\ 11550}# - #{exp\ 11552}# + #{vars\ 2396}# + #{exp\ 2398}# #f)) - (#{decorate-source\ 9334}# + (#{decorate-source\ 180}# (cons 'lambda - (cons (if #{rest\ 11549}# - (apply cons* #{vars\ 11550}#) - #{vars\ 11550}#) + (cons (if #{rest\ 2395}# + (apply cons* #{vars\ 2396}#) + #{vars\ 2396}#) (append - (if #{docstring\ 11551}# - (list #{docstring\ 11551}#) + (if #{docstring\ 2397}# + (list #{docstring\ 2397}#) '()) - (list #{exp\ 11552}#)))) - #{src\ 11547}#))))) - (#{build-global-definition\ 9354}# - (lambda (#{source\ 11566}# #{var\ 11567}# #{exp\ 11568}#) - (let ((#{atom-key\ 11574}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11574}# (quote (c))) + (list #{exp\ 2398}#)))) + #{src\ 2393}#))))) + (#{build-global-definition\ 200}# + (lambda (#{source\ 2412}# #{var\ 2413}# #{exp\ 2414}#) + (let ((#{atom-key\ 2420}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2420}# (quote (c))) (begin - (#{maybe-name-value!\ 9352}# - #{var\ 11567}# - #{exp\ 11568}#) + (#{maybe-name-value!\ 198}# + #{var\ 2413}# + #{exp\ 2414}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 11566}# - #{var\ 11567}# - #{exp\ 11568}#)) - (#{decorate-source\ 9334}# - (list 'define - #{var\ 11567}# - #{exp\ 11568}#) - #{source\ 11566}#))))) - (#{maybe-name-value!\ 9352}# - (lambda (#{name\ 11578}# #{val\ 11579}#) - (if ((@ (language tree-il) lambda?) #{val\ 11579}#) - (let ((#{meta\ 11585}# + #{source\ 2412}# + #{var\ 2413}# + #{exp\ 2414}#)) + (#{decorate-source\ 180}# + (list (quote define) #{var\ 2413}# #{exp\ 2414}#) + #{source\ 2412}#))))) + (#{maybe-name-value!\ 198}# + (lambda (#{name\ 2424}# #{val\ 2425}#) + (if ((@ (language tree-il) lambda?) #{val\ 2425}#) + (let ((#{meta\ 2431}# ((@ (language tree-il) lambda-meta) - #{val\ 11579}#))) - (if (not (assq (quote name) #{meta\ 11585}#)) + #{val\ 2425}#))) + (if (not (assq (quote name) #{meta\ 2431}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 11579}# + #{val\ 2425}# (acons 'name - #{name\ 11578}# - #{meta\ 11585}#))))))) - (#{build-global-assignment\ 9350}# - (lambda (#{source\ 11586}# - #{var\ 11587}# - #{exp\ 11588}# - #{mod\ 11589}#) - (#{analyze-variable\ 9346}# - #{mod\ 11589}# - #{var\ 11587}# - (lambda (#{mod\ 11594}# - #{var\ 11595}# - #{public?\ 11596}#) - (let ((#{atom-key\ 11602}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11602}# (quote (c))) + #{name\ 2424}# + #{meta\ 2431}#))))))) + (#{build-global-assignment\ 196}# + (lambda (#{source\ 2432}# + #{var\ 2433}# + #{exp\ 2434}# + #{mod\ 2435}#) + (#{analyze-variable\ 192}# + #{mod\ 2435}# + #{var\ 2433}# + (lambda (#{mod\ 2440}# #{var\ 2441}# #{public?\ 2442}#) + (let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2448}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 11586}# - #{mod\ 11594}# - #{var\ 11595}# - #{public?\ 11596}# - #{exp\ 11588}#) - (#{decorate-source\ 9334}# + #{source\ 2432}# + #{mod\ 2440}# + #{var\ 2441}# + #{public?\ 2442}# + #{exp\ 2434}#) + (#{decorate-source\ 180}# (list 'set! - (list (if #{public?\ 11596}# + (list (if #{public?\ 2442}# '@ '@@) - #{mod\ 11594}# - #{var\ 11595}#) - #{exp\ 11588}#) - #{source\ 11586}#)))) - (lambda (#{var\ 11606}#) - (let ((#{atom-key\ 11610}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11610}# (quote (c))) + #{mod\ 2440}# + #{var\ 2441}#) + #{exp\ 2434}#) + #{source\ 2432}#)))) + (lambda (#{var\ 2452}#) + (let ((#{atom-key\ 2456}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2456}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 11586}# - #{var\ 11606}# - #{exp\ 11588}#) - (#{decorate-source\ 9334}# - (list (quote set!) #{var\ 11606}# #{exp\ 11588}#) - #{source\ 11586}#))))))) - (#{build-global-reference\ 9348}# - (lambda (#{source\ 11614}# #{var\ 11615}# #{mod\ 11616}#) - (#{analyze-variable\ 9346}# - #{mod\ 11616}# - #{var\ 11615}# - (lambda (#{mod\ 11620}# - #{var\ 11621}# - #{public?\ 11622}#) - (let ((#{atom-key\ 11628}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11628}# (quote (c))) + #{source\ 2432}# + #{var\ 2452}# + #{exp\ 2434}#) + (#{decorate-source\ 180}# + (list (quote set!) #{var\ 2452}# #{exp\ 2434}#) + #{source\ 2432}#))))))) + (#{build-global-reference\ 194}# + (lambda (#{source\ 2460}# #{var\ 2461}# #{mod\ 2462}#) + (#{analyze-variable\ 192}# + #{mod\ 2462}# + #{var\ 2461}# + (lambda (#{mod\ 2466}# #{var\ 2467}# #{public?\ 2468}#) + (let ((#{atom-key\ 2474}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2474}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 11614}# - #{mod\ 11620}# - #{var\ 11621}# - #{public?\ 11622}#) - (#{decorate-source\ 9334}# - (list (if #{public?\ 11622}# (quote @) (quote @@)) - #{mod\ 11620}# - #{var\ 11621}#) - #{source\ 11614}#)))) - (lambda (#{var\ 11631}#) - (let ((#{atom-key\ 11635}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11635}# (quote (c))) + #{source\ 2460}# + #{mod\ 2466}# + #{var\ 2467}# + #{public?\ 2468}#) + (#{decorate-source\ 180}# + (list (if #{public?\ 2468}# (quote @) (quote @@)) + #{mod\ 2466}# + #{var\ 2467}#) + #{source\ 2460}#)))) + (lambda (#{var\ 2477}#) + (let ((#{atom-key\ 2481}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2481}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 11614}# - #{var\ 11631}#) - (#{decorate-source\ 9334}# - #{var\ 11631}# - #{source\ 11614}#))))))) - (#{analyze-variable\ 9346}# - (lambda (#{mod\ 11638}# - #{var\ 11639}# - #{modref-cont\ 11640}# - #{bare-cont\ 11641}#) - (if (not #{mod\ 11638}#) - (#{bare-cont\ 11641}# #{var\ 11639}#) - (let ((#{kind\ 11648}# (car #{mod\ 11638}#)) - (#{mod\ 11649}# (cdr #{mod\ 11638}#))) - (if (memv #{kind\ 11648}# (quote (public))) - (#{modref-cont\ 11640}# - #{mod\ 11649}# - #{var\ 11639}# + #{source\ 2460}# + #{var\ 2477}#) + (#{decorate-source\ 180}# + #{var\ 2477}# + #{source\ 2460}#))))))) + (#{analyze-variable\ 192}# + (lambda (#{mod\ 2484}# + #{var\ 2485}# + #{modref-cont\ 2486}# + #{bare-cont\ 2487}#) + (if (not #{mod\ 2484}#) + (#{bare-cont\ 2487}# #{var\ 2485}#) + (let ((#{kind\ 2494}# (car #{mod\ 2484}#)) + (#{mod\ 2495}# (cdr #{mod\ 2484}#))) + (if (memv #{kind\ 2494}# (quote (public))) + (#{modref-cont\ 2486}# + #{mod\ 2495}# + #{var\ 2485}# #t) - (if (memv #{kind\ 11648}# (quote (private))) + (if (memv #{kind\ 2494}# (quote (private))) (if (not (equal? - #{mod\ 11649}# + #{mod\ 2495}# (module-name (current-module)))) - (#{modref-cont\ 11640}# - #{mod\ 11649}# - #{var\ 11639}# + (#{modref-cont\ 2486}# + #{mod\ 2495}# + #{var\ 2485}# #f) - (#{bare-cont\ 11641}# #{var\ 11639}#)) - (if (memv #{kind\ 11648}# (quote (bare))) - (#{bare-cont\ 11641}# #{var\ 11639}#) - (if (memv #{kind\ 11648}# (quote (hygiene))) + (#{bare-cont\ 2487}# #{var\ 2485}#)) + (if (memv #{kind\ 2494}# (quote (bare))) + (#{bare-cont\ 2487}# #{var\ 2485}#) + (if (memv #{kind\ 2494}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 11649}# + #{mod\ 2495}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 11649}#) - #{var\ 11639}#) + (resolve-module #{mod\ 2495}#) + #{var\ 2485}#) #f) - (#{modref-cont\ 11640}# - #{mod\ 11649}# - #{var\ 11639}# + (#{modref-cont\ 2486}# + #{mod\ 2495}# + #{var\ 2485}# #f) - (#{bare-cont\ 11641}# #{var\ 11639}#)) + (#{bare-cont\ 2487}# #{var\ 2485}#)) (syntax-violation #f "bad module kind" - #{var\ 11639}# - #{mod\ 11649}#))))))))) - (#{build-lexical-assignment\ 9344}# - (lambda (#{source\ 11657}# - #{name\ 11658}# - #{var\ 11659}# - #{exp\ 11660}#) - (let ((#{atom-key\ 11667}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11667}# (quote (c))) + #{var\ 2485}# + #{mod\ 2495}#))))))))) + (#{build-lexical-assignment\ 190}# + (lambda (#{source\ 2503}# + #{name\ 2504}# + #{var\ 2505}# + #{exp\ 2506}#) + (let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2513}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 11657}# - #{name\ 11658}# - #{var\ 11659}# - #{exp\ 11660}#) - (#{decorate-source\ 9334}# - (list (quote set!) #{var\ 11659}# #{exp\ 11660}#) - #{source\ 11657}#))))) - (#{build-lexical-reference\ 9342}# - (lambda (#{type\ 11671}# - #{source\ 11672}# - #{name\ 11673}# - #{var\ 11674}#) - (let ((#{atom-key\ 11681}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11681}# (quote (c))) + #{source\ 2503}# + #{name\ 2504}# + #{var\ 2505}# + #{exp\ 2506}#) + (#{decorate-source\ 180}# + (list (quote set!) #{var\ 2505}# #{exp\ 2506}#) + #{source\ 2503}#))))) + (#{build-lexical-reference\ 188}# + (lambda (#{type\ 2517}# + #{source\ 2518}# + #{name\ 2519}# + #{var\ 2520}#) + (let ((#{atom-key\ 2527}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2527}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 11672}# - #{name\ 11673}# - #{var\ 11674}#) - (#{decorate-source\ 9334}# - #{var\ 11674}# - #{source\ 11672}#))))) - (#{build-conditional\ 9340}# - (lambda (#{source\ 11684}# - #{test-exp\ 11685}# - #{then-exp\ 11686}# - #{else-exp\ 11687}#) - (let ((#{atom-key\ 11694}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11694}# (quote (c))) + #{source\ 2518}# + #{name\ 2519}# + #{var\ 2520}#) + (#{decorate-source\ 180}# + #{var\ 2520}# + #{source\ 2518}#))))) + (#{build-conditional\ 186}# + (lambda (#{source\ 2530}# + #{test-exp\ 2531}# + #{then-exp\ 2532}# + #{else-exp\ 2533}#) + (let ((#{atom-key\ 2540}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2540}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 11684}# - #{test-exp\ 11685}# - #{then-exp\ 11686}# - #{else-exp\ 11687}#) - (#{decorate-source\ 9334}# - (if (equal? #{else-exp\ 11687}# (quote (if #f #f))) + #{source\ 2530}# + #{test-exp\ 2531}# + #{then-exp\ 2532}# + #{else-exp\ 2533}#) + (#{decorate-source\ 180}# + (if (equal? #{else-exp\ 2533}# (quote (if #f #f))) (list 'if - #{test-exp\ 11685}# - #{then-exp\ 11686}#) + #{test-exp\ 2531}# + #{then-exp\ 2532}#) (list 'if - #{test-exp\ 11685}# - #{then-exp\ 11686}# - #{else-exp\ 11687}#)) - #{source\ 11684}#))))) - (#{build-application\ 9338}# - (lambda (#{source\ 11699}# - #{fun-exp\ 11700}# - #{arg-exps\ 11701}#) - (let ((#{atom-key\ 11707}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11707}# (quote (c))) + #{test-exp\ 2531}# + #{then-exp\ 2532}# + #{else-exp\ 2533}#)) + #{source\ 2530}#))))) + (#{build-application\ 184}# + (lambda (#{source\ 2545}# + #{fun-exp\ 2546}# + #{arg-exps\ 2547}#) + (let ((#{atom-key\ 2553}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2553}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 11699}# - #{fun-exp\ 11700}# - #{arg-exps\ 11701}#) - (#{decorate-source\ 9334}# - (cons #{fun-exp\ 11700}# #{arg-exps\ 11701}#) - #{source\ 11699}#))))) - (#{build-void\ 9336}# - (lambda (#{source\ 11711}#) - (let ((#{atom-key\ 11715}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11715}# (quote (c))) + #{source\ 2545}# + #{fun-exp\ 2546}# + #{arg-exps\ 2547}#) + (#{decorate-source\ 180}# + (cons #{fun-exp\ 2546}# #{arg-exps\ 2547}#) + #{source\ 2545}#))))) + (#{build-void\ 182}# + (lambda (#{source\ 2557}#) + (let ((#{atom-key\ 2561}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2561}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 11711}#) - (#{decorate-source\ 9334}# + #{source\ 2557}#) + (#{decorate-source\ 180}# '(if #f #f) - #{source\ 11711}#))))) - (#{decorate-source\ 9334}# - (lambda (#{e\ 11718}# #{s\ 11719}#) + #{source\ 2557}#))))) + (#{decorate-source\ 180}# + (lambda (#{e\ 2564}# #{s\ 2565}#) (begin - (if (if (pair? #{e\ 11718}#) #{s\ 11719}# #f) - (set-source-properties! - #{e\ 11718}# - #{s\ 11719}#)) - #{e\ 11718}#))) - (#{get-global-definition-hook\ 9332}# - (lambda (#{symbol\ 11724}# #{module\ 11725}#) + (if (if (pair? #{e\ 2564}#) #{s\ 2565}# #f) + (set-source-properties! #{e\ 2564}# #{s\ 2565}#)) + #{e\ 2564}#))) + (#{get-global-definition-hook\ 178}# + (lambda (#{symbol\ 2570}# #{module\ 2571}#) (begin - (if (if (not #{module\ 11725}#) (current-module) #f) + (if (if (not #{module\ 2571}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 11724}#)) - (let ((#{v\ 11731}# + #{symbol\ 2570}#)) + (let ((#{v\ 2577}# (module-variable - (if #{module\ 11725}# - (resolve-module (cdr #{module\ 11725}#)) + (if #{module\ 2571}# + (resolve-module (cdr #{module\ 2571}#)) (current-module)) - #{symbol\ 11724}#))) - (if #{v\ 11731}# - (if (variable-bound? #{v\ 11731}#) - (let ((#{val\ 11736}# (variable-ref #{v\ 11731}#))) - (if (macro? #{val\ 11736}#) - (if (macro-type #{val\ 11736}#) - (cons (macro-type #{val\ 11736}#) - (macro-binding #{val\ 11736}#)) + #{symbol\ 2570}#))) + (if #{v\ 2577}# + (if (variable-bound? #{v\ 2577}#) + (let ((#{val\ 2582}# (variable-ref #{v\ 2577}#))) + (if (macro? #{val\ 2582}#) + (if (macro-type #{val\ 2582}#) + (cons (macro-type #{val\ 2582}#) + (macro-binding #{val\ 2582}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 9330}# - (lambda (#{symbol\ 11740}# - #{type\ 11741}# - #{val\ 11742}#) + (#{put-global-definition-hook\ 176}# + (lambda (#{symbol\ 2586}# #{type\ 2587}# #{val\ 2588}#) (module-define! (current-module) - #{symbol\ 11740}# + #{symbol\ 2586}# (make-syntax-transformer - #{symbol\ 11740}# - #{type\ 11741}# - #{val\ 11742}#)))) - (#{local-eval-hook\ 9327}# - (lambda (#{x\ 11746}# #{mod\ 11747}#) + #{symbol\ 2586}# + #{type\ 2587}# + #{val\ 2588}#)))) + (#{local-eval-hook\ 173}# + (lambda (#{x\ 2592}# #{mod\ 2593}#) (primitive-eval - (list #{noexpand\ 9313}# - (let ((#{atom-key\ 11753}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11753}# (quote (c))) + (list #{noexpand\ 159}# + (let ((#{atom-key\ 2599}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2599}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 11746}#) - #{x\ 11746}#)))))) - (#{top-level-eval-hook\ 9325}# - (lambda (#{x\ 11756}# #{mod\ 11757}#) + #{x\ 2592}#) + #{x\ 2592}#)))))) + (#{top-level-eval-hook\ 171}# + (lambda (#{x\ 2602}# #{mod\ 2603}#) (primitive-eval - (list #{noexpand\ 9313}# - (let ((#{atom-key\ 11763}# - (fluid-ref #{*mode*\ 9315}#))) - (if (memv #{atom-key\ 11763}# (quote (c))) + (list #{noexpand\ 159}# + (let ((#{atom-key\ 2609}# (fluid-ref #{*mode*\ 161}#))) + (if (memv #{atom-key\ 2609}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 11756}#) - #{x\ 11756}#)))))) - (#{fx<\ 9323}# <) - (#{fx=\ 9321}# =) - (#{fx-\ 9319}# -) - (#{fx+\ 9317}# +) - (#{*mode*\ 9315}# (make-fluid)) - (#{noexpand\ 9313}# "noexpand")) + #{x\ 2602}#) + #{x\ 2602}#)))))) + (#{fx<\ 169}# <) + (#{fx=\ 167}# =) + (#{fx-\ 165}# -) + (#{fx+\ 163}# +) + (#{*mode*\ 161}# (make-fluid)) + (#{noexpand\ 159}# "noexpand")) (begin - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'core 'fluid-let-syntax - (lambda (#{e\ 11766}# - #{r\ 11767}# - #{w\ 11768}# - #{s\ 11769}# - #{mod\ 11770}#) - ((lambda (#{tmp\ 11776}#) - ((lambda (#{tmp\ 11777}#) - (if (if #{tmp\ 11777}# - (apply (lambda (#{_\ 11783}# - #{var\ 11784}# - #{val\ 11785}# - #{e1\ 11786}# - #{e2\ 11787}#) - (#{valid-bound-ids?\ 9477}# #{var\ 11784}#)) - #{tmp\ 11777}#) + (lambda (#{e\ 2612}# + #{r\ 2613}# + #{w\ 2614}# + #{s\ 2615}# + #{mod\ 2616}#) + ((lambda (#{tmp\ 2622}#) + ((lambda (#{tmp\ 2623}#) + (if (if #{tmp\ 2623}# + (apply (lambda (#{_\ 2629}# + #{var\ 2630}# + #{val\ 2631}# + #{e1\ 2632}# + #{e2\ 2633}#) + (#{valid-bound-ids?\ 323}# #{var\ 2630}#)) + #{tmp\ 2623}#) #f) - (apply (lambda (#{_\ 11794}# - #{var\ 11795}# - #{val\ 11796}# - #{e1\ 11797}# - #{e2\ 11798}#) - (let ((#{names\ 11800}# - (map (lambda (#{x\ 11801}#) - (#{id-var-name\ 9471}# - #{x\ 11801}# - #{w\ 11768}#)) - #{var\ 11795}#))) + (apply (lambda (#{_\ 2640}# + #{var\ 2641}# + #{val\ 2642}# + #{e1\ 2643}# + #{e2\ 2644}#) + (let ((#{names\ 2646}# + (map (lambda (#{x\ 2647}#) + (#{id-var-name\ 317}# + #{x\ 2647}# + #{w\ 2614}#)) + #{var\ 2641}#))) (begin (for-each - (lambda (#{id\ 11804}# #{n\ 11805}#) - (let ((#{atom-key\ 11810}# - (#{binding-type\ 9397}# - (#{lookup\ 9408}# - #{n\ 11805}# - #{r\ 11767}# - #{mod\ 11770}#)))) - (if (memv #{atom-key\ 11810}# + (lambda (#{id\ 2650}# #{n\ 2651}#) + (let ((#{atom-key\ 2656}# + (#{binding-type\ 243}# + (#{lookup\ 254}# + #{n\ 2651}# + #{r\ 2613}# + #{mod\ 2616}#)))) + (if (memv #{atom-key\ 2656}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 11766}# - (#{source-wrap\ 9485}# - #{id\ 11804}# - #{w\ 11768}# - #{s\ 11769}# - #{mod\ 11770}#))))) - #{var\ 11795}# - #{names\ 11800}#) - (#{chi-body\ 9507}# - (cons #{e1\ 11797}# #{e2\ 11798}#) - (#{source-wrap\ 9485}# - #{e\ 11766}# - #{w\ 11768}# - #{s\ 11769}# - #{mod\ 11770}#) - (#{extend-env\ 9402}# - #{names\ 11800}# - (let ((#{trans-r\ 11815}# - (#{macros-only-env\ 9406}# - #{r\ 11767}#))) - (map (lambda (#{x\ 11816}#) + #{e\ 2612}# + (#{source-wrap\ 331}# + #{id\ 2650}# + #{w\ 2614}# + #{s\ 2615}# + #{mod\ 2616}#))))) + #{var\ 2641}# + #{names\ 2646}#) + (#{chi-body\ 353}# + (cons #{e1\ 2643}# #{e2\ 2644}#) + (#{source-wrap\ 331}# + #{e\ 2612}# + #{w\ 2614}# + #{s\ 2615}# + #{mod\ 2616}#) + (#{extend-env\ 248}# + #{names\ 2646}# + (let ((#{trans-r\ 2661}# + (#{macros-only-env\ 252}# + #{r\ 2613}#))) + (map (lambda (#{x\ 2662}#) (cons 'macro - (#{eval-local-transformer\ 9511}# - (#{chi\ 9499}# - #{x\ 11816}# - #{trans-r\ 11815}# - #{w\ 11768}# - #{mod\ 11770}#) - #{mod\ 11770}#))) - #{val\ 11796}#)) - #{r\ 11767}#) - #{w\ 11768}# - #{mod\ 11770}#)))) - #{tmp\ 11777}#) - ((lambda (#{_\ 11821}#) + (#{eval-local-transformer\ 357}# + (#{chi\ 345}# + #{x\ 2662}# + #{trans-r\ 2661}# + #{w\ 2614}# + #{mod\ 2616}#) + #{mod\ 2616}#))) + #{val\ 2642}#)) + #{r\ 2613}#) + #{w\ 2614}# + #{mod\ 2616}#)))) + #{tmp\ 2623}#) + ((lambda (#{_\ 2667}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 9485}# - #{e\ 11766}# - #{w\ 11768}# - #{s\ 11769}# - #{mod\ 11770}#))) - #{tmp\ 11776}#))) + (#{source-wrap\ 331}# + #{e\ 2612}# + #{w\ 2614}# + #{s\ 2615}# + #{mod\ 2616}#))) + #{tmp\ 2622}#))) ($sc-dispatch - #{tmp\ 11776}# + #{tmp\ 2622}# '(any #(each (any any)) any . each-any)))) - #{e\ 11766}#))) - (#{global-extend\ 9410}# + #{e\ 2612}#))) + (#{global-extend\ 256}# 'core 'quote - (lambda (#{e\ 11822}# - #{r\ 11823}# - #{w\ 11824}# - #{s\ 11825}# - #{mod\ 11826}#) - ((lambda (#{tmp\ 11832}#) - ((lambda (#{tmp\ 11833}#) - (if #{tmp\ 11833}# - (apply (lambda (#{_\ 11836}# #{e\ 11837}#) - (#{build-data\ 9364}# - #{s\ 11825}# - (#{strip\ 9525}# #{e\ 11837}# #{w\ 11824}#))) - #{tmp\ 11833}#) - ((lambda (#{_\ 11839}#) + (lambda (#{e\ 2668}# + #{r\ 2669}# + #{w\ 2670}# + #{s\ 2671}# + #{mod\ 2672}#) + ((lambda (#{tmp\ 2678}#) + ((lambda (#{tmp\ 2679}#) + (if #{tmp\ 2679}# + (apply (lambda (#{_\ 2682}# #{e\ 2683}#) + (#{build-data\ 210}# + #{s\ 2671}# + (#{strip\ 371}# #{e\ 2683}# #{w\ 2670}#))) + #{tmp\ 2679}#) + ((lambda (#{_\ 2685}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 9485}# - #{e\ 11822}# - #{w\ 11824}# - #{s\ 11825}# - #{mod\ 11826}#))) - #{tmp\ 11832}#))) - ($sc-dispatch #{tmp\ 11832}# (quote (any any))))) - #{e\ 11822}#))) - (#{global-extend\ 9410}# + (#{source-wrap\ 331}# + #{e\ 2668}# + #{w\ 2670}# + #{s\ 2671}# + #{mod\ 2672}#))) + #{tmp\ 2678}#))) + ($sc-dispatch #{tmp\ 2678}# (quote (any any))))) + #{e\ 2668}#))) + (#{global-extend\ 256}# 'core 'syntax - (letrec ((#{regen\ 11855}# - (lambda (#{x\ 11856}#) - (let ((#{atom-key\ 11860}# (car #{x\ 11856}#))) - (if (memv #{atom-key\ 11860}# (quote (ref))) - (#{build-lexical-reference\ 9342}# + (letrec ((#{regen\ 2701}# + (lambda (#{x\ 2702}#) + (let ((#{atom-key\ 2706}# (car #{x\ 2702}#))) + (if (memv #{atom-key\ 2706}# (quote (ref))) + (#{build-lexical-reference\ 188}# 'value #f - (cadr #{x\ 11856}#) - (cadr #{x\ 11856}#)) - (if (memv #{atom-key\ 11860}# (quote (primitive))) - (#{build-primref\ 9362}# #f (cadr #{x\ 11856}#)) - (if (memv #{atom-key\ 11860}# (quote (quote))) - (#{build-data\ 9364}# #f (cadr #{x\ 11856}#)) - (if (memv #{atom-key\ 11860}# (quote (lambda))) - (if (list? (cadr #{x\ 11856}#)) - (#{build-simple-lambda\ 9356}# + (cadr #{x\ 2702}#) + (cadr #{x\ 2702}#)) + (if (memv #{atom-key\ 2706}# (quote (primitive))) + (#{build-primref\ 208}# #f (cadr #{x\ 2702}#)) + (if (memv #{atom-key\ 2706}# (quote (quote))) + (#{build-data\ 210}# #f (cadr #{x\ 2702}#)) + (if (memv #{atom-key\ 2706}# (quote (lambda))) + (if (list? (cadr #{x\ 2702}#)) + (#{build-simple-lambda\ 202}# #f - (cadr #{x\ 11856}#) + (cadr #{x\ 2702}#) #f - (cadr #{x\ 11856}#) + (cadr #{x\ 2702}#) #f - (#{regen\ 11855}# (caddr #{x\ 11856}#))) - (error "how did we get here" #{x\ 11856}#)) - (#{build-application\ 9338}# + (#{regen\ 2701}# (caddr #{x\ 2702}#))) + (error "how did we get here" #{x\ 2702}#)) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# - #f - (car #{x\ 11856}#)) - (map #{regen\ 11855}# - (cdr #{x\ 11856}#)))))))))) - (#{gen-vector\ 11853}# - (lambda (#{x\ 11872}#) - (if (eq? (car #{x\ 11872}#) (quote list)) - (cons (quote vector) (cdr #{x\ 11872}#)) - (if (eq? (car #{x\ 11872}#) (quote quote)) + (#{build-primref\ 208}# #f (car #{x\ 2702}#)) + (map #{regen\ 2701}# + (cdr #{x\ 2702}#)))))))))) + (#{gen-vector\ 2699}# + (lambda (#{x\ 2718}#) + (if (eq? (car #{x\ 2718}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2718}#)) + (if (eq? (car #{x\ 2718}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 11872}#))) - (list (quote list->vector) #{x\ 11872}#))))) - (#{gen-append\ 11851}# - (lambda (#{x\ 11882}# #{y\ 11883}#) - (if (equal? #{y\ 11883}# (quote (quote ()))) - #{x\ 11882}# - (list (quote append) #{x\ 11882}# #{y\ 11883}#)))) - (#{gen-cons\ 11849}# - (lambda (#{x\ 11887}# #{y\ 11888}#) - (let ((#{atom-key\ 11893}# (car #{y\ 11888}#))) - (if (memv #{atom-key\ 11893}# (quote (quote))) - (if (eq? (car #{x\ 11887}#) (quote quote)) + (list->vector (cadr #{x\ 2718}#))) + (list (quote list->vector) #{x\ 2718}#))))) + (#{gen-append\ 2697}# + (lambda (#{x\ 2728}# #{y\ 2729}#) + (if (equal? #{y\ 2729}# (quote (quote ()))) + #{x\ 2728}# + (list (quote append) #{x\ 2728}# #{y\ 2729}#)))) + (#{gen-cons\ 2695}# + (lambda (#{x\ 2733}# #{y\ 2734}#) + (let ((#{atom-key\ 2739}# (car #{y\ 2734}#))) + (if (memv #{atom-key\ 2739}# (quote (quote))) + (if (eq? (car #{x\ 2733}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 11887}#) - (cadr #{y\ 11888}#))) - (if (eq? (cadr #{y\ 11888}#) (quote ())) - (list (quote list) #{x\ 11887}#) - (list (quote cons) #{x\ 11887}# #{y\ 11888}#))) - (if (memv #{atom-key\ 11893}# (quote (list))) + (cons (cadr #{x\ 2733}#) (cadr #{y\ 2734}#))) + (if (eq? (cadr #{y\ 2734}#) (quote ())) + (list (quote list) #{x\ 2733}#) + (list (quote cons) #{x\ 2733}# #{y\ 2734}#))) + (if (memv #{atom-key\ 2739}# (quote (list))) (cons 'list - (cons #{x\ 11887}# (cdr #{y\ 11888}#))) - (list (quote cons) #{x\ 11887}# #{y\ 11888}#)))))) - (#{gen-map\ 11847}# - (lambda (#{e\ 11902}# #{map-env\ 11903}#) - (let ((#{formals\ 11908}# (map cdr #{map-env\ 11903}#)) - (#{actuals\ 11909}# - (map (lambda (#{x\ 11910}#) - (list (quote ref) (car #{x\ 11910}#))) - #{map-env\ 11903}#))) - (if (eq? (car #{e\ 11902}#) (quote ref)) - (car #{actuals\ 11909}#) + (cons #{x\ 2733}# (cdr #{y\ 2734}#))) + (list (quote cons) #{x\ 2733}# #{y\ 2734}#)))))) + (#{gen-map\ 2693}# + (lambda (#{e\ 2748}# #{map-env\ 2749}#) + (let ((#{formals\ 2754}# (map cdr #{map-env\ 2749}#)) + (#{actuals\ 2755}# + (map (lambda (#{x\ 2756}#) + (list (quote ref) (car #{x\ 2756}#))) + #{map-env\ 2749}#))) + (if (eq? (car #{e\ 2748}#) (quote ref)) + (car #{actuals\ 2755}#) (if (and-map - (lambda (#{x\ 11917}#) - (if (eq? (car #{x\ 11917}#) (quote ref)) - (memq (cadr #{x\ 11917}#) - #{formals\ 11908}#) + (lambda (#{x\ 2763}#) + (if (eq? (car #{x\ 2763}#) (quote ref)) + (memq (cadr #{x\ 2763}#) #{formals\ 2754}#) #f)) - (cdr #{e\ 11902}#)) + (cdr #{e\ 2748}#)) (cons 'map (cons (list 'primitive - (car #{e\ 11902}#)) - (map (let ((#{r\ 11923}# + (car #{e\ 2748}#)) + (map (let ((#{r\ 2769}# (map cons - #{formals\ 11908}# - #{actuals\ 11909}#))) - (lambda (#{x\ 11924}#) - (cdr (assq (cadr #{x\ 11924}#) - #{r\ 11923}#)))) - (cdr #{e\ 11902}#)))) + #{formals\ 2754}# + #{actuals\ 2755}#))) + (lambda (#{x\ 2770}#) + (cdr (assq (cadr #{x\ 2770}#) + #{r\ 2769}#)))) + (cdr #{e\ 2748}#)))) (cons 'map (cons (list 'lambda - #{formals\ 11908}# - #{e\ 11902}#) - #{actuals\ 11909}#))))))) - (#{gen-mappend\ 11845}# - (lambda (#{e\ 11928}# #{map-env\ 11929}#) + #{formals\ 2754}# + #{e\ 2748}#) + #{actuals\ 2755}#))))))) + (#{gen-mappend\ 2691}# + (lambda (#{e\ 2774}# #{map-env\ 2775}#) (list 'apply '(primitive append) - (#{gen-map\ 11847}# - #{e\ 11928}# - #{map-env\ 11929}#)))) - (#{gen-ref\ 11843}# - (lambda (#{src\ 11933}# - #{var\ 11934}# - #{level\ 11935}# - #{maps\ 11936}#) - (if (#{fx=\ 9321}# #{level\ 11935}# 0) - (values #{var\ 11934}# #{maps\ 11936}#) - (if (null? #{maps\ 11936}#) + (#{gen-map\ 2693}# #{e\ 2774}# #{map-env\ 2775}#)))) + (#{gen-ref\ 2689}# + (lambda (#{src\ 2779}# + #{var\ 2780}# + #{level\ 2781}# + #{maps\ 2782}#) + (if (#{fx=\ 167}# #{level\ 2781}# 0) + (values #{var\ 2780}# #{maps\ 2782}#) + (if (null? #{maps\ 2782}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 11933}#) + #{src\ 2779}#) (call-with-values (lambda () - (#{gen-ref\ 11843}# - #{src\ 11933}# - #{var\ 11934}# - (#{fx-\ 9319}# #{level\ 11935}# 1) - (cdr #{maps\ 11936}#))) - (lambda (#{outer-var\ 11941}# #{outer-maps\ 11942}#) - (let ((#{b\ 11946}# - (assq #{outer-var\ 11941}# - (car #{maps\ 11936}#)))) - (if #{b\ 11946}# - (values (cdr #{b\ 11946}#) #{maps\ 11936}#) - (let ((#{inner-var\ 11948}# - (#{gen-var\ 9527}# (quote tmp)))) + (#{gen-ref\ 2689}# + #{src\ 2779}# + #{var\ 2780}# + (#{fx-\ 165}# #{level\ 2781}# 1) + (cdr #{maps\ 2782}#))) + (lambda (#{outer-var\ 2787}# #{outer-maps\ 2788}#) + (let ((#{b\ 2792}# + (assq #{outer-var\ 2787}# + (car #{maps\ 2782}#)))) + (if #{b\ 2792}# + (values (cdr #{b\ 2792}#) #{maps\ 2782}#) + (let ((#{inner-var\ 2794}# + (#{gen-var\ 373}# (quote tmp)))) (values - #{inner-var\ 11948}# - (cons (cons (cons #{outer-var\ 11941}# - #{inner-var\ 11948}#) - (car #{maps\ 11936}#)) - #{outer-maps\ 11942}#))))))))))) - (#{gen-syntax\ 11841}# - (lambda (#{src\ 11949}# - #{e\ 11950}# - #{r\ 11951}# - #{maps\ 11952}# - #{ellipsis?\ 11953}# - #{mod\ 11954}#) - (if (#{id?\ 9414}# #{e\ 11950}#) - (let ((#{label\ 11962}# - (#{id-var-name\ 9471}# - #{e\ 11950}# + #{inner-var\ 2794}# + (cons (cons (cons #{outer-var\ 2787}# + #{inner-var\ 2794}#) + (car #{maps\ 2782}#)) + #{outer-maps\ 2788}#))))))))))) + (#{gen-syntax\ 2687}# + (lambda (#{src\ 2795}# + #{e\ 2796}# + #{r\ 2797}# + #{maps\ 2798}# + #{ellipsis?\ 2799}# + #{mod\ 2800}#) + (if (#{id?\ 260}# #{e\ 2796}#) + (let ((#{label\ 2808}# + (#{id-var-name\ 317}# + #{e\ 2796}# '(())))) - (let ((#{b\ 11965}# - (#{lookup\ 9408}# - #{label\ 11962}# - #{r\ 11951}# - #{mod\ 11954}#))) - (if (eq? (#{binding-type\ 9397}# #{b\ 11965}#) + (let ((#{b\ 2811}# + (#{lookup\ 254}# + #{label\ 2808}# + #{r\ 2797}# + #{mod\ 2800}#))) + (if (eq? (#{binding-type\ 243}# #{b\ 2811}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 11967}# - (#{binding-value\ 9399}# - #{b\ 11965}#))) - (#{gen-ref\ 11843}# - #{src\ 11949}# - (car #{var.lev\ 11967}#) - (cdr #{var.lev\ 11967}#) - #{maps\ 11952}#))) - (lambda (#{var\ 11968}# #{maps\ 11969}#) + (let ((#{var.lev\ 2813}# + (#{binding-value\ 245}# #{b\ 2811}#))) + (#{gen-ref\ 2689}# + #{src\ 2795}# + (car #{var.lev\ 2813}#) + (cdr #{var.lev\ 2813}#) + #{maps\ 2798}#))) + (lambda (#{var\ 2814}# #{maps\ 2815}#) (values - (list (quote ref) #{var\ 11968}#) - #{maps\ 11969}#))) - (if (#{ellipsis?\ 11953}# #{e\ 11950}#) + (list (quote ref) #{var\ 2814}#) + #{maps\ 2815}#))) + (if (#{ellipsis?\ 2799}# #{e\ 2796}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 11949}#) + #{src\ 2795}#) (values - (list (quote quote) #{e\ 11950}#) - #{maps\ 11952}#))))) - ((lambda (#{tmp\ 11974}#) - ((lambda (#{tmp\ 11975}#) - (if (if #{tmp\ 11975}# - (apply (lambda (#{dots\ 11978}# - #{e\ 11979}#) - (#{ellipsis?\ 11953}# - #{dots\ 11978}#)) - #{tmp\ 11975}#) + (list (quote quote) #{e\ 2796}#) + #{maps\ 2798}#))))) + ((lambda (#{tmp\ 2820}#) + ((lambda (#{tmp\ 2821}#) + (if (if #{tmp\ 2821}# + (apply (lambda (#{dots\ 2824}# #{e\ 2825}#) + (#{ellipsis?\ 2799}# + #{dots\ 2824}#)) + #{tmp\ 2821}#) #f) - (apply (lambda (#{dots\ 11982}# #{e\ 11983}#) - (#{gen-syntax\ 11841}# - #{src\ 11949}# - #{e\ 11983}# - #{r\ 11951}# - #{maps\ 11952}# - (lambda (#{x\ 11984}#) #f) - #{mod\ 11954}#)) - #{tmp\ 11975}#) - ((lambda (#{tmp\ 11986}#) - (if (if #{tmp\ 11986}# - (apply (lambda (#{x\ 11990}# - #{dots\ 11991}# - #{y\ 11992}#) - (#{ellipsis?\ 11953}# - #{dots\ 11991}#)) - #{tmp\ 11986}#) + (apply (lambda (#{dots\ 2828}# #{e\ 2829}#) + (#{gen-syntax\ 2687}# + #{src\ 2795}# + #{e\ 2829}# + #{r\ 2797}# + #{maps\ 2798}# + (lambda (#{x\ 2830}#) #f) + #{mod\ 2800}#)) + #{tmp\ 2821}#) + ((lambda (#{tmp\ 2832}#) + (if (if #{tmp\ 2832}# + (apply (lambda (#{x\ 2836}# + #{dots\ 2837}# + #{y\ 2838}#) + (#{ellipsis?\ 2799}# + #{dots\ 2837}#)) + #{tmp\ 2832}#) #f) - (apply (lambda (#{x\ 11996}# - #{dots\ 11997}# - #{y\ 11998}#) - (letrec ((#{f\ 12002}# - (lambda (#{y\ 12003}# - #{k\ 12004}#) - ((lambda (#{tmp\ 12011}#) - ((lambda (#{tmp\ 12012}#) - (if (if #{tmp\ 12012}# - (apply (lambda (#{dots\ 12015}# - #{y\ 12016}#) - (#{ellipsis?\ 11953}# - #{dots\ 12015}#)) - #{tmp\ 12012}#) + (apply (lambda (#{x\ 2842}# + #{dots\ 2843}# + #{y\ 2844}#) + (letrec ((#{f\ 2848}# + (lambda (#{y\ 2849}# + #{k\ 2850}#) + ((lambda (#{tmp\ 2857}#) + ((lambda (#{tmp\ 2858}#) + (if (if #{tmp\ 2858}# + (apply (lambda (#{dots\ 2861}# + #{y\ 2862}#) + (#{ellipsis?\ 2799}# + #{dots\ 2861}#)) + #{tmp\ 2858}#) #f) - (apply (lambda (#{dots\ 12019}# - #{y\ 12020}#) - (#{f\ 12002}# - #{y\ 12020}# - (lambda (#{maps\ 12021}#) + (apply (lambda (#{dots\ 2865}# + #{y\ 2866}#) + (#{f\ 2848}# + #{y\ 2866}# + (lambda (#{maps\ 2867}#) (call-with-values (lambda () - (#{k\ 12004}# + (#{k\ 2850}# (cons '() - #{maps\ 12021}#))) - (lambda (#{x\ 12023}# - #{maps\ 12024}#) - (if (null? (car #{maps\ 12024}#)) + #{maps\ 2867}#))) + (lambda (#{x\ 2869}# + #{maps\ 2870}#) + (if (null? (car #{maps\ 2870}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 11949}#) + #{src\ 2795}#) (values - (#{gen-mappend\ 11845}# - #{x\ 12023}# - (car #{maps\ 12024}#)) - (cdr #{maps\ 12024}#)))))))) - #{tmp\ 12012}#) - ((lambda (#{_\ 12028}#) + (#{gen-mappend\ 2691}# + #{x\ 2869}# + (car #{maps\ 2870}#)) + (cdr #{maps\ 2870}#)))))))) + #{tmp\ 2858}#) + ((lambda (#{_\ 2874}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{src\ 11949}# - #{y\ 12003}# - #{r\ 11951}# - #{maps\ 11952}# - #{ellipsis?\ 11953}# - #{mod\ 11954}#)) - (lambda (#{y\ 12029}# - #{maps\ 12030}#) + (#{gen-syntax\ 2687}# + #{src\ 2795}# + #{y\ 2849}# + #{r\ 2797}# + #{maps\ 2798}# + #{ellipsis?\ 2799}# + #{mod\ 2800}#)) + (lambda (#{y\ 2875}# + #{maps\ 2876}#) (call-with-values (lambda () - (#{k\ 12004}# - #{maps\ 12030}#)) - (lambda (#{x\ 12033}# - #{maps\ 12034}#) + (#{k\ 2850}# + #{maps\ 2876}#)) + (lambda (#{x\ 2879}# + #{maps\ 2880}#) (values - (#{gen-append\ 11851}# - #{x\ 12033}# - #{y\ 12029}#) - #{maps\ 12034}#)))))) - #{tmp\ 12011}#))) + (#{gen-append\ 2697}# + #{x\ 2879}# + #{y\ 2875}#) + #{maps\ 2880}#)))))) + #{tmp\ 2857}#))) ($sc-dispatch - #{tmp\ 12011}# + #{tmp\ 2857}# '(any . any)))) - #{y\ 12003}#)))) - (#{f\ 12002}# - #{y\ 11998}# - (lambda (#{maps\ 12005}#) + #{y\ 2849}#)))) + (#{f\ 2848}# + #{y\ 2844}# + (lambda (#{maps\ 2851}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{src\ 11949}# - #{x\ 11996}# - #{r\ 11951}# + (#{gen-syntax\ 2687}# + #{src\ 2795}# + #{x\ 2842}# + #{r\ 2797}# (cons '() - #{maps\ 12005}#) - #{ellipsis?\ 11953}# - #{mod\ 11954}#)) - (lambda (#{x\ 12007}# - #{maps\ 12008}#) - (if (null? (car #{maps\ 12008}#)) + #{maps\ 2851}#) + #{ellipsis?\ 2799}# + #{mod\ 2800}#)) + (lambda (#{x\ 2853}# + #{maps\ 2854}#) + (if (null? (car #{maps\ 2854}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 11949}#) + #{src\ 2795}#) (values - (#{gen-map\ 11847}# - #{x\ 12007}# - (car #{maps\ 12008}#)) - (cdr #{maps\ 12008}#))))))))) - #{tmp\ 11986}#) - ((lambda (#{tmp\ 12037}#) - (if #{tmp\ 12037}# - (apply (lambda (#{x\ 12040}# - #{y\ 12041}#) + (#{gen-map\ 2693}# + #{x\ 2853}# + (car #{maps\ 2854}#)) + (cdr #{maps\ 2854}#))))))))) + #{tmp\ 2832}#) + ((lambda (#{tmp\ 2883}#) + (if #{tmp\ 2883}# + (apply (lambda (#{x\ 2886}# + #{y\ 2887}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{src\ 11949}# - #{x\ 12040}# - #{r\ 11951}# - #{maps\ 11952}# - #{ellipsis?\ 11953}# - #{mod\ 11954}#)) - (lambda (#{x\ 12042}# - #{maps\ 12043}#) + (#{gen-syntax\ 2687}# + #{src\ 2795}# + #{x\ 2886}# + #{r\ 2797}# + #{maps\ 2798}# + #{ellipsis?\ 2799}# + #{mod\ 2800}#)) + (lambda (#{x\ 2888}# + #{maps\ 2889}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{src\ 11949}# - #{y\ 12041}# - #{r\ 11951}# - #{maps\ 12043}# - #{ellipsis?\ 11953}# - #{mod\ 11954}#)) - (lambda (#{y\ 12046}# - #{maps\ 12047}#) + (#{gen-syntax\ 2687}# + #{src\ 2795}# + #{y\ 2887}# + #{r\ 2797}# + #{maps\ 2889}# + #{ellipsis?\ 2799}# + #{mod\ 2800}#)) + (lambda (#{y\ 2892}# + #{maps\ 2893}#) (values - (#{gen-cons\ 11849}# - #{x\ 12042}# - #{y\ 12046}#) - #{maps\ 12047}#)))))) - #{tmp\ 12037}#) - ((lambda (#{tmp\ 12050}#) - (if #{tmp\ 12050}# - (apply (lambda (#{e1\ 12053}# - #{e2\ 12054}#) + (#{gen-cons\ 2695}# + #{x\ 2888}# + #{y\ 2892}#) + #{maps\ 2893}#)))))) + #{tmp\ 2883}#) + ((lambda (#{tmp\ 2896}#) + (if #{tmp\ 2896}# + (apply (lambda (#{e1\ 2899}# + #{e2\ 2900}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{src\ 11949}# - (cons #{e1\ 12053}# - #{e2\ 12054}#) - #{r\ 11951}# - #{maps\ 11952}# - #{ellipsis?\ 11953}# - #{mod\ 11954}#)) - (lambda (#{e\ 12056}# - #{maps\ 12057}#) + (#{gen-syntax\ 2687}# + #{src\ 2795}# + (cons #{e1\ 2899}# + #{e2\ 2900}#) + #{r\ 2797}# + #{maps\ 2798}# + #{ellipsis?\ 2799}# + #{mod\ 2800}#)) + (lambda (#{e\ 2902}# + #{maps\ 2903}#) (values - (#{gen-vector\ 11853}# - #{e\ 12056}#) - #{maps\ 12057}#)))) - #{tmp\ 12050}#) - ((lambda (#{_\ 12061}#) + (#{gen-vector\ 2699}# + #{e\ 2902}#) + #{maps\ 2903}#)))) + #{tmp\ 2896}#) + ((lambda (#{_\ 2907}#) (values (list 'quote - #{e\ 11950}#) - #{maps\ 11952}#)) - #{tmp\ 11974}#))) + #{e\ 2796}#) + #{maps\ 2798}#)) + #{tmp\ 2820}#))) ($sc-dispatch - #{tmp\ 11974}# + #{tmp\ 2820}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 11974}# + #{tmp\ 2820}# '(any . any))))) ($sc-dispatch - #{tmp\ 11974}# + #{tmp\ 2820}# '(any any . any))))) - ($sc-dispatch #{tmp\ 11974}# (quote (any any))))) - #{e\ 11950}#))))) - (lambda (#{e\ 12063}# - #{r\ 12064}# - #{w\ 12065}# - #{s\ 12066}# - #{mod\ 12067}#) - (let ((#{e\ 12074}# - (#{source-wrap\ 9485}# - #{e\ 12063}# - #{w\ 12065}# - #{s\ 12066}# - #{mod\ 12067}#))) - ((lambda (#{tmp\ 12075}#) - ((lambda (#{tmp\ 12076}#) - (if #{tmp\ 12076}# - (apply (lambda (#{_\ 12079}# #{x\ 12080}#) + ($sc-dispatch #{tmp\ 2820}# (quote (any any))))) + #{e\ 2796}#))))) + (lambda (#{e\ 2909}# + #{r\ 2910}# + #{w\ 2911}# + #{s\ 2912}# + #{mod\ 2913}#) + (let ((#{e\ 2920}# + (#{source-wrap\ 331}# + #{e\ 2909}# + #{w\ 2911}# + #{s\ 2912}# + #{mod\ 2913}#))) + ((lambda (#{tmp\ 2921}#) + ((lambda (#{tmp\ 2922}#) + (if #{tmp\ 2922}# + (apply (lambda (#{_\ 2925}# #{x\ 2926}#) (call-with-values (lambda () - (#{gen-syntax\ 11841}# - #{e\ 12074}# - #{x\ 12080}# - #{r\ 12064}# + (#{gen-syntax\ 2687}# + #{e\ 2920}# + #{x\ 2926}# + #{r\ 2910}# '() - #{ellipsis?\ 9515}# - #{mod\ 12067}#)) - (lambda (#{e\ 12081}# #{maps\ 12082}#) - (#{regen\ 11855}# #{e\ 12081}#)))) - #{tmp\ 12076}#) - ((lambda (#{_\ 12086}#) + #{ellipsis?\ 361}# + #{mod\ 2913}#)) + (lambda (#{e\ 2927}# #{maps\ 2928}#) + (#{regen\ 2701}# #{e\ 2927}#)))) + #{tmp\ 2922}#) + ((lambda (#{_\ 2932}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 12074}#)) - #{tmp\ 12075}#))) - ($sc-dispatch #{tmp\ 12075}# (quote (any any))))) - #{e\ 12074}#))))) - (#{global-extend\ 9410}# + #{e\ 2920}#)) + #{tmp\ 2921}#))) + ($sc-dispatch #{tmp\ 2921}# (quote (any any))))) + #{e\ 2920}#))))) + (#{global-extend\ 256}# 'core 'lambda - (lambda (#{e\ 12087}# - #{r\ 12088}# - #{w\ 12089}# - #{s\ 12090}# - #{mod\ 12091}#) - ((lambda (#{tmp\ 12097}#) - ((lambda (#{tmp\ 12098}#) - (if (if #{tmp\ 12098}# - (apply (lambda (#{_\ 12104}# - #{args\ 12105}# - #{docstring\ 12106}# - #{e1\ 12107}# - #{e2\ 12108}#) - (string? (syntax->datum #{docstring\ 12106}#))) - #{tmp\ 12098}#) + (lambda (#{e\ 2933}# + #{r\ 2934}# + #{w\ 2935}# + #{s\ 2936}# + #{mod\ 2937}#) + ((lambda (#{tmp\ 2943}#) + ((lambda (#{tmp\ 2944}#) + (if (if #{tmp\ 2944}# + (apply (lambda (#{_\ 2950}# + #{args\ 2951}# + #{docstring\ 2952}# + #{e1\ 2953}# + #{e2\ 2954}#) + (string? (syntax->datum #{docstring\ 2952}#))) + #{tmp\ 2944}#) #f) - (apply (lambda (#{_\ 12114}# - #{args\ 12115}# - #{docstring\ 12116}# - #{e1\ 12117}# - #{e2\ 12118}#) + (apply (lambda (#{_\ 2960}# + #{args\ 2961}# + #{docstring\ 2962}# + #{e1\ 2963}# + #{e2\ 2964}#) (call-with-values (lambda () - (#{lambda-formals\ 9517}# #{args\ 12115}#)) - (lambda (#{req\ 12119}# - #{opt\ 12120}# - #{rest\ 12121}# - #{kw\ 12122}#) - (#{chi-simple-lambda\ 9519}# - #{e\ 12087}# - #{r\ 12088}# - #{w\ 12089}# - #{s\ 12090}# - #{mod\ 12091}# - #{req\ 12119}# - #{rest\ 12121}# - (syntax->datum #{docstring\ 12116}#) - (cons #{e1\ 12117}# #{e2\ 12118}#))))) - #{tmp\ 12098}#) - ((lambda (#{tmp\ 12128}#) - (if #{tmp\ 12128}# - (apply (lambda (#{_\ 12133}# - #{args\ 12134}# - #{e1\ 12135}# - #{e2\ 12136}#) + (#{lambda-formals\ 363}# #{args\ 2961}#)) + (lambda (#{req\ 2965}# + #{opt\ 2966}# + #{rest\ 2967}# + #{kw\ 2968}#) + (#{chi-simple-lambda\ 365}# + #{e\ 2933}# + #{r\ 2934}# + #{w\ 2935}# + #{s\ 2936}# + #{mod\ 2937}# + #{req\ 2965}# + #{rest\ 2967}# + (syntax->datum #{docstring\ 2962}#) + (cons #{e1\ 2963}# #{e2\ 2964}#))))) + #{tmp\ 2944}#) + ((lambda (#{tmp\ 2974}#) + (if #{tmp\ 2974}# + (apply (lambda (#{_\ 2979}# + #{args\ 2980}# + #{e1\ 2981}# + #{e2\ 2982}#) (call-with-values (lambda () - (#{lambda-formals\ 9517}# #{args\ 12134}#)) - (lambda (#{req\ 12137}# - #{opt\ 12138}# - #{rest\ 12139}# - #{kw\ 12140}#) - (#{chi-simple-lambda\ 9519}# - #{e\ 12087}# - #{r\ 12088}# - #{w\ 12089}# - #{s\ 12090}# - #{mod\ 12091}# - #{req\ 12137}# - #{rest\ 12139}# + (#{lambda-formals\ 363}# #{args\ 2980}#)) + (lambda (#{req\ 2983}# + #{opt\ 2984}# + #{rest\ 2985}# + #{kw\ 2986}#) + (#{chi-simple-lambda\ 365}# + #{e\ 2933}# + #{r\ 2934}# + #{w\ 2935}# + #{s\ 2936}# + #{mod\ 2937}# + #{req\ 2983}# + #{rest\ 2985}# #f - (cons #{e1\ 12135}# #{e2\ 12136}#))))) - #{tmp\ 12128}#) - ((lambda (#{_\ 12147}#) + (cons #{e1\ 2981}# #{e2\ 2982}#))))) + #{tmp\ 2974}#) + ((lambda (#{_\ 2993}#) (syntax-violation 'lambda "bad lambda" - #{e\ 12087}#)) - #{tmp\ 12097}#))) + #{e\ 2933}#)) + #{tmp\ 2943}#))) ($sc-dispatch - #{tmp\ 12097}# + #{tmp\ 2943}# '(any any any . each-any))))) ($sc-dispatch - #{tmp\ 12097}# + #{tmp\ 2943}# '(any any any any . each-any)))) - #{e\ 12087}#))) - (#{global-extend\ 9410}# + #{e\ 2933}#))) + (#{global-extend\ 256}# 'core 'lambda* - (lambda (#{e\ 12148}# - #{r\ 12149}# - #{w\ 12150}# - #{s\ 12151}# - #{mod\ 12152}#) - ((lambda (#{tmp\ 12158}#) - ((lambda (#{tmp\ 12159}#) - (if #{tmp\ 12159}# - (apply (lambda (#{_\ 12164}# - #{args\ 12165}# - #{e1\ 12166}# - #{e2\ 12167}#) + (lambda (#{e\ 2994}# + #{r\ 2995}# + #{w\ 2996}# + #{s\ 2997}# + #{mod\ 2998}#) + ((lambda (#{tmp\ 3004}#) + ((lambda (#{tmp\ 3005}#) + (if #{tmp\ 3005}# + (apply (lambda (#{_\ 3010}# + #{args\ 3011}# + #{e1\ 3012}# + #{e2\ 3013}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9523}# - #{e\ 12148}# - #{r\ 12149}# - #{w\ 12150}# - #{s\ 12151}# - #{mod\ 12152}# - #{lambda*-formals\ 9521}# - (list (cons #{args\ 12165}# - (cons #{e1\ 12166}# - #{e2\ 12167}#))))) - (lambda (#{docstring\ 12169}# #{lcase\ 12170}#) - (#{build-case-lambda\ 9358}# - #{s\ 12151}# - #{docstring\ 12169}# - #{lcase\ 12170}#)))) - #{tmp\ 12159}#) - ((lambda (#{_\ 12174}#) + (#{chi-lambda-case\ 369}# + #{e\ 2994}# + #{r\ 2995}# + #{w\ 2996}# + #{s\ 2997}# + #{mod\ 2998}# + #{lambda*-formals\ 367}# + (list (cons #{args\ 3011}# + (cons #{e1\ 3012}# + #{e2\ 3013}#))))) + (lambda (#{docstring\ 3015}# #{lcase\ 3016}#) + (#{build-case-lambda\ 204}# + #{s\ 2997}# + #{docstring\ 3015}# + #{lcase\ 3016}#)))) + #{tmp\ 3005}#) + ((lambda (#{_\ 3020}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 12148}#)) - #{tmp\ 12158}#))) + #{e\ 2994}#)) + #{tmp\ 3004}#))) ($sc-dispatch - #{tmp\ 12158}# + #{tmp\ 3004}# '(any any any . each-any)))) - #{e\ 12148}#))) - (#{global-extend\ 9410}# + #{e\ 2994}#))) + (#{global-extend\ 256}# 'core 'case-lambda - (lambda (#{e\ 12175}# - #{r\ 12176}# - #{w\ 12177}# - #{s\ 12178}# - #{mod\ 12179}#) - ((lambda (#{tmp\ 12185}#) - ((lambda (#{tmp\ 12186}#) - (if #{tmp\ 12186}# - (apply (lambda (#{_\ 12194}# - #{args\ 12195}# - #{e1\ 12196}# - #{e2\ 12197}# - #{args*\ 12198}# - #{e1*\ 12199}# - #{e2*\ 12200}#) + (lambda (#{e\ 3021}# + #{r\ 3022}# + #{w\ 3023}# + #{s\ 3024}# + #{mod\ 3025}#) + ((lambda (#{tmp\ 3031}#) + ((lambda (#{tmp\ 3032}#) + (if #{tmp\ 3032}# + (apply (lambda (#{_\ 3040}# + #{args\ 3041}# + #{e1\ 3042}# + #{e2\ 3043}# + #{args*\ 3044}# + #{e1*\ 3045}# + #{e2*\ 3046}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9523}# - #{e\ 12175}# - #{r\ 12176}# - #{w\ 12177}# - #{s\ 12178}# - #{mod\ 12179}# - #{lambda-formals\ 9517}# - (cons (cons #{args\ 12195}# - (cons #{e1\ 12196}# - #{e2\ 12197}#)) - (map (lambda (#{tmp\ 12204}# - #{tmp\ 12203}# - #{tmp\ 12202}#) - (cons #{tmp\ 12202}# - (cons #{tmp\ 12203}# - #{tmp\ 12204}#))) - #{e2*\ 12200}# - #{e1*\ 12199}# - #{args*\ 12198}#)))) - (lambda (#{docstring\ 12206}# #{lcase\ 12207}#) - (#{build-case-lambda\ 9358}# - #{s\ 12178}# - #{docstring\ 12206}# - #{lcase\ 12207}#)))) - #{tmp\ 12186}#) - ((lambda (#{_\ 12211}#) + (#{chi-lambda-case\ 369}# + #{e\ 3021}# + #{r\ 3022}# + #{w\ 3023}# + #{s\ 3024}# + #{mod\ 3025}# + #{lambda-formals\ 363}# + (cons (cons #{args\ 3041}# + (cons #{e1\ 3042}# #{e2\ 3043}#)) + (map (lambda (#{tmp\ 3050}# + #{tmp\ 3049}# + #{tmp\ 3048}#) + (cons #{tmp\ 3048}# + (cons #{tmp\ 3049}# + #{tmp\ 3050}#))) + #{e2*\ 3046}# + #{e1*\ 3045}# + #{args*\ 3044}#)))) + (lambda (#{docstring\ 3052}# #{lcase\ 3053}#) + (#{build-case-lambda\ 204}# + #{s\ 3024}# + #{docstring\ 3052}# + #{lcase\ 3053}#)))) + #{tmp\ 3032}#) + ((lambda (#{_\ 3057}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 12175}#)) - #{tmp\ 12185}#))) + #{e\ 3021}#)) + #{tmp\ 3031}#))) ($sc-dispatch - #{tmp\ 12185}# + #{tmp\ 3031}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 12175}#))) - (#{global-extend\ 9410}# + #{e\ 3021}#))) + (#{global-extend\ 256}# 'core 'case-lambda* - (lambda (#{e\ 12212}# - #{r\ 12213}# - #{w\ 12214}# - #{s\ 12215}# - #{mod\ 12216}#) - ((lambda (#{tmp\ 12222}#) - ((lambda (#{tmp\ 12223}#) - (if #{tmp\ 12223}# - (apply (lambda (#{_\ 12231}# - #{args\ 12232}# - #{e1\ 12233}# - #{e2\ 12234}# - #{args*\ 12235}# - #{e1*\ 12236}# - #{e2*\ 12237}#) + (lambda (#{e\ 3058}# + #{r\ 3059}# + #{w\ 3060}# + #{s\ 3061}# + #{mod\ 3062}#) + ((lambda (#{tmp\ 3068}#) + ((lambda (#{tmp\ 3069}#) + (if #{tmp\ 3069}# + (apply (lambda (#{_\ 3077}# + #{args\ 3078}# + #{e1\ 3079}# + #{e2\ 3080}# + #{args*\ 3081}# + #{e1*\ 3082}# + #{e2*\ 3083}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9523}# - #{e\ 12212}# - #{r\ 12213}# - #{w\ 12214}# - #{s\ 12215}# - #{mod\ 12216}# - #{lambda*-formals\ 9521}# - (cons (cons #{args\ 12232}# - (cons #{e1\ 12233}# - #{e2\ 12234}#)) - (map (lambda (#{tmp\ 12241}# - #{tmp\ 12240}# - #{tmp\ 12239}#) - (cons #{tmp\ 12239}# - (cons #{tmp\ 12240}# - #{tmp\ 12241}#))) - #{e2*\ 12237}# - #{e1*\ 12236}# - #{args*\ 12235}#)))) - (lambda (#{docstring\ 12243}# #{lcase\ 12244}#) - (#{build-case-lambda\ 9358}# - #{s\ 12215}# - #{docstring\ 12243}# - #{lcase\ 12244}#)))) - #{tmp\ 12223}#) - ((lambda (#{_\ 12248}#) + (#{chi-lambda-case\ 369}# + #{e\ 3058}# + #{r\ 3059}# + #{w\ 3060}# + #{s\ 3061}# + #{mod\ 3062}# + #{lambda*-formals\ 367}# + (cons (cons #{args\ 3078}# + (cons #{e1\ 3079}# #{e2\ 3080}#)) + (map (lambda (#{tmp\ 3087}# + #{tmp\ 3086}# + #{tmp\ 3085}#) + (cons #{tmp\ 3085}# + (cons #{tmp\ 3086}# + #{tmp\ 3087}#))) + #{e2*\ 3083}# + #{e1*\ 3082}# + #{args*\ 3081}#)))) + (lambda (#{docstring\ 3089}# #{lcase\ 3090}#) + (#{build-case-lambda\ 204}# + #{s\ 3061}# + #{docstring\ 3089}# + #{lcase\ 3090}#)))) + #{tmp\ 3069}#) + ((lambda (#{_\ 3094}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 12212}#)) - #{tmp\ 12222}#))) + #{e\ 3058}#)) + #{tmp\ 3068}#))) ($sc-dispatch - #{tmp\ 12222}# + #{tmp\ 3068}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 12212}#))) - (#{global-extend\ 9410}# + #{e\ 3058}#))) + (#{global-extend\ 256}# 'core 'let - (letrec ((#{chi-let\ 12250}# - (lambda (#{e\ 12251}# - #{r\ 12252}# - #{w\ 12253}# - #{s\ 12254}# - #{mod\ 12255}# - #{constructor\ 12256}# - #{ids\ 12257}# - #{vals\ 12258}# - #{exps\ 12259}#) - (if (not (#{valid-bound-ids?\ 9477}# #{ids\ 12257}#)) + (letrec ((#{chi-let\ 3096}# + (lambda (#{e\ 3097}# + #{r\ 3098}# + #{w\ 3099}# + #{s\ 3100}# + #{mod\ 3101}# + #{constructor\ 3102}# + #{ids\ 3103}# + #{vals\ 3104}# + #{exps\ 3105}#) + (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3103}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 12251}#) - (let ((#{labels\ 12271}# - (#{gen-labels\ 9432}# #{ids\ 12257}#)) - (#{new-vars\ 12272}# - (map #{gen-var\ 9527}# #{ids\ 12257}#))) - (let ((#{nw\ 12275}# - (#{make-binding-wrap\ 9461}# - #{ids\ 12257}# - #{labels\ 12271}# - #{w\ 12253}#)) - (#{nr\ 12276}# - (#{extend-var-env\ 9404}# - #{labels\ 12271}# - #{new-vars\ 12272}# - #{r\ 12252}#))) - (#{constructor\ 12256}# - #{s\ 12254}# - (map syntax->datum #{ids\ 12257}#) - #{new-vars\ 12272}# - (map (lambda (#{x\ 12277}#) - (#{chi\ 9499}# - #{x\ 12277}# - #{r\ 12252}# - #{w\ 12253}# - #{mod\ 12255}#)) - #{vals\ 12258}#) - (#{chi-body\ 9507}# - #{exps\ 12259}# - (#{source-wrap\ 9485}# - #{e\ 12251}# - #{nw\ 12275}# - #{s\ 12254}# - #{mod\ 12255}#) - #{nr\ 12276}# - #{nw\ 12275}# - #{mod\ 12255}#)))))))) - (lambda (#{e\ 12279}# - #{r\ 12280}# - #{w\ 12281}# - #{s\ 12282}# - #{mod\ 12283}#) - ((lambda (#{tmp\ 12289}#) - ((lambda (#{tmp\ 12290}#) - (if (if #{tmp\ 12290}# - (apply (lambda (#{_\ 12296}# - #{id\ 12297}# - #{val\ 12298}# - #{e1\ 12299}# - #{e2\ 12300}#) - (and-map #{id?\ 9414}# #{id\ 12297}#)) - #{tmp\ 12290}#) + #{e\ 3097}#) + (let ((#{labels\ 3117}# + (#{gen-labels\ 278}# #{ids\ 3103}#)) + (#{new-vars\ 3118}# + (map #{gen-var\ 373}# #{ids\ 3103}#))) + (let ((#{nw\ 3121}# + (#{make-binding-wrap\ 307}# + #{ids\ 3103}# + #{labels\ 3117}# + #{w\ 3099}#)) + (#{nr\ 3122}# + (#{extend-var-env\ 250}# + #{labels\ 3117}# + #{new-vars\ 3118}# + #{r\ 3098}#))) + (#{constructor\ 3102}# + #{s\ 3100}# + (map syntax->datum #{ids\ 3103}#) + #{new-vars\ 3118}# + (map (lambda (#{x\ 3123}#) + (#{chi\ 345}# + #{x\ 3123}# + #{r\ 3098}# + #{w\ 3099}# + #{mod\ 3101}#)) + #{vals\ 3104}#) + (#{chi-body\ 353}# + #{exps\ 3105}# + (#{source-wrap\ 331}# + #{e\ 3097}# + #{nw\ 3121}# + #{s\ 3100}# + #{mod\ 3101}#) + #{nr\ 3122}# + #{nw\ 3121}# + #{mod\ 3101}#)))))))) + (lambda (#{e\ 3125}# + #{r\ 3126}# + #{w\ 3127}# + #{s\ 3128}# + #{mod\ 3129}#) + ((lambda (#{tmp\ 3135}#) + ((lambda (#{tmp\ 3136}#) + (if (if #{tmp\ 3136}# + (apply (lambda (#{_\ 3142}# + #{id\ 3143}# + #{val\ 3144}# + #{e1\ 3145}# + #{e2\ 3146}#) + (and-map #{id?\ 260}# #{id\ 3143}#)) + #{tmp\ 3136}#) #f) - (apply (lambda (#{_\ 12307}# - #{id\ 12308}# - #{val\ 12309}# - #{e1\ 12310}# - #{e2\ 12311}#) - (#{chi-let\ 12250}# - #{e\ 12279}# - #{r\ 12280}# - #{w\ 12281}# - #{s\ 12282}# - #{mod\ 12283}# - #{build-let\ 9368}# - #{id\ 12308}# - #{val\ 12309}# - (cons #{e1\ 12310}# #{e2\ 12311}#))) - #{tmp\ 12290}#) - ((lambda (#{tmp\ 12315}#) - (if (if #{tmp\ 12315}# - (apply (lambda (#{_\ 12322}# - #{f\ 12323}# - #{id\ 12324}# - #{val\ 12325}# - #{e1\ 12326}# - #{e2\ 12327}#) - (if (#{id?\ 9414}# #{f\ 12323}#) - (and-map #{id?\ 9414}# #{id\ 12324}#) + (apply (lambda (#{_\ 3153}# + #{id\ 3154}# + #{val\ 3155}# + #{e1\ 3156}# + #{e2\ 3157}#) + (#{chi-let\ 3096}# + #{e\ 3125}# + #{r\ 3126}# + #{w\ 3127}# + #{s\ 3128}# + #{mod\ 3129}# + #{build-let\ 214}# + #{id\ 3154}# + #{val\ 3155}# + (cons #{e1\ 3156}# #{e2\ 3157}#))) + #{tmp\ 3136}#) + ((lambda (#{tmp\ 3161}#) + (if (if #{tmp\ 3161}# + (apply (lambda (#{_\ 3168}# + #{f\ 3169}# + #{id\ 3170}# + #{val\ 3171}# + #{e1\ 3172}# + #{e2\ 3173}#) + (if (#{id?\ 260}# #{f\ 3169}#) + (and-map #{id?\ 260}# #{id\ 3170}#) #f)) - #{tmp\ 12315}#) + #{tmp\ 3161}#) #f) - (apply (lambda (#{_\ 12337}# - #{f\ 12338}# - #{id\ 12339}# - #{val\ 12340}# - #{e1\ 12341}# - #{e2\ 12342}#) - (#{chi-let\ 12250}# - #{e\ 12279}# - #{r\ 12280}# - #{w\ 12281}# - #{s\ 12282}# - #{mod\ 12283}# - #{build-named-let\ 9370}# - (cons #{f\ 12338}# #{id\ 12339}#) - #{val\ 12340}# - (cons #{e1\ 12341}# #{e2\ 12342}#))) - #{tmp\ 12315}#) - ((lambda (#{_\ 12347}#) + (apply (lambda (#{_\ 3183}# + #{f\ 3184}# + #{id\ 3185}# + #{val\ 3186}# + #{e1\ 3187}# + #{e2\ 3188}#) + (#{chi-let\ 3096}# + #{e\ 3125}# + #{r\ 3126}# + #{w\ 3127}# + #{s\ 3128}# + #{mod\ 3129}# + #{build-named-let\ 216}# + (cons #{f\ 3184}# #{id\ 3185}#) + #{val\ 3186}# + (cons #{e1\ 3187}# #{e2\ 3188}#))) + #{tmp\ 3161}#) + ((lambda (#{_\ 3193}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 9485}# - #{e\ 12279}# - #{w\ 12281}# - #{s\ 12282}# - #{mod\ 12283}#))) - #{tmp\ 12289}#))) + (#{source-wrap\ 331}# + #{e\ 3125}# + #{w\ 3127}# + #{s\ 3128}# + #{mod\ 3129}#))) + #{tmp\ 3135}#))) ($sc-dispatch - #{tmp\ 12289}# + #{tmp\ 3135}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 12289}# + #{tmp\ 3135}# '(any #(each (any any)) any . each-any)))) - #{e\ 12279}#)))) - (#{global-extend\ 9410}# + #{e\ 3125}#)))) + (#{global-extend\ 256}# 'core 'letrec - (lambda (#{e\ 12348}# - #{r\ 12349}# - #{w\ 12350}# - #{s\ 12351}# - #{mod\ 12352}#) - ((lambda (#{tmp\ 12358}#) - ((lambda (#{tmp\ 12359}#) - (if (if #{tmp\ 12359}# - (apply (lambda (#{_\ 12365}# - #{id\ 12366}# - #{val\ 12367}# - #{e1\ 12368}# - #{e2\ 12369}#) - (and-map #{id?\ 9414}# #{id\ 12366}#)) - #{tmp\ 12359}#) + (lambda (#{e\ 3194}# + #{r\ 3195}# + #{w\ 3196}# + #{s\ 3197}# + #{mod\ 3198}#) + ((lambda (#{tmp\ 3204}#) + ((lambda (#{tmp\ 3205}#) + (if (if #{tmp\ 3205}# + (apply (lambda (#{_\ 3211}# + #{id\ 3212}# + #{val\ 3213}# + #{e1\ 3214}# + #{e2\ 3215}#) + (and-map #{id?\ 260}# #{id\ 3212}#)) + #{tmp\ 3205}#) #f) - (apply (lambda (#{_\ 12376}# - #{id\ 12377}# - #{val\ 12378}# - #{e1\ 12379}# - #{e2\ 12380}#) - (let ((#{ids\ 12382}# #{id\ 12377}#)) - (if (not (#{valid-bound-ids?\ 9477}# - #{ids\ 12382}#)) + (apply (lambda (#{_\ 3222}# + #{id\ 3223}# + #{val\ 3224}# + #{e1\ 3225}# + #{e2\ 3226}#) + (let ((#{ids\ 3228}# #{id\ 3223}#)) + (if (not (#{valid-bound-ids?\ 323}# + #{ids\ 3228}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 12348}#) - (let ((#{labels\ 12386}# - (#{gen-labels\ 9432}# #{ids\ 12382}#)) - (#{new-vars\ 12387}# - (map #{gen-var\ 9527}# #{ids\ 12382}#))) - (let ((#{w\ 12390}# - (#{make-binding-wrap\ 9461}# - #{ids\ 12382}# - #{labels\ 12386}# - #{w\ 12350}#)) - (#{r\ 12391}# - (#{extend-var-env\ 9404}# - #{labels\ 12386}# - #{new-vars\ 12387}# - #{r\ 12349}#))) - (#{build-letrec\ 9372}# - #{s\ 12351}# - (map syntax->datum #{ids\ 12382}#) - #{new-vars\ 12387}# - (map (lambda (#{x\ 12392}#) - (#{chi\ 9499}# - #{x\ 12392}# - #{r\ 12391}# - #{w\ 12390}# - #{mod\ 12352}#)) - #{val\ 12378}#) - (#{chi-body\ 9507}# - (cons #{e1\ 12379}# #{e2\ 12380}#) - (#{source-wrap\ 9485}# - #{e\ 12348}# - #{w\ 12390}# - #{s\ 12351}# - #{mod\ 12352}#) - #{r\ 12391}# - #{w\ 12390}# - #{mod\ 12352}#))))))) - #{tmp\ 12359}#) - ((lambda (#{_\ 12397}#) + #{e\ 3194}#) + (let ((#{labels\ 3232}# + (#{gen-labels\ 278}# #{ids\ 3228}#)) + (#{new-vars\ 3233}# + (map #{gen-var\ 373}# #{ids\ 3228}#))) + (let ((#{w\ 3236}# + (#{make-binding-wrap\ 307}# + #{ids\ 3228}# + #{labels\ 3232}# + #{w\ 3196}#)) + (#{r\ 3237}# + (#{extend-var-env\ 250}# + #{labels\ 3232}# + #{new-vars\ 3233}# + #{r\ 3195}#))) + (#{build-letrec\ 218}# + #{s\ 3197}# + (map syntax->datum #{ids\ 3228}#) + #{new-vars\ 3233}# + (map (lambda (#{x\ 3238}#) + (#{chi\ 345}# + #{x\ 3238}# + #{r\ 3237}# + #{w\ 3236}# + #{mod\ 3198}#)) + #{val\ 3224}#) + (#{chi-body\ 353}# + (cons #{e1\ 3225}# #{e2\ 3226}#) + (#{source-wrap\ 331}# + #{e\ 3194}# + #{w\ 3236}# + #{s\ 3197}# + #{mod\ 3198}#) + #{r\ 3237}# + #{w\ 3236}# + #{mod\ 3198}#))))))) + #{tmp\ 3205}#) + ((lambda (#{_\ 3243}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 9485}# - #{e\ 12348}# - #{w\ 12350}# - #{s\ 12351}# - #{mod\ 12352}#))) - #{tmp\ 12358}#))) + (#{source-wrap\ 331}# + #{e\ 3194}# + #{w\ 3196}# + #{s\ 3197}# + #{mod\ 3198}#))) + #{tmp\ 3204}#))) ($sc-dispatch - #{tmp\ 12358}# + #{tmp\ 3204}# '(any #(each (any any)) any . each-any)))) - #{e\ 12348}#))) - (#{global-extend\ 9410}# + #{e\ 3194}#))) + (#{global-extend\ 256}# 'core 'set! - (lambda (#{e\ 12398}# - #{r\ 12399}# - #{w\ 12400}# - #{s\ 12401}# - #{mod\ 12402}#) - ((lambda (#{tmp\ 12408}#) - ((lambda (#{tmp\ 12409}#) - (if (if #{tmp\ 12409}# - (apply (lambda (#{_\ 12413}# - #{id\ 12414}# - #{val\ 12415}#) - (#{id?\ 9414}# #{id\ 12414}#)) - #{tmp\ 12409}#) + (lambda (#{e\ 3244}# + #{r\ 3245}# + #{w\ 3246}# + #{s\ 3247}# + #{mod\ 3248}#) + ((lambda (#{tmp\ 3254}#) + ((lambda (#{tmp\ 3255}#) + (if (if #{tmp\ 3255}# + (apply (lambda (#{_\ 3259}# #{id\ 3260}# #{val\ 3261}#) + (#{id?\ 260}# #{id\ 3260}#)) + #{tmp\ 3255}#) #f) - (apply (lambda (#{_\ 12419}# #{id\ 12420}# #{val\ 12421}#) - (let ((#{val\ 12424}# - (#{chi\ 9499}# - #{val\ 12421}# - #{r\ 12399}# - #{w\ 12400}# - #{mod\ 12402}#)) - (#{n\ 12425}# - (#{id-var-name\ 9471}# - #{id\ 12420}# - #{w\ 12400}#))) - (let ((#{b\ 12427}# - (#{lookup\ 9408}# - #{n\ 12425}# - #{r\ 12399}# - #{mod\ 12402}#))) - (let ((#{atom-key\ 12430}# - (#{binding-type\ 9397}# #{b\ 12427}#))) - (if (memv #{atom-key\ 12430}# + (apply (lambda (#{_\ 3265}# #{id\ 3266}# #{val\ 3267}#) + (let ((#{val\ 3270}# + (#{chi\ 345}# + #{val\ 3267}# + #{r\ 3245}# + #{w\ 3246}# + #{mod\ 3248}#)) + (#{n\ 3271}# + (#{id-var-name\ 317}# + #{id\ 3266}# + #{w\ 3246}#))) + (let ((#{b\ 3273}# + (#{lookup\ 254}# + #{n\ 3271}# + #{r\ 3245}# + #{mod\ 3248}#))) + (let ((#{atom-key\ 3276}# + (#{binding-type\ 243}# #{b\ 3273}#))) + (if (memv #{atom-key\ 3276}# '(lexical)) - (#{build-lexical-assignment\ 9344}# - #{s\ 12401}# - (syntax->datum #{id\ 12420}#) - (#{binding-value\ 9399}# #{b\ 12427}#) - #{val\ 12424}#) - (if (memv #{atom-key\ 12430}# + (#{build-lexical-assignment\ 190}# + #{s\ 3247}# + (syntax->datum #{id\ 3266}#) + (#{binding-value\ 245}# #{b\ 3273}#) + #{val\ 3270}#) + (if (memv #{atom-key\ 3276}# '(global)) - (#{build-global-assignment\ 9350}# - #{s\ 12401}# - #{n\ 12425}# - #{val\ 12424}# - #{mod\ 12402}#) - (if (memv #{atom-key\ 12430}# + (#{build-global-assignment\ 196}# + #{s\ 3247}# + #{n\ 3271}# + #{val\ 3270}# + #{mod\ 3248}#) + (if (memv #{atom-key\ 3276}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 9483}# - #{id\ 12420}# - #{w\ 12400}# - #{mod\ 12402}#)) + (#{wrap\ 329}# + #{id\ 3266}# + #{w\ 3246}# + #{mod\ 3248}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 9485}# - #{e\ 12398}# - #{w\ 12400}# - #{s\ 12401}# - #{mod\ 12402}#))))))))) - #{tmp\ 12409}#) - ((lambda (#{tmp\ 12435}#) - (if #{tmp\ 12435}# - (apply (lambda (#{_\ 12440}# - #{head\ 12441}# - #{tail\ 12442}# - #{val\ 12443}#) + (#{source-wrap\ 331}# + #{e\ 3244}# + #{w\ 3246}# + #{s\ 3247}# + #{mod\ 3248}#))))))))) + #{tmp\ 3255}#) + ((lambda (#{tmp\ 3281}#) + (if #{tmp\ 3281}# + (apply (lambda (#{_\ 3286}# + #{head\ 3287}# + #{tail\ 3288}# + #{val\ 3289}#) (call-with-values (lambda () - (#{syntax-type\ 9495}# - #{head\ 12441}# - #{r\ 12399}# + (#{syntax-type\ 341}# + #{head\ 3287}# + #{r\ 3245}# '(()) #f #f - #{mod\ 12402}# + #{mod\ 3248}# #t)) - (lambda (#{type\ 12446}# - #{value\ 12447}# - #{ee\ 12448}# - #{ww\ 12449}# - #{ss\ 12450}# - #{modmod\ 12451}#) - (if (memv #{type\ 12446}# + (lambda (#{type\ 3292}# + #{value\ 3293}# + #{ee\ 3294}# + #{ww\ 3295}# + #{ss\ 3296}# + #{modmod\ 3297}#) + (if (memv #{type\ 3292}# '(module-ref)) - (let ((#{val\ 12460}# - (#{chi\ 9499}# - #{val\ 12443}# - #{r\ 12399}# - #{w\ 12400}# - #{mod\ 12402}#))) + (let ((#{val\ 3306}# + (#{chi\ 345}# + #{val\ 3289}# + #{r\ 3245}# + #{w\ 3246}# + #{mod\ 3248}#))) (call-with-values (lambda () - (#{value\ 12447}# - (cons #{head\ 12441}# - #{tail\ 12442}#))) - (lambda (#{id\ 12462}# - #{mod\ 12463}#) - (#{build-global-assignment\ 9350}# - #{s\ 12401}# - #{id\ 12462}# - #{val\ 12460}# - #{mod\ 12463}#)))) - (#{build-application\ 9338}# - #{s\ 12401}# - (#{chi\ 9499}# + (#{value\ 3293}# + (cons #{head\ 3287}# + #{tail\ 3288}#))) + (lambda (#{id\ 3308}# #{mod\ 3309}#) + (#{build-global-assignment\ 196}# + #{s\ 3247}# + #{id\ 3308}# + #{val\ 3306}# + #{mod\ 3309}#)))) + (#{build-application\ 184}# + #{s\ 3247}# + (#{chi\ 345}# (list '#(syntax-object setter ((top) @@ -8975,22 +8889,22 @@ (top) (top) (top)) - #("i12452" - "i12453" - "i12454" - "i12455" - "i12456" - "i12457")) + #("i3298" + "i3299" + "i3300" + "i3301" + "i3302" + "i3303")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i12436" - "i12437" - "i12438" - "i12439")) + #("i3282" + "i3283" + "i3284" + "i3285")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -8999,11 +8913,11 @@ (top) (top) (top)) - #("i12403" - "i12404" - "i12405" - "i12406" - "i12407")) + #("i3249" + "i3250" + "i3251" + "i3252" + "i3253")) #(ribcage (lambda-var-list gen-var @@ -9239,178 +9153,176 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile)) - #{head\ 12441}#) - #{r\ 12399}# - #{w\ 12400}# - #{mod\ 12402}#) - (map (lambda (#{e\ 12467}#) - (#{chi\ 9499}# - #{e\ 12467}# - #{r\ 12399}# - #{w\ 12400}# - #{mod\ 12402}#)) + #{head\ 3287}#) + #{r\ 3245}# + #{w\ 3246}# + #{mod\ 3248}#) + (map (lambda (#{e\ 3313}#) + (#{chi\ 345}# + #{e\ 3313}# + #{r\ 3245}# + #{w\ 3246}# + #{mod\ 3248}#)) (append - #{tail\ 12442}# - (list #{val\ 12443}#)))))))) - #{tmp\ 12435}#) - ((lambda (#{_\ 12471}#) + #{tail\ 3288}# + (list #{val\ 3289}#)))))))) + #{tmp\ 3281}#) + ((lambda (#{_\ 3317}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 9485}# - #{e\ 12398}# - #{w\ 12400}# - #{s\ 12401}# - #{mod\ 12402}#))) - #{tmp\ 12408}#))) + (#{source-wrap\ 331}# + #{e\ 3244}# + #{w\ 3246}# + #{s\ 3247}# + #{mod\ 3248}#))) + #{tmp\ 3254}#))) ($sc-dispatch - #{tmp\ 12408}# + #{tmp\ 3254}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 12408}# + #{tmp\ 3254}# '(any any any)))) - #{e\ 12398}#))) - (#{global-extend\ 9410}# + #{e\ 3244}#))) + (#{global-extend\ 256}# 'module-ref '@ - (lambda (#{e\ 12472}#) - ((lambda (#{tmp\ 12474}#) - ((lambda (#{tmp\ 12475}#) - (if (if #{tmp\ 12475}# - (apply (lambda (#{_\ 12479}# - #{mod\ 12480}# - #{id\ 12481}#) - (if (and-map #{id?\ 9414}# #{mod\ 12480}#) - (#{id?\ 9414}# #{id\ 12481}#) + (lambda (#{e\ 3318}#) + ((lambda (#{tmp\ 3320}#) + ((lambda (#{tmp\ 3321}#) + (if (if #{tmp\ 3321}# + (apply (lambda (#{_\ 3325}# #{mod\ 3326}# #{id\ 3327}#) + (if (and-map #{id?\ 260}# #{mod\ 3326}#) + (#{id?\ 260}# #{id\ 3327}#) #f)) - #{tmp\ 12475}#) + #{tmp\ 3321}#) #f) - (apply (lambda (#{_\ 12488}# #{mod\ 12489}# #{id\ 12490}#) + (apply (lambda (#{_\ 3334}# #{mod\ 3335}# #{id\ 3336}#) (values - (syntax->datum #{id\ 12490}#) + (syntax->datum #{id\ 3336}#) (syntax->datum (cons '#(syntax-object public @@ -9418,9 +9330,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i12485" "i12486" "i12487")) + #("i3331" "i3332" "i3333")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i12473")) + #(ribcage #(e) #((top)) #("i3319")) #(ribcage (lambda-var-list gen-var @@ -9656,156 +9568,154 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile)) - #{mod\ 12489}#)))) - #{tmp\ 12475}#) + #{mod\ 3335}#)))) + #{tmp\ 3321}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12474}#))) + #{tmp\ 3320}#))) ($sc-dispatch - #{tmp\ 12474}# + #{tmp\ 3320}# '(any each-any any)))) - #{e\ 12472}#))) - (#{global-extend\ 9410}# + #{e\ 3318}#))) + (#{global-extend\ 256}# 'module-ref '@@ - (lambda (#{e\ 12492}#) - ((lambda (#{tmp\ 12494}#) - ((lambda (#{tmp\ 12495}#) - (if (if #{tmp\ 12495}# - (apply (lambda (#{_\ 12499}# - #{mod\ 12500}# - #{id\ 12501}#) - (if (and-map #{id?\ 9414}# #{mod\ 12500}#) - (#{id?\ 9414}# #{id\ 12501}#) + (lambda (#{e\ 3338}#) + ((lambda (#{tmp\ 3340}#) + ((lambda (#{tmp\ 3341}#) + (if (if #{tmp\ 3341}# + (apply (lambda (#{_\ 3345}# #{mod\ 3346}# #{id\ 3347}#) + (if (and-map #{id?\ 260}# #{mod\ 3346}#) + (#{id?\ 260}# #{id\ 3347}#) #f)) - #{tmp\ 12495}#) + #{tmp\ 3341}#) #f) - (apply (lambda (#{_\ 12508}# #{mod\ 12509}# #{id\ 12510}#) + (apply (lambda (#{_\ 3354}# #{mod\ 3355}# #{id\ 3356}#) (values - (syntax->datum #{id\ 12510}#) + (syntax->datum #{id\ 3356}#) (syntax->datum (cons '#(syntax-object private @@ -9813,9 +9723,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i12505" "i12506" "i12507")) + #("i3351" "i3352" "i3353")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i12493")) + #(ribcage #(e) #((top)) #("i3339")) #(ribcage (lambda-var-list gen-var @@ -10051,253 +9961,252 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile)) - #{mod\ 12509}#)))) - #{tmp\ 12495}#) + #{mod\ 3355}#)))) + #{tmp\ 3341}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12494}#))) + #{tmp\ 3340}#))) ($sc-dispatch - #{tmp\ 12494}# + #{tmp\ 3340}# '(any each-any any)))) - #{e\ 12492}#))) - (#{global-extend\ 9410}# + #{e\ 3338}#))) + (#{global-extend\ 256}# 'core 'if - (lambda (#{e\ 12512}# - #{r\ 12513}# - #{w\ 12514}# - #{s\ 12515}# - #{mod\ 12516}#) - ((lambda (#{tmp\ 12522}#) - ((lambda (#{tmp\ 12523}#) - (if #{tmp\ 12523}# - (apply (lambda (#{_\ 12527}# #{test\ 12528}# #{then\ 12529}#) - (#{build-conditional\ 9340}# - #{s\ 12515}# - (#{chi\ 9499}# - #{test\ 12528}# - #{r\ 12513}# - #{w\ 12514}# - #{mod\ 12516}#) - (#{chi\ 9499}# - #{then\ 12529}# - #{r\ 12513}# - #{w\ 12514}# - #{mod\ 12516}#) - (#{build-void\ 9336}# #f))) - #{tmp\ 12523}#) - ((lambda (#{tmp\ 12531}#) - (if #{tmp\ 12531}# - (apply (lambda (#{_\ 12536}# - #{test\ 12537}# - #{then\ 12538}# - #{else\ 12539}#) - (#{build-conditional\ 9340}# - #{s\ 12515}# - (#{chi\ 9499}# - #{test\ 12537}# - #{r\ 12513}# - #{w\ 12514}# - #{mod\ 12516}#) - (#{chi\ 9499}# - #{then\ 12538}# - #{r\ 12513}# - #{w\ 12514}# - #{mod\ 12516}#) - (#{chi\ 9499}# - #{else\ 12539}# - #{r\ 12513}# - #{w\ 12514}# - #{mod\ 12516}#))) - #{tmp\ 12531}#) + (lambda (#{e\ 3358}# + #{r\ 3359}# + #{w\ 3360}# + #{s\ 3361}# + #{mod\ 3362}#) + ((lambda (#{tmp\ 3368}#) + ((lambda (#{tmp\ 3369}#) + (if #{tmp\ 3369}# + (apply (lambda (#{_\ 3373}# #{test\ 3374}# #{then\ 3375}#) + (#{build-conditional\ 186}# + #{s\ 3361}# + (#{chi\ 345}# + #{test\ 3374}# + #{r\ 3359}# + #{w\ 3360}# + #{mod\ 3362}#) + (#{chi\ 345}# + #{then\ 3375}# + #{r\ 3359}# + #{w\ 3360}# + #{mod\ 3362}#) + (#{build-void\ 182}# #f))) + #{tmp\ 3369}#) + ((lambda (#{tmp\ 3377}#) + (if #{tmp\ 3377}# + (apply (lambda (#{_\ 3382}# + #{test\ 3383}# + #{then\ 3384}# + #{else\ 3385}#) + (#{build-conditional\ 186}# + #{s\ 3361}# + (#{chi\ 345}# + #{test\ 3383}# + #{r\ 3359}# + #{w\ 3360}# + #{mod\ 3362}#) + (#{chi\ 345}# + #{then\ 3384}# + #{r\ 3359}# + #{w\ 3360}# + #{mod\ 3362}#) + (#{chi\ 345}# + #{else\ 3385}# + #{r\ 3359}# + #{w\ 3360}# + #{mod\ 3362}#))) + #{tmp\ 3377}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12522}#))) + #{tmp\ 3368}#))) ($sc-dispatch - #{tmp\ 12522}# + #{tmp\ 3368}# '(any any any any))))) ($sc-dispatch - #{tmp\ 12522}# + #{tmp\ 3368}# '(any any any)))) - #{e\ 12512}#))) - (#{global-extend\ 9410}# + #{e\ 3358}#))) + (#{global-extend\ 256}# 'begin 'begin '()) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'define 'define '()) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'eval-when 'eval-when '()) - (#{global-extend\ 9410}# + (#{global-extend\ 256}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 12547}# - (lambda (#{x\ 12548}# - #{keys\ 12549}# - #{clauses\ 12550}# - #{r\ 12551}# - #{mod\ 12552}#) - (if (null? #{clauses\ 12550}#) - (#{build-application\ 9338}# + (letrec ((#{gen-syntax-case\ 3393}# + (lambda (#{x\ 3394}# + #{keys\ 3395}# + #{clauses\ 3396}# + #{r\ 3397}# + #{mod\ 3398}#) + (if (null? #{clauses\ 3396}#) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f 'syntax-violation) - (list (#{build-data\ 9364}# #f #f) - (#{build-data\ 9364}# + (list (#{build-data\ 210}# #f #f) + (#{build-data\ 210}# #f "source expression failed to match any pattern") - #{x\ 12548}#)) - ((lambda (#{tmp\ 12562}#) - ((lambda (#{tmp\ 12563}#) - (if #{tmp\ 12563}# - (apply (lambda (#{pat\ 12566}# #{exp\ 12567}#) - (if (if (#{id?\ 9414}# #{pat\ 12566}#) + #{x\ 3394}#)) + ((lambda (#{tmp\ 3408}#) + ((lambda (#{tmp\ 3409}#) + (if #{tmp\ 3409}# + (apply (lambda (#{pat\ 3412}# #{exp\ 3413}#) + (if (if (#{id?\ 260}# #{pat\ 3412}#) (and-map - (lambda (#{x\ 12570}#) - (not (#{free-id=?\ 9473}# - #{pat\ 12566}# - #{x\ 12570}#))) + (lambda (#{x\ 3416}#) + (not (#{free-id=?\ 319}# + #{pat\ 3412}# + #{x\ 3416}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i12564" - "i12565")) + #("i3410" "i3411")) #(ribcage () () ()) #(ribcage #(x @@ -10310,11 +10219,11 @@ (top) (top) (top)) - #("i12553" - "i12554" - "i12555" - "i12556" - "i12557")) + #("i3399" + "i3400" + "i3401" + "i3402" + "i3403")) #(ribcage (gen-syntax-case gen-clause @@ -10324,10 +10233,10 @@ (top) (top) (top)) - ("i12546" - "i12544" - "i12542" - "i12540")) + ("i3392" + "i3390" + "i3388" + "i3386")) #(ribcage (lambda-var-list gen-var @@ -10563,1030 +10472,1026 @@ (top) (top) (top)) - ("i9528" - "i9526" - "i9524" - "i9522" - "i9520" - "i9518" - "i9516" - "i9514" - "i9512" - "i9510" - "i9508" - "i9506" - "i9504" - "i9502" - "i9500" - "i9498" - "i9496" - "i9494" - "i9492" - "i9490" - "i9488" - "i9486" - "i9484" - "i9482" - "i9480" - "i9478" - "i9476" - "i9474" - "i9472" - "i9470" - "i9468" - "i9466" - "i9464" - "i9462" - "i9460" - "i9458" - "i9457" - "i9456" - "i9454" - "i9453" - "i9452" - "i9451" - "i9450" - "i9448" - "i9446" - "i9444" - "i9442" - "i9440" - "i9438" - "i9436" - "i9434" - "i9431" - "i9429" - "i9428" - "i9427" - "i9426" - "i9425" - "i9424" - "i9422" - "i9420" - "i9418" - "i9416" - "i9415" - "i9413" - "i9411" - "i9409" - "i9407" - "i9405" - "i9403" - "i9401" - "i9400" - "i9398" - "i9396" - "i9395" - "i9394" - "i9392" - "i9391" - "i9389" - "i9387" - "i9385" - "i9383" - "i9381" - "i9379" - "i9377" - "i9375" - "i9373" - "i9371" - "i9369" - "i9367" - "i9365" - "i9363" - "i9361" - "i9359" - "i9357" - "i9355" - "i9353" - "i9351" - "i9349" - "i9347" - "i9345" - "i9343" - "i9341" - "i9339" - "i9337" - "i9335" - "i9333" - "i9331" - "i9329" - "i9328" - "i9326" - "i9324" - "i9322" - "i9320" - "i9318" - "i9316" - "i9314" - "i9312")) + ("i374" + "i372" + "i370" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i303" + "i302" + "i300" + "i299" + "i298" + "i297" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i277" + "i275" + "i274" + "i273" + "i272" + "i271" + "i270" + "i268" + "i266" + "i264" + "i262" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i246" + "i244" + "i242" + "i241" + "i240" + "i238" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207" + "i205" + "i203" + "i201" + "i199" + "i197" + "i195" + "i193" + "i191" + "i189" + "i187" + "i185" + "i183" + "i181" + "i179" + "i177" + "i175" + "i174" + "i172" + "i170" + "i168" + "i166" + "i164" + "i162" + "i160" + "i158")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i9215" "i9213"))) + ("i61" "i59"))) (hygiene guile)) - #{keys\ 12549}#)) + #{keys\ 3395}#)) #f) - (let ((#{labels\ 12574}# - (list (#{gen-label\ 9430}#))) - (#{var\ 12575}# - (#{gen-var\ 9527}# - #{pat\ 12566}#))) - (#{build-application\ 9338}# + (let ((#{labels\ 3420}# + (list (#{gen-label\ 276}#))) + (#{var\ 3421}# + (#{gen-var\ 373}# + #{pat\ 3412}#))) + (#{build-application\ 184}# #f - (#{build-simple-lambda\ 9356}# + (#{build-simple-lambda\ 202}# #f (list (syntax->datum - #{pat\ 12566}#)) + #{pat\ 3412}#)) #f - (list #{var\ 12575}#) + (list #{var\ 3421}#) #f - (#{chi\ 9499}# - #{exp\ 12567}# - (#{extend-env\ 9402}# - #{labels\ 12574}# + (#{chi\ 345}# + #{exp\ 3413}# + (#{extend-env\ 248}# + #{labels\ 3420}# (list (cons 'syntax - (cons #{var\ 12575}# + (cons #{var\ 3421}# 0))) - #{r\ 12551}#) - (#{make-binding-wrap\ 9461}# - (list #{pat\ 12566}#) - #{labels\ 12574}# + #{r\ 3397}#) + (#{make-binding-wrap\ 307}# + (list #{pat\ 3412}#) + #{labels\ 3420}# '(())) - #{mod\ 12552}#)) - (list #{x\ 12548}#))) - (#{gen-clause\ 12545}# - #{x\ 12548}# - #{keys\ 12549}# - (cdr #{clauses\ 12550}#) - #{r\ 12551}# - #{pat\ 12566}# + #{mod\ 3398}#)) + (list #{x\ 3394}#))) + (#{gen-clause\ 3391}# + #{x\ 3394}# + #{keys\ 3395}# + (cdr #{clauses\ 3396}#) + #{r\ 3397}# + #{pat\ 3412}# #t - #{exp\ 12567}# - #{mod\ 12552}#))) - #{tmp\ 12563}#) - ((lambda (#{tmp\ 12581}#) - (if #{tmp\ 12581}# - (apply (lambda (#{pat\ 12585}# - #{fender\ 12586}# - #{exp\ 12587}#) - (#{gen-clause\ 12545}# - #{x\ 12548}# - #{keys\ 12549}# - (cdr #{clauses\ 12550}#) - #{r\ 12551}# - #{pat\ 12585}# - #{fender\ 12586}# - #{exp\ 12587}# - #{mod\ 12552}#)) - #{tmp\ 12581}#) - ((lambda (#{_\ 12589}#) + #{exp\ 3413}# + #{mod\ 3398}#))) + #{tmp\ 3409}#) + ((lambda (#{tmp\ 3427}#) + (if #{tmp\ 3427}# + (apply (lambda (#{pat\ 3431}# + #{fender\ 3432}# + #{exp\ 3433}#) + (#{gen-clause\ 3391}# + #{x\ 3394}# + #{keys\ 3395}# + (cdr #{clauses\ 3396}#) + #{r\ 3397}# + #{pat\ 3431}# + #{fender\ 3432}# + #{exp\ 3433}# + #{mod\ 3398}#)) + #{tmp\ 3427}#) + ((lambda (#{_\ 3435}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 12550}#))) - #{tmp\ 12562}#))) + (car #{clauses\ 3396}#))) + #{tmp\ 3408}#))) ($sc-dispatch - #{tmp\ 12562}# + #{tmp\ 3408}# '(any any any))))) - ($sc-dispatch #{tmp\ 12562}# (quote (any any))))) - (car #{clauses\ 12550}#))))) - (#{gen-clause\ 12545}# - (lambda (#{x\ 12590}# - #{keys\ 12591}# - #{clauses\ 12592}# - #{r\ 12593}# - #{pat\ 12594}# - #{fender\ 12595}# - #{exp\ 12596}# - #{mod\ 12597}#) + ($sc-dispatch #{tmp\ 3408}# (quote (any any))))) + (car #{clauses\ 3396}#))))) + (#{gen-clause\ 3391}# + (lambda (#{x\ 3436}# + #{keys\ 3437}# + #{clauses\ 3438}# + #{r\ 3439}# + #{pat\ 3440}# + #{fender\ 3441}# + #{exp\ 3442}# + #{mod\ 3443}#) (call-with-values (lambda () - (#{convert-pattern\ 12541}# - #{pat\ 12594}# - #{keys\ 12591}#)) - (lambda (#{p\ 12606}# #{pvars\ 12607}#) - (if (not (#{distinct-bound-ids?\ 9479}# - (map car #{pvars\ 12607}#))) + (#{convert-pattern\ 3387}# + #{pat\ 3440}# + #{keys\ 3437}#)) + (lambda (#{p\ 3452}# #{pvars\ 3453}#) + (if (not (#{distinct-bound-ids?\ 325}# + (map car #{pvars\ 3453}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 12594}#) + #{pat\ 3440}#) (if (not (and-map - (lambda (#{x\ 12614}#) - (not (#{ellipsis?\ 9515}# - (car #{x\ 12614}#)))) - #{pvars\ 12607}#)) + (lambda (#{x\ 3460}#) + (not (#{ellipsis?\ 361}# + (car #{x\ 3460}#)))) + #{pvars\ 3453}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 12594}#) - (let ((#{y\ 12618}# - (#{gen-var\ 9527}# (quote tmp)))) - (#{build-application\ 9338}# + #{pat\ 3440}#) + (let ((#{y\ 3464}# + (#{gen-var\ 373}# (quote tmp)))) + (#{build-application\ 184}# #f - (#{build-simple-lambda\ 9356}# + (#{build-simple-lambda\ 202}# #f (list (quote tmp)) #f - (list #{y\ 12618}#) + (list #{y\ 3464}#) #f - (let ((#{y\ 12622}# - (#{build-lexical-reference\ 9342}# + (let ((#{y\ 3468}# + (#{build-lexical-reference\ 188}# 'value #f 'tmp - #{y\ 12618}#))) - (#{build-conditional\ 9340}# + #{y\ 3464}#))) + (#{build-conditional\ 186}# #f - ((lambda (#{tmp\ 12625}#) - ((lambda (#{tmp\ 12626}#) - (if #{tmp\ 12626}# - (apply (lambda () #{y\ 12622}#) - #{tmp\ 12626}#) - ((lambda (#{_\ 12628}#) - (#{build-conditional\ 9340}# + ((lambda (#{tmp\ 3471}#) + ((lambda (#{tmp\ 3472}#) + (if #{tmp\ 3472}# + (apply (lambda () #{y\ 3468}#) + #{tmp\ 3472}#) + ((lambda (#{_\ 3474}#) + (#{build-conditional\ 186}# #f - #{y\ 12622}# - (#{build-dispatch-call\ 12543}# - #{pvars\ 12607}# - #{fender\ 12595}# - #{y\ 12622}# - #{r\ 12593}# - #{mod\ 12597}#) - (#{build-data\ 9364}# + #{y\ 3468}# + (#{build-dispatch-call\ 3389}# + #{pvars\ 3453}# + #{fender\ 3441}# + #{y\ 3468}# + #{r\ 3439}# + #{mod\ 3443}#) + (#{build-data\ 210}# #f #f))) - #{tmp\ 12625}#))) + #{tmp\ 3471}#))) ($sc-dispatch - #{tmp\ 12625}# + #{tmp\ 3471}# '#(atom #t)))) - #{fender\ 12595}#) - (#{build-dispatch-call\ 12543}# - #{pvars\ 12607}# - #{exp\ 12596}# - #{y\ 12622}# - #{r\ 12593}# - #{mod\ 12597}#) - (#{gen-syntax-case\ 12547}# - #{x\ 12590}# - #{keys\ 12591}# - #{clauses\ 12592}# - #{r\ 12593}# - #{mod\ 12597}#)))) - (list (if (eq? #{p\ 12606}# (quote any)) - (#{build-application\ 9338}# + #{fender\ 3441}#) + (#{build-dispatch-call\ 3389}# + #{pvars\ 3453}# + #{exp\ 3442}# + #{y\ 3468}# + #{r\ 3439}# + #{mod\ 3443}#) + (#{gen-syntax-case\ 3393}# + #{x\ 3436}# + #{keys\ 3437}# + #{clauses\ 3438}# + #{r\ 3439}# + #{mod\ 3443}#)))) + (list (if (eq? #{p\ 3452}# (quote any)) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f 'list) - (list #{x\ 12590}#)) - (#{build-application\ 9338}# + (list #{x\ 3436}#)) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# + (#{build-primref\ 208}# #f '$sc-dispatch) - (list #{x\ 12590}# - (#{build-data\ 9364}# + (list #{x\ 3436}# + (#{build-data\ 210}# #f - #{p\ 12606}#))))))))))))) - (#{build-dispatch-call\ 12543}# - (lambda (#{pvars\ 12636}# - #{exp\ 12637}# - #{y\ 12638}# - #{r\ 12639}# - #{mod\ 12640}#) - (let ((#{ids\ 12648}# (map car #{pvars\ 12636}#)) - (#{levels\ 12649}# (map cdr #{pvars\ 12636}#))) - (let ((#{labels\ 12652}# - (#{gen-labels\ 9432}# #{ids\ 12648}#)) - (#{new-vars\ 12653}# - (map #{gen-var\ 9527}# #{ids\ 12648}#))) - (#{build-application\ 9338}# + #{p\ 3452}#))))))))))))) + (#{build-dispatch-call\ 3389}# + (lambda (#{pvars\ 3482}# + #{exp\ 3483}# + #{y\ 3484}# + #{r\ 3485}# + #{mod\ 3486}#) + (let ((#{ids\ 3494}# (map car #{pvars\ 3482}#)) + (#{levels\ 3495}# (map cdr #{pvars\ 3482}#))) + (let ((#{labels\ 3498}# + (#{gen-labels\ 278}# #{ids\ 3494}#)) + (#{new-vars\ 3499}# + (map #{gen-var\ 373}# #{ids\ 3494}#))) + (#{build-application\ 184}# #f - (#{build-primref\ 9362}# #f (quote apply)) - (list (#{build-simple-lambda\ 9356}# + (#{build-primref\ 208}# #f (quote apply)) + (list (#{build-simple-lambda\ 202}# #f - (map syntax->datum #{ids\ 12648}#) + (map syntax->datum #{ids\ 3494}#) #f - #{new-vars\ 12653}# + #{new-vars\ 3499}# #f - (#{chi\ 9499}# - #{exp\ 12637}# - (#{extend-env\ 9402}# - #{labels\ 12652}# - (map (lambda (#{var\ 12657}# - #{level\ 12658}#) + (#{chi\ 345}# + #{exp\ 3483}# + (#{extend-env\ 248}# + #{labels\ 3498}# + (map (lambda (#{var\ 3503}# + #{level\ 3504}#) (cons 'syntax - (cons #{var\ 12657}# - #{level\ 12658}#))) - #{new-vars\ 12653}# - (map cdr #{pvars\ 12636}#)) - #{r\ 12639}#) - (#{make-binding-wrap\ 9461}# - #{ids\ 12648}# - #{labels\ 12652}# + (cons #{var\ 3503}# + #{level\ 3504}#))) + #{new-vars\ 3499}# + (map cdr #{pvars\ 3482}#)) + #{r\ 3485}#) + (#{make-binding-wrap\ 307}# + #{ids\ 3494}# + #{labels\ 3498}# '(())) - #{mod\ 12640}#)) - #{y\ 12638}#)))))) - (#{convert-pattern\ 12541}# - (lambda (#{pattern\ 12664}# #{keys\ 12665}#) - (letrec ((#{cvt\ 12671}# - (lambda (#{p\ 12672}# - #{n\ 12673}# - #{ids\ 12674}#) - (if (#{id?\ 9414}# #{p\ 12672}#) - (if (#{bound-id-member?\ 9481}# - #{p\ 12672}# - #{keys\ 12665}#) + #{mod\ 3486}#)) + #{y\ 3484}#)))))) + (#{convert-pattern\ 3387}# + (lambda (#{pattern\ 3510}# #{keys\ 3511}#) + (letrec ((#{cvt\ 3517}# + (lambda (#{p\ 3518}# #{n\ 3519}# #{ids\ 3520}#) + (if (#{id?\ 260}# #{p\ 3518}#) + (if (#{bound-id-member?\ 327}# + #{p\ 3518}# + #{keys\ 3511}#) (values - (vector (quote free-id) #{p\ 12672}#) - #{ids\ 12674}#) + (vector (quote free-id) #{p\ 3518}#) + #{ids\ 3520}#) (values 'any - (cons (cons #{p\ 12672}# #{n\ 12673}#) - #{ids\ 12674}#))) - ((lambda (#{tmp\ 12678}#) - ((lambda (#{tmp\ 12679}#) - (if (if #{tmp\ 12679}# - (apply (lambda (#{x\ 12682}# - #{dots\ 12683}#) - (#{ellipsis?\ 9515}# - #{dots\ 12683}#)) - #{tmp\ 12679}#) + (cons (cons #{p\ 3518}# #{n\ 3519}#) + #{ids\ 3520}#))) + ((lambda (#{tmp\ 3524}#) + ((lambda (#{tmp\ 3525}#) + (if (if #{tmp\ 3525}# + (apply (lambda (#{x\ 3528}# + #{dots\ 3529}#) + (#{ellipsis?\ 361}# + #{dots\ 3529}#)) + #{tmp\ 3525}#) #f) - (apply (lambda (#{x\ 12686}# - #{dots\ 12687}#) + (apply (lambda (#{x\ 3532}# + #{dots\ 3533}#) (call-with-values (lambda () - (#{cvt\ 12671}# - #{x\ 12686}# - (#{fx+\ 9317}# - #{n\ 12673}# + (#{cvt\ 3517}# + #{x\ 3532}# + (#{fx+\ 163}# + #{n\ 3519}# 1) - #{ids\ 12674}#)) - (lambda (#{p\ 12688}# - #{ids\ 12689}#) + #{ids\ 3520}#)) + (lambda (#{p\ 3534}# + #{ids\ 3535}#) (values - (if (eq? #{p\ 12688}# + (if (eq? #{p\ 3534}# 'any) 'each-any (vector 'each - #{p\ 12688}#)) - #{ids\ 12689}#)))) - #{tmp\ 12679}#) - ((lambda (#{tmp\ 12692}#) - (if (if #{tmp\ 12692}# - (apply (lambda (#{x\ 12696}# - #{dots\ 12697}# - #{ys\ 12698}#) - (#{ellipsis?\ 9515}# - #{dots\ 12697}#)) - #{tmp\ 12692}#) + #{p\ 3534}#)) + #{ids\ 3535}#)))) + #{tmp\ 3525}#) + ((lambda (#{tmp\ 3538}#) + (if (if #{tmp\ 3538}# + (apply (lambda (#{x\ 3542}# + #{dots\ 3543}# + #{ys\ 3544}#) + (#{ellipsis?\ 361}# + #{dots\ 3543}#)) + #{tmp\ 3538}#) #f) - (apply (lambda (#{x\ 12702}# - #{dots\ 12703}# - #{ys\ 12704}#) + (apply (lambda (#{x\ 3548}# + #{dots\ 3549}# + #{ys\ 3550}#) (call-with-values (lambda () - (#{cvt*\ 12669}# - #{ys\ 12704}# - #{n\ 12673}# - #{ids\ 12674}#)) - (lambda (#{ys\ 12706}# - #{ids\ 12707}#) + (#{cvt*\ 3515}# + #{ys\ 3550}# + #{n\ 3519}# + #{ids\ 3520}#)) + (lambda (#{ys\ 3552}# + #{ids\ 3553}#) (call-with-values (lambda () - (#{cvt\ 12671}# - #{x\ 12702}# - (+ #{n\ 12673}# + (#{cvt\ 3517}# + #{x\ 3548}# + (+ #{n\ 3519}# 1) - #{ids\ 12707}#)) - (lambda (#{x\ 12710}# - #{ids\ 12711}#) + #{ids\ 3553}#)) + (lambda (#{x\ 3556}# + #{ids\ 3557}#) (values (list->vector (cons 'each+ - (cons #{x\ 12710}# + (cons #{x\ 3556}# (cons (reverse - #{ys\ 12706}#) + #{ys\ 3552}#) '(()))))) - #{ids\ 12711}#)))))) - #{tmp\ 12692}#) - ((lambda (#{tmp\ 12715}#) - (if #{tmp\ 12715}# - (apply (lambda (#{x\ 12718}# - #{y\ 12719}#) + #{ids\ 3557}#)))))) + #{tmp\ 3538}#) + ((lambda (#{tmp\ 3561}#) + (if #{tmp\ 3561}# + (apply (lambda (#{x\ 3564}# + #{y\ 3565}#) (call-with-values (lambda () - (#{cvt\ 12671}# - #{y\ 12719}# - #{n\ 12673}# - #{ids\ 12674}#)) - (lambda (#{y\ 12720}# - #{ids\ 12721}#) + (#{cvt\ 3517}# + #{y\ 3565}# + #{n\ 3519}# + #{ids\ 3520}#)) + (lambda (#{y\ 3566}# + #{ids\ 3567}#) (call-with-values (lambda () - (#{cvt\ 12671}# - #{x\ 12718}# - #{n\ 12673}# - #{ids\ 12721}#)) - (lambda (#{x\ 12724}# - #{ids\ 12725}#) + (#{cvt\ 3517}# + #{x\ 3564}# + #{n\ 3519}# + #{ids\ 3567}#)) + (lambda (#{x\ 3570}# + #{ids\ 3571}#) (values - (cons #{x\ 12724}# - #{y\ 12720}#) - #{ids\ 12725}#)))))) - #{tmp\ 12715}#) - ((lambda (#{tmp\ 12728}#) - (if #{tmp\ 12728}# + (cons #{x\ 3570}# + #{y\ 3566}#) + #{ids\ 3571}#)))))) + #{tmp\ 3561}#) + ((lambda (#{tmp\ 3574}#) + (if #{tmp\ 3574}# (apply (lambda () (values '() - #{ids\ 12674}#)) - #{tmp\ 12728}#) - ((lambda (#{tmp\ 12729}#) - (if #{tmp\ 12729}# - (apply (lambda (#{x\ 12731}#) + #{ids\ 3520}#)) + #{tmp\ 3574}#) + ((lambda (#{tmp\ 3575}#) + (if #{tmp\ 3575}# + (apply (lambda (#{x\ 3577}#) (call-with-values (lambda () - (#{cvt\ 12671}# - #{x\ 12731}# - #{n\ 12673}# - #{ids\ 12674}#)) - (lambda (#{p\ 12733}# - #{ids\ 12734}#) + (#{cvt\ 3517}# + #{x\ 3577}# + #{n\ 3519}# + #{ids\ 3520}#)) + (lambda (#{p\ 3579}# + #{ids\ 3580}#) (values (vector 'vector - #{p\ 12733}#) - #{ids\ 12734}#)))) - #{tmp\ 12729}#) - ((lambda (#{x\ 12738}#) + #{p\ 3579}#) + #{ids\ 3580}#)))) + #{tmp\ 3575}#) + ((lambda (#{x\ 3584}#) (values (vector 'atom - (#{strip\ 9525}# - #{p\ 12672}# + (#{strip\ 371}# + #{p\ 3518}# '(()))) - #{ids\ 12674}#)) - #{tmp\ 12678}#))) + #{ids\ 3520}#)) + #{tmp\ 3524}#))) ($sc-dispatch - #{tmp\ 12678}# + #{tmp\ 3524}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 12678}# + #{tmp\ 3524}# '())))) ($sc-dispatch - #{tmp\ 12678}# + #{tmp\ 3524}# '(any . any))))) ($sc-dispatch - #{tmp\ 12678}# + #{tmp\ 3524}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 12678}# + #{tmp\ 3524}# '(any any)))) - #{p\ 12672}#)))) - (#{cvt*\ 12669}# - (lambda (#{p*\ 12740}# - #{n\ 12741}# - #{ids\ 12742}#) - (if (null? #{p*\ 12740}#) - (values (quote ()) #{ids\ 12742}#) + #{p\ 3518}#)))) + (#{cvt*\ 3515}# + (lambda (#{p*\ 3586}# + #{n\ 3587}# + #{ids\ 3588}#) + (if (null? #{p*\ 3586}#) + (values (quote ()) #{ids\ 3588}#) (call-with-values (lambda () - (#{cvt*\ 12669}# - (cdr #{p*\ 12740}#) - #{n\ 12741}# - #{ids\ 12742}#)) - (lambda (#{y\ 12746}# #{ids\ 12747}#) + (#{cvt*\ 3515}# + (cdr #{p*\ 3586}#) + #{n\ 3587}# + #{ids\ 3588}#)) + (lambda (#{y\ 3592}# #{ids\ 3593}#) (call-with-values (lambda () - (#{cvt\ 12671}# - (car #{p*\ 12740}#) - #{n\ 12741}# - #{ids\ 12747}#)) - (lambda (#{x\ 12750}# #{ids\ 12751}#) + (#{cvt\ 3517}# + (car #{p*\ 3586}#) + #{n\ 3587}# + #{ids\ 3593}#)) + (lambda (#{x\ 3596}# #{ids\ 3597}#) (values - (cons #{x\ 12750}# #{y\ 12746}#) - #{ids\ 12751}#))))))))) - (#{cvt\ 12671}# #{pattern\ 12664}# 0 (quote ())))))) - (lambda (#{e\ 12754}# - #{r\ 12755}# - #{w\ 12756}# - #{s\ 12757}# - #{mod\ 12758}#) - (let ((#{e\ 12765}# - (#{source-wrap\ 9485}# - #{e\ 12754}# - #{w\ 12756}# - #{s\ 12757}# - #{mod\ 12758}#))) - ((lambda (#{tmp\ 12766}#) - ((lambda (#{tmp\ 12767}#) - (if #{tmp\ 12767}# - (apply (lambda (#{_\ 12772}# - #{val\ 12773}# - #{key\ 12774}# - #{m\ 12775}#) + (cons #{x\ 3596}# #{y\ 3592}#) + #{ids\ 3597}#))))))))) + (#{cvt\ 3517}# #{pattern\ 3510}# 0 (quote ())))))) + (lambda (#{e\ 3600}# + #{r\ 3601}# + #{w\ 3602}# + #{s\ 3603}# + #{mod\ 3604}#) + (let ((#{e\ 3611}# + (#{source-wrap\ 331}# + #{e\ 3600}# + #{w\ 3602}# + #{s\ 3603}# + #{mod\ 3604}#))) + ((lambda (#{tmp\ 3612}#) + ((lambda (#{tmp\ 3613}#) + (if #{tmp\ 3613}# + (apply (lambda (#{_\ 3618}# + #{val\ 3619}# + #{key\ 3620}# + #{m\ 3621}#) (if (and-map - (lambda (#{x\ 12776}#) - (if (#{id?\ 9414}# #{x\ 12776}#) - (not (#{ellipsis?\ 9515}# - #{x\ 12776}#)) + (lambda (#{x\ 3622}#) + (if (#{id?\ 260}# #{x\ 3622}#) + (not (#{ellipsis?\ 361}# #{x\ 3622}#)) #f)) - #{key\ 12774}#) - (let ((#{x\ 12782}# - (#{gen-var\ 9527}# (quote tmp)))) - (#{build-application\ 9338}# - #{s\ 12757}# - (#{build-simple-lambda\ 9356}# + #{key\ 3620}#) + (let ((#{x\ 3628}# + (#{gen-var\ 373}# (quote tmp)))) + (#{build-application\ 184}# + #{s\ 3603}# + (#{build-simple-lambda\ 202}# #f (list (quote tmp)) #f - (list #{x\ 12782}#) + (list #{x\ 3628}#) #f - (#{gen-syntax-case\ 12547}# - (#{build-lexical-reference\ 9342}# + (#{gen-syntax-case\ 3393}# + (#{build-lexical-reference\ 188}# 'value #f 'tmp - #{x\ 12782}#) - #{key\ 12774}# - #{m\ 12775}# - #{r\ 12755}# - #{mod\ 12758}#)) - (list (#{chi\ 9499}# - #{val\ 12773}# - #{r\ 12755}# + #{x\ 3628}#) + #{key\ 3620}# + #{m\ 3621}# + #{r\ 3601}# + #{mod\ 3604}#)) + (list (#{chi\ 345}# + #{val\ 3619}# + #{r\ 3601}# '(()) - #{mod\ 12758}#)))) + #{mod\ 3604}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 12765}#))) - #{tmp\ 12767}#) + #{e\ 3611}#))) + #{tmp\ 3613}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12766}#))) + #{tmp\ 3612}#))) ($sc-dispatch - #{tmp\ 12766}# + #{tmp\ 3612}# '(any any each-any . each-any)))) - #{e\ 12765}#))))) + #{e\ 3611}#))))) (set! sc-expand - (lambda (#{x\ 12788}# . #{rest\ 12789}#) - (if (if (pair? #{x\ 12788}#) - (equal? (car #{x\ 12788}#) #{noexpand\ 9313}#) + (lambda (#{x\ 3634}# . #{rest\ 3635}#) + (if (if (pair? #{x\ 3634}#) + (equal? (car #{x\ 3634}#) #{noexpand\ 159}#) #f) - (cadr #{x\ 12788}#) - (let ((#{m\ 12796}# - (if (null? #{rest\ 12789}#) + (cadr #{x\ 3634}#) + (let ((#{m\ 3642}# + (if (null? #{rest\ 3635}#) 'e - (car #{rest\ 12789}#))) - (#{esew\ 12797}# - (if (let ((#{t\ 12800}# (null? #{rest\ 12789}#))) - (if #{t\ 12800}# - #{t\ 12800}# - (null? (cdr #{rest\ 12789}#)))) + (car #{rest\ 3635}#))) + (#{esew\ 3643}# + (if (let ((#{t\ 3646}# (null? #{rest\ 3635}#))) + (if #{t\ 3646}# + #{t\ 3646}# + (null? (cdr #{rest\ 3635}#)))) '(eval) - (cadr #{rest\ 12789}#)))) + (cadr #{rest\ 3635}#)))) (with-fluid* - #{*mode*\ 9315}# - #{m\ 12796}# + #{*mode*\ 161}# + #{m\ 3642}# (lambda () - (#{chi-top\ 9497}# - #{x\ 12788}# + (#{chi-top\ 343}# + #{x\ 3634}# '() '((top)) - #{m\ 12796}# - #{esew\ 12797}# + #{m\ 3642}# + #{esew\ 3643}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? - (lambda (#{x\ 12804}#) - (#{nonsymbol-id?\ 9412}# #{x\ 12804}#))) + (lambda (#{x\ 3650}#) + (#{nonsymbol-id?\ 258}# #{x\ 3650}#))) (set! datum->syntax - (lambda (#{id\ 12806}# #{datum\ 12807}#) - (#{make-syntax-object\ 9376}# - #{datum\ 12807}# - (#{syntax-object-wrap\ 9382}# #{id\ 12806}#) + (lambda (#{id\ 3652}# #{datum\ 3653}#) + (#{make-syntax-object\ 222}# + #{datum\ 3653}# + (#{syntax-object-wrap\ 228}# #{id\ 3652}#) #f))) (set! syntax->datum - (lambda (#{x\ 12810}#) - (#{strip\ 9525}# #{x\ 12810}# (quote (()))))) + (lambda (#{x\ 3656}#) + (#{strip\ 371}# #{x\ 3656}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 12813}#) + (lambda (#{ls\ 3659}#) (begin - (let ((#{x\ 12817}# #{ls\ 12813}#)) - (if (not (list? #{x\ 12817}#)) + (let ((#{x\ 3663}# #{ls\ 3659}#)) + (if (not (list? #{x\ 3663}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 12817}#))) - (map (lambda (#{x\ 12818}#) - (#{wrap\ 9483}# (gensym) (quote ((top))) #f)) - #{ls\ 12813}#)))) + #{x\ 3663}#))) + (map (lambda (#{x\ 3664}#) + (#{wrap\ 329}# (gensym) (quote ((top))) #f)) + #{ls\ 3659}#)))) (set! free-identifier=? - (lambda (#{x\ 12822}# #{y\ 12823}#) + (lambda (#{x\ 3668}# #{y\ 3669}#) (begin - (let ((#{x\ 12828}# #{x\ 12822}#)) - (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12828}#)) + (let ((#{x\ 3674}# #{x\ 3668}#)) + (if (not (#{nonsymbol-id?\ 258}# #{x\ 3674}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 12828}#))) - (let ((#{x\ 12831}# #{y\ 12823}#)) - (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12831}#)) + #{x\ 3674}#))) + (let ((#{x\ 3677}# #{y\ 3669}#)) + (if (not (#{nonsymbol-id?\ 258}# #{x\ 3677}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 12831}#))) - (#{free-id=?\ 9473}# #{x\ 12822}# #{y\ 12823}#)))) + #{x\ 3677}#))) + (#{free-id=?\ 319}# #{x\ 3668}# #{y\ 3669}#)))) (set! bound-identifier=? - (lambda (#{x\ 12832}# #{y\ 12833}#) + (lambda (#{x\ 3678}# #{y\ 3679}#) (begin - (let ((#{x\ 12838}# #{x\ 12832}#)) - (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12838}#)) + (let ((#{x\ 3684}# #{x\ 3678}#)) + (if (not (#{nonsymbol-id?\ 258}# #{x\ 3684}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 12838}#))) - (let ((#{x\ 12841}# #{y\ 12833}#)) - (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12841}#)) + #{x\ 3684}#))) + (let ((#{x\ 3687}# #{y\ 3679}#)) + (if (not (#{nonsymbol-id?\ 258}# #{x\ 3687}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 12841}#))) - (#{bound-id=?\ 9475}# #{x\ 12832}# #{y\ 12833}#)))) + #{x\ 3687}#))) + (#{bound-id=?\ 321}# #{x\ 3678}# #{y\ 3679}#)))) (set! syntax-violation - (lambda (#{who\ 12842}# - #{message\ 12843}# - #{form\ 12844}# + (lambda (#{who\ 3688}# + #{message\ 3689}# + #{form\ 3690}# . - #{subform\ 12845}#) + #{subform\ 3691}#) (begin - (let ((#{x\ 12852}# #{who\ 12842}#)) - (if (not ((lambda (#{x\ 12853}#) - (let ((#{t\ 12857}# (not #{x\ 12853}#))) - (if #{t\ 12857}# - #{t\ 12857}# - (let ((#{t\ 12860}# (string? #{x\ 12853}#))) - (if #{t\ 12860}# - #{t\ 12860}# - (symbol? #{x\ 12853}#)))))) - #{x\ 12852}#)) + (let ((#{x\ 3698}# #{who\ 3688}#)) + (if (not ((lambda (#{x\ 3699}#) + (let ((#{t\ 3703}# (not #{x\ 3699}#))) + (if #{t\ 3703}# + #{t\ 3703}# + (let ((#{t\ 3706}# (string? #{x\ 3699}#))) + (if #{t\ 3706}# + #{t\ 3706}# + (symbol? #{x\ 3699}#)))))) + #{x\ 3698}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 12852}#))) - (let ((#{x\ 12864}# #{message\ 12843}#)) - (if (not (string? #{x\ 12864}#)) + #{x\ 3698}#))) + (let ((#{x\ 3710}# #{message\ 3689}#)) + (if (not (string? #{x\ 3710}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 12864}#))) + #{x\ 3710}#))) (scm-error 'syntax-error 'sc-expand (string-append - (if #{who\ 12842}# "~a: " "") + (if #{who\ 3688}# "~a: " "") "~a " - (if (null? #{subform\ 12845}#) + (if (null? #{subform\ 3691}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 12866}# - (cons #{message\ 12843}# - (map (lambda (#{x\ 12867}#) - (#{strip\ 9525}# #{x\ 12867}# (quote (())))) + (let ((#{tail\ 3712}# + (cons #{message\ 3689}# + (map (lambda (#{x\ 3713}#) + (#{strip\ 371}# #{x\ 3713}# (quote (())))) (append - #{subform\ 12845}# - (list #{form\ 12844}#)))))) - (if #{who\ 12842}# - (cons #{who\ 12842}# #{tail\ 12866}#) - #{tail\ 12866}#)) + #{subform\ 3691}# + (list #{form\ 3690}#)))))) + (if #{who\ 3688}# + (cons #{who\ 3688}# #{tail\ 3712}#) + #{tail\ 3712}#)) #f)))) - (letrec ((#{match\ 12883}# - (lambda (#{e\ 12884}# - #{p\ 12885}# - #{w\ 12886}# - #{r\ 12887}# - #{mod\ 12888}#) - (if (not #{r\ 12887}#) + (letrec ((#{match\ 3729}# + (lambda (#{e\ 3730}# + #{p\ 3731}# + #{w\ 3732}# + #{r\ 3733}# + #{mod\ 3734}#) + (if (not #{r\ 3733}#) #f - (if (eq? #{p\ 12885}# (quote any)) - (cons (#{wrap\ 9483}# - #{e\ 12884}# - #{w\ 12886}# - #{mod\ 12888}#) - #{r\ 12887}#) - (if (#{syntax-object?\ 9378}# #{e\ 12884}#) - (#{match*\ 12881}# - (#{syntax-object-expression\ 9380}# #{e\ 12884}#) - #{p\ 12885}# - (#{join-wraps\ 9465}# - #{w\ 12886}# - (#{syntax-object-wrap\ 9382}# #{e\ 12884}#)) - #{r\ 12887}# - (#{syntax-object-module\ 9384}# #{e\ 12884}#)) - (#{match*\ 12881}# - #{e\ 12884}# - #{p\ 12885}# - #{w\ 12886}# - #{r\ 12887}# - #{mod\ 12888}#)))))) - (#{match*\ 12881}# - (lambda (#{e\ 12901}# - #{p\ 12902}# - #{w\ 12903}# - #{r\ 12904}# - #{mod\ 12905}#) - (if (null? #{p\ 12902}#) - (if (null? #{e\ 12901}#) #{r\ 12904}# #f) - (if (pair? #{p\ 12902}#) - (if (pair? #{e\ 12901}#) - (#{match\ 12883}# - (car #{e\ 12901}#) - (car #{p\ 12902}#) - #{w\ 12903}# - (#{match\ 12883}# - (cdr #{e\ 12901}#) - (cdr #{p\ 12902}#) - #{w\ 12903}# - #{r\ 12904}# - #{mod\ 12905}#) - #{mod\ 12905}#) + (if (eq? #{p\ 3731}# (quote any)) + (cons (#{wrap\ 329}# + #{e\ 3730}# + #{w\ 3732}# + #{mod\ 3734}#) + #{r\ 3733}#) + (if (#{syntax-object?\ 224}# #{e\ 3730}#) + (#{match*\ 3727}# + (#{syntax-object-expression\ 226}# #{e\ 3730}#) + #{p\ 3731}# + (#{join-wraps\ 311}# + #{w\ 3732}# + (#{syntax-object-wrap\ 228}# #{e\ 3730}#)) + #{r\ 3733}# + (#{syntax-object-module\ 230}# #{e\ 3730}#)) + (#{match*\ 3727}# + #{e\ 3730}# + #{p\ 3731}# + #{w\ 3732}# + #{r\ 3733}# + #{mod\ 3734}#)))))) + (#{match*\ 3727}# + (lambda (#{e\ 3747}# + #{p\ 3748}# + #{w\ 3749}# + #{r\ 3750}# + #{mod\ 3751}#) + (if (null? #{p\ 3748}#) + (if (null? #{e\ 3747}#) #{r\ 3750}# #f) + (if (pair? #{p\ 3748}#) + (if (pair? #{e\ 3747}#) + (#{match\ 3729}# + (car #{e\ 3747}#) + (car #{p\ 3748}#) + #{w\ 3749}# + (#{match\ 3729}# + (cdr #{e\ 3747}#) + (cdr #{p\ 3748}#) + #{w\ 3749}# + #{r\ 3750}# + #{mod\ 3751}#) + #{mod\ 3751}#) #f) - (if (eq? #{p\ 12902}# (quote each-any)) - (let ((#{l\ 12922}# - (#{match-each-any\ 12875}# - #{e\ 12901}# - #{w\ 12903}# - #{mod\ 12905}#))) - (if #{l\ 12922}# - (cons #{l\ 12922}# #{r\ 12904}#) + (if (eq? #{p\ 3748}# (quote each-any)) + (let ((#{l\ 3768}# + (#{match-each-any\ 3721}# + #{e\ 3747}# + #{w\ 3749}# + #{mod\ 3751}#))) + (if #{l\ 3768}# + (cons #{l\ 3768}# #{r\ 3750}#) #f)) - (let ((#{atom-key\ 12928}# - (vector-ref #{p\ 12902}# 0))) - (if (memv #{atom-key\ 12928}# (quote (each))) - (if (null? #{e\ 12901}#) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12902}# 1) - #{r\ 12904}#) - (let ((#{l\ 12931}# - (#{match-each\ 12871}# - #{e\ 12901}# - (vector-ref #{p\ 12902}# 1) - #{w\ 12903}# - #{mod\ 12905}#))) - (if #{l\ 12931}# - (letrec ((#{collect\ 12936}# - (lambda (#{l\ 12937}#) - (if (null? (car #{l\ 12937}#)) - #{r\ 12904}# - (cons (map car #{l\ 12937}#) - (#{collect\ 12936}# + (let ((#{atom-key\ 3774}# (vector-ref #{p\ 3748}# 0))) + (if (memv #{atom-key\ 3774}# (quote (each))) + (if (null? #{e\ 3747}#) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3748}# 1) + #{r\ 3750}#) + (let ((#{l\ 3777}# + (#{match-each\ 3717}# + #{e\ 3747}# + (vector-ref #{p\ 3748}# 1) + #{w\ 3749}# + #{mod\ 3751}#))) + (if #{l\ 3777}# + (letrec ((#{collect\ 3782}# + (lambda (#{l\ 3783}#) + (if (null? (car #{l\ 3783}#)) + #{r\ 3750}# + (cons (map car #{l\ 3783}#) + (#{collect\ 3782}# (map cdr - #{l\ 12937}#))))))) - (#{collect\ 12936}# #{l\ 12931}#)) + #{l\ 3783}#))))))) + (#{collect\ 3782}# #{l\ 3777}#)) #f))) - (if (memv #{atom-key\ 12928}# (quote (each+))) + (if (memv #{atom-key\ 3774}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 12873}# - #{e\ 12901}# - (vector-ref #{p\ 12902}# 1) - (vector-ref #{p\ 12902}# 2) - (vector-ref #{p\ 12902}# 3) - #{w\ 12903}# - #{r\ 12904}# - #{mod\ 12905}#)) - (lambda (#{xr*\ 12939}# - #{y-pat\ 12940}# - #{r\ 12941}#) - (if #{r\ 12941}# - (if (null? #{y-pat\ 12940}#) - (if (null? #{xr*\ 12939}#) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12902}# 1) - #{r\ 12941}#) - (#{combine\ 12879}# - #{xr*\ 12939}# - #{r\ 12941}#)) + (#{match-each+\ 3719}# + #{e\ 3747}# + (vector-ref #{p\ 3748}# 1) + (vector-ref #{p\ 3748}# 2) + (vector-ref #{p\ 3748}# 3) + #{w\ 3749}# + #{r\ 3750}# + #{mod\ 3751}#)) + (lambda (#{xr*\ 3785}# + #{y-pat\ 3786}# + #{r\ 3787}#) + (if #{r\ 3787}# + (if (null? #{y-pat\ 3786}#) + (if (null? #{xr*\ 3785}#) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3748}# 1) + #{r\ 3787}#) + (#{combine\ 3725}# + #{xr*\ 3785}# + #{r\ 3787}#)) #f) #f))) - (if (memv #{atom-key\ 12928}# (quote (free-id))) - (if (#{id?\ 9414}# #{e\ 12901}#) - (if (#{free-id=?\ 9473}# - (#{wrap\ 9483}# - #{e\ 12901}# - #{w\ 12903}# - #{mod\ 12905}#) - (vector-ref #{p\ 12902}# 1)) - #{r\ 12904}# + (if (memv #{atom-key\ 3774}# (quote (free-id))) + (if (#{id?\ 260}# #{e\ 3747}#) + (if (#{free-id=?\ 319}# + (#{wrap\ 329}# + #{e\ 3747}# + #{w\ 3749}# + #{mod\ 3751}#) + (vector-ref #{p\ 3748}# 1)) + #{r\ 3750}# #f) #f) - (if (memv #{atom-key\ 12928}# (quote (atom))) + (if (memv #{atom-key\ 3774}# (quote (atom))) (if (equal? - (vector-ref #{p\ 12902}# 1) - (#{strip\ 9525}# - #{e\ 12901}# - #{w\ 12903}#)) - #{r\ 12904}# + (vector-ref #{p\ 3748}# 1) + (#{strip\ 371}# + #{e\ 3747}# + #{w\ 3749}#)) + #{r\ 3750}# #f) - (if (memv #{atom-key\ 12928}# + (if (memv #{atom-key\ 3774}# '(vector)) - (if (vector? #{e\ 12901}#) - (#{match\ 12883}# - (vector->list #{e\ 12901}#) - (vector-ref #{p\ 12902}# 1) - #{w\ 12903}# - #{r\ 12904}# - #{mod\ 12905}#) + (if (vector? #{e\ 3747}#) + (#{match\ 3729}# + (vector->list #{e\ 3747}#) + (vector-ref #{p\ 3748}# 1) + #{w\ 3749}# + #{r\ 3750}# + #{mod\ 3751}#) #f)))))))))))) - (#{combine\ 12879}# - (lambda (#{r*\ 12958}# #{r\ 12959}#) - (if (null? (car #{r*\ 12958}#)) - #{r\ 12959}# - (cons (map car #{r*\ 12958}#) - (#{combine\ 12879}# - (map cdr #{r*\ 12958}#) - #{r\ 12959}#))))) - (#{match-empty\ 12877}# - (lambda (#{p\ 12962}# #{r\ 12963}#) - (if (null? #{p\ 12962}#) - #{r\ 12963}# - (if (eq? #{p\ 12962}# (quote any)) - (cons (quote ()) #{r\ 12963}#) - (if (pair? #{p\ 12962}#) - (#{match-empty\ 12877}# - (car #{p\ 12962}#) - (#{match-empty\ 12877}# - (cdr #{p\ 12962}#) - #{r\ 12963}#)) - (if (eq? #{p\ 12962}# (quote each-any)) - (cons (quote ()) #{r\ 12963}#) - (let ((#{atom-key\ 12977}# - (vector-ref #{p\ 12962}# 0))) - (if (memv #{atom-key\ 12977}# (quote (each))) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12962}# 1) - #{r\ 12963}#) - (if (memv #{atom-key\ 12977}# (quote (each+))) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12962}# 1) - (#{match-empty\ 12877}# - (reverse (vector-ref #{p\ 12962}# 2)) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12962}# 3) - #{r\ 12963}#))) - (if (memv #{atom-key\ 12977}# + (#{combine\ 3725}# + (lambda (#{r*\ 3804}# #{r\ 3805}#) + (if (null? (car #{r*\ 3804}#)) + #{r\ 3805}# + (cons (map car #{r*\ 3804}#) + (#{combine\ 3725}# + (map cdr #{r*\ 3804}#) + #{r\ 3805}#))))) + (#{match-empty\ 3723}# + (lambda (#{p\ 3808}# #{r\ 3809}#) + (if (null? #{p\ 3808}#) + #{r\ 3809}# + (if (eq? #{p\ 3808}# (quote any)) + (cons (quote ()) #{r\ 3809}#) + (if (pair? #{p\ 3808}#) + (#{match-empty\ 3723}# + (car #{p\ 3808}#) + (#{match-empty\ 3723}# + (cdr #{p\ 3808}#) + #{r\ 3809}#)) + (if (eq? #{p\ 3808}# (quote each-any)) + (cons (quote ()) #{r\ 3809}#) + (let ((#{atom-key\ 3823}# + (vector-ref #{p\ 3808}# 0))) + (if (memv #{atom-key\ 3823}# (quote (each))) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3808}# 1) + #{r\ 3809}#) + (if (memv #{atom-key\ 3823}# (quote (each+))) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3808}# 1) + (#{match-empty\ 3723}# + (reverse (vector-ref #{p\ 3808}# 2)) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3808}# 3) + #{r\ 3809}#))) + (if (memv #{atom-key\ 3823}# '(free-id atom)) - #{r\ 12963}# - (if (memv #{atom-key\ 12977}# + #{r\ 3809}# + (if (memv #{atom-key\ 3823}# '(vector)) - (#{match-empty\ 12877}# - (vector-ref #{p\ 12962}# 1) - #{r\ 12963}#)))))))))))) - (#{match-each-any\ 12875}# - (lambda (#{e\ 12982}# #{w\ 12983}# #{mod\ 12984}#) - (if (pair? #{e\ 12982}#) - (let ((#{l\ 12991}# - (#{match-each-any\ 12875}# - (cdr #{e\ 12982}#) - #{w\ 12983}# - #{mod\ 12984}#))) - (if #{l\ 12991}# - (cons (#{wrap\ 9483}# - (car #{e\ 12982}#) - #{w\ 12983}# - #{mod\ 12984}#) - #{l\ 12991}#) + (#{match-empty\ 3723}# + (vector-ref #{p\ 3808}# 1) + #{r\ 3809}#)))))))))))) + (#{match-each-any\ 3721}# + (lambda (#{e\ 3828}# #{w\ 3829}# #{mod\ 3830}#) + (if (pair? #{e\ 3828}#) + (let ((#{l\ 3837}# + (#{match-each-any\ 3721}# + (cdr #{e\ 3828}#) + #{w\ 3829}# + #{mod\ 3830}#))) + (if #{l\ 3837}# + (cons (#{wrap\ 329}# + (car #{e\ 3828}#) + #{w\ 3829}# + #{mod\ 3830}#) + #{l\ 3837}#) #f)) - (if (null? #{e\ 12982}#) + (if (null? #{e\ 3828}#) '() - (if (#{syntax-object?\ 9378}# #{e\ 12982}#) - (#{match-each-any\ 12875}# - (#{syntax-object-expression\ 9380}# #{e\ 12982}#) - (#{join-wraps\ 9465}# - #{w\ 12983}# - (#{syntax-object-wrap\ 9382}# #{e\ 12982}#)) - #{mod\ 12984}#) + (if (#{syntax-object?\ 224}# #{e\ 3828}#) + (#{match-each-any\ 3721}# + (#{syntax-object-expression\ 226}# #{e\ 3828}#) + (#{join-wraps\ 311}# + #{w\ 3829}# + (#{syntax-object-wrap\ 228}# #{e\ 3828}#)) + #{mod\ 3830}#) #f))))) - (#{match-each+\ 12873}# - (lambda (#{e\ 12999}# - #{x-pat\ 13000}# - #{y-pat\ 13001}# - #{z-pat\ 13002}# - #{w\ 13003}# - #{r\ 13004}# - #{mod\ 13005}#) - (letrec ((#{f\ 13016}# - (lambda (#{e\ 13017}# #{w\ 13018}#) - (if (pair? #{e\ 13017}#) + (#{match-each+\ 3719}# + (lambda (#{e\ 3845}# + #{x-pat\ 3846}# + #{y-pat\ 3847}# + #{z-pat\ 3848}# + #{w\ 3849}# + #{r\ 3850}# + #{mod\ 3851}#) + (letrec ((#{f\ 3862}# + (lambda (#{e\ 3863}# #{w\ 3864}#) + (if (pair? #{e\ 3863}#) (call-with-values (lambda () - (#{f\ 13016}# - (cdr #{e\ 13017}#) - #{w\ 13018}#)) - (lambda (#{xr*\ 13021}# - #{y-pat\ 13022}# - #{r\ 13023}#) - (if #{r\ 13023}# - (if (null? #{y-pat\ 13022}#) - (let ((#{xr\ 13028}# - (#{match\ 12883}# - (car #{e\ 13017}#) - #{x-pat\ 13000}# - #{w\ 13018}# + (#{f\ 3862}# + (cdr #{e\ 3863}#) + #{w\ 3864}#)) + (lambda (#{xr*\ 3867}# + #{y-pat\ 3868}# + #{r\ 3869}#) + (if #{r\ 3869}# + (if (null? #{y-pat\ 3868}#) + (let ((#{xr\ 3874}# + (#{match\ 3729}# + (car #{e\ 3863}#) + #{x-pat\ 3846}# + #{w\ 3864}# '() - #{mod\ 13005}#))) - (if #{xr\ 13028}# + #{mod\ 3851}#))) + (if #{xr\ 3874}# (values - (cons #{xr\ 13028}# - #{xr*\ 13021}#) - #{y-pat\ 13022}# - #{r\ 13023}#) + (cons #{xr\ 3874}# + #{xr*\ 3867}#) + #{y-pat\ 3868}# + #{r\ 3869}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 13022}#) - (#{match\ 12883}# - (car #{e\ 13017}#) - (car #{y-pat\ 13022}#) - #{w\ 13018}# - #{r\ 13023}# - #{mod\ 13005}#))) + (cdr #{y-pat\ 3868}#) + (#{match\ 3729}# + (car #{e\ 3863}#) + (car #{y-pat\ 3868}#) + #{w\ 3864}# + #{r\ 3869}# + #{mod\ 3851}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 9378}# #{e\ 13017}#) - (#{f\ 13016}# - (#{syntax-object-expression\ 9380}# - #{e\ 13017}#) - (#{join-wraps\ 9465}# - #{w\ 13018}# - #{e\ 13017}#)) + (if (#{syntax-object?\ 224}# #{e\ 3863}#) + (#{f\ 3862}# + (#{syntax-object-expression\ 226}# + #{e\ 3863}#) + (#{join-wraps\ 311}# + #{w\ 3864}# + #{e\ 3863}#)) (values '() - #{y-pat\ 13001}# - (#{match\ 12883}# - #{e\ 13017}# - #{z-pat\ 13002}# - #{w\ 13018}# - #{r\ 13004}# - #{mod\ 13005}#))))))) - (#{f\ 13016}# #{e\ 12999}# #{w\ 13003}#)))) - (#{match-each\ 12871}# - (lambda (#{e\ 13032}# - #{p\ 13033}# - #{w\ 13034}# - #{mod\ 13035}#) - (if (pair? #{e\ 13032}#) - (let ((#{first\ 13043}# - (#{match\ 12883}# - (car #{e\ 13032}#) - #{p\ 13033}# - #{w\ 13034}# + #{y-pat\ 3847}# + (#{match\ 3729}# + #{e\ 3863}# + #{z-pat\ 3848}# + #{w\ 3864}# + #{r\ 3850}# + #{mod\ 3851}#))))))) + (#{f\ 3862}# #{e\ 3845}# #{w\ 3849}#)))) + (#{match-each\ 3717}# + (lambda (#{e\ 3878}# + #{p\ 3879}# + #{w\ 3880}# + #{mod\ 3881}#) + (if (pair? #{e\ 3878}#) + (let ((#{first\ 3889}# + (#{match\ 3729}# + (car #{e\ 3878}#) + #{p\ 3879}# + #{w\ 3880}# '() - #{mod\ 13035}#))) - (if #{first\ 13043}# - (let ((#{rest\ 13047}# - (#{match-each\ 12871}# - (cdr #{e\ 13032}#) - #{p\ 13033}# - #{w\ 13034}# - #{mod\ 13035}#))) - (if #{rest\ 13047}# - (cons #{first\ 13043}# #{rest\ 13047}#) + #{mod\ 3881}#))) + (if #{first\ 3889}# + (let ((#{rest\ 3893}# + (#{match-each\ 3717}# + (cdr #{e\ 3878}#) + #{p\ 3879}# + #{w\ 3880}# + #{mod\ 3881}#))) + (if #{rest\ 3893}# + (cons #{first\ 3889}# #{rest\ 3893}#) #f)) #f)) - (if (null? #{e\ 13032}#) + (if (null? #{e\ 3878}#) '() - (if (#{syntax-object?\ 9378}# #{e\ 13032}#) - (#{match-each\ 12871}# - (#{syntax-object-expression\ 9380}# #{e\ 13032}#) - #{p\ 13033}# - (#{join-wraps\ 9465}# - #{w\ 13034}# - (#{syntax-object-wrap\ 9382}# #{e\ 13032}#)) - (#{syntax-object-module\ 9384}# #{e\ 13032}#)) + (if (#{syntax-object?\ 224}# #{e\ 3878}#) + (#{match-each\ 3717}# + (#{syntax-object-expression\ 226}# #{e\ 3878}#) + #{p\ 3879}# + (#{join-wraps\ 311}# + #{w\ 3880}# + (#{syntax-object-wrap\ 228}# #{e\ 3878}#)) + (#{syntax-object-module\ 230}# #{e\ 3878}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 13055}# #{p\ 13056}#) - (if (eq? #{p\ 13056}# (quote any)) - (list #{e\ 13055}#) - (if (#{syntax-object?\ 9378}# #{e\ 13055}#) - (#{match*\ 12881}# - (#{syntax-object-expression\ 9380}# #{e\ 13055}#) - #{p\ 13056}# - (#{syntax-object-wrap\ 9382}# #{e\ 13055}#) + (lambda (#{e\ 3901}# #{p\ 3902}#) + (if (eq? #{p\ 3902}# (quote any)) + (list #{e\ 3901}#) + (if (#{syntax-object?\ 224}# #{e\ 3901}#) + (#{match*\ 3727}# + (#{syntax-object-expression\ 226}# #{e\ 3901}#) + #{p\ 3902}# + (#{syntax-object-wrap\ 228}# #{e\ 3901}#) '() - (#{syntax-object-module\ 9384}# #{e\ 13055}#)) - (#{match*\ 12881}# - #{e\ 13055}# - #{p\ 13056}# + (#{syntax-object-module\ 230}# #{e\ 3901}#)) + (#{match*\ 3727}# + #{e\ 3901}# + #{p\ 3902}# '(()) '() #f))))))))) @@ -11595,50 +11500,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 13065}#) - ((lambda (#{tmp\ 13067}#) - ((lambda (#{tmp\ 13068}#) - (if #{tmp\ 13068}# - (apply (lambda (#{_\ 13072}# #{e1\ 13073}# #{e2\ 13074}#) + (cons (lambda (#{x\ 3911}#) + ((lambda (#{tmp\ 3913}#) + ((lambda (#{tmp\ 3914}#) + (if #{tmp\ 3914}# + (apply (lambda (#{_\ 3918}# #{e1\ 3919}# #{e2\ 3920}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i13069" "i13070" "i13071")) + #("i3915" "i3916" "i3917")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13066"))) + #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) - (cons #{e1\ 13073}# #{e2\ 13074}#))) - #{tmp\ 13068}#) - ((lambda (#{tmp\ 13076}#) - (if #{tmp\ 13076}# - (apply (lambda (#{_\ 13082}# - #{out\ 13083}# - #{in\ 13084}# - #{e1\ 13085}# - #{e2\ 13086}#) + (cons #{e1\ 3919}# #{e2\ 3920}#))) + #{tmp\ 3914}#) + ((lambda (#{tmp\ 3922}#) + (if #{tmp\ 3922}# + (apply (lambda (#{_\ 3928}# + #{out\ 3929}# + #{in\ 3930}# + #{e1\ 3931}# + #{e2\ 3932}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i13077" - "i13078" - "i13079" - "i13080" - "i13081")) + #("i3923" + "i3924" + "i3925" + "i3926" + "i3927")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13066"))) + #("i3912"))) (hygiene guile)) - #{in\ 13084}# + #{in\ 3930}# '() - (list #{out\ 13083}# + (list #{out\ 3929}# (cons '#(syntax-object begin ((top) @@ -11649,27 +11554,27 @@ (top) (top) (top)) - #("i13077" - "i13078" - "i13079" - "i13080" - "i13081")) + #("i3923" + "i3924" + "i3925" + "i3926" + "i3927")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13066"))) + #("i3912"))) (hygiene guile)) - (cons #{e1\ 13085}# - #{e2\ 13086}#))))) - #{tmp\ 13076}#) - ((lambda (#{tmp\ 13088}#) - (if #{tmp\ 13088}# - (apply (lambda (#{_\ 13094}# - #{out\ 13095}# - #{in\ 13096}# - #{e1\ 13097}# - #{e2\ 13098}#) + (cons #{e1\ 3931}# + #{e2\ 3932}#))))) + #{tmp\ 3922}#) + ((lambda (#{tmp\ 3934}#) + (if #{tmp\ 3934}# + (apply (lambda (#{_\ 3940}# + #{out\ 3941}# + #{in\ 3942}# + #{e1\ 3943}# + #{e2\ 3944}#) (list '#(syntax-object syntax-case ((top) @@ -11680,16 +11585,16 @@ (top) (top) (top)) - #("i13089" - "i13090" - "i13091" - "i13092" - "i13093")) + #("i3935" + "i3936" + "i3937" + "i3938" + "i3939")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13066"))) + #("i3912"))) (hygiene guile)) (cons '#(syntax-object list @@ -11701,20 +11606,20 @@ (top) (top) (top)) - #("i13089" - "i13090" - "i13091" - "i13092" - "i13093")) + #("i3935" + "i3936" + "i3937" + "i3938" + "i3939")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13066"))) + #("i3912"))) (hygiene guile)) - #{in\ 13096}#) + #{in\ 3942}#) '() - (list #{out\ 13095}# + (list #{out\ 3941}# (cons '#(syntax-object begin ((top) @@ -11729,11 +11634,11 @@ (top) (top) (top)) - #("i13089" - "i13090" - "i13091" - "i13092" - "i13093")) + #("i3935" + "i3936" + "i3937" + "i3938" + "i3939")) #(ribcage () () @@ -11741,53 +11646,53 @@ #(ribcage #(x) #((top)) - #("i13066"))) + #("i3912"))) (hygiene guile)) - (cons #{e1\ 13097}# - #{e2\ 13098}#))))) - #{tmp\ 13088}#) + (cons #{e1\ 3943}# + #{e2\ 3944}#))))) + #{tmp\ 3934}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13067}#))) + #{tmp\ 3913}#))) ($sc-dispatch - #{tmp\ 13067}# + #{tmp\ 3913}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 13067}# + #{tmp\ 3913}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 13067}# + #{tmp\ 3913}# '(any () any . each-any)))) - #{x\ 13065}#)) + #{x\ 3911}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 13102}#) - ((lambda (#{tmp\ 13104}#) - ((lambda (#{tmp\ 13105}#) - (if #{tmp\ 13105}# - (apply (lambda (#{_\ 13111}# - #{k\ 13112}# - #{keyword\ 13113}# - #{pattern\ 13114}# - #{template\ 13115}#) + (cons (lambda (#{x\ 3948}#) + ((lambda (#{tmp\ 3950}#) + ((lambda (#{tmp\ 3951}#) + (if #{tmp\ 3951}# + (apply (lambda (#{_\ 3957}# + #{k\ 3958}# + #{keyword\ 3959}# + #{pattern\ 3960}# + #{template\ 3961}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13103"))) + #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) '(#(syntax-object x @@ -11795,13 +11700,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13103"))) + #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile))) (cons '#(syntax-object syntax-case @@ -11809,16 +11714,16 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13103"))) + #("i3949"))) (hygiene guile)) (cons '#(syntax-object x @@ -11834,20 +11739,20 @@ (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13103"))) + #("i3949"))) (hygiene guile)) - (cons #{k\ 13112}# - (map (lambda (#{tmp\ 13118}# - #{tmp\ 13117}#) + (cons #{k\ 3958}# + (map (lambda (#{tmp\ 3964}# + #{tmp\ 3963}#) (list (cons '#(syntax-object dummy ((top) @@ -11862,11 +11767,11 @@ (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () @@ -11874,10 +11779,10 @@ #(ribcage #(x) #((top)) - #("i13103"))) + #("i3949"))) (hygiene guile)) - #{tmp\ 13117}#) + #{tmp\ 3963}#) (list '#(syntax-object syntax ((top) @@ -11892,11 +11797,11 @@ (top) (top) (top)) - #("i13106" - "i13107" - "i13108" - "i13109" - "i13110")) + #("i3952" + "i3953" + "i3954" + "i3955" + "i3956")) #(ribcage () () @@ -11904,47 +11809,47 @@ #(ribcage #(x) #((top)) - #("i13103"))) + #("i3949"))) (hygiene guile)) - #{tmp\ 13118}#))) - #{template\ 13115}# - #{pattern\ 13114}#)))))) - #{tmp\ 13105}#) + #{tmp\ 3964}#))) + #{template\ 3961}# + #{pattern\ 3960}#)))))) + #{tmp\ 3951}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13104}#))) + #{tmp\ 3950}#))) ($sc-dispatch - #{tmp\ 13104}# + #{tmp\ 3950}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 13102}#)) + #{x\ 3948}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 13119}#) - ((lambda (#{tmp\ 13121}#) - ((lambda (#{tmp\ 13122}#) - (if (if #{tmp\ 13122}# - (apply (lambda (#{let*\ 13128}# - #{x\ 13129}# - #{v\ 13130}# - #{e1\ 13131}# - #{e2\ 13132}#) - (and-map identifier? #{x\ 13129}#)) - #{tmp\ 13122}#) + (cons (lambda (#{x\ 3965}#) + ((lambda (#{tmp\ 3967}#) + ((lambda (#{tmp\ 3968}#) + (if (if #{tmp\ 3968}# + (apply (lambda (#{let*\ 3974}# + #{x\ 3975}# + #{v\ 3976}# + #{e1\ 3977}# + #{e2\ 3978}#) + (and-map identifier? #{x\ 3975}#)) + #{tmp\ 3968}#) #f) - (apply (lambda (#{let*\ 13139}# - #{x\ 13140}# - #{v\ 13141}# - #{e1\ 13142}# - #{e2\ 13143}#) - (letrec ((#{f\ 13146}# - (lambda (#{bindings\ 13147}#) - (if (null? #{bindings\ 13147}#) + (apply (lambda (#{let*\ 3985}# + #{x\ 3986}# + #{v\ 3987}# + #{e1\ 3988}# + #{e2\ 3989}#) + (letrec ((#{f\ 3992}# + (lambda (#{bindings\ 3993}#) + (if (null? #{bindings\ 3993}#) (cons '#(syntax-object let ((top) @@ -11952,7 +11857,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i13144" "i13145")) + #("i3990" "i3991")) #(ribcage #(let* x v e1 e2) #((top) @@ -11960,25 +11865,25 @@ (top) (top) (top)) - #("i13134" - "i13135" - "i13136" - "i13137" - "i13138")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13120"))) + #("i3966"))) (hygiene guile)) (cons '() - (cons #{e1\ 13142}# - #{e2\ 13143}#))) - ((lambda (#{tmp\ 13152}#) - ((lambda (#{tmp\ 13153}#) - (if #{tmp\ 13153}# - (apply (lambda (#{body\ 13156}# - #{binding\ 13157}#) + (cons #{e1\ 3988}# + #{e2\ 3989}#))) + ((lambda (#{tmp\ 3998}#) + ((lambda (#{tmp\ 3999}#) + (if #{tmp\ 3999}# + (apply (lambda (#{body\ 4002}# + #{binding\ 4003}#) (list '#(syntax-object let ((top) @@ -11987,8 +11892,8 @@ binding) #((top) (top)) - #("i13154" - "i13155")) + #("i4000" + "i4001")) #(ribcage () () @@ -11998,8 +11903,8 @@ bindings) #((top) (top)) - #("i13144" - "i13145")) + #("i3990" + "i3991")) #(ribcage #(let* x @@ -12011,11 +11916,11 @@ (top) (top) (top)) - #("i13134" - "i13135" - "i13136" - "i13137" - "i13138")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () @@ -12023,57 +11928,57 @@ #(ribcage #(x) #((top)) - #("i13120"))) + #("i3966"))) (hygiene guile)) - (list #{binding\ 13157}#) - #{body\ 13156}#)) - #{tmp\ 13153}#) + (list #{binding\ 4003}#) + #{body\ 4002}#)) + #{tmp\ 3999}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13152}#))) + #{tmp\ 3998}#))) ($sc-dispatch - #{tmp\ 13152}# + #{tmp\ 3998}# '(any any)))) - (list (#{f\ 13146}# - (cdr #{bindings\ 13147}#)) - (car #{bindings\ 13147}#))))))) - (#{f\ 13146}# - (map list #{x\ 13140}# #{v\ 13141}#)))) - #{tmp\ 13122}#) + (list (#{f\ 3992}# + (cdr #{bindings\ 3993}#)) + (car #{bindings\ 3993}#))))))) + (#{f\ 3992}# + (map list #{x\ 3986}# #{v\ 3987}#)))) + #{tmp\ 3968}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13121}#))) + #{tmp\ 3967}#))) ($sc-dispatch - #{tmp\ 13121}# + #{tmp\ 3967}# '(any #(each (any any)) any . each-any)))) - #{x\ 13119}#)) + #{x\ 3965}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 13158}#) - ((lambda (#{tmp\ 13160}#) - ((lambda (#{tmp\ 13161}#) - (if #{tmp\ 13161}# - (apply (lambda (#{_\ 13169}# - #{var\ 13170}# - #{init\ 13171}# - #{step\ 13172}# - #{e0\ 13173}# - #{e1\ 13174}# - #{c\ 13175}#) - ((lambda (#{tmp\ 13177}#) - ((lambda (#{tmp\ 13178}#) - (if #{tmp\ 13178}# - (apply (lambda (#{step\ 13180}#) - ((lambda (#{tmp\ 13181}#) - ((lambda (#{tmp\ 13182}#) - (if #{tmp\ 13182}# + (cons (lambda (#{orig-x\ 4004}#) + ((lambda (#{tmp\ 4006}#) + ((lambda (#{tmp\ 4007}#) + (if #{tmp\ 4007}# + (apply (lambda (#{_\ 4015}# + #{var\ 4016}# + #{init\ 4017}# + #{step\ 4018}# + #{e0\ 4019}# + #{e1\ 4020}# + #{c\ 4021}#) + ((lambda (#{tmp\ 4023}#) + ((lambda (#{tmp\ 4024}#) + (if #{tmp\ 4024}# + (apply (lambda (#{step\ 4026}#) + ((lambda (#{tmp\ 4027}#) + ((lambda (#{tmp\ 4028}#) + (if #{tmp\ 4028}# (apply (lambda () (list '#(syntax-object let @@ -12081,7 +11986,7 @@ #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12097,13 +12002,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12111,7 +12016,7 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) '#(syntax-object @@ -12120,7 +12025,7 @@ #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12136,13 +12041,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12150,19 +12055,19 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) (map list - #{var\ 13170}# - #{init\ 13171}#) + #{var\ 4016}# + #{init\ 4017}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12178,13 +12083,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12192,7 +12097,7 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) (list '#(syntax-object @@ -12201,7 +12106,7 @@ #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12217,13 +12122,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12231,17 +12136,17 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) - #{e0\ 13173}#) + #{e0\ 4019}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12257,13 +12162,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12271,18 +12176,18 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) (append - #{c\ 13175}# + #{c\ 4021}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12298,13 +12203,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12312,15 +12217,15 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) - #{step\ 13180}#))))))) - #{tmp\ 13182}#) - ((lambda (#{tmp\ 13187}#) - (if #{tmp\ 13187}# - (apply (lambda (#{e1\ 13190}# - #{e2\ 13191}#) + #{step\ 4026}#))))))) + #{tmp\ 4028}#) + ((lambda (#{tmp\ 4033}#) + (if #{tmp\ 4033}# + (apply (lambda (#{e1\ 4036}# + #{e2\ 4037}#) (list '#(syntax-object let ((top) @@ -12329,12 +12234,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12350,13 +12255,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12364,7 +12269,7 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) '#(syntax-object @@ -12375,12 +12280,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12396,13 +12301,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12410,12 +12315,12 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) (map list - #{var\ 13170}# - #{init\ 13171}#) + #{var\ 4016}# + #{init\ 4017}#) (list '#(syntax-object if ((top) @@ -12424,12 +12329,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12445,13 +12350,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12459,10 +12364,10 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) - #{e0\ 13173}# + #{e0\ 4019}# (cons '#(syntax-object begin ((top) @@ -12471,12 +12376,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12492,13 +12397,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12506,11 +12411,11 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) - (cons #{e1\ 13190}# - #{e2\ 13191}#)) + (cons #{e1\ 4036}# + #{e2\ 4037}#)) (cons '#(syntax-object begin ((top) @@ -12519,12 +12424,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12540,13 +12445,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12554,11 +12459,11 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) (append - #{c\ 13175}# + #{c\ 4021}# (list (cons '#(syntax-object doloop ((top) @@ -12567,12 +12472,12 @@ e2) #((top) (top)) - #("i13188" - "i13189")) + #("i4034" + "i4035")) #(ribcage #(step) #((top)) - #("i13179")) + #("i4025")) #(ribcage #(_ var @@ -12588,13 +12493,13 @@ (top) (top) (top)) - #("i13162" - "i13163" - "i13164" - "i13165" - "i13166" - "i13167" - "i13168")) + #("i4008" + "i4009" + "i4010" + "i4011" + "i4012" + "i4013" + "i4014")) #(ribcage () () @@ -12602,107 +12507,107 @@ #(ribcage #(orig-x) #((top)) - #("i13159"))) + #("i4005"))) (hygiene guile)) - #{step\ 13180}#))))))) - #{tmp\ 13187}#) + #{step\ 4026}#))))))) + #{tmp\ 4033}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13181}#))) + #{tmp\ 4027}#))) ($sc-dispatch - #{tmp\ 13181}# + #{tmp\ 4027}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 13181}# + #{tmp\ 4027}# '()))) - #{e1\ 13174}#)) - #{tmp\ 13178}#) + #{e1\ 4020}#)) + #{tmp\ 4024}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13177}#))) + #{tmp\ 4023}#))) ($sc-dispatch - #{tmp\ 13177}# + #{tmp\ 4023}# 'each-any))) - (map (lambda (#{v\ 13198}# #{s\ 13199}#) - ((lambda (#{tmp\ 13202}#) - ((lambda (#{tmp\ 13203}#) - (if #{tmp\ 13203}# - (apply (lambda () #{v\ 13198}#) - #{tmp\ 13203}#) - ((lambda (#{tmp\ 13204}#) - (if #{tmp\ 13204}# - (apply (lambda (#{e\ 13206}#) - #{e\ 13206}#) - #{tmp\ 13204}#) - ((lambda (#{_\ 13208}#) + (map (lambda (#{v\ 4044}# #{s\ 4045}#) + ((lambda (#{tmp\ 4048}#) + ((lambda (#{tmp\ 4049}#) + (if #{tmp\ 4049}# + (apply (lambda () #{v\ 4044}#) + #{tmp\ 4049}#) + ((lambda (#{tmp\ 4050}#) + (if #{tmp\ 4050}# + (apply (lambda (#{e\ 4052}#) + #{e\ 4052}#) + #{tmp\ 4050}#) + ((lambda (#{_\ 4054}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 13158}# - #{s\ 13199}#)) - #{tmp\ 13202}#))) + #{orig-x\ 4004}# + #{s\ 4045}#)) + #{tmp\ 4048}#))) ($sc-dispatch - #{tmp\ 13202}# + #{tmp\ 4048}# '(any))))) ($sc-dispatch - #{tmp\ 13202}# + #{tmp\ 4048}# '()))) - #{s\ 13199}#)) - #{var\ 13170}# - #{step\ 13172}#))) - #{tmp\ 13161}#) + #{s\ 4045}#)) + #{var\ 4016}# + #{step\ 4018}#))) + #{tmp\ 4007}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13160}#))) + #{tmp\ 4006}#))) ($sc-dispatch - #{tmp\ 13160}# + #{tmp\ 4006}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 13158}#)) + #{orig-x\ 4004}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 13215}# - (lambda (#{x\ 13219}# #{y\ 13220}#) - ((lambda (#{tmp\ 13224}#) - ((lambda (#{tmp\ 13225}#) - (if #{tmp\ 13225}# - (apply (lambda (#{x\ 13228}# #{y\ 13229}#) - ((lambda (#{tmp\ 13230}#) - ((lambda (#{tmp\ 13231}#) - (if #{tmp\ 13231}# - (apply (lambda (#{dy\ 13233}#) - ((lambda (#{tmp\ 13234}#) - ((lambda (#{tmp\ 13235}#) - (if #{tmp\ 13235}# - (apply (lambda (#{dx\ 13237}#) + (cons (letrec ((#{quasicons\ 4061}# + (lambda (#{x\ 4065}# #{y\ 4066}#) + ((lambda (#{tmp\ 4070}#) + ((lambda (#{tmp\ 4071}#) + (if #{tmp\ 4071}# + (apply (lambda (#{x\ 4074}# #{y\ 4075}#) + ((lambda (#{tmp\ 4076}#) + ((lambda (#{tmp\ 4077}#) + (if #{tmp\ 4077}# + (apply (lambda (#{dy\ 4079}#) + ((lambda (#{tmp\ 4080}#) + ((lambda (#{tmp\ 4081}#) + (if #{tmp\ 4081}# + (apply (lambda (#{dx\ 4083}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i13236")) + #("i4082")) #(ribcage #(dy) #((top)) - #("i13232")) + #("i4078")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12716,8 +12621,8 @@ y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12727,35 +12632,35 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - (cons #{dx\ 13237}# - #{dy\ 13233}#))) - #{tmp\ 13235}#) - ((lambda (#{_\ 13239}#) - (if (null? #{dy\ 13233}#) + (cons #{dx\ 4083}# + #{dy\ 4079}#))) + #{tmp\ 4081}#) + ((lambda (#{_\ 4085}#) + (if (null? #{dy\ 4079}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i13238")) + #("i4084")) #(ribcage #(dy) #((top)) - #("i13232")) + #("i4078")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12769,8 +12674,8 @@ y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12780,31 +12685,31 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13228}#) + #{x\ 4074}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i13238")) + #("i4084")) #(ribcage #(dy) #((top)) - #("i13232")) + #("i4078")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12818,8 +12723,8 @@ y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12829,17 +12734,17 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13228}# - #{y\ 13229}#))) - #{tmp\ 13234}#))) + #{x\ 4074}# + #{y\ 4075}#))) + #{tmp\ 4080}#))) ($sc-dispatch - #{tmp\ 13234}# + #{tmp\ 4080}# '(#(free-id #(syntax-object quote @@ -12847,13 +12752,13 @@ #(ribcage #(dy) #((top)) - #("i13232")) + #("i4078")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12866,8 +12771,8 @@ #(x y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12877,32 +12782,32 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) any)))) - #{x\ 13228}#)) - #{tmp\ 13231}#) - ((lambda (#{tmp\ 13240}#) - (if #{tmp\ 13240}# - (apply (lambda (#{stuff\ 13242}#) + #{x\ 4074}#)) + #{tmp\ 4077}#) + ((lambda (#{tmp\ 4086}#) + (if #{tmp\ 4086}# + (apply (lambda (#{stuff\ 4088}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i13241")) + #("i4087")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12916,8 +12821,8 @@ y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12927,29 +12832,29 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - (cons #{x\ 13228}# - #{stuff\ 13242}#))) - #{tmp\ 13240}#) - ((lambda (#{else\ 13244}#) + (cons #{x\ 4074}# + #{stuff\ 4088}#))) + #{tmp\ 4086}#) + ((lambda (#{else\ 4090}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i13243")) + #("i4089")) #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" + "i4073")) #(ribcage () () @@ -12962,8 +12867,8 @@ #(x y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" + "i4068")) #(ribcage #(quasicons quasiappend @@ -12973,17 +12878,17 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13228}# - #{y\ 13229}#)) - #{tmp\ 13230}#))) + #{x\ 4074}# + #{y\ 4075}#)) + #{tmp\ 4076}#))) ($sc-dispatch - #{tmp\ 13230}# + #{tmp\ 4076}# '(#(free-id #(syntax-object list @@ -12991,15 +12896,13 @@ #(ribcage #(x y) #((top) (top)) - #("i13226" - "i13227")) + #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i13221" - "i13222")) + #("i4067" "i4068")) #(ribcage #(quasicons quasiappend @@ -13009,15 +12912,15 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 13230}# + #{tmp\ 4076}# '(#(free-id #(syntax-object quote @@ -13025,13 +12928,13 @@ #(ribcage #(x y) #((top) (top)) - #("i13226" "i13227")) + #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i13221" "i13222")) + #("i4067" "i4068")) #(ribcage #(quasicons quasiappend @@ -13041,44 +12944,44 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) any)))) - #{y\ 13229}#)) - #{tmp\ 13225}#) + #{y\ 4075}#)) + #{tmp\ 4071}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13224}#))) - ($sc-dispatch #{tmp\ 13224}# (quote (any any))))) - (list #{x\ 13219}# #{y\ 13220}#)))) - (#{quasiappend\ 13216}# - (lambda (#{x\ 13245}# #{y\ 13246}#) - ((lambda (#{tmp\ 13250}#) - ((lambda (#{tmp\ 13251}#) - (if #{tmp\ 13251}# - (apply (lambda (#{x\ 13254}# #{y\ 13255}#) - ((lambda (#{tmp\ 13256}#) - ((lambda (#{tmp\ 13257}#) - (if #{tmp\ 13257}# - (apply (lambda () #{x\ 13254}#) - #{tmp\ 13257}#) - ((lambda (#{_\ 13259}#) + #{tmp\ 4070}#))) + ($sc-dispatch #{tmp\ 4070}# (quote (any any))))) + (list #{x\ 4065}# #{y\ 4066}#)))) + (#{quasiappend\ 4062}# + (lambda (#{x\ 4091}# #{y\ 4092}#) + ((lambda (#{tmp\ 4096}#) + ((lambda (#{tmp\ 4097}#) + (if #{tmp\ 4097}# + (apply (lambda (#{x\ 4100}# #{y\ 4101}#) + ((lambda (#{tmp\ 4102}#) + ((lambda (#{tmp\ 4103}#) + (if #{tmp\ 4103}# + (apply (lambda () #{x\ 4100}#) + #{tmp\ 4103}#) + ((lambda (#{_\ 4105}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i13258")) + #("i4104")) #(ribcage #(x y) #((top) (top)) - #("i13252" - "i13253")) + #("i4098" + "i4099")) #(ribcage () () @@ -13090,8 +12993,8 @@ #(ribcage #(x y) #((top) (top)) - #("i13247" - "i13248")) + #("i4093" + "i4094")) #(ribcage #(quasicons quasiappend @@ -13101,16 +13004,16 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13254}# - #{y\ 13255}#)) - #{tmp\ 13256}#))) + #{x\ 4100}# + #{y\ 4101}#)) + #{tmp\ 4102}#))) ($sc-dispatch - #{tmp\ 13256}# + #{tmp\ 4102}# '(#(free-id #(syntax-object quote @@ -13118,13 +13021,13 @@ #(ribcage #(x y) #((top) (top)) - #("i13252" "i13253")) + #("i4098" "i4099")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i13247" "i13248")) + #("i4093" "i4094")) #(ribcage #(quasicons quasiappend @@ -13134,45 +13037,45 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) ())))) - #{y\ 13255}#)) - #{tmp\ 13251}#) + #{y\ 4101}#)) + #{tmp\ 4097}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13250}#))) - ($sc-dispatch #{tmp\ 13250}# (quote (any any))))) - (list #{x\ 13245}# #{y\ 13246}#)))) - (#{quasivector\ 13217}# - (lambda (#{x\ 13260}#) - ((lambda (#{tmp\ 13263}#) - ((lambda (#{x\ 13265}#) - ((lambda (#{tmp\ 13266}#) - ((lambda (#{tmp\ 13267}#) - (if #{tmp\ 13267}# - (apply (lambda (#{x\ 13269}#) + #{tmp\ 4096}#))) + ($sc-dispatch #{tmp\ 4096}# (quote (any any))))) + (list #{x\ 4091}# #{y\ 4092}#)))) + (#{quasivector\ 4063}# + (lambda (#{x\ 4106}#) + ((lambda (#{tmp\ 4109}#) + ((lambda (#{x\ 4111}#) + ((lambda (#{tmp\ 4112}#) + ((lambda (#{tmp\ 4113}#) + (if #{tmp\ 4113}# + (apply (lambda (#{x\ 4115}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i13268")) + #("i4114")) #(ribcage #(x) #((top)) - #("i13264")) + #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13261")) + #("i4107")) #(ribcage #(quasicons quasiappend @@ -13182,28 +13085,28 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) (list->vector - #{x\ 13269}#))) - #{tmp\ 13267}#) - ((lambda (#{tmp\ 13271}#) - (if #{tmp\ 13271}# - (apply (lambda (#{x\ 13273}#) + #{x\ 4115}#))) + #{tmp\ 4113}#) + ((lambda (#{tmp\ 4117}#) + (if #{tmp\ 4117}# + (apply (lambda (#{x\ 4119}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i13272")) + #("i4118")) #(ribcage #(x) #((top)) - #("i13264")) + #("i4110")) #(ribcage () () @@ -13215,7 +13118,7 @@ #(ribcage #(x) #((top)) - #("i13261")) + #("i4107")) #(ribcage #(quasicons quasiappend @@ -13225,31 +13128,31 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13273}#)) - #{tmp\ 13271}#) - ((lambda (#{_\ 13276}#) + #{x\ 4119}#)) + #{tmp\ 4117}#) + ((lambda (#{_\ 4122}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i13275")) + #("i4121")) #(ribcage #(x) #((top)) - #("i13264")) + #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13261")) + #("i4107")) #(ribcage #(quasicons quasiappend @@ -13259,15 +13162,15 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{x\ 13265}#)) - #{tmp\ 13266}#))) + #{x\ 4111}#)) + #{tmp\ 4112}#))) ($sc-dispatch - #{tmp\ 13266}# + #{tmp\ 4112}# '(#(free-id #(syntax-object list @@ -13275,82 +13178,82 @@ #(ribcage #(x) #((top)) - #("i13264")) + #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13261")) + #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 13266}# + #{tmp\ 4112}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i13264")) + #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13261")) + #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) each-any)))) - #{x\ 13265}#)) - #{tmp\ 13263}#)) - #{x\ 13260}#))) - (#{quasi\ 13218}# - (lambda (#{p\ 13277}# #{lev\ 13278}#) - ((lambda (#{tmp\ 13281}#) - ((lambda (#{tmp\ 13282}#) - (if #{tmp\ 13282}# - (apply (lambda (#{p\ 13284}#) - (if (= #{lev\ 13278}# 0) - #{p\ 13284}# - (#{quasicons\ 13215}# + #{x\ 4111}#)) + #{tmp\ 4109}#)) + #{x\ 4106}#))) + (#{quasi\ 4064}# + (lambda (#{p\ 4123}# #{lev\ 4124}#) + ((lambda (#{tmp\ 4127}#) + ((lambda (#{tmp\ 4128}#) + (if #{tmp\ 4128}# + (apply (lambda (#{p\ 4130}#) + (if (= #{lev\ 4124}# 0) + #{p\ 4130}# + (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13283")) + #("i4129")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) #(syntax-object unquote @@ -13358,51 +13261,50 @@ #(ribcage #(p) #((top)) - #("i13283")) + #("i4129")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) - (#{quasi\ 13218}# - (list #{p\ 13284}#) - (- #{lev\ 13278}# 1))))) - #{tmp\ 13282}#) - ((lambda (#{tmp\ 13285}#) - (if (if #{tmp\ 13285}# - (apply (lambda (#{args\ 13287}#) - (= #{lev\ 13278}# 0)) - #{tmp\ 13285}#) + (#{quasi\ 4064}# + (list #{p\ 4130}#) + (- #{lev\ 4124}# 1))))) + #{tmp\ 4128}#) + ((lambda (#{tmp\ 4131}#) + (if (if #{tmp\ 4131}# + (apply (lambda (#{args\ 4133}#) + (= #{lev\ 4124}# 0)) + #{tmp\ 4131}#) #f) - (apply (lambda (#{args\ 13289}#) + (apply (lambda (#{args\ 4135}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 13277}# + #{p\ 4123}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i13288")) + #("i4134")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend @@ -13412,33 +13314,33 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{args\ 13289}#))) - #{tmp\ 13285}#) - ((lambda (#{tmp\ 13290}#) - (if #{tmp\ 13290}# - (apply (lambda (#{p\ 13293}# - #{q\ 13294}#) - (if (= #{lev\ 13278}# 0) - (#{quasiappend\ 13216}# - #{p\ 13293}# - (#{quasi\ 13218}# - #{q\ 13294}# - #{lev\ 13278}#)) - (#{quasicons\ 13215}# - (#{quasicons\ 13215}# + #{args\ 4135}#))) + #{tmp\ 4131}#) + ((lambda (#{tmp\ 4136}#) + (if #{tmp\ 4136}# + (apply (lambda (#{p\ 4139}# + #{q\ 4140}#) + (if (= #{lev\ 4124}# 0) + (#{quasiappend\ 4062}# + #{p\ 4139}# + (#{quasi\ 4064}# + #{q\ 4140}# + #{lev\ 4124}#)) + (#{quasicons\ 4061}# + (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i13291" - "i13292")) + #("i4137" + "i4138")) #(ribcage () () @@ -13446,8 +13348,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13457,10 +13359,10 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -13468,8 +13370,8 @@ #(ribcage #(p q) #((top) (top)) - #("i13291" - "i13292")) + #("i4137" + "i4138")) #(ribcage () () @@ -13477,8 +13379,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13488,33 +13390,31 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) - (#{quasi\ 13218}# - (list #{p\ 13293}#) - (- #{lev\ 13278}# - 1))) - (#{quasi\ 13218}# - #{q\ 13294}# - #{lev\ 13278}#)))) - #{tmp\ 13290}#) - ((lambda (#{tmp\ 13295}#) - (if (if #{tmp\ 13295}# - (apply (lambda (#{args\ 13298}# - #{q\ 13299}#) - (= #{lev\ 13278}# - 0)) - #{tmp\ 13295}#) + (#{quasi\ 4064}# + (list #{p\ 4139}#) + (- #{lev\ 4124}# 1))) + (#{quasi\ 4064}# + #{q\ 4140}# + #{lev\ 4124}#)))) + #{tmp\ 4136}#) + ((lambda (#{tmp\ 4141}#) + (if (if #{tmp\ 4141}# + (apply (lambda (#{args\ 4144}# + #{q\ 4145}#) + (= #{lev\ 4124}# 0)) + #{tmp\ 4141}#) #f) - (apply (lambda (#{args\ 13302}# - #{q\ 13303}#) + (apply (lambda (#{args\ 4148}# + #{q\ 4149}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 13277}# + #{p\ 4123}# (cons '#(syntax-object unquote-splicing ((top) @@ -13522,8 +13422,8 @@ #(args q) #((top) (top)) - #("i13300" - "i13301")) + #("i4146" + "i4147")) #(ribcage () () @@ -13532,8 +13432,8 @@ #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13543,25 +13443,25 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{args\ 13302}#))) - #{tmp\ 13295}#) - ((lambda (#{tmp\ 13304}#) - (if #{tmp\ 13304}# - (apply (lambda (#{p\ 13306}#) - (#{quasicons\ 13215}# + #{args\ 4148}#))) + #{tmp\ 4141}#) + ((lambda (#{tmp\ 4150}#) + (if #{tmp\ 4150}# + (apply (lambda (#{p\ 4152}#) + (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13305")) + #("i4151")) #(ribcage () () @@ -13570,8 +13470,8 @@ #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13581,10 +13481,10 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) #(syntax-object @@ -13593,7 +13493,7 @@ #(ribcage #(p) #((top)) - #("i13305")) + #("i4151")) #(ribcage () () @@ -13602,8 +13502,8 @@ #(p lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13613,45 +13513,45 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) - (#{quasi\ 13218}# - (list #{p\ 13306}#) - (+ #{lev\ 13278}# + (#{quasi\ 4064}# + (list #{p\ 4152}#) + (+ #{lev\ 4124}# 1)))) - #{tmp\ 13304}#) - ((lambda (#{tmp\ 13307}#) - (if #{tmp\ 13307}# - (apply (lambda (#{p\ 13310}# - #{q\ 13311}#) - (#{quasicons\ 13215}# - (#{quasi\ 13218}# - #{p\ 13310}# - #{lev\ 13278}#) - (#{quasi\ 13218}# - #{q\ 13311}# - #{lev\ 13278}#))) - #{tmp\ 13307}#) - ((lambda (#{tmp\ 13312}#) - (if #{tmp\ 13312}# - (apply (lambda (#{x\ 13314}#) - (#{quasivector\ 13217}# - (#{quasi\ 13218}# - #{x\ 13314}# - #{lev\ 13278}#))) - #{tmp\ 13312}#) - ((lambda (#{p\ 13317}#) + #{tmp\ 4150}#) + ((lambda (#{tmp\ 4153}#) + (if #{tmp\ 4153}# + (apply (lambda (#{p\ 4156}# + #{q\ 4157}#) + (#{quasicons\ 4061}# + (#{quasi\ 4064}# + #{p\ 4156}# + #{lev\ 4124}#) + (#{quasi\ 4064}# + #{q\ 4157}# + #{lev\ 4124}#))) + #{tmp\ 4153}#) + ((lambda (#{tmp\ 4158}#) + (if #{tmp\ 4158}# + (apply (lambda (#{x\ 4160}#) + (#{quasivector\ 4063}# + (#{quasi\ 4064}# + #{x\ 4160}# + #{lev\ 4124}#))) + #{tmp\ 4158}#) + ((lambda (#{p\ 4163}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13316")) + #("i4162")) #(ribcage () () @@ -13661,8 +13561,8 @@ lev) #((top) (top)) - #("i13279" - "i13280")) + #("i4125" + "i4126")) #(ribcage #(quasicons quasiappend @@ -13672,23 +13572,23 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile)) - #{p\ 13317}#)) - #{tmp\ 13281}#))) + #{p\ 4163}#)) + #{tmp\ 4127}#))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '(any . any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '(#(free-id #(syntax-object quasiquote @@ -13697,7 +13597,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend @@ -13707,14 +13607,14 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '((#(free-id #(syntax-object unquote-splicing @@ -13723,7 +13623,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend @@ -13733,17 +13633,17 @@ (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '((#(free-id #(syntax-object unquote-splicing @@ -13752,23 +13652,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" + "i4058" + "i4059" + "i4060"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '(#(free-id #(syntax-object unquote @@ -13777,22 +13677,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" - "i13212" - "i13213" - "i13214"))) + #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 13281}# + #{tmp\ 4127}# '(#(free-id #(syntax-object unquote @@ -13801,243 +13698,243 @@ #(ribcage #(p lev) #((top) (top)) - #("i13279" "i13280")) + #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i13211" "i13212" "i13213" "i13214"))) + #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any)))) - #{p\ 13277}#)))) - (lambda (#{x\ 13318}#) - ((lambda (#{tmp\ 13320}#) - ((lambda (#{tmp\ 13321}#) - (if #{tmp\ 13321}# - (apply (lambda (#{_\ 13324}# #{e\ 13325}#) - (#{quasi\ 13218}# #{e\ 13325}# 0)) - #{tmp\ 13321}#) + #{p\ 4123}#)))) + (lambda (#{x\ 4164}#) + ((lambda (#{tmp\ 4166}#) + ((lambda (#{tmp\ 4167}#) + (if #{tmp\ 4167}# + (apply (lambda (#{_\ 4170}# #{e\ 4171}#) + (#{quasi\ 4064}# #{e\ 4171}# 0)) + #{tmp\ 4167}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13320}#))) - ($sc-dispatch #{tmp\ 13320}# (quote (any any))))) - #{x\ 13318}#))) + #{tmp\ 4166}#))) + ($sc-dispatch #{tmp\ 4166}# (quote (any any))))) + #{x\ 4164}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 13326}#) - (letrec ((#{read-file\ 13329}# - (lambda (#{fn\ 13330}# #{k\ 13331}#) - (let ((#{p\ 13335}# (open-input-file #{fn\ 13330}#))) - (letrec ((#{f\ 13338}# - (lambda (#{x\ 13339}#) - (if (eof-object? #{x\ 13339}#) + (cons (lambda (#{x\ 4172}#) + (letrec ((#{read-file\ 4175}# + (lambda (#{fn\ 4176}# #{k\ 4177}#) + (let ((#{p\ 4181}# (open-input-file #{fn\ 4176}#))) + (letrec ((#{f\ 4184}# + (lambda (#{x\ 4185}#) + (if (eof-object? #{x\ 4185}#) (begin - (close-input-port #{p\ 13335}#) + (close-input-port #{p\ 4181}#) '()) (cons (datum->syntax - #{k\ 13331}# - #{x\ 13339}#) - (#{f\ 13338}# - (read #{p\ 13335}#))))))) - (#{f\ 13338}# (read #{p\ 13335}#))))))) - ((lambda (#{tmp\ 13340}#) - ((lambda (#{tmp\ 13341}#) - (if #{tmp\ 13341}# - (apply (lambda (#{k\ 13344}# #{filename\ 13345}#) - (let ((#{fn\ 13347}# - (syntax->datum #{filename\ 13345}#))) - ((lambda (#{tmp\ 13349}#) - ((lambda (#{tmp\ 13350}#) - (if #{tmp\ 13350}# - (apply (lambda (#{exp\ 13352}#) + #{k\ 4177}# + #{x\ 4185}#) + (#{f\ 4184}# + (read #{p\ 4181}#))))))) + (#{f\ 4184}# (read #{p\ 4181}#))))))) + ((lambda (#{tmp\ 4186}#) + ((lambda (#{tmp\ 4187}#) + (if #{tmp\ 4187}# + (apply (lambda (#{k\ 4190}# #{filename\ 4191}#) + (let ((#{fn\ 4193}# + (syntax->datum #{filename\ 4191}#))) + ((lambda (#{tmp\ 4195}#) + ((lambda (#{tmp\ 4196}#) + (if #{tmp\ 4196}# + (apply (lambda (#{exp\ 4198}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i13351")) + #("i4197")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i13346")) + #("i4192")) #(ribcage #(k filename) #((top) (top)) - #("i13342" - "i13343")) + #("i4188" + "i4189")) #(ribcage (read-file) ((top)) - ("i13328")) + ("i4174")) #(ribcage #(x) #((top)) - #("i13327"))) + #("i4173"))) (hygiene guile)) - #{exp\ 13352}#)) - #{tmp\ 13350}#) + #{exp\ 4198}#)) + #{tmp\ 4196}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13349}#))) + #{tmp\ 4195}#))) ($sc-dispatch - #{tmp\ 13349}# + #{tmp\ 4195}# 'each-any))) - (#{read-file\ 13329}# - #{fn\ 13347}# - #{k\ 13344}#)))) - #{tmp\ 13341}#) + (#{read-file\ 4175}# + #{fn\ 4193}# + #{k\ 4190}#)))) + #{tmp\ 4187}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13340}#))) - ($sc-dispatch #{tmp\ 13340}# (quote (any any))))) - #{x\ 13326}#))) + #{tmp\ 4186}#))) + ($sc-dispatch #{tmp\ 4186}# (quote (any any))))) + #{x\ 4172}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 13354}#) - ((lambda (#{tmp\ 13356}#) - ((lambda (#{tmp\ 13357}#) - (if #{tmp\ 13357}# - (apply (lambda (#{k\ 13360}# #{filename\ 13361}#) - (let ((#{fn\ 13363}# - (syntax->datum #{filename\ 13361}#))) - ((lambda (#{tmp\ 13365}#) - ((lambda (#{fn\ 13367}#) + (cons (lambda (#{x\ 4200}#) + ((lambda (#{tmp\ 4202}#) + ((lambda (#{tmp\ 4203}#) + (if #{tmp\ 4203}# + (apply (lambda (#{k\ 4206}# #{filename\ 4207}#) + (let ((#{fn\ 4209}# + (syntax->datum #{filename\ 4207}#))) + ((lambda (#{tmp\ 4211}#) + ((lambda (#{fn\ 4213}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i13366")) + #("i4212")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i13362")) + #("i4208")) #(ribcage #(k filename) #((top) (top)) - #("i13358" "i13359")) + #("i4204" "i4205")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13355"))) + #("i4201"))) (hygiene guile)) - #{fn\ 13367}#)) - #{tmp\ 13365}#)) - (let ((#{t\ 13370}# - (%search-load-path #{fn\ 13363}#))) - (if #{t\ 13370}# - #{t\ 13370}# + #{fn\ 4213}#)) + #{tmp\ 4211}#)) + (let ((#{t\ 4216}# + (%search-load-path #{fn\ 4209}#))) + (if #{t\ 4216}# + #{t\ 4216}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 13354}# - #{filename\ 13361}#)))))) - #{tmp\ 13357}#) + #{x\ 4200}# + #{filename\ 4207}#)))))) + #{tmp\ 4203}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13356}#))) - ($sc-dispatch #{tmp\ 13356}# (quote (any any))))) - #{x\ 13354}#)) + #{tmp\ 4202}#))) + ($sc-dispatch #{tmp\ 4202}# (quote (any any))))) + #{x\ 4200}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 13372}#) - ((lambda (#{tmp\ 13374}#) - ((lambda (#{tmp\ 13375}#) - (if #{tmp\ 13375}# - (apply (lambda (#{_\ 13378}# #{e\ 13379}#) + (cons (lambda (#{x\ 4218}#) + ((lambda (#{tmp\ 4220}#) + ((lambda (#{tmp\ 4221}#) + (if #{tmp\ 4221}# + (apply (lambda (#{_\ 4224}# #{e\ 4225}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 13372}#)) - #{tmp\ 13375}#) + #{x\ 4218}#)) + #{tmp\ 4221}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13374}#))) - ($sc-dispatch #{tmp\ 13374}# (quote (any any))))) - #{x\ 13372}#)) + #{tmp\ 4220}#))) + ($sc-dispatch #{tmp\ 4220}# (quote (any any))))) + #{x\ 4218}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 13380}#) - ((lambda (#{tmp\ 13382}#) - ((lambda (#{tmp\ 13383}#) - (if #{tmp\ 13383}# - (apply (lambda (#{_\ 13386}# #{e\ 13387}#) + (cons (lambda (#{x\ 4226}#) + ((lambda (#{tmp\ 4228}#) + ((lambda (#{tmp\ 4229}#) + (if #{tmp\ 4229}# + (apply (lambda (#{_\ 4232}# #{e\ 4233}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 13380}#)) - #{tmp\ 13383}#) + #{x\ 4226}#)) + #{tmp\ 4229}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13382}#))) - ($sc-dispatch #{tmp\ 13382}# (quote (any any))))) - #{x\ 13380}#)) + #{tmp\ 4228}#))) + ($sc-dispatch #{tmp\ 4228}# (quote (any any))))) + #{x\ 4226}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 13388}#) - ((lambda (#{tmp\ 13390}#) - ((lambda (#{tmp\ 13391}#) - (if #{tmp\ 13391}# - (apply (lambda (#{_\ 13396}# - #{e\ 13397}# - #{m1\ 13398}# - #{m2\ 13399}#) - ((lambda (#{tmp\ 13401}#) - ((lambda (#{body\ 13403}#) + (cons (lambda (#{x\ 4234}#) + ((lambda (#{tmp\ 4236}#) + ((lambda (#{tmp\ 4237}#) + (if #{tmp\ 4237}# + (apply (lambda (#{_\ 4242}# + #{e\ 4243}# + #{m1\ 4244}# + #{m2\ 4245}#) + ((lambda (#{tmp\ 4247}#) + ((lambda (#{body\ 4249}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i13402")) + #("i4248")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14045,35 +13942,35 @@ #(ribcage #(body) #((top)) - #("i13402")) + #("i4248")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - #{e\ 13397}#)) - #{body\ 13403}#)) - #{tmp\ 13401}#)) - (letrec ((#{f\ 13407}# - (lambda (#{clause\ 13408}# - #{clauses\ 13409}#) - (if (null? #{clauses\ 13409}#) - ((lambda (#{tmp\ 13411}#) - ((lambda (#{tmp\ 13412}#) - (if #{tmp\ 13412}# - (apply (lambda (#{e1\ 13415}# - #{e2\ 13416}#) + #{e\ 4243}#)) + #{body\ 4249}#)) + #{tmp\ 4247}#)) + (letrec ((#{f\ 4253}# + (lambda (#{clause\ 4254}# + #{clauses\ 4255}#) + (if (null? #{clauses\ 4255}#) + ((lambda (#{tmp\ 4257}#) + ((lambda (#{tmp\ 4258}#) + (if #{tmp\ 4258}# + (apply (lambda (#{e1\ 4261}# + #{e2\ 4262}#) (cons '#(syntax-object begin ((top) @@ -14082,8 +13979,8 @@ e2) #((top) (top)) - #("i13413" - "i13414")) + #("i4259" + "i4260")) #(ribcage () () @@ -14095,9 +13992,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14107,10 +14004,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14118,17 +14015,17 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - (cons #{e1\ 13415}# - #{e2\ 13416}#))) - #{tmp\ 13412}#) - ((lambda (#{tmp\ 13418}#) - (if #{tmp\ 13418}# - (apply (lambda (#{k\ 13422}# - #{e1\ 13423}# - #{e2\ 13424}#) + (cons #{e1\ 4261}# + #{e2\ 4262}#))) + #{tmp\ 4258}#) + ((lambda (#{tmp\ 4264}#) + (if #{tmp\ 4264}# + (apply (lambda (#{k\ 4268}# + #{e1\ 4269}# + #{e2\ 4270}#) (list '#(syntax-object if ((top) @@ -14139,9 +14036,9 @@ #((top) (top) (top)) - #("i13419" - "i13420" - "i13421")) + #("i4265" + "i4266" + "i4267")) #(ribcage () () @@ -14153,9 +14050,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14165,10 +14062,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14176,7 +14073,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) (list '#(syntax-object @@ -14189,9 +14086,9 @@ #((top) (top) (top)) - #("i13419" - "i13420" - "i13421")) + #("i4265" + "i4266" + "i4267")) #(ribcage () () @@ -14203,9 +14100,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14215,10 +14112,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14226,7 +14123,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) '#(syntax-object @@ -14239,9 +14136,9 @@ #((top) (top) (top)) - #("i13419" - "i13420" - "i13421")) + #("i4265" + "i4266" + "i4267")) #(ribcage () () @@ -14253,9 +14150,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14265,10 +14162,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14276,7 +14173,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) (list '#(syntax-object @@ -14289,9 +14186,9 @@ #((top) (top) (top)) - #("i13419" - "i13420" - "i13421")) + #("i4265" + "i4266" + "i4267")) #(ribcage () () @@ -14303,9 +14200,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14315,10 +14212,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14326,10 +14223,10 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - #{k\ 13422}#)) + #{k\ 4268}#)) (cons '#(syntax-object begin ((top) @@ -14340,9 +14237,9 @@ #((top) (top) (top)) - #("i13419" - "i13420" - "i13421")) + #("i4265" + "i4266" + "i4267")) #(ribcage () () @@ -14354,9 +14251,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14366,10 +14263,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14377,27 +14274,27 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - (cons #{e1\ 13423}# - #{e2\ 13424}#)))) - #{tmp\ 13418}#) - ((lambda (#{_\ 13428}#) + (cons #{e1\ 4269}# + #{e2\ 4270}#)))) + #{tmp\ 4264}#) + ((lambda (#{_\ 4274}#) (syntax-violation 'case "bad clause" - #{x\ 13388}# - #{clause\ 13408}#)) - #{tmp\ 13411}#))) + #{x\ 4234}# + #{clause\ 4254}#)) + #{tmp\ 4257}#))) ($sc-dispatch - #{tmp\ 13411}# + #{tmp\ 4257}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 13411}# + #{tmp\ 4257}# '(#(free-id #(syntax-object else @@ -14408,37 +14305,37 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile))) any . each-any)))) - #{clause\ 13408}#) - ((lambda (#{tmp\ 13430}#) - ((lambda (#{rest\ 13432}#) - ((lambda (#{tmp\ 13433}#) - ((lambda (#{tmp\ 13434}#) - (if #{tmp\ 13434}# - (apply (lambda (#{k\ 13438}# - #{e1\ 13439}# - #{e2\ 13440}#) + #{clause\ 4254}#) + ((lambda (#{tmp\ 4276}#) + ((lambda (#{rest\ 4278}#) + ((lambda (#{tmp\ 4279}#) + ((lambda (#{tmp\ 4280}#) + (if #{tmp\ 4280}# + (apply (lambda (#{k\ 4284}# + #{e1\ 4285}# + #{e2\ 4286}#) (list '#(syntax-object if ((top) @@ -14449,13 +14346,13 @@ #((top) (top) (top)) - #("i13435" - "i13436" - "i13437")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(rest) #((top)) - #("i13431")) + #("i4277")) #(ribcage () () @@ -14467,9 +14364,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14479,10 +14376,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14490,7 +14387,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) (list '#(syntax-object @@ -14503,13 +14400,13 @@ #((top) (top) (top)) - #("i13435" - "i13436" - "i13437")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(rest) #((top)) - #("i13431")) + #("i4277")) #(ribcage () () @@ -14521,9 +14418,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14533,10 +14430,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14544,7 +14441,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) '#(syntax-object @@ -14557,13 +14454,13 @@ #((top) (top) (top)) - #("i13435" - "i13436" - "i13437")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(rest) #((top)) - #("i13431")) + #("i4277")) #(ribcage () () @@ -14575,9 +14472,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14587,10 +14484,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14598,7 +14495,7 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) (list '#(syntax-object @@ -14611,13 +14508,13 @@ #((top) (top) (top)) - #("i13435" - "i13436" - "i13437")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(rest) #((top)) - #("i13431")) + #("i4277")) #(ribcage () () @@ -14629,9 +14526,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14641,10 +14538,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14652,10 +14549,10 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - #{k\ 13438}#)) + #{k\ 4284}#)) (cons '#(syntax-object begin ((top) @@ -14666,13 +14563,13 @@ #((top) (top) (top)) - #("i13435" - "i13436" - "i13437")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(rest) #((top)) - #("i13431")) + #("i4277")) #(ribcage () () @@ -14684,9 +14581,9 @@ #((top) (top) (top)) - #("i13404" - "i13405" - "i13406")) + #("i4250" + "i4251" + "i4252")) #(ribcage #(_ e @@ -14696,10 +14593,10 @@ (top) (top) (top)) - #("i13392" - "i13393" - "i13394" - "i13395")) + #("i4238" + "i4239" + "i4240" + "i4241")) #(ribcage () () @@ -14707,61 +14604,61 @@ #(ribcage #(x) #((top)) - #("i13389"))) + #("i4235"))) (hygiene guile)) - (cons #{e1\ 13439}# - #{e2\ 13440}#)) - #{rest\ 13432}#)) - #{tmp\ 13434}#) - ((lambda (#{_\ 13444}#) + (cons #{e1\ 4285}# + #{e2\ 4286}#)) + #{rest\ 4278}#)) + #{tmp\ 4280}#) + ((lambda (#{_\ 4290}#) (syntax-violation 'case "bad clause" - #{x\ 13388}# - #{clause\ 13408}#)) - #{tmp\ 13433}#))) + #{x\ 4234}# + #{clause\ 4254}#)) + #{tmp\ 4279}#))) ($sc-dispatch - #{tmp\ 13433}# + #{tmp\ 4279}# '(each-any any . each-any)))) - #{clause\ 13408}#)) - #{tmp\ 13430}#)) - (#{f\ 13407}# - (car #{clauses\ 13409}#) - (cdr #{clauses\ 13409}#))))))) - (#{f\ 13407}# #{m1\ 13398}# #{m2\ 13399}#)))) - #{tmp\ 13391}#) + #{clause\ 4254}#)) + #{tmp\ 4276}#)) + (#{f\ 4253}# + (car #{clauses\ 4255}#) + (cdr #{clauses\ 4255}#))))))) + (#{f\ 4253}# #{m1\ 4244}# #{m2\ 4245}#)))) + #{tmp\ 4237}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13390}#))) + #{tmp\ 4236}#))) ($sc-dispatch - #{tmp\ 13390}# + #{tmp\ 4236}# '(any any any . each-any)))) - #{x\ 13388}#)) + #{x\ 4234}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 13445}#) - ((lambda (#{tmp\ 13447}#) - ((lambda (#{tmp\ 13448}#) - (if #{tmp\ 13448}# - (apply (lambda (#{_\ 13451}# #{e\ 13452}#) + (cons (lambda (#{x\ 4291}#) + ((lambda (#{tmp\ 4293}#) + ((lambda (#{tmp\ 4294}#) + (if #{tmp\ 4294}# + (apply (lambda (#{_\ 4297}# #{e\ 4298}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13446"))) + #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) '(#(syntax-object x @@ -14769,9 +14666,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13446"))) + #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile))) (list '#(syntax-object syntax-case @@ -14779,12 +14676,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) '#(syntax-object x @@ -14792,12 +14689,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) '() (list '#(syntax-object @@ -14806,12 +14703,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) '(#(syntax-object identifier? @@ -14819,12 +14716,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) (#(syntax-object syntax @@ -14832,12 +14729,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) #(syntax-object id @@ -14845,12 +14742,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14858,29 +14755,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) - #{e\ 13452}#)) - (list (cons #{_\ 13451}# + #{e\ 4298}#)) + (list (cons #{_\ 4297}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) #(syntax-object ... @@ -14888,13 +14783,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14902,15 +14796,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) - (cons #{e\ 13452}# + (cons #{e\ 4298}# '(#(syntax-object x ((top) @@ -14918,8 +14811,8 @@ #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" + "i4296")) #(ribcage () () @@ -14927,7 +14820,7 @@ #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile)) #(syntax-object ... @@ -14936,8 +14829,8 @@ #(_ e) #((top) (top)) - #("i13449" - "i13450")) + #("i4295" + "i4296")) #(ribcage () () @@ -14945,85 +14838,117 @@ #(ribcage #(x) #((top)) - #("i13446"))) + #("i4292"))) (hygiene guile))))))))) - #{tmp\ 13448}#) + #{tmp\ 4294}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13447}#))) - ($sc-dispatch #{tmp\ 13447}# (quote (any any))))) - #{x\ 13445}#)) + #{tmp\ 4293}#))) + ($sc-dispatch #{tmp\ 4293}# (quote (any any))))) + #{x\ 4291}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 13454}#) - ((lambda (#{tmp\ 13456}#) - ((lambda (#{tmp\ 13457}#) - (if #{tmp\ 13457}# - (apply (lambda (#{dummy\ 13463}# - #{id\ 13464}# - #{args\ 13465}# - #{b0\ 13466}# - #{b1\ 13467}#) + (cons (lambda (#{x\ 4299}#) + ((lambda (#{tmp\ 4301}#) + ((lambda (#{tmp\ 4302}#) + (if #{tmp\ 4302}# + (apply (lambda (#{_\ 4308}# + #{id\ 4309}# + #{args\ 4310}# + #{b0\ 4311}# + #{b1\ 4312}#) (list '#(syntax-object define ((top) #(ribcage - #(dummy id args b0 b1) - #((m13453 top) - (top) - (top) - (top) - (top)) - #("i13458" - "i13459" - "i13460" - "i13461" - "i13462")) + #(_ id args b0 b1) + #((top) (top) (top) (top) (top)) + #("i4303" + "i4304" + "i4305" + "i4306" + "i4307")) #(ribcage () () ()) - #(ribcage - #(x) - #((m13453 top)) - #("i13455"))) + #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)) - #{id\ 13464}# + #{id\ 4309}# (cons '#(syntax-object lambda* ((top) #(ribcage - #(dummy id args b0 b1) - #((m13453 top) - (top) - (top) - (top) - (top)) - #("i13458" - "i13459" - "i13460" - "i13461" - "i13462")) + #(_ id args b0 b1) + #((top) (top) (top) (top) (top)) + #("i4303" + "i4304" + "i4305" + "i4306" + "i4307")) #(ribcage () () ()) #(ribcage #(x) - #((m13453 top)) - #("i13455"))) + #((top)) + #("i4300"))) (hygiene guile)) - (cons #{args\ 13465}# - (cons #{b0\ 13466}# - #{b1\ 13467}#))))) - #{tmp\ 13457}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 13456}#))) + (cons #{args\ 4310}# + (cons #{b0\ 4311}# + #{b1\ 4312}#))))) + #{tmp\ 4302}#) + ((lambda (#{tmp\ 4314}#) + (if (if #{tmp\ 4314}# + (apply (lambda (#{_\ 4318}# + #{id\ 4319}# + #{val\ 4320}#) + (identifier? + '#(syntax-object + x + ((top) + #(ribcage + #(_ id val) + #((top) (top) (top)) + #("i4315" "i4316" "i4317")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4300"))) + (hygiene guile)))) + #{tmp\ 4314}#) + #f) + (apply (lambda (#{_\ 4324}# + #{id\ 4325}# + #{val\ 4326}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(_ id val) + #((top) (top) (top)) + #("i4321" "i4322" "i4323")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4300"))) + (hygiene guile)) + #{id\ 4325}# + #{val\ 4326}#)) + #{tmp\ 4314}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4301}#))) + ($sc-dispatch + #{tmp\ 4301}# + '(any any any))))) ($sc-dispatch - #{tmp\ 13456}# + #{tmp\ 4301}# '(any (any . any) any . each-any)))) - #{x\ 13454}#)) + #{x\ 4299}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index a9a22c0a4..abc5ec682 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2783,6 +2783,9 @@ #'(e x (... ...))))))))) (define-syntax define* - (syntax-rules () - ((_ (id . args) b0 b1 ...) - (define id (lambda* args b0 b1 ...))))) + (lambda (x) + (syntax-case x () + ((_ (id . args) b0 b1 ...) + #'(define id (lambda* args b0 b1 ...))) + ((_ id val) (identifier? #'x) + #'(define id val))))) |