diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index a3d161350..8145801f3 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,643 +1,657 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 26}# - (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#) - (let ((#{t\ 200}# (null? #{first\ 193}#))) - (if #{t\ 200}# - #{t\ 200}# - (if (null? #{rest\ 194}#) - (letrec ((#{andmap\ 204}# - (lambda (#{first\ 205}#) - (let ((#{x\ 208}# (car #{first\ 205}#)) - (#{first\ 209}# (cdr #{first\ 205}#))) - (if (null? #{first\ 209}#) - (#{f\ 192}# #{x\ 208}#) - (if (#{f\ 192}# #{x\ 208}#) - (#{andmap\ 204}# #{first\ 209}#) +(letrec ((#{and-map*\ 12627}# + (lambda (#{f\ 12741}# #{first\ 12742}# . #{rest\ 12743}#) + (let ((#{t\ 12749}# (null? #{first\ 12742}#))) + (if #{t\ 12749}# + #{t\ 12749}# + (if (null? #{rest\ 12743}#) + (letrec ((#{andmap\ 12753}# + (lambda (#{first\ 12754}#) + (let ((#{x\ 12757}# (car #{first\ 12754}#)) + (#{first\ 12758}# + (cdr #{first\ 12754}#))) + (if (null? #{first\ 12758}#) + (#{f\ 12741}# #{x\ 12757}#) + (if (#{f\ 12741}# #{x\ 12757}#) + (#{andmap\ 12753}# #{first\ 12758}#) #f)))))) - (#{andmap\ 204}# #{first\ 193}#)) - (letrec ((#{andmap\ 215}# - (lambda (#{first\ 216}# #{rest\ 217}#) - (let ((#{x\ 222}# (car #{first\ 216}#)) - (#{xr\ 223}# (map car #{rest\ 217}#)) - (#{first\ 224}# (cdr #{first\ 216}#)) - (#{rest\ 225}# (map cdr #{rest\ 217}#))) - (if (null? #{first\ 224}#) - (apply #{f\ 192}# - (cons #{x\ 222}# #{xr\ 223}#)) - (if (apply #{f\ 192}# - (cons #{x\ 222}# #{xr\ 223}#)) - (#{andmap\ 215}# - #{first\ 224}# - #{rest\ 225}#) + (#{andmap\ 12753}# #{first\ 12742}#)) + (letrec ((#{andmap\ 12764}# + (lambda (#{first\ 12765}# #{rest\ 12766}#) + (let ((#{x\ 12771}# (car #{first\ 12765}#)) + (#{xr\ 12772}# (map car #{rest\ 12766}#)) + (#{first\ 12773}# (cdr #{first\ 12765}#)) + (#{rest\ 12774}# + (map cdr #{rest\ 12766}#))) + (if (null? #{first\ 12773}#) + (apply #{f\ 12741}# + (cons #{x\ 12771}# #{xr\ 12772}#)) + (if (apply #{f\ 12741}# + (cons #{x\ 12771}# + #{xr\ 12772}#)) + (#{andmap\ 12764}# + #{first\ 12773}# + #{rest\ 12774}#) #f)))))) - (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#)))))))) - (letrec ((#{lambda-var-list\ 482}# - (lambda (#{vars\ 814}#) - (letrec ((#{lvl\ 820}# - (lambda (#{vars\ 821}# #{ls\ 822}# #{w\ 823}#) - (if (pair? #{vars\ 821}#) - (#{lvl\ 820}# - (cdr #{vars\ 821}#) - (cons (#{wrap\ 436}# - (car #{vars\ 821}#) - #{w\ 823}# + (#{andmap\ 12764}# + #{first\ 12742}# + #{rest\ 12743}#)))))))) + (letrec ((#{lambda-var-list\ 13031}# + (lambda (#{vars\ 13246}#) + (letrec ((#{lvl\ 13252}# + (lambda (#{vars\ 13253}# #{ls\ 13254}# #{w\ 13255}#) + (if (pair? #{vars\ 13253}#) + (#{lvl\ 13252}# + (cdr #{vars\ 13253}#) + (cons (#{wrap\ 12985}# + (car #{vars\ 13253}#) + #{w\ 13255}# #f) - #{ls\ 822}#) - #{w\ 823}#) - (if (#{id?\ 367}# #{vars\ 821}#) - (cons (#{wrap\ 436}# - #{vars\ 821}# - #{w\ 823}# + #{ls\ 13254}#) + #{w\ 13255}#) + (if (#{id?\ 12916}# #{vars\ 13253}#) + (cons (#{wrap\ 12985}# + #{vars\ 13253}# + #{w\ 13255}# #f) - #{ls\ 822}#) - (if (null? #{vars\ 821}#) - #{ls\ 822}# - (if (#{syntax-object?\ 331}# #{vars\ 821}#) - (#{lvl\ 820}# - (#{syntax-object-expression\ 333}# - #{vars\ 821}#) - #{ls\ 822}# - (#{join-wraps\ 418}# - #{w\ 823}# - (#{syntax-object-wrap\ 335}# - #{vars\ 821}#))) - (cons #{vars\ 821}# #{ls\ 822}#)))))))) - (#{lvl\ 820}# - #{vars\ 814}# + #{ls\ 13254}#) + (if (null? #{vars\ 13253}#) + #{ls\ 13254}# + (if (#{syntax-object?\ 12880}# + #{vars\ 13253}#) + (#{lvl\ 13252}# + (#{syntax-object-expression\ 12882}# + #{vars\ 13253}#) + #{ls\ 13254}# + (#{join-wraps\ 12967}# + #{w\ 13255}# + (#{syntax-object-wrap\ 12884}# + #{vars\ 13253}#))) + (cons #{vars\ 13253}# #{ls\ 13254}#)))))))) + (#{lvl\ 13252}# + #{vars\ 13246}# '() '(()))))) - (#{gen-var\ 480}# - (lambda (#{id\ 834}#) - (let ((#{id\ 837}# - (if (#{syntax-object?\ 331}# #{id\ 834}#) - (#{syntax-object-expression\ 333}# #{id\ 834}#) - #{id\ 834}#))) + (#{gen-var\ 13029}# + (lambda (#{id\ 13266}#) + (let ((#{id\ 13269}# + (if (#{syntax-object?\ 12880}# #{id\ 13266}#) + (#{syntax-object-expression\ 12882}# + #{id\ 13266}#) + #{id\ 13266}#))) (gensym - (string-append (symbol->string #{id\ 837}#) " "))))) - (#{strip\ 478}# - (lambda (#{x\ 839}# #{w\ 840}#) + (string-append + (symbol->string #{id\ 13269}#) + " "))))) + (#{strip\ 13027}# + (lambda (#{x\ 13271}# #{w\ 13272}#) (if (memq 'top - (#{wrap-marks\ 374}# #{w\ 840}#)) - #{x\ 839}# - (letrec ((#{f\ 846}# (lambda (#{x\ 847}#) - (if (#{syntax-object?\ 331}# - #{x\ 847}#) - (#{strip\ 478}# - (#{syntax-object-expression\ 333}# - #{x\ 847}#) - (#{syntax-object-wrap\ 335}# - #{x\ 847}#)) - (if (pair? #{x\ 847}#) - (let ((#{a\ 854}# (#{f\ 846}# (car #{x\ 847}#))) - (#{d\ 855}# (#{f\ 846}# (cdr #{x\ 847}#)))) - (if (if (eq? #{a\ 854}# - (car #{x\ 847}#)) - (eq? #{d\ 855}# - (cdr #{x\ 847}#)) - #f) - #{x\ 847}# - (cons #{a\ 854}# #{d\ 855}#))) - (if (vector? #{x\ 847}#) - (let ((#{old\ 861}# - (vector->list - #{x\ 847}#))) - (let ((#{new\ 863}# - (map #{f\ 846}# - #{old\ 861}#))) - (if (#{and-map*\ 26}# - eq? - #{old\ 861}# - #{new\ 863}#) - #{x\ 847}# - (list->vector - #{new\ 863}#)))) - #{x\ 847}#)))))) - (#{f\ 846}# #{x\ 839}#))))) - (#{chi-lambda-case\ 476}# - (lambda (#{e\ 865}# - #{r\ 866}# - #{w\ 867}# - #{s\ 868}# - #{mod\ 869}# - #{get-formals\ 870}# - #{clauses\ 871}#) - (letrec ((#{expand-body\ 886}# - (lambda (#{req\ 887}# - #{opt\ 888}# - #{rest\ 889}# - #{kw\ 890}# - #{body\ 891}# - #{vars\ 892}# - #{r*\ 893}# - #{w*\ 894}# - #{inits\ 895}# - #{meta\ 896}#) - ((lambda (#{tmp\ 907}#) - ((lambda (#{tmp\ 908}#) - (if (if #{tmp\ 908}# - (apply (lambda (#{docstring\ 912}# - #{e1\ 913}# - #{e2\ 914}#) + (#{wrap-marks\ 12923}# #{w\ 13272}#)) + #{x\ 13271}# + (letrec ((#{f\ 13278}# + (lambda (#{x\ 13279}#) + (if (#{syntax-object?\ 12880}# #{x\ 13279}#) + (#{strip\ 13027}# + (#{syntax-object-expression\ 12882}# + #{x\ 13279}#) + (#{syntax-object-wrap\ 12884}# #{x\ 13279}#)) + (if (pair? #{x\ 13279}#) + (let ((#{a\ 13286}# + (#{f\ 13278}# (car #{x\ 13279}#))) + (#{d\ 13287}# + (#{f\ 13278}# (cdr #{x\ 13279}#)))) + (if (if (eq? #{a\ 13286}# + (car #{x\ 13279}#)) + (eq? #{d\ 13287}# (cdr #{x\ 13279}#)) + #f) + #{x\ 13279}# + (cons #{a\ 13286}# #{d\ 13287}#))) + (if (vector? #{x\ 13279}#) + (let ((#{old\ 13293}# + (vector->list #{x\ 13279}#))) + (let ((#{new\ 13295}# + (map #{f\ 13278}# + #{old\ 13293}#))) + (if (#{and-map*\ 12627}# + eq? + #{old\ 13293}# + #{new\ 13295}#) + #{x\ 13279}# + (list->vector #{new\ 13295}#)))) + #{x\ 13279}#)))))) + (#{f\ 13278}# #{x\ 13271}#))))) + (#{chi-lambda-case\ 13025}# + (lambda (#{e\ 13297}# + #{r\ 13298}# + #{w\ 13299}# + #{s\ 13300}# + #{mod\ 13301}# + #{get-formals\ 13302}# + #{clauses\ 13303}#) + (letrec ((#{expand-body\ 13318}# + (lambda (#{req\ 13319}# + #{opt\ 13320}# + #{rest\ 13321}# + #{kw\ 13322}# + #{body\ 13323}# + #{vars\ 13324}# + #{r*\ 13325}# + #{w*\ 13326}# + #{inits\ 13327}# + #{meta\ 13328}#) + ((lambda (#{tmp\ 13339}#) + ((lambda (#{tmp\ 13340}#) + (if (if #{tmp\ 13340}# + (apply (lambda (#{docstring\ 13344}# + #{e1\ 13345}# + #{e2\ 13346}#) (string? (syntax->datum - #{docstring\ 912}#))) - #{tmp\ 908}#) + #{docstring\ 13344}#))) + #{tmp\ 13340}#) #f) - (apply (lambda (#{docstring\ 918}# - #{e1\ 919}# - #{e2\ 920}#) - (#{expand-body\ 886}# - #{req\ 887}# - #{opt\ 888}# - #{rest\ 889}# - #{kw\ 890}# - (cons #{e1\ 919}# #{e2\ 920}#) - #{vars\ 892}# - #{r*\ 893}# - #{w*\ 894}# - #{inits\ 895}# + (apply (lambda (#{docstring\ 13350}# + #{e1\ 13351}# + #{e2\ 13352}#) + (#{expand-body\ 13318}# + #{req\ 13319}# + #{opt\ 13320}# + #{rest\ 13321}# + #{kw\ 13322}# + (cons #{e1\ 13351}# + #{e2\ 13352}#) + #{vars\ 13324}# + #{r*\ 13325}# + #{w*\ 13326}# + #{inits\ 13327}# (append - #{meta\ 896}# + #{meta\ 13328}# (list (cons 'documentation (syntax->datum - #{docstring\ 918}#)))))) - #{tmp\ 908}#) - ((lambda (#{tmp\ 923}#) - (if #{tmp\ 923}# - (apply (lambda (#{k\ 928}# - #{v\ 929}# - #{e1\ 930}# - #{e2\ 931}#) - (#{expand-body\ 886}# - #{req\ 887}# - #{opt\ 888}# - #{rest\ 889}# - #{kw\ 890}# - (cons #{e1\ 930}# - #{e2\ 931}#) - #{vars\ 892}# - #{r*\ 893}# - #{w*\ 894}# - #{inits\ 895}# + #{docstring\ 13350}#)))))) + #{tmp\ 13340}#) + ((lambda (#{tmp\ 13355}#) + (if #{tmp\ 13355}# + (apply (lambda (#{k\ 13360}# + #{v\ 13361}# + #{e1\ 13362}# + #{e2\ 13363}#) + (#{expand-body\ 13318}# + #{req\ 13319}# + #{opt\ 13320}# + #{rest\ 13321}# + #{kw\ 13322}# + (cons #{e1\ 13362}# + #{e2\ 13363}#) + #{vars\ 13324}# + #{r*\ 13325}# + #{w*\ 13326}# + #{inits\ 13327}# (append - #{meta\ 896}# + #{meta\ 13328}# (syntax->datum (map cons - #{k\ 928}# - #{v\ 929}#))))) - #{tmp\ 923}#) - ((lambda (#{tmp\ 935}#) - (if #{tmp\ 935}# - (apply (lambda (#{e1\ 938}# - #{e2\ 939}#) + #{k\ 13360}# + #{v\ 13361}#))))) + #{tmp\ 13355}#) + ((lambda (#{tmp\ 13367}#) + (if #{tmp\ 13367}# + (apply (lambda (#{e1\ 13370}# + #{e2\ 13371}#) (values - #{meta\ 896}# - #{req\ 887}# - #{opt\ 888}# - #{rest\ 889}# - #{kw\ 890}# - #{inits\ 895}# - #{vars\ 892}# - (#{chi-body\ 460}# - (cons #{e1\ 938}# - #{e2\ 939}#) - (#{source-wrap\ 438}# - #{e\ 865}# - #{w\ 867}# - #{s\ 868}# - #{mod\ 869}#) - #{r*\ 893}# - #{w*\ 894}# - #{mod\ 869}#))) - #{tmp\ 935}#) + #{meta\ 13328}# + #{req\ 13319}# + #{opt\ 13320}# + #{rest\ 13321}# + #{kw\ 13322}# + #{inits\ 13327}# + #{vars\ 13324}# + (#{chi-body\ 13009}# + (cons #{e1\ 13370}# + #{e2\ 13371}#) + (#{source-wrap\ 12987}# + #{e\ 13297}# + #{w\ 13299}# + #{s\ 13300}# + #{mod\ 13301}#) + #{r*\ 13325}# + #{w*\ 13326}# + #{mod\ 13301}#))) + #{tmp\ 13367}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 907}#))) + #{tmp\ 13339}#))) ($sc-dispatch - #{tmp\ 907}# + #{tmp\ 13339}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 907}# + #{tmp\ 13339}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 907}# + #{tmp\ 13339}# '(any any . each-any)))) - #{body\ 891}#))) - (#{expand-kw\ 884}# - (lambda (#{req\ 941}# - #{opt\ 942}# - #{rest\ 943}# - #{kw\ 944}# - #{body\ 945}# - #{vars\ 946}# - #{r*\ 947}# - #{w*\ 948}# - #{aok\ 949}# - #{out\ 950}# - #{inits\ 951}#) - (if (pair? #{kw\ 944}#) - ((lambda (#{tmp\ 965}#) - ((lambda (#{tmp\ 966}#) - (if #{tmp\ 966}# - (apply (lambda (#{k\ 970}# - #{id\ 971}# - #{i\ 972}#) - (let ((#{v\ 975}# (#{gen-var\ 480}# - #{id\ 971}#))) - (let ((#{l\ 977}# (#{gen-labels\ 385}# - (list #{v\ 975}#)))) - (let ((#{r**\ 979}# - (#{extend-var-env\ 357}# - #{l\ 977}# - (list #{v\ 975}#) - #{r*\ 947}#))) - (let ((#{w**\ 981}# - (#{make-binding-wrap\ 414}# - (list #{id\ 971}#) - #{l\ 977}# - #{w*\ 948}#))) - (#{expand-kw\ 884}# - #{req\ 941}# - #{opt\ 942}# - #{rest\ 943}# - (cdr #{kw\ 944}#) - #{body\ 945}# - (cons #{v\ 975}# - #{vars\ 946}#) - #{r**\ 979}# - #{w**\ 981}# - #{aok\ 949}# + #{body\ 13323}#))) + (#{expand-kw\ 13316}# + (lambda (#{req\ 13373}# + #{opt\ 13374}# + #{rest\ 13375}# + #{kw\ 13376}# + #{body\ 13377}# + #{vars\ 13378}# + #{r*\ 13379}# + #{w*\ 13380}# + #{aok\ 13381}# + #{out\ 13382}# + #{inits\ 13383}#) + (if (pair? #{kw\ 13376}#) + ((lambda (#{tmp\ 13397}#) + ((lambda (#{tmp\ 13398}#) + (if #{tmp\ 13398}# + (apply (lambda (#{k\ 13402}# + #{id\ 13403}# + #{i\ 13404}#) + (let ((#{v\ 13407}# + (#{gen-var\ 13029}# + #{id\ 13403}#))) + (let ((#{l\ 13409}# + (#{gen-labels\ 12934}# + (list #{v\ 13407}#)))) + (let ((#{r**\ 13411}# + (#{extend-var-env\ 12906}# + #{l\ 13409}# + (list #{v\ 13407}#) + #{r*\ 13379}#))) + (let ((#{w**\ 13413}# + (#{make-binding-wrap\ 12963}# + (list #{id\ 13403}#) + #{l\ 13409}# + #{w*\ 13380}#))) + (#{expand-kw\ 13316}# + #{req\ 13373}# + #{opt\ 13374}# + #{rest\ 13375}# + (cdr #{kw\ 13376}#) + #{body\ 13377}# + (cons #{v\ 13407}# + #{vars\ 13378}#) + #{r**\ 13411}# + #{w**\ 13413}# + #{aok\ 13381}# (cons (list (syntax->datum - #{k\ 970}#) + #{k\ 13402}#) (syntax->datum - #{id\ 971}#) - #{v\ 975}#) - #{out\ 950}#) - (cons (#{chi\ 452}# - #{i\ 972}# - #{r*\ 947}# - #{w*\ 948}# - #{mod\ 869}#) - #{inits\ 951}#))))))) - #{tmp\ 966}#) + #{id\ 13403}#) + #{v\ 13407}#) + #{out\ 13382}#) + (cons (#{chi\ 13001}# + #{i\ 13404}# + #{r*\ 13379}# + #{w*\ 13380}# + #{mod\ 13301}#) + #{inits\ 13383}#))))))) + #{tmp\ 13398}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 965}#))) + #{tmp\ 13397}#))) ($sc-dispatch - #{tmp\ 965}# + #{tmp\ 13397}# '(any any any)))) - (car #{kw\ 944}#)) - (#{expand-body\ 886}# - #{req\ 941}# - #{opt\ 942}# - #{rest\ 943}# - (if (let ((#{t\ 985}# #{aok\ 949}#)) - (if #{t\ 985}# - #{t\ 985}# - (pair? #{out\ 950}#))) - (cons #{aok\ 949}# (reverse #{out\ 950}#)) + (car #{kw\ 13376}#)) + (#{expand-body\ 13318}# + #{req\ 13373}# + #{opt\ 13374}# + #{rest\ 13375}# + (if (let ((#{t\ 13417}# #{aok\ 13381}#)) + (if #{t\ 13417}# + #{t\ 13417}# + (pair? #{out\ 13382}#))) + (cons #{aok\ 13381}# + (reverse #{out\ 13382}#)) #f) - #{body\ 945}# - (reverse #{vars\ 946}#) - #{r*\ 947}# - #{w*\ 948}# - (reverse #{inits\ 951}#) + #{body\ 13377}# + (reverse #{vars\ 13378}#) + #{r*\ 13379}# + #{w*\ 13380}# + (reverse #{inits\ 13383}#) '())))) - (#{expand-opt\ 882}# - (lambda (#{req\ 987}# - #{opt\ 988}# - #{rest\ 989}# - #{kw\ 990}# - #{body\ 991}# - #{vars\ 992}# - #{r*\ 993}# - #{w*\ 994}# - #{out\ 995}# - #{inits\ 996}#) - (if (pair? #{opt\ 988}#) - ((lambda (#{tmp\ 1009}#) - ((lambda (#{tmp\ 1010}#) - (if #{tmp\ 1010}# - (apply (lambda (#{id\ 1013}# #{i\ 1014}#) - (let ((#{v\ 1017}# - (#{gen-var\ 480}# - #{id\ 1013}#))) - (let ((#{l\ 1019}# - (#{gen-labels\ 385}# - (list #{v\ 1017}#)))) - (let ((#{r**\ 1021}# - (#{extend-var-env\ 357}# - #{l\ 1019}# - (list #{v\ 1017}#) - #{r*\ 993}#))) - (let ((#{w**\ 1023}# - (#{make-binding-wrap\ 414}# - (list #{id\ 1013}#) - #{l\ 1019}# - #{w*\ 994}#))) - (#{expand-opt\ 882}# - #{req\ 987}# - (cdr #{opt\ 988}#) - #{rest\ 989}# - #{kw\ 990}# - #{body\ 991}# - (cons #{v\ 1017}# - #{vars\ 992}#) - #{r**\ 1021}# - #{w**\ 1023}# + (#{expand-opt\ 13314}# + (lambda (#{req\ 13419}# + #{opt\ 13420}# + #{rest\ 13421}# + #{kw\ 13422}# + #{body\ 13423}# + #{vars\ 13424}# + #{r*\ 13425}# + #{w*\ 13426}# + #{out\ 13427}# + #{inits\ 13428}#) + (if (pair? #{opt\ 13420}#) + ((lambda (#{tmp\ 13441}#) + ((lambda (#{tmp\ 13442}#) + (if #{tmp\ 13442}# + (apply (lambda (#{id\ 13445}# + #{i\ 13446}#) + (let ((#{v\ 13449}# + (#{gen-var\ 13029}# + #{id\ 13445}#))) + (let ((#{l\ 13451}# + (#{gen-labels\ 12934}# + (list #{v\ 13449}#)))) + (let ((#{r**\ 13453}# + (#{extend-var-env\ 12906}# + #{l\ 13451}# + (list #{v\ 13449}#) + #{r*\ 13425}#))) + (let ((#{w**\ 13455}# + (#{make-binding-wrap\ 12963}# + (list #{id\ 13445}#) + #{l\ 13451}# + #{w*\ 13426}#))) + (#{expand-opt\ 13314}# + #{req\ 13419}# + (cdr #{opt\ 13420}#) + #{rest\ 13421}# + #{kw\ 13422}# + #{body\ 13423}# + (cons #{v\ 13449}# + #{vars\ 13424}#) + #{r**\ 13453}# + #{w**\ 13455}# (cons (syntax->datum - #{id\ 1013}#) - #{out\ 995}#) - (cons (#{chi\ 452}# - #{i\ 1014}# - #{r*\ 993}# - #{w*\ 994}# - #{mod\ 869}#) - #{inits\ 996}#))))))) - #{tmp\ 1010}#) + #{id\ 13445}#) + #{out\ 13427}#) + (cons (#{chi\ 13001}# + #{i\ 13446}# + #{r*\ 13425}# + #{w*\ 13426}# + #{mod\ 13301}#) + #{inits\ 13428}#))))))) + #{tmp\ 13442}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1009}#))) + #{tmp\ 13441}#))) ($sc-dispatch - #{tmp\ 1009}# + #{tmp\ 13441}# '(any any)))) - (car #{opt\ 988}#)) - (if #{rest\ 989}# - (let ((#{v\ 1028}# - (#{gen-var\ 480}# #{rest\ 989}#))) - (let ((#{l\ 1030}# - (#{gen-labels\ 385}# - (list #{v\ 1028}#)))) - (let ((#{r*\ 1032}# - (#{extend-var-env\ 357}# - #{l\ 1030}# - (list #{v\ 1028}#) - #{r*\ 993}#))) - (let ((#{w*\ 1034}# - (#{make-binding-wrap\ 414}# - (list #{rest\ 989}#) - #{l\ 1030}# - #{w*\ 994}#))) - (#{expand-kw\ 884}# - #{req\ 987}# - (if (pair? #{out\ 995}#) - (reverse #{out\ 995}#) + (car #{opt\ 13420}#)) + (if #{rest\ 13421}# + (let ((#{v\ 13460}# + (#{gen-var\ 13029}# #{rest\ 13421}#))) + (let ((#{l\ 13462}# + (#{gen-labels\ 12934}# + (list #{v\ 13460}#)))) + (let ((#{r*\ 13464}# + (#{extend-var-env\ 12906}# + #{l\ 13462}# + (list #{v\ 13460}#) + #{r*\ 13425}#))) + (let ((#{w*\ 13466}# + (#{make-binding-wrap\ 12963}# + (list #{rest\ 13421}#) + #{l\ 13462}# + #{w*\ 13426}#))) + (#{expand-kw\ 13316}# + #{req\ 13419}# + (if (pair? #{out\ 13427}#) + (reverse #{out\ 13427}#) #f) - (syntax->datum #{rest\ 989}#) - (if (pair? #{kw\ 990}#) - (cdr #{kw\ 990}#) - #{kw\ 990}#) - #{body\ 991}# - (cons #{v\ 1028}# #{vars\ 992}#) - #{r*\ 1032}# - #{w*\ 1034}# - (if (pair? #{kw\ 990}#) - (car #{kw\ 990}#) + (syntax->datum #{rest\ 13421}#) + (if (pair? #{kw\ 13422}#) + (cdr #{kw\ 13422}#) + #{kw\ 13422}#) + #{body\ 13423}# + (cons #{v\ 13460}# #{vars\ 13424}#) + #{r*\ 13464}# + #{w*\ 13466}# + (if (pair? #{kw\ 13422}#) + (car #{kw\ 13422}#) #f) '() - #{inits\ 996}#))))) - (#{expand-kw\ 884}# - #{req\ 987}# - (if (pair? #{out\ 995}#) - (reverse #{out\ 995}#) + #{inits\ 13428}#))))) + (#{expand-kw\ 13316}# + #{req\ 13419}# + (if (pair? #{out\ 13427}#) + (reverse #{out\ 13427}#) #f) #f - (if (pair? #{kw\ 990}#) - (cdr #{kw\ 990}#) - #{kw\ 990}#) - #{body\ 991}# - #{vars\ 992}# - #{r*\ 993}# - #{w*\ 994}# - (if (pair? #{kw\ 990}#) (car #{kw\ 990}#) #f) + (if (pair? #{kw\ 13422}#) + (cdr #{kw\ 13422}#) + #{kw\ 13422}#) + #{body\ 13423}# + #{vars\ 13424}# + #{r*\ 13425}# + #{w*\ 13426}# + (if (pair? #{kw\ 13422}#) + (car #{kw\ 13422}#) + #f) '() - #{inits\ 996}#))))) - (#{expand-req\ 880}# - (lambda (#{req\ 1036}# - #{opt\ 1037}# - #{rest\ 1038}# - #{kw\ 1039}# - #{body\ 1040}#) - (let ((#{vars\ 1048}# - (map #{gen-var\ 480}# #{req\ 1036}#)) - (#{labels\ 1049}# - (#{gen-labels\ 385}# #{req\ 1036}#))) - (let ((#{r*\ 1052}# - (#{extend-var-env\ 357}# - #{labels\ 1049}# - #{vars\ 1048}# - #{r\ 866}#)) - (#{w*\ 1053}# - (#{make-binding-wrap\ 414}# - #{req\ 1036}# - #{labels\ 1049}# - #{w\ 867}#))) - (#{expand-opt\ 882}# - (map syntax->datum #{req\ 1036}#) - #{opt\ 1037}# - #{rest\ 1038}# - #{kw\ 1039}# - #{body\ 1040}# - (reverse #{vars\ 1048}#) - #{r*\ 1052}# - #{w*\ 1053}# + #{inits\ 13428}#))))) + (#{expand-req\ 13312}# + (lambda (#{req\ 13468}# + #{opt\ 13469}# + #{rest\ 13470}# + #{kw\ 13471}# + #{body\ 13472}#) + (let ((#{vars\ 13480}# + (map #{gen-var\ 13029}# #{req\ 13468}#)) + (#{labels\ 13481}# + (#{gen-labels\ 12934}# #{req\ 13468}#))) + (let ((#{r*\ 13484}# + (#{extend-var-env\ 12906}# + #{labels\ 13481}# + #{vars\ 13480}# + #{r\ 13298}#)) + (#{w*\ 13485}# + (#{make-binding-wrap\ 12963}# + #{req\ 13468}# + #{labels\ 13481}# + #{w\ 13299}#))) + (#{expand-opt\ 13314}# + (map syntax->datum #{req\ 13468}#) + #{opt\ 13469}# + #{rest\ 13470}# + #{kw\ 13471}# + #{body\ 13472}# + (reverse #{vars\ 13480}#) + #{r*\ 13484}# + #{w*\ 13485}# '() '())))))) - ((lambda (#{tmp\ 1054}#) - ((lambda (#{tmp\ 1055}#) - (if #{tmp\ 1055}# + ((lambda (#{tmp\ 13486}#) + ((lambda (#{tmp\ 13487}#) + (if #{tmp\ 13487}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 1055}#) - ((lambda (#{tmp\ 1056}#) - (if #{tmp\ 1056}# - (apply (lambda (#{args\ 1063}# - #{e1\ 1064}# - #{e2\ 1065}# - #{args*\ 1066}# - #{e1*\ 1067}# - #{e2*\ 1068}#) + #{tmp\ 13487}#) + ((lambda (#{tmp\ 13488}#) + (if #{tmp\ 13488}# + (apply (lambda (#{args\ 13495}# + #{e1\ 13496}# + #{e2\ 13497}# + #{args*\ 13498}# + #{e1*\ 13499}# + #{e2*\ 13500}#) (call-with-values (lambda () - (#{get-formals\ 870}# - #{args\ 1063}#)) - (lambda (#{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}#) + (#{get-formals\ 13302}# + #{args\ 13495}#)) + (lambda (#{req\ 13501}# + #{opt\ 13502}# + #{rest\ 13503}# + #{kw\ 13504}#) (call-with-values (lambda () - (#{expand-req\ 880}# - #{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}# - (cons #{e1\ 1064}# - #{e2\ 1065}#))) - (lambda (#{meta\ 1078}# - #{req\ 1079}# - #{opt\ 1080}# - #{rest\ 1081}# - #{kw\ 1082}# - #{inits\ 1083}# - #{vars\ 1084}# - #{body\ 1085}#) + (#{expand-req\ 13312}# + #{req\ 13501}# + #{opt\ 13502}# + #{rest\ 13503}# + #{kw\ 13504}# + (cons #{e1\ 13496}# + #{e2\ 13497}#))) + (lambda (#{meta\ 13510}# + #{req\ 13511}# + #{opt\ 13512}# + #{rest\ 13513}# + #{kw\ 13514}# + #{inits\ 13515}# + #{vars\ 13516}# + #{body\ 13517}#) (call-with-values (lambda () - (#{chi-lambda-case\ 476}# - #{e\ 865}# - #{r\ 866}# - #{w\ 867}# - #{s\ 868}# - #{mod\ 869}# - #{get-formals\ 870}# - (map (lambda (#{tmp\ 1096}# - #{tmp\ 1095}# - #{tmp\ 1094}#) - (cons #{tmp\ 1094}# - (cons #{tmp\ 1095}# - #{tmp\ 1096}#))) - #{e2*\ 1068}# - #{e1*\ 1067}# - #{args*\ 1066}#))) - (lambda (#{meta*\ 1098}# - #{else*\ 1099}#) + (#{chi-lambda-case\ 13025}# + #{e\ 13297}# + #{r\ 13298}# + #{w\ 13299}# + #{s\ 13300}# + #{mod\ 13301}# + #{get-formals\ 13302}# + (map (lambda (#{tmp\ 13528}# + #{tmp\ 13527}# + #{tmp\ 13526}#) + (cons #{tmp\ 13526}# + (cons #{tmp\ 13527}# + #{tmp\ 13528}#))) + #{e2*\ 13500}# + #{e1*\ 13499}# + #{args*\ 13498}#))) + (lambda (#{meta*\ 13530}# + #{else*\ 13531}#) (values (append - #{meta\ 1078}# - #{meta*\ 1098}#) - (#{build-lambda-case\ 313}# - #{s\ 868}# - #{req\ 1079}# - #{opt\ 1080}# - #{rest\ 1081}# - #{kw\ 1082}# - #{inits\ 1083}# - #{vars\ 1084}# - #{body\ 1085}# - #{else*\ 1099}#))))))))) - #{tmp\ 1056}#) + #{meta\ 13510}# + #{meta*\ 13530}#) + (#{build-lambda-case\ 12862}# + #{s\ 13300}# + #{req\ 13511}# + #{opt\ 13512}# + #{rest\ 13513}# + #{kw\ 13514}# + #{inits\ 13515}# + #{vars\ 13516}# + #{body\ 13517}# + #{else*\ 13531}#))))))))) + #{tmp\ 13488}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1054}#))) + #{tmp\ 13486}#))) ($sc-dispatch - #{tmp\ 1054}# + #{tmp\ 13486}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 1054}# (quote ())))) - #{clauses\ 871}#)))) - (#{lambda*-formals\ 474}# - (lambda (#{orig-args\ 1102}#) - (letrec ((#{check\ 1113}# - (lambda (#{req\ 1114}# - #{opt\ 1115}# - #{rest\ 1116}# - #{kw\ 1117}#) - (if (#{distinct-bound-ids?\ 432}# + ($sc-dispatch #{tmp\ 13486}# (quote ())))) + #{clauses\ 13303}#)))) + (#{lambda*-formals\ 13023}# + (lambda (#{orig-args\ 13534}#) + (letrec ((#{check\ 13545}# + (lambda (#{req\ 13546}# + #{opt\ 13547}# + #{rest\ 13548}# + #{kw\ 13549}#) + (if (#{distinct-bound-ids?\ 12981}# (append - #{req\ 1114}# - (map car #{opt\ 1115}#) - (if #{rest\ 1116}# - (list #{rest\ 1116}#) + #{req\ 13546}# + (map car #{opt\ 13547}#) + (if #{rest\ 13548}# + (list #{rest\ 13548}#) '()) - (if (pair? #{kw\ 1117}#) - (map cadr (cdr #{kw\ 1117}#)) + (if (pair? #{kw\ 13549}#) + (map cadr (cdr #{kw\ 13549}#)) '()))) (values - #{req\ 1114}# - #{opt\ 1115}# - #{rest\ 1116}# - #{kw\ 1117}#) + #{req\ 13546}# + #{opt\ 13547}# + #{rest\ 13548}# + #{kw\ 13549}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 1102}#)))) - (#{rest\ 1111}# - (lambda (#{args\ 1125}# - #{req\ 1126}# - #{opt\ 1127}# - #{kw\ 1128}#) - ((lambda (#{tmp\ 1133}#) - ((lambda (#{tmp\ 1134}#) - (if (if #{tmp\ 1134}# - (apply (lambda (#{r\ 1136}#) - (#{id?\ 367}# #{r\ 1136}#)) - #{tmp\ 1134}#) + #{orig-args\ 13534}#)))) + (#{rest\ 13543}# + (lambda (#{args\ 13557}# + #{req\ 13558}# + #{opt\ 13559}# + #{kw\ 13560}#) + ((lambda (#{tmp\ 13565}#) + ((lambda (#{tmp\ 13566}#) + (if (if #{tmp\ 13566}# + (apply (lambda (#{r\ 13568}#) + (#{id?\ 12916}# #{r\ 13568}#)) + #{tmp\ 13566}#) #f) - (apply (lambda (#{r\ 1138}#) - (#{check\ 1113}# - #{req\ 1126}# - #{opt\ 1127}# - #{r\ 1138}# - #{kw\ 1128}#)) - #{tmp\ 1134}#) - ((lambda (#{else\ 1140}#) + (apply (lambda (#{r\ 13570}#) + (#{check\ 13545}# + #{req\ 13558}# + #{opt\ 13559}# + #{r\ 13570}# + #{kw\ 13560}#)) + #{tmp\ 13566}#) + ((lambda (#{else\ 13572}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 1102}# - #{args\ 1125}#)) - #{tmp\ 1133}#))) - (list #{tmp\ 1133}#))) - #{args\ 1125}#))) - (#{key\ 1109}# - (lambda (#{args\ 1141}# - #{req\ 1142}# - #{opt\ 1143}# - #{rkey\ 1144}#) - ((lambda (#{tmp\ 1149}#) - ((lambda (#{tmp\ 1150}#) - (if #{tmp\ 1150}# + #{orig-args\ 13534}# + #{args\ 13557}#)) + #{tmp\ 13565}#))) + (list #{tmp\ 13565}#))) + #{args\ 13557}#))) + (#{key\ 13541}# + (lambda (#{args\ 13573}# + #{req\ 13574}# + #{opt\ 13575}# + #{rkey\ 13576}#) + ((lambda (#{tmp\ 13581}#) + ((lambda (#{tmp\ 13582}#) + (if #{tmp\ 13582}# (apply (lambda () - (#{check\ 1113}# - #{req\ 1142}# - #{opt\ 1143}# + (#{check\ 13545}# + #{req\ 13574}# + #{opt\ 13575}# #f (cons #f (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1150}#) - ((lambda (#{tmp\ 1151}#) - (if (if #{tmp\ 1151}# - (apply (lambda (#{a\ 1154}# - #{b\ 1155}#) - (#{id?\ 367}# - #{a\ 1154}#)) - #{tmp\ 1151}#) + #{rkey\ 13576}#)))) + #{tmp\ 13582}#) + ((lambda (#{tmp\ 13583}#) + (if (if #{tmp\ 13583}# + (apply (lambda (#{a\ 13586}# + #{b\ 13587}#) + (#{id?\ 12916}# + #{a\ 13586}#)) + #{tmp\ 13583}#) #f) - (apply (lambda (#{a\ 1158}# - #{b\ 1159}#) - ((lambda (#{tmp\ 1161}#) - ((lambda (#{k\ 1163}#) - (#{key\ 1109}# - #{b\ 1159}# - #{req\ 1142}# - #{opt\ 1143}# - (cons (cons #{k\ 1163}# - (cons #{a\ 1158}# + (apply (lambda (#{a\ 13590}# + #{b\ 13591}#) + ((lambda (#{tmp\ 13593}#) + ((lambda (#{k\ 13595}#) + (#{key\ 13541}# + #{b\ 13591}# + #{req\ 13574}# + #{opt\ 13575}# + (cons (cons #{k\ 13595}# + (cons #{a\ 13590}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i1162")) + #("i13594")) #(ribcage #(a b) #((top) (top)) - #("i1156" - "i1157")) + #("i13588" + "i13589")) #(ribcage () () @@ -651,10 +665,10 @@ (top) (top) (top)) - #("i1145" - "i1146" - "i1147" - "i1148")) + #("i13577" + "i13578" + "i13579" + "i13580")) #(ribcage (check rest key @@ -665,15 +679,15 @@ (top) (top) (top)) - ("i1112" - "i1110" - "i1108" - "i1106" - "i1104")) + ("i13544" + "i13542" + "i13540" + "i13538" + "i13536")) #(ribcage #(orig-args) #((top)) - #("i1103")) + #("i13535")) #(ribcage (lambda-var-list gen-var @@ -945,141 +959,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -1087,228 +1101,230 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))))) - #{rkey\ 1144}#))) - #{tmp\ 1161}#)) + #{rkey\ 13576}#))) + #{tmp\ 13593}#)) (symbol->keyword (syntax->datum - #{a\ 1158}#)))) - #{tmp\ 1151}#) - ((lambda (#{tmp\ 1164}#) - (if (if #{tmp\ 1164}# - (apply (lambda (#{a\ 1168}# - #{init\ 1169}# - #{b\ 1170}#) - (#{id?\ 367}# - #{a\ 1168}#)) - #{tmp\ 1164}#) + #{a\ 13590}#)))) + #{tmp\ 13583}#) + ((lambda (#{tmp\ 13596}#) + (if (if #{tmp\ 13596}# + (apply (lambda (#{a\ 13600}# + #{init\ 13601}# + #{b\ 13602}#) + (#{id?\ 12916}# + #{a\ 13600}#)) + #{tmp\ 13596}#) #f) - (apply (lambda (#{a\ 1174}# - #{init\ 1175}# - #{b\ 1176}#) - ((lambda (#{tmp\ 1178}#) - ((lambda (#{k\ 1180}#) - (#{key\ 1109}# - #{b\ 1176}# - #{req\ 1142}# - #{opt\ 1143}# - (cons (list #{k\ 1180}# - #{a\ 1174}# - #{init\ 1175}#) - #{rkey\ 1144}#))) - #{tmp\ 1178}#)) + (apply (lambda (#{a\ 13606}# + #{init\ 13607}# + #{b\ 13608}#) + ((lambda (#{tmp\ 13610}#) + ((lambda (#{k\ 13612}#) + (#{key\ 13541}# + #{b\ 13608}# + #{req\ 13574}# + #{opt\ 13575}# + (cons (list #{k\ 13612}# + #{a\ 13606}# + #{init\ 13607}#) + #{rkey\ 13576}#))) + #{tmp\ 13610}#)) (symbol->keyword (syntax->datum - #{a\ 1174}#)))) - #{tmp\ 1164}#) - ((lambda (#{tmp\ 1181}#) - (if (if #{tmp\ 1181}# - (apply (lambda (#{a\ 1186}# - #{init\ 1187}# - #{k\ 1188}# - #{b\ 1189}#) - (if (#{id?\ 367}# - #{a\ 1186}#) + #{a\ 13606}#)))) + #{tmp\ 13596}#) + ((lambda (#{tmp\ 13613}#) + (if (if #{tmp\ 13613}# + (apply (lambda (#{a\ 13618}# + #{init\ 13619}# + #{k\ 13620}# + #{b\ 13621}#) + (if (#{id?\ 12916}# + #{a\ 13618}#) (keyword? (syntax->datum - #{k\ 1188}#)) + #{k\ 13620}#)) #f)) - #{tmp\ 1181}#) + #{tmp\ 13613}#) #f) - (apply (lambda (#{a\ 1196}# - #{init\ 1197}# - #{k\ 1198}# - #{b\ 1199}#) - (#{key\ 1109}# - #{b\ 1199}# - #{req\ 1142}# - #{opt\ 1143}# - (cons (list #{k\ 1198}# - #{a\ 1196}# - #{init\ 1197}#) - #{rkey\ 1144}#))) - #{tmp\ 1181}#) - ((lambda (#{tmp\ 1200}#) - (if (if #{tmp\ 1200}# - (apply (lambda (#{aok\ 1202}#) + (apply (lambda (#{a\ 13628}# + #{init\ 13629}# + #{k\ 13630}# + #{b\ 13631}#) + (#{key\ 13541}# + #{b\ 13631}# + #{req\ 13574}# + #{opt\ 13575}# + (cons (list #{k\ 13630}# + #{a\ 13628}# + #{init\ 13629}#) + #{rkey\ 13576}#))) + #{tmp\ 13613}#) + ((lambda (#{tmp\ 13632}#) + (if (if #{tmp\ 13632}# + (apply (lambda (#{aok\ 13634}#) (eq? (syntax->datum - #{aok\ 1202}#) + #{aok\ 13634}#) #:allow-other-keys)) - #{tmp\ 1200}#) + #{tmp\ 13632}#) #f) - (apply (lambda (#{aok\ 1204}#) - (#{check\ 1113}# - #{req\ 1142}# - #{opt\ 1143}# + (apply (lambda (#{aok\ 13636}#) + (#{check\ 13545}# + #{req\ 13574}# + #{opt\ 13575}# #f (cons #t (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1200}#) - ((lambda (#{tmp\ 1205}#) - (if (if #{tmp\ 1205}# - (apply (lambda (#{aok\ 1209}# - #{a\ 1210}# - #{b\ 1211}#) + #{rkey\ 13576}#)))) + #{tmp\ 13632}#) + ((lambda (#{tmp\ 13637}#) + (if (if #{tmp\ 13637}# + (apply (lambda (#{aok\ 13641}# + #{a\ 13642}# + #{b\ 13643}#) (if (eq? (syntax->datum - #{aok\ 1209}#) + #{aok\ 13641}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 1210}#) + #{a\ 13642}#) #:rest) #f)) - #{tmp\ 1205}#) + #{tmp\ 13637}#) #f) - (apply (lambda (#{aok\ 1217}# - #{a\ 1218}# - #{b\ 1219}#) - (#{rest\ 1111}# - #{b\ 1219}# - #{req\ 1142}# - #{opt\ 1143}# + (apply (lambda (#{aok\ 13649}# + #{a\ 13650}# + #{b\ 13651}#) + (#{rest\ 13543}# + #{b\ 13651}# + #{req\ 13574}# + #{opt\ 13575}# (cons #t (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1205}#) - ((lambda (#{tmp\ 1220}#) - (if (if #{tmp\ 1220}# - (apply (lambda (#{aok\ 1223}# - #{r\ 1224}#) + #{rkey\ 13576}#)))) + #{tmp\ 13637}#) + ((lambda (#{tmp\ 13652}#) + (if (if #{tmp\ 13652}# + (apply (lambda (#{aok\ 13655}# + #{r\ 13656}#) (if (eq? (syntax->datum - #{aok\ 1223}#) + #{aok\ 13655}#) #:allow-other-keys) - (#{id?\ 367}# - #{r\ 1224}#) + (#{id?\ 12916}# + #{r\ 13656}#) #f)) - #{tmp\ 1220}#) + #{tmp\ 13652}#) #f) - (apply (lambda (#{aok\ 1229}# - #{r\ 1230}#) - (#{rest\ 1111}# - #{r\ 1230}# - #{req\ 1142}# - #{opt\ 1143}# + (apply (lambda (#{aok\ 13661}# + #{r\ 13662}#) + (#{rest\ 13543}# + #{r\ 13662}# + #{req\ 13574}# + #{opt\ 13575}# (cons #t (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1220}#) - ((lambda (#{tmp\ 1231}#) - (if (if #{tmp\ 1231}# - (apply (lambda (#{a\ 1234}# - #{b\ 1235}#) + #{rkey\ 13576}#)))) + #{tmp\ 13652}#) + ((lambda (#{tmp\ 13663}#) + (if (if #{tmp\ 13663}# + (apply (lambda (#{a\ 13666}# + #{b\ 13667}#) (eq? (syntax->datum - #{a\ 1234}#) + #{a\ 13666}#) #:rest)) - #{tmp\ 1231}#) + #{tmp\ 13663}#) #f) - (apply (lambda (#{a\ 1238}# - #{b\ 1239}#) - (#{rest\ 1111}# - #{b\ 1239}# - #{req\ 1142}# - #{opt\ 1143}# + (apply (lambda (#{a\ 13670}# + #{b\ 13671}#) + (#{rest\ 13543}# + #{b\ 13671}# + #{req\ 13574}# + #{opt\ 13575}# (cons #f (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1231}#) - ((lambda (#{tmp\ 1240}#) - (if (if #{tmp\ 1240}# - (apply (lambda (#{r\ 1242}#) - (#{id?\ 367}# - #{r\ 1242}#)) - #{tmp\ 1240}#) + #{rkey\ 13576}#)))) + #{tmp\ 13663}#) + ((lambda (#{tmp\ 13672}#) + (if (if #{tmp\ 13672}# + (apply (lambda (#{r\ 13674}#) + (#{id?\ 12916}# + #{r\ 13674}#)) + #{tmp\ 13672}#) #f) - (apply (lambda (#{r\ 1244}#) - (#{rest\ 1111}# - #{r\ 1244}# - #{req\ 1142}# - #{opt\ 1143}# + (apply (lambda (#{r\ 13676}#) + (#{rest\ 13543}# + #{r\ 13676}# + #{req\ 13574}# + #{opt\ 13575}# (cons #f (reverse - #{rkey\ 1144}#)))) - #{tmp\ 1240}#) - ((lambda (#{else\ 1246}#) + #{rkey\ 13576}#)))) + #{tmp\ 13672}#) + ((lambda (#{else\ 13678}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 1102}# - #{args\ 1141}#)) - #{tmp\ 1149}#))) - (list #{tmp\ 1149}#)))) + #{orig-args\ 13534}# + #{args\ 13573}#)) + #{tmp\ 13581}#))) + (list #{tmp\ 13581}#)))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '(any any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '(any . any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '(any any any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '(any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1149}# + #{tmp\ 13581}# '(any . any))))) - ($sc-dispatch #{tmp\ 1149}# (quote ())))) - #{args\ 1141}#))) - (#{opt\ 1107}# - (lambda (#{args\ 1247}# #{req\ 1248}# #{ropt\ 1249}#) - ((lambda (#{tmp\ 1253}#) - ((lambda (#{tmp\ 1254}#) - (if #{tmp\ 1254}# + ($sc-dispatch #{tmp\ 13581}# (quote ())))) + #{args\ 13573}#))) + (#{opt\ 13539}# + (lambda (#{args\ 13679}# + #{req\ 13680}# + #{ropt\ 13681}#) + ((lambda (#{tmp\ 13685}#) + ((lambda (#{tmp\ 13686}#) + (if #{tmp\ 13686}# (apply (lambda () - (#{check\ 1113}# - #{req\ 1248}# - (reverse #{ropt\ 1249}#) + (#{check\ 13545}# + #{req\ 13680}# + (reverse #{ropt\ 13681}#) #f '())) - #{tmp\ 1254}#) - ((lambda (#{tmp\ 1255}#) - (if (if #{tmp\ 1255}# - (apply (lambda (#{a\ 1258}# - #{b\ 1259}#) - (#{id?\ 367}# - #{a\ 1258}#)) - #{tmp\ 1255}#) + #{tmp\ 13686}#) + ((lambda (#{tmp\ 13687}#) + (if (if #{tmp\ 13687}# + (apply (lambda (#{a\ 13690}# + #{b\ 13691}#) + (#{id?\ 12916}# + #{a\ 13690}#)) + #{tmp\ 13687}#) #f) - (apply (lambda (#{a\ 1262}# - #{b\ 1263}#) - (#{opt\ 1107}# - #{b\ 1263}# - #{req\ 1248}# - (cons (cons #{a\ 1262}# + (apply (lambda (#{a\ 13694}# + #{b\ 13695}#) + (#{opt\ 13539}# + #{b\ 13695}# + #{req\ 13680}# + (cons (cons #{a\ 13694}# '(#(syntax-object #f ((top) @@ -1316,8 +1332,8 @@ #(a b) #((top) (top)) - #("i1260" - "i1261")) + #("i13692" + "i13693")) #(ribcage () () @@ -1329,9 +1345,9 @@ #((top) (top) (top)) - #("i1250" - "i1251" - "i1252")) + #("i13682" + "i13683" + "i13684")) #(ribcage (check rest key @@ -1342,15 +1358,15 @@ (top) (top) (top)) - ("i1112" - "i1110" - "i1108" - "i1106" - "i1104")) + ("i13544" + "i13542" + "i13540" + "i13538" + "i13536")) #(ribcage #(orig-args) #((top)) - #("i1103")) + #("i13535")) #(ribcage (lambda-var-list gen-var @@ -1622,141 +1638,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -1764,341 +1780,341 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)))) - #{ropt\ 1249}#))) - #{tmp\ 1255}#) - ((lambda (#{tmp\ 1264}#) - (if (if #{tmp\ 1264}# - (apply (lambda (#{a\ 1268}# - #{init\ 1269}# - #{b\ 1270}#) - (#{id?\ 367}# - #{a\ 1268}#)) - #{tmp\ 1264}#) + #{ropt\ 13681}#))) + #{tmp\ 13687}#) + ((lambda (#{tmp\ 13696}#) + (if (if #{tmp\ 13696}# + (apply (lambda (#{a\ 13700}# + #{init\ 13701}# + #{b\ 13702}#) + (#{id?\ 12916}# + #{a\ 13700}#)) + #{tmp\ 13696}#) #f) - (apply (lambda (#{a\ 1274}# - #{init\ 1275}# - #{b\ 1276}#) - (#{opt\ 1107}# - #{b\ 1276}# - #{req\ 1248}# - (cons (list #{a\ 1274}# - #{init\ 1275}#) - #{ropt\ 1249}#))) - #{tmp\ 1264}#) - ((lambda (#{tmp\ 1277}#) - (if (if #{tmp\ 1277}# - (apply (lambda (#{a\ 1280}# - #{b\ 1281}#) + (apply (lambda (#{a\ 13706}# + #{init\ 13707}# + #{b\ 13708}#) + (#{opt\ 13539}# + #{b\ 13708}# + #{req\ 13680}# + (cons (list #{a\ 13706}# + #{init\ 13707}#) + #{ropt\ 13681}#))) + #{tmp\ 13696}#) + ((lambda (#{tmp\ 13709}#) + (if (if #{tmp\ 13709}# + (apply (lambda (#{a\ 13712}# + #{b\ 13713}#) (eq? (syntax->datum - #{a\ 1280}#) + #{a\ 13712}#) #:key)) - #{tmp\ 1277}#) + #{tmp\ 13709}#) #f) - (apply (lambda (#{a\ 1284}# - #{b\ 1285}#) - (#{key\ 1109}# - #{b\ 1285}# - #{req\ 1248}# + (apply (lambda (#{a\ 13716}# + #{b\ 13717}#) + (#{key\ 13541}# + #{b\ 13717}# + #{req\ 13680}# (reverse - #{ropt\ 1249}#) + #{ropt\ 13681}#) '())) - #{tmp\ 1277}#) - ((lambda (#{tmp\ 1286}#) - (if (if #{tmp\ 1286}# - (apply (lambda (#{a\ 1289}# - #{b\ 1290}#) + #{tmp\ 13709}#) + ((lambda (#{tmp\ 13718}#) + (if (if #{tmp\ 13718}# + (apply (lambda (#{a\ 13721}# + #{b\ 13722}#) (eq? (syntax->datum - #{a\ 1289}#) + #{a\ 13721}#) #:rest)) - #{tmp\ 1286}#) + #{tmp\ 13718}#) #f) - (apply (lambda (#{a\ 1293}# - #{b\ 1294}#) - (#{rest\ 1111}# - #{b\ 1294}# - #{req\ 1248}# + (apply (lambda (#{a\ 13725}# + #{b\ 13726}#) + (#{rest\ 13543}# + #{b\ 13726}# + #{req\ 13680}# (reverse - #{ropt\ 1249}#) + #{ropt\ 13681}#) '())) - #{tmp\ 1286}#) - ((lambda (#{tmp\ 1295}#) - (if (if #{tmp\ 1295}# - (apply (lambda (#{r\ 1297}#) - (#{id?\ 367}# - #{r\ 1297}#)) - #{tmp\ 1295}#) + #{tmp\ 13718}#) + ((lambda (#{tmp\ 13727}#) + (if (if #{tmp\ 13727}# + (apply (lambda (#{r\ 13729}#) + (#{id?\ 12916}# + #{r\ 13729}#)) + #{tmp\ 13727}#) #f) - (apply (lambda (#{r\ 1299}#) - (#{rest\ 1111}# - #{r\ 1299}# - #{req\ 1248}# + (apply (lambda (#{r\ 13731}#) + (#{rest\ 13543}# + #{r\ 13731}# + #{req\ 13680}# (reverse - #{ropt\ 1249}#) + #{ropt\ 13681}#) '())) - #{tmp\ 1295}#) - ((lambda (#{else\ 1301}#) + #{tmp\ 13727}#) + ((lambda (#{else\ 13733}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 1102}# - #{args\ 1247}#)) - #{tmp\ 1253}#))) - (list #{tmp\ 1253}#)))) + #{orig-args\ 13534}# + #{args\ 13679}#)) + #{tmp\ 13685}#))) + (list #{tmp\ 13685}#)))) ($sc-dispatch - #{tmp\ 1253}# + #{tmp\ 13685}# '(any any))))) ($sc-dispatch - #{tmp\ 1253}# + #{tmp\ 13685}# '(any . any))))) ($sc-dispatch - #{tmp\ 1253}# + #{tmp\ 13685}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1253}# + #{tmp\ 13685}# '(any . any))))) - ($sc-dispatch #{tmp\ 1253}# (quote ())))) - #{args\ 1247}#))) - (#{req\ 1105}# - (lambda (#{args\ 1302}# #{rreq\ 1303}#) - ((lambda (#{tmp\ 1306}#) - ((lambda (#{tmp\ 1307}#) - (if #{tmp\ 1307}# + ($sc-dispatch #{tmp\ 13685}# (quote ())))) + #{args\ 13679}#))) + (#{req\ 13537}# + (lambda (#{args\ 13734}# #{rreq\ 13735}#) + ((lambda (#{tmp\ 13738}#) + ((lambda (#{tmp\ 13739}#) + (if #{tmp\ 13739}# (apply (lambda () - (#{check\ 1113}# - (reverse #{rreq\ 1303}#) + (#{check\ 13545}# + (reverse #{rreq\ 13735}#) '() #f '())) - #{tmp\ 1307}#) - ((lambda (#{tmp\ 1308}#) - (if (if #{tmp\ 1308}# - (apply (lambda (#{a\ 1311}# - #{b\ 1312}#) - (#{id?\ 367}# - #{a\ 1311}#)) - #{tmp\ 1308}#) + #{tmp\ 13739}#) + ((lambda (#{tmp\ 13740}#) + (if (if #{tmp\ 13740}# + (apply (lambda (#{a\ 13743}# + #{b\ 13744}#) + (#{id?\ 12916}# + #{a\ 13743}#)) + #{tmp\ 13740}#) #f) - (apply (lambda (#{a\ 1315}# - #{b\ 1316}#) - (#{req\ 1105}# - #{b\ 1316}# - (cons #{a\ 1315}# - #{rreq\ 1303}#))) - #{tmp\ 1308}#) - ((lambda (#{tmp\ 1317}#) - (if (if #{tmp\ 1317}# - (apply (lambda (#{a\ 1320}# - #{b\ 1321}#) + (apply (lambda (#{a\ 13747}# + #{b\ 13748}#) + (#{req\ 13537}# + #{b\ 13748}# + (cons #{a\ 13747}# + #{rreq\ 13735}#))) + #{tmp\ 13740}#) + ((lambda (#{tmp\ 13749}#) + (if (if #{tmp\ 13749}# + (apply (lambda (#{a\ 13752}# + #{b\ 13753}#) (eq? (syntax->datum - #{a\ 1320}#) + #{a\ 13752}#) #:optional)) - #{tmp\ 1317}#) + #{tmp\ 13749}#) #f) - (apply (lambda (#{a\ 1324}# - #{b\ 1325}#) - (#{opt\ 1107}# - #{b\ 1325}# + (apply (lambda (#{a\ 13756}# + #{b\ 13757}#) + (#{opt\ 13539}# + #{b\ 13757}# (reverse - #{rreq\ 1303}#) + #{rreq\ 13735}#) '())) - #{tmp\ 1317}#) - ((lambda (#{tmp\ 1326}#) - (if (if #{tmp\ 1326}# - (apply (lambda (#{a\ 1329}# - #{b\ 1330}#) + #{tmp\ 13749}#) + ((lambda (#{tmp\ 13758}#) + (if (if #{tmp\ 13758}# + (apply (lambda (#{a\ 13761}# + #{b\ 13762}#) (eq? (syntax->datum - #{a\ 1329}#) + #{a\ 13761}#) #:key)) - #{tmp\ 1326}#) + #{tmp\ 13758}#) #f) - (apply (lambda (#{a\ 1333}# - #{b\ 1334}#) - (#{key\ 1109}# - #{b\ 1334}# + (apply (lambda (#{a\ 13765}# + #{b\ 13766}#) + (#{key\ 13541}# + #{b\ 13766}# (reverse - #{rreq\ 1303}#) + #{rreq\ 13735}#) '() '())) - #{tmp\ 1326}#) - ((lambda (#{tmp\ 1335}#) - (if (if #{tmp\ 1335}# - (apply (lambda (#{a\ 1338}# - #{b\ 1339}#) + #{tmp\ 13758}#) + ((lambda (#{tmp\ 13767}#) + (if (if #{tmp\ 13767}# + (apply (lambda (#{a\ 13770}# + #{b\ 13771}#) (eq? (syntax->datum - #{a\ 1338}#) + #{a\ 13770}#) #:rest)) - #{tmp\ 1335}#) + #{tmp\ 13767}#) #f) - (apply (lambda (#{a\ 1342}# - #{b\ 1343}#) - (#{rest\ 1111}# - #{b\ 1343}# + (apply (lambda (#{a\ 13774}# + #{b\ 13775}#) + (#{rest\ 13543}# + #{b\ 13775}# (reverse - #{rreq\ 1303}#) + #{rreq\ 13735}#) '() '())) - #{tmp\ 1335}#) - ((lambda (#{tmp\ 1344}#) - (if (if #{tmp\ 1344}# - (apply (lambda (#{r\ 1346}#) - (#{id?\ 367}# - #{r\ 1346}#)) - #{tmp\ 1344}#) + #{tmp\ 13767}#) + ((lambda (#{tmp\ 13776}#) + (if (if #{tmp\ 13776}# + (apply (lambda (#{r\ 13778}#) + (#{id?\ 12916}# + #{r\ 13778}#)) + #{tmp\ 13776}#) #f) - (apply (lambda (#{r\ 1348}#) - (#{rest\ 1111}# - #{r\ 1348}# + (apply (lambda (#{r\ 13780}#) + (#{rest\ 13543}# + #{r\ 13780}# (reverse - #{rreq\ 1303}#) + #{rreq\ 13735}#) '() '())) - #{tmp\ 1344}#) - ((lambda (#{else\ 1350}#) + #{tmp\ 13776}#) + ((lambda (#{else\ 13782}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 1102}# - #{args\ 1302}#)) - #{tmp\ 1306}#))) - (list #{tmp\ 1306}#)))) + #{orig-args\ 13534}# + #{args\ 13734}#)) + #{tmp\ 13738}#))) + (list #{tmp\ 13738}#)))) ($sc-dispatch - #{tmp\ 1306}# + #{tmp\ 13738}# '(any any))))) ($sc-dispatch - #{tmp\ 1306}# + #{tmp\ 13738}# '(any . any))))) ($sc-dispatch - #{tmp\ 1306}# + #{tmp\ 13738}# '(any . any))))) ($sc-dispatch - #{tmp\ 1306}# + #{tmp\ 13738}# '(any . any))))) - ($sc-dispatch #{tmp\ 1306}# (quote ())))) - #{args\ 1302}#)))) - (#{req\ 1105}# #{orig-args\ 1102}# (quote ()))))) - (#{chi-simple-lambda\ 472}# - (lambda (#{e\ 1351}# - #{r\ 1352}# - #{w\ 1353}# - #{s\ 1354}# - #{mod\ 1355}# - #{req\ 1356}# - #{rest\ 1357}# - #{meta\ 1358}# - #{body\ 1359}#) - (let ((#{ids\ 1371}# - (if #{rest\ 1357}# - (append #{req\ 1356}# (list #{rest\ 1357}#)) - #{req\ 1356}#))) - (let ((#{vars\ 1373}# - (map #{gen-var\ 480}# #{ids\ 1371}#))) - (let ((#{labels\ 1375}# - (#{gen-labels\ 385}# #{ids\ 1371}#))) - (#{build-simple-lambda\ 309}# - #{s\ 1354}# - (map syntax->datum #{req\ 1356}#) - (if #{rest\ 1357}# - (syntax->datum #{rest\ 1357}#) + ($sc-dispatch #{tmp\ 13738}# (quote ())))) + #{args\ 13734}#)))) + (#{req\ 13537}# #{orig-args\ 13534}# (quote ()))))) + (#{chi-simple-lambda\ 13021}# + (lambda (#{e\ 13783}# + #{r\ 13784}# + #{w\ 13785}# + #{s\ 13786}# + #{mod\ 13787}# + #{req\ 13788}# + #{rest\ 13789}# + #{meta\ 13790}# + #{body\ 13791}#) + (let ((#{ids\ 13803}# + (if #{rest\ 13789}# + (append #{req\ 13788}# (list #{rest\ 13789}#)) + #{req\ 13788}#))) + (let ((#{vars\ 13805}# + (map #{gen-var\ 13029}# #{ids\ 13803}#))) + (let ((#{labels\ 13807}# + (#{gen-labels\ 12934}# #{ids\ 13803}#))) + (#{build-simple-lambda\ 12858}# + #{s\ 13786}# + (map syntax->datum #{req\ 13788}#) + (if #{rest\ 13789}# + (syntax->datum #{rest\ 13789}#) #f) - #{vars\ 1373}# - #{meta\ 1358}# - (#{chi-body\ 460}# - #{body\ 1359}# - (#{source-wrap\ 438}# - #{e\ 1351}# - #{w\ 1353}# - #{s\ 1354}# - #{mod\ 1355}#) - (#{extend-var-env\ 357}# - #{labels\ 1375}# - #{vars\ 1373}# - #{r\ 1352}#) - (#{make-binding-wrap\ 414}# - #{ids\ 1371}# - #{labels\ 1375}# - #{w\ 1353}#) - #{mod\ 1355}#))))))) - (#{lambda-formals\ 470}# - (lambda (#{orig-args\ 1378}#) - (letrec ((#{check\ 1383}# - (lambda (#{req\ 1384}# #{rest\ 1385}#) - (if (#{distinct-bound-ids?\ 432}# - (if #{rest\ 1385}# - (cons #{rest\ 1385}# #{req\ 1384}#) - #{req\ 1384}#)) - (values #{req\ 1384}# #f #{rest\ 1385}# #f) + #{vars\ 13805}# + #{meta\ 13790}# + (#{chi-body\ 13009}# + #{body\ 13791}# + (#{source-wrap\ 12987}# + #{e\ 13783}# + #{w\ 13785}# + #{s\ 13786}# + #{mod\ 13787}#) + (#{extend-var-env\ 12906}# + #{labels\ 13807}# + #{vars\ 13805}# + #{r\ 13784}#) + (#{make-binding-wrap\ 12963}# + #{ids\ 13803}# + #{labels\ 13807}# + #{w\ 13785}#) + #{mod\ 13787}#))))))) + (#{lambda-formals\ 13019}# + (lambda (#{orig-args\ 13810}#) + (letrec ((#{check\ 13815}# + (lambda (#{req\ 13816}# #{rest\ 13817}#) + (if (#{distinct-bound-ids?\ 12981}# + (if #{rest\ 13817}# + (cons #{rest\ 13817}# #{req\ 13816}#) + #{req\ 13816}#)) + (values #{req\ 13816}# #f #{rest\ 13817}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1378}#)))) - (#{req\ 1381}# - (lambda (#{args\ 1391}# #{rreq\ 1392}#) - ((lambda (#{tmp\ 1395}#) - ((lambda (#{tmp\ 1396}#) - (if #{tmp\ 1396}# + #{orig-args\ 13810}#)))) + (#{req\ 13813}# + (lambda (#{args\ 13823}# #{rreq\ 13824}#) + ((lambda (#{tmp\ 13827}#) + ((lambda (#{tmp\ 13828}#) + (if #{tmp\ 13828}# (apply (lambda () - (#{check\ 1383}# - (reverse #{rreq\ 1392}#) + (#{check\ 13815}# + (reverse #{rreq\ 13824}#) #f)) - #{tmp\ 1396}#) - ((lambda (#{tmp\ 1397}#) - (if (if #{tmp\ 1397}# - (apply (lambda (#{a\ 1400}# - #{b\ 1401}#) - (#{id?\ 367}# - #{a\ 1400}#)) - #{tmp\ 1397}#) + #{tmp\ 13828}#) + ((lambda (#{tmp\ 13829}#) + (if (if #{tmp\ 13829}# + (apply (lambda (#{a\ 13832}# + #{b\ 13833}#) + (#{id?\ 12916}# + #{a\ 13832}#)) + #{tmp\ 13829}#) #f) - (apply (lambda (#{a\ 1404}# - #{b\ 1405}#) - (#{req\ 1381}# - #{b\ 1405}# - (cons #{a\ 1404}# - #{rreq\ 1392}#))) - #{tmp\ 1397}#) - ((lambda (#{tmp\ 1406}#) - (if (if #{tmp\ 1406}# - (apply (lambda (#{r\ 1408}#) - (#{id?\ 367}# - #{r\ 1408}#)) - #{tmp\ 1406}#) + (apply (lambda (#{a\ 13836}# + #{b\ 13837}#) + (#{req\ 13813}# + #{b\ 13837}# + (cons #{a\ 13836}# + #{rreq\ 13824}#))) + #{tmp\ 13829}#) + ((lambda (#{tmp\ 13838}#) + (if (if #{tmp\ 13838}# + (apply (lambda (#{r\ 13840}#) + (#{id?\ 12916}# + #{r\ 13840}#)) + #{tmp\ 13838}#) #f) - (apply (lambda (#{r\ 1410}#) - (#{check\ 1383}# + (apply (lambda (#{r\ 13842}#) + (#{check\ 13815}# (reverse - #{rreq\ 1392}#) - #{r\ 1410}#)) - #{tmp\ 1406}#) - ((lambda (#{else\ 1412}#) + #{rreq\ 13824}#) + #{r\ 13842}#)) + #{tmp\ 13838}#) + ((lambda (#{else\ 13844}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1378}# - #{args\ 1391}#)) - #{tmp\ 1395}#))) - (list #{tmp\ 1395}#)))) + #{orig-args\ 13810}# + #{args\ 13823}#)) + #{tmp\ 13827}#))) + (list #{tmp\ 13827}#)))) ($sc-dispatch - #{tmp\ 1395}# + #{tmp\ 13827}# '(any . any))))) - ($sc-dispatch #{tmp\ 1395}# (quote ())))) - #{args\ 1391}#)))) - (#{req\ 1381}# #{orig-args\ 1378}# (quote ()))))) - (#{ellipsis?\ 468}# - (lambda (#{x\ 1413}#) - (if (#{nonsymbol-id?\ 365}# #{x\ 1413}#) - (#{free-id=?\ 426}# - #{x\ 1413}# + ($sc-dispatch #{tmp\ 13827}# (quote ())))) + #{args\ 13823}#)))) + (#{req\ 13813}# #{orig-args\ 13810}# (quote ()))))) + (#{ellipsis?\ 13017}# + (lambda (#{x\ 13845}#) + (if (#{nonsymbol-id?\ 12914}# #{x\ 13845}#) + (#{free-id=?\ 12975}# + #{x\ 13845}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1414")) + #(ribcage #(x) #((top)) #("i13846")) #(ribcage (lambda-var-list gen-var @@ -2370,1431 +2386,1441 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" "i12628" "i12626"))) (hygiene guile))) #f))) - (#{chi-void\ 466}# - (lambda () (#{build-void\ 287}# #f))) - (#{eval-local-transformer\ 464}# - (lambda (#{expanded\ 1418}# #{mod\ 1419}#) - (let ((#{p\ 1423}# - (#{local-eval-hook\ 278}# - #{expanded\ 1418}# - #{mod\ 1419}#))) - (if (procedure? #{p\ 1423}#) - (cons #{p\ 1423}# (module-name (current-module))) + (#{chi-void\ 13015}# + (lambda () (#{build-void\ 12836}# #f))) + (#{eval-local-transformer\ 13013}# + (lambda (#{expanded\ 13850}# #{mod\ 13851}#) + (let ((#{p\ 13855}# + (#{local-eval-hook\ 12827}# + #{expanded\ 13850}# + #{mod\ 13851}#))) + (if (procedure? #{p\ 13855}#) + (cons #{p\ 13855}# + (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1423}#))))) - (#{chi-local-syntax\ 462}# - (lambda (#{rec?\ 1424}# - #{e\ 1425}# - #{r\ 1426}# - #{w\ 1427}# - #{s\ 1428}# - #{mod\ 1429}# - #{k\ 1430}#) - ((lambda (#{tmp\ 1438}#) - ((lambda (#{tmp\ 1439}#) - (if #{tmp\ 1439}# - (apply (lambda (#{_\ 1445}# - #{id\ 1446}# - #{val\ 1447}# - #{e1\ 1448}# - #{e2\ 1449}#) - (let ((#{ids\ 1451}# #{id\ 1446}#)) - (if (not (#{valid-bound-ids?\ 430}# - #{ids\ 1451}#)) + #{p\ 13855}#))))) + (#{chi-local-syntax\ 13011}# + (lambda (#{rec?\ 13856}# + #{e\ 13857}# + #{r\ 13858}# + #{w\ 13859}# + #{s\ 13860}# + #{mod\ 13861}# + #{k\ 13862}#) + ((lambda (#{tmp\ 13870}#) + ((lambda (#{tmp\ 13871}#) + (if #{tmp\ 13871}# + (apply (lambda (#{_\ 13877}# + #{id\ 13878}# + #{val\ 13879}# + #{e1\ 13880}# + #{e2\ 13881}#) + (let ((#{ids\ 13883}# #{id\ 13878}#)) + (if (not (#{valid-bound-ids?\ 12979}# + #{ids\ 13883}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1425}#) - (let ((#{labels\ 1454}# - (#{gen-labels\ 385}# - #{ids\ 1451}#))) - (let ((#{new-w\ 1456}# - (#{make-binding-wrap\ 414}# - #{ids\ 1451}# - #{labels\ 1454}# - #{w\ 1427}#))) - (#{k\ 1430}# - (cons #{e1\ 1448}# #{e2\ 1449}#) - (#{extend-env\ 355}# - #{labels\ 1454}# - (let ((#{w\ 1460}# - (if #{rec?\ 1424}# - #{new-w\ 1456}# - #{w\ 1427}#)) - (#{trans-r\ 1461}# - (#{macros-only-env\ 359}# - #{r\ 1426}#))) - (map (lambda (#{x\ 1462}#) + #{e\ 13857}#) + (let ((#{labels\ 13886}# + (#{gen-labels\ 12934}# + #{ids\ 13883}#))) + (let ((#{new-w\ 13888}# + (#{make-binding-wrap\ 12963}# + #{ids\ 13883}# + #{labels\ 13886}# + #{w\ 13859}#))) + (#{k\ 13862}# + (cons #{e1\ 13880}# #{e2\ 13881}#) + (#{extend-env\ 12904}# + #{labels\ 13886}# + (let ((#{w\ 13892}# + (if #{rec?\ 13856}# + #{new-w\ 13888}# + #{w\ 13859}#)) + (#{trans-r\ 13893}# + (#{macros-only-env\ 12908}# + #{r\ 13858}#))) + (map (lambda (#{x\ 13894}#) (cons 'macro - (#{eval-local-transformer\ 464}# - (#{chi\ 452}# - #{x\ 1462}# - #{trans-r\ 1461}# - #{w\ 1460}# - #{mod\ 1429}#) - #{mod\ 1429}#))) - #{val\ 1447}#)) - #{r\ 1426}#) - #{new-w\ 1456}# - #{s\ 1428}# - #{mod\ 1429}#)))))) - #{tmp\ 1439}#) - ((lambda (#{_\ 1467}#) + (#{eval-local-transformer\ 13013}# + (#{chi\ 13001}# + #{x\ 13894}# + #{trans-r\ 13893}# + #{w\ 13892}# + #{mod\ 13861}#) + #{mod\ 13861}#))) + #{val\ 13879}#)) + #{r\ 13858}#) + #{new-w\ 13888}# + #{s\ 13860}# + #{mod\ 13861}#)))))) + #{tmp\ 13871}#) + ((lambda (#{_\ 13899}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 438}# - #{e\ 1425}# - #{w\ 1427}# - #{s\ 1428}# - #{mod\ 1429}#))) - #{tmp\ 1438}#))) + (#{source-wrap\ 12987}# + #{e\ 13857}# + #{w\ 13859}# + #{s\ 13860}# + #{mod\ 13861}#))) + #{tmp\ 13870}#))) ($sc-dispatch - #{tmp\ 1438}# + #{tmp\ 13870}# '(any #(each (any any)) any . each-any)))) - #{e\ 1425}#))) - (#{chi-body\ 460}# - (lambda (#{body\ 1468}# - #{outer-form\ 1469}# - #{r\ 1470}# - #{w\ 1471}# - #{mod\ 1472}#) - (let ((#{r\ 1480}# + #{e\ 13857}#))) + (#{chi-body\ 13009}# + (lambda (#{body\ 13900}# + #{outer-form\ 13901}# + #{r\ 13902}# + #{w\ 13903}# + #{mod\ 13904}#) + (let ((#{r\ 13912}# (cons '("placeholder" placeholder) - #{r\ 1470}#))) - (let ((#{ribcage\ 1482}# - (#{make-ribcage\ 388}# + #{r\ 13902}#))) + (let ((#{ribcage\ 13914}# + (#{make-ribcage\ 12937}# '() '() '()))) - (let ((#{w\ 1485}# - (#{make-wrap\ 372}# - (#{wrap-marks\ 374}# #{w\ 1471}#) - (cons #{ribcage\ 1482}# - (#{wrap-subst\ 376}# #{w\ 1471}#))))) - (letrec ((#{parse\ 1494}# - (lambda (#{body\ 1495}# - #{ids\ 1496}# - #{labels\ 1497}# - #{var-ids\ 1498}# - #{vars\ 1499}# - #{vals\ 1500}# - #{bindings\ 1501}#) - (if (null? #{body\ 1495}#) + (let ((#{w\ 13917}# + (#{make-wrap\ 12921}# + (#{wrap-marks\ 12923}# #{w\ 13903}#) + (cons #{ribcage\ 13914}# + (#{wrap-subst\ 12925}# #{w\ 13903}#))))) + (letrec ((#{parse\ 13926}# + (lambda (#{body\ 13927}# + #{ids\ 13928}# + #{labels\ 13929}# + #{var-ids\ 13930}# + #{vars\ 13931}# + #{vals\ 13932}# + #{bindings\ 13933}#) + (if (null? #{body\ 13927}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1469}#) - (let ((#{e\ 1506}# (cdar #{body\ 1495}#)) - (#{er\ 1507}# (caar #{body\ 1495}#))) + #{outer-form\ 13901}#) + (let ((#{e\ 13938}# (cdar #{body\ 13927}#)) + (#{er\ 13939}# + (caar #{body\ 13927}#))) (call-with-values (lambda () - (#{syntax-type\ 448}# - #{e\ 1506}# - #{er\ 1507}# + (#{syntax-type\ 12997}# + #{e\ 13938}# + #{er\ 13939}# '(()) - (#{source-annotation\ 346}# - #{er\ 1507}#) - #{ribcage\ 1482}# - #{mod\ 1472}# + (#{source-annotation\ 12895}# + #{er\ 13939}#) + #{ribcage\ 13914}# + #{mod\ 13904}# #f)) - (lambda (#{type\ 1509}# - #{value\ 1510}# - #{e\ 1511}# - #{w\ 1512}# - #{s\ 1513}# - #{mod\ 1514}#) - (if (memv #{type\ 1509}# + (lambda (#{type\ 13941}# + #{value\ 13942}# + #{e\ 13943}# + #{w\ 13944}# + #{s\ 13945}# + #{mod\ 13946}#) + (if (memv #{type\ 13941}# '(define-form)) - (let ((#{id\ 1524}# - (#{wrap\ 436}# - #{value\ 1510}# - #{w\ 1512}# - #{mod\ 1514}#)) - (#{label\ 1525}# - (#{gen-label\ 383}#))) - (let ((#{var\ 1527}# - (#{gen-var\ 480}# - #{id\ 1524}#))) + (let ((#{id\ 13956}# + (#{wrap\ 12985}# + #{value\ 13942}# + #{w\ 13944}# + #{mod\ 13946}#)) + (#{label\ 13957}# + (#{gen-label\ 12932}#))) + (let ((#{var\ 13959}# + (#{gen-var\ 13029}# + #{id\ 13956}#))) (begin - (#{extend-ribcage!\ 412}# - #{ribcage\ 1482}# - #{id\ 1524}# - #{label\ 1525}#) - (#{parse\ 1494}# - (cdr #{body\ 1495}#) - (cons #{id\ 1524}# - #{ids\ 1496}#) - (cons #{label\ 1525}# - #{labels\ 1497}#) - (cons #{id\ 1524}# - #{var-ids\ 1498}#) - (cons #{var\ 1527}# - #{vars\ 1499}#) - (cons (cons #{er\ 1507}# - (#{wrap\ 436}# - #{e\ 1511}# - #{w\ 1512}# - #{mod\ 1514}#)) - #{vals\ 1500}#) + (#{extend-ribcage!\ 12961}# + #{ribcage\ 13914}# + #{id\ 13956}# + #{label\ 13957}#) + (#{parse\ 13926}# + (cdr #{body\ 13927}#) + (cons #{id\ 13956}# + #{ids\ 13928}#) + (cons #{label\ 13957}# + #{labels\ 13929}#) + (cons #{id\ 13956}# + #{var-ids\ 13930}#) + (cons #{var\ 13959}# + #{vars\ 13931}#) + (cons (cons #{er\ 13939}# + (#{wrap\ 12985}# + #{e\ 13943}# + #{w\ 13944}# + #{mod\ 13946}#)) + #{vals\ 13932}#) (cons (cons 'lexical - #{var\ 1527}#) - #{bindings\ 1501}#))))) - (if (memv #{type\ 1509}# + #{var\ 13959}#) + #{bindings\ 13933}#))))) + (if (memv #{type\ 13941}# '(define-syntax-form)) - (let ((#{id\ 1532}# - (#{wrap\ 436}# - #{value\ 1510}# - #{w\ 1512}# - #{mod\ 1514}#)) - (#{label\ 1533}# - (#{gen-label\ 383}#))) + (let ((#{id\ 13964}# + (#{wrap\ 12985}# + #{value\ 13942}# + #{w\ 13944}# + #{mod\ 13946}#)) + (#{label\ 13965}# + (#{gen-label\ 12932}#))) (begin - (#{extend-ribcage!\ 412}# - #{ribcage\ 1482}# - #{id\ 1532}# - #{label\ 1533}#) - (#{parse\ 1494}# - (cdr #{body\ 1495}#) - (cons #{id\ 1532}# - #{ids\ 1496}#) - (cons #{label\ 1533}# - #{labels\ 1497}#) - #{var-ids\ 1498}# - #{vars\ 1499}# - #{vals\ 1500}# + (#{extend-ribcage!\ 12961}# + #{ribcage\ 13914}# + #{id\ 13964}# + #{label\ 13965}#) + (#{parse\ 13926}# + (cdr #{body\ 13927}#) + (cons #{id\ 13964}# + #{ids\ 13928}#) + (cons #{label\ 13965}# + #{labels\ 13929}#) + #{var-ids\ 13930}# + #{vars\ 13931}# + #{vals\ 13932}# (cons (cons 'macro - (cons #{er\ 1507}# - (#{wrap\ 436}# - #{e\ 1511}# - #{w\ 1512}# - #{mod\ 1514}#))) - #{bindings\ 1501}#)))) - (if (memv #{type\ 1509}# + (cons #{er\ 13939}# + (#{wrap\ 12985}# + #{e\ 13943}# + #{w\ 13944}# + #{mod\ 13946}#))) + #{bindings\ 13933}#)))) + (if (memv #{type\ 13941}# '(begin-form)) - ((lambda (#{tmp\ 1536}#) - ((lambda (#{tmp\ 1537}#) - (if #{tmp\ 1537}# - (apply (lambda (#{_\ 1540}# - #{e1\ 1541}#) - (#{parse\ 1494}# - (letrec ((#{f\ 1544}# - (lambda (#{forms\ 1545}#) - (if (null? #{forms\ 1545}#) - (cdr #{body\ 1495}#) - (cons (cons #{er\ 1507}# - (#{wrap\ 436}# - (car #{forms\ 1545}#) - #{w\ 1512}# - #{mod\ 1514}#)) - (#{f\ 1544}# - (cdr #{forms\ 1545}#))))))) - (#{f\ 1544}# - #{e1\ 1541}#)) - #{ids\ 1496}# - #{labels\ 1497}# - #{var-ids\ 1498}# - #{vars\ 1499}# - #{vals\ 1500}# - #{bindings\ 1501}#)) - #{tmp\ 1537}#) + ((lambda (#{tmp\ 13968}#) + ((lambda (#{tmp\ 13969}#) + (if #{tmp\ 13969}# + (apply (lambda (#{_\ 13972}# + #{e1\ 13973}#) + (#{parse\ 13926}# + (letrec ((#{f\ 13976}# + (lambda (#{forms\ 13977}#) + (if (null? #{forms\ 13977}#) + (cdr #{body\ 13927}#) + (cons (cons #{er\ 13939}# + (#{wrap\ 12985}# + (car #{forms\ 13977}#) + #{w\ 13944}# + #{mod\ 13946}#)) + (#{f\ 13976}# + (cdr #{forms\ 13977}#))))))) + (#{f\ 13976}# + #{e1\ 13973}#)) + #{ids\ 13928}# + #{labels\ 13929}# + #{var-ids\ 13930}# + #{vars\ 13931}# + #{vals\ 13932}# + #{bindings\ 13933}#)) + #{tmp\ 13969}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1536}#))) + #{tmp\ 13968}#))) ($sc-dispatch - #{tmp\ 1536}# + #{tmp\ 13968}# '(any . each-any)))) - #{e\ 1511}#) - (if (memv #{type\ 1509}# + #{e\ 13943}#) + (if (memv #{type\ 13941}# '(local-syntax-form)) - (#{chi-local-syntax\ 462}# - #{value\ 1510}# - #{e\ 1511}# - #{er\ 1507}# - #{w\ 1512}# - #{s\ 1513}# - #{mod\ 1514}# - (lambda (#{forms\ 1548}# - #{er\ 1549}# - #{w\ 1550}# - #{s\ 1551}# - #{mod\ 1552}#) - (#{parse\ 1494}# - (letrec ((#{f\ 1560}# - (lambda (#{forms\ 1561}#) - (if (null? #{forms\ 1561}#) - (cdr #{body\ 1495}#) - (cons (cons #{er\ 1549}# - (#{wrap\ 436}# - (car #{forms\ 1561}#) - #{w\ 1550}# - #{mod\ 1552}#)) - (#{f\ 1560}# - (cdr #{forms\ 1561}#))))))) - (#{f\ 1560}# - #{forms\ 1548}#)) - #{ids\ 1496}# - #{labels\ 1497}# - #{var-ids\ 1498}# - #{vars\ 1499}# - #{vals\ 1500}# - #{bindings\ 1501}#))) - (if (null? #{ids\ 1496}#) - (#{build-sequence\ 319}# + (#{chi-local-syntax\ 13011}# + #{value\ 13942}# + #{e\ 13943}# + #{er\ 13939}# + #{w\ 13944}# + #{s\ 13945}# + #{mod\ 13946}# + (lambda (#{forms\ 13980}# + #{er\ 13981}# + #{w\ 13982}# + #{s\ 13983}# + #{mod\ 13984}#) + (#{parse\ 13926}# + (letrec ((#{f\ 13992}# + (lambda (#{forms\ 13993}#) + (if (null? #{forms\ 13993}#) + (cdr #{body\ 13927}#) + (cons (cons #{er\ 13981}# + (#{wrap\ 12985}# + (car #{forms\ 13993}#) + #{w\ 13982}# + #{mod\ 13984}#)) + (#{f\ 13992}# + (cdr #{forms\ 13993}#))))))) + (#{f\ 13992}# + #{forms\ 13980}#)) + #{ids\ 13928}# + #{labels\ 13929}# + #{var-ids\ 13930}# + #{vars\ 13931}# + #{vals\ 13932}# + #{bindings\ 13933}#))) + (if (null? #{ids\ 13928}#) + (#{build-sequence\ 12868}# #f - (map (lambda (#{x\ 1564}#) - (#{chi\ 452}# - (cdr #{x\ 1564}#) - (car #{x\ 1564}#) + (map (lambda (#{x\ 13996}#) + (#{chi\ 13001}# + (cdr #{x\ 13996}#) + (car #{x\ 13996}#) '(()) - #{mod\ 1514}#)) - (cons (cons #{er\ 1507}# - (#{source-wrap\ 438}# - #{e\ 1511}# - #{w\ 1512}# - #{s\ 1513}# - #{mod\ 1514}#)) - (cdr #{body\ 1495}#)))) + #{mod\ 13946}#)) + (cons (cons #{er\ 13939}# + (#{source-wrap\ 12987}# + #{e\ 13943}# + #{w\ 13944}# + #{s\ 13945}# + #{mod\ 13946}#)) + (cdr #{body\ 13927}#)))) (begin - (if (not (#{valid-bound-ids?\ 430}# - #{ids\ 1496}#)) + (if (not (#{valid-bound-ids?\ 12979}# + #{ids\ 13928}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1469}#)) - (letrec ((#{loop\ 1571}# - (lambda (#{bs\ 1572}# - #{er-cache\ 1573}# - #{r-cache\ 1574}#) - (if (not (null? #{bs\ 1572}#)) - (let ((#{b\ 1577}# - (car #{bs\ 1572}#))) - (if (eq? (car #{b\ 1577}#) + #{outer-form\ 13901}#)) + (letrec ((#{loop\ 14003}# + (lambda (#{bs\ 14004}# + #{er-cache\ 14005}# + #{r-cache\ 14006}#) + (if (not (null? #{bs\ 14004}#)) + (let ((#{b\ 14009}# + (car #{bs\ 14004}#))) + (if (eq? (car #{b\ 14009}#) 'macro) - (let ((#{er\ 1580}# - (cadr #{b\ 1577}#))) - (let ((#{r-cache\ 1582}# - (if (eq? #{er\ 1580}# - #{er-cache\ 1573}#) - #{r-cache\ 1574}# - (#{macros-only-env\ 359}# - #{er\ 1580}#)))) + (let ((#{er\ 14012}# + (cadr #{b\ 14009}#))) + (let ((#{r-cache\ 14014}# + (if (eq? #{er\ 14012}# + #{er-cache\ 14005}#) + #{r-cache\ 14006}# + (#{macros-only-env\ 12908}# + #{er\ 14012}#)))) (begin (set-cdr! - #{b\ 1577}# - (#{eval-local-transformer\ 464}# - (#{chi\ 452}# - (cddr #{b\ 1577}#) - #{r-cache\ 1582}# + #{b\ 14009}# + (#{eval-local-transformer\ 13013}# + (#{chi\ 13001}# + (cddr #{b\ 14009}#) + #{r-cache\ 14014}# '(()) - #{mod\ 1514}#) - #{mod\ 1514}#)) - (#{loop\ 1571}# - (cdr #{bs\ 1572}#) - #{er\ 1580}# - #{r-cache\ 1582}#)))) - (#{loop\ 1571}# - (cdr #{bs\ 1572}#) - #{er-cache\ 1573}# - #{r-cache\ 1574}#))))))) - (#{loop\ 1571}# - #{bindings\ 1501}# + #{mod\ 13946}#) + #{mod\ 13946}#)) + (#{loop\ 14003}# + (cdr #{bs\ 14004}#) + #{er\ 14012}# + #{r-cache\ 14014}#)))) + (#{loop\ 14003}# + (cdr #{bs\ 14004}#) + #{er-cache\ 14005}# + #{r-cache\ 14006}#))))))) + (#{loop\ 14003}# + #{bindings\ 13933}# #f #f)) (set-cdr! - #{r\ 1480}# - (#{extend-env\ 355}# - #{labels\ 1497}# - #{bindings\ 1501}# - (cdr #{r\ 1480}#))) - (#{build-letrec\ 325}# + #{r\ 13912}# + (#{extend-env\ 12904}# + #{labels\ 13929}# + #{bindings\ 13933}# + (cdr #{r\ 13912}#))) + (#{build-letrec\ 12874}# #f (map syntax->datum - #{var-ids\ 1498}#) - #{vars\ 1499}# - (map (lambda (#{x\ 1585}#) - (#{chi\ 452}# - (cdr #{x\ 1585}#) - (car #{x\ 1585}#) + #{var-ids\ 13930}#) + #{vars\ 13931}# + (map (lambda (#{x\ 14017}#) + (#{chi\ 13001}# + (cdr #{x\ 14017}#) + (car #{x\ 14017}#) '(()) - #{mod\ 1514}#)) - #{vals\ 1500}#) - (#{build-sequence\ 319}# + #{mod\ 13946}#)) + #{vals\ 13932}#) + (#{build-sequence\ 12868}# #f - (map (lambda (#{x\ 1589}#) - (#{chi\ 452}# - (cdr #{x\ 1589}#) - (car #{x\ 1589}#) + (map (lambda (#{x\ 14021}#) + (#{chi\ 13001}# + (cdr #{x\ 14021}#) + (car #{x\ 14021}#) '(()) - #{mod\ 1514}#)) - (cons (cons #{er\ 1507}# - (#{source-wrap\ 438}# - #{e\ 1511}# - #{w\ 1512}# - #{s\ 1513}# - #{mod\ 1514}#)) - (cdr #{body\ 1495}#)))))))))))))))))) - (#{parse\ 1494}# - (map (lambda (#{x\ 1502}#) - (cons #{r\ 1480}# - (#{wrap\ 436}# - #{x\ 1502}# - #{w\ 1485}# - #{mod\ 1472}#))) - #{body\ 1468}#) + #{mod\ 13946}#)) + (cons (cons #{er\ 13939}# + (#{source-wrap\ 12987}# + #{e\ 13943}# + #{w\ 13944}# + #{s\ 13945}# + #{mod\ 13946}#)) + (cdr #{body\ 13927}#)))))))))))))))))) + (#{parse\ 13926}# + (map (lambda (#{x\ 13934}#) + (cons #{r\ 13912}# + (#{wrap\ 12985}# + #{x\ 13934}# + #{w\ 13917}# + #{mod\ 13904}#))) + #{body\ 13900}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 458}# - (lambda (#{p\ 1592}# - #{e\ 1593}# - #{r\ 1594}# - #{w\ 1595}# - #{rib\ 1596}# - #{mod\ 1597}#) - (letrec ((#{rebuild-macro-output\ 1605}# - (lambda (#{x\ 1606}# #{m\ 1607}#) - (if (pair? #{x\ 1606}#) - (cons (#{rebuild-macro-output\ 1605}# - (car #{x\ 1606}#) - #{m\ 1607}#) - (#{rebuild-macro-output\ 1605}# - (cdr #{x\ 1606}#) - #{m\ 1607}#)) - (if (#{syntax-object?\ 331}# #{x\ 1606}#) - (let ((#{w\ 1615}# - (#{syntax-object-wrap\ 335}# - #{x\ 1606}#))) - (let ((#{ms\ 1618}# - (#{wrap-marks\ 374}# #{w\ 1615}#)) - (#{s\ 1619}# - (#{wrap-subst\ 376}# #{w\ 1615}#))) - (if (if (pair? #{ms\ 1618}#) - (eq? (car #{ms\ 1618}#) #f) + (#{chi-macro\ 13007}# + (lambda (#{p\ 14024}# + #{e\ 14025}# + #{r\ 14026}# + #{w\ 14027}# + #{rib\ 14028}# + #{mod\ 14029}#) + (letrec ((#{rebuild-macro-output\ 14037}# + (lambda (#{x\ 14038}# #{m\ 14039}#) + (if (pair? #{x\ 14038}#) + (cons (#{rebuild-macro-output\ 14037}# + (car #{x\ 14038}#) + #{m\ 14039}#) + (#{rebuild-macro-output\ 14037}# + (cdr #{x\ 14038}#) + #{m\ 14039}#)) + (if (#{syntax-object?\ 12880}# #{x\ 14038}#) + (let ((#{w\ 14047}# + (#{syntax-object-wrap\ 12884}# + #{x\ 14038}#))) + (let ((#{ms\ 14050}# + (#{wrap-marks\ 12923}# #{w\ 14047}#)) + (#{s\ 14051}# + (#{wrap-subst\ 12925}# + #{w\ 14047}#))) + (if (if (pair? #{ms\ 14050}#) + (eq? (car #{ms\ 14050}#) #f) #f) - (#{make-syntax-object\ 329}# - (#{syntax-object-expression\ 333}# - #{x\ 1606}#) - (#{make-wrap\ 372}# - (cdr #{ms\ 1618}#) - (if #{rib\ 1596}# - (cons #{rib\ 1596}# - (cdr #{s\ 1619}#)) - (cdr #{s\ 1619}#))) - (#{syntax-object-module\ 337}# - #{x\ 1606}#)) - (#{make-syntax-object\ 329}# - (#{syntax-object-expression\ 333}# - #{x\ 1606}#) - (#{make-wrap\ 372}# - (cons #{m\ 1607}# #{ms\ 1618}#) - (if #{rib\ 1596}# - (cons #{rib\ 1596}# + (#{make-syntax-object\ 12878}# + (#{syntax-object-expression\ 12882}# + #{x\ 14038}#) + (#{make-wrap\ 12921}# + (cdr #{ms\ 14050}#) + (if #{rib\ 14028}# + (cons #{rib\ 14028}# + (cdr #{s\ 14051}#)) + (cdr #{s\ 14051}#))) + (#{syntax-object-module\ 12886}# + #{x\ 14038}#)) + (#{make-syntax-object\ 12878}# + (#{syntax-object-expression\ 12882}# + #{x\ 14038}#) + (#{make-wrap\ 12921}# + (cons #{m\ 14039}# #{ms\ 14050}#) + (if #{rib\ 14028}# + (cons #{rib\ 14028}# (cons 'shift - #{s\ 1619}#)) - (cons (quote shift) #{s\ 1619}#))) + #{s\ 14051}#)) + (cons (quote shift) #{s\ 14051}#))) (cons 'hygiene - (cdr #{p\ 1592}#)))))) - (if (vector? #{x\ 1606}#) - (let ((#{n\ 1627}# - (vector-length #{x\ 1606}#))) - (let ((#{v\ 1629}# - (make-vector #{n\ 1627}#))) - (letrec ((#{loop\ 1632}# - (lambda (#{i\ 1633}#) - (if (#{fx=\ 272}# - #{i\ 1633}# - #{n\ 1627}#) + (cdr #{p\ 14024}#)))))) + (if (vector? #{x\ 14038}#) + (let ((#{n\ 14059}# + (vector-length #{x\ 14038}#))) + (let ((#{v\ 14061}# + (make-vector #{n\ 14059}#))) + (letrec ((#{loop\ 14064}# + (lambda (#{i\ 14065}#) + (if (#{fx=\ 12821}# + #{i\ 14065}# + #{n\ 14059}#) (begin (if #f #f) - #{v\ 1629}#) + #{v\ 14061}#) (begin (vector-set! - #{v\ 1629}# - #{i\ 1633}# - (#{rebuild-macro-output\ 1605}# + #{v\ 14061}# + #{i\ 14065}# + (#{rebuild-macro-output\ 14037}# (vector-ref - #{x\ 1606}# - #{i\ 1633}#) - #{m\ 1607}#)) - (#{loop\ 1632}# - (#{fx+\ 268}# - #{i\ 1633}# + #{x\ 14038}# + #{i\ 14065}#) + #{m\ 14039}#)) + (#{loop\ 14064}# + (#{fx+\ 12817}# + #{i\ 14065}# 1))))))) - (#{loop\ 1632}# 0)))) - (if (symbol? #{x\ 1606}#) + (#{loop\ 14064}# 0)))) + (if (symbol? #{x\ 14038}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 438}# - #{e\ 1593}# - #{w\ 1595}# - (#{wrap-subst\ 376}# #{w\ 1595}#) - #{mod\ 1597}#) - #{x\ 1606}#) - #{x\ 1606}#))))))) - (#{rebuild-macro-output\ 1605}# - ((car #{p\ 1592}#) - (#{wrap\ 436}# - #{e\ 1593}# - (#{anti-mark\ 408}# #{w\ 1595}#) - #{mod\ 1597}#)) + (#{source-wrap\ 12987}# + #{e\ 14025}# + #{w\ 14027}# + (#{wrap-subst\ 12925}# #{w\ 14027}#) + #{mod\ 14029}#) + #{x\ 14038}#) + #{x\ 14038}#))))))) + (#{rebuild-macro-output\ 14037}# + ((car #{p\ 14024}#) + (#{wrap\ 12985}# + #{e\ 14025}# + (#{anti-mark\ 12957}# #{w\ 14027}#) + #{mod\ 14029}#)) (gensym "m"))))) - (#{chi-application\ 456}# - (lambda (#{x\ 1640}# - #{e\ 1641}# - #{r\ 1642}# - #{w\ 1643}# - #{s\ 1644}# - #{mod\ 1645}#) - ((lambda (#{tmp\ 1652}#) - ((lambda (#{tmp\ 1653}#) - (if #{tmp\ 1653}# - (apply (lambda (#{e0\ 1656}# #{e1\ 1657}#) - (#{build-application\ 289}# - #{s\ 1644}# - #{x\ 1640}# - (map (lambda (#{e\ 1658}#) - (#{chi\ 452}# - #{e\ 1658}# - #{r\ 1642}# - #{w\ 1643}# - #{mod\ 1645}#)) - #{e1\ 1657}#))) - #{tmp\ 1653}#) + (#{chi-application\ 13005}# + (lambda (#{x\ 14072}# + #{e\ 14073}# + #{r\ 14074}# + #{w\ 14075}# + #{s\ 14076}# + #{mod\ 14077}#) + ((lambda (#{tmp\ 14084}#) + ((lambda (#{tmp\ 14085}#) + (if #{tmp\ 14085}# + (apply (lambda (#{e0\ 14088}# #{e1\ 14089}#) + (#{build-application\ 12838}# + #{s\ 14076}# + #{x\ 14072}# + (map (lambda (#{e\ 14090}#) + (#{chi\ 13001}# + #{e\ 14090}# + #{r\ 14074}# + #{w\ 14075}# + #{mod\ 14077}#)) + #{e1\ 14089}#))) + #{tmp\ 14085}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1652}#))) + #{tmp\ 14084}#))) ($sc-dispatch - #{tmp\ 1652}# + #{tmp\ 14084}# '(any . each-any)))) - #{e\ 1641}#))) - (#{chi-expr\ 454}# - (lambda (#{type\ 1661}# - #{value\ 1662}# - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (lexical))) - (#{build-lexical-reference\ 295}# + #{e\ 14073}#))) + (#{chi-expr\ 13003}# + (lambda (#{type\ 14093}# + #{value\ 14094}# + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (lexical))) + (#{build-lexical-reference\ 12844}# 'value - #{s\ 1666}# - #{e\ 1663}# - #{value\ 1662}#) - (if (memv #{type\ 1661}# (quote (core core-form))) - (#{value\ 1662}# - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (module-ref))) + #{s\ 14098}# + #{e\ 14095}# + #{value\ 14094}#) + (if (memv #{type\ 14093}# (quote (core core-form))) + (#{value\ 14094}# + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (module-ref))) (call-with-values (lambda () - (#{value\ 1662}# - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}#)) - (lambda (#{e\ 1678}# - #{r\ 1679}# - #{w\ 1680}# - #{s\ 1681}# - #{mod\ 1682}#) - (#{chi\ 452}# - #{e\ 1678}# - #{r\ 1679}# - #{w\ 1680}# - #{mod\ 1682}#))) - (if (memv #{type\ 1661}# (quote (lexical-call))) - (#{chi-application\ 456}# - (#{build-lexical-reference\ 295}# + (#{value\ 14094}# + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}#)) + (lambda (#{e\ 14110}# + #{r\ 14111}# + #{w\ 14112}# + #{s\ 14113}# + #{mod\ 14114}#) + (#{chi\ 13001}# + #{e\ 14110}# + #{r\ 14111}# + #{w\ 14112}# + #{mod\ 14114}#))) + (if (memv #{type\ 14093}# (quote (lexical-call))) + (#{chi-application\ 13005}# + (#{build-lexical-reference\ 12844}# 'fun - (#{source-annotation\ 346}# (car #{e\ 1663}#)) - (car #{e\ 1663}#) - #{value\ 1662}#) - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (global-call))) - (#{chi-application\ 456}# - (#{build-global-reference\ 301}# - (#{source-annotation\ 346}# (car #{e\ 1663}#)) - (if (#{syntax-object?\ 331}# #{value\ 1662}#) - (#{syntax-object-expression\ 333}# - #{value\ 1662}#) - #{value\ 1662}#) - (if (#{syntax-object?\ 331}# #{value\ 1662}#) - (#{syntax-object-module\ 337}# #{value\ 1662}#) - #{mod\ 1667}#)) - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (constant))) - (#{build-data\ 317}# - #{s\ 1666}# - (#{strip\ 478}# - (#{source-wrap\ 438}# - #{e\ 1663}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) + (#{source-annotation\ 12895}# (car #{e\ 14095}#)) + (car #{e\ 14095}#) + #{value\ 14094}#) + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (global-call))) + (#{chi-application\ 13005}# + (#{build-global-reference\ 12850}# + (#{source-annotation\ 12895}# (car #{e\ 14095}#)) + (if (#{syntax-object?\ 12880}# #{value\ 14094}#) + (#{syntax-object-expression\ 12882}# + #{value\ 14094}#) + #{value\ 14094}#) + (if (#{syntax-object?\ 12880}# #{value\ 14094}#) + (#{syntax-object-module\ 12886}# + #{value\ 14094}#) + #{mod\ 14099}#)) + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (constant))) + (#{build-data\ 12866}# + #{s\ 14098}# + (#{strip\ 13027}# + (#{source-wrap\ 12987}# + #{e\ 14095}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) '(()))) - (if (memv #{type\ 1661}# (quote (global))) - (#{build-global-reference\ 301}# - #{s\ 1666}# - #{value\ 1662}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (call))) - (#{chi-application\ 456}# - (#{chi\ 452}# - (car #{e\ 1663}#) - #{r\ 1664}# - #{w\ 1665}# - #{mod\ 1667}#) - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (if (memv #{type\ 1661}# (quote (begin-form))) - ((lambda (#{tmp\ 1695}#) - ((lambda (#{tmp\ 1696}#) - (if #{tmp\ 1696}# - (apply (lambda (#{_\ 1700}# - #{e1\ 1701}# - #{e2\ 1702}#) - (#{chi-sequence\ 440}# - (cons #{e1\ 1701}# - #{e2\ 1702}#) - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#)) - #{tmp\ 1696}#) + (if (memv #{type\ 14093}# (quote (global))) + (#{build-global-reference\ 12850}# + #{s\ 14098}# + #{value\ 14094}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (call))) + (#{chi-application\ 13005}# + (#{chi\ 13001}# + (car #{e\ 14095}#) + #{r\ 14096}# + #{w\ 14097}# + #{mod\ 14099}#) + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (if (memv #{type\ 14093}# (quote (begin-form))) + ((lambda (#{tmp\ 14127}#) + ((lambda (#{tmp\ 14128}#) + (if #{tmp\ 14128}# + (apply (lambda (#{_\ 14132}# + #{e1\ 14133}# + #{e2\ 14134}#) + (#{chi-sequence\ 12989}# + (cons #{e1\ 14133}# + #{e2\ 14134}#) + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#)) + #{tmp\ 14128}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1695}#))) + #{tmp\ 14127}#))) ($sc-dispatch - #{tmp\ 1695}# + #{tmp\ 14127}# '(any any . each-any)))) - #{e\ 1663}#) - (if (memv #{type\ 1661}# + #{e\ 14095}#) + (if (memv #{type\ 14093}# '(local-syntax-form)) - (#{chi-local-syntax\ 462}# - #{value\ 1662}# - #{e\ 1663}# - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}# - #{chi-sequence\ 440}#) - (if (memv #{type\ 1661}# + (#{chi-local-syntax\ 13011}# + #{value\ 14094}# + #{e\ 14095}# + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}# + #{chi-sequence\ 12989}#) + (if (memv #{type\ 14093}# '(eval-when-form)) - ((lambda (#{tmp\ 1706}#) - ((lambda (#{tmp\ 1707}#) - (if #{tmp\ 1707}# - (apply (lambda (#{_\ 1712}# - #{x\ 1713}# - #{e1\ 1714}# - #{e2\ 1715}#) - (let ((#{when-list\ 1717}# - (#{chi-when-list\ 446}# - #{e\ 1663}# - #{x\ 1713}# - #{w\ 1665}#))) + ((lambda (#{tmp\ 14138}#) + ((lambda (#{tmp\ 14139}#) + (if #{tmp\ 14139}# + (apply (lambda (#{_\ 14144}# + #{x\ 14145}# + #{e1\ 14146}# + #{e2\ 14147}#) + (let ((#{when-list\ 14149}# + (#{chi-when-list\ 12995}# + #{e\ 14095}# + #{x\ 14145}# + #{w\ 14097}#))) (if (memq 'eval - #{when-list\ 1717}#) - (#{chi-sequence\ 440}# - (cons #{e1\ 1714}# - #{e2\ 1715}#) - #{r\ 1664}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#) - (#{chi-void\ 466}#)))) - #{tmp\ 1707}#) + #{when-list\ 14149}#) + (#{chi-sequence\ 12989}# + (cons #{e1\ 14146}# + #{e2\ 14147}#) + #{r\ 14096}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#) + (#{chi-void\ 13015}#)))) + #{tmp\ 14139}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1706}#))) + #{tmp\ 14138}#))) ($sc-dispatch - #{tmp\ 1706}# + #{tmp\ 14138}# '(any each-any any . each-any)))) - #{e\ 1663}#) - (if (memv #{type\ 1661}# + #{e\ 14095}#) + (if (memv #{type\ 14093}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1663}# - (#{wrap\ 436}# - #{value\ 1662}# - #{w\ 1665}# - #{mod\ 1667}#)) - (if (memv #{type\ 1661}# + #{e\ 14095}# + (#{wrap\ 12985}# + #{value\ 14094}# + #{w\ 14097}# + #{mod\ 14099}#)) + (if (memv #{type\ 14093}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 438}# - #{e\ 1663}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#)) - (if (memv #{type\ 1661}# + (#{source-wrap\ 12987}# + #{e\ 14095}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#)) + (if (memv #{type\ 14093}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 438}# - #{e\ 1663}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#)) + (#{source-wrap\ 12987}# + #{e\ 14095}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 438}# - #{e\ 1663}# - #{w\ 1665}# - #{s\ 1666}# - #{mod\ 1667}#)))))))))))))))))) - (#{chi\ 452}# - (lambda (#{e\ 1724}# - #{r\ 1725}# - #{w\ 1726}# - #{mod\ 1727}#) + (#{source-wrap\ 12987}# + #{e\ 14095}# + #{w\ 14097}# + #{s\ 14098}# + #{mod\ 14099}#)))))))))))))))))) + (#{chi\ 13001}# + (lambda (#{e\ 14156}# + #{r\ 14157}# + #{w\ 14158}# + #{mod\ 14159}#) (call-with-values (lambda () - (#{syntax-type\ 448}# - #{e\ 1724}# - #{r\ 1725}# - #{w\ 1726}# - (#{source-annotation\ 346}# #{e\ 1724}#) + (#{syntax-type\ 12997}# + #{e\ 14156}# + #{r\ 14157}# + #{w\ 14158}# + (#{source-annotation\ 12895}# #{e\ 14156}#) #f - #{mod\ 1727}# + #{mod\ 14159}# #f)) - (lambda (#{type\ 1732}# - #{value\ 1733}# - #{e\ 1734}# - #{w\ 1735}# - #{s\ 1736}# - #{mod\ 1737}#) - (#{chi-expr\ 454}# - #{type\ 1732}# - #{value\ 1733}# - #{e\ 1734}# - #{r\ 1725}# - #{w\ 1735}# - #{s\ 1736}# - #{mod\ 1737}#))))) - (#{chi-top\ 450}# - (lambda (#{e\ 1744}# - #{r\ 1745}# - #{w\ 1746}# - #{m\ 1747}# - #{esew\ 1748}# - #{mod\ 1749}#) + (lambda (#{type\ 14164}# + #{value\ 14165}# + #{e\ 14166}# + #{w\ 14167}# + #{s\ 14168}# + #{mod\ 14169}#) + (#{chi-expr\ 13003}# + #{type\ 14164}# + #{value\ 14165}# + #{e\ 14166}# + #{r\ 14157}# + #{w\ 14167}# + #{s\ 14168}# + #{mod\ 14169}#))))) + (#{chi-top\ 12999}# + (lambda (#{e\ 14176}# + #{r\ 14177}# + #{w\ 14178}# + #{m\ 14179}# + #{esew\ 14180}# + #{mod\ 14181}#) (call-with-values (lambda () - (#{syntax-type\ 448}# - #{e\ 1744}# - #{r\ 1745}# - #{w\ 1746}# - (#{source-annotation\ 346}# #{e\ 1744}#) + (#{syntax-type\ 12997}# + #{e\ 14176}# + #{r\ 14177}# + #{w\ 14178}# + (#{source-annotation\ 12895}# #{e\ 14176}#) #f - #{mod\ 1749}# + #{mod\ 14181}# #f)) - (lambda (#{type\ 1777}# - #{value\ 1778}# - #{e\ 1779}# - #{w\ 1780}# - #{s\ 1781}# - #{mod\ 1782}#) - (if (memv #{type\ 1777}# (quote (begin-form))) - ((lambda (#{tmp\ 1790}#) - ((lambda (#{tmp\ 1791}#) - (if #{tmp\ 1791}# - (apply (lambda (#{_\ 1793}#) (#{chi-void\ 466}#)) - #{tmp\ 1791}#) - ((lambda (#{tmp\ 1794}#) - (if #{tmp\ 1794}# - (apply (lambda (#{_\ 1798}# - #{e1\ 1799}# - #{e2\ 1800}#) - (#{chi-top-sequence\ 442}# - (cons #{e1\ 1799}# #{e2\ 1800}#) - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# - #{m\ 1747}# - #{esew\ 1748}# - #{mod\ 1782}#)) - #{tmp\ 1794}#) + (lambda (#{type\ 14202}# + #{value\ 14203}# + #{e\ 14204}# + #{w\ 14205}# + #{s\ 14206}# + #{mod\ 14207}#) + (if (memv #{type\ 14202}# (quote (begin-form))) + ((lambda (#{tmp\ 14215}#) + ((lambda (#{tmp\ 14216}#) + (if #{tmp\ 14216}# + (apply (lambda (#{_\ 14218}#) + (#{chi-void\ 13015}#)) + #{tmp\ 14216}#) + ((lambda (#{tmp\ 14219}#) + (if #{tmp\ 14219}# + (apply (lambda (#{_\ 14223}# + #{e1\ 14224}# + #{e2\ 14225}#) + (#{chi-top-sequence\ 12991}# + (cons #{e1\ 14224}# #{e2\ 14225}#) + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# + #{m\ 14179}# + #{esew\ 14180}# + #{mod\ 14207}#)) + #{tmp\ 14219}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1790}#))) + #{tmp\ 14215}#))) ($sc-dispatch - #{tmp\ 1790}# + #{tmp\ 14215}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1790}# (quote (any))))) - #{e\ 1779}#) - (if (memv #{type\ 1777}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 462}# - #{value\ 1778}# - #{e\ 1779}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# - #{mod\ 1782}# - (lambda (#{body\ 1803}# - #{r\ 1804}# - #{w\ 1805}# - #{s\ 1806}# - #{mod\ 1807}#) - (#{chi-top-sequence\ 442}# - #{body\ 1803}# - #{r\ 1804}# - #{w\ 1805}# - #{s\ 1806}# - #{m\ 1747}# - #{esew\ 1748}# - #{mod\ 1807}#))) - (if (memv #{type\ 1777}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1814}#) - ((lambda (#{tmp\ 1815}#) - (if #{tmp\ 1815}# - (apply (lambda (#{_\ 1820}# - #{x\ 1821}# - #{e1\ 1822}# - #{e2\ 1823}#) - (let ((#{when-list\ 1826}# - (#{chi-when-list\ 446}# - #{e\ 1779}# - #{x\ 1821}# - #{w\ 1780}#)) - (#{body\ 1827}# - (cons #{e1\ 1822}# - #{e2\ 1823}#))) - (if (eq? #{m\ 1747}# (quote e)) + ($sc-dispatch #{tmp\ 14215}# (quote (any))))) + #{e\ 14204}#) + (if (memv #{type\ 14202}# + '(local-syntax-form)) + (#{chi-local-syntax\ 13011}# + #{value\ 14203}# + #{e\ 14204}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# + #{mod\ 14207}# + (lambda (#{body\ 14228}# + #{r\ 14229}# + #{w\ 14230}# + #{s\ 14231}# + #{mod\ 14232}#) + (#{chi-top-sequence\ 12991}# + #{body\ 14228}# + #{r\ 14229}# + #{w\ 14230}# + #{s\ 14231}# + #{m\ 14179}# + #{esew\ 14180}# + #{mod\ 14232}#))) + (if (memv #{type\ 14202}# (quote (eval-when-form))) + ((lambda (#{tmp\ 14239}#) + ((lambda (#{tmp\ 14240}#) + (if #{tmp\ 14240}# + (apply (lambda (#{_\ 14245}# + #{x\ 14246}# + #{e1\ 14247}# + #{e2\ 14248}#) + (let ((#{when-list\ 14251}# + (#{chi-when-list\ 12995}# + #{e\ 14204}# + #{x\ 14246}# + #{w\ 14205}#)) + (#{body\ 14252}# + (cons #{e1\ 14247}# + #{e2\ 14248}#))) + (if (eq? #{m\ 14179}# (quote e)) (if (memq 'eval - #{when-list\ 1826}#) - (#{chi-top-sequence\ 442}# - #{body\ 1827}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# + #{when-list\ 14251}#) + (#{chi-top-sequence\ 12991}# + #{body\ 14252}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# (if (memq 'expand - #{when-list\ 1826}#) + #{when-list\ 14251}#) 'c&e 'e) '(eval) - #{mod\ 1782}#) + #{mod\ 14207}#) (begin (if (memq 'expand - #{when-list\ 1826}#) - (#{top-level-eval-hook\ 276}# - (#{chi-top-sequence\ 442}# - #{body\ 1827}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# + #{when-list\ 14251}#) + (#{top-level-eval-hook\ 12825}# + (#{chi-top-sequence\ 12991}# + #{body\ 14252}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# 'e '(eval) - #{mod\ 1782}#) - #{mod\ 1782}#)) - (#{chi-void\ 466}#))) + #{mod\ 14207}#) + #{mod\ 14207}#)) + (#{chi-void\ 13015}#))) (if (memq 'load - #{when-list\ 1826}#) - (if (let ((#{t\ 1836}# + #{when-list\ 14251}#) + (if (let ((#{t\ 14261}# (memq 'compile - #{when-list\ 1826}#))) - (if #{t\ 1836}# - #{t\ 1836}# - (let ((#{t\ 1839}# + #{when-list\ 14251}#))) + (if #{t\ 14261}# + #{t\ 14261}# + (let ((#{t\ 14264}# (memq 'expand - #{when-list\ 1826}#))) - (if #{t\ 1839}# - #{t\ 1839}# - (if (eq? #{m\ 1747}# + #{when-list\ 14251}#))) + (if #{t\ 14264}# + #{t\ 14264}# + (if (eq? #{m\ 14179}# 'c&e) (memq 'eval - #{when-list\ 1826}#) + #{when-list\ 14251}#) #f))))) - (#{chi-top-sequence\ 442}# - #{body\ 1827}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# + (#{chi-top-sequence\ 12991}# + #{body\ 14252}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# 'c&e '(compile load) - #{mod\ 1782}#) - (if (memq #{m\ 1747}# + #{mod\ 14207}#) + (if (memq #{m\ 14179}# '(c c&e)) - (#{chi-top-sequence\ 442}# - #{body\ 1827}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# + (#{chi-top-sequence\ 12991}# + #{body\ 14252}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# 'c '(load) - #{mod\ 1782}#) - (#{chi-void\ 466}#))) - (if (let ((#{t\ 1847}# + #{mod\ 14207}#) + (#{chi-void\ 13015}#))) + (if (let ((#{t\ 14272}# (memq 'compile - #{when-list\ 1826}#))) - (if #{t\ 1847}# - #{t\ 1847}# - (let ((#{t\ 1850}# + #{when-list\ 14251}#))) + (if #{t\ 14272}# + #{t\ 14272}# + (let ((#{t\ 14275}# (memq 'expand - #{when-list\ 1826}#))) - (if #{t\ 1850}# - #{t\ 1850}# - (if (eq? #{m\ 1747}# + #{when-list\ 14251}#))) + (if #{t\ 14275}# + #{t\ 14275}# + (if (eq? #{m\ 14179}# 'c&e) (memq 'eval - #{when-list\ 1826}#) + #{when-list\ 14251}#) #f))))) (begin - (#{top-level-eval-hook\ 276}# - (#{chi-top-sequence\ 442}# - #{body\ 1827}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# + (#{top-level-eval-hook\ 12825}# + (#{chi-top-sequence\ 12991}# + #{body\ 14252}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# 'e '(eval) - #{mod\ 1782}#) - #{mod\ 1782}#) - (#{chi-void\ 466}#)) - (#{chi-void\ 466}#)))))) - #{tmp\ 1815}#) + #{mod\ 14207}#) + #{mod\ 14207}#) + (#{chi-void\ 13015}#)) + (#{chi-void\ 13015}#)))))) + #{tmp\ 14240}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1814}#))) + #{tmp\ 14239}#))) ($sc-dispatch - #{tmp\ 1814}# + #{tmp\ 14239}# '(any each-any any . each-any)))) - #{e\ 1779}#) - (if (memv #{type\ 1777}# + #{e\ 14204}#) + (if (memv #{type\ 14202}# '(define-syntax-form)) - (let ((#{n\ 1858}# - (#{id-var-name\ 424}# - #{value\ 1778}# - #{w\ 1780}#)) - (#{r\ 1859}# - (#{macros-only-env\ 359}# #{r\ 1745}#))) - (if (memv #{m\ 1747}# (quote (c))) - (if (memq (quote compile) #{esew\ 1748}#) - (let ((#{e\ 1862}# - (#{chi-install-global\ 444}# - #{n\ 1858}# - (#{chi\ 452}# - #{e\ 1779}# - #{r\ 1859}# - #{w\ 1780}# - #{mod\ 1782}#)))) + (let ((#{n\ 14283}# + (#{id-var-name\ 12973}# + #{value\ 14203}# + #{w\ 14205}#)) + (#{r\ 14284}# + (#{macros-only-env\ 12908}# #{r\ 14177}#))) + (if (memv #{m\ 14179}# (quote (c))) + (if (memq (quote compile) #{esew\ 14180}#) + (let ((#{e\ 14287}# + (#{chi-install-global\ 12993}# + #{n\ 14283}# + (#{chi\ 13001}# + #{e\ 14204}# + #{r\ 14284}# + #{w\ 14205}# + #{mod\ 14207}#)))) (begin - (#{top-level-eval-hook\ 276}# - #{e\ 1862}# - #{mod\ 1782}#) - (if (memq (quote load) #{esew\ 1748}#) - #{e\ 1862}# - (#{chi-void\ 466}#)))) - (if (memq (quote load) #{esew\ 1748}#) - (#{chi-install-global\ 444}# - #{n\ 1858}# - (#{chi\ 452}# - #{e\ 1779}# - #{r\ 1859}# - #{w\ 1780}# - #{mod\ 1782}#)) - (#{chi-void\ 466}#))) - (if (memv #{m\ 1747}# (quote (c&e))) - (let ((#{e\ 1865}# - (#{chi-install-global\ 444}# - #{n\ 1858}# - (#{chi\ 452}# - #{e\ 1779}# - #{r\ 1859}# - #{w\ 1780}# - #{mod\ 1782}#)))) + (#{top-level-eval-hook\ 12825}# + #{e\ 14287}# + #{mod\ 14207}#) + (if (memq (quote load) #{esew\ 14180}#) + #{e\ 14287}# + (#{chi-void\ 13015}#)))) + (if (memq (quote load) #{esew\ 14180}#) + (#{chi-install-global\ 12993}# + #{n\ 14283}# + (#{chi\ 13001}# + #{e\ 14204}# + #{r\ 14284}# + #{w\ 14205}# + #{mod\ 14207}#)) + (#{chi-void\ 13015}#))) + (if (memv #{m\ 14179}# (quote (c&e))) + (let ((#{e\ 14290}# + (#{chi-install-global\ 12993}# + #{n\ 14283}# + (#{chi\ 13001}# + #{e\ 14204}# + #{r\ 14284}# + #{w\ 14205}# + #{mod\ 14207}#)))) (begin - (#{top-level-eval-hook\ 276}# - #{e\ 1865}# - #{mod\ 1782}#) - #{e\ 1865}#)) + (#{top-level-eval-hook\ 12825}# + #{e\ 14290}# + #{mod\ 14207}#) + #{e\ 14290}#)) (begin - (if (memq (quote eval) #{esew\ 1748}#) - (#{top-level-eval-hook\ 276}# - (#{chi-install-global\ 444}# - #{n\ 1858}# - (#{chi\ 452}# - #{e\ 1779}# - #{r\ 1859}# - #{w\ 1780}# - #{mod\ 1782}#)) - #{mod\ 1782}#)) - (#{chi-void\ 466}#))))) - (if (memv #{type\ 1777}# (quote (define-form))) - (let ((#{n\ 1870}# - (#{id-var-name\ 424}# - #{value\ 1778}# - #{w\ 1780}#))) - (let ((#{type\ 1872}# - (#{binding-type\ 350}# - (#{lookup\ 361}# - #{n\ 1870}# - #{r\ 1745}# - #{mod\ 1782}#)))) - (if (memv #{type\ 1872}# + (if (memq (quote eval) #{esew\ 14180}#) + (#{top-level-eval-hook\ 12825}# + (#{chi-install-global\ 12993}# + #{n\ 14283}# + (#{chi\ 13001}# + #{e\ 14204}# + #{r\ 14284}# + #{w\ 14205}# + #{mod\ 14207}#)) + #{mod\ 14207}#)) + (#{chi-void\ 13015}#))))) + (if (memv #{type\ 14202}# (quote (define-form))) + (let ((#{n\ 14295}# + (#{id-var-name\ 12973}# + #{value\ 14203}# + #{w\ 14205}#))) + (let ((#{type\ 14297}# + (#{binding-type\ 12899}# + (#{lookup\ 12910}# + #{n\ 14295}# + #{r\ 14177}# + #{mod\ 14207}#)))) + (if (memv #{type\ 14297}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 1747}# (quote (c c&e))) + (if (if (memq #{m\ 14179}# + '(c c&e)) (if (not (module-local-variable (current-module) - #{n\ 1870}#)) + #{n\ 14295}#)) (current-module) #f) #f) - (let ((#{old\ 1878}# + (let ((#{old\ 14303}# (module-variable (current-module) - #{n\ 1870}#))) + #{n\ 14295}#))) (module-define! (current-module) - #{n\ 1870}# - (if (variable? #{old\ 1878}#) - (variable-ref #{old\ 1878}#) + #{n\ 14295}# + (if (variable? #{old\ 14303}#) + (variable-ref #{old\ 14303}#) #f)))) - (let ((#{x\ 1881}# - (#{build-global-definition\ 307}# - #{s\ 1781}# - #{n\ 1870}# - (#{chi\ 452}# - #{e\ 1779}# - #{r\ 1745}# - #{w\ 1780}# - #{mod\ 1782}#)))) + (let ((#{x\ 14306}# + (#{build-global-definition\ 12856}# + #{s\ 14206}# + #{n\ 14295}# + (#{chi\ 13001}# + #{e\ 14204}# + #{r\ 14177}# + #{w\ 14205}# + #{mod\ 14207}#)))) (begin - (if (eq? #{m\ 1747}# (quote c&e)) - (#{top-level-eval-hook\ 276}# - #{x\ 1881}# - #{mod\ 1782}#)) - #{x\ 1881}#))) - (if (memv #{type\ 1872}# + (if (eq? #{m\ 14179}# (quote c&e)) + (#{top-level-eval-hook\ 12825}# + #{x\ 14306}# + #{mod\ 14207}#)) + #{x\ 14306}#))) + (if (memv #{type\ 14297}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1779}# - (#{wrap\ 436}# - #{value\ 1778}# - #{w\ 1780}# - #{mod\ 1782}#)) + #{e\ 14204}# + (#{wrap\ 12985}# + #{value\ 14203}# + #{w\ 14205}# + #{mod\ 14207}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1779}# - (#{wrap\ 436}# - #{value\ 1778}# - #{w\ 1780}# - #{mod\ 1782}#)))))) - (let ((#{x\ 1887}# - (#{chi-expr\ 454}# - #{type\ 1777}# - #{value\ 1778}# - #{e\ 1779}# - #{r\ 1745}# - #{w\ 1780}# - #{s\ 1781}# - #{mod\ 1782}#))) + #{e\ 14204}# + (#{wrap\ 12985}# + #{value\ 14203}# + #{w\ 14205}# + #{mod\ 14207}#)))))) + (let ((#{x\ 14312}# + (#{chi-expr\ 13003}# + #{type\ 14202}# + #{value\ 14203}# + #{e\ 14204}# + #{r\ 14177}# + #{w\ 14205}# + #{s\ 14206}# + #{mod\ 14207}#))) (begin - (if (eq? #{m\ 1747}# (quote c&e)) - (#{top-level-eval-hook\ 276}# - #{x\ 1887}# - #{mod\ 1782}#)) - #{x\ 1887}#))))))))))) - (#{syntax-type\ 448}# - (lambda (#{e\ 1888}# - #{r\ 1889}# - #{w\ 1890}# - #{s\ 1891}# - #{rib\ 1892}# - #{mod\ 1893}# - #{for-car?\ 1894}#) - (if (symbol? #{e\ 1888}#) - (let ((#{n\ 1906}# - (#{id-var-name\ 424}# #{e\ 1888}# #{w\ 1890}#))) - (let ((#{b\ 1908}# - (#{lookup\ 361}# - #{n\ 1906}# - #{r\ 1889}# - #{mod\ 1893}#))) - (let ((#{type\ 1910}# - (#{binding-type\ 350}# #{b\ 1908}#))) - (if (memv #{type\ 1910}# (quote (lexical))) + (if (eq? #{m\ 14179}# (quote c&e)) + (#{top-level-eval-hook\ 12825}# + #{x\ 14312}# + #{mod\ 14207}#)) + #{x\ 14312}#))))))))))) + (#{syntax-type\ 12997}# + (lambda (#{e\ 14313}# + #{r\ 14314}# + #{w\ 14315}# + #{s\ 14316}# + #{rib\ 14317}# + #{mod\ 14318}# + #{for-car?\ 14319}#) + (if (symbol? #{e\ 14313}#) + (let ((#{n\ 14331}# + (#{id-var-name\ 12973}# + #{e\ 14313}# + #{w\ 14315}#))) + (let ((#{b\ 14333}# + (#{lookup\ 12910}# + #{n\ 14331}# + #{r\ 14314}# + #{mod\ 14318}#))) + (let ((#{type\ 14335}# + (#{binding-type\ 12899}# #{b\ 14333}#))) + (if (memv #{type\ 14335}# (quote (lexical))) (values - #{type\ 1910}# - (#{binding-value\ 352}# #{b\ 1908}#) - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{type\ 1910}# (quote (global))) + #{type\ 14335}# + (#{binding-value\ 12901}# #{b\ 14333}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{type\ 14335}# (quote (global))) (values - #{type\ 1910}# - #{n\ 1906}# - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{type\ 1910}# (quote (macro))) - (if #{for-car?\ 1894}# + #{type\ 14335}# + #{n\ 14331}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{type\ 14335}# (quote (macro))) + (if #{for-car?\ 14319}# (values - #{type\ 1910}# - (#{binding-value\ 352}# #{b\ 1908}#) - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (#{syntax-type\ 448}# - (#{chi-macro\ 458}# - (#{binding-value\ 352}# #{b\ 1908}#) - #{e\ 1888}# - #{r\ 1889}# - #{w\ 1890}# - #{rib\ 1892}# - #{mod\ 1893}#) - #{r\ 1889}# + #{type\ 14335}# + (#{binding-value\ 12901}# #{b\ 14333}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (#{syntax-type\ 12997}# + (#{chi-macro\ 13007}# + (#{binding-value\ 12901}# #{b\ 14333}#) + #{e\ 14313}# + #{r\ 14314}# + #{w\ 14315}# + #{rib\ 14317}# + #{mod\ 14318}#) + #{r\ 14314}# '(()) - #{s\ 1891}# - #{rib\ 1892}# - #{mod\ 1893}# + #{s\ 14316}# + #{rib\ 14317}# + #{mod\ 14318}# #f)) (values - #{type\ 1910}# - (#{binding-value\ 352}# #{b\ 1908}#) - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#))))))) - (if (pair? #{e\ 1888}#) - (let ((#{first\ 1919}# (car #{e\ 1888}#))) + #{type\ 14335}# + (#{binding-value\ 12901}# #{b\ 14333}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#))))))) + (if (pair? #{e\ 14313}#) + (let ((#{first\ 14344}# (car #{e\ 14313}#))) (call-with-values (lambda () - (#{syntax-type\ 448}# - #{first\ 1919}# - #{r\ 1889}# - #{w\ 1890}# - #{s\ 1891}# - #{rib\ 1892}# - #{mod\ 1893}# + (#{syntax-type\ 12997}# + #{first\ 14344}# + #{r\ 14314}# + #{w\ 14315}# + #{s\ 14316}# + #{rib\ 14317}# + #{mod\ 14318}# #t)) - (lambda (#{ftype\ 1920}# - #{fval\ 1921}# - #{fe\ 1922}# - #{fw\ 1923}# - #{fs\ 1924}# - #{fmod\ 1925}#) - (if (memv #{ftype\ 1920}# (quote (lexical))) + (lambda (#{ftype\ 14345}# + #{fval\ 14346}# + #{fe\ 14347}# + #{fw\ 14348}# + #{fs\ 14349}# + #{fmod\ 14350}#) + (if (memv #{ftype\ 14345}# (quote (lexical))) (values 'lexical-call - #{fval\ 1921}# - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# (quote (global))) + #{fval\ 14346}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 329}# - #{fval\ 1921}# - #{w\ 1890}# - #{fmod\ 1925}#) - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# (quote (macro))) - (#{syntax-type\ 448}# - (#{chi-macro\ 458}# - #{fval\ 1921}# - #{e\ 1888}# - #{r\ 1889}# - #{w\ 1890}# - #{rib\ 1892}# - #{mod\ 1893}#) - #{r\ 1889}# + (#{make-syntax-object\ 12878}# + #{fval\ 14346}# + #{w\ 14315}# + #{fmod\ 14350}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# (quote (macro))) + (#{syntax-type\ 12997}# + (#{chi-macro\ 13007}# + #{fval\ 14346}# + #{e\ 14313}# + #{r\ 14314}# + #{w\ 14315}# + #{rib\ 14317}# + #{mod\ 14318}#) + #{r\ 14314}# '(()) - #{s\ 1891}# - #{rib\ 1892}# - #{mod\ 1893}# - #{for-car?\ 1894}#) - (if (memv #{ftype\ 1920}# (quote (module-ref))) + #{s\ 14316}# + #{rib\ 14317}# + #{mod\ 14318}# + #{for-car?\ 14319}#) + (if (memv #{ftype\ 14345}# (quote (module-ref))) (call-with-values (lambda () - (#{fval\ 1921}# - #{e\ 1888}# - #{r\ 1889}# - #{w\ 1890}#)) - (lambda (#{e\ 1937}# - #{r\ 1938}# - #{w\ 1939}# - #{s\ 1940}# - #{mod\ 1941}#) - (#{syntax-type\ 448}# - #{e\ 1937}# - #{r\ 1938}# - #{w\ 1939}# - #{s\ 1940}# - #{rib\ 1892}# - #{mod\ 1941}# - #{for-car?\ 1894}#))) - (if (memv #{ftype\ 1920}# (quote (core))) + (#{fval\ 14346}# + #{e\ 14313}# + #{r\ 14314}# + #{w\ 14315}#)) + (lambda (#{e\ 14362}# + #{r\ 14363}# + #{w\ 14364}# + #{s\ 14365}# + #{mod\ 14366}#) + (#{syntax-type\ 12997}# + #{e\ 14362}# + #{r\ 14363}# + #{w\ 14364}# + #{s\ 14365}# + #{rib\ 14317}# + #{mod\ 14366}# + #{for-car?\ 14319}#))) + (if (memv #{ftype\ 14345}# (quote (core))) (values 'core-form - #{fval\ 1921}# - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# + #{fval\ 14346}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1921}# - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# (quote (begin))) + #{fval\ 14346}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# + '(begin)) (values 'begin-form #f - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) - (if (memv #{ftype\ 1920}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) + (if (memv #{ftype\ 14345}# '(define)) - ((lambda (#{tmp\ 1952}#) - ((lambda (#{tmp\ 1953}#) - (if (if #{tmp\ 1953}# - (apply (lambda (#{_\ 1957}# - #{name\ 1958}# - #{val\ 1959}#) - (#{id?\ 367}# - #{name\ 1958}#)) - #{tmp\ 1953}#) + ((lambda (#{tmp\ 14377}#) + ((lambda (#{tmp\ 14378}#) + (if (if #{tmp\ 14378}# + (apply (lambda (#{_\ 14382}# + #{name\ 14383}# + #{val\ 14384}#) + (#{id?\ 12916}# + #{name\ 14383}#)) + #{tmp\ 14378}#) #f) - (apply (lambda (#{_\ 1963}# - #{name\ 1964}# - #{val\ 1965}#) + (apply (lambda (#{_\ 14388}# + #{name\ 14389}# + #{val\ 14390}#) (values 'define-form - #{name\ 1964}# - #{val\ 1965}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#)) - #{tmp\ 1953}#) - ((lambda (#{tmp\ 1966}#) - (if (if #{tmp\ 1966}# - (apply (lambda (#{_\ 1972}# - #{name\ 1973}# - #{args\ 1974}# - #{e1\ 1975}# - #{e2\ 1976}#) - (if (#{id?\ 367}# - #{name\ 1973}#) - (#{valid-bound-ids?\ 430}# - (#{lambda-var-list\ 482}# - #{args\ 1974}#)) + #{name\ 14389}# + #{val\ 14390}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#)) + #{tmp\ 14378}#) + ((lambda (#{tmp\ 14391}#) + (if (if #{tmp\ 14391}# + (apply (lambda (#{_\ 14397}# + #{name\ 14398}# + #{args\ 14399}# + #{e1\ 14400}# + #{e2\ 14401}#) + (if (#{id?\ 12916}# + #{name\ 14398}#) + (#{valid-bound-ids?\ 12979}# + (#{lambda-var-list\ 13031}# + #{args\ 14399}#)) #f)) - #{tmp\ 1966}#) + #{tmp\ 14391}#) #f) - (apply (lambda (#{_\ 1984}# - #{name\ 1985}# - #{args\ 1986}# - #{e1\ 1987}# - #{e2\ 1988}#) + (apply (lambda (#{_\ 14409}# + #{name\ 14410}# + #{args\ 14411}# + #{e1\ 14412}# + #{e2\ 14413}#) (values 'define-form - (#{wrap\ 436}# - #{name\ 1985}# - #{w\ 1890}# - #{mod\ 1893}#) - (#{decorate-source\ 285}# + (#{wrap\ 12985}# + #{name\ 14410}# + #{w\ 14315}# + #{mod\ 14318}#) + (#{decorate-source\ 12834}# (cons '#(syntax-object lambda ((top) @@ -3809,11 +3835,11 @@ (top) (top) (top)) - #("i1979" - "i1980" - "i1981" - "i1982" - "i1983")) + #("i14404" + "i14405" + "i14406" + "i14407" + "i14408")) #(ribcage () () @@ -3835,12 +3861,12 @@ (top) (top) (top)) - #("i1926" - "i1927" - "i1928" - "i1929" - "i1930" - "i1931")) + #("i14351" + "i14352" + "i14353" + "i14354" + "i14355" + "i14356")) #(ribcage () () @@ -3848,7 +3874,7 @@ #(ribcage #(first) #((top)) - #("i1918")) + #("i14343")) #(ribcage () () @@ -3876,13 +3902,13 @@ (top) (top) (top)) - #("i1895" - "i1896" - "i1897" - "i1898" - "i1899" - "i1900" - "i1901")) + #("i14320" + "i14321" + "i14322" + "i14323" + "i14324" + "i14325" + "i14326")) #(ribcage (lambda-var-list gen-var @@ -4154,141 +4180,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -4296,38 +4322,38 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) - (#{wrap\ 436}# - (cons #{args\ 1986}# - (cons #{e1\ 1987}# - #{e2\ 1988}#)) - #{w\ 1890}# - #{mod\ 1893}#)) - #{s\ 1891}#) + (#{wrap\ 12985}# + (cons #{args\ 14411}# + (cons #{e1\ 14412}# + #{e2\ 14413}#)) + #{w\ 14315}# + #{mod\ 14318}#)) + #{s\ 14316}#) '(()) - #{s\ 1891}# - #{mod\ 1893}#)) - #{tmp\ 1966}#) - ((lambda (#{tmp\ 1991}#) - (if (if #{tmp\ 1991}# - (apply (lambda (#{_\ 1994}# - #{name\ 1995}#) - (#{id?\ 367}# - #{name\ 1995}#)) - #{tmp\ 1991}#) + #{s\ 14316}# + #{mod\ 14318}#)) + #{tmp\ 14391}#) + ((lambda (#{tmp\ 14416}#) + (if (if #{tmp\ 14416}# + (apply (lambda (#{_\ 14419}# + #{name\ 14420}#) + (#{id?\ 12916}# + #{name\ 14420}#)) + #{tmp\ 14416}#) #f) - (apply (lambda (#{_\ 1998}# - #{name\ 1999}#) + (apply (lambda (#{_\ 14423}# + #{name\ 14424}#) (values 'define-form - (#{wrap\ 436}# - #{name\ 1999}# - #{w\ 1890}# - #{mod\ 1893}#) + (#{wrap\ 12985}# + #{name\ 14424}# + #{w\ 14315}# + #{mod\ 14318}#) '(#(syntax-object if ((top) @@ -4336,8 +4362,8 @@ name) #((top) (top)) - #("i1996" - "i1997")) + #("i14421" + "i14422")) #(ribcage () () @@ -4359,12 +4385,12 @@ (top) (top) (top)) - #("i1926" - "i1927" - "i1928" - "i1929" - "i1930" - "i1931")) + #("i14351" + "i14352" + "i14353" + "i14354" + "i14355" + "i14356")) #(ribcage () () @@ -4372,7 +4398,7 @@ #(ribcage #(first) #((top)) - #("i1918")) + #("i14343")) #(ribcage () () @@ -4400,13 +4426,13 @@ (top) (top) (top)) - #("i1895" - "i1896" - "i1897" - "i1898" - "i1899" - "i1900" - "i1901")) + #("i14320" + "i14321" + "i14322" + "i14323" + "i14324" + "i14325" + "i14326")) #(ribcage (lambda-var-list gen-var @@ -4678,141 +4704,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -4820,9 +4846,9 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) #(syntax-object @@ -4833,8 +4859,8 @@ name) #((top) (top)) - #("i1996" - "i1997")) + #("i14421" + "i14422")) #(ribcage () () @@ -4856,12 +4882,12 @@ (top) (top) (top)) - #("i1926" - "i1927" - "i1928" - "i1929" - "i1930" - "i1931")) + #("i14351" + "i14352" + "i14353" + "i14354" + "i14355" + "i14356")) #(ribcage () () @@ -4869,7 +4895,7 @@ #(ribcage #(first) #((top)) - #("i1918")) + #("i14343")) #(ribcage () () @@ -4897,13 +4923,13 @@ (top) (top) (top)) - #("i1895" - "i1896" - "i1897" - "i1898" - "i1899" - "i1900" - "i1901")) + #("i14320" + "i14321" + "i14322" + "i14323" + "i14324" + "i14325" + "i14326")) #(ribcage (lambda-var-list gen-var @@ -5175,141 +5201,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -5317,9 +5343,9 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) #(syntax-object @@ -5330,8 +5356,8 @@ name) #((top) (top)) - #("i1996" - "i1997")) + #("i14421" + "i14422")) #(ribcage () () @@ -5353,12 +5379,12 @@ (top) (top) (top)) - #("i1926" - "i1927" - "i1928" - "i1929" - "i1930" - "i1931")) + #("i14351" + "i14352" + "i14353" + "i14354" + "i14355" + "i14356")) #(ribcage () () @@ -5366,7 +5392,7 @@ #(ribcage #(first) #((top)) - #("i1918")) + #("i14343")) #(ribcage () () @@ -5394,13 +5420,13 @@ (top) (top) (top)) - #("i1895" - "i1896" - "i1897" - "i1898" - "i1899" - "i1900" - "i1901")) + #("i14320" + "i14321" + "i14322" + "i14323" + "i14324" + "i14325" + "i14326")) #(ribcage (lambda-var-list gen-var @@ -5672,141 +5698,141 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors @@ -5814,110 +5840,111 @@ ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))) '(()) - #{s\ 1891}# - #{mod\ 1893}#)) - #{tmp\ 1991}#) + #{s\ 14316}# + #{mod\ 14318}#)) + #{tmp\ 14416}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1952}#))) + #{tmp\ 14377}#))) ($sc-dispatch - #{tmp\ 1952}# + #{tmp\ 14377}# '(any any))))) ($sc-dispatch - #{tmp\ 1952}# + #{tmp\ 14377}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1952}# + #{tmp\ 14377}# '(any any any)))) - #{e\ 1888}#) - (if (memv #{ftype\ 1920}# + #{e\ 14313}#) + (if (memv #{ftype\ 14345}# '(define-syntax)) - ((lambda (#{tmp\ 2002}#) - ((lambda (#{tmp\ 2003}#) - (if (if #{tmp\ 2003}# - (apply (lambda (#{_\ 2007}# - #{name\ 2008}# - #{val\ 2009}#) - (#{id?\ 367}# - #{name\ 2008}#)) - #{tmp\ 2003}#) + ((lambda (#{tmp\ 14427}#) + ((lambda (#{tmp\ 14428}#) + (if (if #{tmp\ 14428}# + (apply (lambda (#{_\ 14432}# + #{name\ 14433}# + #{val\ 14434}#) + (#{id?\ 12916}# + #{name\ 14433}#)) + #{tmp\ 14428}#) #f) - (apply (lambda (#{_\ 2013}# - #{name\ 2014}# - #{val\ 2015}#) + (apply (lambda (#{_\ 14438}# + #{name\ 14439}# + #{val\ 14440}#) (values 'define-syntax-form - #{name\ 2014}# - #{val\ 2015}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#)) - #{tmp\ 2003}#) + #{name\ 14439}# + #{val\ 14440}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#)) + #{tmp\ 14428}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2002}#))) + #{tmp\ 14427}#))) ($sc-dispatch - #{tmp\ 2002}# + #{tmp\ 14427}# '(any any any)))) - #{e\ 1888}#) + #{e\ 14313}#) (values 'call #f - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#)))))))))))))) - (if (#{syntax-object?\ 331}# #{e\ 1888}#) - (#{syntax-type\ 448}# - (#{syntax-object-expression\ 333}# #{e\ 1888}#) - #{r\ 1889}# - (#{join-wraps\ 418}# - #{w\ 1890}# - (#{syntax-object-wrap\ 335}# #{e\ 1888}#)) - #{s\ 1891}# - #{rib\ 1892}# - (let ((#{t\ 2021}# - (#{syntax-object-module\ 337}# #{e\ 1888}#))) - (if #{t\ 2021}# #{t\ 2021}# #{mod\ 1893}#)) - #{for-car?\ 1894}#) - (if (self-evaluating? #{e\ 1888}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#)))))))))))))) + (if (#{syntax-object?\ 12880}# #{e\ 14313}#) + (#{syntax-type\ 12997}# + (#{syntax-object-expression\ 12882}# + #{e\ 14313}#) + #{r\ 14314}# + (#{join-wraps\ 12967}# + #{w\ 14315}# + (#{syntax-object-wrap\ 12884}# #{e\ 14313}#)) + #{s\ 14316}# + #{rib\ 14317}# + (let ((#{t\ 14446}# + (#{syntax-object-module\ 12886}# #{e\ 14313}#))) + (if #{t\ 14446}# #{t\ 14446}# #{mod\ 14318}#)) + #{for-car?\ 14319}#) + (if (self-evaluating? #{e\ 14313}#) (values 'constant #f - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#) + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#) (values 'other #f - #{e\ 1888}# - #{w\ 1890}# - #{s\ 1891}# - #{mod\ 1893}#))))))) - (#{chi-when-list\ 446}# - (lambda (#{e\ 2026}# #{when-list\ 2027}# #{w\ 2028}#) - (letrec ((#{f\ 2035}# - (lambda (#{when-list\ 2036}# #{situations\ 2037}#) - (if (null? #{when-list\ 2036}#) - #{situations\ 2037}# - (#{f\ 2035}# - (cdr #{when-list\ 2036}#) - (cons (let ((#{x\ 2039}# - (car #{when-list\ 2036}#))) - (if (#{free-id=?\ 426}# - #{x\ 2039}# + #{e\ 14313}# + #{w\ 14315}# + #{s\ 14316}# + #{mod\ 14318}#))))))) + (#{chi-when-list\ 12995}# + (lambda (#{e\ 14451}# #{when-list\ 14452}# #{w\ 14453}#) + (letrec ((#{f\ 14460}# + (lambda (#{when-list\ 14461}# #{situations\ 14462}#) + (if (null? #{when-list\ 14461}#) + #{situations\ 14462}# + (#{f\ 14460}# + (cdr #{when-list\ 14461}#) + (cons (let ((#{x\ 14464}# + (car #{when-list\ 14461}#))) + (if (#{free-id=?\ 12975}# + #{x\ 14464}# '#(syntax-object compile ((top) @@ -5927,17 +5954,21 @@ #(ribcage #(x) #((top)) - #("i2038")) + #("i14463")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2032" "i2033" "i2034")) + #("i14457" + "i14458" + "i14459")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2029" "i2030" "i2031")) + #("i14454" + "i14455" + "i14456")) #(ribcage (lambda-var-list gen-var @@ -6209,151 +6240,153 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 426}# - #{x\ 2039}# + (if (#{free-id=?\ 12975}# + #{x\ 14464}# '#(syntax-object load ((top) @@ -6363,21 +6396,21 @@ #(ribcage #(x) #((top)) - #("i2038")) + #("i14463")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2032" - "i2033" - "i2034")) + #("i14457" + "i14458" + "i14459")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2029" - "i2030" - "i2031")) + #("i14454" + "i14455" + "i14456")) #(ribcage (lambda-var-list gen-var @@ -6649,151 +6682,153 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))) 'load - (if (#{free-id=?\ 426}# - #{x\ 2039}# + (if (#{free-id=?\ 12975}# + #{x\ 14464}# '#(syntax-object eval ((top) @@ -6803,23 +6838,23 @@ #(ribcage #(x) #((top)) - #("i2038")) + #("i14463")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2032" - "i2033" - "i2034")) + #("i14457" + "i14458" + "i14459")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2029" - "i2030" - "i2031")) + #("i14454" + "i14455" + "i14456")) #(ribcage (lambda-var-list gen-var @@ -7091,151 +7126,153 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 426}# - #{x\ 2039}# + (if (#{free-id=?\ 12975}# + #{x\ 14464}# '#(syntax-object expand ((top) @@ -7245,23 +7282,23 @@ #(ribcage #(x) #((top)) - #("i2038")) + #("i14463")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2032" - "i2033" - "i2034")) + #("i14457" + "i14458" + "i14459")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2029" - "i2030" - "i2031")) + #("i14454" + "i14455" + "i14456")) #(ribcage (lambda-var-list gen-var @@ -7533,2667 +7570,2528 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 2026}# - (#{wrap\ 436}# - #{x\ 2039}# - #{w\ 2028}# + #{e\ 14451}# + (#{wrap\ 12985}# + #{x\ 14464}# + #{w\ 14453}# #f))))))) - #{situations\ 2037}#)))))) - (#{f\ 2035}# #{when-list\ 2027}# (quote ()))))) - (#{chi-install-global\ 444}# - (lambda (#{name\ 2049}# #{e\ 2050}#) - (#{build-global-definition\ 307}# + #{situations\ 14462}#)))))) + (#{f\ 14460}# #{when-list\ 14452}# (quote ()))))) + (#{chi-install-global\ 12993}# + (lambda (#{name\ 14474}# #{e\ 14475}#) + (#{build-global-definition\ 12856}# #f - #{name\ 2049}# - (#{build-application\ 289}# + #{name\ 14474}# + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f 'make-syntax-transformer) - (list (#{build-data\ 317}# #f #{name\ 2049}#) - (#{build-data\ 317}# #f (quote macro)) - (#{build-application\ 289}# + (list (#{build-data\ 12866}# #f #{name\ 14474}#) + (#{build-data\ 12866}# #f (quote macro)) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# #f (quote cons)) - (list #{e\ 2050}# - (#{build-application\ 289}# + (#{build-primref\ 12864}# #f (quote cons)) + (list #{e\ 14475}# + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f 'module-name) - (list (#{build-application\ 289}# + (list (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 442}# - (lambda (#{body\ 2064}# - #{r\ 2065}# - #{w\ 2066}# - #{s\ 2067}# - #{m\ 2068}# - #{esew\ 2069}# - #{mod\ 2070}#) - (#{build-sequence\ 319}# - #{s\ 2067}# - (letrec ((#{dobody\ 2086}# - (lambda (#{body\ 2087}# - #{r\ 2088}# - #{w\ 2089}# - #{m\ 2090}# - #{esew\ 2091}# - #{mod\ 2092}# - #{out\ 2093}#) - (if (null? #{body\ 2087}#) - (reverse #{out\ 2093}#) - (#{dobody\ 2086}# - (cdr #{body\ 2087}#) - #{r\ 2088}# - #{w\ 2089}# - #{m\ 2090}# - #{esew\ 2091}# - #{mod\ 2092}# - (cons (#{chi-top\ 450}# - (car #{body\ 2087}#) - #{r\ 2088}# - #{w\ 2089}# - #{m\ 2090}# - #{esew\ 2091}# - #{mod\ 2092}#) - #{out\ 2093}#)))))) - (#{dobody\ 2086}# - #{body\ 2064}# - #{r\ 2065}# - #{w\ 2066}# - #{m\ 2068}# - #{esew\ 2069}# - #{mod\ 2070}# + (#{chi-top-sequence\ 12991}# + (lambda (#{body\ 14489}# + #{r\ 14490}# + #{w\ 14491}# + #{s\ 14492}# + #{m\ 14493}# + #{esew\ 14494}# + #{mod\ 14495}#) + (#{build-sequence\ 12868}# + #{s\ 14492}# + (letrec ((#{dobody\ 14511}# + (lambda (#{body\ 14512}# + #{r\ 14513}# + #{w\ 14514}# + #{m\ 14515}# + #{esew\ 14516}# + #{mod\ 14517}# + #{out\ 14518}#) + (if (null? #{body\ 14512}#) + (reverse #{out\ 14518}#) + (#{dobody\ 14511}# + (cdr #{body\ 14512}#) + #{r\ 14513}# + #{w\ 14514}# + #{m\ 14515}# + #{esew\ 14516}# + #{mod\ 14517}# + (cons (#{chi-top\ 12999}# + (car #{body\ 14512}#) + #{r\ 14513}# + #{w\ 14514}# + #{m\ 14515}# + #{esew\ 14516}# + #{mod\ 14517}#) + #{out\ 14518}#)))))) + (#{dobody\ 14511}# + #{body\ 14489}# + #{r\ 14490}# + #{w\ 14491}# + #{m\ 14493}# + #{esew\ 14494}# + #{mod\ 14495}# '()))))) - (#{chi-sequence\ 440}# - (lambda (#{body\ 2094}# - #{r\ 2095}# - #{w\ 2096}# - #{s\ 2097}# - #{mod\ 2098}#) - (#{build-sequence\ 319}# - #{s\ 2097}# - (letrec ((#{dobody\ 2109}# - (lambda (#{body\ 2110}# - #{r\ 2111}# - #{w\ 2112}# - #{mod\ 2113}#) - (if (null? #{body\ 2110}#) + (#{chi-sequence\ 12989}# + (lambda (#{body\ 14519}# + #{r\ 14520}# + #{w\ 14521}# + #{s\ 14522}# + #{mod\ 14523}#) + (#{build-sequence\ 12868}# + #{s\ 14522}# + (letrec ((#{dobody\ 14534}# + (lambda (#{body\ 14535}# + #{r\ 14536}# + #{w\ 14537}# + #{mod\ 14538}#) + (if (null? #{body\ 14535}#) '() - (let ((#{first\ 2115}# - (#{chi\ 452}# - (car #{body\ 2110}#) - #{r\ 2111}# - #{w\ 2112}# - #{mod\ 2113}#))) - (cons #{first\ 2115}# - (#{dobody\ 2109}# - (cdr #{body\ 2110}#) - #{r\ 2111}# - #{w\ 2112}# - #{mod\ 2113}#))))))) - (#{dobody\ 2109}# - #{body\ 2094}# - #{r\ 2095}# - #{w\ 2096}# - #{mod\ 2098}#))))) - (#{source-wrap\ 438}# - (lambda (#{x\ 2116}# - #{w\ 2117}# - #{s\ 2118}# - #{defmod\ 2119}#) - (#{wrap\ 436}# - (#{decorate-source\ 285}# - #{x\ 2116}# - #{s\ 2118}#) - #{w\ 2117}# - #{defmod\ 2119}#))) - (#{wrap\ 436}# - (lambda (#{x\ 2124}# #{w\ 2125}# #{defmod\ 2126}#) - (if (if (null? (#{wrap-marks\ 374}# #{w\ 2125}#)) - (null? (#{wrap-subst\ 376}# #{w\ 2125}#)) + (let ((#{first\ 14540}# + (#{chi\ 13001}# + (car #{body\ 14535}#) + #{r\ 14536}# + #{w\ 14537}# + #{mod\ 14538}#))) + (cons #{first\ 14540}# + (#{dobody\ 14534}# + (cdr #{body\ 14535}#) + #{r\ 14536}# + #{w\ 14537}# + #{mod\ 14538}#))))))) + (#{dobody\ 14534}# + #{body\ 14519}# + #{r\ 14520}# + #{w\ 14521}# + #{mod\ 14523}#))))) + (#{source-wrap\ 12987}# + (lambda (#{x\ 14541}# + #{w\ 14542}# + #{s\ 14543}# + #{defmod\ 14544}#) + (#{wrap\ 12985}# + (#{decorate-source\ 12834}# + #{x\ 14541}# + #{s\ 14543}#) + #{w\ 14542}# + #{defmod\ 14544}#))) + (#{wrap\ 12985}# + (lambda (#{x\ 14549}# #{w\ 14550}# #{defmod\ 14551}#) + (if (if (null? (#{wrap-marks\ 12923}# #{w\ 14550}#)) + (null? (#{wrap-subst\ 12925}# #{w\ 14550}#)) #f) - #{x\ 2124}# - (if (#{syntax-object?\ 331}# #{x\ 2124}#) - (#{make-syntax-object\ 329}# - (#{syntax-object-expression\ 333}# #{x\ 2124}#) - (#{join-wraps\ 418}# - #{w\ 2125}# - (#{syntax-object-wrap\ 335}# #{x\ 2124}#)) - (#{syntax-object-module\ 337}# #{x\ 2124}#)) - (if (null? #{x\ 2124}#) - #{x\ 2124}# - (#{make-syntax-object\ 329}# - #{x\ 2124}# - #{w\ 2125}# - #{defmod\ 2126}#)))))) - (#{bound-id-member?\ 434}# - (lambda (#{x\ 2139}# #{list\ 2140}#) - (if (not (null? #{list\ 2140}#)) - (let ((#{t\ 2147}# - (#{bound-id=?\ 428}# - #{x\ 2139}# - (car #{list\ 2140}#)))) - (if #{t\ 2147}# - #{t\ 2147}# - (#{bound-id-member?\ 434}# - #{x\ 2139}# - (cdr #{list\ 2140}#)))) + #{x\ 14549}# + (if (#{syntax-object?\ 12880}# #{x\ 14549}#) + (#{make-syntax-object\ 12878}# + (#{syntax-object-expression\ 12882}# + #{x\ 14549}#) + (#{join-wraps\ 12967}# + #{w\ 14550}# + (#{syntax-object-wrap\ 12884}# #{x\ 14549}#)) + (#{syntax-object-module\ 12886}# #{x\ 14549}#)) + (if (null? #{x\ 14549}#) + #{x\ 14549}# + (#{make-syntax-object\ 12878}# + #{x\ 14549}# + #{w\ 14550}# + #{defmod\ 14551}#)))))) + (#{bound-id-member?\ 12983}# + (lambda (#{x\ 14564}# #{list\ 14565}#) + (if (not (null? #{list\ 14565}#)) + (let ((#{t\ 14572}# + (#{bound-id=?\ 12977}# + #{x\ 14564}# + (car #{list\ 14565}#)))) + (if #{t\ 14572}# + #{t\ 14572}# + (#{bound-id-member?\ 12983}# + #{x\ 14564}# + (cdr #{list\ 14565}#)))) #f))) - (#{distinct-bound-ids?\ 432}# - (lambda (#{ids\ 2149}#) - (letrec ((#{distinct?\ 2153}# - (lambda (#{ids\ 2154}#) - (let ((#{t\ 2157}# (null? #{ids\ 2154}#))) - (if #{t\ 2157}# - #{t\ 2157}# - (if (not (#{bound-id-member?\ 434}# - (car #{ids\ 2154}#) - (cdr #{ids\ 2154}#))) - (#{distinct?\ 2153}# (cdr #{ids\ 2154}#)) + (#{distinct-bound-ids?\ 12981}# + (lambda (#{ids\ 14574}#) + (letrec ((#{distinct?\ 14578}# + (lambda (#{ids\ 14579}#) + (let ((#{t\ 14582}# (null? #{ids\ 14579}#))) + (if #{t\ 14582}# + #{t\ 14582}# + (if (not (#{bound-id-member?\ 12983}# + (car #{ids\ 14579}#) + (cdr #{ids\ 14579}#))) + (#{distinct?\ 14578}# (cdr #{ids\ 14579}#)) #f)))))) - (#{distinct?\ 2153}# #{ids\ 2149}#)))) - (#{valid-bound-ids?\ 430}# - (lambda (#{ids\ 2161}#) - (if (letrec ((#{all-ids?\ 2166}# - (lambda (#{ids\ 2167}#) - (let ((#{t\ 2170}# (null? #{ids\ 2167}#))) - (if #{t\ 2170}# - #{t\ 2170}# - (if (#{id?\ 367}# (car #{ids\ 2167}#)) - (#{all-ids?\ 2166}# (cdr #{ids\ 2167}#)) + (#{distinct?\ 14578}# #{ids\ 14574}#)))) + (#{valid-bound-ids?\ 12979}# + (lambda (#{ids\ 14586}#) + (if (letrec ((#{all-ids?\ 14591}# + (lambda (#{ids\ 14592}#) + (let ((#{t\ 14595}# (null? #{ids\ 14592}#))) + (if #{t\ 14595}# + #{t\ 14595}# + (if (#{id?\ 12916}# (car #{ids\ 14592}#)) + (#{all-ids?\ 14591}# + (cdr #{ids\ 14592}#)) #f)))))) - (#{all-ids?\ 2166}# #{ids\ 2161}#)) - (#{distinct-bound-ids?\ 432}# #{ids\ 2161}#) + (#{all-ids?\ 14591}# #{ids\ 14586}#)) + (#{distinct-bound-ids?\ 12981}# #{ids\ 14586}#) #f))) - (#{bound-id=?\ 428}# - (lambda (#{i\ 2175}# #{j\ 2176}#) - (if (if (#{syntax-object?\ 331}# #{i\ 2175}#) - (#{syntax-object?\ 331}# #{j\ 2176}#) + (#{bound-id=?\ 12977}# + (lambda (#{i\ 14600}# #{j\ 14601}#) + (if (if (#{syntax-object?\ 12880}# #{i\ 14600}#) + (#{syntax-object?\ 12880}# #{j\ 14601}#) #f) - (if (eq? (#{syntax-object-expression\ 333}# #{i\ 2175}#) - (#{syntax-object-expression\ 333}# #{j\ 2176}#)) - (#{same-marks?\ 422}# - (#{wrap-marks\ 374}# - (#{syntax-object-wrap\ 335}# #{i\ 2175}#)) - (#{wrap-marks\ 374}# - (#{syntax-object-wrap\ 335}# #{j\ 2176}#))) + (if (eq? (#{syntax-object-expression\ 12882}# + #{i\ 14600}#) + (#{syntax-object-expression\ 12882}# + #{j\ 14601}#)) + (#{same-marks?\ 12971}# + (#{wrap-marks\ 12923}# + (#{syntax-object-wrap\ 12884}# #{i\ 14600}#)) + (#{wrap-marks\ 12923}# + (#{syntax-object-wrap\ 12884}# #{j\ 14601}#))) #f) - (eq? #{i\ 2175}# #{j\ 2176}#)))) - (#{free-id=?\ 426}# - (lambda (#{i\ 2183}# #{j\ 2184}#) - (if (eq? (let ((#{x\ 2190}# #{i\ 2183}#)) - (if (#{syntax-object?\ 331}# #{x\ 2190}#) - (#{syntax-object-expression\ 333}# #{x\ 2190}#) - #{x\ 2190}#)) - (let ((#{x\ 2193}# #{j\ 2184}#)) - (if (#{syntax-object?\ 331}# #{x\ 2193}#) - (#{syntax-object-expression\ 333}# #{x\ 2193}#) - #{x\ 2193}#))) - (eq? (#{id-var-name\ 424}# #{i\ 2183}# (quote (()))) - (#{id-var-name\ 424}# #{j\ 2184}# (quote (())))) + (eq? #{i\ 14600}# #{j\ 14601}#)))) + (#{free-id=?\ 12975}# + (lambda (#{i\ 14608}# #{j\ 14609}#) + (if (eq? (let ((#{x\ 14615}# #{i\ 14608}#)) + (if (#{syntax-object?\ 12880}# #{x\ 14615}#) + (#{syntax-object-expression\ 12882}# + #{x\ 14615}#) + #{x\ 14615}#)) + (let ((#{x\ 14618}# #{j\ 14609}#)) + (if (#{syntax-object?\ 12880}# #{x\ 14618}#) + (#{syntax-object-expression\ 12882}# + #{x\ 14618}#) + #{x\ 14618}#))) + (eq? (#{id-var-name\ 12973}# + #{i\ 14608}# + '(())) + (#{id-var-name\ 12973}# + #{j\ 14609}# + '(()))) #f))) - (#{id-var-name\ 424}# - (lambda (#{id\ 2197}# #{w\ 2198}#) - (letrec ((#{search-vector-rib\ 2207}# - (lambda (#{sym\ 2224}# - #{subst\ 2225}# - #{marks\ 2226}# - #{symnames\ 2227}# - #{ribcage\ 2228}#) - (let ((#{n\ 2235}# - (vector-length #{symnames\ 2227}#))) - (letrec ((#{f\ 2238}# - (lambda (#{i\ 2239}#) - (if (#{fx=\ 272}# - #{i\ 2239}# - #{n\ 2235}#) - (#{search\ 2203}# - #{sym\ 2224}# - (cdr #{subst\ 2225}#) - #{marks\ 2226}#) + (#{id-var-name\ 12973}# + (lambda (#{id\ 14622}# #{w\ 14623}#) + (letrec ((#{search-vector-rib\ 14632}# + (lambda (#{sym\ 14644}# + #{subst\ 14645}# + #{marks\ 14646}# + #{symnames\ 14647}# + #{ribcage\ 14648}#) + (let ((#{n\ 14655}# + (vector-length #{symnames\ 14647}#))) + (letrec ((#{f\ 14658}# + (lambda (#{i\ 14659}#) + (if (#{fx=\ 12821}# + #{i\ 14659}# + #{n\ 14655}#) + (#{search\ 14628}# + #{sym\ 14644}# + (cdr #{subst\ 14645}#) + #{marks\ 14646}#) (if (if (eq? (vector-ref - #{symnames\ 2227}# - #{i\ 2239}#) - #{sym\ 2224}#) - (#{same-marks?\ 422}# - #{marks\ 2226}# + #{symnames\ 14647}# + #{i\ 14659}#) + #{sym\ 14644}#) + (#{same-marks?\ 12971}# + #{marks\ 14646}# (vector-ref - (#{ribcage-marks\ 394}# - #{ribcage\ 2228}#) - #{i\ 2239}#)) + (#{ribcage-marks\ 12943}# + #{ribcage\ 14648}#) + #{i\ 14659}#)) #f) (values (vector-ref - (#{ribcage-labels\ 396}# - #{ribcage\ 2228}#) - #{i\ 2239}#) - #{marks\ 2226}#) - (#{f\ 2238}# - (#{fx+\ 268}# - #{i\ 2239}# + (#{ribcage-labels\ 12945}# + #{ribcage\ 14648}#) + #{i\ 14659}#) + #{marks\ 14646}#) + (#{f\ 14658}# + (#{fx+\ 12817}# + #{i\ 14659}# 1))))))) - (#{f\ 2238}# 0))))) - (#{search-list-rib\ 2205}# - (lambda (#{sym\ 2247}# - #{subst\ 2248}# - #{marks\ 2249}# - #{symnames\ 2250}# - #{ribcage\ 2251}#) - (letrec ((#{f\ 2260}# - (lambda (#{symnames\ 2261}# #{i\ 2262}#) - (if (null? #{symnames\ 2261}#) - (#{search\ 2203}# - #{sym\ 2247}# - (cdr #{subst\ 2248}#) - #{marks\ 2249}#) - (if (if (eq? (car #{symnames\ 2261}#) - #{sym\ 2247}#) - (#{same-marks?\ 422}# - #{marks\ 2249}# + (#{f\ 14658}# 0))))) + (#{search-list-rib\ 14630}# + (lambda (#{sym\ 14667}# + #{subst\ 14668}# + #{marks\ 14669}# + #{symnames\ 14670}# + #{ribcage\ 14671}#) + (letrec ((#{f\ 14680}# + (lambda (#{symnames\ 14681}# + #{i\ 14682}#) + (if (null? #{symnames\ 14681}#) + (#{search\ 14628}# + #{sym\ 14667}# + (cdr #{subst\ 14668}#) + #{marks\ 14669}#) + (if (if (eq? (car #{symnames\ 14681}#) + #{sym\ 14667}#) + (#{same-marks?\ 12971}# + #{marks\ 14669}# (list-ref - (#{ribcage-marks\ 394}# - #{ribcage\ 2251}#) - #{i\ 2262}#)) + (#{ribcage-marks\ 12943}# + #{ribcage\ 14671}#) + #{i\ 14682}#)) #f) (values (list-ref - (#{ribcage-labels\ 396}# - #{ribcage\ 2251}#) - #{i\ 2262}#) - #{marks\ 2249}#) - (#{f\ 2260}# - (cdr #{symnames\ 2261}#) - (#{fx+\ 268}# - #{i\ 2262}# + (#{ribcage-labels\ 12945}# + #{ribcage\ 14671}#) + #{i\ 14682}#) + #{marks\ 14669}#) + (#{f\ 14680}# + (cdr #{symnames\ 14681}#) + (#{fx+\ 12817}# + #{i\ 14682}# 1))))))) - (#{f\ 2260}# #{symnames\ 2250}# 0)))) - (#{search\ 2203}# - (lambda (#{sym\ 2270}# - #{subst\ 2271}# - #{marks\ 2272}#) - (if (null? #{subst\ 2271}#) - (values #f #{marks\ 2272}#) - (let ((#{fst\ 2277}# (car #{subst\ 2271}#))) - (if (eq? #{fst\ 2277}# (quote shift)) - (#{search\ 2203}# - #{sym\ 2270}# - (cdr #{subst\ 2271}#) - (cdr #{marks\ 2272}#)) - (let ((#{symnames\ 2279}# - (#{ribcage-symnames\ 392}# - #{fst\ 2277}#))) - (if (vector? #{symnames\ 2279}#) - (#{search-vector-rib\ 2207}# - #{sym\ 2270}# - #{subst\ 2271}# - #{marks\ 2272}# - #{symnames\ 2279}# - #{fst\ 2277}#) - (#{search-list-rib\ 2205}# - #{sym\ 2270}# - #{subst\ 2271}# - #{marks\ 2272}# - #{symnames\ 2279}# - #{fst\ 2277}#))))))))) - (if (symbol? #{id\ 2197}#) - (let ((#{t\ 2282}# + (#{f\ 14680}# #{symnames\ 14670}# 0)))) + (#{search\ 14628}# + (lambda (#{sym\ 14690}# + #{subst\ 14691}# + #{marks\ 14692}#) + (if (null? #{subst\ 14691}#) + (values #f #{marks\ 14692}#) + (let ((#{fst\ 14697}# (car #{subst\ 14691}#))) + (if (eq? #{fst\ 14697}# (quote shift)) + (#{search\ 14628}# + #{sym\ 14690}# + (cdr #{subst\ 14691}#) + (cdr #{marks\ 14692}#)) + (let ((#{symnames\ 14699}# + (#{ribcage-symnames\ 12941}# + #{fst\ 14697}#))) + (if (vector? #{symnames\ 14699}#) + (#{search-vector-rib\ 14632}# + #{sym\ 14690}# + #{subst\ 14691}# + #{marks\ 14692}# + #{symnames\ 14699}# + #{fst\ 14697}#) + (#{search-list-rib\ 14630}# + #{sym\ 14690}# + #{subst\ 14691}# + #{marks\ 14692}# + #{symnames\ 14699}# + #{fst\ 14697}#))))))))) + (if (symbol? #{id\ 14622}#) + (let ((#{t\ 14702}# (call-with-values (lambda () - (#{search\ 2203}# - #{id\ 2197}# - (#{wrap-subst\ 376}# #{w\ 2198}#) - (#{wrap-marks\ 374}# #{w\ 2198}#))) - (lambda (#{x\ 2284}# . #{ignore\ 2285}#) - #{x\ 2284}#)))) - (if #{t\ 2282}# #{t\ 2282}# #{id\ 2197}#)) - (if (#{syntax-object?\ 331}# #{id\ 2197}#) - (let ((#{id\ 2293}# - (#{syntax-object-expression\ 333}# #{id\ 2197}#)) - (#{w1\ 2294}# - (#{syntax-object-wrap\ 335}# #{id\ 2197}#))) - (let ((#{marks\ 2296}# - (#{join-marks\ 420}# - (#{wrap-marks\ 374}# #{w\ 2198}#) - (#{wrap-marks\ 374}# #{w1\ 2294}#)))) + (#{search\ 14628}# + #{id\ 14622}# + (#{wrap-subst\ 12925}# #{w\ 14623}#) + (#{wrap-marks\ 12923}# #{w\ 14623}#))) + (lambda (#{x\ 14704}# . #{ignore\ 14705}#) + #{x\ 14704}#)))) + (if #{t\ 14702}# #{t\ 14702}# #{id\ 14622}#)) + (if (#{syntax-object?\ 12880}# #{id\ 14622}#) + (let ((#{id\ 14713}# + (#{syntax-object-expression\ 12882}# + #{id\ 14622}#)) + (#{w1\ 14714}# + (#{syntax-object-wrap\ 12884}# #{id\ 14622}#))) + (let ((#{marks\ 14716}# + (#{join-marks\ 12969}# + (#{wrap-marks\ 12923}# #{w\ 14623}#) + (#{wrap-marks\ 12923}# #{w1\ 14714}#)))) (call-with-values (lambda () - (#{search\ 2203}# - #{id\ 2293}# - (#{wrap-subst\ 376}# #{w\ 2198}#) - #{marks\ 2296}#)) - (lambda (#{new-id\ 2297}# #{marks\ 2298}#) - (let ((#{t\ 2303}# #{new-id\ 2297}#)) - (if #{t\ 2303}# - #{t\ 2303}# - (let ((#{t\ 2306}# + (#{search\ 14628}# + #{id\ 14713}# + (#{wrap-subst\ 12925}# #{w\ 14623}#) + #{marks\ 14716}#)) + (lambda (#{new-id\ 14717}# #{marks\ 14718}#) + (let ((#{t\ 14723}# #{new-id\ 14717}#)) + (if #{t\ 14723}# + #{t\ 14723}# + (let ((#{t\ 14726}# (call-with-values (lambda () - (#{search\ 2203}# - #{id\ 2293}# - (#{wrap-subst\ 376}# - #{w1\ 2294}#) - #{marks\ 2298}#)) - (lambda (#{x\ 2308}# + (#{search\ 14628}# + #{id\ 14713}# + (#{wrap-subst\ 12925}# + #{w1\ 14714}#) + #{marks\ 14718}#)) + (lambda (#{x\ 14728}# . - #{ignore\ 2309}#) - #{x\ 2308}#)))) - (if #{t\ 2306}# - #{t\ 2306}# - #{id\ 2293}#)))))))) + #{ignore\ 14729}#) + #{x\ 14728}#)))) + (if #{t\ 14726}# + #{t\ 14726}# + #{id\ 14713}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 2197}#)))))) - (#{same-marks?\ 422}# - (lambda (#{x\ 2314}# #{y\ 2315}#) - (let ((#{t\ 2320}# (eq? #{x\ 2314}# #{y\ 2315}#))) - (if #{t\ 2320}# - #{t\ 2320}# - (if (not (null? #{x\ 2314}#)) - (if (not (null? #{y\ 2315}#)) - (if (eq? (car #{x\ 2314}#) (car #{y\ 2315}#)) - (#{same-marks?\ 422}# - (cdr #{x\ 2314}#) - (cdr #{y\ 2315}#)) + #{id\ 14622}#)))))) + (#{same-marks?\ 12971}# + (lambda (#{x\ 14734}# #{y\ 14735}#) + (let ((#{t\ 14740}# (eq? #{x\ 14734}# #{y\ 14735}#))) + (if #{t\ 14740}# + #{t\ 14740}# + (if (not (null? #{x\ 14734}#)) + (if (not (null? #{y\ 14735}#)) + (if (eq? (car #{x\ 14734}#) (car #{y\ 14735}#)) + (#{same-marks?\ 12971}# + (cdr #{x\ 14734}#) + (cdr #{y\ 14735}#)) #f) #f) #f))))) - (#{join-marks\ 420}# - (lambda (#{m1\ 2326}# #{m2\ 2327}#) - (#{smart-append\ 416}# #{m1\ 2326}# #{m2\ 2327}#))) - (#{join-wraps\ 418}# - (lambda (#{w1\ 2330}# #{w2\ 2331}#) - (let ((#{m1\ 2336}# (#{wrap-marks\ 374}# #{w1\ 2330}#)) - (#{s1\ 2337}# (#{wrap-subst\ 376}# #{w1\ 2330}#))) - (if (null? #{m1\ 2336}#) - (if (null? #{s1\ 2337}#) - #{w2\ 2331}# - (#{make-wrap\ 372}# - (#{wrap-marks\ 374}# #{w2\ 2331}#) - (#{smart-append\ 416}# - #{s1\ 2337}# - (#{wrap-subst\ 376}# #{w2\ 2331}#)))) - (#{make-wrap\ 372}# - (#{smart-append\ 416}# - #{m1\ 2336}# - (#{wrap-marks\ 374}# #{w2\ 2331}#)) - (#{smart-append\ 416}# - #{s1\ 2337}# - (#{wrap-subst\ 376}# #{w2\ 2331}#))))))) - (#{smart-append\ 416}# - (lambda (#{m1\ 2338}# #{m2\ 2339}#) - (if (null? #{m2\ 2339}#) - #{m1\ 2338}# - (append #{m1\ 2338}# #{m2\ 2339}#)))) - (#{make-binding-wrap\ 414}# - (lambda (#{ids\ 2342}# #{labels\ 2343}# #{w\ 2344}#) - (if (null? #{ids\ 2342}#) - #{w\ 2344}# - (#{make-wrap\ 372}# - (#{wrap-marks\ 374}# #{w\ 2344}#) - (cons (let ((#{labelvec\ 2349}# - (list->vector #{labels\ 2343}#))) - (let ((#{n\ 2351}# - (vector-length #{labelvec\ 2349}#))) - (let ((#{symnamevec\ 2354}# - (make-vector #{n\ 2351}#)) - (#{marksvec\ 2355}# - (make-vector #{n\ 2351}#))) + (#{join-marks\ 12969}# + (lambda (#{m1\ 14746}# #{m2\ 14747}#) + (#{smart-append\ 12965}# + #{m1\ 14746}# + #{m2\ 14747}#))) + (#{join-wraps\ 12967}# + (lambda (#{w1\ 14750}# #{w2\ 14751}#) + (let ((#{m1\ 14756}# + (#{wrap-marks\ 12923}# #{w1\ 14750}#)) + (#{s1\ 14757}# + (#{wrap-subst\ 12925}# #{w1\ 14750}#))) + (if (null? #{m1\ 14756}#) + (if (null? #{s1\ 14757}#) + #{w2\ 14751}# + (#{make-wrap\ 12921}# + (#{wrap-marks\ 12923}# #{w2\ 14751}#) + (#{smart-append\ 12965}# + #{s1\ 14757}# + (#{wrap-subst\ 12925}# #{w2\ 14751}#)))) + (#{make-wrap\ 12921}# + (#{smart-append\ 12965}# + #{m1\ 14756}# + (#{wrap-marks\ 12923}# #{w2\ 14751}#)) + (#{smart-append\ 12965}# + #{s1\ 14757}# + (#{wrap-subst\ 12925}# #{w2\ 14751}#))))))) + (#{smart-append\ 12965}# + (lambda (#{m1\ 14758}# #{m2\ 14759}#) + (if (null? #{m2\ 14759}#) + #{m1\ 14758}# + (append #{m1\ 14758}# #{m2\ 14759}#)))) + (#{make-binding-wrap\ 12963}# + (lambda (#{ids\ 14762}# #{labels\ 14763}# #{w\ 14764}#) + (if (null? #{ids\ 14762}#) + #{w\ 14764}# + (#{make-wrap\ 12921}# + (#{wrap-marks\ 12923}# #{w\ 14764}#) + (cons (let ((#{labelvec\ 14769}# + (list->vector #{labels\ 14763}#))) + (let ((#{n\ 14771}# + (vector-length #{labelvec\ 14769}#))) + (let ((#{symnamevec\ 14774}# + (make-vector #{n\ 14771}#)) + (#{marksvec\ 14775}# + (make-vector #{n\ 14771}#))) (begin - (letrec ((#{f\ 2359}# - (lambda (#{ids\ 2360}# #{i\ 2361}#) - (if (not (null? #{ids\ 2360}#)) + (letrec ((#{f\ 14779}# + (lambda (#{ids\ 14780}# + #{i\ 14781}#) + (if (not (null? #{ids\ 14780}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 370}# - (car #{ids\ 2360}#) - #{w\ 2344}#)) - (lambda (#{symname\ 2362}# - #{marks\ 2363}#) + (#{id-sym-name&marks\ 12919}# + (car #{ids\ 14780}#) + #{w\ 14764}#)) + (lambda (#{symname\ 14782}# + #{marks\ 14783}#) (begin (vector-set! - #{symnamevec\ 2354}# - #{i\ 2361}# - #{symname\ 2362}#) + #{symnamevec\ 14774}# + #{i\ 14781}# + #{symname\ 14782}#) (vector-set! - #{marksvec\ 2355}# - #{i\ 2361}# - #{marks\ 2363}#) - (#{f\ 2359}# - (cdr #{ids\ 2360}#) - (#{fx+\ 268}# - #{i\ 2361}# + #{marksvec\ 14775}# + #{i\ 14781}# + #{marks\ 14783}#) + (#{f\ 14779}# + (cdr #{ids\ 14780}#) + (#{fx+\ 12817}# + #{i\ 14781}# 1))))))))) - (#{f\ 2359}# #{ids\ 2342}# 0)) - (#{make-ribcage\ 388}# - #{symnamevec\ 2354}# - #{marksvec\ 2355}# - #{labelvec\ 2349}#))))) - (#{wrap-subst\ 376}# #{w\ 2344}#)))))) - (#{extend-ribcage!\ 412}# - (lambda (#{ribcage\ 2366}# #{id\ 2367}# #{label\ 2368}#) + (#{f\ 14779}# #{ids\ 14762}# 0)) + (#{make-ribcage\ 12937}# + #{symnamevec\ 14774}# + #{marksvec\ 14775}# + #{labelvec\ 14769}#))))) + (#{wrap-subst\ 12925}# #{w\ 14764}#)))))) + (#{extend-ribcage!\ 12961}# + (lambda (#{ribcage\ 14786}# + #{id\ 14787}# + #{label\ 14788}#) (begin - (#{set-ribcage-symnames!\ 398}# - #{ribcage\ 2366}# - (cons (#{syntax-object-expression\ 333}# #{id\ 2367}#) - (#{ribcage-symnames\ 392}# #{ribcage\ 2366}#))) - (#{set-ribcage-marks!\ 400}# - #{ribcage\ 2366}# - (cons (#{wrap-marks\ 374}# - (#{syntax-object-wrap\ 335}# #{id\ 2367}#)) - (#{ribcage-marks\ 394}# #{ribcage\ 2366}#))) - (#{set-ribcage-labels!\ 402}# - #{ribcage\ 2366}# - (cons #{label\ 2368}# - (#{ribcage-labels\ 396}# #{ribcage\ 2366}#)))))) - (#{anti-mark\ 408}# - (lambda (#{w\ 2372}#) - (#{make-wrap\ 372}# - (cons #f (#{wrap-marks\ 374}# #{w\ 2372}#)) + (#{set-ribcage-symnames!\ 12947}# + #{ribcage\ 14786}# + (cons (#{syntax-object-expression\ 12882}# + #{id\ 14787}#) + (#{ribcage-symnames\ 12941}# #{ribcage\ 14786}#))) + (#{set-ribcage-marks!\ 12949}# + #{ribcage\ 14786}# + (cons (#{wrap-marks\ 12923}# + (#{syntax-object-wrap\ 12884}# #{id\ 14787}#)) + (#{ribcage-marks\ 12943}# #{ribcage\ 14786}#))) + (#{set-ribcage-labels!\ 12951}# + #{ribcage\ 14786}# + (cons #{label\ 14788}# + (#{ribcage-labels\ 12945}# #{ribcage\ 14786}#)))))) + (#{anti-mark\ 12957}# + (lambda (#{w\ 14792}#) + (#{make-wrap\ 12921}# + (cons #f (#{wrap-marks\ 12923}# #{w\ 14792}#)) (cons 'shift - (#{wrap-subst\ 376}# #{w\ 2372}#))))) - (#{set-ribcage-labels!\ 402}# - (lambda (#{x\ 2375}# #{update\ 2376}#) - (vector-set! #{x\ 2375}# 3 #{update\ 2376}#))) - (#{set-ribcage-marks!\ 400}# - (lambda (#{x\ 2379}# #{update\ 2380}#) - (vector-set! #{x\ 2379}# 2 #{update\ 2380}#))) - (#{set-ribcage-symnames!\ 398}# - (lambda (#{x\ 2383}# #{update\ 2384}#) - (vector-set! #{x\ 2383}# 1 #{update\ 2384}#))) - (#{ribcage-labels\ 396}# - (lambda (#{x\ 2387}#) (vector-ref #{x\ 2387}# 3))) - (#{ribcage-marks\ 394}# - (lambda (#{x\ 2389}#) (vector-ref #{x\ 2389}# 2))) - (#{ribcage-symnames\ 392}# - (lambda (#{x\ 2391}#) (vector-ref #{x\ 2391}# 1))) - (#{ribcage?\ 390}# - (lambda (#{x\ 2393}#) - (if (vector? #{x\ 2393}#) - (if (= (vector-length #{x\ 2393}#) 4) - (eq? (vector-ref #{x\ 2393}# 0) (quote ribcage)) + (#{wrap-subst\ 12925}# #{w\ 14792}#))))) + (#{set-ribcage-labels!\ 12951}# + (lambda (#{x\ 14795}# #{update\ 14796}#) + (vector-set! #{x\ 14795}# 3 #{update\ 14796}#))) + (#{set-ribcage-marks!\ 12949}# + (lambda (#{x\ 14799}# #{update\ 14800}#) + (vector-set! #{x\ 14799}# 2 #{update\ 14800}#))) + (#{set-ribcage-symnames!\ 12947}# + (lambda (#{x\ 14803}# #{update\ 14804}#) + (vector-set! #{x\ 14803}# 1 #{update\ 14804}#))) + (#{ribcage-labels\ 12945}# + (lambda (#{x\ 14807}#) + (vector-ref #{x\ 14807}# 3))) + (#{ribcage-marks\ 12943}# + (lambda (#{x\ 14809}#) + (vector-ref #{x\ 14809}# 2))) + (#{ribcage-symnames\ 12941}# + (lambda (#{x\ 14811}#) + (vector-ref #{x\ 14811}# 1))) + (#{ribcage?\ 12939}# + (lambda (#{x\ 14813}#) + (if (vector? #{x\ 14813}#) + (if (= (vector-length #{x\ 14813}#) 4) + (eq? (vector-ref #{x\ 14813}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 388}# - (lambda (#{symnames\ 2398}# - #{marks\ 2399}# - #{labels\ 2400}#) + (#{make-ribcage\ 12937}# + (lambda (#{symnames\ 14818}# + #{marks\ 14819}# + #{labels\ 14820}#) (vector 'ribcage - #{symnames\ 2398}# - #{marks\ 2399}# - #{labels\ 2400}#))) - (#{gen-labels\ 385}# - (lambda (#{ls\ 2404}#) - (if (null? #{ls\ 2404}#) + #{symnames\ 14818}# + #{marks\ 14819}# + #{labels\ 14820}#))) + (#{gen-labels\ 12934}# + (lambda (#{ls\ 14824}#) + (if (null? #{ls\ 14824}#) '() - (cons (#{gen-label\ 383}#) - (#{gen-labels\ 385}# (cdr #{ls\ 2404}#)))))) - (#{gen-label\ 383}# + (cons (#{gen-label\ 12932}#) + (#{gen-labels\ 12934}# (cdr #{ls\ 14824}#)))))) + (#{gen-label\ 12932}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 376}# cdr) - (#{wrap-marks\ 374}# car) - (#{make-wrap\ 372}# cons) - (#{id-sym-name&marks\ 370}# - (lambda (#{x\ 2406}# #{w\ 2407}#) - (if (#{syntax-object?\ 331}# #{x\ 2406}#) + (#{wrap-subst\ 12925}# cdr) + (#{wrap-marks\ 12923}# car) + (#{make-wrap\ 12921}# cons) + (#{id-sym-name&marks\ 12919}# + (lambda (#{x\ 14826}# #{w\ 14827}#) + (if (#{syntax-object?\ 12880}# #{x\ 14826}#) (values - (#{syntax-object-expression\ 333}# #{x\ 2406}#) - (#{join-marks\ 420}# - (#{wrap-marks\ 374}# #{w\ 2407}#) - (#{wrap-marks\ 374}# - (#{syntax-object-wrap\ 335}# #{x\ 2406}#)))) + (#{syntax-object-expression\ 12882}# + #{x\ 14826}#) + (#{join-marks\ 12969}# + (#{wrap-marks\ 12923}# #{w\ 14827}#) + (#{wrap-marks\ 12923}# + (#{syntax-object-wrap\ 12884}# #{x\ 14826}#)))) (values - #{x\ 2406}# - (#{wrap-marks\ 374}# #{w\ 2407}#))))) - (#{id?\ 367}# - (lambda (#{x\ 2410}#) - (if (symbol? #{x\ 2410}#) + #{x\ 14826}# + (#{wrap-marks\ 12923}# #{w\ 14827}#))))) + (#{id?\ 12916}# + (lambda (#{x\ 14830}#) + (if (symbol? #{x\ 14830}#) #t - (if (#{syntax-object?\ 331}# #{x\ 2410}#) + (if (#{syntax-object?\ 12880}# #{x\ 14830}#) (symbol? - (#{syntax-object-expression\ 333}# #{x\ 2410}#)) + (#{syntax-object-expression\ 12882}# + #{x\ 14830}#)) #f)))) - (#{nonsymbol-id?\ 365}# - (lambda (#{x\ 2417}#) - (if (#{syntax-object?\ 331}# #{x\ 2417}#) + (#{nonsymbol-id?\ 12914}# + (lambda (#{x\ 14837}#) + (if (#{syntax-object?\ 12880}# #{x\ 14837}#) (symbol? - (#{syntax-object-expression\ 333}# #{x\ 2417}#)) + (#{syntax-object-expression\ 12882}# + #{x\ 14837}#)) #f))) - (#{global-extend\ 363}# - (lambda (#{type\ 2421}# #{sym\ 2422}# #{val\ 2423}#) - (#{put-global-definition-hook\ 281}# - #{sym\ 2422}# - #{type\ 2421}# - #{val\ 2423}#))) - (#{lookup\ 361}# - (lambda (#{x\ 2427}# #{r\ 2428}# #{mod\ 2429}#) - (let ((#{t\ 2435}# (assq #{x\ 2427}# #{r\ 2428}#))) - (if #{t\ 2435}# - (cdr #{t\ 2435}#) - (if (symbol? #{x\ 2427}#) - (let ((#{t\ 2441}# - (#{get-global-definition-hook\ 283}# - #{x\ 2427}# - #{mod\ 2429}#))) - (if #{t\ 2441}# #{t\ 2441}# (quote (global)))) + (#{global-extend\ 12912}# + (lambda (#{type\ 14841}# #{sym\ 14842}# #{val\ 14843}#) + (#{put-global-definition-hook\ 12830}# + #{sym\ 14842}# + #{type\ 14841}# + #{val\ 14843}#))) + (#{lookup\ 12910}# + (lambda (#{x\ 14847}# #{r\ 14848}# #{mod\ 14849}#) + (let ((#{t\ 14855}# (assq #{x\ 14847}# #{r\ 14848}#))) + (if #{t\ 14855}# + (cdr #{t\ 14855}#) + (if (symbol? #{x\ 14847}#) + (let ((#{t\ 14861}# + (#{get-global-definition-hook\ 12832}# + #{x\ 14847}# + #{mod\ 14849}#))) + (if #{t\ 14861}# #{t\ 14861}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 359}# - (lambda (#{r\ 2446}#) - (if (null? #{r\ 2446}#) + (#{macros-only-env\ 12908}# + (lambda (#{r\ 14866}#) + (if (null? #{r\ 14866}#) '() - (let ((#{a\ 2449}# (car #{r\ 2446}#))) - (if (eq? (cadr #{a\ 2449}#) (quote macro)) - (cons #{a\ 2449}# - (#{macros-only-env\ 359}# (cdr #{r\ 2446}#))) - (#{macros-only-env\ 359}# (cdr #{r\ 2446}#))))))) - (#{extend-var-env\ 357}# - (lambda (#{labels\ 2450}# #{vars\ 2451}# #{r\ 2452}#) - (if (null? #{labels\ 2450}#) - #{r\ 2452}# - (#{extend-var-env\ 357}# - (cdr #{labels\ 2450}#) - (cdr #{vars\ 2451}#) - (cons (cons (car #{labels\ 2450}#) - (cons (quote lexical) (car #{vars\ 2451}#))) - #{r\ 2452}#))))) - (#{extend-env\ 355}# - (lambda (#{labels\ 2457}# #{bindings\ 2458}# #{r\ 2459}#) - (if (null? #{labels\ 2457}#) - #{r\ 2459}# - (#{extend-env\ 355}# - (cdr #{labels\ 2457}#) - (cdr #{bindings\ 2458}#) - (cons (cons (car #{labels\ 2457}#) - (car #{bindings\ 2458}#)) - #{r\ 2459}#))))) - (#{binding-value\ 352}# cdr) - (#{binding-type\ 350}# car) - (#{source-annotation\ 346}# - (lambda (#{x\ 2463}#) - (if (#{syntax-object?\ 331}# #{x\ 2463}#) - (#{source-annotation\ 346}# - (#{syntax-object-expression\ 333}# #{x\ 2463}#)) - (if (pair? #{x\ 2463}#) - (let ((#{props\ 2470}# (source-properties #{x\ 2463}#))) - (if (pair? #{props\ 2470}#) #{props\ 2470}# #f)) + (let ((#{a\ 14869}# (car #{r\ 14866}#))) + (if (eq? (cadr #{a\ 14869}#) (quote macro)) + (cons #{a\ 14869}# + (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#))) + (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#))))))) + (#{extend-var-env\ 12906}# + (lambda (#{labels\ 14870}# #{vars\ 14871}# #{r\ 14872}#) + (if (null? #{labels\ 14870}#) + #{r\ 14872}# + (#{extend-var-env\ 12906}# + (cdr #{labels\ 14870}#) + (cdr #{vars\ 14871}#) + (cons (cons (car #{labels\ 14870}#) + (cons (quote lexical) (car #{vars\ 14871}#))) + #{r\ 14872}#))))) + (#{extend-env\ 12904}# + (lambda (#{labels\ 14877}# + #{bindings\ 14878}# + #{r\ 14879}#) + (if (null? #{labels\ 14877}#) + #{r\ 14879}# + (#{extend-env\ 12904}# + (cdr #{labels\ 14877}#) + (cdr #{bindings\ 14878}#) + (cons (cons (car #{labels\ 14877}#) + (car #{bindings\ 14878}#)) + #{r\ 14879}#))))) + (#{binding-value\ 12901}# cdr) + (#{binding-type\ 12899}# car) + (#{source-annotation\ 12895}# + (lambda (#{x\ 14883}#) + (if (#{syntax-object?\ 12880}# #{x\ 14883}#) + (#{source-annotation\ 12895}# + (#{syntax-object-expression\ 12882}# + #{x\ 14883}#)) + (if (pair? #{x\ 14883}#) + (let ((#{props\ 14890}# + (source-properties #{x\ 14883}#))) + (if (pair? #{props\ 14890}#) #{props\ 14890}# #f)) #f)))) - (#{set-syntax-object-module!\ 343}# - (lambda (#{x\ 2472}# #{update\ 2473}#) - (vector-set! #{x\ 2472}# 3 #{update\ 2473}#))) - (#{set-syntax-object-wrap!\ 341}# - (lambda (#{x\ 2476}# #{update\ 2477}#) - (vector-set! #{x\ 2476}# 2 #{update\ 2477}#))) - (#{set-syntax-object-expression!\ 339}# - (lambda (#{x\ 2480}# #{update\ 2481}#) - (vector-set! #{x\ 2480}# 1 #{update\ 2481}#))) - (#{syntax-object-module\ 337}# - (lambda (#{x\ 2484}#) (vector-ref #{x\ 2484}# 3))) - (#{syntax-object-wrap\ 335}# - (lambda (#{x\ 2486}#) (vector-ref #{x\ 2486}# 2))) - (#{syntax-object-expression\ 333}# - (lambda (#{x\ 2488}#) (vector-ref #{x\ 2488}# 1))) - (#{syntax-object?\ 331}# - (lambda (#{x\ 2490}#) - (if (vector? #{x\ 2490}#) - (if (= (vector-length #{x\ 2490}#) 4) - (eq? (vector-ref #{x\ 2490}# 0) + (#{set-syntax-object-module!\ 12892}# + (lambda (#{x\ 14892}# #{update\ 14893}#) + (vector-set! #{x\ 14892}# 3 #{update\ 14893}#))) + (#{set-syntax-object-wrap!\ 12890}# + (lambda (#{x\ 14896}# #{update\ 14897}#) + (vector-set! #{x\ 14896}# 2 #{update\ 14897}#))) + (#{set-syntax-object-expression!\ 12888}# + (lambda (#{x\ 14900}# #{update\ 14901}#) + (vector-set! #{x\ 14900}# 1 #{update\ 14901}#))) + (#{syntax-object-module\ 12886}# + (lambda (#{x\ 14904}#) + (vector-ref #{x\ 14904}# 3))) + (#{syntax-object-wrap\ 12884}# + (lambda (#{x\ 14906}#) + (vector-ref #{x\ 14906}# 2))) + (#{syntax-object-expression\ 12882}# + (lambda (#{x\ 14908}#) + (vector-ref #{x\ 14908}# 1))) + (#{syntax-object?\ 12880}# + (lambda (#{x\ 14910}#) + (if (vector? #{x\ 14910}#) + (if (= (vector-length #{x\ 14910}#) 4) + (eq? (vector-ref #{x\ 14910}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 329}# - (lambda (#{expression\ 2495}# - #{wrap\ 2496}# - #{module\ 2497}#) + (#{make-syntax-object\ 12878}# + (lambda (#{expression\ 14915}# + #{wrap\ 14916}# + #{module\ 14917}#) (vector 'syntax-object - #{expression\ 2495}# - #{wrap\ 2496}# - #{module\ 2497}#))) - (#{build-letrec\ 325}# - (lambda (#{src\ 2501}# - #{ids\ 2502}# - #{vars\ 2503}# - #{val-exps\ 2504}# - #{body-exp\ 2505}#) - (if (null? #{vars\ 2503}#) - #{body-exp\ 2505}# - (let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2513}# (quote (c))) - (begin - (for-each - #{maybe-name-value!\ 305}# - #{ids\ 2502}# - #{val-exps\ 2504}#) - (#{make-letrec\ 264}# - #{src\ 2501}# - #{ids\ 2502}# - #{vars\ 2503}# - #{val-exps\ 2504}# - #{body-exp\ 2505}#)) - (#{decorate-source\ 285}# - (list 'letrec - (map list #{vars\ 2503}# #{val-exps\ 2504}#) - #{body-exp\ 2505}#) - #{src\ 2501}#)))))) - (#{build-named-let\ 323}# - (lambda (#{src\ 2517}# - #{ids\ 2518}# - #{vars\ 2519}# - #{val-exps\ 2520}# - #{body-exp\ 2521}#) - (let ((#{f\ 2531}# (car #{vars\ 2519}#)) - (#{f-name\ 2532}# (car #{ids\ 2518}#)) - (#{vars\ 2533}# (cdr #{vars\ 2519}#)) - (#{ids\ 2534}# (cdr #{ids\ 2518}#))) - (let ((#{atom-key\ 2537}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2537}# (quote (c))) - (let ((#{proc\ 2540}# - (#{build-simple-lambda\ 309}# - #{src\ 2517}# - #{ids\ 2534}# - #f - #{vars\ 2533}# - '() - #{body-exp\ 2521}#))) - (begin - (#{maybe-name-value!\ 305}# - #{f-name\ 2532}# - #{proc\ 2540}#) - (for-each - #{maybe-name-value!\ 305}# - #{ids\ 2534}# - #{val-exps\ 2520}#) - (#{make-letrec\ 264}# - #{src\ 2517}# - (list #{f-name\ 2532}#) - (list #{f\ 2531}#) - (list #{proc\ 2540}#) - (#{build-application\ 289}# - #{src\ 2517}# - (#{build-lexical-reference\ 295}# - 'fun - #{src\ 2517}# - #{f-name\ 2532}# - #{f\ 2531}#) - #{val-exps\ 2520}#)))) - (#{decorate-source\ 285}# - (list 'letrec - (list (list #{f\ 2531}# - (list 'lambda - #{vars\ 2533}# - #{body-exp\ 2521}#))) - (cons #{f\ 2531}# #{val-exps\ 2520}#)) - #{src\ 2517}#)))))) - (#{build-let\ 321}# - (lambda (#{src\ 2543}# - #{ids\ 2544}# - #{vars\ 2545}# - #{val-exps\ 2546}# - #{body-exp\ 2547}#) - (if (null? #{vars\ 2545}#) - #{body-exp\ 2547}# - (let ((#{atom-key\ 2555}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2555}# (quote (c))) - (begin - (for-each - #{maybe-name-value!\ 305}# - #{ids\ 2544}# - #{val-exps\ 2546}#) - (#{make-let\ 262}# - #{src\ 2543}# - #{ids\ 2544}# - #{vars\ 2545}# - #{val-exps\ 2546}# - #{body-exp\ 2547}#)) - (#{decorate-source\ 285}# - (list 'let - (map list #{vars\ 2545}# #{val-exps\ 2546}#) - #{body-exp\ 2547}#) - #{src\ 2543}#)))))) - (#{build-sequence\ 319}# - (lambda (#{src\ 2559}# #{exps\ 2560}#) - (if (null? (cdr #{exps\ 2560}#)) - (car #{exps\ 2560}#) - (let ((#{atom-key\ 2565}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2565}# (quote (c))) - (#{make-sequence\ 256}# - #{src\ 2559}# - #{exps\ 2560}#) - (#{decorate-source\ 285}# - (cons (quote begin) #{exps\ 2560}#) - #{src\ 2559}#)))))) - (#{build-data\ 317}# - (lambda (#{src\ 2569}# #{exp\ 2570}#) - (let ((#{atom-key\ 2575}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2575}# (quote (c))) - (#{make-const\ 234}# #{src\ 2569}# #{exp\ 2570}#) - (#{decorate-source\ 285}# - (if (if (self-evaluating? #{exp\ 2570}#) - (not (vector? #{exp\ 2570}#)) - #f) - #{exp\ 2570}# - (list (quote quote) #{exp\ 2570}#)) - #{src\ 2569}#))))) - (#{build-primref\ 315}# - (lambda (#{src\ 2580}# #{name\ 2581}#) + #{expression\ 14915}# + #{wrap\ 14916}# + #{module\ 14917}#))) + (#{build-letrec\ 12874}# + (lambda (#{src\ 14921}# + #{ids\ 14922}# + #{vars\ 14923}# + #{val-exps\ 14924}# + #{body-exp\ 14925}#) + (if (null? #{vars\ 14923}#) + #{body-exp\ 14925}# + (#{make-letrec\ 12813}# + #{src\ 14921}# + #{ids\ 14922}# + #{vars\ 14923}# + #{val-exps\ 14924}# + #{body-exp\ 14925}#)))) + (#{build-named-let\ 12872}# + (lambda (#{src\ 14931}# + #{ids\ 14932}# + #{vars\ 14933}# + #{val-exps\ 14934}# + #{body-exp\ 14935}#) + (let ((#{f\ 14945}# (car #{vars\ 14933}#)) + (#{f-name\ 14946}# (car #{ids\ 14932}#)) + (#{vars\ 14947}# (cdr #{vars\ 14933}#)) + (#{ids\ 14948}# (cdr #{ids\ 14932}#))) + (let ((#{proc\ 14950}# + (#{build-simple-lambda\ 12858}# + #{src\ 14931}# + #{ids\ 14948}# + #f + #{vars\ 14947}# + '() + #{body-exp\ 14935}#))) + (#{make-letrec\ 12813}# + #{src\ 14931}# + (list #{f-name\ 14946}#) + (list #{f\ 14945}#) + (list #{proc\ 14950}#) + (#{build-application\ 12838}# + #{src\ 14931}# + (#{build-lexical-reference\ 12844}# + 'fun + #{src\ 14931}# + #{f-name\ 14946}# + #{f\ 14945}#) + #{val-exps\ 14934}#)))))) + (#{build-let\ 12870}# + (lambda (#{src\ 14951}# + #{ids\ 14952}# + #{vars\ 14953}# + #{val-exps\ 14954}# + #{body-exp\ 14955}#) + (if (null? #{vars\ 14953}#) + #{body-exp\ 14955}# + (#{make-let\ 12811}# + #{src\ 14951}# + #{ids\ 14952}# + #{vars\ 14953}# + #{val-exps\ 14954}# + #{body-exp\ 14955}#)))) + (#{build-sequence\ 12868}# + (lambda (#{src\ 14961}# #{exps\ 14962}#) + (if (null? (cdr #{exps\ 14962}#)) + (car #{exps\ 14962}#) + (#{make-sequence\ 12805}# + #{src\ 14961}# + #{exps\ 14962}#)))) + (#{build-data\ 12866}# + (lambda (#{src\ 14965}# #{exp\ 14966}#) + (#{make-const\ 12783}# + #{src\ 14965}# + #{exp\ 14966}#))) + (#{build-primref\ 12864}# + (lambda (#{src\ 14969}# #{name\ 14970}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2586}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2586}# (quote (c))) - (#{make-toplevel-ref\ 246}# - #{src\ 2580}# - #{name\ 2581}#) - (#{decorate-source\ 285}# - #{name\ 2581}# - #{src\ 2580}#))) - (let ((#{atom-key\ 2591}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2591}# (quote (c))) - (#{make-module-ref\ 242}# - #{src\ 2580}# - '(guile) - #{name\ 2581}# - #f) - (#{decorate-source\ 285}# - (list (quote @@) (quote (guile)) #{name\ 2581}#) - #{src\ 2580}#)))))) - (#{build-lambda-case\ 313}# - (lambda (#{src\ 2595}# - #{req\ 2596}# - #{opt\ 2597}# - #{rest\ 2598}# - #{kw\ 2599}# - #{inits\ 2600}# - #{vars\ 2601}# - #{body\ 2602}# - #{else-case\ 2603}#) - (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2615}# (quote (c))) - (#{make-lambda-case\ 260}# - #{src\ 2595}# - #{req\ 2596}# - #{opt\ 2597}# - #{rest\ 2598}# - #{kw\ 2599}# - #{inits\ 2600}# - #{vars\ 2601}# - #{body\ 2602}# - #{else-case\ 2603}#) - (let ((#{nreq\ 2620}# (length #{req\ 2596}#))) - (let ((#{nopt\ 2622}# - (if #{opt\ 2597}# (length #{opt\ 2597}#) 0))) - (let ((#{rest-idx\ 2624}# - (if #{rest\ 2598}# - (+ #{nreq\ 2620}# #{nopt\ 2622}#) + (#{make-toplevel-ref\ 12795}# + #{src\ 14969}# + #{name\ 14970}#) + (#{make-module-ref\ 12791}# + #{src\ 14969}# + '(guile) + #{name\ 14970}# + #f)))) + (#{build-lambda-case\ 12862}# + (lambda (#{src\ 14973}# + #{req\ 14974}# + #{opt\ 14975}# + #{rest\ 14976}# + #{kw\ 14977}# + #{inits\ 14978}# + #{vars\ 14979}# + #{body\ 14980}# + #{else-case\ 14981}#) + (let ((#{atom-key\ 14993}# + (fluid-ref #{*mode*\ 12778}#))) + (if (memv #{atom-key\ 14993}# (quote (c))) + (#{make-lambda-case\ 12809}# + #{src\ 14973}# + #{req\ 14974}# + #{opt\ 14975}# + #{rest\ 14976}# + #{kw\ 14977}# + #{inits\ 14978}# + #{vars\ 14979}# + #{body\ 14980}# + #{else-case\ 14981}#) + (let ((#{nreq\ 14998}# (length #{req\ 14974}#))) + (let ((#{nopt\ 15000}# + (if #{opt\ 14975}# (length #{opt\ 14975}#) 0))) + (let ((#{rest-idx\ 15002}# + (if #{rest\ 14976}# + (+ #{nreq\ 14998}# #{nopt\ 15000}#) #f))) - (let ((#{allow-other-keys?\ 2628}# - (if #{kw\ 2599}# (car #{kw\ 2599}#) #f))) - (let ((#{kw-indices\ 2630}# - (map (lambda (#{x\ 2631}#) - (cons (car #{x\ 2631}#) + (let ((#{allow-other-keys?\ 15006}# + (if #{kw\ 14977}# (car #{kw\ 14977}#) #f))) + (let ((#{kw-indices\ 15008}# + (map (lambda (#{x\ 15009}#) + (cons (car #{x\ 15009}#) (list-index - #{vars\ 2601}# - (caddr #{x\ 2631}#)))) - (if #{kw\ 2599}# - (cdr #{kw\ 2599}#) + #{vars\ 14979}# + (caddr #{x\ 15009}#)))) + (if #{kw\ 14977}# + (cdr #{kw\ 14977}#) '())))) - (let ((#{nargs\ 2634}# + (let ((#{nargs\ 15012}# (apply max - (+ #{nreq\ 2620}# - #{nopt\ 2622}# - (if #{rest\ 2598}# 1 0)) + (+ #{nreq\ 14998}# + #{nopt\ 15000}# + (if #{rest\ 14976}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2630}#))))) + #{kw-indices\ 15008}#))))) (begin - (let ((#{t\ 2637}# - (= #{nargs\ 2634}# - (length #{vars\ 2601}#) - (+ #{nreq\ 2620}# - (length #{inits\ 2600}#) - (if #{rest\ 2598}# 1 0))))) - (if #{t\ 2637}# - #{t\ 2637}# + (let ((#{t\ 15015}# + (= #{nargs\ 15012}# + (length #{vars\ 14979}#) + (+ #{nreq\ 14998}# + (length #{inits\ 14978}#) + (if #{rest\ 14976}# 1 0))))) + (if #{t\ 15015}# + #{t\ 15015}# (error "something went wrong" - #{req\ 2596}# - #{opt\ 2597}# - #{rest\ 2598}# - #{kw\ 2599}# - #{inits\ 2600}# - #{vars\ 2601}# - #{nreq\ 2620}# - #{nopt\ 2622}# - #{kw-indices\ 2630}# - #{nargs\ 2634}#))) - (#{decorate-source\ 285}# - (cons (list (append - (list-head - #{vars\ 2601}# - #{nreq\ 2620}#) - (append - (if #{opt\ 2597}# - (cons #:optional - (map list - (list-head - (list-tail - #{vars\ 2601}# - #{nreq\ 2620}#) - #{nopt\ 2622}#) - (list-head - #{inits\ 2600}# - #{nopt\ 2622}#))) - '()) - (append - (if #{kw\ 2599}# - (cons #:key - (map (lambda (#{x\ 2642}# - #{init\ 2643}#) - (list (caddr #{x\ 2642}#) - #{init\ 2643}# - (car #{x\ 2642}#))) - (cdr #{kw\ 2599}#) - (list-tail - #{inits\ 2600}# - #{nopt\ 2622}#))) - '()) - (append - (if #{allow-other-keys?\ 2628}# - '(#:allow-other-keys) - '()) - (if #{rest\ 2598}# - (list-ref - #{vars\ 2601}# - #{rest-idx\ 2624}#) - '()))))) - #{body\ 2602}#) - (let ((#{t\ 2648}# - #{else-case\ 2603}#)) - (if #{t\ 2648}# - #{t\ 2648}# - '()))) - #{src\ 2595}#)))))))))))) - (#{build-case-lambda\ 311}# - (lambda (#{src\ 2650}# #{meta\ 2651}# #{body\ 2652}#) - (let ((#{atom-key\ 2658}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2658}# (quote (c))) - (#{make-lambda\ 258}# - #{src\ 2650}# - #{meta\ 2651}# - #{body\ 2652}#) - (#{decorate-source\ 285}# - (cons (quote case-lambda*) #{body\ 2652}#) - #{src\ 2650}#))))) - (#{build-simple-lambda\ 309}# - (lambda (#{src\ 2662}# - #{req\ 2663}# - #{rest\ 2664}# - #{vars\ 2665}# - #{meta\ 2666}# - #{exp\ 2667}#) - (let ((#{atom-key\ 2676}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2676}# (quote (c))) - (#{make-lambda\ 258}# - #{src\ 2662}# - #{meta\ 2666}# - (#{make-lambda-case\ 260}# - #{src\ 2662}# - #{req\ 2663}# - #f - #{rest\ 2664}# - #f - '() - #{vars\ 2665}# - #{exp\ 2667}# - #f)) - (#{decorate-source\ 285}# - (list 'lambda - (if #{rest\ 2664}# - (apply cons* #{vars\ 2665}#) - #{vars\ 2665}#) - #{exp\ 2667}#) - #{src\ 2662}#))))) - (#{build-global-definition\ 307}# - (lambda (#{source\ 2680}# #{var\ 2681}# #{exp\ 2682}#) - (let ((#{atom-key\ 2688}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2688}# (quote (c))) - (begin - (#{maybe-name-value!\ 305}# - #{var\ 2681}# - #{exp\ 2682}#) - (#{make-toplevel-define\ 250}# - #{source\ 2680}# - #{var\ 2681}# - #{exp\ 2682}#)) - (#{decorate-source\ 285}# - (list (quote define) #{var\ 2681}# #{exp\ 2682}#) - #{source\ 2680}#))))) - (#{maybe-name-value!\ 305}# - (lambda (#{name\ 2692}# #{val\ 2693}#) - (if ((@ (language tree-il) lambda?) #{val\ 2693}#) - (let ((#{meta\ 2699}# + #{req\ 14974}# + #{opt\ 14975}# + #{rest\ 14976}# + #{kw\ 14977}# + #{inits\ 14978}# + #{vars\ 14979}# + #{nreq\ 14998}# + #{nopt\ 15000}# + #{kw-indices\ 15008}# + #{nargs\ 15012}#))) + (#{make-lambda-case\ 12809}# + #{src\ 14973}# + #{req\ 14974}# + #{opt\ 14975}# + #{rest\ 14976}# + (if #{kw\ 14977}# + (cons #{allow-other-keys?\ 15006}# + #{kw-indices\ 15008}#) + #f) + #{inits\ 14978}# + #{vars\ 14979}# + #{body\ 14980}# + #{else-case\ 14981}#)))))))))))) + (#{build-case-lambda\ 12860}# + (lambda (#{src\ 15019}# #{meta\ 15020}# #{body\ 15021}#) + (#{make-lambda\ 12807}# + #{src\ 15019}# + #{meta\ 15020}# + #{body\ 15021}#))) + (#{build-simple-lambda\ 12858}# + (lambda (#{src\ 15025}# + #{req\ 15026}# + #{rest\ 15027}# + #{vars\ 15028}# + #{meta\ 15029}# + #{exp\ 15030}#) + (#{make-lambda\ 12807}# + #{src\ 15025}# + #{meta\ 15029}# + (#{make-lambda-case\ 12809}# + #{src\ 15025}# + #{req\ 15026}# + #f + #{rest\ 15027}# + #f + '() + #{vars\ 15028}# + #{exp\ 15030}# + #f)))) + (#{build-global-definition\ 12856}# + (lambda (#{source\ 15037}# #{var\ 15038}# #{exp\ 15039}#) + (#{make-toplevel-define\ 12799}# + #{source\ 15037}# + #{var\ 15038}# + #{exp\ 15039}#))) + (#{maybe-name-value!\ 12854}# + (lambda (#{name\ 15043}# #{val\ 15044}#) + (if ((@ (language tree-il) lambda?) #{val\ 15044}#) + (let ((#{meta\ 15050}# ((@ (language tree-il) lambda-meta) - #{val\ 2693}#))) - (if (not (assq (quote name) #{meta\ 2699}#)) + #{val\ 15044}#))) + (if (not (assq (quote name) #{meta\ 15050}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2693}# + #{val\ 15044}# (acons 'name - #{name\ 2692}# - #{meta\ 2699}#))))))) - (#{build-global-assignment\ 303}# - (lambda (#{source\ 2700}# - #{var\ 2701}# - #{exp\ 2702}# - #{mod\ 2703}#) - (#{analyze-variable\ 299}# - #{mod\ 2703}# - #{var\ 2701}# - (lambda (#{mod\ 2708}# #{var\ 2709}# #{public?\ 2710}#) - (let ((#{atom-key\ 2716}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2716}# (quote (c))) - (#{make-module-set\ 244}# - #{source\ 2700}# - #{mod\ 2708}# - #{var\ 2709}# - #{public?\ 2710}# - #{exp\ 2702}#) - (#{decorate-source\ 285}# - (list 'set! - (list (if #{public?\ 2710}# - '@ - '@@) - #{mod\ 2708}# - #{var\ 2709}#) - #{exp\ 2702}#) - #{source\ 2700}#)))) - (lambda (#{var\ 2720}#) - (let ((#{atom-key\ 2724}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2724}# (quote (c))) - (#{make-toplevel-set\ 248}# - #{source\ 2700}# - #{var\ 2720}# - #{exp\ 2702}#) - (#{decorate-source\ 285}# - (list (quote set!) #{var\ 2720}# #{exp\ 2702}#) - #{source\ 2700}#))))))) - (#{build-global-reference\ 301}# - (lambda (#{source\ 2728}# #{var\ 2729}# #{mod\ 2730}#) - (#{analyze-variable\ 299}# - #{mod\ 2730}# - #{var\ 2729}# - (lambda (#{mod\ 2734}# #{var\ 2735}# #{public?\ 2736}#) - (let ((#{atom-key\ 2742}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2742}# (quote (c))) - (#{make-module-ref\ 242}# - #{source\ 2728}# - #{mod\ 2734}# - #{var\ 2735}# - #{public?\ 2736}#) - (#{decorate-source\ 285}# - (list (if #{public?\ 2736}# (quote @) (quote @@)) - #{mod\ 2734}# - #{var\ 2735}#) - #{source\ 2728}#)))) - (lambda (#{var\ 2745}#) - (let ((#{atom-key\ 2749}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2749}# (quote (c))) - (#{make-toplevel-ref\ 246}# - #{source\ 2728}# - #{var\ 2745}#) - (#{decorate-source\ 285}# - #{var\ 2745}# - #{source\ 2728}#))))))) - (#{analyze-variable\ 299}# - (lambda (#{mod\ 2752}# - #{var\ 2753}# - #{modref-cont\ 2754}# - #{bare-cont\ 2755}#) - (if (not #{mod\ 2752}#) - (#{bare-cont\ 2755}# #{var\ 2753}#) - (let ((#{kind\ 2762}# (car #{mod\ 2752}#)) - (#{mod\ 2763}# (cdr #{mod\ 2752}#))) - (if (memv #{kind\ 2762}# (quote (public))) - (#{modref-cont\ 2754}# - #{mod\ 2763}# - #{var\ 2753}# + #{name\ 15043}# + #{meta\ 15050}#))))))) + (#{build-global-assignment\ 12852}# + (lambda (#{source\ 15051}# + #{var\ 15052}# + #{exp\ 15053}# + #{mod\ 15054}#) + (#{analyze-variable\ 12848}# + #{mod\ 15054}# + #{var\ 15052}# + (lambda (#{mod\ 15059}# + #{var\ 15060}# + #{public?\ 15061}#) + (#{make-module-set\ 12793}# + #{source\ 15051}# + #{mod\ 15059}# + #{var\ 15060}# + #{public?\ 15061}# + #{exp\ 15053}#)) + (lambda (#{var\ 15065}#) + (#{make-toplevel-set\ 12797}# + #{source\ 15051}# + #{var\ 15065}# + #{exp\ 15053}#))))) + (#{build-global-reference\ 12850}# + (lambda (#{source\ 15067}# #{var\ 15068}# #{mod\ 15069}#) + (#{analyze-variable\ 12848}# + #{mod\ 15069}# + #{var\ 15068}# + (lambda (#{mod\ 15073}# + #{var\ 15074}# + #{public?\ 15075}#) + (#{make-module-ref\ 12791}# + #{source\ 15067}# + #{mod\ 15073}# + #{var\ 15074}# + #{public?\ 15075}#)) + (lambda (#{var\ 15079}#) + (#{make-toplevel-ref\ 12795}# + #{source\ 15067}# + #{var\ 15079}#))))) + (#{analyze-variable\ 12848}# + (lambda (#{mod\ 15081}# + #{var\ 15082}# + #{modref-cont\ 15083}# + #{bare-cont\ 15084}#) + (if (not #{mod\ 15081}#) + (#{bare-cont\ 15084}# #{var\ 15082}#) + (let ((#{kind\ 15091}# (car #{mod\ 15081}#)) + (#{mod\ 15092}# (cdr #{mod\ 15081}#))) + (if (memv #{kind\ 15091}# (quote (public))) + (#{modref-cont\ 15083}# + #{mod\ 15092}# + #{var\ 15082}# #t) - (if (memv #{kind\ 2762}# (quote (private))) + (if (memv #{kind\ 15091}# (quote (private))) (if (not (equal? - #{mod\ 2763}# + #{mod\ 15092}# (module-name (current-module)))) - (#{modref-cont\ 2754}# - #{mod\ 2763}# - #{var\ 2753}# + (#{modref-cont\ 15083}# + #{mod\ 15092}# + #{var\ 15082}# #f) - (#{bare-cont\ 2755}# #{var\ 2753}#)) - (if (memv #{kind\ 2762}# (quote (bare))) - (#{bare-cont\ 2755}# #{var\ 2753}#) - (if (memv #{kind\ 2762}# (quote (hygiene))) + (#{bare-cont\ 15084}# #{var\ 15082}#)) + (if (memv #{kind\ 15091}# (quote (bare))) + (#{bare-cont\ 15084}# #{var\ 15082}#) + (if (memv #{kind\ 15091}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2763}# + #{mod\ 15092}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2763}#) - #{var\ 2753}#) + (resolve-module #{mod\ 15092}#) + #{var\ 15082}#) #f) - (#{modref-cont\ 2754}# - #{mod\ 2763}# - #{var\ 2753}# + (#{modref-cont\ 15083}# + #{mod\ 15092}# + #{var\ 15082}# #f) - (#{bare-cont\ 2755}# #{var\ 2753}#)) + (#{bare-cont\ 15084}# #{var\ 15082}#)) (syntax-violation #f "bad module kind" - #{var\ 2753}# - #{mod\ 2763}#))))))))) - (#{build-lexical-assignment\ 297}# - (lambda (#{source\ 2771}# - #{name\ 2772}# - #{var\ 2773}# - #{exp\ 2774}#) - (let ((#{atom-key\ 2781}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2781}# (quote (c))) - (#{make-lexical-set\ 240}# - #{source\ 2771}# - #{name\ 2772}# - #{var\ 2773}# - #{exp\ 2774}#) - (#{decorate-source\ 285}# - (list (quote set!) #{var\ 2773}# #{exp\ 2774}#) - #{source\ 2771}#))))) - (#{build-lexical-reference\ 295}# - (lambda (#{type\ 2785}# - #{source\ 2786}# - #{name\ 2787}# - #{var\ 2788}#) - (let ((#{atom-key\ 2795}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2795}# (quote (c))) - (#{make-lexical-ref\ 238}# - #{source\ 2786}# - #{name\ 2787}# - #{var\ 2788}#) - (#{decorate-source\ 285}# - #{var\ 2788}# - #{source\ 2786}#))))) - (#{build-dynlet\ 293}# - (lambda (#{source\ 2798}# - #{fluids\ 2799}# - #{vals\ 2800}# - #{body\ 2801}#) - (let ((#{atom-key\ 2808}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2808}# (quote (c))) - (#{make-dynlet\ 266}# - #{source\ 2798}# - #{fluids\ 2799}# - #{vals\ 2800}# - #{body\ 2801}#) - (#{decorate-source\ 285}# - (list 'with-fluids - (map list #{fluids\ 2799}# #{vals\ 2800}#) - #{body\ 2801}#) - #{source\ 2798}#))))) - (#{build-conditional\ 291}# - (lambda (#{source\ 2812}# - #{test-exp\ 2813}# - #{then-exp\ 2814}# - #{else-exp\ 2815}#) - (let ((#{atom-key\ 2822}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2822}# (quote (c))) - (#{make-conditional\ 252}# - #{source\ 2812}# - #{test-exp\ 2813}# - #{then-exp\ 2814}# - #{else-exp\ 2815}#) - (#{decorate-source\ 285}# - (if (equal? #{else-exp\ 2815}# (quote (if #f #f))) - (list 'if - #{test-exp\ 2813}# - #{then-exp\ 2814}#) - (list 'if - #{test-exp\ 2813}# - #{then-exp\ 2814}# - #{else-exp\ 2815}#)) - #{source\ 2812}#))))) - (#{build-application\ 289}# - (lambda (#{source\ 2827}# - #{fun-exp\ 2828}# - #{arg-exps\ 2829}#) - (let ((#{atom-key\ 2835}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2835}# (quote (c))) - (#{make-application\ 254}# - #{source\ 2827}# - #{fun-exp\ 2828}# - #{arg-exps\ 2829}#) - (#{decorate-source\ 285}# - (cons #{fun-exp\ 2828}# #{arg-exps\ 2829}#) - #{source\ 2827}#))))) - (#{build-void\ 287}# - (lambda (#{source\ 2839}#) - (let ((#{atom-key\ 2843}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2843}# (quote (c))) - (#{make-void\ 232}# #{source\ 2839}#) - (#{decorate-source\ 285}# - '(if #f #f) - #{source\ 2839}#))))) - (#{decorate-source\ 285}# - (lambda (#{e\ 2846}# #{s\ 2847}#) + #{var\ 15082}# + #{mod\ 15092}#))))))))) + (#{build-lexical-assignment\ 12846}# + (lambda (#{source\ 15100}# + #{name\ 15101}# + #{var\ 15102}# + #{exp\ 15103}#) + (#{make-lexical-set\ 12789}# + #{source\ 15100}# + #{name\ 15101}# + #{var\ 15102}# + #{exp\ 15103}#))) + (#{build-lexical-reference\ 12844}# + (lambda (#{type\ 15108}# + #{source\ 15109}# + #{name\ 15110}# + #{var\ 15111}#) + (#{make-lexical-ref\ 12787}# + #{source\ 15109}# + #{name\ 15110}# + #{var\ 15111}#))) + (#{build-dynlet\ 12842}# + (lambda (#{source\ 15116}# + #{fluids\ 15117}# + #{vals\ 15118}# + #{body\ 15119}#) + (#{make-dynlet\ 12815}# + #{source\ 15116}# + #{fluids\ 15117}# + #{vals\ 15118}# + #{body\ 15119}#))) + (#{build-conditional\ 12840}# + (lambda (#{source\ 15124}# + #{test-exp\ 15125}# + #{then-exp\ 15126}# + #{else-exp\ 15127}#) + (#{make-conditional\ 12801}# + #{source\ 15124}# + #{test-exp\ 15125}# + #{then-exp\ 15126}# + #{else-exp\ 15127}#))) + (#{build-application\ 12838}# + (lambda (#{source\ 15132}# + #{fun-exp\ 15133}# + #{arg-exps\ 15134}#) + (#{make-application\ 12803}# + #{source\ 15132}# + #{fun-exp\ 15133}# + #{arg-exps\ 15134}#))) + (#{build-void\ 12836}# + (lambda (#{source\ 15138}#) + (#{make-void\ 12781}# #{source\ 15138}#))) + (#{decorate-source\ 12834}# + (lambda (#{e\ 15140}# #{s\ 15141}#) (begin - (if (if (pair? #{e\ 2846}#) #{s\ 2847}# #f) - (set-source-properties! #{e\ 2846}# #{s\ 2847}#)) - #{e\ 2846}#))) - (#{get-global-definition-hook\ 283}# - (lambda (#{symbol\ 2852}# #{module\ 2853}#) + (if (if (pair? #{e\ 15140}#) #{s\ 15141}# #f) + (set-source-properties! + #{e\ 15140}# + #{s\ 15141}#)) + #{e\ 15140}#))) + (#{get-global-definition-hook\ 12832}# + (lambda (#{symbol\ 15146}# #{module\ 15147}#) (begin - (if (if (not #{module\ 2853}#) (current-module) #f) + (if (if (not #{module\ 15147}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2852}#)) - (let ((#{v\ 2859}# + #{symbol\ 15146}#)) + (let ((#{v\ 15153}# (module-variable - (if #{module\ 2853}# - (resolve-module (cdr #{module\ 2853}#)) + (if #{module\ 15147}# + (resolve-module (cdr #{module\ 15147}#)) (current-module)) - #{symbol\ 2852}#))) - (if #{v\ 2859}# - (if (variable-bound? #{v\ 2859}#) - (let ((#{val\ 2864}# (variable-ref #{v\ 2859}#))) - (if (macro? #{val\ 2864}#) - (if (macro-type #{val\ 2864}#) - (cons (macro-type #{val\ 2864}#) - (macro-binding #{val\ 2864}#)) + #{symbol\ 15146}#))) + (if #{v\ 15153}# + (if (variable-bound? #{v\ 15153}#) + (let ((#{val\ 15158}# (variable-ref #{v\ 15153}#))) + (if (macro? #{val\ 15158}#) + (if (macro-type #{val\ 15158}#) + (cons (macro-type #{val\ 15158}#) + (macro-binding #{val\ 15158}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 281}# - (lambda (#{symbol\ 2868}# #{type\ 2869}# #{val\ 2870}#) + (#{put-global-definition-hook\ 12830}# + (lambda (#{symbol\ 15162}# + #{type\ 15163}# + #{val\ 15164}#) (module-define! (current-module) - #{symbol\ 2868}# + #{symbol\ 15162}# (make-syntax-transformer - #{symbol\ 2868}# - #{type\ 2869}# - #{val\ 2870}#)))) - (#{local-eval-hook\ 278}# - (lambda (#{x\ 2874}# #{mod\ 2875}#) + #{symbol\ 15162}# + #{type\ 15163}# + #{val\ 15164}#)))) + (#{local-eval-hook\ 12827}# + (lambda (#{x\ 15168}# #{mod\ 15169}#) (primitive-eval - (memoize-expression - (let ((#{atom-key\ 2880}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2880}# (quote (c))) - ((@ (language tree-il) tree-il->scheme) - #{x\ 2874}#) - #{x\ 2874}#)))))) - (#{top-level-eval-hook\ 276}# - (lambda (#{x\ 2883}# #{mod\ 2884}#) + (memoize-expression #{x\ 15168}#)))) + (#{top-level-eval-hook\ 12825}# + (lambda (#{x\ 15172}# #{mod\ 15173}#) (primitive-eval - (memoize-expression - (let ((#{atom-key\ 2889}# (fluid-ref #{*mode*\ 229}#))) - (if (memv #{atom-key\ 2889}# (quote (c))) - ((@ (language tree-il) tree-il->scheme) - #{x\ 2883}#) - #{x\ 2883}#)))))) - (#{fx<\ 274}# <) - (#{fx=\ 272}# =) - (#{fx-\ 270}# -) - (#{fx+\ 268}# +) - (#{make-dynlet\ 266}# - (lambda (#{src\ 2892}# - #{fluids\ 2893}# - #{vals\ 2894}# - #{body\ 2895}#) + (memoize-expression #{x\ 15172}#)))) + (#{fx<\ 12823}# <) + (#{fx=\ 12821}# =) + (#{fx-\ 12819}# -) + (#{fx+\ 12817}# +) + (#{make-dynlet\ 12815}# + (lambda (#{src\ 15176}# + #{fluids\ 15177}# + #{vals\ 15178}# + #{body\ 15179}#) (make-struct (vector-ref %expanded-vtables 17) 0 - #{src\ 2892}# - #{fluids\ 2893}# - #{vals\ 2894}# - #{body\ 2895}#))) - (#{make-letrec\ 264}# - (lambda (#{src\ 2900}# - #{names\ 2901}# - #{gensyms\ 2902}# - #{vals\ 2903}# - #{body\ 2904}#) + #{src\ 15176}# + #{fluids\ 15177}# + #{vals\ 15178}# + #{body\ 15179}#))) + (#{make-letrec\ 12813}# + (lambda (#{src\ 15184}# + #{names\ 15185}# + #{gensyms\ 15186}# + #{vals\ 15187}# + #{body\ 15188}#) (make-struct (vector-ref %expanded-vtables 16) 0 - #{src\ 2900}# - #{names\ 2901}# - #{gensyms\ 2902}# - #{vals\ 2903}# - #{body\ 2904}#))) - (#{make-let\ 262}# - (lambda (#{src\ 2910}# - #{names\ 2911}# - #{gensyms\ 2912}# - #{vals\ 2913}# - #{body\ 2914}#) + #{src\ 15184}# + #{names\ 15185}# + #{gensyms\ 15186}# + #{vals\ 15187}# + #{body\ 15188}#))) + (#{make-let\ 12811}# + (lambda (#{src\ 15194}# + #{names\ 15195}# + #{gensyms\ 15196}# + #{vals\ 15197}# + #{body\ 15198}#) (make-struct (vector-ref %expanded-vtables 15) 0 - #{src\ 2910}# - #{names\ 2911}# - #{gensyms\ 2912}# - #{vals\ 2913}# - #{body\ 2914}#))) - (#{make-lambda-case\ 260}# - (lambda (#{src\ 2920}# - #{req\ 2921}# - #{opt\ 2922}# - #{rest\ 2923}# - #{kw\ 2924}# - #{inits\ 2925}# - #{gensyms\ 2926}# - #{body\ 2927}# - #{alternate\ 2928}#) + #{src\ 15194}# + #{names\ 15195}# + #{gensyms\ 15196}# + #{vals\ 15197}# + #{body\ 15198}#))) + (#{make-lambda-case\ 12809}# + (lambda (#{src\ 15204}# + #{req\ 15205}# + #{opt\ 15206}# + #{rest\ 15207}# + #{kw\ 15208}# + #{inits\ 15209}# + #{gensyms\ 15210}# + #{body\ 15211}# + #{alternate\ 15212}#) (make-struct (vector-ref %expanded-vtables 14) 0 - #{src\ 2920}# - #{req\ 2921}# - #{opt\ 2922}# - #{rest\ 2923}# - #{kw\ 2924}# - #{inits\ 2925}# - #{gensyms\ 2926}# - #{body\ 2927}# - #{alternate\ 2928}#))) - (#{make-lambda\ 258}# - (lambda (#{src\ 2938}# #{meta\ 2939}# #{body\ 2940}#) + #{src\ 15204}# + #{req\ 15205}# + #{opt\ 15206}# + #{rest\ 15207}# + #{kw\ 15208}# + #{inits\ 15209}# + #{gensyms\ 15210}# + #{body\ 15211}# + #{alternate\ 15212}#))) + (#{make-lambda\ 12807}# + (lambda (#{src\ 15222}# #{meta\ 15223}# #{body\ 15224}#) (make-struct (vector-ref %expanded-vtables 13) 0 - #{src\ 2938}# - #{meta\ 2939}# - #{body\ 2940}#))) - (#{make-sequence\ 256}# - (lambda (#{src\ 2944}# #{exps\ 2945}#) + #{src\ 15222}# + #{meta\ 15223}# + #{body\ 15224}#))) + (#{make-sequence\ 12805}# + (lambda (#{src\ 15228}# #{exps\ 15229}#) (make-struct (vector-ref %expanded-vtables 12) 0 - #{src\ 2944}# - #{exps\ 2945}#))) - (#{make-application\ 254}# - (lambda (#{src\ 2948}# #{proc\ 2949}# #{args\ 2950}#) + #{src\ 15228}# + #{exps\ 15229}#))) + (#{make-application\ 12803}# + (lambda (#{src\ 15232}# #{proc\ 15233}# #{args\ 15234}#) (make-struct (vector-ref %expanded-vtables 11) 0 - #{src\ 2948}# - #{proc\ 2949}# - #{args\ 2950}#))) - (#{make-conditional\ 252}# - (lambda (#{src\ 2954}# - #{test\ 2955}# - #{consequent\ 2956}# - #{alternate\ 2957}#) + #{src\ 15232}# + #{proc\ 15233}# + #{args\ 15234}#))) + (#{make-conditional\ 12801}# + (lambda (#{src\ 15238}# + #{test\ 15239}# + #{consequent\ 15240}# + #{alternate\ 15241}#) (make-struct (vector-ref %expanded-vtables 10) 0 - #{src\ 2954}# - #{test\ 2955}# - #{consequent\ 2956}# - #{alternate\ 2957}#))) - (#{make-toplevel-define\ 250}# - (lambda (#{src\ 2962}# #{name\ 2963}# #{exp\ 2964}#) + #{src\ 15238}# + #{test\ 15239}# + #{consequent\ 15240}# + #{alternate\ 15241}#))) + (#{make-toplevel-define\ 12799}# + (lambda (#{src\ 15246}# #{name\ 15247}# #{exp\ 15248}#) (make-struct (vector-ref %expanded-vtables 9) 0 - #{src\ 2962}# - #{name\ 2963}# - #{exp\ 2964}#))) - (#{make-toplevel-set\ 248}# - (lambda (#{src\ 2968}# #{name\ 2969}# #{exp\ 2970}#) + #{src\ 15246}# + #{name\ 15247}# + #{exp\ 15248}#))) + (#{make-toplevel-set\ 12797}# + (lambda (#{src\ 15252}# #{name\ 15253}# #{exp\ 15254}#) (make-struct (vector-ref %expanded-vtables 8) 0 - #{src\ 2968}# - #{name\ 2969}# - #{exp\ 2970}#))) - (#{make-toplevel-ref\ 246}# - (lambda (#{src\ 2974}# #{name\ 2975}#) + #{src\ 15252}# + #{name\ 15253}# + #{exp\ 15254}#))) + (#{make-toplevel-ref\ 12795}# + (lambda (#{src\ 15258}# #{name\ 15259}#) (make-struct (vector-ref %expanded-vtables 7) 0 - #{src\ 2974}# - #{name\ 2975}#))) - (#{make-module-set\ 244}# - (lambda (#{src\ 2978}# - #{mod\ 2979}# - #{name\ 2980}# - #{public?\ 2981}# - #{exp\ 2982}#) + #{src\ 15258}# + #{name\ 15259}#))) + (#{make-module-set\ 12793}# + (lambda (#{src\ 15262}# + #{mod\ 15263}# + #{name\ 15264}# + #{public?\ 15265}# + #{exp\ 15266}#) (make-struct (vector-ref %expanded-vtables 6) 0 - #{src\ 2978}# - #{mod\ 2979}# - #{name\ 2980}# - #{public?\ 2981}# - #{exp\ 2982}#))) - (#{make-module-ref\ 242}# - (lambda (#{src\ 2988}# - #{mod\ 2989}# - #{name\ 2990}# - #{public?\ 2991}#) + #{src\ 15262}# + #{mod\ 15263}# + #{name\ 15264}# + #{public?\ 15265}# + #{exp\ 15266}#))) + (#{make-module-ref\ 12791}# + (lambda (#{src\ 15272}# + #{mod\ 15273}# + #{name\ 15274}# + #{public?\ 15275}#) (make-struct (vector-ref %expanded-vtables 5) 0 - #{src\ 2988}# - #{mod\ 2989}# - #{name\ 2990}# - #{public?\ 2991}#))) - (#{make-lexical-set\ 240}# - (lambda (#{src\ 2996}# - #{name\ 2997}# - #{gensym\ 2998}# - #{exp\ 2999}#) + #{src\ 15272}# + #{mod\ 15273}# + #{name\ 15274}# + #{public?\ 15275}#))) + (#{make-lexical-set\ 12789}# + (lambda (#{src\ 15280}# + #{name\ 15281}# + #{gensym\ 15282}# + #{exp\ 15283}#) (make-struct (vector-ref %expanded-vtables 4) 0 - #{src\ 2996}# - #{name\ 2997}# - #{gensym\ 2998}# - #{exp\ 2999}#))) - (#{make-lexical-ref\ 238}# - (lambda (#{src\ 3004}# #{name\ 3005}# #{gensym\ 3006}#) + #{src\ 15280}# + #{name\ 15281}# + #{gensym\ 15282}# + #{exp\ 15283}#))) + (#{make-lexical-ref\ 12787}# + (lambda (#{src\ 15288}# + #{name\ 15289}# + #{gensym\ 15290}#) (make-struct (vector-ref %expanded-vtables 3) 0 - #{src\ 3004}# - #{name\ 3005}# - #{gensym\ 3006}#))) - (#{make-primitive-ref\ 236}# - (lambda (#{src\ 3010}# #{name\ 3011}#) + #{src\ 15288}# + #{name\ 15289}# + #{gensym\ 15290}#))) + (#{make-primitive-ref\ 12785}# + (lambda (#{src\ 15294}# #{name\ 15295}#) (make-struct (vector-ref %expanded-vtables 2) 0 - #{src\ 3010}# - #{name\ 3011}#))) - (#{make-const\ 234}# - (lambda (#{src\ 3014}# #{exp\ 3015}#) + #{src\ 15294}# + #{name\ 15295}#))) + (#{make-const\ 12783}# + (lambda (#{src\ 15298}# #{exp\ 15299}#) (make-struct (vector-ref %expanded-vtables 1) 0 - #{src\ 3014}# - #{exp\ 3015}#))) - (#{make-void\ 232}# - (lambda (#{src\ 3018}#) + #{src\ 15298}# + #{exp\ 15299}#))) + (#{make-void\ 12781}# + (lambda (#{src\ 15302}#) (make-struct (vector-ref %expanded-vtables 0) 0 - #{src\ 3018}#))) - (#{*mode*\ 229}# (make-fluid))) + #{src\ 15302}#))) + (#{*mode*\ 12778}# (make-fluid))) (begin - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'core 'fluid-let-syntax - (lambda (#{e\ 3020}# - #{r\ 3021}# - #{w\ 3022}# - #{s\ 3023}# - #{mod\ 3024}#) - ((lambda (#{tmp\ 3030}#) - ((lambda (#{tmp\ 3031}#) - (if (if #{tmp\ 3031}# - (apply (lambda (#{_\ 3037}# - #{var\ 3038}# - #{val\ 3039}# - #{e1\ 3040}# - #{e2\ 3041}#) - (#{valid-bound-ids?\ 430}# #{var\ 3038}#)) - #{tmp\ 3031}#) + (lambda (#{e\ 15304}# + #{r\ 15305}# + #{w\ 15306}# + #{s\ 15307}# + #{mod\ 15308}#) + ((lambda (#{tmp\ 15314}#) + ((lambda (#{tmp\ 15315}#) + (if (if #{tmp\ 15315}# + (apply (lambda (#{_\ 15321}# + #{var\ 15322}# + #{val\ 15323}# + #{e1\ 15324}# + #{e2\ 15325}#) + (#{valid-bound-ids?\ 12979}# #{var\ 15322}#)) + #{tmp\ 15315}#) #f) - (apply (lambda (#{_\ 3048}# - #{var\ 3049}# - #{val\ 3050}# - #{e1\ 3051}# - #{e2\ 3052}#) - (let ((#{names\ 3054}# - (map (lambda (#{x\ 3055}#) - (#{id-var-name\ 424}# - #{x\ 3055}# - #{w\ 3022}#)) - #{var\ 3049}#))) + (apply (lambda (#{_\ 15332}# + #{var\ 15333}# + #{val\ 15334}# + #{e1\ 15335}# + #{e2\ 15336}#) + (let ((#{names\ 15338}# + (map (lambda (#{x\ 15339}#) + (#{id-var-name\ 12973}# + #{x\ 15339}# + #{w\ 15306}#)) + #{var\ 15333}#))) (begin (for-each - (lambda (#{id\ 3058}# #{n\ 3059}#) - (let ((#{atom-key\ 3064}# - (#{binding-type\ 350}# - (#{lookup\ 361}# - #{n\ 3059}# - #{r\ 3021}# - #{mod\ 3024}#)))) - (if (memv #{atom-key\ 3064}# + (lambda (#{id\ 15342}# #{n\ 15343}#) + (let ((#{atom-key\ 15348}# + (#{binding-type\ 12899}# + (#{lookup\ 12910}# + #{n\ 15343}# + #{r\ 15305}# + #{mod\ 15308}#)))) + (if (memv #{atom-key\ 15348}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 3020}# - (#{source-wrap\ 438}# - #{id\ 3058}# - #{w\ 3022}# - #{s\ 3023}# - #{mod\ 3024}#))))) - #{var\ 3049}# - #{names\ 3054}#) - (#{chi-body\ 460}# - (cons #{e1\ 3051}# #{e2\ 3052}#) - (#{source-wrap\ 438}# - #{e\ 3020}# - #{w\ 3022}# - #{s\ 3023}# - #{mod\ 3024}#) - (#{extend-env\ 355}# - #{names\ 3054}# - (let ((#{trans-r\ 3069}# - (#{macros-only-env\ 359}# - #{r\ 3021}#))) - (map (lambda (#{x\ 3070}#) + #{e\ 15304}# + (#{source-wrap\ 12987}# + #{id\ 15342}# + #{w\ 15306}# + #{s\ 15307}# + #{mod\ 15308}#))))) + #{var\ 15333}# + #{names\ 15338}#) + (#{chi-body\ 13009}# + (cons #{e1\ 15335}# #{e2\ 15336}#) + (#{source-wrap\ 12987}# + #{e\ 15304}# + #{w\ 15306}# + #{s\ 15307}# + #{mod\ 15308}#) + (#{extend-env\ 12904}# + #{names\ 15338}# + (let ((#{trans-r\ 15353}# + (#{macros-only-env\ 12908}# + #{r\ 15305}#))) + (map (lambda (#{x\ 15354}#) (cons 'macro - (#{eval-local-transformer\ 464}# - (#{chi\ 452}# - #{x\ 3070}# - #{trans-r\ 3069}# - #{w\ 3022}# - #{mod\ 3024}#) - #{mod\ 3024}#))) - #{val\ 3050}#)) - #{r\ 3021}#) - #{w\ 3022}# - #{mod\ 3024}#)))) - #{tmp\ 3031}#) - ((lambda (#{_\ 3075}#) + (#{eval-local-transformer\ 13013}# + (#{chi\ 13001}# + #{x\ 15354}# + #{trans-r\ 15353}# + #{w\ 15306}# + #{mod\ 15308}#) + #{mod\ 15308}#))) + #{val\ 15334}#)) + #{r\ 15305}#) + #{w\ 15306}# + #{mod\ 15308}#)))) + #{tmp\ 15315}#) + ((lambda (#{_\ 15359}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 438}# - #{e\ 3020}# - #{w\ 3022}# - #{s\ 3023}# - #{mod\ 3024}#))) - #{tmp\ 3030}#))) + (#{source-wrap\ 12987}# + #{e\ 15304}# + #{w\ 15306}# + #{s\ 15307}# + #{mod\ 15308}#))) + #{tmp\ 15314}#))) ($sc-dispatch - #{tmp\ 3030}# + #{tmp\ 15314}# '(any #(each (any any)) any . each-any)))) - #{e\ 3020}#))) - (#{global-extend\ 363}# + #{e\ 15304}#))) + (#{global-extend\ 12912}# 'core 'quote - (lambda (#{e\ 3076}# - #{r\ 3077}# - #{w\ 3078}# - #{s\ 3079}# - #{mod\ 3080}#) - ((lambda (#{tmp\ 3086}#) - ((lambda (#{tmp\ 3087}#) - (if #{tmp\ 3087}# - (apply (lambda (#{_\ 3090}# #{e\ 3091}#) - (#{build-data\ 317}# - #{s\ 3079}# - (#{strip\ 478}# #{e\ 3091}# #{w\ 3078}#))) - #{tmp\ 3087}#) - ((lambda (#{_\ 3093}#) + (lambda (#{e\ 15360}# + #{r\ 15361}# + #{w\ 15362}# + #{s\ 15363}# + #{mod\ 15364}#) + ((lambda (#{tmp\ 15370}#) + ((lambda (#{tmp\ 15371}#) + (if #{tmp\ 15371}# + (apply (lambda (#{_\ 15374}# #{e\ 15375}#) + (#{build-data\ 12866}# + #{s\ 15363}# + (#{strip\ 13027}# #{e\ 15375}# #{w\ 15362}#))) + #{tmp\ 15371}#) + ((lambda (#{_\ 15377}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 438}# - #{e\ 3076}# - #{w\ 3078}# - #{s\ 3079}# - #{mod\ 3080}#))) - #{tmp\ 3086}#))) - ($sc-dispatch #{tmp\ 3086}# (quote (any any))))) - #{e\ 3076}#))) - (#{global-extend\ 363}# + (#{source-wrap\ 12987}# + #{e\ 15360}# + #{w\ 15362}# + #{s\ 15363}# + #{mod\ 15364}#))) + #{tmp\ 15370}#))) + ($sc-dispatch #{tmp\ 15370}# (quote (any any))))) + #{e\ 15360}#))) + (#{global-extend\ 12912}# 'core 'syntax - (letrec ((#{regen\ 3109}# - (lambda (#{x\ 3110}#) - (let ((#{atom-key\ 3114}# (car #{x\ 3110}#))) - (if (memv #{atom-key\ 3114}# (quote (ref))) - (#{build-lexical-reference\ 295}# + (letrec ((#{regen\ 15393}# + (lambda (#{x\ 15394}#) + (let ((#{atom-key\ 15398}# (car #{x\ 15394}#))) + (if (memv #{atom-key\ 15398}# (quote (ref))) + (#{build-lexical-reference\ 12844}# 'value #f - (cadr #{x\ 3110}#) - (cadr #{x\ 3110}#)) - (if (memv #{atom-key\ 3114}# (quote (primitive))) - (#{build-primref\ 315}# #f (cadr #{x\ 3110}#)) - (if (memv #{atom-key\ 3114}# (quote (quote))) - (#{build-data\ 317}# #f (cadr #{x\ 3110}#)) - (if (memv #{atom-key\ 3114}# (quote (lambda))) - (if (list? (cadr #{x\ 3110}#)) - (#{build-simple-lambda\ 309}# + (cadr #{x\ 15394}#) + (cadr #{x\ 15394}#)) + (if (memv #{atom-key\ 15398}# (quote (primitive))) + (#{build-primref\ 12864}# #f (cadr #{x\ 15394}#)) + (if (memv #{atom-key\ 15398}# (quote (quote))) + (#{build-data\ 12866}# #f (cadr #{x\ 15394}#)) + (if (memv #{atom-key\ 15398}# (quote (lambda))) + (if (list? (cadr #{x\ 15394}#)) + (#{build-simple-lambda\ 12858}# #f - (cadr #{x\ 3110}#) + (cadr #{x\ 15394}#) #f - (cadr #{x\ 3110}#) + (cadr #{x\ 15394}#) '() - (#{regen\ 3109}# (caddr #{x\ 3110}#))) - (error "how did we get here" #{x\ 3110}#)) - (#{build-application\ 289}# + (#{regen\ 15393}# (caddr #{x\ 15394}#))) + (error "how did we get here" #{x\ 15394}#)) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# #f (car #{x\ 3110}#)) - (map #{regen\ 3109}# - (cdr #{x\ 3110}#)))))))))) - (#{gen-vector\ 3107}# - (lambda (#{x\ 3126}#) - (if (eq? (car #{x\ 3126}#) (quote list)) - (cons (quote vector) (cdr #{x\ 3126}#)) - (if (eq? (car #{x\ 3126}#) (quote quote)) + (#{build-primref\ 12864}# + #f + (car #{x\ 15394}#)) + (map #{regen\ 15393}# + (cdr #{x\ 15394}#)))))))))) + (#{gen-vector\ 15391}# + (lambda (#{x\ 15410}#) + (if (eq? (car #{x\ 15410}#) (quote list)) + (cons (quote vector) (cdr #{x\ 15410}#)) + (if (eq? (car #{x\ 15410}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 3126}#))) - (list (quote list->vector) #{x\ 3126}#))))) - (#{gen-append\ 3105}# - (lambda (#{x\ 3136}# #{y\ 3137}#) - (if (equal? #{y\ 3137}# (quote (quote ()))) - #{x\ 3136}# - (list (quote append) #{x\ 3136}# #{y\ 3137}#)))) - (#{gen-cons\ 3103}# - (lambda (#{x\ 3141}# #{y\ 3142}#) - (let ((#{atom-key\ 3147}# (car #{y\ 3142}#))) - (if (memv #{atom-key\ 3147}# (quote (quote))) - (if (eq? (car #{x\ 3141}#) (quote quote)) + (list->vector (cadr #{x\ 15410}#))) + (list (quote list->vector) #{x\ 15410}#))))) + (#{gen-append\ 15389}# + (lambda (#{x\ 15420}# #{y\ 15421}#) + (if (equal? #{y\ 15421}# (quote (quote ()))) + #{x\ 15420}# + (list (quote append) #{x\ 15420}# #{y\ 15421}#)))) + (#{gen-cons\ 15387}# + (lambda (#{x\ 15425}# #{y\ 15426}#) + (let ((#{atom-key\ 15431}# (car #{y\ 15426}#))) + (if (memv #{atom-key\ 15431}# (quote (quote))) + (if (eq? (car #{x\ 15425}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 3141}#) (cadr #{y\ 3142}#))) - (if (eq? (cadr #{y\ 3142}#) (quote ())) - (list (quote list) #{x\ 3141}#) - (list (quote cons) #{x\ 3141}# #{y\ 3142}#))) - (if (memv #{atom-key\ 3147}# (quote (list))) + (cons (cadr #{x\ 15425}#) + (cadr #{y\ 15426}#))) + (if (eq? (cadr #{y\ 15426}#) (quote ())) + (list (quote list) #{x\ 15425}#) + (list (quote cons) #{x\ 15425}# #{y\ 15426}#))) + (if (memv #{atom-key\ 15431}# (quote (list))) (cons 'list - (cons #{x\ 3141}# (cdr #{y\ 3142}#))) - (list (quote cons) #{x\ 3141}# #{y\ 3142}#)))))) - (#{gen-map\ 3101}# - (lambda (#{e\ 3156}# #{map-env\ 3157}#) - (let ((#{formals\ 3162}# (map cdr #{map-env\ 3157}#)) - (#{actuals\ 3163}# - (map (lambda (#{x\ 3164}#) - (list (quote ref) (car #{x\ 3164}#))) - #{map-env\ 3157}#))) - (if (eq? (car #{e\ 3156}#) (quote ref)) - (car #{actuals\ 3163}#) + (cons #{x\ 15425}# (cdr #{y\ 15426}#))) + (list (quote cons) #{x\ 15425}# #{y\ 15426}#)))))) + (#{gen-map\ 15385}# + (lambda (#{e\ 15440}# #{map-env\ 15441}#) + (let ((#{formals\ 15446}# (map cdr #{map-env\ 15441}#)) + (#{actuals\ 15447}# + (map (lambda (#{x\ 15448}#) + (list (quote ref) (car #{x\ 15448}#))) + #{map-env\ 15441}#))) + (if (eq? (car #{e\ 15440}#) (quote ref)) + (car #{actuals\ 15447}#) (if (and-map - (lambda (#{x\ 3171}#) - (if (eq? (car #{x\ 3171}#) (quote ref)) - (memq (cadr #{x\ 3171}#) #{formals\ 3162}#) + (lambda (#{x\ 15455}#) + (if (eq? (car #{x\ 15455}#) (quote ref)) + (memq (cadr #{x\ 15455}#) + #{formals\ 15446}#) #f)) - (cdr #{e\ 3156}#)) + (cdr #{e\ 15440}#)) (cons 'map (cons (list 'primitive - (car #{e\ 3156}#)) - (map (let ((#{r\ 3177}# + (car #{e\ 15440}#)) + (map (let ((#{r\ 15461}# (map cons - #{formals\ 3162}# - #{actuals\ 3163}#))) - (lambda (#{x\ 3178}#) - (cdr (assq (cadr #{x\ 3178}#) - #{r\ 3177}#)))) - (cdr #{e\ 3156}#)))) + #{formals\ 15446}# + #{actuals\ 15447}#))) + (lambda (#{x\ 15462}#) + (cdr (assq (cadr #{x\ 15462}#) + #{r\ 15461}#)))) + (cdr #{e\ 15440}#)))) (cons 'map (cons (list 'lambda - #{formals\ 3162}# - #{e\ 3156}#) - #{actuals\ 3163}#))))))) - (#{gen-mappend\ 3099}# - (lambda (#{e\ 3182}# #{map-env\ 3183}#) + #{formals\ 15446}# + #{e\ 15440}#) + #{actuals\ 15447}#))))))) + (#{gen-mappend\ 15383}# + (lambda (#{e\ 15466}# #{map-env\ 15467}#) (list 'apply '(primitive append) - (#{gen-map\ 3101}# #{e\ 3182}# #{map-env\ 3183}#)))) - (#{gen-ref\ 3097}# - (lambda (#{src\ 3187}# - #{var\ 3188}# - #{level\ 3189}# - #{maps\ 3190}#) - (if (#{fx=\ 272}# #{level\ 3189}# 0) - (values #{var\ 3188}# #{maps\ 3190}#) - (if (null? #{maps\ 3190}#) + (#{gen-map\ 15385}# + #{e\ 15466}# + #{map-env\ 15467}#)))) + (#{gen-ref\ 15381}# + (lambda (#{src\ 15471}# + #{var\ 15472}# + #{level\ 15473}# + #{maps\ 15474}#) + (if (#{fx=\ 12821}# #{level\ 15473}# 0) + (values #{var\ 15472}# #{maps\ 15474}#) + (if (null? #{maps\ 15474}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 3187}#) + #{src\ 15471}#) (call-with-values (lambda () - (#{gen-ref\ 3097}# - #{src\ 3187}# - #{var\ 3188}# - (#{fx-\ 270}# #{level\ 3189}# 1) - (cdr #{maps\ 3190}#))) - (lambda (#{outer-var\ 3195}# #{outer-maps\ 3196}#) - (let ((#{b\ 3200}# - (assq #{outer-var\ 3195}# - (car #{maps\ 3190}#)))) - (if #{b\ 3200}# - (values (cdr #{b\ 3200}#) #{maps\ 3190}#) - (let ((#{inner-var\ 3202}# - (#{gen-var\ 480}# (quote tmp)))) + (#{gen-ref\ 15381}# + #{src\ 15471}# + #{var\ 15472}# + (#{fx-\ 12819}# #{level\ 15473}# 1) + (cdr #{maps\ 15474}#))) + (lambda (#{outer-var\ 15479}# #{outer-maps\ 15480}#) + (let ((#{b\ 15484}# + (assq #{outer-var\ 15479}# + (car #{maps\ 15474}#)))) + (if #{b\ 15484}# + (values (cdr #{b\ 15484}#) #{maps\ 15474}#) + (let ((#{inner-var\ 15486}# + (#{gen-var\ 13029}# (quote tmp)))) (values - #{inner-var\ 3202}# - (cons (cons (cons #{outer-var\ 3195}# - #{inner-var\ 3202}#) - (car #{maps\ 3190}#)) - #{outer-maps\ 3196}#))))))))))) - (#{gen-syntax\ 3095}# - (lambda (#{src\ 3203}# - #{e\ 3204}# - #{r\ 3205}# - #{maps\ 3206}# - #{ellipsis?\ 3207}# - #{mod\ 3208}#) - (if (#{id?\ 367}# #{e\ 3204}#) - (let ((#{label\ 3216}# - (#{id-var-name\ 424}# - #{e\ 3204}# + #{inner-var\ 15486}# + (cons (cons (cons #{outer-var\ 15479}# + #{inner-var\ 15486}#) + (car #{maps\ 15474}#)) + #{outer-maps\ 15480}#))))))))))) + (#{gen-syntax\ 15379}# + (lambda (#{src\ 15487}# + #{e\ 15488}# + #{r\ 15489}# + #{maps\ 15490}# + #{ellipsis?\ 15491}# + #{mod\ 15492}#) + (if (#{id?\ 12916}# #{e\ 15488}#) + (let ((#{label\ 15500}# + (#{id-var-name\ 12973}# + #{e\ 15488}# '(())))) - (let ((#{b\ 3219}# - (#{lookup\ 361}# - #{label\ 3216}# - #{r\ 3205}# - #{mod\ 3208}#))) - (if (eq? (#{binding-type\ 350}# #{b\ 3219}#) + (let ((#{b\ 15503}# + (#{lookup\ 12910}# + #{label\ 15500}# + #{r\ 15489}# + #{mod\ 15492}#))) + (if (eq? (#{binding-type\ 12899}# #{b\ 15503}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 3221}# - (#{binding-value\ 352}# #{b\ 3219}#))) - (#{gen-ref\ 3097}# - #{src\ 3203}# - (car #{var.lev\ 3221}#) - (cdr #{var.lev\ 3221}#) - #{maps\ 3206}#))) - (lambda (#{var\ 3222}# #{maps\ 3223}#) + (let ((#{var.lev\ 15505}# + (#{binding-value\ 12901}# + #{b\ 15503}#))) + (#{gen-ref\ 15381}# + #{src\ 15487}# + (car #{var.lev\ 15505}#) + (cdr #{var.lev\ 15505}#) + #{maps\ 15490}#))) + (lambda (#{var\ 15506}# #{maps\ 15507}#) (values - (list (quote ref) #{var\ 3222}#) - #{maps\ 3223}#))) - (if (#{ellipsis?\ 3207}# #{e\ 3204}#) + (list (quote ref) #{var\ 15506}#) + #{maps\ 15507}#))) + (if (#{ellipsis?\ 15491}# #{e\ 15488}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 3203}#) + #{src\ 15487}#) (values - (list (quote quote) #{e\ 3204}#) - #{maps\ 3206}#))))) - ((lambda (#{tmp\ 3228}#) - ((lambda (#{tmp\ 3229}#) - (if (if #{tmp\ 3229}# - (apply (lambda (#{dots\ 3232}# #{e\ 3233}#) - (#{ellipsis?\ 3207}# - #{dots\ 3232}#)) - #{tmp\ 3229}#) + (list (quote quote) #{e\ 15488}#) + #{maps\ 15490}#))))) + ((lambda (#{tmp\ 15512}#) + ((lambda (#{tmp\ 15513}#) + (if (if #{tmp\ 15513}# + (apply (lambda (#{dots\ 15516}# + #{e\ 15517}#) + (#{ellipsis?\ 15491}# + #{dots\ 15516}#)) + #{tmp\ 15513}#) #f) - (apply (lambda (#{dots\ 3236}# #{e\ 3237}#) - (#{gen-syntax\ 3095}# - #{src\ 3203}# - #{e\ 3237}# - #{r\ 3205}# - #{maps\ 3206}# - (lambda (#{x\ 3238}#) #f) - #{mod\ 3208}#)) - #{tmp\ 3229}#) - ((lambda (#{tmp\ 3240}#) - (if (if #{tmp\ 3240}# - (apply (lambda (#{x\ 3244}# - #{dots\ 3245}# - #{y\ 3246}#) - (#{ellipsis?\ 3207}# - #{dots\ 3245}#)) - #{tmp\ 3240}#) + (apply (lambda (#{dots\ 15520}# #{e\ 15521}#) + (#{gen-syntax\ 15379}# + #{src\ 15487}# + #{e\ 15521}# + #{r\ 15489}# + #{maps\ 15490}# + (lambda (#{x\ 15522}#) #f) + #{mod\ 15492}#)) + #{tmp\ 15513}#) + ((lambda (#{tmp\ 15524}#) + (if (if #{tmp\ 15524}# + (apply (lambda (#{x\ 15528}# + #{dots\ 15529}# + #{y\ 15530}#) + (#{ellipsis?\ 15491}# + #{dots\ 15529}#)) + #{tmp\ 15524}#) #f) - (apply (lambda (#{x\ 3250}# - #{dots\ 3251}# - #{y\ 3252}#) - (letrec ((#{f\ 3256}# - (lambda (#{y\ 3257}# - #{k\ 3258}#) - ((lambda (#{tmp\ 3265}#) - ((lambda (#{tmp\ 3266}#) - (if (if #{tmp\ 3266}# - (apply (lambda (#{dots\ 3269}# - #{y\ 3270}#) - (#{ellipsis?\ 3207}# - #{dots\ 3269}#)) - #{tmp\ 3266}#) + (apply (lambda (#{x\ 15534}# + #{dots\ 15535}# + #{y\ 15536}#) + (letrec ((#{f\ 15540}# + (lambda (#{y\ 15541}# + #{k\ 15542}#) + ((lambda (#{tmp\ 15549}#) + ((lambda (#{tmp\ 15550}#) + (if (if #{tmp\ 15550}# + (apply (lambda (#{dots\ 15553}# + #{y\ 15554}#) + (#{ellipsis?\ 15491}# + #{dots\ 15553}#)) + #{tmp\ 15550}#) #f) - (apply (lambda (#{dots\ 3273}# - #{y\ 3274}#) - (#{f\ 3256}# - #{y\ 3274}# - (lambda (#{maps\ 3275}#) + (apply (lambda (#{dots\ 15557}# + #{y\ 15558}#) + (#{f\ 15540}# + #{y\ 15558}# + (lambda (#{maps\ 15559}#) (call-with-values (lambda () - (#{k\ 3258}# + (#{k\ 15542}# (cons '() - #{maps\ 3275}#))) - (lambda (#{x\ 3277}# - #{maps\ 3278}#) - (if (null? (car #{maps\ 3278}#)) + #{maps\ 15559}#))) + (lambda (#{x\ 15561}# + #{maps\ 15562}#) + (if (null? (car #{maps\ 15562}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 3203}#) + #{src\ 15487}#) (values - (#{gen-mappend\ 3099}# - #{x\ 3277}# - (car #{maps\ 3278}#)) - (cdr #{maps\ 3278}#)))))))) - #{tmp\ 3266}#) - ((lambda (#{_\ 3282}#) + (#{gen-mappend\ 15383}# + #{x\ 15561}# + (car #{maps\ 15562}#)) + (cdr #{maps\ 15562}#)))))))) + #{tmp\ 15550}#) + ((lambda (#{_\ 15566}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{src\ 3203}# - #{y\ 3257}# - #{r\ 3205}# - #{maps\ 3206}# - #{ellipsis?\ 3207}# - #{mod\ 3208}#)) - (lambda (#{y\ 3283}# - #{maps\ 3284}#) + (#{gen-syntax\ 15379}# + #{src\ 15487}# + #{y\ 15541}# + #{r\ 15489}# + #{maps\ 15490}# + #{ellipsis?\ 15491}# + #{mod\ 15492}#)) + (lambda (#{y\ 15567}# + #{maps\ 15568}#) (call-with-values (lambda () - (#{k\ 3258}# - #{maps\ 3284}#)) - (lambda (#{x\ 3287}# - #{maps\ 3288}#) + (#{k\ 15542}# + #{maps\ 15568}#)) + (lambda (#{x\ 15571}# + #{maps\ 15572}#) (values - (#{gen-append\ 3105}# - #{x\ 3287}# - #{y\ 3283}#) - #{maps\ 3288}#)))))) - #{tmp\ 3265}#))) + (#{gen-append\ 15389}# + #{x\ 15571}# + #{y\ 15567}#) + #{maps\ 15572}#)))))) + #{tmp\ 15549}#))) ($sc-dispatch - #{tmp\ 3265}# + #{tmp\ 15549}# '(any . any)))) - #{y\ 3257}#)))) - (#{f\ 3256}# - #{y\ 3252}# - (lambda (#{maps\ 3259}#) + #{y\ 15541}#)))) + (#{f\ 15540}# + #{y\ 15536}# + (lambda (#{maps\ 15543}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{src\ 3203}# - #{x\ 3250}# - #{r\ 3205}# + (#{gen-syntax\ 15379}# + #{src\ 15487}# + #{x\ 15534}# + #{r\ 15489}# (cons '() - #{maps\ 3259}#) - #{ellipsis?\ 3207}# - #{mod\ 3208}#)) - (lambda (#{x\ 3261}# - #{maps\ 3262}#) - (if (null? (car #{maps\ 3262}#)) + #{maps\ 15543}#) + #{ellipsis?\ 15491}# + #{mod\ 15492}#)) + (lambda (#{x\ 15545}# + #{maps\ 15546}#) + (if (null? (car #{maps\ 15546}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 3203}#) + #{src\ 15487}#) (values - (#{gen-map\ 3101}# - #{x\ 3261}# - (car #{maps\ 3262}#)) - (cdr #{maps\ 3262}#))))))))) - #{tmp\ 3240}#) - ((lambda (#{tmp\ 3291}#) - (if #{tmp\ 3291}# - (apply (lambda (#{x\ 3294}# - #{y\ 3295}#) + (#{gen-map\ 15385}# + #{x\ 15545}# + (car #{maps\ 15546}#)) + (cdr #{maps\ 15546}#))))))))) + #{tmp\ 15524}#) + ((lambda (#{tmp\ 15575}#) + (if #{tmp\ 15575}# + (apply (lambda (#{x\ 15578}# + #{y\ 15579}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{src\ 3203}# - #{x\ 3294}# - #{r\ 3205}# - #{maps\ 3206}# - #{ellipsis?\ 3207}# - #{mod\ 3208}#)) - (lambda (#{x\ 3296}# - #{maps\ 3297}#) + (#{gen-syntax\ 15379}# + #{src\ 15487}# + #{x\ 15578}# + #{r\ 15489}# + #{maps\ 15490}# + #{ellipsis?\ 15491}# + #{mod\ 15492}#)) + (lambda (#{x\ 15580}# + #{maps\ 15581}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{src\ 3203}# - #{y\ 3295}# - #{r\ 3205}# - #{maps\ 3297}# - #{ellipsis?\ 3207}# - #{mod\ 3208}#)) - (lambda (#{y\ 3300}# - #{maps\ 3301}#) + (#{gen-syntax\ 15379}# + #{src\ 15487}# + #{y\ 15579}# + #{r\ 15489}# + #{maps\ 15581}# + #{ellipsis?\ 15491}# + #{mod\ 15492}#)) + (lambda (#{y\ 15584}# + #{maps\ 15585}#) (values - (#{gen-cons\ 3103}# - #{x\ 3296}# - #{y\ 3300}#) - #{maps\ 3301}#)))))) - #{tmp\ 3291}#) - ((lambda (#{tmp\ 3304}#) - (if #{tmp\ 3304}# - (apply (lambda (#{e1\ 3307}# - #{e2\ 3308}#) + (#{gen-cons\ 15387}# + #{x\ 15580}# + #{y\ 15584}#) + #{maps\ 15585}#)))))) + #{tmp\ 15575}#) + ((lambda (#{tmp\ 15588}#) + (if #{tmp\ 15588}# + (apply (lambda (#{e1\ 15591}# + #{e2\ 15592}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{src\ 3203}# - (cons #{e1\ 3307}# - #{e2\ 3308}#) - #{r\ 3205}# - #{maps\ 3206}# - #{ellipsis?\ 3207}# - #{mod\ 3208}#)) - (lambda (#{e\ 3310}# - #{maps\ 3311}#) + (#{gen-syntax\ 15379}# + #{src\ 15487}# + (cons #{e1\ 15591}# + #{e2\ 15592}#) + #{r\ 15489}# + #{maps\ 15490}# + #{ellipsis?\ 15491}# + #{mod\ 15492}#)) + (lambda (#{e\ 15594}# + #{maps\ 15595}#) (values - (#{gen-vector\ 3107}# - #{e\ 3310}#) - #{maps\ 3311}#)))) - #{tmp\ 3304}#) - ((lambda (#{_\ 3315}#) + (#{gen-vector\ 15391}# + #{e\ 15594}#) + #{maps\ 15595}#)))) + #{tmp\ 15588}#) + ((lambda (#{_\ 15599}#) (values (list 'quote - #{e\ 3204}#) - #{maps\ 3206}#)) - #{tmp\ 3228}#))) + #{e\ 15488}#) + #{maps\ 15490}#)) + #{tmp\ 15512}#))) ($sc-dispatch - #{tmp\ 3228}# + #{tmp\ 15512}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 3228}# + #{tmp\ 15512}# '(any . any))))) ($sc-dispatch - #{tmp\ 3228}# + #{tmp\ 15512}# '(any any . any))))) - ($sc-dispatch #{tmp\ 3228}# (quote (any any))))) - #{e\ 3204}#))))) - (lambda (#{e\ 3317}# - #{r\ 3318}# - #{w\ 3319}# - #{s\ 3320}# - #{mod\ 3321}#) - (let ((#{e\ 3328}# - (#{source-wrap\ 438}# - #{e\ 3317}# - #{w\ 3319}# - #{s\ 3320}# - #{mod\ 3321}#))) - ((lambda (#{tmp\ 3329}#) - ((lambda (#{tmp\ 3330}#) - (if #{tmp\ 3330}# - (apply (lambda (#{_\ 3333}# #{x\ 3334}#) + ($sc-dispatch #{tmp\ 15512}# (quote (any any))))) + #{e\ 15488}#))))) + (lambda (#{e\ 15601}# + #{r\ 15602}# + #{w\ 15603}# + #{s\ 15604}# + #{mod\ 15605}#) + (let ((#{e\ 15612}# + (#{source-wrap\ 12987}# + #{e\ 15601}# + #{w\ 15603}# + #{s\ 15604}# + #{mod\ 15605}#))) + ((lambda (#{tmp\ 15613}#) + ((lambda (#{tmp\ 15614}#) + (if #{tmp\ 15614}# + (apply (lambda (#{_\ 15617}# #{x\ 15618}#) (call-with-values (lambda () - (#{gen-syntax\ 3095}# - #{e\ 3328}# - #{x\ 3334}# - #{r\ 3318}# + (#{gen-syntax\ 15379}# + #{e\ 15612}# + #{x\ 15618}# + #{r\ 15602}# '() - #{ellipsis?\ 468}# - #{mod\ 3321}#)) - (lambda (#{e\ 3335}# #{maps\ 3336}#) - (#{regen\ 3109}# #{e\ 3335}#)))) - #{tmp\ 3330}#) - ((lambda (#{_\ 3340}#) + #{ellipsis?\ 13017}# + #{mod\ 15605}#)) + (lambda (#{e\ 15619}# #{maps\ 15620}#) + (#{regen\ 15393}# #{e\ 15619}#)))) + #{tmp\ 15614}#) + ((lambda (#{_\ 15624}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 3328}#)) - #{tmp\ 3329}#))) - ($sc-dispatch #{tmp\ 3329}# (quote (any any))))) - #{e\ 3328}#))))) - (#{global-extend\ 363}# + #{e\ 15612}#)) + #{tmp\ 15613}#))) + ($sc-dispatch #{tmp\ 15613}# (quote (any any))))) + #{e\ 15612}#))))) + (#{global-extend\ 12912}# 'core 'lambda - (lambda (#{e\ 3341}# - #{r\ 3342}# - #{w\ 3343}# - #{s\ 3344}# - #{mod\ 3345}#) - ((lambda (#{tmp\ 3351}#) - ((lambda (#{tmp\ 3352}#) - (if #{tmp\ 3352}# - (apply (lambda (#{_\ 3357}# - #{args\ 3358}# - #{e1\ 3359}# - #{e2\ 3360}#) + (lambda (#{e\ 15625}# + #{r\ 15626}# + #{w\ 15627}# + #{s\ 15628}# + #{mod\ 15629}#) + ((lambda (#{tmp\ 15635}#) + ((lambda (#{tmp\ 15636}#) + (if #{tmp\ 15636}# + (apply (lambda (#{_\ 15641}# + #{args\ 15642}# + #{e1\ 15643}# + #{e2\ 15644}#) (call-with-values (lambda () - (#{lambda-formals\ 470}# #{args\ 3358}#)) - (lambda (#{req\ 3361}# - #{opt\ 3362}# - #{rest\ 3363}# - #{kw\ 3364}#) - (letrec ((#{lp\ 3372}# - (lambda (#{body\ 3373}# - #{meta\ 3374}#) - ((lambda (#{tmp\ 3376}#) - ((lambda (#{tmp\ 3377}#) - (if (if #{tmp\ 3377}# - (apply (lambda (#{docstring\ 3381}# - #{e1\ 3382}# - #{e2\ 3383}#) + (#{lambda-formals\ 13019}# #{args\ 15642}#)) + (lambda (#{req\ 15645}# + #{opt\ 15646}# + #{rest\ 15647}# + #{kw\ 15648}#) + (letrec ((#{lp\ 15656}# + (lambda (#{body\ 15657}# + #{meta\ 15658}#) + ((lambda (#{tmp\ 15660}#) + ((lambda (#{tmp\ 15661}#) + (if (if #{tmp\ 15661}# + (apply (lambda (#{docstring\ 15665}# + #{e1\ 15666}# + #{e2\ 15667}#) (string? (syntax->datum - #{docstring\ 3381}#))) - #{tmp\ 3377}#) + #{docstring\ 15665}#))) + #{tmp\ 15661}#) #f) - (apply (lambda (#{docstring\ 3387}# - #{e1\ 3388}# - #{e2\ 3389}#) - (#{lp\ 3372}# - (cons #{e1\ 3388}# - #{e2\ 3389}#) + (apply (lambda (#{docstring\ 15671}# + #{e1\ 15672}# + #{e2\ 15673}#) + (#{lp\ 15656}# + (cons #{e1\ 15672}# + #{e2\ 15673}#) (append - #{meta\ 3374}# + #{meta\ 15658}# (list (cons 'documentation (syntax->datum - #{docstring\ 3387}#)))))) - #{tmp\ 3377}#) - ((lambda (#{tmp\ 3392}#) - (if #{tmp\ 3392}# - (apply (lambda (#{k\ 3397}# - #{v\ 3398}# - #{e1\ 3399}# - #{e2\ 3400}#) - (#{lp\ 3372}# - (cons #{e1\ 3399}# - #{e2\ 3400}#) + #{docstring\ 15671}#)))))) + #{tmp\ 15661}#) + ((lambda (#{tmp\ 15676}#) + (if #{tmp\ 15676}# + (apply (lambda (#{k\ 15681}# + #{v\ 15682}# + #{e1\ 15683}# + #{e2\ 15684}#) + (#{lp\ 15656}# + (cons #{e1\ 15683}# + #{e2\ 15684}#) (append - #{meta\ 3374}# + #{meta\ 15658}# (syntax->datum (map cons - #{k\ 3397}# - #{v\ 3398}#))))) - #{tmp\ 3392}#) - ((lambda (#{_\ 3405}#) - (#{chi-simple-lambda\ 472}# - #{e\ 3341}# - #{r\ 3342}# - #{w\ 3343}# - #{s\ 3344}# - #{mod\ 3345}# - #{req\ 3361}# - #{rest\ 3363}# - #{meta\ 3374}# - #{body\ 3373}#)) - #{tmp\ 3376}#))) + #{k\ 15681}# + #{v\ 15682}#))))) + #{tmp\ 15676}#) + ((lambda (#{_\ 15689}#) + (#{chi-simple-lambda\ 13021}# + #{e\ 15625}# + #{r\ 15626}# + #{w\ 15627}# + #{s\ 15628}# + #{mod\ 15629}# + #{req\ 15645}# + #{rest\ 15647}# + #{meta\ 15658}# + #{body\ 15657}#)) + #{tmp\ 15660}#))) ($sc-dispatch - #{tmp\ 3376}# + #{tmp\ 15660}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 3376}# + #{tmp\ 15660}# '(any any . each-any)))) - #{body\ 3373}#)))) - (#{lp\ 3372}# - (cons #{e1\ 3359}# #{e2\ 3360}#) + #{body\ 15657}#)))) + (#{lp\ 15656}# + (cons #{e1\ 15643}# #{e2\ 15644}#) '()))))) - #{tmp\ 3352}#) - ((lambda (#{_\ 3407}#) + #{tmp\ 15636}#) + ((lambda (#{_\ 15691}#) (syntax-violation 'lambda "bad lambda" - #{e\ 3341}#)) - #{tmp\ 3351}#))) + #{e\ 15625}#)) + #{tmp\ 15635}#))) ($sc-dispatch - #{tmp\ 3351}# + #{tmp\ 15635}# '(any any any . each-any)))) - #{e\ 3341}#))) - (#{global-extend\ 363}# + #{e\ 15625}#))) + (#{global-extend\ 12912}# 'core 'lambda* - (lambda (#{e\ 3408}# - #{r\ 3409}# - #{w\ 3410}# - #{s\ 3411}# - #{mod\ 3412}#) - ((lambda (#{tmp\ 3418}#) - ((lambda (#{tmp\ 3419}#) - (if #{tmp\ 3419}# - (apply (lambda (#{_\ 3424}# - #{args\ 3425}# - #{e1\ 3426}# - #{e2\ 3427}#) + (lambda (#{e\ 15692}# + #{r\ 15693}# + #{w\ 15694}# + #{s\ 15695}# + #{mod\ 15696}#) + ((lambda (#{tmp\ 15702}#) + ((lambda (#{tmp\ 15703}#) + (if #{tmp\ 15703}# + (apply (lambda (#{_\ 15708}# + #{args\ 15709}# + #{e1\ 15710}# + #{e2\ 15711}#) (call-with-values (lambda () - (#{chi-lambda-case\ 476}# - #{e\ 3408}# - #{r\ 3409}# - #{w\ 3410}# - #{s\ 3411}# - #{mod\ 3412}# - #{lambda*-formals\ 474}# - (list (cons #{args\ 3425}# - (cons #{e1\ 3426}# - #{e2\ 3427}#))))) - (lambda (#{meta\ 3429}# #{lcase\ 3430}#) - (#{build-case-lambda\ 311}# - #{s\ 3411}# - #{meta\ 3429}# - #{lcase\ 3430}#)))) - #{tmp\ 3419}#) - ((lambda (#{_\ 3434}#) + (#{chi-lambda-case\ 13025}# + #{e\ 15692}# + #{r\ 15693}# + #{w\ 15694}# + #{s\ 15695}# + #{mod\ 15696}# + #{lambda*-formals\ 13023}# + (list (cons #{args\ 15709}# + (cons #{e1\ 15710}# + #{e2\ 15711}#))))) + (lambda (#{meta\ 15713}# #{lcase\ 15714}#) + (#{build-case-lambda\ 12860}# + #{s\ 15695}# + #{meta\ 15713}# + #{lcase\ 15714}#)))) + #{tmp\ 15703}#) + ((lambda (#{_\ 15718}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3408}#)) - #{tmp\ 3418}#))) + #{e\ 15692}#)) + #{tmp\ 15702}#))) ($sc-dispatch - #{tmp\ 3418}# + #{tmp\ 15702}# '(any any any . each-any)))) - #{e\ 3408}#))) - (#{global-extend\ 363}# + #{e\ 15692}#))) + (#{global-extend\ 12912}# 'core 'case-lambda - (lambda (#{e\ 3435}# - #{r\ 3436}# - #{w\ 3437}# - #{s\ 3438}# - #{mod\ 3439}#) - ((lambda (#{tmp\ 3445}#) - ((lambda (#{tmp\ 3446}#) - (if #{tmp\ 3446}# - (apply (lambda (#{_\ 3454}# - #{args\ 3455}# - #{e1\ 3456}# - #{e2\ 3457}# - #{args*\ 3458}# - #{e1*\ 3459}# - #{e2*\ 3460}#) + (lambda (#{e\ 15719}# + #{r\ 15720}# + #{w\ 15721}# + #{s\ 15722}# + #{mod\ 15723}#) + ((lambda (#{tmp\ 15729}#) + ((lambda (#{tmp\ 15730}#) + (if #{tmp\ 15730}# + (apply (lambda (#{_\ 15738}# + #{args\ 15739}# + #{e1\ 15740}# + #{e2\ 15741}# + #{args*\ 15742}# + #{e1*\ 15743}# + #{e2*\ 15744}#) (call-with-values (lambda () - (#{chi-lambda-case\ 476}# - #{e\ 3435}# - #{r\ 3436}# - #{w\ 3437}# - #{s\ 3438}# - #{mod\ 3439}# - #{lambda-formals\ 470}# - (cons (cons #{args\ 3455}# - (cons #{e1\ 3456}# #{e2\ 3457}#)) - (map (lambda (#{tmp\ 3464}# - #{tmp\ 3463}# - #{tmp\ 3462}#) - (cons #{tmp\ 3462}# - (cons #{tmp\ 3463}# - #{tmp\ 3464}#))) - #{e2*\ 3460}# - #{e1*\ 3459}# - #{args*\ 3458}#)))) - (lambda (#{meta\ 3466}# #{lcase\ 3467}#) - (#{build-case-lambda\ 311}# - #{s\ 3438}# - #{meta\ 3466}# - #{lcase\ 3467}#)))) - #{tmp\ 3446}#) - ((lambda (#{_\ 3471}#) + (#{chi-lambda-case\ 13025}# + #{e\ 15719}# + #{r\ 15720}# + #{w\ 15721}# + #{s\ 15722}# + #{mod\ 15723}# + #{lambda-formals\ 13019}# + (cons (cons #{args\ 15739}# + (cons #{e1\ 15740}# + #{e2\ 15741}#)) + (map (lambda (#{tmp\ 15748}# + #{tmp\ 15747}# + #{tmp\ 15746}#) + (cons #{tmp\ 15746}# + (cons #{tmp\ 15747}# + #{tmp\ 15748}#))) + #{e2*\ 15744}# + #{e1*\ 15743}# + #{args*\ 15742}#)))) + (lambda (#{meta\ 15750}# #{lcase\ 15751}#) + (#{build-case-lambda\ 12860}# + #{s\ 15722}# + #{meta\ 15750}# + #{lcase\ 15751}#)))) + #{tmp\ 15730}#) + ((lambda (#{_\ 15755}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3435}#)) - #{tmp\ 3445}#))) + #{e\ 15719}#)) + #{tmp\ 15729}#))) ($sc-dispatch - #{tmp\ 3445}# + #{tmp\ 15729}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3435}#))) - (#{global-extend\ 363}# + #{e\ 15719}#))) + (#{global-extend\ 12912}# 'core 'case-lambda* - (lambda (#{e\ 3472}# - #{r\ 3473}# - #{w\ 3474}# - #{s\ 3475}# - #{mod\ 3476}#) - ((lambda (#{tmp\ 3482}#) - ((lambda (#{tmp\ 3483}#) - (if #{tmp\ 3483}# - (apply (lambda (#{_\ 3491}# - #{args\ 3492}# - #{e1\ 3493}# - #{e2\ 3494}# - #{args*\ 3495}# - #{e1*\ 3496}# - #{e2*\ 3497}#) + (lambda (#{e\ 15756}# + #{r\ 15757}# + #{w\ 15758}# + #{s\ 15759}# + #{mod\ 15760}#) + ((lambda (#{tmp\ 15766}#) + ((lambda (#{tmp\ 15767}#) + (if #{tmp\ 15767}# + (apply (lambda (#{_\ 15775}# + #{args\ 15776}# + #{e1\ 15777}# + #{e2\ 15778}# + #{args*\ 15779}# + #{e1*\ 15780}# + #{e2*\ 15781}#) (call-with-values (lambda () - (#{chi-lambda-case\ 476}# - #{e\ 3472}# - #{r\ 3473}# - #{w\ 3474}# - #{s\ 3475}# - #{mod\ 3476}# - #{lambda*-formals\ 474}# - (cons (cons #{args\ 3492}# - (cons #{e1\ 3493}# #{e2\ 3494}#)) - (map (lambda (#{tmp\ 3501}# - #{tmp\ 3500}# - #{tmp\ 3499}#) - (cons #{tmp\ 3499}# - (cons #{tmp\ 3500}# - #{tmp\ 3501}#))) - #{e2*\ 3497}# - #{e1*\ 3496}# - #{args*\ 3495}#)))) - (lambda (#{meta\ 3503}# #{lcase\ 3504}#) - (#{build-case-lambda\ 311}# - #{s\ 3475}# - #{meta\ 3503}# - #{lcase\ 3504}#)))) - #{tmp\ 3483}#) - ((lambda (#{_\ 3508}#) + (#{chi-lambda-case\ 13025}# + #{e\ 15756}# + #{r\ 15757}# + #{w\ 15758}# + #{s\ 15759}# + #{mod\ 15760}# + #{lambda*-formals\ 13023}# + (cons (cons #{args\ 15776}# + (cons #{e1\ 15777}# + #{e2\ 15778}#)) + (map (lambda (#{tmp\ 15785}# + #{tmp\ 15784}# + #{tmp\ 15783}#) + (cons #{tmp\ 15783}# + (cons #{tmp\ 15784}# + #{tmp\ 15785}#))) + #{e2*\ 15781}# + #{e1*\ 15780}# + #{args*\ 15779}#)))) + (lambda (#{meta\ 15787}# #{lcase\ 15788}#) + (#{build-case-lambda\ 12860}# + #{s\ 15759}# + #{meta\ 15787}# + #{lcase\ 15788}#)))) + #{tmp\ 15767}#) + ((lambda (#{_\ 15792}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3472}#)) - #{tmp\ 3482}#))) + #{e\ 15756}#)) + #{tmp\ 15766}#))) ($sc-dispatch - #{tmp\ 3482}# + #{tmp\ 15766}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3472}#))) - (#{global-extend\ 363}# + #{e\ 15756}#))) + (#{global-extend\ 12912}# 'core 'let - (letrec ((#{chi-let\ 3510}# - (lambda (#{e\ 3511}# - #{r\ 3512}# - #{w\ 3513}# - #{s\ 3514}# - #{mod\ 3515}# - #{constructor\ 3516}# - #{ids\ 3517}# - #{vals\ 3518}# - #{exps\ 3519}#) - (if (not (#{valid-bound-ids?\ 430}# #{ids\ 3517}#)) + (letrec ((#{chi-let\ 15794}# + (lambda (#{e\ 15795}# + #{r\ 15796}# + #{w\ 15797}# + #{s\ 15798}# + #{mod\ 15799}# + #{constructor\ 15800}# + #{ids\ 15801}# + #{vals\ 15802}# + #{exps\ 15803}#) + (if (not (#{valid-bound-ids?\ 12979}# #{ids\ 15801}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3511}#) - (let ((#{labels\ 3531}# - (#{gen-labels\ 385}# #{ids\ 3517}#)) - (#{new-vars\ 3532}# - (map #{gen-var\ 480}# #{ids\ 3517}#))) - (let ((#{nw\ 3535}# - (#{make-binding-wrap\ 414}# - #{ids\ 3517}# - #{labels\ 3531}# - #{w\ 3513}#)) - (#{nr\ 3536}# - (#{extend-var-env\ 357}# - #{labels\ 3531}# - #{new-vars\ 3532}# - #{r\ 3512}#))) - (#{constructor\ 3516}# - #{s\ 3514}# - (map syntax->datum #{ids\ 3517}#) - #{new-vars\ 3532}# - (map (lambda (#{x\ 3537}#) - (#{chi\ 452}# - #{x\ 3537}# - #{r\ 3512}# - #{w\ 3513}# - #{mod\ 3515}#)) - #{vals\ 3518}#) - (#{chi-body\ 460}# - #{exps\ 3519}# - (#{source-wrap\ 438}# - #{e\ 3511}# - #{nw\ 3535}# - #{s\ 3514}# - #{mod\ 3515}#) - #{nr\ 3536}# - #{nw\ 3535}# - #{mod\ 3515}#)))))))) - (lambda (#{e\ 3539}# - #{r\ 3540}# - #{w\ 3541}# - #{s\ 3542}# - #{mod\ 3543}#) - ((lambda (#{tmp\ 3549}#) - ((lambda (#{tmp\ 3550}#) - (if (if #{tmp\ 3550}# - (apply (lambda (#{_\ 3556}# - #{id\ 3557}# - #{val\ 3558}# - #{e1\ 3559}# - #{e2\ 3560}#) - (and-map #{id?\ 367}# #{id\ 3557}#)) - #{tmp\ 3550}#) + #{e\ 15795}#) + (let ((#{labels\ 15815}# + (#{gen-labels\ 12934}# #{ids\ 15801}#)) + (#{new-vars\ 15816}# + (map #{gen-var\ 13029}# #{ids\ 15801}#))) + (let ((#{nw\ 15819}# + (#{make-binding-wrap\ 12963}# + #{ids\ 15801}# + #{labels\ 15815}# + #{w\ 15797}#)) + (#{nr\ 15820}# + (#{extend-var-env\ 12906}# + #{labels\ 15815}# + #{new-vars\ 15816}# + #{r\ 15796}#))) + (#{constructor\ 15800}# + #{s\ 15798}# + (map syntax->datum #{ids\ 15801}#) + #{new-vars\ 15816}# + (map (lambda (#{x\ 15821}#) + (#{chi\ 13001}# + #{x\ 15821}# + #{r\ 15796}# + #{w\ 15797}# + #{mod\ 15799}#)) + #{vals\ 15802}#) + (#{chi-body\ 13009}# + #{exps\ 15803}# + (#{source-wrap\ 12987}# + #{e\ 15795}# + #{nw\ 15819}# + #{s\ 15798}# + #{mod\ 15799}#) + #{nr\ 15820}# + #{nw\ 15819}# + #{mod\ 15799}#)))))))) + (lambda (#{e\ 15823}# + #{r\ 15824}# + #{w\ 15825}# + #{s\ 15826}# + #{mod\ 15827}#) + ((lambda (#{tmp\ 15833}#) + ((lambda (#{tmp\ 15834}#) + (if (if #{tmp\ 15834}# + (apply (lambda (#{_\ 15840}# + #{id\ 15841}# + #{val\ 15842}# + #{e1\ 15843}# + #{e2\ 15844}#) + (and-map #{id?\ 12916}# #{id\ 15841}#)) + #{tmp\ 15834}#) #f) - (apply (lambda (#{_\ 3567}# - #{id\ 3568}# - #{val\ 3569}# - #{e1\ 3570}# - #{e2\ 3571}#) - (#{chi-let\ 3510}# - #{e\ 3539}# - #{r\ 3540}# - #{w\ 3541}# - #{s\ 3542}# - #{mod\ 3543}# - #{build-let\ 321}# - #{id\ 3568}# - #{val\ 3569}# - (cons #{e1\ 3570}# #{e2\ 3571}#))) - #{tmp\ 3550}#) - ((lambda (#{tmp\ 3575}#) - (if (if #{tmp\ 3575}# - (apply (lambda (#{_\ 3582}# - #{f\ 3583}# - #{id\ 3584}# - #{val\ 3585}# - #{e1\ 3586}# - #{e2\ 3587}#) - (if (#{id?\ 367}# #{f\ 3583}#) - (and-map #{id?\ 367}# #{id\ 3584}#) + (apply (lambda (#{_\ 15851}# + #{id\ 15852}# + #{val\ 15853}# + #{e1\ 15854}# + #{e2\ 15855}#) + (#{chi-let\ 15794}# + #{e\ 15823}# + #{r\ 15824}# + #{w\ 15825}# + #{s\ 15826}# + #{mod\ 15827}# + #{build-let\ 12870}# + #{id\ 15852}# + #{val\ 15853}# + (cons #{e1\ 15854}# #{e2\ 15855}#))) + #{tmp\ 15834}#) + ((lambda (#{tmp\ 15859}#) + (if (if #{tmp\ 15859}# + (apply (lambda (#{_\ 15866}# + #{f\ 15867}# + #{id\ 15868}# + #{val\ 15869}# + #{e1\ 15870}# + #{e2\ 15871}#) + (if (#{id?\ 12916}# #{f\ 15867}#) + (and-map #{id?\ 12916}# #{id\ 15868}#) #f)) - #{tmp\ 3575}#) + #{tmp\ 15859}#) #f) - (apply (lambda (#{_\ 3597}# - #{f\ 3598}# - #{id\ 3599}# - #{val\ 3600}# - #{e1\ 3601}# - #{e2\ 3602}#) - (#{chi-let\ 3510}# - #{e\ 3539}# - #{r\ 3540}# - #{w\ 3541}# - #{s\ 3542}# - #{mod\ 3543}# - #{build-named-let\ 323}# - (cons #{f\ 3598}# #{id\ 3599}#) - #{val\ 3600}# - (cons #{e1\ 3601}# #{e2\ 3602}#))) - #{tmp\ 3575}#) - ((lambda (#{_\ 3607}#) + (apply (lambda (#{_\ 15881}# + #{f\ 15882}# + #{id\ 15883}# + #{val\ 15884}# + #{e1\ 15885}# + #{e2\ 15886}#) + (#{chi-let\ 15794}# + #{e\ 15823}# + #{r\ 15824}# + #{w\ 15825}# + #{s\ 15826}# + #{mod\ 15827}# + #{build-named-let\ 12872}# + (cons #{f\ 15882}# #{id\ 15883}#) + #{val\ 15884}# + (cons #{e1\ 15885}# #{e2\ 15886}#))) + #{tmp\ 15859}#) + ((lambda (#{_\ 15891}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 438}# - #{e\ 3539}# - #{w\ 3541}# - #{s\ 3542}# - #{mod\ 3543}#))) - #{tmp\ 3549}#))) + (#{source-wrap\ 12987}# + #{e\ 15823}# + #{w\ 15825}# + #{s\ 15826}# + #{mod\ 15827}#))) + #{tmp\ 15833}#))) ($sc-dispatch - #{tmp\ 3549}# + #{tmp\ 15833}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3549}# + #{tmp\ 15833}# '(any #(each (any any)) any . each-any)))) - #{e\ 3539}#)))) - (#{global-extend\ 363}# + #{e\ 15823}#)))) + (#{global-extend\ 12912}# 'core 'letrec - (lambda (#{e\ 3608}# - #{r\ 3609}# - #{w\ 3610}# - #{s\ 3611}# - #{mod\ 3612}#) - ((lambda (#{tmp\ 3618}#) - ((lambda (#{tmp\ 3619}#) - (if (if #{tmp\ 3619}# - (apply (lambda (#{_\ 3625}# - #{id\ 3626}# - #{val\ 3627}# - #{e1\ 3628}# - #{e2\ 3629}#) - (and-map #{id?\ 367}# #{id\ 3626}#)) - #{tmp\ 3619}#) + (lambda (#{e\ 15892}# + #{r\ 15893}# + #{w\ 15894}# + #{s\ 15895}# + #{mod\ 15896}#) + ((lambda (#{tmp\ 15902}#) + ((lambda (#{tmp\ 15903}#) + (if (if #{tmp\ 15903}# + (apply (lambda (#{_\ 15909}# + #{id\ 15910}# + #{val\ 15911}# + #{e1\ 15912}# + #{e2\ 15913}#) + (and-map #{id?\ 12916}# #{id\ 15910}#)) + #{tmp\ 15903}#) #f) - (apply (lambda (#{_\ 3636}# - #{id\ 3637}# - #{val\ 3638}# - #{e1\ 3639}# - #{e2\ 3640}#) - (let ((#{ids\ 3642}# #{id\ 3637}#)) - (if (not (#{valid-bound-ids?\ 430}# - #{ids\ 3642}#)) + (apply (lambda (#{_\ 15920}# + #{id\ 15921}# + #{val\ 15922}# + #{e1\ 15923}# + #{e2\ 15924}#) + (let ((#{ids\ 15926}# #{id\ 15921}#)) + (if (not (#{valid-bound-ids?\ 12979}# + #{ids\ 15926}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3608}#) - (let ((#{labels\ 3646}# - (#{gen-labels\ 385}# #{ids\ 3642}#)) - (#{new-vars\ 3647}# - (map #{gen-var\ 480}# #{ids\ 3642}#))) - (let ((#{w\ 3650}# - (#{make-binding-wrap\ 414}# - #{ids\ 3642}# - #{labels\ 3646}# - #{w\ 3610}#)) - (#{r\ 3651}# - (#{extend-var-env\ 357}# - #{labels\ 3646}# - #{new-vars\ 3647}# - #{r\ 3609}#))) - (#{build-letrec\ 325}# - #{s\ 3611}# - (map syntax->datum #{ids\ 3642}#) - #{new-vars\ 3647}# - (map (lambda (#{x\ 3652}#) - (#{chi\ 452}# - #{x\ 3652}# - #{r\ 3651}# - #{w\ 3650}# - #{mod\ 3612}#)) - #{val\ 3638}#) - (#{chi-body\ 460}# - (cons #{e1\ 3639}# #{e2\ 3640}#) - (#{source-wrap\ 438}# - #{e\ 3608}# - #{w\ 3650}# - #{s\ 3611}# - #{mod\ 3612}#) - #{r\ 3651}# - #{w\ 3650}# - #{mod\ 3612}#))))))) - #{tmp\ 3619}#) - ((lambda (#{_\ 3657}#) + #{e\ 15892}#) + (let ((#{labels\ 15930}# + (#{gen-labels\ 12934}# #{ids\ 15926}#)) + (#{new-vars\ 15931}# + (map #{gen-var\ 13029}# + #{ids\ 15926}#))) + (let ((#{w\ 15934}# + (#{make-binding-wrap\ 12963}# + #{ids\ 15926}# + #{labels\ 15930}# + #{w\ 15894}#)) + (#{r\ 15935}# + (#{extend-var-env\ 12906}# + #{labels\ 15930}# + #{new-vars\ 15931}# + #{r\ 15893}#))) + (#{build-letrec\ 12874}# + #{s\ 15895}# + (map syntax->datum #{ids\ 15926}#) + #{new-vars\ 15931}# + (map (lambda (#{x\ 15936}#) + (#{chi\ 13001}# + #{x\ 15936}# + #{r\ 15935}# + #{w\ 15934}# + #{mod\ 15896}#)) + #{val\ 15922}#) + (#{chi-body\ 13009}# + (cons #{e1\ 15923}# #{e2\ 15924}#) + (#{source-wrap\ 12987}# + #{e\ 15892}# + #{w\ 15934}# + #{s\ 15895}# + #{mod\ 15896}#) + #{r\ 15935}# + #{w\ 15934}# + #{mod\ 15896}#))))))) + #{tmp\ 15903}#) + ((lambda (#{_\ 15941}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 438}# - #{e\ 3608}# - #{w\ 3610}# - #{s\ 3611}# - #{mod\ 3612}#))) - #{tmp\ 3618}#))) + (#{source-wrap\ 12987}# + #{e\ 15892}# + #{w\ 15894}# + #{s\ 15895}# + #{mod\ 15896}#))) + #{tmp\ 15902}#))) ($sc-dispatch - #{tmp\ 3618}# + #{tmp\ 15902}# '(any #(each (any any)) any . each-any)))) - #{e\ 3608}#))) - (#{global-extend\ 363}# + #{e\ 15892}#))) + (#{global-extend\ 12912}# 'core 'set! - (lambda (#{e\ 3658}# - #{r\ 3659}# - #{w\ 3660}# - #{s\ 3661}# - #{mod\ 3662}#) - ((lambda (#{tmp\ 3668}#) - ((lambda (#{tmp\ 3669}#) - (if (if #{tmp\ 3669}# - (apply (lambda (#{_\ 3673}# #{id\ 3674}# #{val\ 3675}#) - (#{id?\ 367}# #{id\ 3674}#)) - #{tmp\ 3669}#) + (lambda (#{e\ 15942}# + #{r\ 15943}# + #{w\ 15944}# + #{s\ 15945}# + #{mod\ 15946}#) + ((lambda (#{tmp\ 15952}#) + ((lambda (#{tmp\ 15953}#) + (if (if #{tmp\ 15953}# + (apply (lambda (#{_\ 15957}# + #{id\ 15958}# + #{val\ 15959}#) + (#{id?\ 12916}# #{id\ 15958}#)) + #{tmp\ 15953}#) #f) - (apply (lambda (#{_\ 3679}# #{id\ 3680}# #{val\ 3681}#) - (let ((#{val\ 3684}# - (#{chi\ 452}# - #{val\ 3681}# - #{r\ 3659}# - #{w\ 3660}# - #{mod\ 3662}#)) - (#{n\ 3685}# - (#{id-var-name\ 424}# - #{id\ 3680}# - #{w\ 3660}#))) - (let ((#{b\ 3687}# - (#{lookup\ 361}# - #{n\ 3685}# - #{r\ 3659}# - #{mod\ 3662}#))) - (let ((#{atom-key\ 3690}# - (#{binding-type\ 350}# #{b\ 3687}#))) - (if (memv #{atom-key\ 3690}# + (apply (lambda (#{_\ 15963}# #{id\ 15964}# #{val\ 15965}#) + (let ((#{val\ 15968}# + (#{chi\ 13001}# + #{val\ 15965}# + #{r\ 15943}# + #{w\ 15944}# + #{mod\ 15946}#)) + (#{n\ 15969}# + (#{id-var-name\ 12973}# + #{id\ 15964}# + #{w\ 15944}#))) + (let ((#{b\ 15971}# + (#{lookup\ 12910}# + #{n\ 15969}# + #{r\ 15943}# + #{mod\ 15946}#))) + (let ((#{atom-key\ 15974}# + (#{binding-type\ 12899}# #{b\ 15971}#))) + (if (memv #{atom-key\ 15974}# '(lexical)) - (#{build-lexical-assignment\ 297}# - #{s\ 3661}# - (syntax->datum #{id\ 3680}#) - (#{binding-value\ 352}# #{b\ 3687}#) - #{val\ 3684}#) - (if (memv #{atom-key\ 3690}# + (#{build-lexical-assignment\ 12846}# + #{s\ 15945}# + (syntax->datum #{id\ 15964}#) + (#{binding-value\ 12901}# #{b\ 15971}#) + #{val\ 15968}#) + (if (memv #{atom-key\ 15974}# '(global)) - (#{build-global-assignment\ 303}# - #{s\ 3661}# - #{n\ 3685}# - #{val\ 3684}# - #{mod\ 3662}#) - (if (memv #{atom-key\ 3690}# + (#{build-global-assignment\ 12852}# + #{s\ 15945}# + #{n\ 15969}# + #{val\ 15968}# + #{mod\ 15946}#) + (if (memv #{atom-key\ 15974}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 436}# - #{id\ 3680}# - #{w\ 3660}# - #{mod\ 3662}#)) + (#{wrap\ 12985}# + #{id\ 15964}# + #{w\ 15944}# + #{mod\ 15946}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 438}# - #{e\ 3658}# - #{w\ 3660}# - #{s\ 3661}# - #{mod\ 3662}#))))))))) - #{tmp\ 3669}#) - ((lambda (#{tmp\ 3695}#) - (if #{tmp\ 3695}# - (apply (lambda (#{_\ 3700}# - #{head\ 3701}# - #{tail\ 3702}# - #{val\ 3703}#) + (#{source-wrap\ 12987}# + #{e\ 15942}# + #{w\ 15944}# + #{s\ 15945}# + #{mod\ 15946}#))))))))) + #{tmp\ 15953}#) + ((lambda (#{tmp\ 15979}#) + (if #{tmp\ 15979}# + (apply (lambda (#{_\ 15984}# + #{head\ 15985}# + #{tail\ 15986}# + #{val\ 15987}#) (call-with-values (lambda () - (#{syntax-type\ 448}# - #{head\ 3701}# - #{r\ 3659}# + (#{syntax-type\ 12997}# + #{head\ 15985}# + #{r\ 15943}# '(()) #f #f - #{mod\ 3662}# + #{mod\ 15946}# #t)) - (lambda (#{type\ 3706}# - #{value\ 3707}# - #{ee\ 3708}# - #{ww\ 3709}# - #{ss\ 3710}# - #{modmod\ 3711}#) - (if (memv #{type\ 3706}# + (lambda (#{type\ 15990}# + #{value\ 15991}# + #{ee\ 15992}# + #{ww\ 15993}# + #{ss\ 15994}# + #{modmod\ 15995}#) + (if (memv #{type\ 15990}# '(module-ref)) - (let ((#{val\ 3720}# - (#{chi\ 452}# - #{val\ 3703}# - #{r\ 3659}# - #{w\ 3660}# - #{mod\ 3662}#))) + (let ((#{val\ 16004}# + (#{chi\ 13001}# + #{val\ 15987}# + #{r\ 15943}# + #{w\ 15944}# + #{mod\ 15946}#))) (call-with-values (lambda () - (#{value\ 3707}# - (cons #{head\ 3701}# - #{tail\ 3702}#) - #{r\ 3659}# - #{w\ 3660}#)) - (lambda (#{e\ 3722}# - #{r\ 3723}# - #{w\ 3724}# - #{s*\ 3725}# - #{mod\ 3726}#) - ((lambda (#{tmp\ 3732}#) - ((lambda (#{tmp\ 3733}#) - (if (if #{tmp\ 3733}# - (apply (lambda (#{e\ 3735}#) - (#{id?\ 367}# - #{e\ 3735}#)) - #{tmp\ 3733}#) + (#{value\ 15991}# + (cons #{head\ 15985}# + #{tail\ 15986}#) + #{r\ 15943}# + #{w\ 15944}#)) + (lambda (#{e\ 16006}# + #{r\ 16007}# + #{w\ 16008}# + #{s*\ 16009}# + #{mod\ 16010}#) + ((lambda (#{tmp\ 16016}#) + ((lambda (#{tmp\ 16017}#) + (if (if #{tmp\ 16017}# + (apply (lambda (#{e\ 16019}#) + (#{id?\ 12916}# + #{e\ 16019}#)) + #{tmp\ 16017}#) #f) - (apply (lambda (#{e\ 3737}#) - (#{build-global-assignment\ 303}# - #{s\ 3661}# + (apply (lambda (#{e\ 16021}#) + (#{build-global-assignment\ 12852}# + #{s\ 15945}# (syntax->datum - #{e\ 3737}#) - #{val\ 3720}# - #{mod\ 3726}#)) - #{tmp\ 3733}#) + #{e\ 16021}#) + #{val\ 16004}# + #{mod\ 16010}#)) + #{tmp\ 16017}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3732}#))) - (list #{tmp\ 3732}#))) - #{e\ 3722}#)))) - (#{build-application\ 289}# - #{s\ 3661}# - (#{chi\ 452}# + #{tmp\ 16016}#))) + (list #{tmp\ 16016}#))) + #{e\ 16006}#)))) + (#{build-application\ 12838}# + #{s\ 15945}# + (#{chi\ 13001}# (list '#(syntax-object setter ((top) @@ -10212,22 +10110,22 @@ (top) (top) (top)) - #("i3712" - "i3713" - "i3714" - "i3715" - "i3716" - "i3717")) + #("i15996" + "i15997" + "i15998" + "i15999" + "i16000" + "i16001")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3696" - "i3697" - "i3698" - "i3699")) + #("i15980" + "i15981" + "i15982" + "i15983")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10236,11 +10134,11 @@ (top) (top) (top)) - #("i3663" - "i3664" - "i3665" - "i3666" - "i3667")) + #("i15947" + "i15948" + "i15949" + "i15950" + "i15951")) #(ribcage (lambda-var-list gen-var @@ -10512,197 +10410,201 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) - #{head\ 3701}#) - #{r\ 3659}# - #{w\ 3660}# - #{mod\ 3662}#) - (map (lambda (#{e\ 3739}#) - (#{chi\ 452}# - #{e\ 3739}# - #{r\ 3659}# - #{w\ 3660}# - #{mod\ 3662}#)) + #{head\ 15985}#) + #{r\ 15943}# + #{w\ 15944}# + #{mod\ 15946}#) + (map (lambda (#{e\ 16023}#) + (#{chi\ 13001}# + #{e\ 16023}# + #{r\ 15943}# + #{w\ 15944}# + #{mod\ 15946}#)) (append - #{tail\ 3702}# - (list #{val\ 3703}#)))))))) - #{tmp\ 3695}#) - ((lambda (#{_\ 3743}#) + #{tail\ 15986}# + (list #{val\ 15987}#)))))))) + #{tmp\ 15979}#) + ((lambda (#{_\ 16027}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 438}# - #{e\ 3658}# - #{w\ 3660}# - #{s\ 3661}# - #{mod\ 3662}#))) - #{tmp\ 3668}#))) + (#{source-wrap\ 12987}# + #{e\ 15942}# + #{w\ 15944}# + #{s\ 15945}# + #{mod\ 15946}#))) + #{tmp\ 15952}#))) ($sc-dispatch - #{tmp\ 3668}# + #{tmp\ 15952}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3668}# + #{tmp\ 15952}# '(any any any)))) - #{e\ 3658}#))) - (#{global-extend\ 363}# + #{e\ 15942}#))) + (#{global-extend\ 12912}# 'module-ref '@ - (lambda (#{e\ 3744}# #{r\ 3745}# #{w\ 3746}#) - ((lambda (#{tmp\ 3750}#) - ((lambda (#{tmp\ 3751}#) - (if (if #{tmp\ 3751}# - (apply (lambda (#{_\ 3755}# #{mod\ 3756}# #{id\ 3757}#) - (if (and-map #{id?\ 367}# #{mod\ 3756}#) - (#{id?\ 367}# #{id\ 3757}#) + (lambda (#{e\ 16028}# #{r\ 16029}# #{w\ 16030}#) + ((lambda (#{tmp\ 16034}#) + ((lambda (#{tmp\ 16035}#) + (if (if #{tmp\ 16035}# + (apply (lambda (#{_\ 16039}# + #{mod\ 16040}# + #{id\ 16041}#) + (if (and-map #{id?\ 12916}# #{mod\ 16040}#) + (#{id?\ 12916}# #{id\ 16041}#) #f)) - #{tmp\ 3751}#) + #{tmp\ 16035}#) #f) - (apply (lambda (#{_\ 3764}# #{mod\ 3765}# #{id\ 3766}#) + (apply (lambda (#{_\ 16048}# #{mod\ 16049}# #{id\ 16050}#) (values - (syntax->datum #{id\ 3766}#) - #{r\ 3745}# - #{w\ 3746}# + (syntax->datum #{id\ 16050}#) + #{r\ 16029}# + #{w\ 16030}# #f (syntax->datum (cons '#(syntax-object @@ -10711,12 +10613,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3761" "i3762" "i3763")) + #("i16045" "i16046" "i16047")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3747" "i3748" "i3749")) + #("i16031" "i16032" "i16033")) #(ribcage (lambda-var-list gen-var @@ -10988,213 +10890,214 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" "i12628" "i12626"))) (hygiene guile)) - #{mod\ 3765}#)))) - #{tmp\ 3751}#) + #{mod\ 16049}#)))) + #{tmp\ 16035}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3750}#))) + #{tmp\ 16034}#))) ($sc-dispatch - #{tmp\ 3750}# + #{tmp\ 16034}# '(any each-any any)))) - #{e\ 3744}#))) - (#{global-extend\ 363}# + #{e\ 16028}#))) + (#{global-extend\ 12912}# 'module-ref '@@ - (lambda (#{e\ 3768}# #{r\ 3769}# #{w\ 3770}#) - (letrec ((#{remodulate\ 3775}# - (lambda (#{x\ 3776}# #{mod\ 3777}#) - (if (pair? #{x\ 3776}#) - (cons (#{remodulate\ 3775}# - (car #{x\ 3776}#) - #{mod\ 3777}#) - (#{remodulate\ 3775}# - (cdr #{x\ 3776}#) - #{mod\ 3777}#)) - (if (#{syntax-object?\ 331}# #{x\ 3776}#) - (#{make-syntax-object\ 329}# - (#{remodulate\ 3775}# - (#{syntax-object-expression\ 333}# #{x\ 3776}#) - #{mod\ 3777}#) - (#{syntax-object-wrap\ 335}# #{x\ 3776}#) - #{mod\ 3777}#) - (if (vector? #{x\ 3776}#) - (let ((#{n\ 3788}# (vector-length #{x\ 3776}#))) - (let ((#{v\ 3790}# (make-vector #{n\ 3788}#))) - (letrec ((#{loop\ 3793}# - (lambda (#{i\ 3794}#) - (if (#{fx=\ 272}# - #{i\ 3794}# - #{n\ 3788}#) - (begin (if #f #f) #{v\ 3790}#) + (lambda (#{e\ 16052}# #{r\ 16053}# #{w\ 16054}#) + (letrec ((#{remodulate\ 16059}# + (lambda (#{x\ 16060}# #{mod\ 16061}#) + (if (pair? #{x\ 16060}#) + (cons (#{remodulate\ 16059}# + (car #{x\ 16060}#) + #{mod\ 16061}#) + (#{remodulate\ 16059}# + (cdr #{x\ 16060}#) + #{mod\ 16061}#)) + (if (#{syntax-object?\ 12880}# #{x\ 16060}#) + (#{make-syntax-object\ 12878}# + (#{remodulate\ 16059}# + (#{syntax-object-expression\ 12882}# + #{x\ 16060}#) + #{mod\ 16061}#) + (#{syntax-object-wrap\ 12884}# #{x\ 16060}#) + #{mod\ 16061}#) + (if (vector? #{x\ 16060}#) + (let ((#{n\ 16072}# (vector-length #{x\ 16060}#))) + (let ((#{v\ 16074}# (make-vector #{n\ 16072}#))) + (letrec ((#{loop\ 16077}# + (lambda (#{i\ 16078}#) + (if (#{fx=\ 12821}# + #{i\ 16078}# + #{n\ 16072}#) + (begin (if #f #f) #{v\ 16074}#) (begin (vector-set! - #{v\ 3790}# - #{i\ 3794}# - (#{remodulate\ 3775}# + #{v\ 16074}# + #{i\ 16078}# + (#{remodulate\ 16059}# (vector-ref - #{x\ 3776}# - #{i\ 3794}#) - #{mod\ 3777}#)) - (#{loop\ 3793}# - (#{fx+\ 268}# - #{i\ 3794}# + #{x\ 16060}# + #{i\ 16078}#) + #{mod\ 16061}#)) + (#{loop\ 16077}# + (#{fx+\ 12817}# + #{i\ 16078}# 1))))))) - (#{loop\ 3793}# 0)))) - #{x\ 3776}#)))))) - ((lambda (#{tmp\ 3798}#) - ((lambda (#{tmp\ 3799}#) - (if (if #{tmp\ 3799}# - (apply (lambda (#{_\ 3803}# - #{mod\ 3804}# - #{exp\ 3805}#) - (and-map #{id?\ 367}# #{mod\ 3804}#)) - #{tmp\ 3799}#) + (#{loop\ 16077}# 0)))) + #{x\ 16060}#)))))) + ((lambda (#{tmp\ 16082}#) + ((lambda (#{tmp\ 16083}#) + (if (if #{tmp\ 16083}# + (apply (lambda (#{_\ 16087}# + #{mod\ 16088}# + #{exp\ 16089}#) + (and-map #{id?\ 12916}# #{mod\ 16088}#)) + #{tmp\ 16083}#) #f) - (apply (lambda (#{_\ 3810}# #{mod\ 3811}# #{exp\ 3812}#) - (let ((#{mod\ 3814}# + (apply (lambda (#{_\ 16094}# #{mod\ 16095}# #{exp\ 16096}#) + (let ((#{mod\ 16098}# (syntax->datum (cons '#(syntax-object private @@ -11202,15 +11105,19 @@ #(ribcage #(_ mod exp) #((top) (top) (top)) - #("i3807" "i3808" "i3809")) + #("i16091" + "i16092" + "i16093")) #(ribcage (remodulate) ((top)) - ("i3774")) + ("i16058")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3771" "i3772" "i3773")) + #("i16055" + "i16056" + "i16057")) #(ribcage (lambda-var-list gen-var @@ -11482,331 +11389,334 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" "i27" "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) - #{mod\ 3811}#)))) + #{mod\ 16095}#)))) (values - (#{remodulate\ 3775}# - #{exp\ 3812}# - #{mod\ 3814}#) - #{r\ 3769}# - #{w\ 3770}# - (#{source-annotation\ 346}# #{exp\ 3812}#) - #{mod\ 3814}#))) - #{tmp\ 3799}#) + (#{remodulate\ 16059}# + #{exp\ 16096}# + #{mod\ 16098}#) + #{r\ 16053}# + #{w\ 16054}# + (#{source-annotation\ 12895}# #{exp\ 16096}#) + #{mod\ 16098}#))) + #{tmp\ 16083}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3798}#))) + #{tmp\ 16082}#))) ($sc-dispatch - #{tmp\ 3798}# + #{tmp\ 16082}# '(any each-any any)))) - #{e\ 3768}#)))) - (#{global-extend\ 363}# + #{e\ 16052}#)))) + (#{global-extend\ 12912}# 'core 'if - (lambda (#{e\ 3816}# - #{r\ 3817}# - #{w\ 3818}# - #{s\ 3819}# - #{mod\ 3820}#) - ((lambda (#{tmp\ 3826}#) - ((lambda (#{tmp\ 3827}#) - (if #{tmp\ 3827}# - (apply (lambda (#{_\ 3831}# #{test\ 3832}# #{then\ 3833}#) - (#{build-conditional\ 291}# - #{s\ 3819}# - (#{chi\ 452}# - #{test\ 3832}# - #{r\ 3817}# - #{w\ 3818}# - #{mod\ 3820}#) - (#{chi\ 452}# - #{then\ 3833}# - #{r\ 3817}# - #{w\ 3818}# - #{mod\ 3820}#) - (#{build-void\ 287}# #f))) - #{tmp\ 3827}#) - ((lambda (#{tmp\ 3835}#) - (if #{tmp\ 3835}# - (apply (lambda (#{_\ 3840}# - #{test\ 3841}# - #{then\ 3842}# - #{else\ 3843}#) - (#{build-conditional\ 291}# - #{s\ 3819}# - (#{chi\ 452}# - #{test\ 3841}# - #{r\ 3817}# - #{w\ 3818}# - #{mod\ 3820}#) - (#{chi\ 452}# - #{then\ 3842}# - #{r\ 3817}# - #{w\ 3818}# - #{mod\ 3820}#) - (#{chi\ 452}# - #{else\ 3843}# - #{r\ 3817}# - #{w\ 3818}# - #{mod\ 3820}#))) - #{tmp\ 3835}#) + (lambda (#{e\ 16100}# + #{r\ 16101}# + #{w\ 16102}# + #{s\ 16103}# + #{mod\ 16104}#) + ((lambda (#{tmp\ 16110}#) + ((lambda (#{tmp\ 16111}#) + (if #{tmp\ 16111}# + (apply (lambda (#{_\ 16115}# #{test\ 16116}# #{then\ 16117}#) + (#{build-conditional\ 12840}# + #{s\ 16103}# + (#{chi\ 13001}# + #{test\ 16116}# + #{r\ 16101}# + #{w\ 16102}# + #{mod\ 16104}#) + (#{chi\ 13001}# + #{then\ 16117}# + #{r\ 16101}# + #{w\ 16102}# + #{mod\ 16104}#) + (#{build-void\ 12836}# #f))) + #{tmp\ 16111}#) + ((lambda (#{tmp\ 16119}#) + (if #{tmp\ 16119}# + (apply (lambda (#{_\ 16124}# + #{test\ 16125}# + #{then\ 16126}# + #{else\ 16127}#) + (#{build-conditional\ 12840}# + #{s\ 16103}# + (#{chi\ 13001}# + #{test\ 16125}# + #{r\ 16101}# + #{w\ 16102}# + #{mod\ 16104}#) + (#{chi\ 13001}# + #{then\ 16126}# + #{r\ 16101}# + #{w\ 16102}# + #{mod\ 16104}#) + (#{chi\ 13001}# + #{else\ 16127}# + #{r\ 16101}# + #{w\ 16102}# + #{mod\ 16104}#))) + #{tmp\ 16119}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3826}#))) + #{tmp\ 16110}#))) ($sc-dispatch - #{tmp\ 3826}# + #{tmp\ 16110}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3826}# + #{tmp\ 16110}# '(any any any)))) - #{e\ 3816}#))) - (#{global-extend\ 363}# + #{e\ 16100}#))) + (#{global-extend\ 12912}# 'core 'with-fluids - (lambda (#{e\ 3844}# - #{r\ 3845}# - #{w\ 3846}# - #{s\ 3847}# - #{mod\ 3848}#) - ((lambda (#{tmp\ 3854}#) - ((lambda (#{tmp\ 3855}#) - (if #{tmp\ 3855}# - (apply (lambda (#{_\ 3861}# - #{fluid\ 3862}# - #{val\ 3863}# - #{b\ 3864}# - #{b*\ 3865}#) - (#{build-dynlet\ 293}# - #{s\ 3847}# - (map (lambda (#{x\ 3866}#) - (#{chi\ 452}# - #{x\ 3866}# - #{r\ 3845}# - #{w\ 3846}# - #{mod\ 3848}#)) - #{fluid\ 3862}#) - (map (lambda (#{x\ 3869}#) - (#{chi\ 452}# - #{x\ 3869}# - #{r\ 3845}# - #{w\ 3846}# - #{mod\ 3848}#)) - #{val\ 3863}#) - (#{chi-body\ 460}# - (cons #{b\ 3864}# #{b*\ 3865}#) - (#{source-wrap\ 438}# - #{e\ 3844}# - #{w\ 3846}# - #{s\ 3847}# - #{mod\ 3848}#) - #{r\ 3845}# - #{w\ 3846}# - #{mod\ 3848}#))) - #{tmp\ 3855}#) + (lambda (#{e\ 16128}# + #{r\ 16129}# + #{w\ 16130}# + #{s\ 16131}# + #{mod\ 16132}#) + ((lambda (#{tmp\ 16138}#) + ((lambda (#{tmp\ 16139}#) + (if #{tmp\ 16139}# + (apply (lambda (#{_\ 16145}# + #{fluid\ 16146}# + #{val\ 16147}# + #{b\ 16148}# + #{b*\ 16149}#) + (#{build-dynlet\ 12842}# + #{s\ 16131}# + (map (lambda (#{x\ 16150}#) + (#{chi\ 13001}# + #{x\ 16150}# + #{r\ 16129}# + #{w\ 16130}# + #{mod\ 16132}#)) + #{fluid\ 16146}#) + (map (lambda (#{x\ 16153}#) + (#{chi\ 13001}# + #{x\ 16153}# + #{r\ 16129}# + #{w\ 16130}# + #{mod\ 16132}#)) + #{val\ 16147}#) + (#{chi-body\ 13009}# + (cons #{b\ 16148}# #{b*\ 16149}#) + (#{source-wrap\ 12987}# + #{e\ 16128}# + #{w\ 16130}# + #{s\ 16131}# + #{mod\ 16132}#) + #{r\ 16129}# + #{w\ 16130}# + #{mod\ 16132}#))) + #{tmp\ 16139}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3854}#))) + #{tmp\ 16138}#))) ($sc-dispatch - #{tmp\ 3854}# + #{tmp\ 16138}# '(any #(each (any any)) any . each-any)))) - #{e\ 3844}#))) - (#{global-extend\ 363}# + #{e\ 16128}#))) + (#{global-extend\ 12912}# 'begin 'begin '()) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'define 'define '()) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'eval-when 'eval-when '()) - (#{global-extend\ 363}# + (#{global-extend\ 12912}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3880}# - (lambda (#{x\ 3881}# - #{keys\ 3882}# - #{clauses\ 3883}# - #{r\ 3884}# - #{mod\ 3885}#) - (if (null? #{clauses\ 3883}#) - (#{build-application\ 289}# + (letrec ((#{gen-syntax-case\ 16164}# + (lambda (#{x\ 16165}# + #{keys\ 16166}# + #{clauses\ 16167}# + #{r\ 16168}# + #{mod\ 16169}#) + (if (null? #{clauses\ 16167}#) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f 'syntax-violation) - (list (#{build-data\ 317}# #f #f) - (#{build-data\ 317}# + (list (#{build-data\ 12866}# #f #f) + (#{build-data\ 12866}# #f "source expression failed to match any pattern") - #{x\ 3881}#)) - ((lambda (#{tmp\ 3895}#) - ((lambda (#{tmp\ 3896}#) - (if #{tmp\ 3896}# - (apply (lambda (#{pat\ 3899}# #{exp\ 3900}#) - (if (if (#{id?\ 367}# #{pat\ 3899}#) + #{x\ 16165}#)) + ((lambda (#{tmp\ 16179}#) + ((lambda (#{tmp\ 16180}#) + (if #{tmp\ 16180}# + (apply (lambda (#{pat\ 16183}# #{exp\ 16184}#) + (if (if (#{id?\ 12916}# #{pat\ 16183}#) (and-map - (lambda (#{x\ 3903}#) - (not (#{free-id=?\ 426}# - #{pat\ 3899}# - #{x\ 3903}#))) + (lambda (#{x\ 16187}#) + (not (#{free-id=?\ 12975}# + #{pat\ 16183}# + #{x\ 16187}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3897" "i3898")) + #("i16181" + "i16182")) #(ribcage () () ()) #(ribcage #(x @@ -11819,11 +11729,11 @@ (top) (top) (top)) - #("i3886" - "i3887" - "i3888" - "i3889" - "i3890")) + #("i16170" + "i16171" + "i16172" + "i16173" + "i16174")) #(ribcage (gen-syntax-case gen-clause @@ -11833,10 +11743,10 @@ (top) (top) (top)) - ("i3879" - "i3877" - "i3875" - "i3873")) + ("i16163" + "i16161" + "i16159" + "i16157")) #(ribcage (lambda-var-list gen-var @@ -12108,1052 +12018,1062 @@ (top) (top) (top)) - ("i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i410" - "i409" - "i407" - "i406" - "i405" - "i404" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" - "i389" - "i387" - "i384" - "i382" - "i381" - "i380" - "i379" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i353" - "i351" - "i349" - "i348" - "i347" - "i345" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i228")) + ("i13030" + "i13028" + "i13026" + "i13024" + "i13022" + "i13020" + "i13018" + "i13016" + "i13014" + "i13012" + "i13010" + "i13008" + "i13006" + "i13004" + "i13002" + "i13000" + "i12998" + "i12996" + "i12994" + "i12992" + "i12990" + "i12988" + "i12986" + "i12984" + "i12982" + "i12980" + "i12978" + "i12976" + "i12974" + "i12972" + "i12970" + "i12968" + "i12966" + "i12964" + "i12962" + "i12960" + "i12959" + "i12958" + "i12956" + "i12955" + "i12954" + "i12953" + "i12952" + "i12950" + "i12948" + "i12946" + "i12944" + "i12942" + "i12940" + "i12938" + "i12936" + "i12933" + "i12931" + "i12930" + "i12929" + "i12928" + "i12927" + "i12926" + "i12924" + "i12922" + "i12920" + "i12918" + "i12917" + "i12915" + "i12913" + "i12911" + "i12909" + "i12907" + "i12905" + "i12903" + "i12902" + "i12900" + "i12898" + "i12897" + "i12896" + "i12894" + "i12893" + "i12891" + "i12889" + "i12887" + "i12885" + "i12883" + "i12881" + "i12879" + "i12877" + "i12875" + "i12873" + "i12871" + "i12869" + "i12867" + "i12865" + "i12863" + "i12861" + "i12859" + "i12857" + "i12855" + "i12853" + "i12851" + "i12849" + "i12847" + "i12845" + "i12843" + "i12841" + "i12839" + "i12837" + "i12835" + "i12833" + "i12831" + "i12829" + "i12828" + "i12826" + "i12824" + "i12822" + "i12820" + "i12818" + "i12816" + "i12814" + "i12812" + "i12810" + "i12808" + "i12806" + "i12804" + "i12802" + "i12800" + "i12798" + "i12796" + "i12794" + "i12792" + "i12790" + "i12788" + "i12786" + "i12784" + "i12782" + "i12780" + "i12777")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) - ("i28" - "i27" - "i25"))) + ("i12629" + "i12628" + "i12626"))) (hygiene guile)) - #{keys\ 3882}#)) + #{keys\ 16166}#)) #f) - (let ((#{labels\ 3907}# - (list (#{gen-label\ 383}#))) - (#{var\ 3908}# - (#{gen-var\ 480}# - #{pat\ 3899}#))) - (#{build-application\ 289}# + (let ((#{labels\ 16191}# + (list (#{gen-label\ 12932}#))) + (#{var\ 16192}# + (#{gen-var\ 13029}# + #{pat\ 16183}#))) + (#{build-application\ 12838}# #f - (#{build-simple-lambda\ 309}# + (#{build-simple-lambda\ 12858}# #f (list (syntax->datum - #{pat\ 3899}#)) + #{pat\ 16183}#)) #f - (list #{var\ 3908}#) + (list #{var\ 16192}#) '() - (#{chi\ 452}# - #{exp\ 3900}# - (#{extend-env\ 355}# - #{labels\ 3907}# + (#{chi\ 13001}# + #{exp\ 16184}# + (#{extend-env\ 12904}# + #{labels\ 16191}# (list (cons 'syntax - (cons #{var\ 3908}# + (cons #{var\ 16192}# 0))) - #{r\ 3884}#) - (#{make-binding-wrap\ 414}# - (list #{pat\ 3899}#) - #{labels\ 3907}# + #{r\ 16168}#) + (#{make-binding-wrap\ 12963}# + (list #{pat\ 16183}#) + #{labels\ 16191}# '(())) - #{mod\ 3885}#)) - (list #{x\ 3881}#))) - (#{gen-clause\ 3878}# - #{x\ 3881}# - #{keys\ 3882}# - (cdr #{clauses\ 3883}#) - #{r\ 3884}# - #{pat\ 3899}# + #{mod\ 16169}#)) + (list #{x\ 16165}#))) + (#{gen-clause\ 16162}# + #{x\ 16165}# + #{keys\ 16166}# + (cdr #{clauses\ 16167}#) + #{r\ 16168}# + #{pat\ 16183}# #t - #{exp\ 3900}# - #{mod\ 3885}#))) - #{tmp\ 3896}#) - ((lambda (#{tmp\ 3914}#) - (if #{tmp\ 3914}# - (apply (lambda (#{pat\ 3918}# - #{fender\ 3919}# - #{exp\ 3920}#) - (#{gen-clause\ 3878}# - #{x\ 3881}# - #{keys\ 3882}# - (cdr #{clauses\ 3883}#) - #{r\ 3884}# - #{pat\ 3918}# - #{fender\ 3919}# - #{exp\ 3920}# - #{mod\ 3885}#)) - #{tmp\ 3914}#) - ((lambda (#{_\ 3922}#) + #{exp\ 16184}# + #{mod\ 16169}#))) + #{tmp\ 16180}#) + ((lambda (#{tmp\ 16198}#) + (if #{tmp\ 16198}# + (apply (lambda (#{pat\ 16202}# + #{fender\ 16203}# + #{exp\ 16204}#) + (#{gen-clause\ 16162}# + #{x\ 16165}# + #{keys\ 16166}# + (cdr #{clauses\ 16167}#) + #{r\ 16168}# + #{pat\ 16202}# + #{fender\ 16203}# + #{exp\ 16204}# + #{mod\ 16169}#)) + #{tmp\ 16198}#) + ((lambda (#{_\ 16206}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3883}#))) - #{tmp\ 3895}#))) + (car #{clauses\ 16167}#))) + #{tmp\ 16179}#))) ($sc-dispatch - #{tmp\ 3895}# + #{tmp\ 16179}# '(any any any))))) - ($sc-dispatch #{tmp\ 3895}# (quote (any any))))) - (car #{clauses\ 3883}#))))) - (#{gen-clause\ 3878}# - (lambda (#{x\ 3923}# - #{keys\ 3924}# - #{clauses\ 3925}# - #{r\ 3926}# - #{pat\ 3927}# - #{fender\ 3928}# - #{exp\ 3929}# - #{mod\ 3930}#) + ($sc-dispatch #{tmp\ 16179}# (quote (any any))))) + (car #{clauses\ 16167}#))))) + (#{gen-clause\ 16162}# + (lambda (#{x\ 16207}# + #{keys\ 16208}# + #{clauses\ 16209}# + #{r\ 16210}# + #{pat\ 16211}# + #{fender\ 16212}# + #{exp\ 16213}# + #{mod\ 16214}#) (call-with-values (lambda () - (#{convert-pattern\ 3874}# - #{pat\ 3927}# - #{keys\ 3924}#)) - (lambda (#{p\ 3939}# #{pvars\ 3940}#) - (if (not (#{distinct-bound-ids?\ 432}# - (map car #{pvars\ 3940}#))) + (#{convert-pattern\ 16158}# + #{pat\ 16211}# + #{keys\ 16208}#)) + (lambda (#{p\ 16223}# #{pvars\ 16224}#) + (if (not (#{distinct-bound-ids?\ 12981}# + (map car #{pvars\ 16224}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3927}#) + #{pat\ 16211}#) (if (not (and-map - (lambda (#{x\ 3947}#) - (not (#{ellipsis?\ 468}# - (car #{x\ 3947}#)))) - #{pvars\ 3940}#)) + (lambda (#{x\ 16231}#) + (not (#{ellipsis?\ 13017}# + (car #{x\ 16231}#)))) + #{pvars\ 16224}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3927}#) - (let ((#{y\ 3951}# - (#{gen-var\ 480}# (quote tmp)))) - (#{build-application\ 289}# + #{pat\ 16211}#) + (let ((#{y\ 16235}# + (#{gen-var\ 13029}# (quote tmp)))) + (#{build-application\ 12838}# #f - (#{build-simple-lambda\ 309}# + (#{build-simple-lambda\ 12858}# #f (list (quote tmp)) #f - (list #{y\ 3951}#) + (list #{y\ 16235}#) '() - (let ((#{y\ 3955}# - (#{build-lexical-reference\ 295}# + (let ((#{y\ 16239}# + (#{build-lexical-reference\ 12844}# 'value #f 'tmp - #{y\ 3951}#))) - (#{build-conditional\ 291}# + #{y\ 16235}#))) + (#{build-conditional\ 12840}# #f - ((lambda (#{tmp\ 3958}#) - ((lambda (#{tmp\ 3959}#) - (if #{tmp\ 3959}# - (apply (lambda () #{y\ 3955}#) - #{tmp\ 3959}#) - ((lambda (#{_\ 3961}#) - (#{build-conditional\ 291}# + ((lambda (#{tmp\ 16242}#) + ((lambda (#{tmp\ 16243}#) + (if #{tmp\ 16243}# + (apply (lambda () #{y\ 16239}#) + #{tmp\ 16243}#) + ((lambda (#{_\ 16245}#) + (#{build-conditional\ 12840}# #f - #{y\ 3955}# - (#{build-dispatch-call\ 3876}# - #{pvars\ 3940}# - #{fender\ 3928}# - #{y\ 3955}# - #{r\ 3926}# - #{mod\ 3930}#) - (#{build-data\ 317}# + #{y\ 16239}# + (#{build-dispatch-call\ 16160}# + #{pvars\ 16224}# + #{fender\ 16212}# + #{y\ 16239}# + #{r\ 16210}# + #{mod\ 16214}#) + (#{build-data\ 12866}# #f #f))) - #{tmp\ 3958}#))) + #{tmp\ 16242}#))) ($sc-dispatch - #{tmp\ 3958}# + #{tmp\ 16242}# '#(atom #t)))) - #{fender\ 3928}#) - (#{build-dispatch-call\ 3876}# - #{pvars\ 3940}# - #{exp\ 3929}# - #{y\ 3955}# - #{r\ 3926}# - #{mod\ 3930}#) - (#{gen-syntax-case\ 3880}# - #{x\ 3923}# - #{keys\ 3924}# - #{clauses\ 3925}# - #{r\ 3926}# - #{mod\ 3930}#)))) - (list (if (eq? #{p\ 3939}# (quote any)) - (#{build-application\ 289}# + #{fender\ 16212}#) + (#{build-dispatch-call\ 16160}# + #{pvars\ 16224}# + #{exp\ 16213}# + #{y\ 16239}# + #{r\ 16210}# + #{mod\ 16214}#) + (#{gen-syntax-case\ 16164}# + #{x\ 16207}# + #{keys\ 16208}# + #{clauses\ 16209}# + #{r\ 16210}# + #{mod\ 16214}#)))) + (list (if (eq? #{p\ 16223}# (quote any)) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f 'list) - (list #{x\ 3923}#)) - (#{build-application\ 289}# + (list #{x\ 16207}#)) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# + (#{build-primref\ 12864}# #f '$sc-dispatch) - (list #{x\ 3923}# - (#{build-data\ 317}# + (list #{x\ 16207}# + (#{build-data\ 12866}# #f - #{p\ 3939}#))))))))))))) - (#{build-dispatch-call\ 3876}# - (lambda (#{pvars\ 3969}# - #{exp\ 3970}# - #{y\ 3971}# - #{r\ 3972}# - #{mod\ 3973}#) - (let ((#{ids\ 3981}# (map car #{pvars\ 3969}#)) - (#{levels\ 3982}# (map cdr #{pvars\ 3969}#))) - (let ((#{labels\ 3985}# - (#{gen-labels\ 385}# #{ids\ 3981}#)) - (#{new-vars\ 3986}# - (map #{gen-var\ 480}# #{ids\ 3981}#))) - (#{build-application\ 289}# + #{p\ 16223}#))))))))))))) + (#{build-dispatch-call\ 16160}# + (lambda (#{pvars\ 16253}# + #{exp\ 16254}# + #{y\ 16255}# + #{r\ 16256}# + #{mod\ 16257}#) + (let ((#{ids\ 16265}# (map car #{pvars\ 16253}#)) + (#{levels\ 16266}# (map cdr #{pvars\ 16253}#))) + (let ((#{labels\ 16269}# + (#{gen-labels\ 12934}# #{ids\ 16265}#)) + (#{new-vars\ 16270}# + (map #{gen-var\ 13029}# #{ids\ 16265}#))) + (#{build-application\ 12838}# #f - (#{build-primref\ 315}# #f (quote apply)) - (list (#{build-simple-lambda\ 309}# + (#{build-primref\ 12864}# #f (quote apply)) + (list (#{build-simple-lambda\ 12858}# #f - (map syntax->datum #{ids\ 3981}#) + (map syntax->datum #{ids\ 16265}#) #f - #{new-vars\ 3986}# + #{new-vars\ 16270}# '() - (#{chi\ 452}# - #{exp\ 3970}# - (#{extend-env\ 355}# - #{labels\ 3985}# - (map (lambda (#{var\ 3990}# - #{level\ 3991}#) + (#{chi\ 13001}# + #{exp\ 16254}# + (#{extend-env\ 12904}# + #{labels\ 16269}# + (map (lambda (#{var\ 16274}# + #{level\ 16275}#) (cons 'syntax - (cons #{var\ 3990}# - #{level\ 3991}#))) - #{new-vars\ 3986}# - (map cdr #{pvars\ 3969}#)) - #{r\ 3972}#) - (#{make-binding-wrap\ 414}# - #{ids\ 3981}# - #{labels\ 3985}# + (cons #{var\ 16274}# + #{level\ 16275}#))) + #{new-vars\ 16270}# + (map cdr #{pvars\ 16253}#)) + #{r\ 16256}#) + (#{make-binding-wrap\ 12963}# + #{ids\ 16265}# + #{labels\ 16269}# '(())) - #{mod\ 3973}#)) - #{y\ 3971}#)))))) - (#{convert-pattern\ 3874}# - (lambda (#{pattern\ 3997}# #{keys\ 3998}#) - (letrec ((#{cvt\ 4004}# - (lambda (#{p\ 4005}# #{n\ 4006}# #{ids\ 4007}#) - (if (#{id?\ 367}# #{p\ 4005}#) - (if (#{bound-id-member?\ 434}# - #{p\ 4005}# - #{keys\ 3998}#) + #{mod\ 16257}#)) + #{y\ 16255}#)))))) + (#{convert-pattern\ 16158}# + (lambda (#{pattern\ 16281}# #{keys\ 16282}#) + (letrec ((#{cvt\ 16288}# + (lambda (#{p\ 16289}# + #{n\ 16290}# + #{ids\ 16291}#) + (if (#{id?\ 12916}# #{p\ 16289}#) + (if (#{bound-id-member?\ 12983}# + #{p\ 16289}# + #{keys\ 16282}#) (values - (vector (quote free-id) #{p\ 4005}#) - #{ids\ 4007}#) + (vector (quote free-id) #{p\ 16289}#) + #{ids\ 16291}#) (values 'any - (cons (cons #{p\ 4005}# #{n\ 4006}#) - #{ids\ 4007}#))) - ((lambda (#{tmp\ 4011}#) - ((lambda (#{tmp\ 4012}#) - (if (if #{tmp\ 4012}# - (apply (lambda (#{x\ 4015}# - #{dots\ 4016}#) - (#{ellipsis?\ 468}# - #{dots\ 4016}#)) - #{tmp\ 4012}#) + (cons (cons #{p\ 16289}# #{n\ 16290}#) + #{ids\ 16291}#))) + ((lambda (#{tmp\ 16295}#) + ((lambda (#{tmp\ 16296}#) + (if (if #{tmp\ 16296}# + (apply (lambda (#{x\ 16299}# + #{dots\ 16300}#) + (#{ellipsis?\ 13017}# + #{dots\ 16300}#)) + #{tmp\ 16296}#) #f) - (apply (lambda (#{x\ 4019}# - #{dots\ 4020}#) + (apply (lambda (#{x\ 16303}# + #{dots\ 16304}#) (call-with-values (lambda () - (#{cvt\ 4004}# - #{x\ 4019}# - (#{fx+\ 268}# - #{n\ 4006}# + (#{cvt\ 16288}# + #{x\ 16303}# + (#{fx+\ 12817}# + #{n\ 16290}# 1) - #{ids\ 4007}#)) - (lambda (#{p\ 4021}# - #{ids\ 4022}#) + #{ids\ 16291}#)) + (lambda (#{p\ 16305}# + #{ids\ 16306}#) (values - (if (eq? #{p\ 4021}# + (if (eq? #{p\ 16305}# 'any) 'each-any (vector 'each - #{p\ 4021}#)) - #{ids\ 4022}#)))) - #{tmp\ 4012}#) - ((lambda (#{tmp\ 4025}#) - (if (if #{tmp\ 4025}# - (apply (lambda (#{x\ 4029}# - #{dots\ 4030}# - #{ys\ 4031}#) - (#{ellipsis?\ 468}# - #{dots\ 4030}#)) - #{tmp\ 4025}#) + #{p\ 16305}#)) + #{ids\ 16306}#)))) + #{tmp\ 16296}#) + ((lambda (#{tmp\ 16309}#) + (if (if #{tmp\ 16309}# + (apply (lambda (#{x\ 16313}# + #{dots\ 16314}# + #{ys\ 16315}#) + (#{ellipsis?\ 13017}# + #{dots\ 16314}#)) + #{tmp\ 16309}#) #f) - (apply (lambda (#{x\ 4035}# - #{dots\ 4036}# - #{ys\ 4037}#) + (apply (lambda (#{x\ 16319}# + #{dots\ 16320}# + #{ys\ 16321}#) (call-with-values (lambda () - (#{cvt*\ 4002}# - #{ys\ 4037}# - #{n\ 4006}# - #{ids\ 4007}#)) - (lambda (#{ys\ 4039}# - #{ids\ 4040}#) + (#{cvt*\ 16286}# + #{ys\ 16321}# + #{n\ 16290}# + #{ids\ 16291}#)) + (lambda (#{ys\ 16323}# + #{ids\ 16324}#) (call-with-values (lambda () - (#{cvt\ 4004}# - #{x\ 4035}# - (+ #{n\ 4006}# + (#{cvt\ 16288}# + #{x\ 16319}# + (+ #{n\ 16290}# 1) - #{ids\ 4040}#)) - (lambda (#{x\ 4043}# - #{ids\ 4044}#) + #{ids\ 16324}#)) + (lambda (#{x\ 16327}# + #{ids\ 16328}#) (values (list->vector (cons 'each+ - (cons #{x\ 4043}# + (cons #{x\ 16327}# (cons (reverse - #{ys\ 4039}#) + #{ys\ 16323}#) '(()))))) - #{ids\ 4044}#)))))) - #{tmp\ 4025}#) - ((lambda (#{tmp\ 4048}#) - (if #{tmp\ 4048}# - (apply (lambda (#{x\ 4051}# - #{y\ 4052}#) + #{ids\ 16328}#)))))) + #{tmp\ 16309}#) + ((lambda (#{tmp\ 16332}#) + (if #{tmp\ 16332}# + (apply (lambda (#{x\ 16335}# + #{y\ 16336}#) (call-with-values (lambda () - (#{cvt\ 4004}# - #{y\ 4052}# - #{n\ 4006}# - #{ids\ 4007}#)) - (lambda (#{y\ 4053}# - #{ids\ 4054}#) + (#{cvt\ 16288}# + #{y\ 16336}# + #{n\ 16290}# + #{ids\ 16291}#)) + (lambda (#{y\ 16337}# + #{ids\ 16338}#) (call-with-values (lambda () - (#{cvt\ 4004}# - #{x\ 4051}# - #{n\ 4006}# - #{ids\ 4054}#)) - (lambda (#{x\ 4057}# - #{ids\ 4058}#) + (#{cvt\ 16288}# + #{x\ 16335}# + #{n\ 16290}# + #{ids\ 16338}#)) + (lambda (#{x\ 16341}# + #{ids\ 16342}#) (values - (cons #{x\ 4057}# - #{y\ 4053}#) - #{ids\ 4058}#)))))) - #{tmp\ 4048}#) - ((lambda (#{tmp\ 4061}#) - (if #{tmp\ 4061}# + (cons #{x\ 16341}# + #{y\ 16337}#) + #{ids\ 16342}#)))))) + #{tmp\ 16332}#) + ((lambda (#{tmp\ 16345}#) + (if #{tmp\ 16345}# (apply (lambda () (values '() - #{ids\ 4007}#)) - #{tmp\ 4061}#) - ((lambda (#{tmp\ 4062}#) - (if #{tmp\ 4062}# - (apply (lambda (#{x\ 4064}#) + #{ids\ 16291}#)) + #{tmp\ 16345}#) + ((lambda (#{tmp\ 16346}#) + (if #{tmp\ 16346}# + (apply (lambda (#{x\ 16348}#) (call-with-values (lambda () - (#{cvt\ 4004}# - #{x\ 4064}# - #{n\ 4006}# - #{ids\ 4007}#)) - (lambda (#{p\ 4066}# - #{ids\ 4067}#) + (#{cvt\ 16288}# + #{x\ 16348}# + #{n\ 16290}# + #{ids\ 16291}#)) + (lambda (#{p\ 16350}# + #{ids\ 16351}#) (values (vector 'vector - #{p\ 4066}#) - #{ids\ 4067}#)))) - #{tmp\ 4062}#) - ((lambda (#{x\ 4071}#) + #{p\ 16350}#) + #{ids\ 16351}#)))) + #{tmp\ 16346}#) + ((lambda (#{x\ 16355}#) (values (vector 'atom - (#{strip\ 478}# - #{p\ 4005}# + (#{strip\ 13027}# + #{p\ 16289}# '(()))) - #{ids\ 4007}#)) - #{tmp\ 4011}#))) + #{ids\ 16291}#)) + #{tmp\ 16295}#))) ($sc-dispatch - #{tmp\ 4011}# + #{tmp\ 16295}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4011}# + #{tmp\ 16295}# '())))) ($sc-dispatch - #{tmp\ 4011}# + #{tmp\ 16295}# '(any . any))))) ($sc-dispatch - #{tmp\ 4011}# + #{tmp\ 16295}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 4011}# + #{tmp\ 16295}# '(any any)))) - #{p\ 4005}#)))) - (#{cvt*\ 4002}# - (lambda (#{p*\ 4073}# - #{n\ 4074}# - #{ids\ 4075}#) - (if (null? #{p*\ 4073}#) - (values (quote ()) #{ids\ 4075}#) + #{p\ 16289}#)))) + (#{cvt*\ 16286}# + (lambda (#{p*\ 16357}# + #{n\ 16358}# + #{ids\ 16359}#) + (if (null? #{p*\ 16357}#) + (values (quote ()) #{ids\ 16359}#) (call-with-values (lambda () - (#{cvt*\ 4002}# - (cdr #{p*\ 4073}#) - #{n\ 4074}# - #{ids\ 4075}#)) - (lambda (#{y\ 4079}# #{ids\ 4080}#) + (#{cvt*\ 16286}# + (cdr #{p*\ 16357}#) + #{n\ 16358}# + #{ids\ 16359}#)) + (lambda (#{y\ 16363}# #{ids\ 16364}#) (call-with-values (lambda () - (#{cvt\ 4004}# - (car #{p*\ 4073}#) - #{n\ 4074}# - #{ids\ 4080}#)) - (lambda (#{x\ 4083}# #{ids\ 4084}#) + (#{cvt\ 16288}# + (car #{p*\ 16357}#) + #{n\ 16358}# + #{ids\ 16364}#)) + (lambda (#{x\ 16367}# #{ids\ 16368}#) (values - (cons #{x\ 4083}# #{y\ 4079}#) - #{ids\ 4084}#))))))))) - (#{cvt\ 4004}# #{pattern\ 3997}# 0 (quote ())))))) - (lambda (#{e\ 4087}# - #{r\ 4088}# - #{w\ 4089}# - #{s\ 4090}# - #{mod\ 4091}#) - (let ((#{e\ 4098}# - (#{source-wrap\ 438}# - #{e\ 4087}# - #{w\ 4089}# - #{s\ 4090}# - #{mod\ 4091}#))) - ((lambda (#{tmp\ 4099}#) - ((lambda (#{tmp\ 4100}#) - (if #{tmp\ 4100}# - (apply (lambda (#{_\ 4105}# - #{val\ 4106}# - #{key\ 4107}# - #{m\ 4108}#) + (cons #{x\ 16367}# #{y\ 16363}#) + #{ids\ 16368}#))))))))) + (#{cvt\ 16288}# #{pattern\ 16281}# 0 (quote ())))))) + (lambda (#{e\ 16371}# + #{r\ 16372}# + #{w\ 16373}# + #{s\ 16374}# + #{mod\ 16375}#) + (let ((#{e\ 16382}# + (#{source-wrap\ 12987}# + #{e\ 16371}# + #{w\ 16373}# + #{s\ 16374}# + #{mod\ 16375}#))) + ((lambda (#{tmp\ 16383}#) + ((lambda (#{tmp\ 16384}#) + (if #{tmp\ 16384}# + (apply (lambda (#{_\ 16389}# + #{val\ 16390}# + #{key\ 16391}# + #{m\ 16392}#) (if (and-map - (lambda (#{x\ 4109}#) - (if (#{id?\ 367}# #{x\ 4109}#) - (not (#{ellipsis?\ 468}# #{x\ 4109}#)) + (lambda (#{x\ 16393}#) + (if (#{id?\ 12916}# #{x\ 16393}#) + (not (#{ellipsis?\ 13017}# + #{x\ 16393}#)) #f)) - #{key\ 4107}#) - (let ((#{x\ 4115}# - (#{gen-var\ 480}# (quote tmp)))) - (#{build-application\ 289}# - #{s\ 4090}# - (#{build-simple-lambda\ 309}# + #{key\ 16391}#) + (let ((#{x\ 16399}# + (#{gen-var\ 13029}# (quote tmp)))) + (#{build-application\ 12838}# + #{s\ 16374}# + (#{build-simple-lambda\ 12858}# #f (list (quote tmp)) #f - (list #{x\ 4115}#) + (list #{x\ 16399}#) '() - (#{gen-syntax-case\ 3880}# - (#{build-lexical-reference\ 295}# + (#{gen-syntax-case\ 16164}# + (#{build-lexical-reference\ 12844}# 'value #f 'tmp - #{x\ 4115}#) - #{key\ 4107}# - #{m\ 4108}# - #{r\ 4088}# - #{mod\ 4091}#)) - (list (#{chi\ 452}# - #{val\ 4106}# - #{r\ 4088}# + #{x\ 16399}#) + #{key\ 16391}# + #{m\ 16392}# + #{r\ 16372}# + #{mod\ 16375}#)) + (list (#{chi\ 13001}# + #{val\ 16390}# + #{r\ 16372}# '(()) - #{mod\ 4091}#)))) + #{mod\ 16375}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 4098}#))) - #{tmp\ 4100}#) + #{e\ 16382}#))) + #{tmp\ 16384}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4099}#))) + #{tmp\ 16383}#))) ($sc-dispatch - #{tmp\ 4099}# + #{tmp\ 16383}# '(any any each-any . each-any)))) - #{e\ 4098}#))))) + #{e\ 16382}#))))) (set! macroexpand - (lambda (#{x\ 4121}# . #{rest\ 4122}#) - (let ((#{m\ 4128}# - (if (null? #{rest\ 4122}#) + (lambda (#{x\ 16405}# . #{rest\ 16406}#) + (let ((#{m\ 16412}# + (if (null? #{rest\ 16406}#) 'e - (car #{rest\ 4122}#))) - (#{esew\ 4129}# - (if (let ((#{t\ 4133}# (null? #{rest\ 4122}#))) - (if #{t\ 4133}# - #{t\ 4133}# - (null? (cdr #{rest\ 4122}#)))) + (car #{rest\ 16406}#))) + (#{esew\ 16413}# + (if (let ((#{t\ 16417}# (null? #{rest\ 16406}#))) + (if #{t\ 16417}# + #{t\ 16417}# + (null? (cdr #{rest\ 16406}#)))) '(eval) - (cadr #{rest\ 4122}#))) - (#{mod\ 4130}# + (cadr #{rest\ 16406}#))) + (#{mod\ 16414}# (cons 'hygiene (module-name (current-module))))) (with-fluids - ((#{*mode*\ 229}# #{m\ 4128}#)) - (if (eq? #{m\ 4128}# (quote e)) + ((#{*mode*\ 12778}# #{m\ 16412}#)) + (if (eq? #{m\ 16412}# (quote e)) (memoize-expression - (#{chi-top\ 450}# - #{x\ 4121}# + (#{chi-top\ 12999}# + #{x\ 16405}# '() '((top)) - #{m\ 4128}# - #{esew\ 4129}# - #{mod\ 4130}#)) - (#{chi-top\ 450}# - #{x\ 4121}# + #{m\ 16412}# + #{esew\ 16413}# + #{mod\ 16414}#)) + (#{chi-top\ 12999}# + #{x\ 16405}# '() '((top)) - #{m\ 4128}# - #{esew\ 4129}# - #{mod\ 4130}#)))))) + #{m\ 16412}# + #{esew\ 16413}# + #{mod\ 16414}#)))))) (set! identifier? - (lambda (#{x\ 4139}#) - (#{nonsymbol-id?\ 365}# #{x\ 4139}#))) + (lambda (#{x\ 16423}#) + (#{nonsymbol-id?\ 12914}# #{x\ 16423}#))) (set! datum->syntax - (lambda (#{id\ 4141}# #{datum\ 4142}#) - (#{make-syntax-object\ 329}# - #{datum\ 4142}# - (#{syntax-object-wrap\ 335}# #{id\ 4141}#) + (lambda (#{id\ 16425}# #{datum\ 16426}#) + (#{make-syntax-object\ 12878}# + #{datum\ 16426}# + (#{syntax-object-wrap\ 12884}# #{id\ 16425}#) #f))) (set! syntax->datum - (lambda (#{x\ 4145}#) - (#{strip\ 478}# #{x\ 4145}# (quote (()))))) + (lambda (#{x\ 16429}#) + (#{strip\ 13027}# #{x\ 16429}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 4148}#) + (lambda (#{ls\ 16432}#) (begin - (let ((#{x\ 4152}# #{ls\ 4148}#)) - (if (not (list? #{x\ 4152}#)) + (let ((#{x\ 16436}# #{ls\ 16432}#)) + (if (not (list? #{x\ 16436}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 4152}#))) - (map (lambda (#{x\ 4153}#) - (#{wrap\ 436}# (gensym) (quote ((top))) #f)) - #{ls\ 4148}#)))) + #{x\ 16436}#))) + (map (lambda (#{x\ 16437}#) + (#{wrap\ 12985}# (gensym) (quote ((top))) #f)) + #{ls\ 16432}#)))) (set! free-identifier=? - (lambda (#{x\ 4157}# #{y\ 4158}#) + (lambda (#{x\ 16441}# #{y\ 16442}#) (begin - (let ((#{x\ 4163}# #{x\ 4157}#)) - (if (not (#{nonsymbol-id?\ 365}# #{x\ 4163}#)) + (let ((#{x\ 16447}# #{x\ 16441}#)) + (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16447}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4163}#))) - (let ((#{x\ 4166}# #{y\ 4158}#)) - (if (not (#{nonsymbol-id?\ 365}# #{x\ 4166}#)) + #{x\ 16447}#))) + (let ((#{x\ 16450}# #{y\ 16442}#)) + (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16450}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4166}#))) - (#{free-id=?\ 426}# #{x\ 4157}# #{y\ 4158}#)))) + #{x\ 16450}#))) + (#{free-id=?\ 12975}# #{x\ 16441}# #{y\ 16442}#)))) (set! bound-identifier=? - (lambda (#{x\ 4167}# #{y\ 4168}#) + (lambda (#{x\ 16451}# #{y\ 16452}#) (begin - (let ((#{x\ 4173}# #{x\ 4167}#)) - (if (not (#{nonsymbol-id?\ 365}# #{x\ 4173}#)) + (let ((#{x\ 16457}# #{x\ 16451}#)) + (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16457}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4173}#))) - (let ((#{x\ 4176}# #{y\ 4168}#)) - (if (not (#{nonsymbol-id?\ 365}# #{x\ 4176}#)) + #{x\ 16457}#))) + (let ((#{x\ 16460}# #{y\ 16452}#)) + (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16460}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4176}#))) - (#{bound-id=?\ 428}# #{x\ 4167}# #{y\ 4168}#)))) + #{x\ 16460}#))) + (#{bound-id=?\ 12977}# #{x\ 16451}# #{y\ 16452}#)))) (set! syntax-violation - (lambda (#{who\ 4177}# - #{message\ 4178}# - #{form\ 4179}# + (lambda (#{who\ 16461}# + #{message\ 16462}# + #{form\ 16463}# . - #{subform\ 4180}#) + #{subform\ 16464}#) (begin - (let ((#{x\ 4187}# #{who\ 4177}#)) - (if (not ((lambda (#{x\ 4188}#) - (let ((#{t\ 4192}# (not #{x\ 4188}#))) - (if #{t\ 4192}# - #{t\ 4192}# - (let ((#{t\ 4195}# (string? #{x\ 4188}#))) - (if #{t\ 4195}# - #{t\ 4195}# - (symbol? #{x\ 4188}#)))))) - #{x\ 4187}#)) + (let ((#{x\ 16471}# #{who\ 16461}#)) + (if (not ((lambda (#{x\ 16472}#) + (let ((#{t\ 16476}# (not #{x\ 16472}#))) + (if #{t\ 16476}# + #{t\ 16476}# + (let ((#{t\ 16479}# (string? #{x\ 16472}#))) + (if #{t\ 16479}# + #{t\ 16479}# + (symbol? #{x\ 16472}#)))))) + #{x\ 16471}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4187}#))) - (let ((#{x\ 4199}# #{message\ 4178}#)) - (if (not (string? #{x\ 4199}#)) + #{x\ 16471}#))) + (let ((#{x\ 16483}# #{message\ 16462}#)) + (if (not (string? #{x\ 16483}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4199}#))) + #{x\ 16483}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 4177}# "~a: " "") + (if #{who\ 16461}# "~a: " "") "~a " - (if (null? #{subform\ 4180}#) + (if (null? #{subform\ 16464}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 4201}# - (cons #{message\ 4178}# - (map (lambda (#{x\ 4202}#) - (#{strip\ 478}# #{x\ 4202}# (quote (())))) + (let ((#{tail\ 16485}# + (cons #{message\ 16462}# + (map (lambda (#{x\ 16486}#) + (#{strip\ 13027}# + #{x\ 16486}# + '(()))) (append - #{subform\ 4180}# - (list #{form\ 4179}#)))))) - (if #{who\ 4177}# - (cons #{who\ 4177}# #{tail\ 4201}#) - #{tail\ 4201}#)) + #{subform\ 16464}# + (list #{form\ 16463}#)))))) + (if #{who\ 16461}# + (cons #{who\ 16461}# #{tail\ 16485}#) + #{tail\ 16485}#)) #f)))) - (letrec ((#{match\ 4218}# - (lambda (#{e\ 4219}# - #{p\ 4220}# - #{w\ 4221}# - #{r\ 4222}# - #{mod\ 4223}#) - (if (not #{r\ 4222}#) + (letrec ((#{match\ 16502}# + (lambda (#{e\ 16503}# + #{p\ 16504}# + #{w\ 16505}# + #{r\ 16506}# + #{mod\ 16507}#) + (if (not #{r\ 16506}#) #f - (if (eq? #{p\ 4220}# (quote any)) - (cons (#{wrap\ 436}# - #{e\ 4219}# - #{w\ 4221}# - #{mod\ 4223}#) - #{r\ 4222}#) - (if (#{syntax-object?\ 331}# #{e\ 4219}#) - (#{match*\ 4216}# - (#{syntax-object-expression\ 333}# #{e\ 4219}#) - #{p\ 4220}# - (#{join-wraps\ 418}# - #{w\ 4221}# - (#{syntax-object-wrap\ 335}# #{e\ 4219}#)) - #{r\ 4222}# - (#{syntax-object-module\ 337}# #{e\ 4219}#)) - (#{match*\ 4216}# - #{e\ 4219}# - #{p\ 4220}# - #{w\ 4221}# - #{r\ 4222}# - #{mod\ 4223}#)))))) - (#{match*\ 4216}# - (lambda (#{e\ 4236}# - #{p\ 4237}# - #{w\ 4238}# - #{r\ 4239}# - #{mod\ 4240}#) - (if (null? #{p\ 4237}#) - (if (null? #{e\ 4236}#) #{r\ 4239}# #f) - (if (pair? #{p\ 4237}#) - (if (pair? #{e\ 4236}#) - (#{match\ 4218}# - (car #{e\ 4236}#) - (car #{p\ 4237}#) - #{w\ 4238}# - (#{match\ 4218}# - (cdr #{e\ 4236}#) - (cdr #{p\ 4237}#) - #{w\ 4238}# - #{r\ 4239}# - #{mod\ 4240}#) - #{mod\ 4240}#) + (if (eq? #{p\ 16504}# (quote any)) + (cons (#{wrap\ 12985}# + #{e\ 16503}# + #{w\ 16505}# + #{mod\ 16507}#) + #{r\ 16506}#) + (if (#{syntax-object?\ 12880}# #{e\ 16503}#) + (#{match*\ 16500}# + (#{syntax-object-expression\ 12882}# + #{e\ 16503}#) + #{p\ 16504}# + (#{join-wraps\ 12967}# + #{w\ 16505}# + (#{syntax-object-wrap\ 12884}# #{e\ 16503}#)) + #{r\ 16506}# + (#{syntax-object-module\ 12886}# #{e\ 16503}#)) + (#{match*\ 16500}# + #{e\ 16503}# + #{p\ 16504}# + #{w\ 16505}# + #{r\ 16506}# + #{mod\ 16507}#)))))) + (#{match*\ 16500}# + (lambda (#{e\ 16520}# + #{p\ 16521}# + #{w\ 16522}# + #{r\ 16523}# + #{mod\ 16524}#) + (if (null? #{p\ 16521}#) + (if (null? #{e\ 16520}#) #{r\ 16523}# #f) + (if (pair? #{p\ 16521}#) + (if (pair? #{e\ 16520}#) + (#{match\ 16502}# + (car #{e\ 16520}#) + (car #{p\ 16521}#) + #{w\ 16522}# + (#{match\ 16502}# + (cdr #{e\ 16520}#) + (cdr #{p\ 16521}#) + #{w\ 16522}# + #{r\ 16523}# + #{mod\ 16524}#) + #{mod\ 16524}#) #f) - (if (eq? #{p\ 4237}# (quote each-any)) - (let ((#{l\ 4257}# - (#{match-each-any\ 4210}# - #{e\ 4236}# - #{w\ 4238}# - #{mod\ 4240}#))) - (if #{l\ 4257}# - (cons #{l\ 4257}# #{r\ 4239}#) + (if (eq? #{p\ 16521}# (quote each-any)) + (let ((#{l\ 16541}# + (#{match-each-any\ 16494}# + #{e\ 16520}# + #{w\ 16522}# + #{mod\ 16524}#))) + (if #{l\ 16541}# + (cons #{l\ 16541}# #{r\ 16523}#) #f)) - (let ((#{atom-key\ 4263}# (vector-ref #{p\ 4237}# 0))) - (if (memv #{atom-key\ 4263}# (quote (each))) - (if (null? #{e\ 4236}#) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4237}# 1) - #{r\ 4239}#) - (let ((#{l\ 4266}# - (#{match-each\ 4206}# - #{e\ 4236}# - (vector-ref #{p\ 4237}# 1) - #{w\ 4238}# - #{mod\ 4240}#))) - (if #{l\ 4266}# - (letrec ((#{collect\ 4271}# - (lambda (#{l\ 4272}#) - (if (null? (car #{l\ 4272}#)) - #{r\ 4239}# - (cons (map car #{l\ 4272}#) - (#{collect\ 4271}# + (let ((#{atom-key\ 16547}# + (vector-ref #{p\ 16521}# 0))) + (if (memv #{atom-key\ 16547}# (quote (each))) + (if (null? #{e\ 16520}#) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16521}# 1) + #{r\ 16523}#) + (let ((#{l\ 16550}# + (#{match-each\ 16490}# + #{e\ 16520}# + (vector-ref #{p\ 16521}# 1) + #{w\ 16522}# + #{mod\ 16524}#))) + (if #{l\ 16550}# + (letrec ((#{collect\ 16555}# + (lambda (#{l\ 16556}#) + (if (null? (car #{l\ 16556}#)) + #{r\ 16523}# + (cons (map car #{l\ 16556}#) + (#{collect\ 16555}# (map cdr - #{l\ 4272}#))))))) - (#{collect\ 4271}# #{l\ 4266}#)) + #{l\ 16556}#))))))) + (#{collect\ 16555}# #{l\ 16550}#)) #f))) - (if (memv #{atom-key\ 4263}# (quote (each+))) + (if (memv #{atom-key\ 16547}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 4208}# - #{e\ 4236}# - (vector-ref #{p\ 4237}# 1) - (vector-ref #{p\ 4237}# 2) - (vector-ref #{p\ 4237}# 3) - #{w\ 4238}# - #{r\ 4239}# - #{mod\ 4240}#)) - (lambda (#{xr*\ 4274}# - #{y-pat\ 4275}# - #{r\ 4276}#) - (if #{r\ 4276}# - (if (null? #{y-pat\ 4275}#) - (if (null? #{xr*\ 4274}#) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4237}# 1) - #{r\ 4276}#) - (#{combine\ 4214}# - #{xr*\ 4274}# - #{r\ 4276}#)) + (#{match-each+\ 16492}# + #{e\ 16520}# + (vector-ref #{p\ 16521}# 1) + (vector-ref #{p\ 16521}# 2) + (vector-ref #{p\ 16521}# 3) + #{w\ 16522}# + #{r\ 16523}# + #{mod\ 16524}#)) + (lambda (#{xr*\ 16558}# + #{y-pat\ 16559}# + #{r\ 16560}#) + (if #{r\ 16560}# + (if (null? #{y-pat\ 16559}#) + (if (null? #{xr*\ 16558}#) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16521}# 1) + #{r\ 16560}#) + (#{combine\ 16498}# + #{xr*\ 16558}# + #{r\ 16560}#)) #f) #f))) - (if (memv #{atom-key\ 4263}# (quote (free-id))) - (if (#{id?\ 367}# #{e\ 4236}#) - (if (#{free-id=?\ 426}# - (#{wrap\ 436}# - #{e\ 4236}# - #{w\ 4238}# - #{mod\ 4240}#) - (vector-ref #{p\ 4237}# 1)) - #{r\ 4239}# + (if (memv #{atom-key\ 16547}# (quote (free-id))) + (if (#{id?\ 12916}# #{e\ 16520}#) + (if (#{free-id=?\ 12975}# + (#{wrap\ 12985}# + #{e\ 16520}# + #{w\ 16522}# + #{mod\ 16524}#) + (vector-ref #{p\ 16521}# 1)) + #{r\ 16523}# #f) #f) - (if (memv #{atom-key\ 4263}# (quote (atom))) + (if (memv #{atom-key\ 16547}# (quote (atom))) (if (equal? - (vector-ref #{p\ 4237}# 1) - (#{strip\ 478}# - #{e\ 4236}# - #{w\ 4238}#)) - #{r\ 4239}# + (vector-ref #{p\ 16521}# 1) + (#{strip\ 13027}# + #{e\ 16520}# + #{w\ 16522}#)) + #{r\ 16523}# #f) - (if (memv #{atom-key\ 4263}# + (if (memv #{atom-key\ 16547}# '(vector)) - (if (vector? #{e\ 4236}#) - (#{match\ 4218}# - (vector->list #{e\ 4236}#) - (vector-ref #{p\ 4237}# 1) - #{w\ 4238}# - #{r\ 4239}# - #{mod\ 4240}#) + (if (vector? #{e\ 16520}#) + (#{match\ 16502}# + (vector->list #{e\ 16520}#) + (vector-ref #{p\ 16521}# 1) + #{w\ 16522}# + #{r\ 16523}# + #{mod\ 16524}#) #f)))))))))))) - (#{combine\ 4214}# - (lambda (#{r*\ 4293}# #{r\ 4294}#) - (if (null? (car #{r*\ 4293}#)) - #{r\ 4294}# - (cons (map car #{r*\ 4293}#) - (#{combine\ 4214}# - (map cdr #{r*\ 4293}#) - #{r\ 4294}#))))) - (#{match-empty\ 4212}# - (lambda (#{p\ 4297}# #{r\ 4298}#) - (if (null? #{p\ 4297}#) - #{r\ 4298}# - (if (eq? #{p\ 4297}# (quote any)) - (cons (quote ()) #{r\ 4298}#) - (if (pair? #{p\ 4297}#) - (#{match-empty\ 4212}# - (car #{p\ 4297}#) - (#{match-empty\ 4212}# - (cdr #{p\ 4297}#) - #{r\ 4298}#)) - (if (eq? #{p\ 4297}# (quote each-any)) - (cons (quote ()) #{r\ 4298}#) - (let ((#{atom-key\ 4312}# - (vector-ref #{p\ 4297}# 0))) - (if (memv #{atom-key\ 4312}# (quote (each))) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4297}# 1) - #{r\ 4298}#) - (if (memv #{atom-key\ 4312}# (quote (each+))) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4297}# 1) - (#{match-empty\ 4212}# - (reverse (vector-ref #{p\ 4297}# 2)) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4297}# 3) - #{r\ 4298}#))) - (if (memv #{atom-key\ 4312}# + (#{combine\ 16498}# + (lambda (#{r*\ 16577}# #{r\ 16578}#) + (if (null? (car #{r*\ 16577}#)) + #{r\ 16578}# + (cons (map car #{r*\ 16577}#) + (#{combine\ 16498}# + (map cdr #{r*\ 16577}#) + #{r\ 16578}#))))) + (#{match-empty\ 16496}# + (lambda (#{p\ 16581}# #{r\ 16582}#) + (if (null? #{p\ 16581}#) + #{r\ 16582}# + (if (eq? #{p\ 16581}# (quote any)) + (cons (quote ()) #{r\ 16582}#) + (if (pair? #{p\ 16581}#) + (#{match-empty\ 16496}# + (car #{p\ 16581}#) + (#{match-empty\ 16496}# + (cdr #{p\ 16581}#) + #{r\ 16582}#)) + (if (eq? #{p\ 16581}# (quote each-any)) + (cons (quote ()) #{r\ 16582}#) + (let ((#{atom-key\ 16596}# + (vector-ref #{p\ 16581}# 0))) + (if (memv #{atom-key\ 16596}# (quote (each))) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16581}# 1) + #{r\ 16582}#) + (if (memv #{atom-key\ 16596}# (quote (each+))) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16581}# 1) + (#{match-empty\ 16496}# + (reverse (vector-ref #{p\ 16581}# 2)) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16581}# 3) + #{r\ 16582}#))) + (if (memv #{atom-key\ 16596}# '(free-id atom)) - #{r\ 4298}# - (if (memv #{atom-key\ 4312}# + #{r\ 16582}# + (if (memv #{atom-key\ 16596}# '(vector)) - (#{match-empty\ 4212}# - (vector-ref #{p\ 4297}# 1) - #{r\ 4298}#)))))))))))) - (#{match-each-any\ 4210}# - (lambda (#{e\ 4317}# #{w\ 4318}# #{mod\ 4319}#) - (if (pair? #{e\ 4317}#) - (let ((#{l\ 4326}# - (#{match-each-any\ 4210}# - (cdr #{e\ 4317}#) - #{w\ 4318}# - #{mod\ 4319}#))) - (if #{l\ 4326}# - (cons (#{wrap\ 436}# - (car #{e\ 4317}#) - #{w\ 4318}# - #{mod\ 4319}#) - #{l\ 4326}#) + (#{match-empty\ 16496}# + (vector-ref #{p\ 16581}# 1) + #{r\ 16582}#)))))))))))) + (#{match-each-any\ 16494}# + (lambda (#{e\ 16601}# #{w\ 16602}# #{mod\ 16603}#) + (if (pair? #{e\ 16601}#) + (let ((#{l\ 16610}# + (#{match-each-any\ 16494}# + (cdr #{e\ 16601}#) + #{w\ 16602}# + #{mod\ 16603}#))) + (if #{l\ 16610}# + (cons (#{wrap\ 12985}# + (car #{e\ 16601}#) + #{w\ 16602}# + #{mod\ 16603}#) + #{l\ 16610}#) #f)) - (if (null? #{e\ 4317}#) + (if (null? #{e\ 16601}#) '() - (if (#{syntax-object?\ 331}# #{e\ 4317}#) - (#{match-each-any\ 4210}# - (#{syntax-object-expression\ 333}# #{e\ 4317}#) - (#{join-wraps\ 418}# - #{w\ 4318}# - (#{syntax-object-wrap\ 335}# #{e\ 4317}#)) - #{mod\ 4319}#) + (if (#{syntax-object?\ 12880}# #{e\ 16601}#) + (#{match-each-any\ 16494}# + (#{syntax-object-expression\ 12882}# + #{e\ 16601}#) + (#{join-wraps\ 12967}# + #{w\ 16602}# + (#{syntax-object-wrap\ 12884}# #{e\ 16601}#)) + #{mod\ 16603}#) #f))))) - (#{match-each+\ 4208}# - (lambda (#{e\ 4334}# - #{x-pat\ 4335}# - #{y-pat\ 4336}# - #{z-pat\ 4337}# - #{w\ 4338}# - #{r\ 4339}# - #{mod\ 4340}#) - (letrec ((#{f\ 4351}# - (lambda (#{e\ 4352}# #{w\ 4353}#) - (if (pair? #{e\ 4352}#) + (#{match-each+\ 16492}# + (lambda (#{e\ 16618}# + #{x-pat\ 16619}# + #{y-pat\ 16620}# + #{z-pat\ 16621}# + #{w\ 16622}# + #{r\ 16623}# + #{mod\ 16624}#) + (letrec ((#{f\ 16635}# + (lambda (#{e\ 16636}# #{w\ 16637}#) + (if (pair? #{e\ 16636}#) (call-with-values (lambda () - (#{f\ 4351}# - (cdr #{e\ 4352}#) - #{w\ 4353}#)) - (lambda (#{xr*\ 4356}# - #{y-pat\ 4357}# - #{r\ 4358}#) - (if #{r\ 4358}# - (if (null? #{y-pat\ 4357}#) - (let ((#{xr\ 4363}# - (#{match\ 4218}# - (car #{e\ 4352}#) - #{x-pat\ 4335}# - #{w\ 4353}# + (#{f\ 16635}# + (cdr #{e\ 16636}#) + #{w\ 16637}#)) + (lambda (#{xr*\ 16640}# + #{y-pat\ 16641}# + #{r\ 16642}#) + (if #{r\ 16642}# + (if (null? #{y-pat\ 16641}#) + (let ((#{xr\ 16647}# + (#{match\ 16502}# + (car #{e\ 16636}#) + #{x-pat\ 16619}# + #{w\ 16637}# '() - #{mod\ 4340}#))) - (if #{xr\ 4363}# + #{mod\ 16624}#))) + (if #{xr\ 16647}# (values - (cons #{xr\ 4363}# - #{xr*\ 4356}#) - #{y-pat\ 4357}# - #{r\ 4358}#) + (cons #{xr\ 16647}# + #{xr*\ 16640}#) + #{y-pat\ 16641}# + #{r\ 16642}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 4357}#) - (#{match\ 4218}# - (car #{e\ 4352}#) - (car #{y-pat\ 4357}#) - #{w\ 4353}# - #{r\ 4358}# - #{mod\ 4340}#))) + (cdr #{y-pat\ 16641}#) + (#{match\ 16502}# + (car #{e\ 16636}#) + (car #{y-pat\ 16641}#) + #{w\ 16637}# + #{r\ 16642}# + #{mod\ 16624}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 331}# #{e\ 4352}#) - (#{f\ 4351}# - (#{syntax-object-expression\ 333}# - #{e\ 4352}#) - (#{join-wraps\ 418}# - #{w\ 4353}# - #{e\ 4352}#)) + (if (#{syntax-object?\ 12880}# #{e\ 16636}#) + (#{f\ 16635}# + (#{syntax-object-expression\ 12882}# + #{e\ 16636}#) + (#{join-wraps\ 12967}# + #{w\ 16637}# + #{e\ 16636}#)) (values '() - #{y-pat\ 4336}# - (#{match\ 4218}# - #{e\ 4352}# - #{z-pat\ 4337}# - #{w\ 4353}# - #{r\ 4339}# - #{mod\ 4340}#))))))) - (#{f\ 4351}# #{e\ 4334}# #{w\ 4338}#)))) - (#{match-each\ 4206}# - (lambda (#{e\ 4367}# - #{p\ 4368}# - #{w\ 4369}# - #{mod\ 4370}#) - (if (pair? #{e\ 4367}#) - (let ((#{first\ 4378}# - (#{match\ 4218}# - (car #{e\ 4367}#) - #{p\ 4368}# - #{w\ 4369}# + #{y-pat\ 16620}# + (#{match\ 16502}# + #{e\ 16636}# + #{z-pat\ 16621}# + #{w\ 16637}# + #{r\ 16623}# + #{mod\ 16624}#))))))) + (#{f\ 16635}# #{e\ 16618}# #{w\ 16622}#)))) + (#{match-each\ 16490}# + (lambda (#{e\ 16651}# + #{p\ 16652}# + #{w\ 16653}# + #{mod\ 16654}#) + (if (pair? #{e\ 16651}#) + (let ((#{first\ 16662}# + (#{match\ 16502}# + (car #{e\ 16651}#) + #{p\ 16652}# + #{w\ 16653}# '() - #{mod\ 4370}#))) - (if #{first\ 4378}# - (let ((#{rest\ 4382}# - (#{match-each\ 4206}# - (cdr #{e\ 4367}#) - #{p\ 4368}# - #{w\ 4369}# - #{mod\ 4370}#))) - (if #{rest\ 4382}# - (cons #{first\ 4378}# #{rest\ 4382}#) + #{mod\ 16654}#))) + (if #{first\ 16662}# + (let ((#{rest\ 16666}# + (#{match-each\ 16490}# + (cdr #{e\ 16651}#) + #{p\ 16652}# + #{w\ 16653}# + #{mod\ 16654}#))) + (if #{rest\ 16666}# + (cons #{first\ 16662}# #{rest\ 16666}#) #f)) #f)) - (if (null? #{e\ 4367}#) + (if (null? #{e\ 16651}#) '() - (if (#{syntax-object?\ 331}# #{e\ 4367}#) - (#{match-each\ 4206}# - (#{syntax-object-expression\ 333}# #{e\ 4367}#) - #{p\ 4368}# - (#{join-wraps\ 418}# - #{w\ 4369}# - (#{syntax-object-wrap\ 335}# #{e\ 4367}#)) - (#{syntax-object-module\ 337}# #{e\ 4367}#)) + (if (#{syntax-object?\ 12880}# #{e\ 16651}#) + (#{match-each\ 16490}# + (#{syntax-object-expression\ 12882}# + #{e\ 16651}#) + #{p\ 16652}# + (#{join-wraps\ 12967}# + #{w\ 16653}# + (#{syntax-object-wrap\ 12884}# #{e\ 16651}#)) + (#{syntax-object-module\ 12886}# #{e\ 16651}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 4390}# #{p\ 4391}#) - (if (eq? #{p\ 4391}# (quote any)) - (list #{e\ 4390}#) - (if (#{syntax-object?\ 331}# #{e\ 4390}#) - (#{match*\ 4216}# - (#{syntax-object-expression\ 333}# #{e\ 4390}#) - #{p\ 4391}# - (#{syntax-object-wrap\ 335}# #{e\ 4390}#) + (lambda (#{e\ 16674}# #{p\ 16675}#) + (if (eq? #{p\ 16675}# (quote any)) + (list #{e\ 16674}#) + (if (#{syntax-object?\ 12880}# #{e\ 16674}#) + (#{match*\ 16500}# + (#{syntax-object-expression\ 12882}# + #{e\ 16674}#) + #{p\ 16675}# + (#{syntax-object-wrap\ 12884}# #{e\ 16674}#) '() - (#{syntax-object-module\ 337}# #{e\ 4390}#)) - (#{match*\ 4216}# - #{e\ 4390}# - #{p\ 4391}# + (#{syntax-object-module\ 12886}# #{e\ 16674}#)) + (#{match*\ 16500}# + #{e\ 16674}# + #{p\ 16675}# '(()) '() #f))))))))) @@ -13162,50 +13082,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 4400}#) - ((lambda (#{tmp\ 4402}#) - ((lambda (#{tmp\ 4403}#) - (if #{tmp\ 4403}# - (apply (lambda (#{_\ 4407}# #{e1\ 4408}# #{e2\ 4409}#) + (cons (lambda (#{x\ 16684}#) + ((lambda (#{tmp\ 16686}#) + ((lambda (#{tmp\ 16687}#) + (if #{tmp\ 16687}# + (apply (lambda (#{_\ 16691}# #{e1\ 16692}# #{e2\ 16693}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i4404" "i4405" "i4406")) + #("i16688" "i16689" "i16690")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4401"))) + #(ribcage #(x) #((top)) #("i16685"))) (hygiene guile)) - (cons #{e1\ 4408}# #{e2\ 4409}#))) - #{tmp\ 4403}#) - ((lambda (#{tmp\ 4411}#) - (if #{tmp\ 4411}# - (apply (lambda (#{_\ 4417}# - #{out\ 4418}# - #{in\ 4419}# - #{e1\ 4420}# - #{e2\ 4421}#) + (cons #{e1\ 16692}# #{e2\ 16693}#))) + #{tmp\ 16687}#) + ((lambda (#{tmp\ 16695}#) + (if #{tmp\ 16695}# + (apply (lambda (#{_\ 16701}# + #{out\ 16702}# + #{in\ 16703}# + #{e1\ 16704}# + #{e2\ 16705}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i4412" - "i4413" - "i4414" - "i4415" - "i4416")) + #("i16696" + "i16697" + "i16698" + "i16699" + "i16700")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4401"))) + #("i16685"))) (hygiene guile)) - #{in\ 4419}# + #{in\ 16703}# '() - (list #{out\ 4418}# + (list #{out\ 16702}# (cons '#(syntax-object begin ((top) @@ -13216,27 +13136,27 @@ (top) (top) (top)) - #("i4412" - "i4413" - "i4414" - "i4415" - "i4416")) + #("i16696" + "i16697" + "i16698" + "i16699" + "i16700")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4401"))) + #("i16685"))) (hygiene guile)) - (cons #{e1\ 4420}# - #{e2\ 4421}#))))) - #{tmp\ 4411}#) - ((lambda (#{tmp\ 4423}#) - (if #{tmp\ 4423}# - (apply (lambda (#{_\ 4429}# - #{out\ 4430}# - #{in\ 4431}# - #{e1\ 4432}# - #{e2\ 4433}#) + (cons #{e1\ 16704}# + #{e2\ 16705}#))))) + #{tmp\ 16695}#) + ((lambda (#{tmp\ 16707}#) + (if #{tmp\ 16707}# + (apply (lambda (#{_\ 16713}# + #{out\ 16714}# + #{in\ 16715}# + #{e1\ 16716}# + #{e2\ 16717}#) (list '#(syntax-object syntax-case ((top) @@ -13247,16 +13167,16 @@ (top) (top) (top)) - #("i4424" - "i4425" - "i4426" - "i4427" - "i4428")) + #("i16708" + "i16709" + "i16710" + "i16711" + "i16712")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4401"))) + #("i16685"))) (hygiene guile)) (cons '#(syntax-object list @@ -13268,20 +13188,20 @@ (top) (top) (top)) - #("i4424" - "i4425" - "i4426" - "i4427" - "i4428")) + #("i16708" + "i16709" + "i16710" + "i16711" + "i16712")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4401"))) + #("i16685"))) (hygiene guile)) - #{in\ 4431}#) + #{in\ 16715}#) '() - (list #{out\ 4430}# + (list #{out\ 16714}# (cons '#(syntax-object begin ((top) @@ -13296,11 +13216,11 @@ (top) (top) (top)) - #("i4424" - "i4425" - "i4426" - "i4427" - "i4428")) + #("i16708" + "i16709" + "i16710" + "i16711" + "i16712")) #(ribcage () () @@ -13308,53 +13228,53 @@ #(ribcage #(x) #((top)) - #("i4401"))) + #("i16685"))) (hygiene guile)) - (cons #{e1\ 4432}# - #{e2\ 4433}#))))) - #{tmp\ 4423}#) + (cons #{e1\ 16716}# + #{e2\ 16717}#))))) + #{tmp\ 16707}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4402}#))) + #{tmp\ 16686}#))) ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 16686}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 16686}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 16686}# '(any () any . each-any)))) - #{x\ 4400}#)) + #{x\ 16684}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 4455}#) - ((lambda (#{tmp\ 4457}#) - ((lambda (#{tmp\ 4458}#) - (if #{tmp\ 4458}# - (apply (lambda (#{_\ 4464}# - #{k\ 4465}# - #{keyword\ 4466}# - #{pattern\ 4467}# - #{template\ 4468}#) + (cons (lambda (#{x\ 16721}#) + ((lambda (#{tmp\ 16723}#) + ((lambda (#{tmp\ 16724}#) + (if #{tmp\ 16724}# + (apply (lambda (#{_\ 16730}# + #{k\ 16731}# + #{keyword\ 16732}# + #{pattern\ 16733}# + #{template\ 16734}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4456"))) + #(ribcage #(x) #((top)) #("i16722"))) (hygiene guile)) '(#(syntax-object x @@ -13362,13 +13282,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4456"))) + #(ribcage #(x) #((top)) #("i16722"))) (hygiene guile))) (vector '(#(syntax-object @@ -13377,13 +13297,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4456"))) + #(ribcage #(x) #((top)) #("i16722"))) (hygiene guile)) . #(syntax-object @@ -13392,13 +13312,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4456"))) + #(ribcage #(x) #((top)) #("i16722"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -13414,34 +13334,34 @@ (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4456"))) + #("i16722"))) (hygiene guile)) - #{pattern\ 4467}#)) + #{pattern\ 16733}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4456"))) + #("i16722"))) (hygiene guile)) (cons '#(syntax-object x @@ -13457,20 +13377,20 @@ (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4456"))) + #("i16722"))) (hygiene guile)) - (cons #{k\ 4465}# - (map (lambda (#{tmp\ 4472}# - #{tmp\ 4471}#) + (cons #{k\ 16731}# + (map (lambda (#{tmp\ 16738}# + #{tmp\ 16737}#) (list (cons '#(syntax-object dummy ((top) @@ -13485,11 +13405,11 @@ (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () @@ -13497,10 +13417,10 @@ #(ribcage #(x) #((top)) - #("i4456"))) + #("i16722"))) (hygiene guile)) - #{tmp\ 4471}#) + #{tmp\ 16737}#) (list '#(syntax-object syntax ((top) @@ -13515,11 +13435,11 @@ (top) (top) (top)) - #("i4459" - "i4460" - "i4461" - "i4462" - "i4463")) + #("i16725" + "i16726" + "i16727" + "i16728" + "i16729")) #(ribcage () () @@ -13527,47 +13447,47 @@ #(ribcage #(x) #((top)) - #("i4456"))) + #("i16722"))) (hygiene guile)) - #{tmp\ 4472}#))) - #{template\ 4468}# - #{pattern\ 4467}#)))))) - #{tmp\ 4458}#) + #{tmp\ 16738}#))) + #{template\ 16734}# + #{pattern\ 16733}#)))))) + #{tmp\ 16724}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4457}#))) + #{tmp\ 16723}#))) ($sc-dispatch - #{tmp\ 4457}# + #{tmp\ 16723}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 4455}#)) + #{x\ 16721}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 4483}#) - ((lambda (#{tmp\ 4485}#) - ((lambda (#{tmp\ 4486}#) - (if (if #{tmp\ 4486}# - (apply (lambda (#{let*\ 4492}# - #{x\ 4493}# - #{v\ 4494}# - #{e1\ 4495}# - #{e2\ 4496}#) - (and-map identifier? #{x\ 4493}#)) - #{tmp\ 4486}#) + (cons (lambda (#{x\ 16739}#) + ((lambda (#{tmp\ 16741}#) + ((lambda (#{tmp\ 16742}#) + (if (if #{tmp\ 16742}# + (apply (lambda (#{let*\ 16748}# + #{x\ 16749}# + #{v\ 16750}# + #{e1\ 16751}# + #{e2\ 16752}#) + (and-map identifier? #{x\ 16749}#)) + #{tmp\ 16742}#) #f) - (apply (lambda (#{let*\ 4503}# - #{x\ 4504}# - #{v\ 4505}# - #{e1\ 4506}# - #{e2\ 4507}#) - (letrec ((#{f\ 4510}# - (lambda (#{bindings\ 4511}#) - (if (null? #{bindings\ 4511}#) + (apply (lambda (#{let*\ 16759}# + #{x\ 16760}# + #{v\ 16761}# + #{e1\ 16762}# + #{e2\ 16763}#) + (letrec ((#{f\ 16766}# + (lambda (#{bindings\ 16767}#) + (if (null? #{bindings\ 16767}#) (cons '#(syntax-object let ((top) @@ -13575,7 +13495,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4508" "i4509")) + #("i16764" "i16765")) #(ribcage #(let* x v e1 e2) #((top) @@ -13583,25 +13503,25 @@ (top) (top) (top)) - #("i4498" - "i4499" - "i4500" - "i4501" - "i4502")) + #("i16754" + "i16755" + "i16756" + "i16757" + "i16758")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4484"))) + #("i16740"))) (hygiene guile)) (cons '() - (cons #{e1\ 4506}# - #{e2\ 4507}#))) - ((lambda (#{tmp\ 4516}#) - ((lambda (#{tmp\ 4517}#) - (if #{tmp\ 4517}# - (apply (lambda (#{body\ 4520}# - #{binding\ 4521}#) + (cons #{e1\ 16762}# + #{e2\ 16763}#))) + ((lambda (#{tmp\ 16772}#) + ((lambda (#{tmp\ 16773}#) + (if #{tmp\ 16773}# + (apply (lambda (#{body\ 16776}# + #{binding\ 16777}#) (list '#(syntax-object let ((top) @@ -13610,8 +13530,8 @@ binding) #((top) (top)) - #("i4518" - "i4519")) + #("i16774" + "i16775")) #(ribcage () () @@ -13621,8 +13541,8 @@ bindings) #((top) (top)) - #("i4508" - "i4509")) + #("i16764" + "i16765")) #(ribcage #(let* x @@ -13634,11 +13554,11 @@ (top) (top) (top)) - #("i4498" - "i4499" - "i4500" - "i4501" - "i4502")) + #("i16754" + "i16755" + "i16756" + "i16757" + "i16758")) #(ribcage () () @@ -13646,57 +13566,57 @@ #(ribcage #(x) #((top)) - #("i4484"))) + #("i16740"))) (hygiene guile)) - (list #{binding\ 4521}#) - #{body\ 4520}#)) - #{tmp\ 4517}#) + (list #{binding\ 16777}#) + #{body\ 16776}#)) + #{tmp\ 16773}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4516}#))) + #{tmp\ 16772}#))) ($sc-dispatch - #{tmp\ 4516}# + #{tmp\ 16772}# '(any any)))) - (list (#{f\ 4510}# - (cdr #{bindings\ 4511}#)) - (car #{bindings\ 4511}#))))))) - (#{f\ 4510}# - (map list #{x\ 4504}# #{v\ 4505}#)))) - #{tmp\ 4486}#) + (list (#{f\ 16766}# + (cdr #{bindings\ 16767}#)) + (car #{bindings\ 16767}#))))))) + (#{f\ 16766}# + (map list #{x\ 16760}# #{v\ 16761}#)))) + #{tmp\ 16742}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4485}#))) + #{tmp\ 16741}#))) ($sc-dispatch - #{tmp\ 4485}# + #{tmp\ 16741}# '(any #(each (any any)) any . each-any)))) - #{x\ 4483}#)) + #{x\ 16739}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4541}#) - ((lambda (#{tmp\ 4543}#) - ((lambda (#{tmp\ 4544}#) - (if #{tmp\ 4544}# - (apply (lambda (#{_\ 4552}# - #{var\ 4553}# - #{init\ 4554}# - #{step\ 4555}# - #{e0\ 4556}# - #{e1\ 4557}# - #{c\ 4558}#) - ((lambda (#{tmp\ 4560}#) - ((lambda (#{tmp\ 4561}#) - (if #{tmp\ 4561}# - (apply (lambda (#{step\ 4563}#) - ((lambda (#{tmp\ 4564}#) - ((lambda (#{tmp\ 4565}#) - (if #{tmp\ 4565}# + (cons (lambda (#{orig-x\ 16778}#) + ((lambda (#{tmp\ 16780}#) + ((lambda (#{tmp\ 16781}#) + (if #{tmp\ 16781}# + (apply (lambda (#{_\ 16789}# + #{var\ 16790}# + #{init\ 16791}# + #{step\ 16792}# + #{e0\ 16793}# + #{e1\ 16794}# + #{c\ 16795}#) + ((lambda (#{tmp\ 16797}#) + ((lambda (#{tmp\ 16798}#) + (if #{tmp\ 16798}# + (apply (lambda (#{step\ 16800}#) + ((lambda (#{tmp\ 16801}#) + ((lambda (#{tmp\ 16802}#) + (if #{tmp\ 16802}# (apply (lambda () (list '#(syntax-object let @@ -13704,7 +13624,7 @@ #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13720,13 +13640,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13734,7 +13654,7 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) '#(syntax-object @@ -13743,7 +13663,7 @@ #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13759,13 +13679,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13773,19 +13693,19 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) (map list - #{var\ 4553}# - #{init\ 4554}#) + #{var\ 16790}# + #{init\ 16791}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13801,13 +13721,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13815,7 +13735,7 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) (list '#(syntax-object @@ -13824,7 +13744,7 @@ #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13840,13 +13760,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13854,17 +13774,17 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) - #{e0\ 4556}#) + #{e0\ 16793}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13880,13 +13800,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13894,18 +13814,18 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) (append - #{c\ 4558}# + #{c\ 16795}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13921,13 +13841,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13935,15 +13855,15 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) - #{step\ 4563}#))))))) - #{tmp\ 4565}#) - ((lambda (#{tmp\ 4570}#) - (if #{tmp\ 4570}# - (apply (lambda (#{e1\ 4573}# - #{e2\ 4574}#) + #{step\ 16800}#))))))) + #{tmp\ 16802}#) + ((lambda (#{tmp\ 16807}#) + (if #{tmp\ 16807}# + (apply (lambda (#{e1\ 16810}# + #{e2\ 16811}#) (list '#(syntax-object let ((top) @@ -13952,12 +13872,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -13973,13 +13893,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -13987,7 +13907,7 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) '#(syntax-object @@ -13998,12 +13918,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -14019,13 +13939,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -14033,12 +13953,12 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) (map list - #{var\ 4553}# - #{init\ 4554}#) + #{var\ 16790}# + #{init\ 16791}#) (list '#(syntax-object if ((top) @@ -14047,12 +13967,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -14068,13 +13988,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -14082,10 +14002,10 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) - #{e0\ 4556}# + #{e0\ 16793}# (cons '#(syntax-object begin ((top) @@ -14094,12 +14014,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -14115,13 +14035,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -14129,11 +14049,11 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) - (cons #{e1\ 4573}# - #{e2\ 4574}#)) + (cons #{e1\ 16810}# + #{e2\ 16811}#)) (cons '#(syntax-object begin ((top) @@ -14142,12 +14062,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -14163,13 +14083,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -14177,11 +14097,11 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) (append - #{c\ 4558}# + #{c\ 16795}# (list (cons '#(syntax-object doloop ((top) @@ -14190,12 +14110,12 @@ e2) #((top) (top)) - #("i4571" - "i4572")) + #("i16808" + "i16809")) #(ribcage #(step) #((top)) - #("i4562")) + #("i16799")) #(ribcage #(_ var @@ -14211,13 +14131,13 @@ (top) (top) (top)) - #("i4545" - "i4546" - "i4547" - "i4548" - "i4549" - "i4550" - "i4551")) + #("i16782" + "i16783" + "i16784" + "i16785" + "i16786" + "i16787" + "i16788")) #(ribcage () () @@ -14225,107 +14145,107 @@ #(ribcage #(orig-x) #((top)) - #("i4542"))) + #("i16779"))) (hygiene guile)) - #{step\ 4563}#))))))) - #{tmp\ 4570}#) + #{step\ 16800}#))))))) + #{tmp\ 16807}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4564}#))) + #{tmp\ 16801}#))) ($sc-dispatch - #{tmp\ 4564}# + #{tmp\ 16801}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4564}# + #{tmp\ 16801}# '()))) - #{e1\ 4557}#)) - #{tmp\ 4561}#) + #{e1\ 16794}#)) + #{tmp\ 16798}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4560}#))) + #{tmp\ 16797}#))) ($sc-dispatch - #{tmp\ 4560}# + #{tmp\ 16797}# 'each-any))) - (map (lambda (#{v\ 4581}# #{s\ 4582}#) - ((lambda (#{tmp\ 4585}#) - ((lambda (#{tmp\ 4586}#) - (if #{tmp\ 4586}# - (apply (lambda () #{v\ 4581}#) - #{tmp\ 4586}#) - ((lambda (#{tmp\ 4587}#) - (if #{tmp\ 4587}# - (apply (lambda (#{e\ 4589}#) - #{e\ 4589}#) - #{tmp\ 4587}#) - ((lambda (#{_\ 4591}#) + (map (lambda (#{v\ 16818}# #{s\ 16819}#) + ((lambda (#{tmp\ 16822}#) + ((lambda (#{tmp\ 16823}#) + (if #{tmp\ 16823}# + (apply (lambda () #{v\ 16818}#) + #{tmp\ 16823}#) + ((lambda (#{tmp\ 16824}#) + (if #{tmp\ 16824}# + (apply (lambda (#{e\ 16826}#) + #{e\ 16826}#) + #{tmp\ 16824}#) + ((lambda (#{_\ 16828}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4541}# - #{s\ 4582}#)) - #{tmp\ 4585}#))) + #{orig-x\ 16778}# + #{s\ 16819}#)) + #{tmp\ 16822}#))) ($sc-dispatch - #{tmp\ 4585}# + #{tmp\ 16822}# '(any))))) ($sc-dispatch - #{tmp\ 4585}# + #{tmp\ 16822}# '()))) - #{s\ 4582}#)) - #{var\ 4553}# - #{step\ 4555}#))) - #{tmp\ 4544}#) + #{s\ 16819}#)) + #{var\ 16790}# + #{step\ 16792}#))) + #{tmp\ 16781}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4543}#))) + #{tmp\ 16780}#))) ($sc-dispatch - #{tmp\ 4543}# + #{tmp\ 16780}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4541}#)) + #{orig-x\ 16778}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4623}# - (lambda (#{x\ 4627}# #{y\ 4628}#) - ((lambda (#{tmp\ 4632}#) - ((lambda (#{tmp\ 4633}#) - (if #{tmp\ 4633}# - (apply (lambda (#{x\ 4636}# #{y\ 4637}#) - ((lambda (#{tmp\ 4638}#) - ((lambda (#{tmp\ 4639}#) - (if #{tmp\ 4639}# - (apply (lambda (#{dy\ 4641}#) - ((lambda (#{tmp\ 4642}#) - ((lambda (#{tmp\ 4643}#) - (if #{tmp\ 4643}# - (apply (lambda (#{dx\ 4645}#) + (cons (letrec ((#{quasicons\ 16835}# + (lambda (#{x\ 16839}# #{y\ 16840}#) + ((lambda (#{tmp\ 16844}#) + ((lambda (#{tmp\ 16845}#) + (if #{tmp\ 16845}# + (apply (lambda (#{x\ 16848}# #{y\ 16849}#) + ((lambda (#{tmp\ 16850}#) + ((lambda (#{tmp\ 16851}#) + (if #{tmp\ 16851}# + (apply (lambda (#{dy\ 16853}#) + ((lambda (#{tmp\ 16854}#) + ((lambda (#{tmp\ 16855}#) + (if #{tmp\ 16855}# + (apply (lambda (#{dx\ 16857}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4644")) + #("i16856")) #(ribcage #(dy) #((top)) - #("i4640")) + #("i16852")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14339,8 +14259,8 @@ y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14350,35 +14270,35 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - (cons #{dx\ 4645}# - #{dy\ 4641}#))) - #{tmp\ 4643}#) - ((lambda (#{_\ 4647}#) - (if (null? #{dy\ 4641}#) + (cons #{dx\ 16857}# + #{dy\ 16853}#))) + #{tmp\ 16855}#) + ((lambda (#{_\ 16859}#) + (if (null? #{dy\ 16853}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4646")) + #("i16858")) #(ribcage #(dy) #((top)) - #("i4640")) + #("i16852")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14392,8 +14312,8 @@ y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14403,31 +14323,31 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4636}#) + #{x\ 16848}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4646")) + #("i16858")) #(ribcage #(dy) #((top)) - #("i4640")) + #("i16852")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14441,8 +14361,8 @@ y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14452,17 +14372,17 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4636}# - #{y\ 4637}#))) - #{tmp\ 4642}#))) + #{x\ 16848}# + #{y\ 16849}#))) + #{tmp\ 16854}#))) ($sc-dispatch - #{tmp\ 4642}# + #{tmp\ 16854}# '(#(free-id #(syntax-object quote @@ -14470,13 +14390,13 @@ #(ribcage #(dy) #((top)) - #("i4640")) + #("i16852")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14489,8 +14409,8 @@ #(x y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14500,32 +14420,32 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) any)))) - #{x\ 4636}#)) - #{tmp\ 4639}#) - ((lambda (#{tmp\ 4648}#) - (if #{tmp\ 4648}# - (apply (lambda (#{stuff\ 4650}#) + #{x\ 16848}#)) + #{tmp\ 16851}#) + ((lambda (#{tmp\ 16860}#) + (if #{tmp\ 16860}# + (apply (lambda (#{stuff\ 16862}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4649")) + #("i16861")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14539,8 +14459,8 @@ y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14550,29 +14470,29 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - (cons #{x\ 4636}# - #{stuff\ 4650}#))) - #{tmp\ 4648}#) - ((lambda (#{else\ 4652}#) + (cons #{x\ 16848}# + #{stuff\ 16862}#))) + #{tmp\ 16860}#) + ((lambda (#{else\ 16864}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4651")) + #("i16863")) #(ribcage #(x y) #((top) (top)) - #("i4634" - "i4635")) + #("i16846" + "i16847")) #(ribcage () () @@ -14585,8 +14505,8 @@ #(x y) #((top) (top)) - #("i4629" - "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14596,17 +14516,17 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4636}# - #{y\ 4637}#)) - #{tmp\ 4638}#))) + #{x\ 16848}# + #{y\ 16849}#)) + #{tmp\ 16850}#))) ($sc-dispatch - #{tmp\ 4638}# + #{tmp\ 16850}# '(#(free-id #(syntax-object list @@ -14614,13 +14534,15 @@ #(ribcage #(x y) #((top) (top)) - #("i4634" "i4635")) + #("i16846" + "i16847")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4629" "i4630")) + #("i16841" + "i16842")) #(ribcage #(quasicons quasiappend @@ -14630,15 +14552,15 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4638}# + #{tmp\ 16850}# '(#(free-id #(syntax-object quote @@ -14646,13 +14568,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4634" "i4635")) + #("i16846" "i16847")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4629" "i4630")) + #("i16841" "i16842")) #(ribcage #(quasicons quasiappend @@ -14662,44 +14584,44 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) any)))) - #{y\ 4637}#)) - #{tmp\ 4633}#) + #{y\ 16849}#)) + #{tmp\ 16845}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4632}#))) - ($sc-dispatch #{tmp\ 4632}# (quote (any any))))) - (list #{x\ 4627}# #{y\ 4628}#)))) - (#{quasiappend\ 4624}# - (lambda (#{x\ 4653}# #{y\ 4654}#) - ((lambda (#{tmp\ 4658}#) - ((lambda (#{tmp\ 4659}#) - (if #{tmp\ 4659}# - (apply (lambda (#{x\ 4662}# #{y\ 4663}#) - ((lambda (#{tmp\ 4664}#) - ((lambda (#{tmp\ 4665}#) - (if #{tmp\ 4665}# - (apply (lambda () #{x\ 4662}#) - #{tmp\ 4665}#) - ((lambda (#{_\ 4667}#) + #{tmp\ 16844}#))) + ($sc-dispatch #{tmp\ 16844}# (quote (any any))))) + (list #{x\ 16839}# #{y\ 16840}#)))) + (#{quasiappend\ 16836}# + (lambda (#{x\ 16865}# #{y\ 16866}#) + ((lambda (#{tmp\ 16870}#) + ((lambda (#{tmp\ 16871}#) + (if #{tmp\ 16871}# + (apply (lambda (#{x\ 16874}# #{y\ 16875}#) + ((lambda (#{tmp\ 16876}#) + ((lambda (#{tmp\ 16877}#) + (if #{tmp\ 16877}# + (apply (lambda () #{x\ 16874}#) + #{tmp\ 16877}#) + ((lambda (#{_\ 16879}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4666")) + #("i16878")) #(ribcage #(x y) #((top) (top)) - #("i4660" - "i4661")) + #("i16872" + "i16873")) #(ribcage () () @@ -14711,8 +14633,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4655" - "i4656")) + #("i16867" + "i16868")) #(ribcage #(quasicons quasiappend @@ -14722,16 +14644,16 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4662}# - #{y\ 4663}#)) - #{tmp\ 4664}#))) + #{x\ 16874}# + #{y\ 16875}#)) + #{tmp\ 16876}#))) ($sc-dispatch - #{tmp\ 4664}# + #{tmp\ 16876}# '(#(free-id #(syntax-object quote @@ -14739,13 +14661,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4660" "i4661")) + #("i16872" "i16873")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4655" "i4656")) + #("i16867" "i16868")) #(ribcage #(quasicons quasiappend @@ -14755,45 +14677,45 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) ())))) - #{y\ 4663}#)) - #{tmp\ 4659}#) + #{y\ 16875}#)) + #{tmp\ 16871}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4658}#))) - ($sc-dispatch #{tmp\ 4658}# (quote (any any))))) - (list #{x\ 4653}# #{y\ 4654}#)))) - (#{quasivector\ 4625}# - (lambda (#{x\ 4668}#) - ((lambda (#{tmp\ 4671}#) - ((lambda (#{x\ 4673}#) - ((lambda (#{tmp\ 4674}#) - ((lambda (#{tmp\ 4675}#) - (if #{tmp\ 4675}# - (apply (lambda (#{x\ 4677}#) + #{tmp\ 16870}#))) + ($sc-dispatch #{tmp\ 16870}# (quote (any any))))) + (list #{x\ 16865}# #{y\ 16866}#)))) + (#{quasivector\ 16837}# + (lambda (#{x\ 16880}#) + ((lambda (#{tmp\ 16883}#) + ((lambda (#{x\ 16885}#) + ((lambda (#{tmp\ 16886}#) + ((lambda (#{tmp\ 16887}#) + (if #{tmp\ 16887}# + (apply (lambda (#{x\ 16889}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4676")) + #("i16888")) #(ribcage #(x) #((top)) - #("i4672")) + #("i16884")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4669")) + #("i16881")) #(ribcage #(quasicons quasiappend @@ -14803,28 +14725,28 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) (list->vector - #{x\ 4677}#))) - #{tmp\ 4675}#) - ((lambda (#{tmp\ 4679}#) - (if #{tmp\ 4679}# - (apply (lambda (#{x\ 4681}#) + #{x\ 16889}#))) + #{tmp\ 16887}#) + ((lambda (#{tmp\ 16891}#) + (if #{tmp\ 16891}# + (apply (lambda (#{x\ 16893}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4680")) + #("i16892")) #(ribcage #(x) #((top)) - #("i4672")) + #("i16884")) #(ribcage () () @@ -14836,7 +14758,7 @@ #(ribcage #(x) #((top)) - #("i4669")) + #("i16881")) #(ribcage #(quasicons quasiappend @@ -14846,31 +14768,31 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4681}#)) - #{tmp\ 4679}#) - ((lambda (#{_\ 4684}#) + #{x\ 16893}#)) + #{tmp\ 16891}#) + ((lambda (#{_\ 16896}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4683")) + #("i16895")) #(ribcage #(x) #((top)) - #("i4672")) + #("i16884")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4669")) + #("i16881")) #(ribcage #(quasicons quasiappend @@ -14880,15 +14802,15 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{x\ 4673}#)) - #{tmp\ 4674}#))) + #{x\ 16885}#)) + #{tmp\ 16886}#))) ($sc-dispatch - #{tmp\ 4674}# + #{tmp\ 16886}# '(#(free-id #(syntax-object list @@ -14896,82 +14818,82 @@ #(ribcage #(x) #((top)) - #("i4672")) + #("i16884")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4669")) + #("i16881")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4674}# + #{tmp\ 16886}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4672")) + #(ribcage #(x) #((top)) #("i16884")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4669")) + #(ribcage #(x) #((top)) #("i16881")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) each-any)))) - #{x\ 4673}#)) - #{tmp\ 4671}#)) - #{x\ 4668}#))) - (#{quasi\ 4626}# - (lambda (#{p\ 4685}# #{lev\ 4686}#) - ((lambda (#{tmp\ 4689}#) - ((lambda (#{tmp\ 4690}#) - (if #{tmp\ 4690}# - (apply (lambda (#{p\ 4692}#) - (if (= #{lev\ 4686}# 0) - #{p\ 4692}# - (#{quasicons\ 4623}# + #{x\ 16885}#)) + #{tmp\ 16883}#)) + #{x\ 16880}#))) + (#{quasi\ 16838}# + (lambda (#{p\ 16897}# #{lev\ 16898}#) + ((lambda (#{tmp\ 16901}#) + ((lambda (#{tmp\ 16902}#) + (if #{tmp\ 16902}# + (apply (lambda (#{p\ 16904}#) + (if (= #{lev\ 16898}# 0) + #{p\ 16904}# + (#{quasicons\ 16835}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4691")) + #("i16903")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) #(syntax-object unquote @@ -14979,50 +14901,51 @@ #(ribcage #(p) #((top)) - #("i4691")) + #("i16903")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) - (#{quasi\ 4626}# - (list #{p\ 4692}#) - (- #{lev\ 4686}# 1))))) - #{tmp\ 4690}#) - ((lambda (#{tmp\ 4693}#) - (if (if #{tmp\ 4693}# - (apply (lambda (#{args\ 4695}#) - (= #{lev\ 4686}# 0)) - #{tmp\ 4693}#) + (#{quasi\ 16838}# + (list #{p\ 16904}#) + (- #{lev\ 16898}# 1))))) + #{tmp\ 16902}#) + ((lambda (#{tmp\ 16905}#) + (if (if #{tmp\ 16905}# + (apply (lambda (#{args\ 16907}#) + (= #{lev\ 16898}# 0)) + #{tmp\ 16905}#) #f) - (apply (lambda (#{args\ 4697}#) + (apply (lambda (#{args\ 16909}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4685}# + #{p\ 16897}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4696")) + #("i16908")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15032,33 +14955,33 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{args\ 4697}#))) - #{tmp\ 4693}#) - ((lambda (#{tmp\ 4698}#) - (if #{tmp\ 4698}# - (apply (lambda (#{p\ 4701}# - #{q\ 4702}#) - (if (= #{lev\ 4686}# 0) - (#{quasiappend\ 4624}# - #{p\ 4701}# - (#{quasi\ 4626}# - #{q\ 4702}# - #{lev\ 4686}#)) - (#{quasicons\ 4623}# - (#{quasicons\ 4623}# + #{args\ 16909}#))) + #{tmp\ 16905}#) + ((lambda (#{tmp\ 16910}#) + (if #{tmp\ 16910}# + (apply (lambda (#{p\ 16913}# + #{q\ 16914}#) + (if (= #{lev\ 16898}# 0) + (#{quasiappend\ 16836}# + #{p\ 16913}# + (#{quasi\ 16838}# + #{q\ 16914}# + #{lev\ 16898}#)) + (#{quasicons\ 16835}# + (#{quasicons\ 16835}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4699" - "i4700")) + #("i16911" + "i16912")) #(ribcage () () @@ -15066,8 +14989,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15077,10 +15000,10 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -15088,8 +15011,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4699" - "i4700")) + #("i16911" + "i16912")) #(ribcage () () @@ -15097,8 +15020,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15108,31 +15031,33 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) - (#{quasi\ 4626}# - (list #{p\ 4701}#) - (- #{lev\ 4686}# 1))) - (#{quasi\ 4626}# - #{q\ 4702}# - #{lev\ 4686}#)))) - #{tmp\ 4698}#) - ((lambda (#{tmp\ 4703}#) - (if (if #{tmp\ 4703}# - (apply (lambda (#{args\ 4706}# - #{q\ 4707}#) - (= #{lev\ 4686}# 0)) - #{tmp\ 4703}#) + (#{quasi\ 16838}# + (list #{p\ 16913}#) + (- #{lev\ 16898}# + 1))) + (#{quasi\ 16838}# + #{q\ 16914}# + #{lev\ 16898}#)))) + #{tmp\ 16910}#) + ((lambda (#{tmp\ 16915}#) + (if (if #{tmp\ 16915}# + (apply (lambda (#{args\ 16918}# + #{q\ 16919}#) + (= #{lev\ 16898}# + 0)) + #{tmp\ 16915}#) #f) - (apply (lambda (#{args\ 4710}# - #{q\ 4711}#) + (apply (lambda (#{args\ 16922}# + #{q\ 16923}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4685}# + #{p\ 16897}# (cons '#(syntax-object unquote-splicing ((top) @@ -15140,8 +15065,8 @@ #(args q) #((top) (top)) - #("i4708" - "i4709")) + #("i16920" + "i16921")) #(ribcage () () @@ -15150,8 +15075,8 @@ #(p lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15161,25 +15086,25 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{args\ 4710}#))) - #{tmp\ 4703}#) - ((lambda (#{tmp\ 4712}#) - (if #{tmp\ 4712}# - (apply (lambda (#{p\ 4714}#) - (#{quasicons\ 4623}# + #{args\ 16922}#))) + #{tmp\ 16915}#) + ((lambda (#{tmp\ 16924}#) + (if #{tmp\ 16924}# + (apply (lambda (#{p\ 16926}#) + (#{quasicons\ 16835}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4713")) + #("i16925")) #(ribcage () () @@ -15188,8 +15113,8 @@ #(p lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15199,10 +15124,10 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) #(syntax-object @@ -15211,7 +15136,7 @@ #(ribcage #(p) #((top)) - #("i4713")) + #("i16925")) #(ribcage () () @@ -15220,8 +15145,8 @@ #(p lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15231,45 +15156,45 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) - (#{quasi\ 4626}# - (list #{p\ 4714}#) - (+ #{lev\ 4686}# + (#{quasi\ 16838}# + (list #{p\ 16926}#) + (+ #{lev\ 16898}# 1)))) - #{tmp\ 4712}#) - ((lambda (#{tmp\ 4715}#) - (if #{tmp\ 4715}# - (apply (lambda (#{p\ 4718}# - #{q\ 4719}#) - (#{quasicons\ 4623}# - (#{quasi\ 4626}# - #{p\ 4718}# - #{lev\ 4686}#) - (#{quasi\ 4626}# - #{q\ 4719}# - #{lev\ 4686}#))) - #{tmp\ 4715}#) - ((lambda (#{tmp\ 4720}#) - (if #{tmp\ 4720}# - (apply (lambda (#{x\ 4722}#) - (#{quasivector\ 4625}# - (#{quasi\ 4626}# - #{x\ 4722}# - #{lev\ 4686}#))) - #{tmp\ 4720}#) - ((lambda (#{p\ 4725}#) + #{tmp\ 16924}#) + ((lambda (#{tmp\ 16927}#) + (if #{tmp\ 16927}# + (apply (lambda (#{p\ 16930}# + #{q\ 16931}#) + (#{quasicons\ 16835}# + (#{quasi\ 16838}# + #{p\ 16930}# + #{lev\ 16898}#) + (#{quasi\ 16838}# + #{q\ 16931}# + #{lev\ 16898}#))) + #{tmp\ 16927}#) + ((lambda (#{tmp\ 16932}#) + (if #{tmp\ 16932}# + (apply (lambda (#{x\ 16934}#) + (#{quasivector\ 16837}# + (#{quasi\ 16838}# + #{x\ 16934}# + #{lev\ 16898}#))) + #{tmp\ 16932}#) + ((lambda (#{p\ 16937}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4724")) + #("i16936")) #(ribcage () () @@ -15279,8 +15204,8 @@ lev) #((top) (top)) - #("i4687" - "i4688")) + #("i16899" + "i16900")) #(ribcage #(quasicons quasiappend @@ -15290,23 +15215,23 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile)) - #{p\ 4725}#)) - #{tmp\ 4689}#))) + #{p\ 16937}#)) + #{tmp\ 16901}#))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '(any . any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '(#(free-id #(syntax-object quasiquote @@ -15315,7 +15240,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend @@ -15325,14 +15250,14 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '((#(free-id #(syntax-object unquote-splicing @@ -15341,7 +15266,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend @@ -15351,17 +15276,17 @@ (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '((#(free-id #(syntax-object unquote-splicing @@ -15370,23 +15295,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" - "i4620" - "i4621" - "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '(#(free-id #(syntax-object unquote @@ -15395,19 +15320,22 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" "i4620" "i4621" "i4622"))) + #("i16831" + "i16832" + "i16833" + "i16834"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 16901}# '(#(free-id #(syntax-object unquote @@ -15416,244 +15344,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i4687" "i4688")) + #("i16899" "i16900")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4619" "i4620" "i4621" "i4622"))) + #("i16831" "i16832" "i16833" "i16834"))) (hygiene guile))) any)))) - #{p\ 4685}#)))) - (lambda (#{x\ 4726}#) - ((lambda (#{tmp\ 4728}#) - ((lambda (#{tmp\ 4729}#) - (if #{tmp\ 4729}# - (apply (lambda (#{_\ 4732}# #{e\ 4733}#) - (#{quasi\ 4626}# #{e\ 4733}# 0)) - #{tmp\ 4729}#) + #{p\ 16897}#)))) + (lambda (#{x\ 16938}#) + ((lambda (#{tmp\ 16940}#) + ((lambda (#{tmp\ 16941}#) + (if #{tmp\ 16941}# + (apply (lambda (#{_\ 16944}# #{e\ 16945}#) + (#{quasi\ 16838}# #{e\ 16945}# 0)) + #{tmp\ 16941}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4728}#))) - ($sc-dispatch #{tmp\ 4728}# (quote (any any))))) - #{x\ 4726}#))) + #{tmp\ 16940}#))) + ($sc-dispatch #{tmp\ 16940}# (quote (any any))))) + #{x\ 16938}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4801}#) - (letrec ((#{read-file\ 4804}# - (lambda (#{fn\ 4805}# #{k\ 4806}#) - (let ((#{p\ 4810}# (open-input-file #{fn\ 4805}#))) - (letrec ((#{f\ 4814}# - (lambda (#{x\ 4815}# #{result\ 4816}#) - (if (eof-object? #{x\ 4815}#) + (cons (lambda (#{x\ 16946}#) + (letrec ((#{read-file\ 16949}# + (lambda (#{fn\ 16950}# #{k\ 16951}#) + (let ((#{p\ 16955}# (open-input-file #{fn\ 16950}#))) + (letrec ((#{f\ 16959}# + (lambda (#{x\ 16960}# #{result\ 16961}#) + (if (eof-object? #{x\ 16960}#) (begin - (close-input-port #{p\ 4810}#) - (reverse #{result\ 4816}#)) - (#{f\ 4814}# - (read #{p\ 4810}#) + (close-input-port #{p\ 16955}#) + (reverse #{result\ 16961}#)) + (#{f\ 16959}# + (read #{p\ 16955}#) (cons (datum->syntax - #{k\ 4806}# - #{x\ 4815}#) - #{result\ 4816}#)))))) - (#{f\ 4814}# (read #{p\ 4810}#) (quote ()))))))) - ((lambda (#{tmp\ 4817}#) - ((lambda (#{tmp\ 4818}#) - (if #{tmp\ 4818}# - (apply (lambda (#{k\ 4821}# #{filename\ 4822}#) - (let ((#{fn\ 4824}# - (syntax->datum #{filename\ 4822}#))) - ((lambda (#{tmp\ 4826}#) - ((lambda (#{tmp\ 4827}#) - (if #{tmp\ 4827}# - (apply (lambda (#{exp\ 4829}#) + #{k\ 16951}# + #{x\ 16960}#) + #{result\ 16961}#)))))) + (#{f\ 16959}# (read #{p\ 16955}#) (quote ()))))))) + ((lambda (#{tmp\ 16962}#) + ((lambda (#{tmp\ 16963}#) + (if #{tmp\ 16963}# + (apply (lambda (#{k\ 16966}# #{filename\ 16967}#) + (let ((#{fn\ 16969}# + (syntax->datum #{filename\ 16967}#))) + ((lambda (#{tmp\ 16971}#) + ((lambda (#{tmp\ 16972}#) + (if #{tmp\ 16972}# + (apply (lambda (#{exp\ 16974}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4828")) + #("i16973")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4823")) + #("i16968")) #(ribcage #(k filename) #((top) (top)) - #("i4819" - "i4820")) + #("i16964" + "i16965")) #(ribcage (read-file) ((top)) - ("i4803")) + ("i16948")) #(ribcage #(x) #((top)) - #("i4802"))) + #("i16947"))) (hygiene guile)) - #{exp\ 4829}#)) - #{tmp\ 4827}#) + #{exp\ 16974}#)) + #{tmp\ 16972}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4826}#))) + #{tmp\ 16971}#))) ($sc-dispatch - #{tmp\ 4826}# + #{tmp\ 16971}# 'each-any))) - (#{read-file\ 4804}# - #{fn\ 4824}# - #{k\ 4821}#)))) - #{tmp\ 4818}#) + (#{read-file\ 16949}# + #{fn\ 16969}# + #{k\ 16966}#)))) + #{tmp\ 16963}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4817}#))) - ($sc-dispatch #{tmp\ 4817}# (quote (any any))))) - #{x\ 4801}#))) + #{tmp\ 16962}#))) + ($sc-dispatch #{tmp\ 16962}# (quote (any any))))) + #{x\ 16946}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4847}#) - ((lambda (#{tmp\ 4849}#) - ((lambda (#{tmp\ 4850}#) - (if #{tmp\ 4850}# - (apply (lambda (#{k\ 4853}# #{filename\ 4854}#) - (let ((#{fn\ 4856}# - (syntax->datum #{filename\ 4854}#))) - ((lambda (#{tmp\ 4858}#) - ((lambda (#{fn\ 4860}#) + (cons (lambda (#{x\ 16976}#) + ((lambda (#{tmp\ 16978}#) + ((lambda (#{tmp\ 16979}#) + (if #{tmp\ 16979}# + (apply (lambda (#{k\ 16982}# #{filename\ 16983}#) + (let ((#{fn\ 16985}# + (syntax->datum #{filename\ 16983}#))) + ((lambda (#{tmp\ 16987}#) + ((lambda (#{fn\ 16989}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4859")) + #("i16988")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4855")) + #("i16984")) #(ribcage #(k filename) #((top) (top)) - #("i4851" "i4852")) + #("i16980" "i16981")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4848"))) + #("i16977"))) (hygiene guile)) - #{fn\ 4860}#)) - #{tmp\ 4858}#)) - (let ((#{t\ 4863}# - (%search-load-path #{fn\ 4856}#))) - (if #{t\ 4863}# - #{t\ 4863}# + #{fn\ 16989}#)) + #{tmp\ 16987}#)) + (let ((#{t\ 16992}# + (%search-load-path #{fn\ 16985}#))) + (if #{t\ 16992}# + #{t\ 16992}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4847}# - #{filename\ 4854}#)))))) - #{tmp\ 4850}#) + #{x\ 16976}# + #{filename\ 16983}#)))))) + #{tmp\ 16979}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4849}#))) - ($sc-dispatch #{tmp\ 4849}# (quote (any any))))) - #{x\ 4847}#)) + #{tmp\ 16978}#))) + ($sc-dispatch #{tmp\ 16978}# (quote (any any))))) + #{x\ 16976}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4874}#) - ((lambda (#{tmp\ 4876}#) - ((lambda (#{tmp\ 4877}#) - (if #{tmp\ 4877}# - (apply (lambda (#{_\ 4880}# #{e\ 4881}#) + (cons (lambda (#{x\ 16994}#) + ((lambda (#{tmp\ 16996}#) + ((lambda (#{tmp\ 16997}#) + (if #{tmp\ 16997}# + (apply (lambda (#{_\ 17000}# #{e\ 17001}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4874}#)) - #{tmp\ 4877}#) + #{x\ 16994}#)) + #{tmp\ 16997}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4876}#))) - ($sc-dispatch #{tmp\ 4876}# (quote (any any))))) - #{x\ 4874}#)) + #{tmp\ 16996}#))) + ($sc-dispatch #{tmp\ 16996}# (quote (any any))))) + #{x\ 16994}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4887}#) - ((lambda (#{tmp\ 4889}#) - ((lambda (#{tmp\ 4890}#) - (if #{tmp\ 4890}# - (apply (lambda (#{_\ 4893}# #{e\ 4894}#) + (cons (lambda (#{x\ 17002}#) + ((lambda (#{tmp\ 17004}#) + ((lambda (#{tmp\ 17005}#) + (if #{tmp\ 17005}# + (apply (lambda (#{_\ 17008}# #{e\ 17009}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4887}#)) - #{tmp\ 4890}#) + #{x\ 17002}#)) + #{tmp\ 17005}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4889}#))) - ($sc-dispatch #{tmp\ 4889}# (quote (any any))))) - #{x\ 4887}#)) + #{tmp\ 17004}#))) + ($sc-dispatch #{tmp\ 17004}# (quote (any any))))) + #{x\ 17002}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4900}#) - ((lambda (#{tmp\ 4902}#) - ((lambda (#{tmp\ 4903}#) - (if #{tmp\ 4903}# - (apply (lambda (#{_\ 4908}# - #{e\ 4909}# - #{m1\ 4910}# - #{m2\ 4911}#) - ((lambda (#{tmp\ 4913}#) - ((lambda (#{body\ 4915}#) + (cons (lambda (#{x\ 17010}#) + ((lambda (#{tmp\ 17012}#) + ((lambda (#{tmp\ 17013}#) + (if #{tmp\ 17013}# + (apply (lambda (#{_\ 17018}# + #{e\ 17019}# + #{m1\ 17020}# + #{m2\ 17021}#) + ((lambda (#{tmp\ 17023}#) + ((lambda (#{body\ 17025}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4914")) + #("i17024")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) (list (list '#(syntax-object t @@ -15661,35 +15589,35 @@ #(ribcage #(body) #((top)) - #("i4914")) + #("i17024")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - #{e\ 4909}#)) - #{body\ 4915}#)) - #{tmp\ 4913}#)) - (letrec ((#{f\ 4919}# - (lambda (#{clause\ 4920}# - #{clauses\ 4921}#) - (if (null? #{clauses\ 4921}#) - ((lambda (#{tmp\ 4923}#) - ((lambda (#{tmp\ 4924}#) - (if #{tmp\ 4924}# - (apply (lambda (#{e1\ 4927}# - #{e2\ 4928}#) + #{e\ 17019}#)) + #{body\ 17025}#)) + #{tmp\ 17023}#)) + (letrec ((#{f\ 17029}# + (lambda (#{clause\ 17030}# + #{clauses\ 17031}#) + (if (null? #{clauses\ 17031}#) + ((lambda (#{tmp\ 17033}#) + ((lambda (#{tmp\ 17034}#) + (if #{tmp\ 17034}# + (apply (lambda (#{e1\ 17037}# + #{e2\ 17038}#) (cons '#(syntax-object begin ((top) @@ -15698,8 +15626,8 @@ e2) #((top) (top)) - #("i4925" - "i4926")) + #("i17035" + "i17036")) #(ribcage () () @@ -15711,9 +15639,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15723,10 +15651,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15734,17 +15662,17 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - (cons #{e1\ 4927}# - #{e2\ 4928}#))) - #{tmp\ 4924}#) - ((lambda (#{tmp\ 4930}#) - (if #{tmp\ 4930}# - (apply (lambda (#{k\ 4934}# - #{e1\ 4935}# - #{e2\ 4936}#) + (cons #{e1\ 17037}# + #{e2\ 17038}#))) + #{tmp\ 17034}#) + ((lambda (#{tmp\ 17040}#) + (if #{tmp\ 17040}# + (apply (lambda (#{k\ 17044}# + #{e1\ 17045}# + #{e2\ 17046}#) (list '#(syntax-object if ((top) @@ -15755,9 +15683,9 @@ #((top) (top) (top)) - #("i4931" - "i4932" - "i4933")) + #("i17041" + "i17042" + "i17043")) #(ribcage () () @@ -15769,9 +15697,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15781,10 +15709,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15792,7 +15720,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) (list '#(syntax-object @@ -15805,9 +15733,9 @@ #((top) (top) (top)) - #("i4931" - "i4932" - "i4933")) + #("i17041" + "i17042" + "i17043")) #(ribcage () () @@ -15819,9 +15747,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15831,10 +15759,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15842,7 +15770,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) '#(syntax-object @@ -15855,9 +15783,9 @@ #((top) (top) (top)) - #("i4931" - "i4932" - "i4933")) + #("i17041" + "i17042" + "i17043")) #(ribcage () () @@ -15869,9 +15797,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15881,10 +15809,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15892,7 +15820,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) (list '#(syntax-object @@ -15905,9 +15833,9 @@ #((top) (top) (top)) - #("i4931" - "i4932" - "i4933")) + #("i17041" + "i17042" + "i17043")) #(ribcage () () @@ -15919,9 +15847,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15931,10 +15859,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15942,10 +15870,10 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - #{k\ 4934}#)) + #{k\ 17044}#)) (cons '#(syntax-object begin ((top) @@ -15956,9 +15884,9 @@ #((top) (top) (top)) - #("i4931" - "i4932" - "i4933")) + #("i17041" + "i17042" + "i17043")) #(ribcage () () @@ -15970,9 +15898,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -15982,10 +15910,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -15993,27 +15921,27 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - (cons #{e1\ 4935}# - #{e2\ 4936}#)))) - #{tmp\ 4930}#) - ((lambda (#{_\ 4940}#) + (cons #{e1\ 17045}# + #{e2\ 17046}#)))) + #{tmp\ 17040}#) + ((lambda (#{_\ 17050}#) (syntax-violation 'case "bad clause" - #{x\ 4900}# - #{clause\ 4920}#)) - #{tmp\ 4923}#))) + #{x\ 17010}# + #{clause\ 17030}#)) + #{tmp\ 17033}#))) ($sc-dispatch - #{tmp\ 4923}# + #{tmp\ 17033}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4923}# + #{tmp\ 17033}# '(#(free-id #(syntax-object else @@ -16024,37 +15952,37 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile))) any . each-any)))) - #{clause\ 4920}#) - ((lambda (#{tmp\ 4942}#) - ((lambda (#{rest\ 4944}#) - ((lambda (#{tmp\ 4945}#) - ((lambda (#{tmp\ 4946}#) - (if #{tmp\ 4946}# - (apply (lambda (#{k\ 4950}# - #{e1\ 4951}# - #{e2\ 4952}#) + #{clause\ 17030}#) + ((lambda (#{tmp\ 17052}#) + ((lambda (#{rest\ 17054}#) + ((lambda (#{tmp\ 17055}#) + ((lambda (#{tmp\ 17056}#) + (if #{tmp\ 17056}# + (apply (lambda (#{k\ 17060}# + #{e1\ 17061}# + #{e2\ 17062}#) (list '#(syntax-object if ((top) @@ -16065,13 +15993,13 @@ #((top) (top) (top)) - #("i4947" - "i4948" - "i4949")) + #("i17057" + "i17058" + "i17059")) #(ribcage #(rest) #((top)) - #("i4943")) + #("i17053")) #(ribcage () () @@ -16083,9 +16011,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -16095,10 +16023,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -16106,7 +16034,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) (list '#(syntax-object @@ -16119,13 +16047,13 @@ #((top) (top) (top)) - #("i4947" - "i4948" - "i4949")) + #("i17057" + "i17058" + "i17059")) #(ribcage #(rest) #((top)) - #("i4943")) + #("i17053")) #(ribcage () () @@ -16137,9 +16065,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -16149,10 +16077,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -16160,7 +16088,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) '#(syntax-object @@ -16173,13 +16101,13 @@ #((top) (top) (top)) - #("i4947" - "i4948" - "i4949")) + #("i17057" + "i17058" + "i17059")) #(ribcage #(rest) #((top)) - #("i4943")) + #("i17053")) #(ribcage () () @@ -16191,9 +16119,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -16203,10 +16131,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -16214,7 +16142,7 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) (list '#(syntax-object @@ -16227,13 +16155,13 @@ #((top) (top) (top)) - #("i4947" - "i4948" - "i4949")) + #("i17057" + "i17058" + "i17059")) #(ribcage #(rest) #((top)) - #("i4943")) + #("i17053")) #(ribcage () () @@ -16245,9 +16173,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -16257,10 +16185,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -16268,10 +16196,10 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - #{k\ 4950}#)) + #{k\ 17060}#)) (cons '#(syntax-object begin ((top) @@ -16282,13 +16210,13 @@ #((top) (top) (top)) - #("i4947" - "i4948" - "i4949")) + #("i17057" + "i17058" + "i17059")) #(ribcage #(rest) #((top)) - #("i4943")) + #("i17053")) #(ribcage () () @@ -16300,9 +16228,9 @@ #((top) (top) (top)) - #("i4916" - "i4917" - "i4918")) + #("i17026" + "i17027" + "i17028")) #(ribcage #(_ e @@ -16312,10 +16240,10 @@ (top) (top) (top)) - #("i4904" - "i4905" - "i4906" - "i4907")) + #("i17014" + "i17015" + "i17016" + "i17017")) #(ribcage () () @@ -16323,61 +16251,61 @@ #(ribcage #(x) #((top)) - #("i4901"))) + #("i17011"))) (hygiene guile)) - (cons #{e1\ 4951}# - #{e2\ 4952}#)) - #{rest\ 4944}#)) - #{tmp\ 4946}#) - ((lambda (#{_\ 4956}#) + (cons #{e1\ 17061}# + #{e2\ 17062}#)) + #{rest\ 17054}#)) + #{tmp\ 17056}#) + ((lambda (#{_\ 17066}#) (syntax-violation 'case "bad clause" - #{x\ 4900}# - #{clause\ 4920}#)) - #{tmp\ 4945}#))) + #{x\ 17010}# + #{clause\ 17030}#)) + #{tmp\ 17055}#))) ($sc-dispatch - #{tmp\ 4945}# + #{tmp\ 17055}# '(each-any any . each-any)))) - #{clause\ 4920}#)) - #{tmp\ 4942}#)) - (#{f\ 4919}# - (car #{clauses\ 4921}#) - (cdr #{clauses\ 4921}#))))))) - (#{f\ 4919}# #{m1\ 4910}# #{m2\ 4911}#)))) - #{tmp\ 4903}#) + #{clause\ 17030}#)) + #{tmp\ 17052}#)) + (#{f\ 17029}# + (car #{clauses\ 17031}#) + (cdr #{clauses\ 17031}#))))))) + (#{f\ 17029}# #{m1\ 17020}# #{m2\ 17021}#)))) + #{tmp\ 17013}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4902}#))) + #{tmp\ 17012}#))) ($sc-dispatch - #{tmp\ 4902}# + #{tmp\ 17012}# '(any any any . each-any)))) - #{x\ 4900}#)) + #{x\ 17010}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4986}#) - ((lambda (#{tmp\ 4988}#) - ((lambda (#{tmp\ 4989}#) - (if #{tmp\ 4989}# - (apply (lambda (#{_\ 4992}# #{e\ 4993}#) + (cons (lambda (#{x\ 17067}#) + ((lambda (#{tmp\ 17069}#) + ((lambda (#{tmp\ 17070}#) + (if #{tmp\ 17070}# + (apply (lambda (#{_\ 17073}# #{e\ 17074}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4987"))) + #(ribcage #(x) #((top)) #("i17068"))) (hygiene guile)) '(#(syntax-object x @@ -16385,9 +16313,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4987"))) + #(ribcage #(x) #((top)) #("i17068"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -16395,9 +16323,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4987"))) + #(ribcage #(x) #((top)) #("i17068"))) (hygiene guile)) . #(syntax-object @@ -16406,9 +16334,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4987"))) + #(ribcage #(x) #((top)) #("i17068"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -16416,12 +16344,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) '#(syntax-object x @@ -16429,12 +16357,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) '() (list '#(syntax-object @@ -16443,12 +16371,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) '(#(syntax-object identifier? @@ -16456,12 +16384,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) (#(syntax-object syntax @@ -16469,12 +16397,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) #(syntax-object id @@ -16482,12 +16410,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16495,27 +16423,29 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" + "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) - #{e\ 4993}#)) - (list (cons #{_\ 4992}# + #{e\ 17074}#)) + (list (cons #{_\ 17073}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" + "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) #(syntax-object ... @@ -16523,12 +16453,13 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" + "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16536,14 +16467,15 @@ #(ribcage #(_ e) #((top) (top)) - #("i4990" "i4991")) + #("i17071" + "i17072")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) - (cons #{e\ 4993}# + (cons #{e\ 17074}# '(#(syntax-object x ((top) @@ -16551,8 +16483,8 @@ #(_ e) #((top) (top)) - #("i4990" - "i4991")) + #("i17071" + "i17072")) #(ribcage () () @@ -16560,7 +16492,7 @@ #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile)) #(syntax-object ... @@ -16569,8 +16501,8 @@ #(_ e) #((top) (top)) - #("i4990" - "i4991")) + #("i17071" + "i17072")) #(ribcage () () @@ -16578,72 +16510,72 @@ #(ribcage #(x) #((top)) - #("i4987"))) + #("i17068"))) (hygiene guile))))))))) - #{tmp\ 4989}#) + #{tmp\ 17070}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4988}#))) - ($sc-dispatch #{tmp\ 4988}# (quote (any any))))) - #{x\ 4986}#)) + #{tmp\ 17069}#))) + ($sc-dispatch #{tmp\ 17069}# (quote (any any))))) + #{x\ 17067}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4999}#) - ((lambda (#{tmp\ 5001}#) - ((lambda (#{tmp\ 5002}#) - (if #{tmp\ 5002}# - (apply (lambda (#{_\ 5008}# - #{id\ 5009}# - #{args\ 5010}# - #{b0\ 5011}# - #{b1\ 5012}#) + (cons (lambda (#{x\ 17075}#) + ((lambda (#{tmp\ 17077}#) + ((lambda (#{tmp\ 17078}#) + (if #{tmp\ 17078}# + (apply (lambda (#{_\ 17084}# + #{id\ 17085}# + #{args\ 17086}# + #{b0\ 17087}# + #{b1\ 17088}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i5003" - "i5004" - "i5005" - "i5006" - "i5007")) + #("i17079" + "i17080" + "i17081" + "i17082" + "i17083")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i5000"))) + #(ribcage #(x) #((top)) #("i17076"))) (hygiene guile)) - #{id\ 5009}# + #{id\ 17085}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i5003" - "i5004" - "i5005" - "i5006" - "i5007")) + #("i17079" + "i17080" + "i17081" + "i17082" + "i17083")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i5000"))) + #("i17076"))) (hygiene guile)) - (cons #{args\ 5010}# - (cons #{b0\ 5011}# - #{b1\ 5012}#))))) - #{tmp\ 5002}#) - ((lambda (#{tmp\ 5014}#) - (if (if #{tmp\ 5014}# - (apply (lambda (#{_\ 5018}# - #{id\ 5019}# - #{val\ 5020}#) + (cons #{args\ 17086}# + (cons #{b0\ 17087}# + #{b1\ 17088}#))))) + #{tmp\ 17078}#) + ((lambda (#{tmp\ 17090}#) + (if (if #{tmp\ 17090}# + (apply (lambda (#{_\ 17094}# + #{id\ 17095}# + #{val\ 17096}#) (identifier? '#(syntax-object x @@ -16651,44 +16583,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i5015" "i5016" "i5017")) + #("i17091" "i17092" "i17093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i5000"))) + #("i17076"))) (hygiene guile)))) - #{tmp\ 5014}#) + #{tmp\ 17090}#) #f) - (apply (lambda (#{_\ 5024}# - #{id\ 5025}# - #{val\ 5026}#) + (apply (lambda (#{_\ 17100}# + #{id\ 17101}# + #{val\ 17102}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i5021" "i5022" "i5023")) + #("i17097" "i17098" "i17099")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i5000"))) + #("i17076"))) (hygiene guile)) - #{id\ 5025}# - #{val\ 5026}#)) - #{tmp\ 5014}#) + #{id\ 17101}# + #{val\ 17102}#)) + #{tmp\ 17090}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 5001}#))) + #{tmp\ 17077}#))) ($sc-dispatch - #{tmp\ 5001}# + #{tmp\ 17077}# '(any any any))))) ($sc-dispatch - #{tmp\ 5001}# + #{tmp\ 17077}# '(any (any . any) any . each-any)))) - #{x\ 4999}#)) + #{x\ 17075}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 169f01068..daf00f47c 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -307,20 +307,12 @@ (define top-level-eval-hook (lambda (x mod) - (primitive-eval - (memoize-expression - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) tree-il->scheme) x)) - (else x)))))) + (primitive-eval (memoize-expression x)))) (define local-eval-hook (lambda (x mod) - (primitive-eval - (memoize-expression - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) tree-il->scheme) x)) - (else x)))))) - + (primitive-eval (memoize-expression x)))) + (define-syntax gensym-hook (syntax-rules () ((_) (gensym)))) @@ -356,46 +348,28 @@ ;;; output constructors (define build-void (lambda (source) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-void) source)) - (else (decorate-source '(if #f #f) source))))) + (make-void source))) (define build-application (lambda (source fun-exp arg-exps) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-application) source fun-exp arg-exps)) - (else (decorate-source `(,fun-exp . ,arg-exps) source))))) - + (make-application source fun-exp arg-exps))) + (define build-conditional (lambda (source test-exp then-exp else-exp) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-conditional) - source test-exp then-exp else-exp)) - (else (decorate-source - (if (equal? else-exp '(if #f #f)) - `(if ,test-exp ,then-exp) - `(if ,test-exp ,then-exp ,else-exp)) - source))))) - + (make-conditional source test-exp then-exp else-exp))) + (define build-dynlet (lambda (source fluids vals body) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-dynlet) source fluids vals body)) - (else (decorate-source `(with-fluids ,(map list fluids vals) ,body) - source))))) - + (make-dynlet source fluids vals body))) + (define build-lexical-reference (lambda (type source name var) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-lexical-ref) source name var)) - (else (decorate-source var source))))) - + (make-lexical-ref source name var))) + (define build-lexical-assignment (lambda (source name var exp) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-lexical-set) source name var exp)) - (else (decorate-source `(set! ,var ,exp) source))))) - + (make-lexical-set source name var exp))) + ;; Before modules are booted, we can't expand into data structures from ;; (language tree-il) -- we need to give the evaluator the ;; s-expressions that it understands natively. Actually the real truth @@ -426,26 +400,18 @@ (analyze-variable mod var (lambda (mod var public?) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-module-ref) source mod var public?)) - (else (decorate-source (list (if public? '@ '@@) mod var) source)))) + (make-module-ref source mod var public?)) (lambda (var) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-toplevel-ref) source var)) - (else (decorate-source var source))))))) + (make-toplevel-ref source var))))) (define build-global-assignment (lambda (source var exp mod) (analyze-variable mod var (lambda (mod var public?) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-module-set) source mod var public? exp)) - (else (decorate-source `(set! ,(list (if public? '@ '@@) mod var) ,exp) source)))) + (make-module-set source mod var public? exp)) (lambda (var) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-toplevel-set) source var exp)) - (else (decorate-source `(set! ,var ,exp) source))))))) + (make-toplevel-set source var exp))))) ;; FIXME: there is a bug that prevents (set! ((@ (foo) bar) baz) quz) ;; from working. Hack around it. @@ -460,11 +426,9 @@ (define build-global-definition (lambda (source var exp) - (case (fluid-ref *mode*) - ((c) - (maybe-name-value! var exp) - ((@ (language tree-il) make-toplevel-define) source var exp)) - (else (decorate-source `(define ,var ,exp) source))))) + ;; FIXME: + ;; (maybe-name-value! var exp) + (make-toplevel-define source var exp))) ;; Ideally we would have all lambdas be case lambdas, but that would ;; need special support in the interpreter for the full capabilities @@ -473,26 +437,16 @@ ;; the cases. (define build-simple-lambda (lambda (src req rest vars meta exp) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-lambda) src - meta - ;; hah, a case in which kwargs would be nice. - ((@ (language tree-il) make-lambda-case) - ;; src req opt rest kw inits vars body else - src req #f rest #f '() vars exp #f))) - (else (decorate-source - `(lambda ,(if rest (apply cons* vars) vars) - ,exp) - src))))) + (make-lambda src + meta + ;; hah, a case in which kwargs would be nice. + (make-lambda-case + ;; src req opt rest kw inits vars body else + src req #f rest #f '() vars exp #f)))) + (define build-case-lambda (lambda (src meta body) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-lambda) src - meta - body)) - (else (decorate-source - `(case-lambda* ,@body) - src))))) + (make-lambda src meta body))) (define build-lambda-case ;; req := (name ...) @@ -506,6 +460,7 @@ ;; the body of a lambda: anything, already expanded ;; else: lambda-case | #f (lambda (src req opt rest kw inits vars body else-case) + ;; FIXME!!! (case (fluid-ref *mode*) ((c) ((@ (language tree-il) make-lambda-case) @@ -527,65 +482,32 @@ (+ nreq (length inits) (if rest 1 0))) (error "something went wrong" req opt rest kw inits vars nreq nopt kw-indices nargs)) - (decorate-source - `(((,@(list-head vars nreq) - ,@(if opt - `(#:optional ,@(map list - (list-head (list-tail vars nreq) nopt) - (list-head inits nopt))) - '()) - ,@(if kw - `(#:key ,@(map (lambda (x init) - (list (caddr x) - init - (car x))) - (cdr kw) - (list-tail inits nopt))) - '()) - ,@(if allow-other-keys? '(#:allow-other-keys) '()) - ,@(if rest (list-ref vars rest-idx) '())) - ,body) - ,@(or else-case '())) - src)))))) + (make-lambda-case src req opt rest + (and kw (cons allow-other-keys? kw-indices)) + inits vars body else-case)))))) (define build-primref (lambda (src name) (if (equal? (module-name (current-module)) '(guile)) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-toplevel-ref) src name)) - (else (decorate-source name src))) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-module-ref) src '(guile) name #f)) - (else (decorate-source `(@@ (guile) ,name) src)))))) + (make-toplevel-ref src name) + (make-module-ref src '(guile) name #f)))) (define (build-data src exp) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-const) src exp)) - (else (decorate-source - (if (and (self-evaluating? exp) (not (vector? exp))) - exp - (list 'quote exp)) - src)))) + (make-const src exp)) (define build-sequence (lambda (src exps) (if (null? (cdr exps)) (car exps) - (case (fluid-ref *mode*) - ((c) ((@ (language tree-il) make-sequence) src exps)) - (else (decorate-source `(begin ,@exps) src)))))) + (make-sequence src exps)))) (define build-let (lambda (src ids vars val-exps body-exp) + ;; FIXME + ;; (for-each maybe-name-value! ids val-exps) (if (null? vars) body-exp - (case (fluid-ref *mode*) - ((c) - (for-each maybe-name-value! ids val-exps) - ((@ (language tree-il) make-let) src ids vars val-exps body-exp)) - (else (decorate-source - `(let ,(map list vars val-exps) ,body-exp) - src)))))) + (make-let src ids vars val-exps body-exp)))) (define build-named-let (lambda (src ids vars val-exps body-exp) @@ -593,31 +515,24 @@ (f-name (car ids)) (vars (cdr vars)) (ids (cdr ids))) - (case (fluid-ref *mode*) - ((c) - (let ((proc (build-simple-lambda src ids #f vars '() body-exp))) - (maybe-name-value! f-name proc) - (for-each maybe-name-value! ids val-exps) - ((@ (language tree-il) make-letrec) src - (list f-name) (list f) (list proc) - (build-application src (build-lexical-reference 'fun src f-name f) - val-exps)))) - (else (decorate-source - `(letrec ((,f (lambda ,vars ,body-exp))) - (,f ,@val-exps)) - src)))))) + (let ((proc (build-simple-lambda src ids #f vars '() body-exp))) + ;; FIXME + ;; (maybe-name-value! f-name proc) + ;; (for-each maybe-name-value! ids val-exps) + (make-letrec + src + (list f-name) (list f) (list proc) + (build-application src (build-lexical-reference 'fun src f-name f) + val-exps)))))) (define build-letrec (lambda (src ids vars val-exps body-exp) (if (null? vars) body-exp - (case (fluid-ref *mode*) - ((c) - (for-each maybe-name-value! ids val-exps) - ((@ (language tree-il) make-letrec) src ids vars val-exps body-exp)) - (else (decorate-source - `(letrec ,(map list vars val-exps) ,body-exp) - src)))))) + ;; FIXME + ;; (for-each maybe-name-value! ids val-exps) + (make-letrec src ids vars val-exps body-exp)))) + ;; FIXME: use a faster gensym (define-syntax build-lexical-var