From 27cbec84dad5c8b01e95c782ccf9c7421848060e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 6 May 2010 21:12:09 +0200 Subject: [PATCH] @@ generalized to arbitrary expressions. * module/ice-9/psyntax.scm (@@): The RHS of an @@ is no longer restricted to be an identifier, it can be an arbitrary expression. * module/ice-9/psyntax-pp.scm: Regenerated. --- module/ice-9/psyntax-pp.scm | 16697 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 28 +- 2 files changed, 8462 insertions(+), 8263 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 77a303072..b565d5440 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,644 +1,657 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 4802}# - (lambda (#{f\ 4864}# #{first\ 4865}# . #{rest\ 4866}#) - (let ((#{t\ 4872}# (null? #{first\ 4865}#))) - (if #{t\ 4872}# - #{t\ 4872}# - (if (null? #{rest\ 4866}#) - (letrec ((#{andmap\ 4876}# - (lambda (#{first\ 4877}#) - (let ((#{x\ 4880}# (car #{first\ 4877}#)) - (#{first\ 4881}# (cdr #{first\ 4877}#))) - (if (null? #{first\ 4881}#) - (#{f\ 4864}# #{x\ 4880}#) - (if (#{f\ 4864}# #{x\ 4880}#) - (#{andmap\ 4876}# #{first\ 4881}#) +(letrec ((#{and-map*\ 10504}# + (lambda (#{f\ 10566}# #{first\ 10567}# . #{rest\ 10568}#) + (let ((#{t\ 10574}# (null? #{first\ 10567}#))) + (if #{t\ 10574}# + #{t\ 10574}# + (if (null? #{rest\ 10568}#) + (letrec ((#{andmap\ 10578}# + (lambda (#{first\ 10579}#) + (let ((#{x\ 10582}# (car #{first\ 10579}#)) + (#{first\ 10583}# + (cdr #{first\ 10579}#))) + (if (null? #{first\ 10583}#) + (#{f\ 10566}# #{x\ 10582}#) + (if (#{f\ 10566}# #{x\ 10582}#) + (#{andmap\ 10578}# #{first\ 10583}#) #f)))))) - (#{andmap\ 4876}# #{first\ 4865}#)) - (letrec ((#{andmap\ 4887}# - (lambda (#{first\ 4888}# #{rest\ 4889}#) - (let ((#{x\ 4894}# (car #{first\ 4888}#)) - (#{xr\ 4895}# (map car #{rest\ 4889}#)) - (#{first\ 4896}# (cdr #{first\ 4888}#)) - (#{rest\ 4897}# - (map cdr #{rest\ 4889}#))) - (if (null? #{first\ 4896}#) - (apply #{f\ 4864}# - (cons #{x\ 4894}# #{xr\ 4895}#)) - (if (apply #{f\ 4864}# - (cons #{x\ 4894}# #{xr\ 4895}#)) - (#{andmap\ 4887}# - #{first\ 4896}# - #{rest\ 4897}#) + (#{andmap\ 10578}# #{first\ 10567}#)) + (letrec ((#{andmap\ 10589}# + (lambda (#{first\ 10590}# #{rest\ 10591}#) + (let ((#{x\ 10596}# (car #{first\ 10590}#)) + (#{xr\ 10597}# (map car #{rest\ 10591}#)) + (#{first\ 10598}# (cdr #{first\ 10590}#)) + (#{rest\ 10599}# + (map cdr #{rest\ 10591}#))) + (if (null? #{first\ 10598}#) + (apply #{f\ 10566}# + (cons #{x\ 10596}# #{xr\ 10597}#)) + (if (apply #{f\ 10566}# + (cons #{x\ 10596}# + #{xr\ 10597}#)) + (#{andmap\ 10589}# + #{first\ 10598}# + #{rest\ 10599}#) #f)))))) - (#{andmap\ 4887}# #{first\ 4865}# #{rest\ 4866}#)))))))) - (letrec ((#{lambda-var-list\ 5119}# - (lambda (#{vars\ 5334}#) - (letrec ((#{lvl\ 5340}# - (lambda (#{vars\ 5341}# #{ls\ 5342}# #{w\ 5343}#) - (if (pair? #{vars\ 5341}#) - (#{lvl\ 5340}# - (cdr #{vars\ 5341}#) - (cons (#{wrap\ 5073}# - (car #{vars\ 5341}#) - #{w\ 5343}# + (#{andmap\ 10589}# + #{first\ 10567}# + #{rest\ 10568}#)))))))) + (letrec ((#{lambda-var-list\ 10821}# + (lambda (#{vars\ 11036}#) + (letrec ((#{lvl\ 11042}# + (lambda (#{vars\ 11043}# #{ls\ 11044}# #{w\ 11045}#) + (if (pair? #{vars\ 11043}#) + (#{lvl\ 11042}# + (cdr #{vars\ 11043}#) + (cons (#{wrap\ 10775}# + (car #{vars\ 11043}#) + #{w\ 11045}# #f) - #{ls\ 5342}#) - #{w\ 5343}#) - (if (#{id?\ 5004}# #{vars\ 5341}#) - (cons (#{wrap\ 5073}# - #{vars\ 5341}# - #{w\ 5343}# + #{ls\ 11044}#) + #{w\ 11045}#) + (if (#{id?\ 10706}# #{vars\ 11043}#) + (cons (#{wrap\ 10775}# + #{vars\ 11043}# + #{w\ 11045}# #f) - #{ls\ 5342}#) - (if (null? #{vars\ 5341}#) - #{ls\ 5342}# - (if (#{syntax-object?\ 4968}# #{vars\ 5341}#) - (#{lvl\ 5340}# - (#{syntax-object-expression\ 4970}# - #{vars\ 5341}#) - #{ls\ 5342}# - (#{join-wraps\ 5055}# - #{w\ 5343}# - (#{syntax-object-wrap\ 4972}# - #{vars\ 5341}#))) - (cons #{vars\ 5341}# #{ls\ 5342}#)))))))) - (#{lvl\ 5340}# - #{vars\ 5334}# + #{ls\ 11044}#) + (if (null? #{vars\ 11043}#) + #{ls\ 11044}# + (if (#{syntax-object?\ 10670}# + #{vars\ 11043}#) + (#{lvl\ 11042}# + (#{syntax-object-expression\ 10672}# + #{vars\ 11043}#) + #{ls\ 11044}# + (#{join-wraps\ 10757}# + #{w\ 11045}# + (#{syntax-object-wrap\ 10674}# + #{vars\ 11043}#))) + (cons #{vars\ 11043}# #{ls\ 11044}#)))))))) + (#{lvl\ 11042}# + #{vars\ 11036}# '() '(()))))) - (#{gen-var\ 5117}# - (lambda (#{id\ 5354}#) - (let ((#{id\ 5357}# - (if (#{syntax-object?\ 4968}# #{id\ 5354}#) - (#{syntax-object-expression\ 4970}# #{id\ 5354}#) - #{id\ 5354}#))) + (#{gen-var\ 10819}# + (lambda (#{id\ 11056}#) + (let ((#{id\ 11059}# + (if (#{syntax-object?\ 10670}# #{id\ 11056}#) + (#{syntax-object-expression\ 10672}# + #{id\ 11056}#) + #{id\ 11056}#))) (gensym - (string-append (symbol->string #{id\ 5357}#) " "))))) - (#{strip\ 5115}# - (lambda (#{x\ 5359}# #{w\ 5360}#) + (string-append + (symbol->string #{id\ 11059}#) + " "))))) + (#{strip\ 10817}# + (lambda (#{x\ 11061}# #{w\ 11062}#) (if (memq 'top - (#{wrap-marks\ 5011}# #{w\ 5360}#)) - #{x\ 5359}# - (letrec ((#{f\ 5366}# - (lambda (#{x\ 5367}#) - (if (#{syntax-object?\ 4968}# #{x\ 5367}#) - (#{strip\ 5115}# - (#{syntax-object-expression\ 4970}# - #{x\ 5367}#) - (#{syntax-object-wrap\ 4972}# #{x\ 5367}#)) - (if (pair? #{x\ 5367}#) - (let ((#{a\ 5374}# - (#{f\ 5366}# (car #{x\ 5367}#))) - (#{d\ 5375}# - (#{f\ 5366}# (cdr #{x\ 5367}#)))) - (if (if (eq? #{a\ 5374}# (car #{x\ 5367}#)) - (eq? #{d\ 5375}# (cdr #{x\ 5367}#)) + (#{wrap-marks\ 10713}# #{w\ 11062}#)) + #{x\ 11061}# + (letrec ((#{f\ 11068}# + (lambda (#{x\ 11069}#) + (if (#{syntax-object?\ 10670}# #{x\ 11069}#) + (#{strip\ 10817}# + (#{syntax-object-expression\ 10672}# + #{x\ 11069}#) + (#{syntax-object-wrap\ 10674}# #{x\ 11069}#)) + (if (pair? #{x\ 11069}#) + (let ((#{a\ 11076}# + (#{f\ 11068}# (car #{x\ 11069}#))) + (#{d\ 11077}# + (#{f\ 11068}# (cdr #{x\ 11069}#)))) + (if (if (eq? #{a\ 11076}# + (car #{x\ 11069}#)) + (eq? #{d\ 11077}# (cdr #{x\ 11069}#)) #f) - #{x\ 5367}# - (cons #{a\ 5374}# #{d\ 5375}#))) - (if (vector? #{x\ 5367}#) - (let ((#{old\ 5381}# - (vector->list #{x\ 5367}#))) - (let ((#{new\ 5383}# - (map #{f\ 5366}# #{old\ 5381}#))) - (if (#{and-map*\ 4802}# + #{x\ 11069}# + (cons #{a\ 11076}# #{d\ 11077}#))) + (if (vector? #{x\ 11069}#) + (let ((#{old\ 11083}# + (vector->list #{x\ 11069}#))) + (let ((#{new\ 11085}# + (map #{f\ 11068}# + #{old\ 11083}#))) + (if (#{and-map*\ 10504}# eq? - #{old\ 5381}# - #{new\ 5383}#) - #{x\ 5367}# - (list->vector #{new\ 5383}#)))) - #{x\ 5367}#)))))) - (#{f\ 5366}# #{x\ 5359}#))))) - (#{chi-lambda-case\ 5113}# - (lambda (#{e\ 5385}# - #{r\ 5386}# - #{w\ 5387}# - #{s\ 5388}# - #{mod\ 5389}# - #{get-formals\ 5390}# - #{clauses\ 5391}#) - (letrec ((#{expand-body\ 5406}# - (lambda (#{req\ 5407}# - #{opt\ 5408}# - #{rest\ 5409}# - #{kw\ 5410}# - #{body\ 5411}# - #{vars\ 5412}# - #{r*\ 5413}# - #{w*\ 5414}# - #{inits\ 5415}# - #{meta\ 5416}#) - ((lambda (#{tmp\ 5427}#) - ((lambda (#{tmp\ 5428}#) - (if (if #{tmp\ 5428}# - (apply (lambda (#{docstring\ 5432}# - #{e1\ 5433}# - #{e2\ 5434}#) + #{old\ 11083}# + #{new\ 11085}#) + #{x\ 11069}# + (list->vector #{new\ 11085}#)))) + #{x\ 11069}#)))))) + (#{f\ 11068}# #{x\ 11061}#))))) + (#{chi-lambda-case\ 10815}# + (lambda (#{e\ 11087}# + #{r\ 11088}# + #{w\ 11089}# + #{s\ 11090}# + #{mod\ 11091}# + #{get-formals\ 11092}# + #{clauses\ 11093}#) + (letrec ((#{expand-body\ 11108}# + (lambda (#{req\ 11109}# + #{opt\ 11110}# + #{rest\ 11111}# + #{kw\ 11112}# + #{body\ 11113}# + #{vars\ 11114}# + #{r*\ 11115}# + #{w*\ 11116}# + #{inits\ 11117}# + #{meta\ 11118}#) + ((lambda (#{tmp\ 11129}#) + ((lambda (#{tmp\ 11130}#) + (if (if #{tmp\ 11130}# + (apply (lambda (#{docstring\ 11134}# + #{e1\ 11135}# + #{e2\ 11136}#) (string? (syntax->datum - #{docstring\ 5432}#))) - #{tmp\ 5428}#) + #{docstring\ 11134}#))) + #{tmp\ 11130}#) #f) - (apply (lambda (#{docstring\ 5438}# - #{e1\ 5439}# - #{e2\ 5440}#) - (#{expand-body\ 5406}# - #{req\ 5407}# - #{opt\ 5408}# - #{rest\ 5409}# - #{kw\ 5410}# - (cons #{e1\ 5439}# #{e2\ 5440}#) - #{vars\ 5412}# - #{r*\ 5413}# - #{w*\ 5414}# - #{inits\ 5415}# + (apply (lambda (#{docstring\ 11140}# + #{e1\ 11141}# + #{e2\ 11142}#) + (#{expand-body\ 11108}# + #{req\ 11109}# + #{opt\ 11110}# + #{rest\ 11111}# + #{kw\ 11112}# + (cons #{e1\ 11141}# + #{e2\ 11142}#) + #{vars\ 11114}# + #{r*\ 11115}# + #{w*\ 11116}# + #{inits\ 11117}# (append - #{meta\ 5416}# + #{meta\ 11118}# (list (cons 'documentation (syntax->datum - #{docstring\ 5438}#)))))) - #{tmp\ 5428}#) - ((lambda (#{tmp\ 5443}#) - (if #{tmp\ 5443}# - (apply (lambda (#{k\ 5448}# - #{v\ 5449}# - #{e1\ 5450}# - #{e2\ 5451}#) - (#{expand-body\ 5406}# - #{req\ 5407}# - #{opt\ 5408}# - #{rest\ 5409}# - #{kw\ 5410}# - (cons #{e1\ 5450}# - #{e2\ 5451}#) - #{vars\ 5412}# - #{r*\ 5413}# - #{w*\ 5414}# - #{inits\ 5415}# + #{docstring\ 11140}#)))))) + #{tmp\ 11130}#) + ((lambda (#{tmp\ 11145}#) + (if #{tmp\ 11145}# + (apply (lambda (#{k\ 11150}# + #{v\ 11151}# + #{e1\ 11152}# + #{e2\ 11153}#) + (#{expand-body\ 11108}# + #{req\ 11109}# + #{opt\ 11110}# + #{rest\ 11111}# + #{kw\ 11112}# + (cons #{e1\ 11152}# + #{e2\ 11153}#) + #{vars\ 11114}# + #{r*\ 11115}# + #{w*\ 11116}# + #{inits\ 11117}# (append - #{meta\ 5416}# + #{meta\ 11118}# (syntax->datum (map cons - #{k\ 5448}# - #{v\ 5449}#))))) - #{tmp\ 5443}#) - ((lambda (#{tmp\ 5455}#) - (if #{tmp\ 5455}# - (apply (lambda (#{e1\ 5458}# - #{e2\ 5459}#) + #{k\ 11150}# + #{v\ 11151}#))))) + #{tmp\ 11145}#) + ((lambda (#{tmp\ 11157}#) + (if #{tmp\ 11157}# + (apply (lambda (#{e1\ 11160}# + #{e2\ 11161}#) (values - #{meta\ 5416}# - #{req\ 5407}# - #{opt\ 5408}# - #{rest\ 5409}# - #{kw\ 5410}# - #{inits\ 5415}# - #{vars\ 5412}# - (#{chi-body\ 5097}# - (cons #{e1\ 5458}# - #{e2\ 5459}#) - (#{source-wrap\ 5075}# - #{e\ 5385}# - #{w\ 5387}# - #{s\ 5388}# - #{mod\ 5389}#) - #{r*\ 5413}# - #{w*\ 5414}# - #{mod\ 5389}#))) - #{tmp\ 5455}#) + #{meta\ 11118}# + #{req\ 11109}# + #{opt\ 11110}# + #{rest\ 11111}# + #{kw\ 11112}# + #{inits\ 11117}# + #{vars\ 11114}# + (#{chi-body\ 10799}# + (cons #{e1\ 11160}# + #{e2\ 11161}#) + (#{source-wrap\ 10777}# + #{e\ 11087}# + #{w\ 11089}# + #{s\ 11090}# + #{mod\ 11091}#) + #{r*\ 11115}# + #{w*\ 11116}# + #{mod\ 11091}#))) + #{tmp\ 11157}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 5427}#))) + #{tmp\ 11129}#))) ($sc-dispatch - #{tmp\ 5427}# + #{tmp\ 11129}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 5427}# + #{tmp\ 11129}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 5427}# + #{tmp\ 11129}# '(any any . each-any)))) - #{body\ 5411}#))) - (#{expand-kw\ 5404}# - (lambda (#{req\ 5461}# - #{opt\ 5462}# - #{rest\ 5463}# - #{kw\ 5464}# - #{body\ 5465}# - #{vars\ 5466}# - #{r*\ 5467}# - #{w*\ 5468}# - #{aok\ 5469}# - #{out\ 5470}# - #{inits\ 5471}#) - (if (pair? #{kw\ 5464}#) - ((lambda (#{tmp\ 5485}#) - ((lambda (#{tmp\ 5486}#) - (if #{tmp\ 5486}# - (apply (lambda (#{k\ 5490}# - #{id\ 5491}# - #{i\ 5492}#) - (let ((#{v\ 5495}# - (#{gen-var\ 5117}# - #{id\ 5491}#))) - (let ((#{l\ 5497}# - (#{gen-labels\ 5022}# - (list #{v\ 5495}#)))) - (let ((#{r**\ 5499}# - (#{extend-var-env\ 4994}# - #{l\ 5497}# - (list #{v\ 5495}#) - #{r*\ 5467}#))) - (let ((#{w**\ 5501}# - (#{make-binding-wrap\ 5051}# - (list #{id\ 5491}#) - #{l\ 5497}# - #{w*\ 5468}#))) - (#{expand-kw\ 5404}# - #{req\ 5461}# - #{opt\ 5462}# - #{rest\ 5463}# - (cdr #{kw\ 5464}#) - #{body\ 5465}# - (cons #{v\ 5495}# - #{vars\ 5466}#) - #{r**\ 5499}# - #{w**\ 5501}# - #{aok\ 5469}# + #{body\ 11113}#))) + (#{expand-kw\ 11106}# + (lambda (#{req\ 11163}# + #{opt\ 11164}# + #{rest\ 11165}# + #{kw\ 11166}# + #{body\ 11167}# + #{vars\ 11168}# + #{r*\ 11169}# + #{w*\ 11170}# + #{aok\ 11171}# + #{out\ 11172}# + #{inits\ 11173}#) + (if (pair? #{kw\ 11166}#) + ((lambda (#{tmp\ 11187}#) + ((lambda (#{tmp\ 11188}#) + (if #{tmp\ 11188}# + (apply (lambda (#{k\ 11192}# + #{id\ 11193}# + #{i\ 11194}#) + (let ((#{v\ 11197}# + (#{gen-var\ 10819}# + #{id\ 11193}#))) + (let ((#{l\ 11199}# + (#{gen-labels\ 10724}# + (list #{v\ 11197}#)))) + (let ((#{r**\ 11201}# + (#{extend-var-env\ 10696}# + #{l\ 11199}# + (list #{v\ 11197}#) + #{r*\ 11169}#))) + (let ((#{w**\ 11203}# + (#{make-binding-wrap\ 10753}# + (list #{id\ 11193}#) + #{l\ 11199}# + #{w*\ 11170}#))) + (#{expand-kw\ 11106}# + #{req\ 11163}# + #{opt\ 11164}# + #{rest\ 11165}# + (cdr #{kw\ 11166}#) + #{body\ 11167}# + (cons #{v\ 11197}# + #{vars\ 11168}#) + #{r**\ 11201}# + #{w**\ 11203}# + #{aok\ 11171}# (cons (list (syntax->datum - #{k\ 5490}#) + #{k\ 11192}#) (syntax->datum - #{id\ 5491}#) - #{v\ 5495}#) - #{out\ 5470}#) - (cons (#{chi\ 5089}# - #{i\ 5492}# - #{r*\ 5467}# - #{w*\ 5468}# - #{mod\ 5389}#) - #{inits\ 5471}#))))))) - #{tmp\ 5486}#) + #{id\ 11193}#) + #{v\ 11197}#) + #{out\ 11172}#) + (cons (#{chi\ 10791}# + #{i\ 11194}# + #{r*\ 11169}# + #{w*\ 11170}# + #{mod\ 11091}#) + #{inits\ 11173}#))))))) + #{tmp\ 11188}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 5485}#))) + #{tmp\ 11187}#))) ($sc-dispatch - #{tmp\ 5485}# + #{tmp\ 11187}# '(any any any)))) - (car #{kw\ 5464}#)) - (#{expand-body\ 5406}# - #{req\ 5461}# - #{opt\ 5462}# - #{rest\ 5463}# - (if (let ((#{t\ 5505}# #{aok\ 5469}#)) - (if #{t\ 5505}# - #{t\ 5505}# - (pair? #{out\ 5470}#))) - (cons #{aok\ 5469}# (reverse #{out\ 5470}#)) + (car #{kw\ 11166}#)) + (#{expand-body\ 11108}# + #{req\ 11163}# + #{opt\ 11164}# + #{rest\ 11165}# + (if (let ((#{t\ 11207}# #{aok\ 11171}#)) + (if #{t\ 11207}# + #{t\ 11207}# + (pair? #{out\ 11172}#))) + (cons #{aok\ 11171}# + (reverse #{out\ 11172}#)) #f) - #{body\ 5465}# - (reverse #{vars\ 5466}#) - #{r*\ 5467}# - #{w*\ 5468}# - (reverse #{inits\ 5471}#) + #{body\ 11167}# + (reverse #{vars\ 11168}#) + #{r*\ 11169}# + #{w*\ 11170}# + (reverse #{inits\ 11173}#) '())))) - (#{expand-opt\ 5402}# - (lambda (#{req\ 5507}# - #{opt\ 5508}# - #{rest\ 5509}# - #{kw\ 5510}# - #{body\ 5511}# - #{vars\ 5512}# - #{r*\ 5513}# - #{w*\ 5514}# - #{out\ 5515}# - #{inits\ 5516}#) - (if (pair? #{opt\ 5508}#) - ((lambda (#{tmp\ 5529}#) - ((lambda (#{tmp\ 5530}#) - (if #{tmp\ 5530}# - (apply (lambda (#{id\ 5533}# #{i\ 5534}#) - (let ((#{v\ 5537}# - (#{gen-var\ 5117}# - #{id\ 5533}#))) - (let ((#{l\ 5539}# - (#{gen-labels\ 5022}# - (list #{v\ 5537}#)))) - (let ((#{r**\ 5541}# - (#{extend-var-env\ 4994}# - #{l\ 5539}# - (list #{v\ 5537}#) - #{r*\ 5513}#))) - (let ((#{w**\ 5543}# - (#{make-binding-wrap\ 5051}# - (list #{id\ 5533}#) - #{l\ 5539}# - #{w*\ 5514}#))) - (#{expand-opt\ 5402}# - #{req\ 5507}# - (cdr #{opt\ 5508}#) - #{rest\ 5509}# - #{kw\ 5510}# - #{body\ 5511}# - (cons #{v\ 5537}# - #{vars\ 5512}#) - #{r**\ 5541}# - #{w**\ 5543}# + (#{expand-opt\ 11104}# + (lambda (#{req\ 11209}# + #{opt\ 11210}# + #{rest\ 11211}# + #{kw\ 11212}# + #{body\ 11213}# + #{vars\ 11214}# + #{r*\ 11215}# + #{w*\ 11216}# + #{out\ 11217}# + #{inits\ 11218}#) + (if (pair? #{opt\ 11210}#) + ((lambda (#{tmp\ 11231}#) + ((lambda (#{tmp\ 11232}#) + (if #{tmp\ 11232}# + (apply (lambda (#{id\ 11235}# + #{i\ 11236}#) + (let ((#{v\ 11239}# + (#{gen-var\ 10819}# + #{id\ 11235}#))) + (let ((#{l\ 11241}# + (#{gen-labels\ 10724}# + (list #{v\ 11239}#)))) + (let ((#{r**\ 11243}# + (#{extend-var-env\ 10696}# + #{l\ 11241}# + (list #{v\ 11239}#) + #{r*\ 11215}#))) + (let ((#{w**\ 11245}# + (#{make-binding-wrap\ 10753}# + (list #{id\ 11235}#) + #{l\ 11241}# + #{w*\ 11216}#))) + (#{expand-opt\ 11104}# + #{req\ 11209}# + (cdr #{opt\ 11210}#) + #{rest\ 11211}# + #{kw\ 11212}# + #{body\ 11213}# + (cons #{v\ 11239}# + #{vars\ 11214}#) + #{r**\ 11243}# + #{w**\ 11245}# (cons (syntax->datum - #{id\ 5533}#) - #{out\ 5515}#) - (cons (#{chi\ 5089}# - #{i\ 5534}# - #{r*\ 5513}# - #{w*\ 5514}# - #{mod\ 5389}#) - #{inits\ 5516}#))))))) - #{tmp\ 5530}#) + #{id\ 11235}#) + #{out\ 11217}#) + (cons (#{chi\ 10791}# + #{i\ 11236}# + #{r*\ 11215}# + #{w*\ 11216}# + #{mod\ 11091}#) + #{inits\ 11218}#))))))) + #{tmp\ 11232}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 5529}#))) + #{tmp\ 11231}#))) ($sc-dispatch - #{tmp\ 5529}# + #{tmp\ 11231}# '(any any)))) - (car #{opt\ 5508}#)) - (if #{rest\ 5509}# - (let ((#{v\ 5548}# - (#{gen-var\ 5117}# #{rest\ 5509}#))) - (let ((#{l\ 5550}# - (#{gen-labels\ 5022}# - (list #{v\ 5548}#)))) - (let ((#{r*\ 5552}# - (#{extend-var-env\ 4994}# - #{l\ 5550}# - (list #{v\ 5548}#) - #{r*\ 5513}#))) - (let ((#{w*\ 5554}# - (#{make-binding-wrap\ 5051}# - (list #{rest\ 5509}#) - #{l\ 5550}# - #{w*\ 5514}#))) - (#{expand-kw\ 5404}# - #{req\ 5507}# - (if (pair? #{out\ 5515}#) - (reverse #{out\ 5515}#) + (car #{opt\ 11210}#)) + (if #{rest\ 11211}# + (let ((#{v\ 11250}# + (#{gen-var\ 10819}# #{rest\ 11211}#))) + (let ((#{l\ 11252}# + (#{gen-labels\ 10724}# + (list #{v\ 11250}#)))) + (let ((#{r*\ 11254}# + (#{extend-var-env\ 10696}# + #{l\ 11252}# + (list #{v\ 11250}#) + #{r*\ 11215}#))) + (let ((#{w*\ 11256}# + (#{make-binding-wrap\ 10753}# + (list #{rest\ 11211}#) + #{l\ 11252}# + #{w*\ 11216}#))) + (#{expand-kw\ 11106}# + #{req\ 11209}# + (if (pair? #{out\ 11217}#) + (reverse #{out\ 11217}#) #f) - (syntax->datum #{rest\ 5509}#) - (if (pair? #{kw\ 5510}#) - (cdr #{kw\ 5510}#) - #{kw\ 5510}#) - #{body\ 5511}# - (cons #{v\ 5548}# #{vars\ 5512}#) - #{r*\ 5552}# - #{w*\ 5554}# - (if (pair? #{kw\ 5510}#) - (car #{kw\ 5510}#) + (syntax->datum #{rest\ 11211}#) + (if (pair? #{kw\ 11212}#) + (cdr #{kw\ 11212}#) + #{kw\ 11212}#) + #{body\ 11213}# + (cons #{v\ 11250}# #{vars\ 11214}#) + #{r*\ 11254}# + #{w*\ 11256}# + (if (pair? #{kw\ 11212}#) + (car #{kw\ 11212}#) #f) '() - #{inits\ 5516}#))))) - (#{expand-kw\ 5404}# - #{req\ 5507}# - (if (pair? #{out\ 5515}#) - (reverse #{out\ 5515}#) + #{inits\ 11218}#))))) + (#{expand-kw\ 11106}# + #{req\ 11209}# + (if (pair? #{out\ 11217}#) + (reverse #{out\ 11217}#) #f) #f - (if (pair? #{kw\ 5510}#) - (cdr #{kw\ 5510}#) - #{kw\ 5510}#) - #{body\ 5511}# - #{vars\ 5512}# - #{r*\ 5513}# - #{w*\ 5514}# - (if (pair? #{kw\ 5510}#) - (car #{kw\ 5510}#) + (if (pair? #{kw\ 11212}#) + (cdr #{kw\ 11212}#) + #{kw\ 11212}#) + #{body\ 11213}# + #{vars\ 11214}# + #{r*\ 11215}# + #{w*\ 11216}# + (if (pair? #{kw\ 11212}#) + (car #{kw\ 11212}#) #f) '() - #{inits\ 5516}#))))) - (#{expand-req\ 5400}# - (lambda (#{req\ 5556}# - #{opt\ 5557}# - #{rest\ 5558}# - #{kw\ 5559}# - #{body\ 5560}#) - (let ((#{vars\ 5568}# - (map #{gen-var\ 5117}# #{req\ 5556}#)) - (#{labels\ 5569}# - (#{gen-labels\ 5022}# #{req\ 5556}#))) - (let ((#{r*\ 5572}# - (#{extend-var-env\ 4994}# - #{labels\ 5569}# - #{vars\ 5568}# - #{r\ 5386}#)) - (#{w*\ 5573}# - (#{make-binding-wrap\ 5051}# - #{req\ 5556}# - #{labels\ 5569}# - #{w\ 5387}#))) - (#{expand-opt\ 5402}# - (map syntax->datum #{req\ 5556}#) - #{opt\ 5557}# - #{rest\ 5558}# - #{kw\ 5559}# - #{body\ 5560}# - (reverse #{vars\ 5568}#) - #{r*\ 5572}# - #{w*\ 5573}# + #{inits\ 11218}#))))) + (#{expand-req\ 11102}# + (lambda (#{req\ 11258}# + #{opt\ 11259}# + #{rest\ 11260}# + #{kw\ 11261}# + #{body\ 11262}#) + (let ((#{vars\ 11270}# + (map #{gen-var\ 10819}# #{req\ 11258}#)) + (#{labels\ 11271}# + (#{gen-labels\ 10724}# #{req\ 11258}#))) + (let ((#{r*\ 11274}# + (#{extend-var-env\ 10696}# + #{labels\ 11271}# + #{vars\ 11270}# + #{r\ 11088}#)) + (#{w*\ 11275}# + (#{make-binding-wrap\ 10753}# + #{req\ 11258}# + #{labels\ 11271}# + #{w\ 11089}#))) + (#{expand-opt\ 11104}# + (map syntax->datum #{req\ 11258}#) + #{opt\ 11259}# + #{rest\ 11260}# + #{kw\ 11261}# + #{body\ 11262}# + (reverse #{vars\ 11270}#) + #{r*\ 11274}# + #{w*\ 11275}# '() '())))))) - ((lambda (#{tmp\ 5574}#) - ((lambda (#{tmp\ 5575}#) - (if #{tmp\ 5575}# + ((lambda (#{tmp\ 11276}#) + ((lambda (#{tmp\ 11277}#) + (if #{tmp\ 11277}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 5575}#) - ((lambda (#{tmp\ 5576}#) - (if #{tmp\ 5576}# - (apply (lambda (#{args\ 5583}# - #{e1\ 5584}# - #{e2\ 5585}# - #{args*\ 5586}# - #{e1*\ 5587}# - #{e2*\ 5588}#) + #{tmp\ 11277}#) + ((lambda (#{tmp\ 11278}#) + (if #{tmp\ 11278}# + (apply (lambda (#{args\ 11285}# + #{e1\ 11286}# + #{e2\ 11287}# + #{args*\ 11288}# + #{e1*\ 11289}# + #{e2*\ 11290}#) (call-with-values (lambda () - (#{get-formals\ 5390}# - #{args\ 5583}#)) - (lambda (#{req\ 5589}# - #{opt\ 5590}# - #{rest\ 5591}# - #{kw\ 5592}#) + (#{get-formals\ 11092}# + #{args\ 11285}#)) + (lambda (#{req\ 11291}# + #{opt\ 11292}# + #{rest\ 11293}# + #{kw\ 11294}#) (call-with-values (lambda () - (#{expand-req\ 5400}# - #{req\ 5589}# - #{opt\ 5590}# - #{rest\ 5591}# - #{kw\ 5592}# - (cons #{e1\ 5584}# - #{e2\ 5585}#))) - (lambda (#{meta\ 5598}# - #{req\ 5599}# - #{opt\ 5600}# - #{rest\ 5601}# - #{kw\ 5602}# - #{inits\ 5603}# - #{vars\ 5604}# - #{body\ 5605}#) + (#{expand-req\ 11102}# + #{req\ 11291}# + #{opt\ 11292}# + #{rest\ 11293}# + #{kw\ 11294}# + (cons #{e1\ 11286}# + #{e2\ 11287}#))) + (lambda (#{meta\ 11300}# + #{req\ 11301}# + #{opt\ 11302}# + #{rest\ 11303}# + #{kw\ 11304}# + #{inits\ 11305}# + #{vars\ 11306}# + #{body\ 11307}#) (call-with-values (lambda () - (#{chi-lambda-case\ 5113}# - #{e\ 5385}# - #{r\ 5386}# - #{w\ 5387}# - #{s\ 5388}# - #{mod\ 5389}# - #{get-formals\ 5390}# - (map (lambda (#{tmp\ 5616}# - #{tmp\ 5615}# - #{tmp\ 5614}#) - (cons #{tmp\ 5614}# - (cons #{tmp\ 5615}# - #{tmp\ 5616}#))) - #{e2*\ 5588}# - #{e1*\ 5587}# - #{args*\ 5586}#))) - (lambda (#{meta*\ 5618}# - #{else*\ 5619}#) + (#{chi-lambda-case\ 10815}# + #{e\ 11087}# + #{r\ 11088}# + #{w\ 11089}# + #{s\ 11090}# + #{mod\ 11091}# + #{get-formals\ 11092}# + (map (lambda (#{tmp\ 11318}# + #{tmp\ 11317}# + #{tmp\ 11316}#) + (cons #{tmp\ 11316}# + (cons #{tmp\ 11317}# + #{tmp\ 11318}#))) + #{e2*\ 11290}# + #{e1*\ 11289}# + #{args*\ 11288}#))) + (lambda (#{meta*\ 11320}# + #{else*\ 11321}#) (values (append - #{meta\ 5598}# - #{meta*\ 5618}#) - (#{build-lambda-case\ 4950}# - #{s\ 5388}# - #{req\ 5599}# - #{opt\ 5600}# - #{rest\ 5601}# - #{kw\ 5602}# - #{inits\ 5603}# - #{vars\ 5604}# - #{body\ 5605}# - #{else*\ 5619}#))))))))) - #{tmp\ 5576}#) + #{meta\ 11300}# + #{meta*\ 11320}#) + (#{build-lambda-case\ 10652}# + #{s\ 11090}# + #{req\ 11301}# + #{opt\ 11302}# + #{rest\ 11303}# + #{kw\ 11304}# + #{inits\ 11305}# + #{vars\ 11306}# + #{body\ 11307}# + #{else*\ 11321}#))))))))) + #{tmp\ 11278}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 5574}#))) + #{tmp\ 11276}#))) ($sc-dispatch - #{tmp\ 5574}# + #{tmp\ 11276}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 5574}# (quote ())))) - #{clauses\ 5391}#)))) - (#{lambda*-formals\ 5111}# - (lambda (#{orig-args\ 5622}#) - (letrec ((#{check\ 5633}# - (lambda (#{req\ 5634}# - #{opt\ 5635}# - #{rest\ 5636}# - #{kw\ 5637}#) - (if (#{distinct-bound-ids?\ 5069}# + ($sc-dispatch #{tmp\ 11276}# (quote ())))) + #{clauses\ 11093}#)))) + (#{lambda*-formals\ 10813}# + (lambda (#{orig-args\ 11324}#) + (letrec ((#{check\ 11335}# + (lambda (#{req\ 11336}# + #{opt\ 11337}# + #{rest\ 11338}# + #{kw\ 11339}#) + (if (#{distinct-bound-ids?\ 10771}# (append - #{req\ 5634}# - (map car #{opt\ 5635}#) - (if #{rest\ 5636}# - (list #{rest\ 5636}#) + #{req\ 11336}# + (map car #{opt\ 11337}#) + (if #{rest\ 11338}# + (list #{rest\ 11338}#) '()) - (if (pair? #{kw\ 5637}#) - (map cadr (cdr #{kw\ 5637}#)) + (if (pair? #{kw\ 11339}#) + (map cadr (cdr #{kw\ 11339}#)) '()))) (values - #{req\ 5634}# - #{opt\ 5635}# - #{rest\ 5636}# - #{kw\ 5637}#) + #{req\ 11336}# + #{opt\ 11337}# + #{rest\ 11338}# + #{kw\ 11339}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 5622}#)))) - (#{rest\ 5631}# - (lambda (#{args\ 5645}# - #{req\ 5646}# - #{opt\ 5647}# - #{kw\ 5648}#) - ((lambda (#{tmp\ 5653}#) - ((lambda (#{tmp\ 5654}#) - (if (if #{tmp\ 5654}# - (apply (lambda (#{r\ 5656}#) - (#{id?\ 5004}# #{r\ 5656}#)) - #{tmp\ 5654}#) + #{orig-args\ 11324}#)))) + (#{rest\ 11333}# + (lambda (#{args\ 11347}# + #{req\ 11348}# + #{opt\ 11349}# + #{kw\ 11350}#) + ((lambda (#{tmp\ 11355}#) + ((lambda (#{tmp\ 11356}#) + (if (if #{tmp\ 11356}# + (apply (lambda (#{r\ 11358}#) + (#{id?\ 10706}# #{r\ 11358}#)) + #{tmp\ 11356}#) #f) - (apply (lambda (#{r\ 5658}#) - (#{check\ 5633}# - #{req\ 5646}# - #{opt\ 5647}# - #{r\ 5658}# - #{kw\ 5648}#)) - #{tmp\ 5654}#) - ((lambda (#{else\ 5660}#) + (apply (lambda (#{r\ 11360}#) + (#{check\ 11335}# + #{req\ 11348}# + #{opt\ 11349}# + #{r\ 11360}# + #{kw\ 11350}#)) + #{tmp\ 11356}#) + ((lambda (#{else\ 11362}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 5622}# - #{args\ 5645}#)) - #{tmp\ 5653}#))) - (list #{tmp\ 5653}#))) - #{args\ 5645}#))) - (#{key\ 5629}# - (lambda (#{args\ 5661}# - #{req\ 5662}# - #{opt\ 5663}# - #{rkey\ 5664}#) - ((lambda (#{tmp\ 5669}#) - ((lambda (#{tmp\ 5670}#) - (if #{tmp\ 5670}# + #{orig-args\ 11324}# + #{args\ 11347}#)) + #{tmp\ 11355}#))) + (list #{tmp\ 11355}#))) + #{args\ 11347}#))) + (#{key\ 11331}# + (lambda (#{args\ 11363}# + #{req\ 11364}# + #{opt\ 11365}# + #{rkey\ 11366}#) + ((lambda (#{tmp\ 11371}#) + ((lambda (#{tmp\ 11372}#) + (if #{tmp\ 11372}# (apply (lambda () - (#{check\ 5633}# - #{req\ 5662}# - #{opt\ 5663}# + (#{check\ 11335}# + #{req\ 11364}# + #{opt\ 11365}# #f (cons #f (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5670}#) - ((lambda (#{tmp\ 5671}#) - (if (if #{tmp\ 5671}# - (apply (lambda (#{a\ 5674}# - #{b\ 5675}#) - (#{id?\ 5004}# - #{a\ 5674}#)) - #{tmp\ 5671}#) + #{rkey\ 11366}#)))) + #{tmp\ 11372}#) + ((lambda (#{tmp\ 11373}#) + (if (if #{tmp\ 11373}# + (apply (lambda (#{a\ 11376}# + #{b\ 11377}#) + (#{id?\ 10706}# + #{a\ 11376}#)) + #{tmp\ 11373}#) #f) - (apply (lambda (#{a\ 5678}# - #{b\ 5679}#) - ((lambda (#{tmp\ 5681}#) - ((lambda (#{k\ 5683}#) - (#{key\ 5629}# - #{b\ 5679}# - #{req\ 5662}# - #{opt\ 5663}# - (cons (cons #{k\ 5683}# - (cons #{a\ 5678}# + (apply (lambda (#{a\ 11380}# + #{b\ 11381}#) + ((lambda (#{tmp\ 11383}#) + ((lambda (#{k\ 11385}#) + (#{key\ 11331}# + #{b\ 11381}# + #{req\ 11364}# + #{opt\ 11365}# + (cons (cons #{k\ 11385}# + (cons #{a\ 11380}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i5682")) + #("i11384")) #(ribcage #(a b) #((top) (top)) - #("i5676" - "i5677")) + #("i11378" + "i11379")) #(ribcage () () @@ -652,10 +665,10 @@ (top) (top) (top)) - #("i5665" - "i5666" - "i5667" - "i5668")) + #("i11367" + "i11368" + "i11369" + "i11370")) #(ribcage (check rest key @@ -666,15 +679,15 @@ (top) (top) (top)) - ("i5632" - "i5630" - "i5628" - "i5626" - "i5624")) + ("i11334" + "i11332" + "i11330" + "i11328" + "i11326")) #(ribcage #(orig-args) #((top)) - #("i5623")) + #("i11325")) #(ribcage (lambda-var-list gen-var @@ -912,350 +925,352 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile))))) - #{rkey\ 5664}#))) - #{tmp\ 5681}#)) + #{rkey\ 11366}#))) + #{tmp\ 11383}#)) (symbol->keyword (syntax->datum - #{a\ 5678}#)))) - #{tmp\ 5671}#) - ((lambda (#{tmp\ 5684}#) - (if (if #{tmp\ 5684}# - (apply (lambda (#{a\ 5688}# - #{init\ 5689}# - #{b\ 5690}#) - (#{id?\ 5004}# - #{a\ 5688}#)) - #{tmp\ 5684}#) + #{a\ 11380}#)))) + #{tmp\ 11373}#) + ((lambda (#{tmp\ 11386}#) + (if (if #{tmp\ 11386}# + (apply (lambda (#{a\ 11390}# + #{init\ 11391}# + #{b\ 11392}#) + (#{id?\ 10706}# + #{a\ 11390}#)) + #{tmp\ 11386}#) #f) - (apply (lambda (#{a\ 5694}# - #{init\ 5695}# - #{b\ 5696}#) - ((lambda (#{tmp\ 5698}#) - ((lambda (#{k\ 5700}#) - (#{key\ 5629}# - #{b\ 5696}# - #{req\ 5662}# - #{opt\ 5663}# - (cons (list #{k\ 5700}# - #{a\ 5694}# - #{init\ 5695}#) - #{rkey\ 5664}#))) - #{tmp\ 5698}#)) + (apply (lambda (#{a\ 11396}# + #{init\ 11397}# + #{b\ 11398}#) + ((lambda (#{tmp\ 11400}#) + ((lambda (#{k\ 11402}#) + (#{key\ 11331}# + #{b\ 11398}# + #{req\ 11364}# + #{opt\ 11365}# + (cons (list #{k\ 11402}# + #{a\ 11396}# + #{init\ 11397}#) + #{rkey\ 11366}#))) + #{tmp\ 11400}#)) (symbol->keyword (syntax->datum - #{a\ 5694}#)))) - #{tmp\ 5684}#) - ((lambda (#{tmp\ 5701}#) - (if (if #{tmp\ 5701}# - (apply (lambda (#{a\ 5706}# - #{init\ 5707}# - #{k\ 5708}# - #{b\ 5709}#) - (if (#{id?\ 5004}# - #{a\ 5706}#) + #{a\ 11396}#)))) + #{tmp\ 11386}#) + ((lambda (#{tmp\ 11403}#) + (if (if #{tmp\ 11403}# + (apply (lambda (#{a\ 11408}# + #{init\ 11409}# + #{k\ 11410}# + #{b\ 11411}#) + (if (#{id?\ 10706}# + #{a\ 11408}#) (keyword? (syntax->datum - #{k\ 5708}#)) + #{k\ 11410}#)) #f)) - #{tmp\ 5701}#) + #{tmp\ 11403}#) #f) - (apply (lambda (#{a\ 5716}# - #{init\ 5717}# - #{k\ 5718}# - #{b\ 5719}#) - (#{key\ 5629}# - #{b\ 5719}# - #{req\ 5662}# - #{opt\ 5663}# - (cons (list #{k\ 5718}# - #{a\ 5716}# - #{init\ 5717}#) - #{rkey\ 5664}#))) - #{tmp\ 5701}#) - ((lambda (#{tmp\ 5720}#) - (if (if #{tmp\ 5720}# - (apply (lambda (#{aok\ 5722}#) + (apply (lambda (#{a\ 11418}# + #{init\ 11419}# + #{k\ 11420}# + #{b\ 11421}#) + (#{key\ 11331}# + #{b\ 11421}# + #{req\ 11364}# + #{opt\ 11365}# + (cons (list #{k\ 11420}# + #{a\ 11418}# + #{init\ 11419}#) + #{rkey\ 11366}#))) + #{tmp\ 11403}#) + ((lambda (#{tmp\ 11422}#) + (if (if #{tmp\ 11422}# + (apply (lambda (#{aok\ 11424}#) (eq? (syntax->datum - #{aok\ 5722}#) + #{aok\ 11424}#) #:allow-other-keys)) - #{tmp\ 5720}#) + #{tmp\ 11422}#) #f) - (apply (lambda (#{aok\ 5724}#) - (#{check\ 5633}# - #{req\ 5662}# - #{opt\ 5663}# + (apply (lambda (#{aok\ 11426}#) + (#{check\ 11335}# + #{req\ 11364}# + #{opt\ 11365}# #f (cons #t (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5720}#) - ((lambda (#{tmp\ 5725}#) - (if (if #{tmp\ 5725}# - (apply (lambda (#{aok\ 5729}# - #{a\ 5730}# - #{b\ 5731}#) + #{rkey\ 11366}#)))) + #{tmp\ 11422}#) + ((lambda (#{tmp\ 11427}#) + (if (if #{tmp\ 11427}# + (apply (lambda (#{aok\ 11431}# + #{a\ 11432}# + #{b\ 11433}#) (if (eq? (syntax->datum - #{aok\ 5729}#) + #{aok\ 11431}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 5730}#) + #{a\ 11432}#) #:rest) #f)) - #{tmp\ 5725}#) + #{tmp\ 11427}#) #f) - (apply (lambda (#{aok\ 5737}# - #{a\ 5738}# - #{b\ 5739}#) - (#{rest\ 5631}# - #{b\ 5739}# - #{req\ 5662}# - #{opt\ 5663}# + (apply (lambda (#{aok\ 11439}# + #{a\ 11440}# + #{b\ 11441}#) + (#{rest\ 11333}# + #{b\ 11441}# + #{req\ 11364}# + #{opt\ 11365}# (cons #t (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5725}#) - ((lambda (#{tmp\ 5740}#) - (if (if #{tmp\ 5740}# - (apply (lambda (#{aok\ 5743}# - #{r\ 5744}#) + #{rkey\ 11366}#)))) + #{tmp\ 11427}#) + ((lambda (#{tmp\ 11442}#) + (if (if #{tmp\ 11442}# + (apply (lambda (#{aok\ 11445}# + #{r\ 11446}#) (if (eq? (syntax->datum - #{aok\ 5743}#) + #{aok\ 11445}#) #:allow-other-keys) - (#{id?\ 5004}# - #{r\ 5744}#) + (#{id?\ 10706}# + #{r\ 11446}#) #f)) - #{tmp\ 5740}#) + #{tmp\ 11442}#) #f) - (apply (lambda (#{aok\ 5749}# - #{r\ 5750}#) - (#{rest\ 5631}# - #{r\ 5750}# - #{req\ 5662}# - #{opt\ 5663}# + (apply (lambda (#{aok\ 11451}# + #{r\ 11452}#) + (#{rest\ 11333}# + #{r\ 11452}# + #{req\ 11364}# + #{opt\ 11365}# (cons #t (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5740}#) - ((lambda (#{tmp\ 5751}#) - (if (if #{tmp\ 5751}# - (apply (lambda (#{a\ 5754}# - #{b\ 5755}#) + #{rkey\ 11366}#)))) + #{tmp\ 11442}#) + ((lambda (#{tmp\ 11453}#) + (if (if #{tmp\ 11453}# + (apply (lambda (#{a\ 11456}# + #{b\ 11457}#) (eq? (syntax->datum - #{a\ 5754}#) + #{a\ 11456}#) #:rest)) - #{tmp\ 5751}#) + #{tmp\ 11453}#) #f) - (apply (lambda (#{a\ 5758}# - #{b\ 5759}#) - (#{rest\ 5631}# - #{b\ 5759}# - #{req\ 5662}# - #{opt\ 5663}# + (apply (lambda (#{a\ 11460}# + #{b\ 11461}#) + (#{rest\ 11333}# + #{b\ 11461}# + #{req\ 11364}# + #{opt\ 11365}# (cons #f (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5751}#) - ((lambda (#{tmp\ 5760}#) - (if (if #{tmp\ 5760}# - (apply (lambda (#{r\ 5762}#) - (#{id?\ 5004}# - #{r\ 5762}#)) - #{tmp\ 5760}#) + #{rkey\ 11366}#)))) + #{tmp\ 11453}#) + ((lambda (#{tmp\ 11462}#) + (if (if #{tmp\ 11462}# + (apply (lambda (#{r\ 11464}#) + (#{id?\ 10706}# + #{r\ 11464}#)) + #{tmp\ 11462}#) #f) - (apply (lambda (#{r\ 5764}#) - (#{rest\ 5631}# - #{r\ 5764}# - #{req\ 5662}# - #{opt\ 5663}# + (apply (lambda (#{r\ 11466}#) + (#{rest\ 11333}# + #{r\ 11466}# + #{req\ 11364}# + #{opt\ 11365}# (cons #f (reverse - #{rkey\ 5664}#)))) - #{tmp\ 5760}#) - ((lambda (#{else\ 5766}#) + #{rkey\ 11366}#)))) + #{tmp\ 11462}#) + ((lambda (#{else\ 11468}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 5622}# - #{args\ 5661}#)) - #{tmp\ 5669}#))) - (list #{tmp\ 5669}#)))) + #{orig-args\ 11324}# + #{args\ 11363}#)) + #{tmp\ 11371}#))) + (list #{tmp\ 11371}#)))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '(any any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '(any . any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '(any any any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '(any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 5669}# + #{tmp\ 11371}# '(any . any))))) - ($sc-dispatch #{tmp\ 5669}# (quote ())))) - #{args\ 5661}#))) - (#{opt\ 5627}# - (lambda (#{args\ 5767}# #{req\ 5768}# #{ropt\ 5769}#) - ((lambda (#{tmp\ 5773}#) - ((lambda (#{tmp\ 5774}#) - (if #{tmp\ 5774}# + ($sc-dispatch #{tmp\ 11371}# (quote ())))) + #{args\ 11363}#))) + (#{opt\ 11329}# + (lambda (#{args\ 11469}# + #{req\ 11470}# + #{ropt\ 11471}#) + ((lambda (#{tmp\ 11475}#) + ((lambda (#{tmp\ 11476}#) + (if #{tmp\ 11476}# (apply (lambda () - (#{check\ 5633}# - #{req\ 5768}# - (reverse #{ropt\ 5769}#) + (#{check\ 11335}# + #{req\ 11470}# + (reverse #{ropt\ 11471}#) #f '())) - #{tmp\ 5774}#) - ((lambda (#{tmp\ 5775}#) - (if (if #{tmp\ 5775}# - (apply (lambda (#{a\ 5778}# - #{b\ 5779}#) - (#{id?\ 5004}# - #{a\ 5778}#)) - #{tmp\ 5775}#) + #{tmp\ 11476}#) + ((lambda (#{tmp\ 11477}#) + (if (if #{tmp\ 11477}# + (apply (lambda (#{a\ 11480}# + #{b\ 11481}#) + (#{id?\ 10706}# + #{a\ 11480}#)) + #{tmp\ 11477}#) #f) - (apply (lambda (#{a\ 5782}# - #{b\ 5783}#) - (#{opt\ 5627}# - #{b\ 5783}# - #{req\ 5768}# - (cons (cons #{a\ 5782}# + (apply (lambda (#{a\ 11484}# + #{b\ 11485}#) + (#{opt\ 11329}# + #{b\ 11485}# + #{req\ 11470}# + (cons (cons #{a\ 11484}# '(#(syntax-object #f ((top) @@ -1263,8 +1278,8 @@ #(a b) #((top) (top)) - #("i5780" - "i5781")) + #("i11482" + "i11483")) #(ribcage () () @@ -1276,9 +1291,9 @@ #((top) (top) (top)) - #("i5770" - "i5771" - "i5772")) + #("i11472" + "i11473" + "i11474")) #(ribcage (check rest key @@ -1289,15 +1304,15 @@ (top) (top) (top)) - ("i5632" - "i5630" - "i5628" - "i5626" - "i5624")) + ("i11334" + "i11332" + "i11330" + "i11328" + "i11326")) #(ribcage #(orig-args) #((top)) - #("i5623")) + #("i11325")) #(ribcage (lambda-var-list gen-var @@ -1535,463 +1550,463 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile)))) - #{ropt\ 5769}#))) - #{tmp\ 5775}#) - ((lambda (#{tmp\ 5784}#) - (if (if #{tmp\ 5784}# - (apply (lambda (#{a\ 5788}# - #{init\ 5789}# - #{b\ 5790}#) - (#{id?\ 5004}# - #{a\ 5788}#)) - #{tmp\ 5784}#) + #{ropt\ 11471}#))) + #{tmp\ 11477}#) + ((lambda (#{tmp\ 11486}#) + (if (if #{tmp\ 11486}# + (apply (lambda (#{a\ 11490}# + #{init\ 11491}# + #{b\ 11492}#) + (#{id?\ 10706}# + #{a\ 11490}#)) + #{tmp\ 11486}#) #f) - (apply (lambda (#{a\ 5794}# - #{init\ 5795}# - #{b\ 5796}#) - (#{opt\ 5627}# - #{b\ 5796}# - #{req\ 5768}# - (cons (list #{a\ 5794}# - #{init\ 5795}#) - #{ropt\ 5769}#))) - #{tmp\ 5784}#) - ((lambda (#{tmp\ 5797}#) - (if (if #{tmp\ 5797}# - (apply (lambda (#{a\ 5800}# - #{b\ 5801}#) + (apply (lambda (#{a\ 11496}# + #{init\ 11497}# + #{b\ 11498}#) + (#{opt\ 11329}# + #{b\ 11498}# + #{req\ 11470}# + (cons (list #{a\ 11496}# + #{init\ 11497}#) + #{ropt\ 11471}#))) + #{tmp\ 11486}#) + ((lambda (#{tmp\ 11499}#) + (if (if #{tmp\ 11499}# + (apply (lambda (#{a\ 11502}# + #{b\ 11503}#) (eq? (syntax->datum - #{a\ 5800}#) + #{a\ 11502}#) #:key)) - #{tmp\ 5797}#) + #{tmp\ 11499}#) #f) - (apply (lambda (#{a\ 5804}# - #{b\ 5805}#) - (#{key\ 5629}# - #{b\ 5805}# - #{req\ 5768}# + (apply (lambda (#{a\ 11506}# + #{b\ 11507}#) + (#{key\ 11331}# + #{b\ 11507}# + #{req\ 11470}# (reverse - #{ropt\ 5769}#) + #{ropt\ 11471}#) '())) - #{tmp\ 5797}#) - ((lambda (#{tmp\ 5806}#) - (if (if #{tmp\ 5806}# - (apply (lambda (#{a\ 5809}# - #{b\ 5810}#) + #{tmp\ 11499}#) + ((lambda (#{tmp\ 11508}#) + (if (if #{tmp\ 11508}# + (apply (lambda (#{a\ 11511}# + #{b\ 11512}#) (eq? (syntax->datum - #{a\ 5809}#) + #{a\ 11511}#) #:rest)) - #{tmp\ 5806}#) + #{tmp\ 11508}#) #f) - (apply (lambda (#{a\ 5813}# - #{b\ 5814}#) - (#{rest\ 5631}# - #{b\ 5814}# - #{req\ 5768}# + (apply (lambda (#{a\ 11515}# + #{b\ 11516}#) + (#{rest\ 11333}# + #{b\ 11516}# + #{req\ 11470}# (reverse - #{ropt\ 5769}#) + #{ropt\ 11471}#) '())) - #{tmp\ 5806}#) - ((lambda (#{tmp\ 5815}#) - (if (if #{tmp\ 5815}# - (apply (lambda (#{r\ 5817}#) - (#{id?\ 5004}# - #{r\ 5817}#)) - #{tmp\ 5815}#) + #{tmp\ 11508}#) + ((lambda (#{tmp\ 11517}#) + (if (if #{tmp\ 11517}# + (apply (lambda (#{r\ 11519}#) + (#{id?\ 10706}# + #{r\ 11519}#)) + #{tmp\ 11517}#) #f) - (apply (lambda (#{r\ 5819}#) - (#{rest\ 5631}# - #{r\ 5819}# - #{req\ 5768}# + (apply (lambda (#{r\ 11521}#) + (#{rest\ 11333}# + #{r\ 11521}# + #{req\ 11470}# (reverse - #{ropt\ 5769}#) + #{ropt\ 11471}#) '())) - #{tmp\ 5815}#) - ((lambda (#{else\ 5821}#) + #{tmp\ 11517}#) + ((lambda (#{else\ 11523}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 5622}# - #{args\ 5767}#)) - #{tmp\ 5773}#))) - (list #{tmp\ 5773}#)))) + #{orig-args\ 11324}# + #{args\ 11469}#)) + #{tmp\ 11475}#))) + (list #{tmp\ 11475}#)))) ($sc-dispatch - #{tmp\ 5773}# + #{tmp\ 11475}# '(any any))))) ($sc-dispatch - #{tmp\ 5773}# + #{tmp\ 11475}# '(any . any))))) ($sc-dispatch - #{tmp\ 5773}# + #{tmp\ 11475}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 5773}# + #{tmp\ 11475}# '(any . any))))) - ($sc-dispatch #{tmp\ 5773}# (quote ())))) - #{args\ 5767}#))) - (#{req\ 5625}# - (lambda (#{args\ 5822}# #{rreq\ 5823}#) - ((lambda (#{tmp\ 5826}#) - ((lambda (#{tmp\ 5827}#) - (if #{tmp\ 5827}# + ($sc-dispatch #{tmp\ 11475}# (quote ())))) + #{args\ 11469}#))) + (#{req\ 11327}# + (lambda (#{args\ 11524}# #{rreq\ 11525}#) + ((lambda (#{tmp\ 11528}#) + ((lambda (#{tmp\ 11529}#) + (if #{tmp\ 11529}# (apply (lambda () - (#{check\ 5633}# - (reverse #{rreq\ 5823}#) + (#{check\ 11335}# + (reverse #{rreq\ 11525}#) '() #f '())) - #{tmp\ 5827}#) - ((lambda (#{tmp\ 5828}#) - (if (if #{tmp\ 5828}# - (apply (lambda (#{a\ 5831}# - #{b\ 5832}#) - (#{id?\ 5004}# - #{a\ 5831}#)) - #{tmp\ 5828}#) + #{tmp\ 11529}#) + ((lambda (#{tmp\ 11530}#) + (if (if #{tmp\ 11530}# + (apply (lambda (#{a\ 11533}# + #{b\ 11534}#) + (#{id?\ 10706}# + #{a\ 11533}#)) + #{tmp\ 11530}#) #f) - (apply (lambda (#{a\ 5835}# - #{b\ 5836}#) - (#{req\ 5625}# - #{b\ 5836}# - (cons #{a\ 5835}# - #{rreq\ 5823}#))) - #{tmp\ 5828}#) - ((lambda (#{tmp\ 5837}#) - (if (if #{tmp\ 5837}# - (apply (lambda (#{a\ 5840}# - #{b\ 5841}#) + (apply (lambda (#{a\ 11537}# + #{b\ 11538}#) + (#{req\ 11327}# + #{b\ 11538}# + (cons #{a\ 11537}# + #{rreq\ 11525}#))) + #{tmp\ 11530}#) + ((lambda (#{tmp\ 11539}#) + (if (if #{tmp\ 11539}# + (apply (lambda (#{a\ 11542}# + #{b\ 11543}#) (eq? (syntax->datum - #{a\ 5840}#) + #{a\ 11542}#) #:optional)) - #{tmp\ 5837}#) + #{tmp\ 11539}#) #f) - (apply (lambda (#{a\ 5844}# - #{b\ 5845}#) - (#{opt\ 5627}# - #{b\ 5845}# + (apply (lambda (#{a\ 11546}# + #{b\ 11547}#) + (#{opt\ 11329}# + #{b\ 11547}# (reverse - #{rreq\ 5823}#) + #{rreq\ 11525}#) '())) - #{tmp\ 5837}#) - ((lambda (#{tmp\ 5846}#) - (if (if #{tmp\ 5846}# - (apply (lambda (#{a\ 5849}# - #{b\ 5850}#) + #{tmp\ 11539}#) + ((lambda (#{tmp\ 11548}#) + (if (if #{tmp\ 11548}# + (apply (lambda (#{a\ 11551}# + #{b\ 11552}#) (eq? (syntax->datum - #{a\ 5849}#) + #{a\ 11551}#) #:key)) - #{tmp\ 5846}#) + #{tmp\ 11548}#) #f) - (apply (lambda (#{a\ 5853}# - #{b\ 5854}#) - (#{key\ 5629}# - #{b\ 5854}# + (apply (lambda (#{a\ 11555}# + #{b\ 11556}#) + (#{key\ 11331}# + #{b\ 11556}# (reverse - #{rreq\ 5823}#) + #{rreq\ 11525}#) '() '())) - #{tmp\ 5846}#) - ((lambda (#{tmp\ 5855}#) - (if (if #{tmp\ 5855}# - (apply (lambda (#{a\ 5858}# - #{b\ 5859}#) + #{tmp\ 11548}#) + ((lambda (#{tmp\ 11557}#) + (if (if #{tmp\ 11557}# + (apply (lambda (#{a\ 11560}# + #{b\ 11561}#) (eq? (syntax->datum - #{a\ 5858}#) + #{a\ 11560}#) #:rest)) - #{tmp\ 5855}#) + #{tmp\ 11557}#) #f) - (apply (lambda (#{a\ 5862}# - #{b\ 5863}#) - (#{rest\ 5631}# - #{b\ 5863}# + (apply (lambda (#{a\ 11564}# + #{b\ 11565}#) + (#{rest\ 11333}# + #{b\ 11565}# (reverse - #{rreq\ 5823}#) + #{rreq\ 11525}#) '() '())) - #{tmp\ 5855}#) - ((lambda (#{tmp\ 5864}#) - (if (if #{tmp\ 5864}# - (apply (lambda (#{r\ 5866}#) - (#{id?\ 5004}# - #{r\ 5866}#)) - #{tmp\ 5864}#) + #{tmp\ 11557}#) + ((lambda (#{tmp\ 11566}#) + (if (if #{tmp\ 11566}# + (apply (lambda (#{r\ 11568}#) + (#{id?\ 10706}# + #{r\ 11568}#)) + #{tmp\ 11566}#) #f) - (apply (lambda (#{r\ 5868}#) - (#{rest\ 5631}# - #{r\ 5868}# + (apply (lambda (#{r\ 11570}#) + (#{rest\ 11333}# + #{r\ 11570}# (reverse - #{rreq\ 5823}#) + #{rreq\ 11525}#) '() '())) - #{tmp\ 5864}#) - ((lambda (#{else\ 5870}#) + #{tmp\ 11566}#) + ((lambda (#{else\ 11572}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 5622}# - #{args\ 5822}#)) - #{tmp\ 5826}#))) - (list #{tmp\ 5826}#)))) + #{orig-args\ 11324}# + #{args\ 11524}#)) + #{tmp\ 11528}#))) + (list #{tmp\ 11528}#)))) ($sc-dispatch - #{tmp\ 5826}# + #{tmp\ 11528}# '(any any))))) ($sc-dispatch - #{tmp\ 5826}# + #{tmp\ 11528}# '(any . any))))) ($sc-dispatch - #{tmp\ 5826}# + #{tmp\ 11528}# '(any . any))))) ($sc-dispatch - #{tmp\ 5826}# + #{tmp\ 11528}# '(any . any))))) - ($sc-dispatch #{tmp\ 5826}# (quote ())))) - #{args\ 5822}#)))) - (#{req\ 5625}# #{orig-args\ 5622}# (quote ()))))) - (#{chi-simple-lambda\ 5109}# - (lambda (#{e\ 5871}# - #{r\ 5872}# - #{w\ 5873}# - #{s\ 5874}# - #{mod\ 5875}# - #{req\ 5876}# - #{rest\ 5877}# - #{meta\ 5878}# - #{body\ 5879}#) - (let ((#{ids\ 5891}# - (if #{rest\ 5877}# - (append #{req\ 5876}# (list #{rest\ 5877}#)) - #{req\ 5876}#))) - (let ((#{vars\ 5893}# - (map #{gen-var\ 5117}# #{ids\ 5891}#))) - (let ((#{labels\ 5895}# - (#{gen-labels\ 5022}# #{ids\ 5891}#))) - (#{build-simple-lambda\ 4946}# - #{s\ 5874}# - (map syntax->datum #{req\ 5876}#) - (if #{rest\ 5877}# - (syntax->datum #{rest\ 5877}#) + ($sc-dispatch #{tmp\ 11528}# (quote ())))) + #{args\ 11524}#)))) + (#{req\ 11327}# #{orig-args\ 11324}# (quote ()))))) + (#{chi-simple-lambda\ 10811}# + (lambda (#{e\ 11573}# + #{r\ 11574}# + #{w\ 11575}# + #{s\ 11576}# + #{mod\ 11577}# + #{req\ 11578}# + #{rest\ 11579}# + #{meta\ 11580}# + #{body\ 11581}#) + (let ((#{ids\ 11593}# + (if #{rest\ 11579}# + (append #{req\ 11578}# (list #{rest\ 11579}#)) + #{req\ 11578}#))) + (let ((#{vars\ 11595}# + (map #{gen-var\ 10819}# #{ids\ 11593}#))) + (let ((#{labels\ 11597}# + (#{gen-labels\ 10724}# #{ids\ 11593}#))) + (#{build-simple-lambda\ 10648}# + #{s\ 11576}# + (map syntax->datum #{req\ 11578}#) + (if #{rest\ 11579}# + (syntax->datum #{rest\ 11579}#) #f) - #{vars\ 5893}# - #{meta\ 5878}# - (#{chi-body\ 5097}# - #{body\ 5879}# - (#{source-wrap\ 5075}# - #{e\ 5871}# - #{w\ 5873}# - #{s\ 5874}# - #{mod\ 5875}#) - (#{extend-var-env\ 4994}# - #{labels\ 5895}# - #{vars\ 5893}# - #{r\ 5872}#) - (#{make-binding-wrap\ 5051}# - #{ids\ 5891}# - #{labels\ 5895}# - #{w\ 5873}#) - #{mod\ 5875}#))))))) - (#{lambda-formals\ 5107}# - (lambda (#{orig-args\ 5898}#) - (letrec ((#{check\ 5903}# - (lambda (#{req\ 5904}# #{rest\ 5905}#) - (if (#{distinct-bound-ids?\ 5069}# - (if #{rest\ 5905}# - (cons #{rest\ 5905}# #{req\ 5904}#) - #{req\ 5904}#)) - (values #{req\ 5904}# #f #{rest\ 5905}# #f) + #{vars\ 11595}# + #{meta\ 11580}# + (#{chi-body\ 10799}# + #{body\ 11581}# + (#{source-wrap\ 10777}# + #{e\ 11573}# + #{w\ 11575}# + #{s\ 11576}# + #{mod\ 11577}#) + (#{extend-var-env\ 10696}# + #{labels\ 11597}# + #{vars\ 11595}# + #{r\ 11574}#) + (#{make-binding-wrap\ 10753}# + #{ids\ 11593}# + #{labels\ 11597}# + #{w\ 11575}#) + #{mod\ 11577}#))))))) + (#{lambda-formals\ 10809}# + (lambda (#{orig-args\ 11600}#) + (letrec ((#{check\ 11605}# + (lambda (#{req\ 11606}# #{rest\ 11607}#) + (if (#{distinct-bound-ids?\ 10771}# + (if #{rest\ 11607}# + (cons #{rest\ 11607}# #{req\ 11606}#) + #{req\ 11606}#)) + (values #{req\ 11606}# #f #{rest\ 11607}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 5898}#)))) - (#{req\ 5901}# - (lambda (#{args\ 5911}# #{rreq\ 5912}#) - ((lambda (#{tmp\ 5915}#) - ((lambda (#{tmp\ 5916}#) - (if #{tmp\ 5916}# + #{orig-args\ 11600}#)))) + (#{req\ 11603}# + (lambda (#{args\ 11613}# #{rreq\ 11614}#) + ((lambda (#{tmp\ 11617}#) + ((lambda (#{tmp\ 11618}#) + (if #{tmp\ 11618}# (apply (lambda () - (#{check\ 5903}# - (reverse #{rreq\ 5912}#) + (#{check\ 11605}# + (reverse #{rreq\ 11614}#) #f)) - #{tmp\ 5916}#) - ((lambda (#{tmp\ 5917}#) - (if (if #{tmp\ 5917}# - (apply (lambda (#{a\ 5920}# - #{b\ 5921}#) - (#{id?\ 5004}# - #{a\ 5920}#)) - #{tmp\ 5917}#) + #{tmp\ 11618}#) + ((lambda (#{tmp\ 11619}#) + (if (if #{tmp\ 11619}# + (apply (lambda (#{a\ 11622}# + #{b\ 11623}#) + (#{id?\ 10706}# + #{a\ 11622}#)) + #{tmp\ 11619}#) #f) - (apply (lambda (#{a\ 5924}# - #{b\ 5925}#) - (#{req\ 5901}# - #{b\ 5925}# - (cons #{a\ 5924}# - #{rreq\ 5912}#))) - #{tmp\ 5917}#) - ((lambda (#{tmp\ 5926}#) - (if (if #{tmp\ 5926}# - (apply (lambda (#{r\ 5928}#) - (#{id?\ 5004}# - #{r\ 5928}#)) - #{tmp\ 5926}#) + (apply (lambda (#{a\ 11626}# + #{b\ 11627}#) + (#{req\ 11603}# + #{b\ 11627}# + (cons #{a\ 11626}# + #{rreq\ 11614}#))) + #{tmp\ 11619}#) + ((lambda (#{tmp\ 11628}#) + (if (if #{tmp\ 11628}# + (apply (lambda (#{r\ 11630}#) + (#{id?\ 10706}# + #{r\ 11630}#)) + #{tmp\ 11628}#) #f) - (apply (lambda (#{r\ 5930}#) - (#{check\ 5903}# + (apply (lambda (#{r\ 11632}#) + (#{check\ 11605}# (reverse - #{rreq\ 5912}#) - #{r\ 5930}#)) - #{tmp\ 5926}#) - ((lambda (#{else\ 5932}#) + #{rreq\ 11614}#) + #{r\ 11632}#)) + #{tmp\ 11628}#) + ((lambda (#{else\ 11634}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 5898}# - #{args\ 5911}#)) - #{tmp\ 5915}#))) - (list #{tmp\ 5915}#)))) + #{orig-args\ 11600}# + #{args\ 11613}#)) + #{tmp\ 11617}#))) + (list #{tmp\ 11617}#)))) ($sc-dispatch - #{tmp\ 5915}# + #{tmp\ 11617}# '(any . any))))) - ($sc-dispatch #{tmp\ 5915}# (quote ())))) - #{args\ 5911}#)))) - (#{req\ 5901}# #{orig-args\ 5898}# (quote ()))))) - (#{ellipsis?\ 5105}# - (lambda (#{x\ 5933}#) - (if (#{nonsymbol-id?\ 5002}# #{x\ 5933}#) - (#{free-id=?\ 5063}# - #{x\ 5933}# + ($sc-dispatch #{tmp\ 11617}# (quote ())))) + #{args\ 11613}#)))) + (#{req\ 11603}# #{orig-args\ 11600}# (quote ()))))) + (#{ellipsis?\ 10807}# + (lambda (#{x\ 11635}#) + (if (#{nonsymbol-id?\ 10704}# #{x\ 11635}#) + (#{free-id=?\ 10765}# + #{x\ 11635}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i5934")) + #(ribcage #(x) #((top)) #("i11636")) #(ribcage (lambda-var-list gen-var @@ -2229,1412 +2244,1422 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile))) #f))) - (#{chi-void\ 5103}# - (lambda () (#{build-void\ 4924}# #f))) - (#{eval-local-transformer\ 5101}# - (lambda (#{expanded\ 5938}# #{mod\ 5939}#) - (let ((#{p\ 5943}# - (#{local-eval-hook\ 4915}# - #{expanded\ 5938}# - #{mod\ 5939}#))) - (if (procedure? #{p\ 5943}#) - (cons #{p\ 5943}# (module-name (current-module))) + (#{chi-void\ 10805}# + (lambda () (#{build-void\ 10626}# #f))) + (#{eval-local-transformer\ 10803}# + (lambda (#{expanded\ 11640}# #{mod\ 11641}#) + (let ((#{p\ 11645}# + (#{local-eval-hook\ 10617}# + #{expanded\ 11640}# + #{mod\ 11641}#))) + (if (procedure? #{p\ 11645}#) + (cons #{p\ 11645}# + (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 5943}#))))) - (#{chi-local-syntax\ 5099}# - (lambda (#{rec?\ 5944}# - #{e\ 5945}# - #{r\ 5946}# - #{w\ 5947}# - #{s\ 5948}# - #{mod\ 5949}# - #{k\ 5950}#) - ((lambda (#{tmp\ 5958}#) - ((lambda (#{tmp\ 5959}#) - (if #{tmp\ 5959}# - (apply (lambda (#{_\ 5965}# - #{id\ 5966}# - #{val\ 5967}# - #{e1\ 5968}# - #{e2\ 5969}#) - (let ((#{ids\ 5971}# #{id\ 5966}#)) - (if (not (#{valid-bound-ids?\ 5067}# - #{ids\ 5971}#)) + #{p\ 11645}#))))) + (#{chi-local-syntax\ 10801}# + (lambda (#{rec?\ 11646}# + #{e\ 11647}# + #{r\ 11648}# + #{w\ 11649}# + #{s\ 11650}# + #{mod\ 11651}# + #{k\ 11652}#) + ((lambda (#{tmp\ 11660}#) + ((lambda (#{tmp\ 11661}#) + (if #{tmp\ 11661}# + (apply (lambda (#{_\ 11667}# + #{id\ 11668}# + #{val\ 11669}# + #{e1\ 11670}# + #{e2\ 11671}#) + (let ((#{ids\ 11673}# #{id\ 11668}#)) + (if (not (#{valid-bound-ids?\ 10769}# + #{ids\ 11673}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 5945}#) - (let ((#{labels\ 5974}# - (#{gen-labels\ 5022}# - #{ids\ 5971}#))) - (let ((#{new-w\ 5976}# - (#{make-binding-wrap\ 5051}# - #{ids\ 5971}# - #{labels\ 5974}# - #{w\ 5947}#))) - (#{k\ 5950}# - (cons #{e1\ 5968}# #{e2\ 5969}#) - (#{extend-env\ 4992}# - #{labels\ 5974}# - (let ((#{w\ 5980}# - (if #{rec?\ 5944}# - #{new-w\ 5976}# - #{w\ 5947}#)) - (#{trans-r\ 5981}# - (#{macros-only-env\ 4996}# - #{r\ 5946}#))) - (map (lambda (#{x\ 5982}#) + #{e\ 11647}#) + (let ((#{labels\ 11676}# + (#{gen-labels\ 10724}# + #{ids\ 11673}#))) + (let ((#{new-w\ 11678}# + (#{make-binding-wrap\ 10753}# + #{ids\ 11673}# + #{labels\ 11676}# + #{w\ 11649}#))) + (#{k\ 11652}# + (cons #{e1\ 11670}# #{e2\ 11671}#) + (#{extend-env\ 10694}# + #{labels\ 11676}# + (let ((#{w\ 11682}# + (if #{rec?\ 11646}# + #{new-w\ 11678}# + #{w\ 11649}#)) + (#{trans-r\ 11683}# + (#{macros-only-env\ 10698}# + #{r\ 11648}#))) + (map (lambda (#{x\ 11684}#) (cons 'macro - (#{eval-local-transformer\ 5101}# - (#{chi\ 5089}# - #{x\ 5982}# - #{trans-r\ 5981}# - #{w\ 5980}# - #{mod\ 5949}#) - #{mod\ 5949}#))) - #{val\ 5967}#)) - #{r\ 5946}#) - #{new-w\ 5976}# - #{s\ 5948}# - #{mod\ 5949}#)))))) - #{tmp\ 5959}#) - ((lambda (#{_\ 5987}#) + (#{eval-local-transformer\ 10803}# + (#{chi\ 10791}# + #{x\ 11684}# + #{trans-r\ 11683}# + #{w\ 11682}# + #{mod\ 11651}#) + #{mod\ 11651}#))) + #{val\ 11669}#)) + #{r\ 11648}#) + #{new-w\ 11678}# + #{s\ 11650}# + #{mod\ 11651}#)))))) + #{tmp\ 11661}#) + ((lambda (#{_\ 11689}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 5075}# - #{e\ 5945}# - #{w\ 5947}# - #{s\ 5948}# - #{mod\ 5949}#))) - #{tmp\ 5958}#))) + (#{source-wrap\ 10777}# + #{e\ 11647}# + #{w\ 11649}# + #{s\ 11650}# + #{mod\ 11651}#))) + #{tmp\ 11660}#))) ($sc-dispatch - #{tmp\ 5958}# + #{tmp\ 11660}# '(any #(each (any any)) any . each-any)))) - #{e\ 5945}#))) - (#{chi-body\ 5097}# - (lambda (#{body\ 5988}# - #{outer-form\ 5989}# - #{r\ 5990}# - #{w\ 5991}# - #{mod\ 5992}#) - (let ((#{r\ 6000}# + #{e\ 11647}#))) + (#{chi-body\ 10799}# + (lambda (#{body\ 11690}# + #{outer-form\ 11691}# + #{r\ 11692}# + #{w\ 11693}# + #{mod\ 11694}#) + (let ((#{r\ 11702}# (cons '("placeholder" placeholder) - #{r\ 5990}#))) - (let ((#{ribcage\ 6002}# - (#{make-ribcage\ 5025}# + #{r\ 11692}#))) + (let ((#{ribcage\ 11704}# + (#{make-ribcage\ 10727}# '() '() '()))) - (let ((#{w\ 6005}# - (#{make-wrap\ 5009}# - (#{wrap-marks\ 5011}# #{w\ 5991}#) - (cons #{ribcage\ 6002}# - (#{wrap-subst\ 5013}# #{w\ 5991}#))))) - (letrec ((#{parse\ 6014}# - (lambda (#{body\ 6015}# - #{ids\ 6016}# - #{labels\ 6017}# - #{var-ids\ 6018}# - #{vars\ 6019}# - #{vals\ 6020}# - #{bindings\ 6021}#) - (if (null? #{body\ 6015}#) + (let ((#{w\ 11707}# + (#{make-wrap\ 10711}# + (#{wrap-marks\ 10713}# #{w\ 11693}#) + (cons #{ribcage\ 11704}# + (#{wrap-subst\ 10715}# #{w\ 11693}#))))) + (letrec ((#{parse\ 11716}# + (lambda (#{body\ 11717}# + #{ids\ 11718}# + #{labels\ 11719}# + #{var-ids\ 11720}# + #{vars\ 11721}# + #{vals\ 11722}# + #{bindings\ 11723}#) + (if (null? #{body\ 11717}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 5989}#) - (let ((#{e\ 6026}# (cdar #{body\ 6015}#)) - (#{er\ 6027}# (caar #{body\ 6015}#))) + #{outer-form\ 11691}#) + (let ((#{e\ 11728}# (cdar #{body\ 11717}#)) + (#{er\ 11729}# + (caar #{body\ 11717}#))) (call-with-values (lambda () - (#{syntax-type\ 5085}# - #{e\ 6026}# - #{er\ 6027}# + (#{syntax-type\ 10787}# + #{e\ 11728}# + #{er\ 11729}# '(()) - (#{source-annotation\ 4983}# - #{er\ 6027}#) - #{ribcage\ 6002}# - #{mod\ 5992}# + (#{source-annotation\ 10685}# + #{er\ 11729}#) + #{ribcage\ 11704}# + #{mod\ 11694}# #f)) - (lambda (#{type\ 6029}# - #{value\ 6030}# - #{e\ 6031}# - #{w\ 6032}# - #{s\ 6033}# - #{mod\ 6034}#) - (if (memv #{type\ 6029}# + (lambda (#{type\ 11731}# + #{value\ 11732}# + #{e\ 11733}# + #{w\ 11734}# + #{s\ 11735}# + #{mod\ 11736}#) + (if (memv #{type\ 11731}# '(define-form)) - (let ((#{id\ 6044}# - (#{wrap\ 5073}# - #{value\ 6030}# - #{w\ 6032}# - #{mod\ 6034}#)) - (#{label\ 6045}# - (#{gen-label\ 5020}#))) - (let ((#{var\ 6047}# - (#{gen-var\ 5117}# - #{id\ 6044}#))) + (let ((#{id\ 11746}# + (#{wrap\ 10775}# + #{value\ 11732}# + #{w\ 11734}# + #{mod\ 11736}#)) + (#{label\ 11747}# + (#{gen-label\ 10722}#))) + (let ((#{var\ 11749}# + (#{gen-var\ 10819}# + #{id\ 11746}#))) (begin - (#{extend-ribcage!\ 5049}# - #{ribcage\ 6002}# - #{id\ 6044}# - #{label\ 6045}#) - (#{parse\ 6014}# - (cdr #{body\ 6015}#) - (cons #{id\ 6044}# - #{ids\ 6016}#) - (cons #{label\ 6045}# - #{labels\ 6017}#) - (cons #{id\ 6044}# - #{var-ids\ 6018}#) - (cons #{var\ 6047}# - #{vars\ 6019}#) - (cons (cons #{er\ 6027}# - (#{wrap\ 5073}# - #{e\ 6031}# - #{w\ 6032}# - #{mod\ 6034}#)) - #{vals\ 6020}#) + (#{extend-ribcage!\ 10751}# + #{ribcage\ 11704}# + #{id\ 11746}# + #{label\ 11747}#) + (#{parse\ 11716}# + (cdr #{body\ 11717}#) + (cons #{id\ 11746}# + #{ids\ 11718}#) + (cons #{label\ 11747}# + #{labels\ 11719}#) + (cons #{id\ 11746}# + #{var-ids\ 11720}#) + (cons #{var\ 11749}# + #{vars\ 11721}#) + (cons (cons #{er\ 11729}# + (#{wrap\ 10775}# + #{e\ 11733}# + #{w\ 11734}# + #{mod\ 11736}#)) + #{vals\ 11722}#) (cons (cons 'lexical - #{var\ 6047}#) - #{bindings\ 6021}#))))) - (if (memv #{type\ 6029}# + #{var\ 11749}#) + #{bindings\ 11723}#))))) + (if (memv #{type\ 11731}# '(define-syntax-form)) - (let ((#{id\ 6052}# - (#{wrap\ 5073}# - #{value\ 6030}# - #{w\ 6032}# - #{mod\ 6034}#)) - (#{label\ 6053}# - (#{gen-label\ 5020}#))) + (let ((#{id\ 11754}# + (#{wrap\ 10775}# + #{value\ 11732}# + #{w\ 11734}# + #{mod\ 11736}#)) + (#{label\ 11755}# + (#{gen-label\ 10722}#))) (begin - (#{extend-ribcage!\ 5049}# - #{ribcage\ 6002}# - #{id\ 6052}# - #{label\ 6053}#) - (#{parse\ 6014}# - (cdr #{body\ 6015}#) - (cons #{id\ 6052}# - #{ids\ 6016}#) - (cons #{label\ 6053}# - #{labels\ 6017}#) - #{var-ids\ 6018}# - #{vars\ 6019}# - #{vals\ 6020}# + (#{extend-ribcage!\ 10751}# + #{ribcage\ 11704}# + #{id\ 11754}# + #{label\ 11755}#) + (#{parse\ 11716}# + (cdr #{body\ 11717}#) + (cons #{id\ 11754}# + #{ids\ 11718}#) + (cons #{label\ 11755}# + #{labels\ 11719}#) + #{var-ids\ 11720}# + #{vars\ 11721}# + #{vals\ 11722}# (cons (cons 'macro - (cons #{er\ 6027}# - (#{wrap\ 5073}# - #{e\ 6031}# - #{w\ 6032}# - #{mod\ 6034}#))) - #{bindings\ 6021}#)))) - (if (memv #{type\ 6029}# + (cons #{er\ 11729}# + (#{wrap\ 10775}# + #{e\ 11733}# + #{w\ 11734}# + #{mod\ 11736}#))) + #{bindings\ 11723}#)))) + (if (memv #{type\ 11731}# '(begin-form)) - ((lambda (#{tmp\ 6056}#) - ((lambda (#{tmp\ 6057}#) - (if #{tmp\ 6057}# - (apply (lambda (#{_\ 6060}# - #{e1\ 6061}#) - (#{parse\ 6014}# - (letrec ((#{f\ 6064}# - (lambda (#{forms\ 6065}#) - (if (null? #{forms\ 6065}#) - (cdr #{body\ 6015}#) - (cons (cons #{er\ 6027}# - (#{wrap\ 5073}# - (car #{forms\ 6065}#) - #{w\ 6032}# - #{mod\ 6034}#)) - (#{f\ 6064}# - (cdr #{forms\ 6065}#))))))) - (#{f\ 6064}# - #{e1\ 6061}#)) - #{ids\ 6016}# - #{labels\ 6017}# - #{var-ids\ 6018}# - #{vars\ 6019}# - #{vals\ 6020}# - #{bindings\ 6021}#)) - #{tmp\ 6057}#) + ((lambda (#{tmp\ 11758}#) + ((lambda (#{tmp\ 11759}#) + (if #{tmp\ 11759}# + (apply (lambda (#{_\ 11762}# + #{e1\ 11763}#) + (#{parse\ 11716}# + (letrec ((#{f\ 11766}# + (lambda (#{forms\ 11767}#) + (if (null? #{forms\ 11767}#) + (cdr #{body\ 11717}#) + (cons (cons #{er\ 11729}# + (#{wrap\ 10775}# + (car #{forms\ 11767}#) + #{w\ 11734}# + #{mod\ 11736}#)) + (#{f\ 11766}# + (cdr #{forms\ 11767}#))))))) + (#{f\ 11766}# + #{e1\ 11763}#)) + #{ids\ 11718}# + #{labels\ 11719}# + #{var-ids\ 11720}# + #{vars\ 11721}# + #{vals\ 11722}# + #{bindings\ 11723}#)) + #{tmp\ 11759}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6056}#))) + #{tmp\ 11758}#))) ($sc-dispatch - #{tmp\ 6056}# + #{tmp\ 11758}# '(any . each-any)))) - #{e\ 6031}#) - (if (memv #{type\ 6029}# + #{e\ 11733}#) + (if (memv #{type\ 11731}# '(local-syntax-form)) - (#{chi-local-syntax\ 5099}# - #{value\ 6030}# - #{e\ 6031}# - #{er\ 6027}# - #{w\ 6032}# - #{s\ 6033}# - #{mod\ 6034}# - (lambda (#{forms\ 6068}# - #{er\ 6069}# - #{w\ 6070}# - #{s\ 6071}# - #{mod\ 6072}#) - (#{parse\ 6014}# - (letrec ((#{f\ 6080}# - (lambda (#{forms\ 6081}#) - (if (null? #{forms\ 6081}#) - (cdr #{body\ 6015}#) - (cons (cons #{er\ 6069}# - (#{wrap\ 5073}# - (car #{forms\ 6081}#) - #{w\ 6070}# - #{mod\ 6072}#)) - (#{f\ 6080}# - (cdr #{forms\ 6081}#))))))) - (#{f\ 6080}# - #{forms\ 6068}#)) - #{ids\ 6016}# - #{labels\ 6017}# - #{var-ids\ 6018}# - #{vars\ 6019}# - #{vals\ 6020}# - #{bindings\ 6021}#))) - (if (null? #{ids\ 6016}#) - (#{build-sequence\ 4956}# + (#{chi-local-syntax\ 10801}# + #{value\ 11732}# + #{e\ 11733}# + #{er\ 11729}# + #{w\ 11734}# + #{s\ 11735}# + #{mod\ 11736}# + (lambda (#{forms\ 11770}# + #{er\ 11771}# + #{w\ 11772}# + #{s\ 11773}# + #{mod\ 11774}#) + (#{parse\ 11716}# + (letrec ((#{f\ 11782}# + (lambda (#{forms\ 11783}#) + (if (null? #{forms\ 11783}#) + (cdr #{body\ 11717}#) + (cons (cons #{er\ 11771}# + (#{wrap\ 10775}# + (car #{forms\ 11783}#) + #{w\ 11772}# + #{mod\ 11774}#)) + (#{f\ 11782}# + (cdr #{forms\ 11783}#))))))) + (#{f\ 11782}# + #{forms\ 11770}#)) + #{ids\ 11718}# + #{labels\ 11719}# + #{var-ids\ 11720}# + #{vars\ 11721}# + #{vals\ 11722}# + #{bindings\ 11723}#))) + (if (null? #{ids\ 11718}#) + (#{build-sequence\ 10658}# #f - (map (lambda (#{x\ 6084}#) - (#{chi\ 5089}# - (cdr #{x\ 6084}#) - (car #{x\ 6084}#) + (map (lambda (#{x\ 11786}#) + (#{chi\ 10791}# + (cdr #{x\ 11786}#) + (car #{x\ 11786}#) '(()) - #{mod\ 6034}#)) - (cons (cons #{er\ 6027}# - (#{source-wrap\ 5075}# - #{e\ 6031}# - #{w\ 6032}# - #{s\ 6033}# - #{mod\ 6034}#)) - (cdr #{body\ 6015}#)))) + #{mod\ 11736}#)) + (cons (cons #{er\ 11729}# + (#{source-wrap\ 10777}# + #{e\ 11733}# + #{w\ 11734}# + #{s\ 11735}# + #{mod\ 11736}#)) + (cdr #{body\ 11717}#)))) (begin - (if (not (#{valid-bound-ids?\ 5067}# - #{ids\ 6016}#)) + (if (not (#{valid-bound-ids?\ 10769}# + #{ids\ 11718}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 5989}#)) - (letrec ((#{loop\ 6091}# - (lambda (#{bs\ 6092}# - #{er-cache\ 6093}# - #{r-cache\ 6094}#) - (if (not (null? #{bs\ 6092}#)) - (let ((#{b\ 6097}# - (car #{bs\ 6092}#))) - (if (eq? (car #{b\ 6097}#) + #{outer-form\ 11691}#)) + (letrec ((#{loop\ 11793}# + (lambda (#{bs\ 11794}# + #{er-cache\ 11795}# + #{r-cache\ 11796}#) + (if (not (null? #{bs\ 11794}#)) + (let ((#{b\ 11799}# + (car #{bs\ 11794}#))) + (if (eq? (car #{b\ 11799}#) 'macro) - (let ((#{er\ 6100}# - (cadr #{b\ 6097}#))) - (let ((#{r-cache\ 6102}# - (if (eq? #{er\ 6100}# - #{er-cache\ 6093}#) - #{r-cache\ 6094}# - (#{macros-only-env\ 4996}# - #{er\ 6100}#)))) + (let ((#{er\ 11802}# + (cadr #{b\ 11799}#))) + (let ((#{r-cache\ 11804}# + (if (eq? #{er\ 11802}# + #{er-cache\ 11795}#) + #{r-cache\ 11796}# + (#{macros-only-env\ 10698}# + #{er\ 11802}#)))) (begin (set-cdr! - #{b\ 6097}# - (#{eval-local-transformer\ 5101}# - (#{chi\ 5089}# - (cddr #{b\ 6097}#) - #{r-cache\ 6102}# + #{b\ 11799}# + (#{eval-local-transformer\ 10803}# + (#{chi\ 10791}# + (cddr #{b\ 11799}#) + #{r-cache\ 11804}# '(()) - #{mod\ 6034}#) - #{mod\ 6034}#)) - (#{loop\ 6091}# - (cdr #{bs\ 6092}#) - #{er\ 6100}# - #{r-cache\ 6102}#)))) - (#{loop\ 6091}# - (cdr #{bs\ 6092}#) - #{er-cache\ 6093}# - #{r-cache\ 6094}#))))))) - (#{loop\ 6091}# - #{bindings\ 6021}# + #{mod\ 11736}#) + #{mod\ 11736}#)) + (#{loop\ 11793}# + (cdr #{bs\ 11794}#) + #{er\ 11802}# + #{r-cache\ 11804}#)))) + (#{loop\ 11793}# + (cdr #{bs\ 11794}#) + #{er-cache\ 11795}# + #{r-cache\ 11796}#))))))) + (#{loop\ 11793}# + #{bindings\ 11723}# #f #f)) (set-cdr! - #{r\ 6000}# - (#{extend-env\ 4992}# - #{labels\ 6017}# - #{bindings\ 6021}# - (cdr #{r\ 6000}#))) - (#{build-letrec\ 4962}# + #{r\ 11702}# + (#{extend-env\ 10694}# + #{labels\ 11719}# + #{bindings\ 11723}# + (cdr #{r\ 11702}#))) + (#{build-letrec\ 10664}# #f (map syntax->datum - #{var-ids\ 6018}#) - #{vars\ 6019}# - (map (lambda (#{x\ 6105}#) - (#{chi\ 5089}# - (cdr #{x\ 6105}#) - (car #{x\ 6105}#) + #{var-ids\ 11720}#) + #{vars\ 11721}# + (map (lambda (#{x\ 11807}#) + (#{chi\ 10791}# + (cdr #{x\ 11807}#) + (car #{x\ 11807}#) '(()) - #{mod\ 6034}#)) - #{vals\ 6020}#) - (#{build-sequence\ 4956}# + #{mod\ 11736}#)) + #{vals\ 11722}#) + (#{build-sequence\ 10658}# #f - (map (lambda (#{x\ 6109}#) - (#{chi\ 5089}# - (cdr #{x\ 6109}#) - (car #{x\ 6109}#) + (map (lambda (#{x\ 11811}#) + (#{chi\ 10791}# + (cdr #{x\ 11811}#) + (car #{x\ 11811}#) '(()) - #{mod\ 6034}#)) - (cons (cons #{er\ 6027}# - (#{source-wrap\ 5075}# - #{e\ 6031}# - #{w\ 6032}# - #{s\ 6033}# - #{mod\ 6034}#)) - (cdr #{body\ 6015}#)))))))))))))))))) - (#{parse\ 6014}# - (map (lambda (#{x\ 6022}#) - (cons #{r\ 6000}# - (#{wrap\ 5073}# - #{x\ 6022}# - #{w\ 6005}# - #{mod\ 5992}#))) - #{body\ 5988}#) + #{mod\ 11736}#)) + (cons (cons #{er\ 11729}# + (#{source-wrap\ 10777}# + #{e\ 11733}# + #{w\ 11734}# + #{s\ 11735}# + #{mod\ 11736}#)) + (cdr #{body\ 11717}#)))))))))))))))))) + (#{parse\ 11716}# + (map (lambda (#{x\ 11724}#) + (cons #{r\ 11702}# + (#{wrap\ 10775}# + #{x\ 11724}# + #{w\ 11707}# + #{mod\ 11694}#))) + #{body\ 11690}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 5095}# - (lambda (#{p\ 6112}# - #{e\ 6113}# - #{r\ 6114}# - #{w\ 6115}# - #{rib\ 6116}# - #{mod\ 6117}#) - (letrec ((#{rebuild-macro-output\ 6125}# - (lambda (#{x\ 6126}# #{m\ 6127}#) - (if (pair? #{x\ 6126}#) - (cons (#{rebuild-macro-output\ 6125}# - (car #{x\ 6126}#) - #{m\ 6127}#) - (#{rebuild-macro-output\ 6125}# - (cdr #{x\ 6126}#) - #{m\ 6127}#)) - (if (#{syntax-object?\ 4968}# #{x\ 6126}#) - (let ((#{w\ 6135}# - (#{syntax-object-wrap\ 4972}# - #{x\ 6126}#))) - (let ((#{ms\ 6138}# - (#{wrap-marks\ 5011}# #{w\ 6135}#)) - (#{s\ 6139}# - (#{wrap-subst\ 5013}# #{w\ 6135}#))) - (if (if (pair? #{ms\ 6138}#) - (eq? (car #{ms\ 6138}#) #f) + (#{chi-macro\ 10797}# + (lambda (#{p\ 11814}# + #{e\ 11815}# + #{r\ 11816}# + #{w\ 11817}# + #{rib\ 11818}# + #{mod\ 11819}#) + (letrec ((#{rebuild-macro-output\ 11827}# + (lambda (#{x\ 11828}# #{m\ 11829}#) + (if (pair? #{x\ 11828}#) + (cons (#{rebuild-macro-output\ 11827}# + (car #{x\ 11828}#) + #{m\ 11829}#) + (#{rebuild-macro-output\ 11827}# + (cdr #{x\ 11828}#) + #{m\ 11829}#)) + (if (#{syntax-object?\ 10670}# #{x\ 11828}#) + (let ((#{w\ 11837}# + (#{syntax-object-wrap\ 10674}# + #{x\ 11828}#))) + (let ((#{ms\ 11840}# + (#{wrap-marks\ 10713}# #{w\ 11837}#)) + (#{s\ 11841}# + (#{wrap-subst\ 10715}# + #{w\ 11837}#))) + (if (if (pair? #{ms\ 11840}#) + (eq? (car #{ms\ 11840}#) #f) #f) - (#{make-syntax-object\ 4966}# - (#{syntax-object-expression\ 4970}# - #{x\ 6126}#) - (#{make-wrap\ 5009}# - (cdr #{ms\ 6138}#) - (if #{rib\ 6116}# - (cons #{rib\ 6116}# - (cdr #{s\ 6139}#)) - (cdr #{s\ 6139}#))) - (#{syntax-object-module\ 4974}# - #{x\ 6126}#)) - (#{make-syntax-object\ 4966}# - (#{syntax-object-expression\ 4970}# - #{x\ 6126}#) - (#{make-wrap\ 5009}# - (cons #{m\ 6127}# #{ms\ 6138}#) - (if #{rib\ 6116}# - (cons #{rib\ 6116}# + (#{make-syntax-object\ 10668}# + (#{syntax-object-expression\ 10672}# + #{x\ 11828}#) + (#{make-wrap\ 10711}# + (cdr #{ms\ 11840}#) + (if #{rib\ 11818}# + (cons #{rib\ 11818}# + (cdr #{s\ 11841}#)) + (cdr #{s\ 11841}#))) + (#{syntax-object-module\ 10676}# + #{x\ 11828}#)) + (#{make-syntax-object\ 10668}# + (#{syntax-object-expression\ 10672}# + #{x\ 11828}#) + (#{make-wrap\ 10711}# + (cons #{m\ 11829}# #{ms\ 11840}#) + (if #{rib\ 11818}# + (cons #{rib\ 11818}# (cons 'shift - #{s\ 6139}#)) - (cons (quote shift) #{s\ 6139}#))) + #{s\ 11841}#)) + (cons (quote shift) #{s\ 11841}#))) (cons 'hygiene - (cdr #{p\ 6112}#)))))) - (if (vector? #{x\ 6126}#) - (let ((#{n\ 6147}# - (vector-length #{x\ 6126}#))) - (let ((#{v\ 6149}# - (make-vector #{n\ 6147}#))) - (letrec ((#{loop\ 6152}# - (lambda (#{i\ 6153}#) - (if (#{fx=\ 4909}# - #{i\ 6153}# - #{n\ 6147}#) + (cdr #{p\ 11814}#)))))) + (if (vector? #{x\ 11828}#) + (let ((#{n\ 11849}# + (vector-length #{x\ 11828}#))) + (let ((#{v\ 11851}# + (make-vector #{n\ 11849}#))) + (letrec ((#{loop\ 11854}# + (lambda (#{i\ 11855}#) + (if (#{fx=\ 10611}# + #{i\ 11855}# + #{n\ 11849}#) (begin (if #f #f) - #{v\ 6149}#) + #{v\ 11851}#) (begin (vector-set! - #{v\ 6149}# - #{i\ 6153}# - (#{rebuild-macro-output\ 6125}# + #{v\ 11851}# + #{i\ 11855}# + (#{rebuild-macro-output\ 11827}# (vector-ref - #{x\ 6126}# - #{i\ 6153}#) - #{m\ 6127}#)) - (#{loop\ 6152}# - (#{fx+\ 4905}# - #{i\ 6153}# + #{x\ 11828}# + #{i\ 11855}#) + #{m\ 11829}#)) + (#{loop\ 11854}# + (#{fx+\ 10607}# + #{i\ 11855}# 1))))))) - (#{loop\ 6152}# 0)))) - (if (symbol? #{x\ 6126}#) + (#{loop\ 11854}# 0)))) + (if (symbol? #{x\ 11828}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 5075}# - #{e\ 6113}# - #{w\ 6115}# - (#{wrap-subst\ 5013}# #{w\ 6115}#) - #{mod\ 6117}#) - #{x\ 6126}#) - #{x\ 6126}#))))))) - (#{rebuild-macro-output\ 6125}# - ((car #{p\ 6112}#) - (#{wrap\ 5073}# - #{e\ 6113}# - (#{anti-mark\ 5045}# #{w\ 6115}#) - #{mod\ 6117}#)) + (#{source-wrap\ 10777}# + #{e\ 11815}# + #{w\ 11817}# + (#{wrap-subst\ 10715}# #{w\ 11817}#) + #{mod\ 11819}#) + #{x\ 11828}#) + #{x\ 11828}#))))))) + (#{rebuild-macro-output\ 11827}# + ((car #{p\ 11814}#) + (#{wrap\ 10775}# + #{e\ 11815}# + (#{anti-mark\ 10747}# #{w\ 11817}#) + #{mod\ 11819}#)) (gensym "m"))))) - (#{chi-application\ 5093}# - (lambda (#{x\ 6160}# - #{e\ 6161}# - #{r\ 6162}# - #{w\ 6163}# - #{s\ 6164}# - #{mod\ 6165}#) - ((lambda (#{tmp\ 6172}#) - ((lambda (#{tmp\ 6173}#) - (if #{tmp\ 6173}# - (apply (lambda (#{e0\ 6176}# #{e1\ 6177}#) - (#{build-application\ 4926}# - #{s\ 6164}# - #{x\ 6160}# - (map (lambda (#{e\ 6178}#) - (#{chi\ 5089}# - #{e\ 6178}# - #{r\ 6162}# - #{w\ 6163}# - #{mod\ 6165}#)) - #{e1\ 6177}#))) - #{tmp\ 6173}#) + (#{chi-application\ 10795}# + (lambda (#{x\ 11862}# + #{e\ 11863}# + #{r\ 11864}# + #{w\ 11865}# + #{s\ 11866}# + #{mod\ 11867}#) + ((lambda (#{tmp\ 11874}#) + ((lambda (#{tmp\ 11875}#) + (if #{tmp\ 11875}# + (apply (lambda (#{e0\ 11878}# #{e1\ 11879}#) + (#{build-application\ 10628}# + #{s\ 11866}# + #{x\ 11862}# + (map (lambda (#{e\ 11880}#) + (#{chi\ 10791}# + #{e\ 11880}# + #{r\ 11864}# + #{w\ 11865}# + #{mod\ 11867}#)) + #{e1\ 11879}#))) + #{tmp\ 11875}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6172}#))) + #{tmp\ 11874}#))) ($sc-dispatch - #{tmp\ 6172}# + #{tmp\ 11874}# '(any . each-any)))) - #{e\ 6161}#))) - (#{chi-expr\ 5091}# - (lambda (#{type\ 6181}# - #{value\ 6182}# - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (lexical))) - (#{build-lexical-reference\ 4932}# + #{e\ 11863}#))) + (#{chi-expr\ 10793}# + (lambda (#{type\ 11883}# + #{value\ 11884}# + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (lexical))) + (#{build-lexical-reference\ 10634}# 'value - #{s\ 6186}# - #{e\ 6183}# - #{value\ 6182}#) - (if (memv #{type\ 6181}# (quote (core core-form))) - (#{value\ 6182}# - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (module-ref))) + #{s\ 11888}# + #{e\ 11885}# + #{value\ 11884}#) + (if (memv #{type\ 11883}# (quote (core core-form))) + (#{value\ 11884}# + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (module-ref))) (call-with-values (lambda () - (#{value\ 6182}# - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}#)) - (lambda (#{e\ 6198}# - #{r\ 6199}# - #{w\ 6200}# - #{s\ 6201}# - #{mod\ 6202}#) - (#{chi\ 5089}# - #{e\ 6198}# - #{r\ 6199}# - #{w\ 6200}# - #{mod\ 6202}#))) - (if (memv #{type\ 6181}# (quote (lexical-call))) - (#{chi-application\ 5093}# - (#{build-lexical-reference\ 4932}# + (#{value\ 11884}# + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}#)) + (lambda (#{e\ 11900}# + #{r\ 11901}# + #{w\ 11902}# + #{s\ 11903}# + #{mod\ 11904}#) + (#{chi\ 10791}# + #{e\ 11900}# + #{r\ 11901}# + #{w\ 11902}# + #{mod\ 11904}#))) + (if (memv #{type\ 11883}# (quote (lexical-call))) + (#{chi-application\ 10795}# + (#{build-lexical-reference\ 10634}# 'fun - (#{source-annotation\ 4983}# (car #{e\ 6183}#)) - (car #{e\ 6183}#) - #{value\ 6182}#) - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (global-call))) - (#{chi-application\ 5093}# - (#{build-global-reference\ 4938}# - (#{source-annotation\ 4983}# (car #{e\ 6183}#)) - (if (#{syntax-object?\ 4968}# #{value\ 6182}#) - (#{syntax-object-expression\ 4970}# - #{value\ 6182}#) - #{value\ 6182}#) - (if (#{syntax-object?\ 4968}# #{value\ 6182}#) - (#{syntax-object-module\ 4974}# #{value\ 6182}#) - #{mod\ 6187}#)) - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (constant))) - (#{build-data\ 4954}# - #{s\ 6186}# - (#{strip\ 5115}# - (#{source-wrap\ 5075}# - #{e\ 6183}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) + (#{source-annotation\ 10685}# (car #{e\ 11885}#)) + (car #{e\ 11885}#) + #{value\ 11884}#) + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (global-call))) + (#{chi-application\ 10795}# + (#{build-global-reference\ 10640}# + (#{source-annotation\ 10685}# (car #{e\ 11885}#)) + (if (#{syntax-object?\ 10670}# #{value\ 11884}#) + (#{syntax-object-expression\ 10672}# + #{value\ 11884}#) + #{value\ 11884}#) + (if (#{syntax-object?\ 10670}# #{value\ 11884}#) + (#{syntax-object-module\ 10676}# + #{value\ 11884}#) + #{mod\ 11889}#)) + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (constant))) + (#{build-data\ 10656}# + #{s\ 11888}# + (#{strip\ 10817}# + (#{source-wrap\ 10777}# + #{e\ 11885}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) '(()))) - (if (memv #{type\ 6181}# (quote (global))) - (#{build-global-reference\ 4938}# - #{s\ 6186}# - #{value\ 6182}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (call))) - (#{chi-application\ 5093}# - (#{chi\ 5089}# - (car #{e\ 6183}#) - #{r\ 6184}# - #{w\ 6185}# - #{mod\ 6187}#) - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (if (memv #{type\ 6181}# (quote (begin-form))) - ((lambda (#{tmp\ 6215}#) - ((lambda (#{tmp\ 6216}#) - (if #{tmp\ 6216}# - (apply (lambda (#{_\ 6220}# - #{e1\ 6221}# - #{e2\ 6222}#) - (#{chi-sequence\ 5077}# - (cons #{e1\ 6221}# - #{e2\ 6222}#) - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#)) - #{tmp\ 6216}#) + (if (memv #{type\ 11883}# (quote (global))) + (#{build-global-reference\ 10640}# + #{s\ 11888}# + #{value\ 11884}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (call))) + (#{chi-application\ 10795}# + (#{chi\ 10791}# + (car #{e\ 11885}#) + #{r\ 11886}# + #{w\ 11887}# + #{mod\ 11889}#) + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (if (memv #{type\ 11883}# (quote (begin-form))) + ((lambda (#{tmp\ 11917}#) + ((lambda (#{tmp\ 11918}#) + (if #{tmp\ 11918}# + (apply (lambda (#{_\ 11922}# + #{e1\ 11923}# + #{e2\ 11924}#) + (#{chi-sequence\ 10779}# + (cons #{e1\ 11923}# + #{e2\ 11924}#) + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#)) + #{tmp\ 11918}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6215}#))) + #{tmp\ 11917}#))) ($sc-dispatch - #{tmp\ 6215}# + #{tmp\ 11917}# '(any any . each-any)))) - #{e\ 6183}#) - (if (memv #{type\ 6181}# + #{e\ 11885}#) + (if (memv #{type\ 11883}# '(local-syntax-form)) - (#{chi-local-syntax\ 5099}# - #{value\ 6182}# - #{e\ 6183}# - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}# - #{chi-sequence\ 5077}#) - (if (memv #{type\ 6181}# + (#{chi-local-syntax\ 10801}# + #{value\ 11884}# + #{e\ 11885}# + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}# + #{chi-sequence\ 10779}#) + (if (memv #{type\ 11883}# '(eval-when-form)) - ((lambda (#{tmp\ 6226}#) - ((lambda (#{tmp\ 6227}#) - (if #{tmp\ 6227}# - (apply (lambda (#{_\ 6232}# - #{x\ 6233}# - #{e1\ 6234}# - #{e2\ 6235}#) - (let ((#{when-list\ 6237}# - (#{chi-when-list\ 5083}# - #{e\ 6183}# - #{x\ 6233}# - #{w\ 6185}#))) + ((lambda (#{tmp\ 11928}#) + ((lambda (#{tmp\ 11929}#) + (if #{tmp\ 11929}# + (apply (lambda (#{_\ 11934}# + #{x\ 11935}# + #{e1\ 11936}# + #{e2\ 11937}#) + (let ((#{when-list\ 11939}# + (#{chi-when-list\ 10785}# + #{e\ 11885}# + #{x\ 11935}# + #{w\ 11887}#))) (if (memq 'eval - #{when-list\ 6237}#) - (#{chi-sequence\ 5077}# - (cons #{e1\ 6234}# - #{e2\ 6235}#) - #{r\ 6184}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#) - (#{chi-void\ 5103}#)))) - #{tmp\ 6227}#) + #{when-list\ 11939}#) + (#{chi-sequence\ 10779}# + (cons #{e1\ 11936}# + #{e2\ 11937}#) + #{r\ 11886}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#) + (#{chi-void\ 10805}#)))) + #{tmp\ 11929}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6226}#))) + #{tmp\ 11928}#))) ($sc-dispatch - #{tmp\ 6226}# + #{tmp\ 11928}# '(any each-any any . each-any)))) - #{e\ 6183}#) - (if (memv #{type\ 6181}# + #{e\ 11885}#) + (if (memv #{type\ 11883}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 6183}# - (#{wrap\ 5073}# - #{value\ 6182}# - #{w\ 6185}# - #{mod\ 6187}#)) - (if (memv #{type\ 6181}# + #{e\ 11885}# + (#{wrap\ 10775}# + #{value\ 11884}# + #{w\ 11887}# + #{mod\ 11889}#)) + (if (memv #{type\ 11883}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 5075}# - #{e\ 6183}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#)) - (if (memv #{type\ 6181}# + (#{source-wrap\ 10777}# + #{e\ 11885}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#)) + (if (memv #{type\ 11883}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 5075}# - #{e\ 6183}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#)) + (#{source-wrap\ 10777}# + #{e\ 11885}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 5075}# - #{e\ 6183}# - #{w\ 6185}# - #{s\ 6186}# - #{mod\ 6187}#)))))))))))))))))) - (#{chi\ 5089}# - (lambda (#{e\ 6244}# - #{r\ 6245}# - #{w\ 6246}# - #{mod\ 6247}#) + (#{source-wrap\ 10777}# + #{e\ 11885}# + #{w\ 11887}# + #{s\ 11888}# + #{mod\ 11889}#)))))))))))))))))) + (#{chi\ 10791}# + (lambda (#{e\ 11946}# + #{r\ 11947}# + #{w\ 11948}# + #{mod\ 11949}#) (call-with-values (lambda () - (#{syntax-type\ 5085}# - #{e\ 6244}# - #{r\ 6245}# - #{w\ 6246}# - (#{source-annotation\ 4983}# #{e\ 6244}#) + (#{syntax-type\ 10787}# + #{e\ 11946}# + #{r\ 11947}# + #{w\ 11948}# + (#{source-annotation\ 10685}# #{e\ 11946}#) #f - #{mod\ 6247}# + #{mod\ 11949}# #f)) - (lambda (#{type\ 6252}# - #{value\ 6253}# - #{e\ 6254}# - #{w\ 6255}# - #{s\ 6256}# - #{mod\ 6257}#) - (#{chi-expr\ 5091}# - #{type\ 6252}# - #{value\ 6253}# - #{e\ 6254}# - #{r\ 6245}# - #{w\ 6255}# - #{s\ 6256}# - #{mod\ 6257}#))))) - (#{chi-top\ 5087}# - (lambda (#{e\ 6264}# - #{r\ 6265}# - #{w\ 6266}# - #{m\ 6267}# - #{esew\ 6268}# - #{mod\ 6269}#) + (lambda (#{type\ 11954}# + #{value\ 11955}# + #{e\ 11956}# + #{w\ 11957}# + #{s\ 11958}# + #{mod\ 11959}#) + (#{chi-expr\ 10793}# + #{type\ 11954}# + #{value\ 11955}# + #{e\ 11956}# + #{r\ 11947}# + #{w\ 11957}# + #{s\ 11958}# + #{mod\ 11959}#))))) + (#{chi-top\ 10789}# + (lambda (#{e\ 11966}# + #{r\ 11967}# + #{w\ 11968}# + #{m\ 11969}# + #{esew\ 11970}# + #{mod\ 11971}#) (call-with-values (lambda () - (#{syntax-type\ 5085}# - #{e\ 6264}# - #{r\ 6265}# - #{w\ 6266}# - (#{source-annotation\ 4983}# #{e\ 6264}#) + (#{syntax-type\ 10787}# + #{e\ 11966}# + #{r\ 11967}# + #{w\ 11968}# + (#{source-annotation\ 10685}# #{e\ 11966}#) #f - #{mod\ 6269}# + #{mod\ 11971}# #f)) - (lambda (#{type\ 6290}# - #{value\ 6291}# - #{e\ 6292}# - #{w\ 6293}# - #{s\ 6294}# - #{mod\ 6295}#) - (if (memv #{type\ 6290}# (quote (begin-form))) - ((lambda (#{tmp\ 6303}#) - ((lambda (#{tmp\ 6304}#) - (if #{tmp\ 6304}# - (apply (lambda (#{_\ 6306}#) (#{chi-void\ 5103}#)) - #{tmp\ 6304}#) - ((lambda (#{tmp\ 6307}#) - (if #{tmp\ 6307}# - (apply (lambda (#{_\ 6311}# - #{e1\ 6312}# - #{e2\ 6313}#) - (#{chi-top-sequence\ 5079}# - (cons #{e1\ 6312}# #{e2\ 6313}#) - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# - #{m\ 6267}# - #{esew\ 6268}# - #{mod\ 6295}#)) - #{tmp\ 6307}#) + (lambda (#{type\ 11992}# + #{value\ 11993}# + #{e\ 11994}# + #{w\ 11995}# + #{s\ 11996}# + #{mod\ 11997}#) + (if (memv #{type\ 11992}# (quote (begin-form))) + ((lambda (#{tmp\ 12005}#) + ((lambda (#{tmp\ 12006}#) + (if #{tmp\ 12006}# + (apply (lambda (#{_\ 12008}#) + (#{chi-void\ 10805}#)) + #{tmp\ 12006}#) + ((lambda (#{tmp\ 12009}#) + (if #{tmp\ 12009}# + (apply (lambda (#{_\ 12013}# + #{e1\ 12014}# + #{e2\ 12015}#) + (#{chi-top-sequence\ 10781}# + (cons #{e1\ 12014}# #{e2\ 12015}#) + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# + #{m\ 11969}# + #{esew\ 11970}# + #{mod\ 11997}#)) + #{tmp\ 12009}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6303}#))) + #{tmp\ 12005}#))) ($sc-dispatch - #{tmp\ 6303}# + #{tmp\ 12005}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 6303}# (quote (any))))) - #{e\ 6292}#) - (if (memv #{type\ 6290}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 5099}# - #{value\ 6291}# - #{e\ 6292}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# - #{mod\ 6295}# - (lambda (#{body\ 6316}# - #{r\ 6317}# - #{w\ 6318}# - #{s\ 6319}# - #{mod\ 6320}#) - (#{chi-top-sequence\ 5079}# - #{body\ 6316}# - #{r\ 6317}# - #{w\ 6318}# - #{s\ 6319}# - #{m\ 6267}# - #{esew\ 6268}# - #{mod\ 6320}#))) - (if (memv #{type\ 6290}# (quote (eval-when-form))) - ((lambda (#{tmp\ 6327}#) - ((lambda (#{tmp\ 6328}#) - (if #{tmp\ 6328}# - (apply (lambda (#{_\ 6333}# - #{x\ 6334}# - #{e1\ 6335}# - #{e2\ 6336}#) - (let ((#{when-list\ 6339}# - (#{chi-when-list\ 5083}# - #{e\ 6292}# - #{x\ 6334}# - #{w\ 6293}#)) - (#{body\ 6340}# - (cons #{e1\ 6335}# - #{e2\ 6336}#))) - (if (eq? #{m\ 6267}# (quote e)) + ($sc-dispatch #{tmp\ 12005}# (quote (any))))) + #{e\ 11994}#) + (if (memv #{type\ 11992}# + '(local-syntax-form)) + (#{chi-local-syntax\ 10801}# + #{value\ 11993}# + #{e\ 11994}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# + #{mod\ 11997}# + (lambda (#{body\ 12018}# + #{r\ 12019}# + #{w\ 12020}# + #{s\ 12021}# + #{mod\ 12022}#) + (#{chi-top-sequence\ 10781}# + #{body\ 12018}# + #{r\ 12019}# + #{w\ 12020}# + #{s\ 12021}# + #{m\ 11969}# + #{esew\ 11970}# + #{mod\ 12022}#))) + (if (memv #{type\ 11992}# (quote (eval-when-form))) + ((lambda (#{tmp\ 12029}#) + ((lambda (#{tmp\ 12030}#) + (if #{tmp\ 12030}# + (apply (lambda (#{_\ 12035}# + #{x\ 12036}# + #{e1\ 12037}# + #{e2\ 12038}#) + (let ((#{when-list\ 12041}# + (#{chi-when-list\ 10785}# + #{e\ 11994}# + #{x\ 12036}# + #{w\ 11995}#)) + (#{body\ 12042}# + (cons #{e1\ 12037}# + #{e2\ 12038}#))) + (if (eq? #{m\ 11969}# (quote e)) (if (memq 'eval - #{when-list\ 6339}#) - (#{chi-top-sequence\ 5079}# - #{body\ 6340}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# + #{when-list\ 12041}#) + (#{chi-top-sequence\ 10781}# + #{body\ 12042}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# (if (memq 'expand - #{when-list\ 6339}#) + #{when-list\ 12041}#) 'c&e 'e) '(eval) - #{mod\ 6295}#) + #{mod\ 11997}#) (begin (if (memq 'expand - #{when-list\ 6339}#) - (#{top-level-eval-hook\ 4913}# - (#{chi-top-sequence\ 5079}# - #{body\ 6340}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# + #{when-list\ 12041}#) + (#{top-level-eval-hook\ 10615}# + (#{chi-top-sequence\ 10781}# + #{body\ 12042}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# 'e '(eval) - #{mod\ 6295}#) - #{mod\ 6295}#)) - (#{chi-void\ 5103}#))) + #{mod\ 11997}#) + #{mod\ 11997}#)) + (#{chi-void\ 10805}#))) (if (memq 'load - #{when-list\ 6339}#) - (if (let ((#{t\ 6349}# + #{when-list\ 12041}#) + (if (let ((#{t\ 12051}# (memq 'compile - #{when-list\ 6339}#))) - (if #{t\ 6349}# - #{t\ 6349}# - (let ((#{t\ 6352}# + #{when-list\ 12041}#))) + (if #{t\ 12051}# + #{t\ 12051}# + (let ((#{t\ 12054}# (memq 'expand - #{when-list\ 6339}#))) - (if #{t\ 6352}# - #{t\ 6352}# - (if (eq? #{m\ 6267}# + #{when-list\ 12041}#))) + (if #{t\ 12054}# + #{t\ 12054}# + (if (eq? #{m\ 11969}# 'c&e) (memq 'eval - #{when-list\ 6339}#) + #{when-list\ 12041}#) #f))))) - (#{chi-top-sequence\ 5079}# - #{body\ 6340}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# + (#{chi-top-sequence\ 10781}# + #{body\ 12042}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# 'c&e '(compile load) - #{mod\ 6295}#) - (if (memq #{m\ 6267}# + #{mod\ 11997}#) + (if (memq #{m\ 11969}# '(c c&e)) - (#{chi-top-sequence\ 5079}# - #{body\ 6340}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# + (#{chi-top-sequence\ 10781}# + #{body\ 12042}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# 'c '(load) - #{mod\ 6295}#) - (#{chi-void\ 5103}#))) - (if (let ((#{t\ 6360}# + #{mod\ 11997}#) + (#{chi-void\ 10805}#))) + (if (let ((#{t\ 12062}# (memq 'compile - #{when-list\ 6339}#))) - (if #{t\ 6360}# - #{t\ 6360}# - (let ((#{t\ 6363}# + #{when-list\ 12041}#))) + (if #{t\ 12062}# + #{t\ 12062}# + (let ((#{t\ 12065}# (memq 'expand - #{when-list\ 6339}#))) - (if #{t\ 6363}# - #{t\ 6363}# - (if (eq? #{m\ 6267}# + #{when-list\ 12041}#))) + (if #{t\ 12065}# + #{t\ 12065}# + (if (eq? #{m\ 11969}# 'c&e) (memq 'eval - #{when-list\ 6339}#) + #{when-list\ 12041}#) #f))))) (begin - (#{top-level-eval-hook\ 4913}# - (#{chi-top-sequence\ 5079}# - #{body\ 6340}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# + (#{top-level-eval-hook\ 10615}# + (#{chi-top-sequence\ 10781}# + #{body\ 12042}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# 'e '(eval) - #{mod\ 6295}#) - #{mod\ 6295}#) - (#{chi-void\ 5103}#)) - (#{chi-void\ 5103}#)))))) - #{tmp\ 6328}#) + #{mod\ 11997}#) + #{mod\ 11997}#) + (#{chi-void\ 10805}#)) + (#{chi-void\ 10805}#)))))) + #{tmp\ 12030}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6327}#))) + #{tmp\ 12029}#))) ($sc-dispatch - #{tmp\ 6327}# + #{tmp\ 12029}# '(any each-any any . each-any)))) - #{e\ 6292}#) - (if (memv #{type\ 6290}# + #{e\ 11994}#) + (if (memv #{type\ 11992}# '(define-syntax-form)) - (let ((#{n\ 6371}# - (#{id-var-name\ 5061}# - #{value\ 6291}# - #{w\ 6293}#)) - (#{r\ 6372}# - (#{macros-only-env\ 4996}# #{r\ 6265}#))) - (if (memv #{m\ 6267}# (quote (c))) - (if (memq (quote compile) #{esew\ 6268}#) - (let ((#{e\ 6375}# - (#{chi-install-global\ 5081}# - #{n\ 6371}# - (#{chi\ 5089}# - #{e\ 6292}# - #{r\ 6372}# - #{w\ 6293}# - #{mod\ 6295}#)))) + (let ((#{n\ 12073}# + (#{id-var-name\ 10763}# + #{value\ 11993}# + #{w\ 11995}#)) + (#{r\ 12074}# + (#{macros-only-env\ 10698}# #{r\ 11967}#))) + (if (memv #{m\ 11969}# (quote (c))) + (if (memq (quote compile) #{esew\ 11970}#) + (let ((#{e\ 12077}# + (#{chi-install-global\ 10783}# + #{n\ 12073}# + (#{chi\ 10791}# + #{e\ 11994}# + #{r\ 12074}# + #{w\ 11995}# + #{mod\ 11997}#)))) (begin - (#{top-level-eval-hook\ 4913}# - #{e\ 6375}# - #{mod\ 6295}#) - (if (memq (quote load) #{esew\ 6268}#) - #{e\ 6375}# - (#{chi-void\ 5103}#)))) - (if (memq (quote load) #{esew\ 6268}#) - (#{chi-install-global\ 5081}# - #{n\ 6371}# - (#{chi\ 5089}# - #{e\ 6292}# - #{r\ 6372}# - #{w\ 6293}# - #{mod\ 6295}#)) - (#{chi-void\ 5103}#))) - (if (memv #{m\ 6267}# (quote (c&e))) - (let ((#{e\ 6378}# - (#{chi-install-global\ 5081}# - #{n\ 6371}# - (#{chi\ 5089}# - #{e\ 6292}# - #{r\ 6372}# - #{w\ 6293}# - #{mod\ 6295}#)))) + (#{top-level-eval-hook\ 10615}# + #{e\ 12077}# + #{mod\ 11997}#) + (if (memq (quote load) #{esew\ 11970}#) + #{e\ 12077}# + (#{chi-void\ 10805}#)))) + (if (memq (quote load) #{esew\ 11970}#) + (#{chi-install-global\ 10783}# + #{n\ 12073}# + (#{chi\ 10791}# + #{e\ 11994}# + #{r\ 12074}# + #{w\ 11995}# + #{mod\ 11997}#)) + (#{chi-void\ 10805}#))) + (if (memv #{m\ 11969}# (quote (c&e))) + (let ((#{e\ 12080}# + (#{chi-install-global\ 10783}# + #{n\ 12073}# + (#{chi\ 10791}# + #{e\ 11994}# + #{r\ 12074}# + #{w\ 11995}# + #{mod\ 11997}#)))) (begin - (#{top-level-eval-hook\ 4913}# - #{e\ 6378}# - #{mod\ 6295}#) - #{e\ 6378}#)) + (#{top-level-eval-hook\ 10615}# + #{e\ 12080}# + #{mod\ 11997}#) + #{e\ 12080}#)) (begin - (if (memq (quote eval) #{esew\ 6268}#) - (#{top-level-eval-hook\ 4913}# - (#{chi-install-global\ 5081}# - #{n\ 6371}# - (#{chi\ 5089}# - #{e\ 6292}# - #{r\ 6372}# - #{w\ 6293}# - #{mod\ 6295}#)) - #{mod\ 6295}#)) - (#{chi-void\ 5103}#))))) - (if (memv #{type\ 6290}# (quote (define-form))) - (let ((#{n\ 6383}# - (#{id-var-name\ 5061}# - #{value\ 6291}# - #{w\ 6293}#))) - (let ((#{type\ 6385}# - (#{binding-type\ 4987}# - (#{lookup\ 4998}# - #{n\ 6383}# - #{r\ 6265}# - #{mod\ 6295}#)))) - (if (memv #{type\ 6385}# + (if (memq (quote eval) #{esew\ 11970}#) + (#{top-level-eval-hook\ 10615}# + (#{chi-install-global\ 10783}# + #{n\ 12073}# + (#{chi\ 10791}# + #{e\ 11994}# + #{r\ 12074}# + #{w\ 11995}# + #{mod\ 11997}#)) + #{mod\ 11997}#)) + (#{chi-void\ 10805}#))))) + (if (memv #{type\ 11992}# (quote (define-form))) + (let ((#{n\ 12085}# + (#{id-var-name\ 10763}# + #{value\ 11993}# + #{w\ 11995}#))) + (let ((#{type\ 12087}# + (#{binding-type\ 10689}# + (#{lookup\ 10700}# + #{n\ 12085}# + #{r\ 11967}# + #{mod\ 11997}#)))) + (if (memv #{type\ 12087}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 6267}# (quote (c c&e))) + (if (if (memq #{m\ 11969}# + '(c c&e)) (if (not (module-local-variable (current-module) - #{n\ 6383}#)) + #{n\ 12085}#)) (current-module) #f) #f) - (let ((#{old\ 6391}# + (let ((#{old\ 12093}# (module-variable (current-module) - #{n\ 6383}#))) + #{n\ 12085}#))) (module-define! (current-module) - #{n\ 6383}# - (if (variable? #{old\ 6391}#) - (variable-ref #{old\ 6391}#) + #{n\ 12085}# + (if (variable? #{old\ 12093}#) + (variable-ref #{old\ 12093}#) #f)))) - (let ((#{x\ 6394}# - (#{build-global-definition\ 4944}# - #{s\ 6294}# - #{n\ 6383}# - (#{chi\ 5089}# - #{e\ 6292}# - #{r\ 6265}# - #{w\ 6293}# - #{mod\ 6295}#)))) + (let ((#{x\ 12096}# + (#{build-global-definition\ 10646}# + #{s\ 11996}# + #{n\ 12085}# + (#{chi\ 10791}# + #{e\ 11994}# + #{r\ 11967}# + #{w\ 11995}# + #{mod\ 11997}#)))) (begin - (if (eq? #{m\ 6267}# (quote c&e)) - (#{top-level-eval-hook\ 4913}# - #{x\ 6394}# - #{mod\ 6295}#)) - #{x\ 6394}#))) - (if (memv #{type\ 6385}# + (if (eq? #{m\ 11969}# (quote c&e)) + (#{top-level-eval-hook\ 10615}# + #{x\ 12096}# + #{mod\ 11997}#)) + #{x\ 12096}#))) + (if (memv #{type\ 12087}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 6292}# - (#{wrap\ 5073}# - #{value\ 6291}# - #{w\ 6293}# - #{mod\ 6295}#)) + #{e\ 11994}# + (#{wrap\ 10775}# + #{value\ 11993}# + #{w\ 11995}# + #{mod\ 11997}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 6292}# - (#{wrap\ 5073}# - #{value\ 6291}# - #{w\ 6293}# - #{mod\ 6295}#)))))) - (let ((#{x\ 6400}# - (#{chi-expr\ 5091}# - #{type\ 6290}# - #{value\ 6291}# - #{e\ 6292}# - #{r\ 6265}# - #{w\ 6293}# - #{s\ 6294}# - #{mod\ 6295}#))) + #{e\ 11994}# + (#{wrap\ 10775}# + #{value\ 11993}# + #{w\ 11995}# + #{mod\ 11997}#)))))) + (let ((#{x\ 12102}# + (#{chi-expr\ 10793}# + #{type\ 11992}# + #{value\ 11993}# + #{e\ 11994}# + #{r\ 11967}# + #{w\ 11995}# + #{s\ 11996}# + #{mod\ 11997}#))) (begin - (if (eq? #{m\ 6267}# (quote c&e)) - (#{top-level-eval-hook\ 4913}# - #{x\ 6400}# - #{mod\ 6295}#)) - #{x\ 6400}#))))))))))) - (#{syntax-type\ 5085}# - (lambda (#{e\ 6401}# - #{r\ 6402}# - #{w\ 6403}# - #{s\ 6404}# - #{rib\ 6405}# - #{mod\ 6406}# - #{for-car?\ 6407}#) - (if (symbol? #{e\ 6401}#) - (let ((#{n\ 6419}# - (#{id-var-name\ 5061}# #{e\ 6401}# #{w\ 6403}#))) - (let ((#{b\ 6421}# - (#{lookup\ 4998}# - #{n\ 6419}# - #{r\ 6402}# - #{mod\ 6406}#))) - (let ((#{type\ 6423}# - (#{binding-type\ 4987}# #{b\ 6421}#))) - (if (memv #{type\ 6423}# (quote (lexical))) + (if (eq? #{m\ 11969}# (quote c&e)) + (#{top-level-eval-hook\ 10615}# + #{x\ 12102}# + #{mod\ 11997}#)) + #{x\ 12102}#))))))))))) + (#{syntax-type\ 10787}# + (lambda (#{e\ 12103}# + #{r\ 12104}# + #{w\ 12105}# + #{s\ 12106}# + #{rib\ 12107}# + #{mod\ 12108}# + #{for-car?\ 12109}#) + (if (symbol? #{e\ 12103}#) + (let ((#{n\ 12121}# + (#{id-var-name\ 10763}# + #{e\ 12103}# + #{w\ 12105}#))) + (let ((#{b\ 12123}# + (#{lookup\ 10700}# + #{n\ 12121}# + #{r\ 12104}# + #{mod\ 12108}#))) + (let ((#{type\ 12125}# + (#{binding-type\ 10689}# #{b\ 12123}#))) + (if (memv #{type\ 12125}# (quote (lexical))) (values - #{type\ 6423}# - (#{binding-value\ 4989}# #{b\ 6421}#) - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{type\ 6423}# (quote (global))) + #{type\ 12125}# + (#{binding-value\ 10691}# #{b\ 12123}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{type\ 12125}# (quote (global))) (values - #{type\ 6423}# - #{n\ 6419}# - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{type\ 6423}# (quote (macro))) - (if #{for-car?\ 6407}# + #{type\ 12125}# + #{n\ 12121}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{type\ 12125}# (quote (macro))) + (if #{for-car?\ 12109}# (values - #{type\ 6423}# - (#{binding-value\ 4989}# #{b\ 6421}#) - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (#{syntax-type\ 5085}# - (#{chi-macro\ 5095}# - (#{binding-value\ 4989}# #{b\ 6421}#) - #{e\ 6401}# - #{r\ 6402}# - #{w\ 6403}# - #{rib\ 6405}# - #{mod\ 6406}#) - #{r\ 6402}# + #{type\ 12125}# + (#{binding-value\ 10691}# #{b\ 12123}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (#{syntax-type\ 10787}# + (#{chi-macro\ 10797}# + (#{binding-value\ 10691}# #{b\ 12123}#) + #{e\ 12103}# + #{r\ 12104}# + #{w\ 12105}# + #{rib\ 12107}# + #{mod\ 12108}#) + #{r\ 12104}# '(()) - #{s\ 6404}# - #{rib\ 6405}# - #{mod\ 6406}# + #{s\ 12106}# + #{rib\ 12107}# + #{mod\ 12108}# #f)) (values - #{type\ 6423}# - (#{binding-value\ 4989}# #{b\ 6421}#) - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#))))))) - (if (pair? #{e\ 6401}#) - (let ((#{first\ 6432}# (car #{e\ 6401}#))) + #{type\ 12125}# + (#{binding-value\ 10691}# #{b\ 12123}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#))))))) + (if (pair? #{e\ 12103}#) + (let ((#{first\ 12134}# (car #{e\ 12103}#))) (call-with-values (lambda () - (#{syntax-type\ 5085}# - #{first\ 6432}# - #{r\ 6402}# - #{w\ 6403}# - #{s\ 6404}# - #{rib\ 6405}# - #{mod\ 6406}# + (#{syntax-type\ 10787}# + #{first\ 12134}# + #{r\ 12104}# + #{w\ 12105}# + #{s\ 12106}# + #{rib\ 12107}# + #{mod\ 12108}# #t)) - (lambda (#{ftype\ 6433}# - #{fval\ 6434}# - #{fe\ 6435}# - #{fw\ 6436}# - #{fs\ 6437}# - #{fmod\ 6438}#) - (if (memv #{ftype\ 6433}# (quote (lexical))) + (lambda (#{ftype\ 12135}# + #{fval\ 12136}# + #{fe\ 12137}# + #{fw\ 12138}# + #{fs\ 12139}# + #{fmod\ 12140}#) + (if (memv #{ftype\ 12135}# (quote (lexical))) (values 'lexical-call - #{fval\ 6434}# - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# (quote (global))) + #{fval\ 12136}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 4966}# - #{fval\ 6434}# - #{w\ 6403}# - #{fmod\ 6438}#) - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# (quote (macro))) - (#{syntax-type\ 5085}# - (#{chi-macro\ 5095}# - #{fval\ 6434}# - #{e\ 6401}# - #{r\ 6402}# - #{w\ 6403}# - #{rib\ 6405}# - #{mod\ 6406}#) - #{r\ 6402}# + (#{make-syntax-object\ 10668}# + #{fval\ 12136}# + #{w\ 12105}# + #{fmod\ 12140}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# (quote (macro))) + (#{syntax-type\ 10787}# + (#{chi-macro\ 10797}# + #{fval\ 12136}# + #{e\ 12103}# + #{r\ 12104}# + #{w\ 12105}# + #{rib\ 12107}# + #{mod\ 12108}#) + #{r\ 12104}# '(()) - #{s\ 6404}# - #{rib\ 6405}# - #{mod\ 6406}# - #{for-car?\ 6407}#) - (if (memv #{ftype\ 6433}# (quote (module-ref))) + #{s\ 12106}# + #{rib\ 12107}# + #{mod\ 12108}# + #{for-car?\ 12109}#) + (if (memv #{ftype\ 12135}# (quote (module-ref))) (call-with-values (lambda () - (#{fval\ 6434}# - #{e\ 6401}# - #{r\ 6402}# - #{w\ 6403}#)) - (lambda (#{e\ 6450}# - #{r\ 6451}# - #{w\ 6452}# - #{s\ 6453}# - #{mod\ 6454}#) - (#{syntax-type\ 5085}# - #{e\ 6450}# - #{r\ 6451}# - #{w\ 6452}# - #{s\ 6453}# - #{rib\ 6405}# - #{mod\ 6454}# - #{for-car?\ 6407}#))) - (if (memv #{ftype\ 6433}# (quote (core))) + (#{fval\ 12136}# + #{e\ 12103}# + #{r\ 12104}# + #{w\ 12105}#)) + (lambda (#{e\ 12152}# + #{r\ 12153}# + #{w\ 12154}# + #{s\ 12155}# + #{mod\ 12156}#) + (#{syntax-type\ 10787}# + #{e\ 12152}# + #{r\ 12153}# + #{w\ 12154}# + #{s\ 12155}# + #{rib\ 12107}# + #{mod\ 12156}# + #{for-car?\ 12109}#))) + (if (memv #{ftype\ 12135}# (quote (core))) (values 'core-form - #{fval\ 6434}# - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# + #{fval\ 12136}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 6434}# - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# (quote (begin))) + #{fval\ 12136}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# + '(begin)) (values 'begin-form #f - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# '(eval-when)) (values 'eval-when-form #f - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) - (if (memv #{ftype\ 6433}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) + (if (memv #{ftype\ 12135}# '(define)) - ((lambda (#{tmp\ 6465}#) - ((lambda (#{tmp\ 6466}#) - (if (if #{tmp\ 6466}# - (apply (lambda (#{_\ 6470}# - #{name\ 6471}# - #{val\ 6472}#) - (#{id?\ 5004}# - #{name\ 6471}#)) - #{tmp\ 6466}#) + ((lambda (#{tmp\ 12167}#) + ((lambda (#{tmp\ 12168}#) + (if (if #{tmp\ 12168}# + (apply (lambda (#{_\ 12172}# + #{name\ 12173}# + #{val\ 12174}#) + (#{id?\ 10706}# + #{name\ 12173}#)) + #{tmp\ 12168}#) #f) - (apply (lambda (#{_\ 6476}# - #{name\ 6477}# - #{val\ 6478}#) + (apply (lambda (#{_\ 12178}# + #{name\ 12179}# + #{val\ 12180}#) (values 'define-form - #{name\ 6477}# - #{val\ 6478}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#)) - #{tmp\ 6466}#) - ((lambda (#{tmp\ 6479}#) - (if (if #{tmp\ 6479}# - (apply (lambda (#{_\ 6485}# - #{name\ 6486}# - #{args\ 6487}# - #{e1\ 6488}# - #{e2\ 6489}#) - (if (#{id?\ 5004}# - #{name\ 6486}#) - (#{valid-bound-ids?\ 5067}# - (#{lambda-var-list\ 5119}# - #{args\ 6487}#)) + #{name\ 12179}# + #{val\ 12180}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#)) + #{tmp\ 12168}#) + ((lambda (#{tmp\ 12181}#) + (if (if #{tmp\ 12181}# + (apply (lambda (#{_\ 12187}# + #{name\ 12188}# + #{args\ 12189}# + #{e1\ 12190}# + #{e2\ 12191}#) + (if (#{id?\ 10706}# + #{name\ 12188}#) + (#{valid-bound-ids?\ 10769}# + (#{lambda-var-list\ 10821}# + #{args\ 12189}#)) #f)) - #{tmp\ 6479}#) + #{tmp\ 12181}#) #f) - (apply (lambda (#{_\ 6497}# - #{name\ 6498}# - #{args\ 6499}# - #{e1\ 6500}# - #{e2\ 6501}#) + (apply (lambda (#{_\ 12199}# + #{name\ 12200}# + #{args\ 12201}# + #{e1\ 12202}# + #{e2\ 12203}#) (values 'define-form - (#{wrap\ 5073}# - #{name\ 6498}# - #{w\ 6403}# - #{mod\ 6406}#) - (#{decorate-source\ 4922}# + (#{wrap\ 10775}# + #{name\ 12200}# + #{w\ 12105}# + #{mod\ 12108}#) + (#{decorate-source\ 10624}# (cons '#(syntax-object lambda ((top) @@ -3649,11 +3674,11 @@ (top) (top) (top)) - #("i6492" - "i6493" - "i6494" - "i6495" - "i6496")) + #("i12194" + "i12195" + "i12196" + "i12197" + "i12198")) #(ribcage () () @@ -3675,12 +3700,12 @@ (top) (top) (top)) - #("i6439" - "i6440" - "i6441" - "i6442" - "i6443" - "i6444")) + #("i12141" + "i12142" + "i12143" + "i12144" + "i12145" + "i12146")) #(ribcage () () @@ -3688,7 +3713,7 @@ #(ribcage #(first) #((top)) - #("i6431")) + #("i12133")) #(ribcage () () @@ -3716,13 +3741,13 @@ (top) (top) (top)) - #("i6408" - "i6409" - "i6410" - "i6411" - "i6412" - "i6413" - "i6414")) + #("i12110" + "i12111" + "i12112" + "i12113" + "i12114" + "i12115" + "i12116")) #(ribcage (lambda-var-list gen-var @@ -3960,160 +3985,160 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile)) - (#{wrap\ 5073}# - (cons #{args\ 6499}# - (cons #{e1\ 6500}# - #{e2\ 6501}#)) - #{w\ 6403}# - #{mod\ 6406}#)) - #{s\ 6404}#) + (#{wrap\ 10775}# + (cons #{args\ 12201}# + (cons #{e1\ 12202}# + #{e2\ 12203}#)) + #{w\ 12105}# + #{mod\ 12108}#)) + #{s\ 12106}#) '(()) - #{s\ 6404}# - #{mod\ 6406}#)) - #{tmp\ 6479}#) - ((lambda (#{tmp\ 6504}#) - (if (if #{tmp\ 6504}# - (apply (lambda (#{_\ 6507}# - #{name\ 6508}#) - (#{id?\ 5004}# - #{name\ 6508}#)) - #{tmp\ 6504}#) + #{s\ 12106}# + #{mod\ 12108}#)) + #{tmp\ 12181}#) + ((lambda (#{tmp\ 12206}#) + (if (if #{tmp\ 12206}# + (apply (lambda (#{_\ 12209}# + #{name\ 12210}#) + (#{id?\ 10706}# + #{name\ 12210}#)) + #{tmp\ 12206}#) #f) - (apply (lambda (#{_\ 6511}# - #{name\ 6512}#) + (apply (lambda (#{_\ 12213}# + #{name\ 12214}#) (values 'define-form - (#{wrap\ 5073}# - #{name\ 6512}# - #{w\ 6403}# - #{mod\ 6406}#) + (#{wrap\ 10775}# + #{name\ 12214}# + #{w\ 12105}# + #{mod\ 12108}#) '(#(syntax-object if ((top) @@ -4122,8 +4147,8 @@ name) #((top) (top)) - #("i6509" - "i6510")) + #("i12211" + "i12212")) #(ribcage () () @@ -4145,12 +4170,12 @@ (top) (top) (top)) - #("i6439" - "i6440" - "i6441" - "i6442" - "i6443" - "i6444")) + #("i12141" + "i12142" + "i12143" + "i12144" + "i12145" + "i12146")) #(ribcage () () @@ -4158,7 +4183,7 @@ #(ribcage #(first) #((top)) - #("i6431")) + #("i12133")) #(ribcage () () @@ -4186,13 +4211,13 @@ (top) (top) (top)) - #("i6408" - "i6409" - "i6410" - "i6411" - "i6412" - "i6413" - "i6414")) + #("i12110" + "i12111" + "i12112" + "i12113" + "i12114" + "i12115" + "i12116")) #(ribcage (lambda-var-list gen-var @@ -4430,131 +4455,131 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile)) #(syntax-object @@ -4565,8 +4590,8 @@ name) #((top) (top)) - #("i6509" - "i6510")) + #("i12211" + "i12212")) #(ribcage () () @@ -4588,12 +4613,12 @@ (top) (top) (top)) - #("i6439" - "i6440" - "i6441" - "i6442" - "i6443" - "i6444")) + #("i12141" + "i12142" + "i12143" + "i12144" + "i12145" + "i12146")) #(ribcage () () @@ -4601,7 +4626,7 @@ #(ribcage #(first) #((top)) - #("i6431")) + #("i12133")) #(ribcage () () @@ -4629,13 +4654,13 @@ (top) (top) (top)) - #("i6408" - "i6409" - "i6410" - "i6411" - "i6412" - "i6413" - "i6414")) + #("i12110" + "i12111" + "i12112" + "i12113" + "i12114" + "i12115" + "i12116")) #(ribcage (lambda-var-list gen-var @@ -4873,131 +4898,131 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile)) #(syntax-object @@ -5008,8 +5033,8 @@ name) #((top) (top)) - #("i6509" - "i6510")) + #("i12211" + "i12212")) #(ribcage () () @@ -5031,12 +5056,12 @@ (top) (top) (top)) - #("i6439" - "i6440" - "i6441" - "i6442" - "i6443" - "i6444")) + #("i12141" + "i12142" + "i12143" + "i12144" + "i12145" + "i12146")) #(ribcage () () @@ -5044,7 +5069,7 @@ #(ribcage #(first) #((top)) - #("i6431")) + #("i12133")) #(ribcage () () @@ -5072,13 +5097,13 @@ (top) (top) (top)) - #("i6408" - "i6409" - "i6410" - "i6411" - "i6412" - "i6413" - "i6414")) + #("i12110" + "i12111" + "i12112" + "i12113" + "i12114" + "i12115" + "i12116")) #(ribcage (lambda-var-list gen-var @@ -5316,232 +5341,233 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" - "i4801"))) + ("i10505" + "i10503"))) (hygiene guile))) '(()) - #{s\ 6404}# - #{mod\ 6406}#)) - #{tmp\ 6504}#) + #{s\ 12106}# + #{mod\ 12108}#)) + #{tmp\ 12206}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6465}#))) + #{tmp\ 12167}#))) ($sc-dispatch - #{tmp\ 6465}# + #{tmp\ 12167}# '(any any))))) ($sc-dispatch - #{tmp\ 6465}# + #{tmp\ 12167}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 6465}# + #{tmp\ 12167}# '(any any any)))) - #{e\ 6401}#) - (if (memv #{ftype\ 6433}# + #{e\ 12103}#) + (if (memv #{ftype\ 12135}# '(define-syntax)) - ((lambda (#{tmp\ 6515}#) - ((lambda (#{tmp\ 6516}#) - (if (if #{tmp\ 6516}# - (apply (lambda (#{_\ 6520}# - #{name\ 6521}# - #{val\ 6522}#) - (#{id?\ 5004}# - #{name\ 6521}#)) - #{tmp\ 6516}#) + ((lambda (#{tmp\ 12217}#) + ((lambda (#{tmp\ 12218}#) + (if (if #{tmp\ 12218}# + (apply (lambda (#{_\ 12222}# + #{name\ 12223}# + #{val\ 12224}#) + (#{id?\ 10706}# + #{name\ 12223}#)) + #{tmp\ 12218}#) #f) - (apply (lambda (#{_\ 6526}# - #{name\ 6527}# - #{val\ 6528}#) + (apply (lambda (#{_\ 12228}# + #{name\ 12229}# + #{val\ 12230}#) (values 'define-syntax-form - #{name\ 6527}# - #{val\ 6528}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#)) - #{tmp\ 6516}#) + #{name\ 12229}# + #{val\ 12230}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#)) + #{tmp\ 12218}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 6515}#))) + #{tmp\ 12217}#))) ($sc-dispatch - #{tmp\ 6515}# + #{tmp\ 12217}# '(any any any)))) - #{e\ 6401}#) + #{e\ 12103}#) (values 'call #f - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#)))))))))))))) - (if (#{syntax-object?\ 4968}# #{e\ 6401}#) - (#{syntax-type\ 5085}# - (#{syntax-object-expression\ 4970}# #{e\ 6401}#) - #{r\ 6402}# - (#{join-wraps\ 5055}# - #{w\ 6403}# - (#{syntax-object-wrap\ 4972}# #{e\ 6401}#)) - #{s\ 6404}# - #{rib\ 6405}# - (let ((#{t\ 6534}# - (#{syntax-object-module\ 4974}# #{e\ 6401}#))) - (if #{t\ 6534}# #{t\ 6534}# #{mod\ 6406}#)) - #{for-car?\ 6407}#) - (if (self-evaluating? #{e\ 6401}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#)))))))))))))) + (if (#{syntax-object?\ 10670}# #{e\ 12103}#) + (#{syntax-type\ 10787}# + (#{syntax-object-expression\ 10672}# + #{e\ 12103}#) + #{r\ 12104}# + (#{join-wraps\ 10757}# + #{w\ 12105}# + (#{syntax-object-wrap\ 10674}# #{e\ 12103}#)) + #{s\ 12106}# + #{rib\ 12107}# + (let ((#{t\ 12236}# + (#{syntax-object-module\ 10676}# #{e\ 12103}#))) + (if #{t\ 12236}# #{t\ 12236}# #{mod\ 12108}#)) + #{for-car?\ 12109}#) + (if (self-evaluating? #{e\ 12103}#) (values 'constant #f - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#) + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#) (values 'other #f - #{e\ 6401}# - #{w\ 6403}# - #{s\ 6404}# - #{mod\ 6406}#))))))) - (#{chi-when-list\ 5083}# - (lambda (#{e\ 6539}# #{when-list\ 6540}# #{w\ 6541}#) - (letrec ((#{f\ 6548}# - (lambda (#{when-list\ 6549}# #{situations\ 6550}#) - (if (null? #{when-list\ 6549}#) - #{situations\ 6550}# - (#{f\ 6548}# - (cdr #{when-list\ 6549}#) - (cons (let ((#{x\ 6552}# - (car #{when-list\ 6549}#))) - (if (#{free-id=?\ 5063}# - #{x\ 6552}# + #{e\ 12103}# + #{w\ 12105}# + #{s\ 12106}# + #{mod\ 12108}#))))))) + (#{chi-when-list\ 10785}# + (lambda (#{e\ 12241}# #{when-list\ 12242}# #{w\ 12243}#) + (letrec ((#{f\ 12250}# + (lambda (#{when-list\ 12251}# #{situations\ 12252}#) + (if (null? #{when-list\ 12251}#) + #{situations\ 12252}# + (#{f\ 12250}# + (cdr #{when-list\ 12251}#) + (cons (let ((#{x\ 12254}# + (car #{when-list\ 12251}#))) + (if (#{free-id=?\ 10765}# + #{x\ 12254}# '#(syntax-object compile ((top) @@ -5551,17 +5577,21 @@ #(ribcage #(x) #((top)) - #("i6551")) + #("i12253")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i6545" "i6546" "i6547")) + #("i12247" + "i12248" + "i12249")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i6542" "i6543" "i6544")) + #("i12244" + "i12245" + "i12246")) #(ribcage (lambda-var-list gen-var @@ -5799,132 +5829,132 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 5063}# - #{x\ 6552}# + (if (#{free-id=?\ 10765}# + #{x\ 12254}# '#(syntax-object load ((top) @@ -5934,21 +5964,21 @@ #(ribcage #(x) #((top)) - #("i6551")) + #("i12253")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i6545" - "i6546" - "i6547")) + #("i12247" + "i12248" + "i12249")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i6542" - "i6543" - "i6544")) + #("i12244" + "i12245" + "i12246")) #(ribcage (lambda-var-list gen-var @@ -6186,133 +6216,133 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile))) 'load - (if (#{free-id=?\ 5063}# - #{x\ 6552}# + (if (#{free-id=?\ 10765}# + #{x\ 12254}# '#(syntax-object eval ((top) @@ -6322,23 +6352,23 @@ #(ribcage #(x) #((top)) - #("i6551")) + #("i12253")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i6545" - "i6546" - "i6547")) + #("i12247" + "i12248" + "i12249")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i6542" - "i6543" - "i6544")) + #("i12244" + "i12245" + "i12246")) #(ribcage (lambda-var-list gen-var @@ -6576,133 +6606,133 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 5063}# - #{x\ 6552}# + (if (#{free-id=?\ 10765}# + #{x\ 12254}# '#(syntax-object expand ((top) @@ -6712,23 +6742,23 @@ #(ribcage #(x) #((top)) - #("i6551")) + #("i12253")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i6545" - "i6546" - "i6547")) + #("i12247" + "i12248" + "i12249")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i6542" - "i6543" - "i6544")) + #("i12244" + "i12245" + "i12246")) #(ribcage (lambda-var-list gen-var @@ -6966,1020 +6996,1057 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 6539}# - (#{wrap\ 5073}# - #{x\ 6552}# - #{w\ 6541}# + #{e\ 12241}# + (#{wrap\ 10775}# + #{x\ 12254}# + #{w\ 12243}# #f))))))) - #{situations\ 6550}#)))))) - (#{f\ 6548}# #{when-list\ 6540}# (quote ()))))) - (#{chi-install-global\ 5081}# - (lambda (#{name\ 6562}# #{e\ 6563}#) - (#{build-global-definition\ 4944}# + #{situations\ 12252}#)))))) + (#{f\ 12250}# #{when-list\ 12242}# (quote ()))))) + (#{chi-install-global\ 10783}# + (lambda (#{name\ 12264}# #{e\ 12265}#) + (#{build-global-definition\ 10646}# #f - #{name\ 6562}# - (#{build-application\ 4926}# + #{name\ 12264}# + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f 'make-syntax-transformer) - (list (#{build-data\ 4954}# #f #{name\ 6562}#) - (#{build-data\ 4954}# #f (quote macro)) - (#{build-application\ 4926}# + (list (#{build-data\ 10656}# #f #{name\ 12264}#) + (#{build-data\ 10656}# #f (quote macro)) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# #f (quote cons)) - (list #{e\ 6563}# - (#{build-application\ 4926}# + (#{build-primref\ 10654}# #f (quote cons)) + (list #{e\ 12265}# + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f 'module-name) - (list (#{build-application\ 4926}# + (list (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 5079}# - (lambda (#{body\ 6577}# - #{r\ 6578}# - #{w\ 6579}# - #{s\ 6580}# - #{m\ 6581}# - #{esew\ 6582}# - #{mod\ 6583}#) - (#{build-sequence\ 4956}# - #{s\ 6580}# - (letrec ((#{dobody\ 6600}# - (lambda (#{body\ 6601}# - #{r\ 6602}# - #{w\ 6603}# - #{m\ 6604}# - #{esew\ 6605}# - #{mod\ 6606}# - #{module\ 6607}# - #{out\ 6608}#) - (if (null? #{body\ 6601}#) - (reverse #{out\ 6608}#) - (let ((#{first\ 6611}# - (#{chi-top\ 5087}# - (car #{body\ 6601}#) - #{r\ 6602}# - #{w\ 6603}# - #{m\ 6604}# - #{esew\ 6605}# - #{mod\ 6606}#))) - (let ((#{new-module\ 6613}# + (#{chi-top-sequence\ 10781}# + (lambda (#{body\ 12279}# + #{r\ 12280}# + #{w\ 12281}# + #{s\ 12282}# + #{m\ 12283}# + #{esew\ 12284}# + #{mod\ 12285}#) + (#{build-sequence\ 10658}# + #{s\ 12282}# + (letrec ((#{dobody\ 12302}# + (lambda (#{body\ 12303}# + #{r\ 12304}# + #{w\ 12305}# + #{m\ 12306}# + #{esew\ 12307}# + #{mod\ 12308}# + #{module\ 12309}# + #{out\ 12310}#) + (if (null? #{body\ 12303}#) + (reverse #{out\ 12310}#) + (let ((#{first\ 12313}# + (#{chi-top\ 10789}# + (car #{body\ 12303}#) + #{r\ 12304}# + #{w\ 12305}# + #{m\ 12306}# + #{esew\ 12307}# + #{mod\ 12308}#))) + (let ((#{new-module\ 12315}# (current-module))) - (#{dobody\ 6600}# - (cdr #{body\ 6601}#) - #{r\ 6602}# - #{w\ 6603}# - #{m\ 6604}# - #{esew\ 6605}# - (if (eq? #{module\ 6607}# - #{new-module\ 6613}#) - #{mod\ 6606}# + (#{dobody\ 12302}# + (cdr #{body\ 12303}#) + #{r\ 12304}# + #{w\ 12305}# + #{m\ 12306}# + #{esew\ 12307}# + (if (eq? #{module\ 12309}# + #{new-module\ 12315}#) + #{mod\ 12308}# (cons 'hygiene (module-name - #{new-module\ 6613}#))) - #{new-module\ 6613}# - (cons #{first\ 6611}# - #{out\ 6608}#)))))))) - (#{dobody\ 6600}# - #{body\ 6577}# - #{r\ 6578}# - #{w\ 6579}# - #{m\ 6581}# - #{esew\ 6582}# - #{mod\ 6583}# + #{new-module\ 12315}#))) + #{new-module\ 12315}# + (cons #{first\ 12313}# + #{out\ 12310}#)))))))) + (#{dobody\ 12302}# + #{body\ 12279}# + #{r\ 12280}# + #{w\ 12281}# + #{m\ 12283}# + #{esew\ 12284}# + #{mod\ 12285}# (current-module) '()))))) - (#{chi-sequence\ 5077}# - (lambda (#{body\ 6614}# - #{r\ 6615}# - #{w\ 6616}# - #{s\ 6617}# - #{mod\ 6618}#) - (#{build-sequence\ 4956}# - #{s\ 6617}# - (letrec ((#{dobody\ 6629}# - (lambda (#{body\ 6630}# - #{r\ 6631}# - #{w\ 6632}# - #{mod\ 6633}#) - (if (null? #{body\ 6630}#) + (#{chi-sequence\ 10779}# + (lambda (#{body\ 12316}# + #{r\ 12317}# + #{w\ 12318}# + #{s\ 12319}# + #{mod\ 12320}#) + (#{build-sequence\ 10658}# + #{s\ 12319}# + (letrec ((#{dobody\ 12331}# + (lambda (#{body\ 12332}# + #{r\ 12333}# + #{w\ 12334}# + #{mod\ 12335}#) + (if (null? #{body\ 12332}#) '() - (let ((#{first\ 6635}# - (#{chi\ 5089}# - (car #{body\ 6630}#) - #{r\ 6631}# - #{w\ 6632}# - #{mod\ 6633}#))) - (cons #{first\ 6635}# - (#{dobody\ 6629}# - (cdr #{body\ 6630}#) - #{r\ 6631}# - #{w\ 6632}# - #{mod\ 6633}#))))))) - (#{dobody\ 6629}# - #{body\ 6614}# - #{r\ 6615}# - #{w\ 6616}# - #{mod\ 6618}#))))) - (#{source-wrap\ 5075}# - (lambda (#{x\ 6636}# - #{w\ 6637}# - #{s\ 6638}# - #{defmod\ 6639}#) - (#{wrap\ 5073}# - (#{decorate-source\ 4922}# - #{x\ 6636}# - #{s\ 6638}#) - #{w\ 6637}# - #{defmod\ 6639}#))) - (#{wrap\ 5073}# - (lambda (#{x\ 6644}# #{w\ 6645}# #{defmod\ 6646}#) - (if (if (null? (#{wrap-marks\ 5011}# #{w\ 6645}#)) - (null? (#{wrap-subst\ 5013}# #{w\ 6645}#)) + (let ((#{first\ 12337}# + (#{chi\ 10791}# + (car #{body\ 12332}#) + #{r\ 12333}# + #{w\ 12334}# + #{mod\ 12335}#))) + (cons #{first\ 12337}# + (#{dobody\ 12331}# + (cdr #{body\ 12332}#) + #{r\ 12333}# + #{w\ 12334}# + #{mod\ 12335}#))))))) + (#{dobody\ 12331}# + #{body\ 12316}# + #{r\ 12317}# + #{w\ 12318}# + #{mod\ 12320}#))))) + (#{source-wrap\ 10777}# + (lambda (#{x\ 12338}# + #{w\ 12339}# + #{s\ 12340}# + #{defmod\ 12341}#) + (#{wrap\ 10775}# + (#{decorate-source\ 10624}# + #{x\ 12338}# + #{s\ 12340}#) + #{w\ 12339}# + #{defmod\ 12341}#))) + (#{wrap\ 10775}# + (lambda (#{x\ 12346}# #{w\ 12347}# #{defmod\ 12348}#) + (if (if (null? (#{wrap-marks\ 10713}# #{w\ 12347}#)) + (null? (#{wrap-subst\ 10715}# #{w\ 12347}#)) #f) - #{x\ 6644}# - (if (#{syntax-object?\ 4968}# #{x\ 6644}#) - (#{make-syntax-object\ 4966}# - (#{syntax-object-expression\ 4970}# #{x\ 6644}#) - (#{join-wraps\ 5055}# - #{w\ 6645}# - (#{syntax-object-wrap\ 4972}# #{x\ 6644}#)) - (#{syntax-object-module\ 4974}# #{x\ 6644}#)) - (if (null? #{x\ 6644}#) - #{x\ 6644}# - (#{make-syntax-object\ 4966}# - #{x\ 6644}# - #{w\ 6645}# - #{defmod\ 6646}#)))))) - (#{bound-id-member?\ 5071}# - (lambda (#{x\ 6659}# #{list\ 6660}#) - (if (not (null? #{list\ 6660}#)) - (let ((#{t\ 6667}# - (#{bound-id=?\ 5065}# - #{x\ 6659}# - (car #{list\ 6660}#)))) - (if #{t\ 6667}# - #{t\ 6667}# - (#{bound-id-member?\ 5071}# - #{x\ 6659}# - (cdr #{list\ 6660}#)))) + #{x\ 12346}# + (if (#{syntax-object?\ 10670}# #{x\ 12346}#) + (#{make-syntax-object\ 10668}# + (#{syntax-object-expression\ 10672}# + #{x\ 12346}#) + (#{join-wraps\ 10757}# + #{w\ 12347}# + (#{syntax-object-wrap\ 10674}# #{x\ 12346}#)) + (#{syntax-object-module\ 10676}# #{x\ 12346}#)) + (if (null? #{x\ 12346}#) + #{x\ 12346}# + (#{make-syntax-object\ 10668}# + #{x\ 12346}# + #{w\ 12347}# + #{defmod\ 12348}#)))))) + (#{bound-id-member?\ 10773}# + (lambda (#{x\ 12361}# #{list\ 12362}#) + (if (not (null? #{list\ 12362}#)) + (let ((#{t\ 12369}# + (#{bound-id=?\ 10767}# + #{x\ 12361}# + (car #{list\ 12362}#)))) + (if #{t\ 12369}# + #{t\ 12369}# + (#{bound-id-member?\ 10773}# + #{x\ 12361}# + (cdr #{list\ 12362}#)))) #f))) - (#{distinct-bound-ids?\ 5069}# - (lambda (#{ids\ 6669}#) - (letrec ((#{distinct?\ 6673}# - (lambda (#{ids\ 6674}#) - (let ((#{t\ 6677}# (null? #{ids\ 6674}#))) - (if #{t\ 6677}# - #{t\ 6677}# - (if (not (#{bound-id-member?\ 5071}# - (car #{ids\ 6674}#) - (cdr #{ids\ 6674}#))) - (#{distinct?\ 6673}# (cdr #{ids\ 6674}#)) + (#{distinct-bound-ids?\ 10771}# + (lambda (#{ids\ 12371}#) + (letrec ((#{distinct?\ 12375}# + (lambda (#{ids\ 12376}#) + (let ((#{t\ 12379}# (null? #{ids\ 12376}#))) + (if #{t\ 12379}# + #{t\ 12379}# + (if (not (#{bound-id-member?\ 10773}# + (car #{ids\ 12376}#) + (cdr #{ids\ 12376}#))) + (#{distinct?\ 12375}# (cdr #{ids\ 12376}#)) #f)))))) - (#{distinct?\ 6673}# #{ids\ 6669}#)))) - (#{valid-bound-ids?\ 5067}# - (lambda (#{ids\ 6681}#) - (if (letrec ((#{all-ids?\ 6686}# - (lambda (#{ids\ 6687}#) - (let ((#{t\ 6690}# (null? #{ids\ 6687}#))) - (if #{t\ 6690}# - #{t\ 6690}# - (if (#{id?\ 5004}# (car #{ids\ 6687}#)) - (#{all-ids?\ 6686}# (cdr #{ids\ 6687}#)) + (#{distinct?\ 12375}# #{ids\ 12371}#)))) + (#{valid-bound-ids?\ 10769}# + (lambda (#{ids\ 12383}#) + (if (letrec ((#{all-ids?\ 12388}# + (lambda (#{ids\ 12389}#) + (let ((#{t\ 12392}# (null? #{ids\ 12389}#))) + (if #{t\ 12392}# + #{t\ 12392}# + (if (#{id?\ 10706}# (car #{ids\ 12389}#)) + (#{all-ids?\ 12388}# + (cdr #{ids\ 12389}#)) #f)))))) - (#{all-ids?\ 6686}# #{ids\ 6681}#)) - (#{distinct-bound-ids?\ 5069}# #{ids\ 6681}#) + (#{all-ids?\ 12388}# #{ids\ 12383}#)) + (#{distinct-bound-ids?\ 10771}# #{ids\ 12383}#) #f))) - (#{bound-id=?\ 5065}# - (lambda (#{i\ 6695}# #{j\ 6696}#) - (if (if (#{syntax-object?\ 4968}# #{i\ 6695}#) - (#{syntax-object?\ 4968}# #{j\ 6696}#) + (#{bound-id=?\ 10767}# + (lambda (#{i\ 12397}# #{j\ 12398}#) + (if (if (#{syntax-object?\ 10670}# #{i\ 12397}#) + (#{syntax-object?\ 10670}# #{j\ 12398}#) #f) - (if (eq? (#{syntax-object-expression\ 4970}# #{i\ 6695}#) - (#{syntax-object-expression\ 4970}# #{j\ 6696}#)) - (#{same-marks?\ 5059}# - (#{wrap-marks\ 5011}# - (#{syntax-object-wrap\ 4972}# #{i\ 6695}#)) - (#{wrap-marks\ 5011}# - (#{syntax-object-wrap\ 4972}# #{j\ 6696}#))) + (if (eq? (#{syntax-object-expression\ 10672}# + #{i\ 12397}#) + (#{syntax-object-expression\ 10672}# + #{j\ 12398}#)) + (#{same-marks?\ 10761}# + (#{wrap-marks\ 10713}# + (#{syntax-object-wrap\ 10674}# #{i\ 12397}#)) + (#{wrap-marks\ 10713}# + (#{syntax-object-wrap\ 10674}# #{j\ 12398}#))) #f) - (eq? #{i\ 6695}# #{j\ 6696}#)))) - (#{free-id=?\ 5063}# - (lambda (#{i\ 6703}# #{j\ 6704}#) - (if (eq? (let ((#{x\ 6710}# #{i\ 6703}#)) - (if (#{syntax-object?\ 4968}# #{x\ 6710}#) - (#{syntax-object-expression\ 4970}# #{x\ 6710}#) - #{x\ 6710}#)) - (let ((#{x\ 6713}# #{j\ 6704}#)) - (if (#{syntax-object?\ 4968}# #{x\ 6713}#) - (#{syntax-object-expression\ 4970}# #{x\ 6713}#) - #{x\ 6713}#))) - (eq? (#{id-var-name\ 5061}# #{i\ 6703}# (quote (()))) - (#{id-var-name\ 5061}# #{j\ 6704}# (quote (())))) + (eq? #{i\ 12397}# #{j\ 12398}#)))) + (#{free-id=?\ 10765}# + (lambda (#{i\ 12405}# #{j\ 12406}#) + (if (eq? (let ((#{x\ 12412}# #{i\ 12405}#)) + (if (#{syntax-object?\ 10670}# #{x\ 12412}#) + (#{syntax-object-expression\ 10672}# + #{x\ 12412}#) + #{x\ 12412}#)) + (let ((#{x\ 12415}# #{j\ 12406}#)) + (if (#{syntax-object?\ 10670}# #{x\ 12415}#) + (#{syntax-object-expression\ 10672}# + #{x\ 12415}#) + #{x\ 12415}#))) + (eq? (#{id-var-name\ 10763}# + #{i\ 12405}# + '(())) + (#{id-var-name\ 10763}# + #{j\ 12406}# + '(()))) #f))) - (#{id-var-name\ 5061}# - (lambda (#{id\ 6717}# #{w\ 6718}#) - (letrec ((#{search-vector-rib\ 6727}# - (lambda (#{sym\ 6739}# - #{subst\ 6740}# - #{marks\ 6741}# - #{symnames\ 6742}# - #{ribcage\ 6743}#) - (let ((#{n\ 6750}# - (vector-length #{symnames\ 6742}#))) - (letrec ((#{f\ 6753}# - (lambda (#{i\ 6754}#) - (if (#{fx=\ 4909}# - #{i\ 6754}# - #{n\ 6750}#) - (#{search\ 6723}# - #{sym\ 6739}# - (cdr #{subst\ 6740}#) - #{marks\ 6741}#) + (#{id-var-name\ 10763}# + (lambda (#{id\ 12419}# #{w\ 12420}#) + (letrec ((#{search-vector-rib\ 12429}# + (lambda (#{sym\ 12441}# + #{subst\ 12442}# + #{marks\ 12443}# + #{symnames\ 12444}# + #{ribcage\ 12445}#) + (let ((#{n\ 12452}# + (vector-length #{symnames\ 12444}#))) + (letrec ((#{f\ 12455}# + (lambda (#{i\ 12456}#) + (if (#{fx=\ 10611}# + #{i\ 12456}# + #{n\ 12452}#) + (#{search\ 12425}# + #{sym\ 12441}# + (cdr #{subst\ 12442}#) + #{marks\ 12443}#) (if (if (eq? (vector-ref - #{symnames\ 6742}# - #{i\ 6754}#) - #{sym\ 6739}#) - (#{same-marks?\ 5059}# - #{marks\ 6741}# + #{symnames\ 12444}# + #{i\ 12456}#) + #{sym\ 12441}#) + (#{same-marks?\ 10761}# + #{marks\ 12443}# (vector-ref - (#{ribcage-marks\ 5031}# - #{ribcage\ 6743}#) - #{i\ 6754}#)) + (#{ribcage-marks\ 10733}# + #{ribcage\ 12445}#) + #{i\ 12456}#)) #f) (values (vector-ref - (#{ribcage-labels\ 5033}# - #{ribcage\ 6743}#) - #{i\ 6754}#) - #{marks\ 6741}#) - (#{f\ 6753}# - (#{fx+\ 4905}# - #{i\ 6754}# + (#{ribcage-labels\ 10735}# + #{ribcage\ 12445}#) + #{i\ 12456}#) + #{marks\ 12443}#) + (#{f\ 12455}# + (#{fx+\ 10607}# + #{i\ 12456}# 1))))))) - (#{f\ 6753}# 0))))) - (#{search-list-rib\ 6725}# - (lambda (#{sym\ 6762}# - #{subst\ 6763}# - #{marks\ 6764}# - #{symnames\ 6765}# - #{ribcage\ 6766}#) - (letrec ((#{f\ 6775}# - (lambda (#{symnames\ 6776}# #{i\ 6777}#) - (if (null? #{symnames\ 6776}#) - (#{search\ 6723}# - #{sym\ 6762}# - (cdr #{subst\ 6763}#) - #{marks\ 6764}#) - (if (if (eq? (car #{symnames\ 6776}#) - #{sym\ 6762}#) - (#{same-marks?\ 5059}# - #{marks\ 6764}# + (#{f\ 12455}# 0))))) + (#{search-list-rib\ 12427}# + (lambda (#{sym\ 12464}# + #{subst\ 12465}# + #{marks\ 12466}# + #{symnames\ 12467}# + #{ribcage\ 12468}#) + (letrec ((#{f\ 12477}# + (lambda (#{symnames\ 12478}# + #{i\ 12479}#) + (if (null? #{symnames\ 12478}#) + (#{search\ 12425}# + #{sym\ 12464}# + (cdr #{subst\ 12465}#) + #{marks\ 12466}#) + (if (if (eq? (car #{symnames\ 12478}#) + #{sym\ 12464}#) + (#{same-marks?\ 10761}# + #{marks\ 12466}# (list-ref - (#{ribcage-marks\ 5031}# - #{ribcage\ 6766}#) - #{i\ 6777}#)) + (#{ribcage-marks\ 10733}# + #{ribcage\ 12468}#) + #{i\ 12479}#)) #f) (values (list-ref - (#{ribcage-labels\ 5033}# - #{ribcage\ 6766}#) - #{i\ 6777}#) - #{marks\ 6764}#) - (#{f\ 6775}# - (cdr #{symnames\ 6776}#) - (#{fx+\ 4905}# - #{i\ 6777}# + (#{ribcage-labels\ 10735}# + #{ribcage\ 12468}#) + #{i\ 12479}#) + #{marks\ 12466}#) + (#{f\ 12477}# + (cdr #{symnames\ 12478}#) + (#{fx+\ 10607}# + #{i\ 12479}# 1))))))) - (#{f\ 6775}# #{symnames\ 6765}# 0)))) - (#{search\ 6723}# - (lambda (#{sym\ 6785}# - #{subst\ 6786}# - #{marks\ 6787}#) - (if (null? #{subst\ 6786}#) - (values #f #{marks\ 6787}#) - (let ((#{fst\ 6792}# (car #{subst\ 6786}#))) - (if (eq? #{fst\ 6792}# (quote shift)) - (#{search\ 6723}# - #{sym\ 6785}# - (cdr #{subst\ 6786}#) - (cdr #{marks\ 6787}#)) - (let ((#{symnames\ 6794}# - (#{ribcage-symnames\ 5029}# - #{fst\ 6792}#))) - (if (vector? #{symnames\ 6794}#) - (#{search-vector-rib\ 6727}# - #{sym\ 6785}# - #{subst\ 6786}# - #{marks\ 6787}# - #{symnames\ 6794}# - #{fst\ 6792}#) - (#{search-list-rib\ 6725}# - #{sym\ 6785}# - #{subst\ 6786}# - #{marks\ 6787}# - #{symnames\ 6794}# - #{fst\ 6792}#))))))))) - (if (symbol? #{id\ 6717}#) - (let ((#{t\ 6797}# + (#{f\ 12477}# #{symnames\ 12467}# 0)))) + (#{search\ 12425}# + (lambda (#{sym\ 12487}# + #{subst\ 12488}# + #{marks\ 12489}#) + (if (null? #{subst\ 12488}#) + (values #f #{marks\ 12489}#) + (let ((#{fst\ 12494}# (car #{subst\ 12488}#))) + (if (eq? #{fst\ 12494}# (quote shift)) + (#{search\ 12425}# + #{sym\ 12487}# + (cdr #{subst\ 12488}#) + (cdr #{marks\ 12489}#)) + (let ((#{symnames\ 12496}# + (#{ribcage-symnames\ 10731}# + #{fst\ 12494}#))) + (if (vector? #{symnames\ 12496}#) + (#{search-vector-rib\ 12429}# + #{sym\ 12487}# + #{subst\ 12488}# + #{marks\ 12489}# + #{symnames\ 12496}# + #{fst\ 12494}#) + (#{search-list-rib\ 12427}# + #{sym\ 12487}# + #{subst\ 12488}# + #{marks\ 12489}# + #{symnames\ 12496}# + #{fst\ 12494}#))))))))) + (if (symbol? #{id\ 12419}#) + (let ((#{t\ 12499}# (call-with-values (lambda () - (#{search\ 6723}# - #{id\ 6717}# - (#{wrap-subst\ 5013}# #{w\ 6718}#) - (#{wrap-marks\ 5011}# #{w\ 6718}#))) - (lambda (#{x\ 6799}# . #{ignore\ 6800}#) - #{x\ 6799}#)))) - (if #{t\ 6797}# #{t\ 6797}# #{id\ 6717}#)) - (if (#{syntax-object?\ 4968}# #{id\ 6717}#) - (let ((#{id\ 6808}# - (#{syntax-object-expression\ 4970}# #{id\ 6717}#)) - (#{w1\ 6809}# - (#{syntax-object-wrap\ 4972}# #{id\ 6717}#))) - (let ((#{marks\ 6811}# - (#{join-marks\ 5057}# - (#{wrap-marks\ 5011}# #{w\ 6718}#) - (#{wrap-marks\ 5011}# #{w1\ 6809}#)))) + (#{search\ 12425}# + #{id\ 12419}# + (#{wrap-subst\ 10715}# #{w\ 12420}#) + (#{wrap-marks\ 10713}# #{w\ 12420}#))) + (lambda (#{x\ 12501}# . #{ignore\ 12502}#) + #{x\ 12501}#)))) + (if #{t\ 12499}# #{t\ 12499}# #{id\ 12419}#)) + (if (#{syntax-object?\ 10670}# #{id\ 12419}#) + (let ((#{id\ 12510}# + (#{syntax-object-expression\ 10672}# + #{id\ 12419}#)) + (#{w1\ 12511}# + (#{syntax-object-wrap\ 10674}# #{id\ 12419}#))) + (let ((#{marks\ 12513}# + (#{join-marks\ 10759}# + (#{wrap-marks\ 10713}# #{w\ 12420}#) + (#{wrap-marks\ 10713}# #{w1\ 12511}#)))) (call-with-values (lambda () - (#{search\ 6723}# - #{id\ 6808}# - (#{wrap-subst\ 5013}# #{w\ 6718}#) - #{marks\ 6811}#)) - (lambda (#{new-id\ 6812}# #{marks\ 6813}#) - (let ((#{t\ 6818}# #{new-id\ 6812}#)) - (if #{t\ 6818}# - #{t\ 6818}# - (let ((#{t\ 6821}# + (#{search\ 12425}# + #{id\ 12510}# + (#{wrap-subst\ 10715}# #{w\ 12420}#) + #{marks\ 12513}#)) + (lambda (#{new-id\ 12514}# #{marks\ 12515}#) + (let ((#{t\ 12520}# #{new-id\ 12514}#)) + (if #{t\ 12520}# + #{t\ 12520}# + (let ((#{t\ 12523}# (call-with-values (lambda () - (#{search\ 6723}# - #{id\ 6808}# - (#{wrap-subst\ 5013}# - #{w1\ 6809}#) - #{marks\ 6813}#)) - (lambda (#{x\ 6823}# + (#{search\ 12425}# + #{id\ 12510}# + (#{wrap-subst\ 10715}# + #{w1\ 12511}#) + #{marks\ 12515}#)) + (lambda (#{x\ 12525}# . - #{ignore\ 6824}#) - #{x\ 6823}#)))) - (if #{t\ 6821}# - #{t\ 6821}# - #{id\ 6808}#)))))))) + #{ignore\ 12526}#) + #{x\ 12525}#)))) + (if #{t\ 12523}# + #{t\ 12523}# + #{id\ 12510}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 6717}#)))))) - (#{same-marks?\ 5059}# - (lambda (#{x\ 6829}# #{y\ 6830}#) - (let ((#{t\ 6835}# (eq? #{x\ 6829}# #{y\ 6830}#))) - (if #{t\ 6835}# - #{t\ 6835}# - (if (not (null? #{x\ 6829}#)) - (if (not (null? #{y\ 6830}#)) - (if (eq? (car #{x\ 6829}#) (car #{y\ 6830}#)) - (#{same-marks?\ 5059}# - (cdr #{x\ 6829}#) - (cdr #{y\ 6830}#)) + #{id\ 12419}#)))))) + (#{same-marks?\ 10761}# + (lambda (#{x\ 12531}# #{y\ 12532}#) + (let ((#{t\ 12537}# (eq? #{x\ 12531}# #{y\ 12532}#))) + (if #{t\ 12537}# + #{t\ 12537}# + (if (not (null? #{x\ 12531}#)) + (if (not (null? #{y\ 12532}#)) + (if (eq? (car #{x\ 12531}#) (car #{y\ 12532}#)) + (#{same-marks?\ 10761}# + (cdr #{x\ 12531}#) + (cdr #{y\ 12532}#)) #f) #f) #f))))) - (#{join-marks\ 5057}# - (lambda (#{m1\ 6841}# #{m2\ 6842}#) - (#{smart-append\ 5053}# - #{m1\ 6841}# - #{m2\ 6842}#))) - (#{join-wraps\ 5055}# - (lambda (#{w1\ 6845}# #{w2\ 6846}#) - (let ((#{m1\ 6851}# - (#{wrap-marks\ 5011}# #{w1\ 6845}#)) - (#{s1\ 6852}# - (#{wrap-subst\ 5013}# #{w1\ 6845}#))) - (if (null? #{m1\ 6851}#) - (if (null? #{s1\ 6852}#) - #{w2\ 6846}# - (#{make-wrap\ 5009}# - (#{wrap-marks\ 5011}# #{w2\ 6846}#) - (#{smart-append\ 5053}# - #{s1\ 6852}# - (#{wrap-subst\ 5013}# #{w2\ 6846}#)))) - (#{make-wrap\ 5009}# - (#{smart-append\ 5053}# - #{m1\ 6851}# - (#{wrap-marks\ 5011}# #{w2\ 6846}#)) - (#{smart-append\ 5053}# - #{s1\ 6852}# - (#{wrap-subst\ 5013}# #{w2\ 6846}#))))))) - (#{smart-append\ 5053}# - (lambda (#{m1\ 6853}# #{m2\ 6854}#) - (if (null? #{m2\ 6854}#) - #{m1\ 6853}# - (append #{m1\ 6853}# #{m2\ 6854}#)))) - (#{make-binding-wrap\ 5051}# - (lambda (#{ids\ 6857}# #{labels\ 6858}# #{w\ 6859}#) - (if (null? #{ids\ 6857}#) - #{w\ 6859}# - (#{make-wrap\ 5009}# - (#{wrap-marks\ 5011}# #{w\ 6859}#) - (cons (let ((#{labelvec\ 6864}# - (list->vector #{labels\ 6858}#))) - (let ((#{n\ 6866}# - (vector-length #{labelvec\ 6864}#))) - (let ((#{symnamevec\ 6869}# - (make-vector #{n\ 6866}#)) - (#{marksvec\ 6870}# - (make-vector #{n\ 6866}#))) + (#{join-marks\ 10759}# + (lambda (#{m1\ 12543}# #{m2\ 12544}#) + (#{smart-append\ 10755}# + #{m1\ 12543}# + #{m2\ 12544}#))) + (#{join-wraps\ 10757}# + (lambda (#{w1\ 12547}# #{w2\ 12548}#) + (let ((#{m1\ 12553}# + (#{wrap-marks\ 10713}# #{w1\ 12547}#)) + (#{s1\ 12554}# + (#{wrap-subst\ 10715}# #{w1\ 12547}#))) + (if (null? #{m1\ 12553}#) + (if (null? #{s1\ 12554}#) + #{w2\ 12548}# + (#{make-wrap\ 10711}# + (#{wrap-marks\ 10713}# #{w2\ 12548}#) + (#{smart-append\ 10755}# + #{s1\ 12554}# + (#{wrap-subst\ 10715}# #{w2\ 12548}#)))) + (#{make-wrap\ 10711}# + (#{smart-append\ 10755}# + #{m1\ 12553}# + (#{wrap-marks\ 10713}# #{w2\ 12548}#)) + (#{smart-append\ 10755}# + #{s1\ 12554}# + (#{wrap-subst\ 10715}# #{w2\ 12548}#))))))) + (#{smart-append\ 10755}# + (lambda (#{m1\ 12555}# #{m2\ 12556}#) + (if (null? #{m2\ 12556}#) + #{m1\ 12555}# + (append #{m1\ 12555}# #{m2\ 12556}#)))) + (#{make-binding-wrap\ 10753}# + (lambda (#{ids\ 12559}# #{labels\ 12560}# #{w\ 12561}#) + (if (null? #{ids\ 12559}#) + #{w\ 12561}# + (#{make-wrap\ 10711}# + (#{wrap-marks\ 10713}# #{w\ 12561}#) + (cons (let ((#{labelvec\ 12566}# + (list->vector #{labels\ 12560}#))) + (let ((#{n\ 12568}# + (vector-length #{labelvec\ 12566}#))) + (let ((#{symnamevec\ 12571}# + (make-vector #{n\ 12568}#)) + (#{marksvec\ 12572}# + (make-vector #{n\ 12568}#))) (begin - (letrec ((#{f\ 6874}# - (lambda (#{ids\ 6875}# #{i\ 6876}#) - (if (not (null? #{ids\ 6875}#)) + (letrec ((#{f\ 12576}# + (lambda (#{ids\ 12577}# + #{i\ 12578}#) + (if (not (null? #{ids\ 12577}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 5007}# - (car #{ids\ 6875}#) - #{w\ 6859}#)) - (lambda (#{symname\ 6877}# - #{marks\ 6878}#) + (#{id-sym-name&marks\ 10709}# + (car #{ids\ 12577}#) + #{w\ 12561}#)) + (lambda (#{symname\ 12579}# + #{marks\ 12580}#) (begin (vector-set! - #{symnamevec\ 6869}# - #{i\ 6876}# - #{symname\ 6877}#) + #{symnamevec\ 12571}# + #{i\ 12578}# + #{symname\ 12579}#) (vector-set! - #{marksvec\ 6870}# - #{i\ 6876}# - #{marks\ 6878}#) - (#{f\ 6874}# - (cdr #{ids\ 6875}#) - (#{fx+\ 4905}# - #{i\ 6876}# + #{marksvec\ 12572}# + #{i\ 12578}# + #{marks\ 12580}#) + (#{f\ 12576}# + (cdr #{ids\ 12577}#) + (#{fx+\ 10607}# + #{i\ 12578}# 1))))))))) - (#{f\ 6874}# #{ids\ 6857}# 0)) - (#{make-ribcage\ 5025}# - #{symnamevec\ 6869}# - #{marksvec\ 6870}# - #{labelvec\ 6864}#))))) - (#{wrap-subst\ 5013}# #{w\ 6859}#)))))) - (#{extend-ribcage!\ 5049}# - (lambda (#{ribcage\ 6881}# #{id\ 6882}# #{label\ 6883}#) + (#{f\ 12576}# #{ids\ 12559}# 0)) + (#{make-ribcage\ 10727}# + #{symnamevec\ 12571}# + #{marksvec\ 12572}# + #{labelvec\ 12566}#))))) + (#{wrap-subst\ 10715}# #{w\ 12561}#)))))) + (#{extend-ribcage!\ 10751}# + (lambda (#{ribcage\ 12583}# + #{id\ 12584}# + #{label\ 12585}#) (begin - (#{set-ribcage-symnames!\ 5035}# - #{ribcage\ 6881}# - (cons (#{syntax-object-expression\ 4970}# #{id\ 6882}#) - (#{ribcage-symnames\ 5029}# #{ribcage\ 6881}#))) - (#{set-ribcage-marks!\ 5037}# - #{ribcage\ 6881}# - (cons (#{wrap-marks\ 5011}# - (#{syntax-object-wrap\ 4972}# #{id\ 6882}#)) - (#{ribcage-marks\ 5031}# #{ribcage\ 6881}#))) - (#{set-ribcage-labels!\ 5039}# - #{ribcage\ 6881}# - (cons #{label\ 6883}# - (#{ribcage-labels\ 5033}# #{ribcage\ 6881}#)))))) - (#{anti-mark\ 5045}# - (lambda (#{w\ 6887}#) - (#{make-wrap\ 5009}# - (cons #f (#{wrap-marks\ 5011}# #{w\ 6887}#)) + (#{set-ribcage-symnames!\ 10737}# + #{ribcage\ 12583}# + (cons (#{syntax-object-expression\ 10672}# + #{id\ 12584}#) + (#{ribcage-symnames\ 10731}# #{ribcage\ 12583}#))) + (#{set-ribcage-marks!\ 10739}# + #{ribcage\ 12583}# + (cons (#{wrap-marks\ 10713}# + (#{syntax-object-wrap\ 10674}# #{id\ 12584}#)) + (#{ribcage-marks\ 10733}# #{ribcage\ 12583}#))) + (#{set-ribcage-labels!\ 10741}# + #{ribcage\ 12583}# + (cons #{label\ 12585}# + (#{ribcage-labels\ 10735}# #{ribcage\ 12583}#)))))) + (#{anti-mark\ 10747}# + (lambda (#{w\ 12589}#) + (#{make-wrap\ 10711}# + (cons #f (#{wrap-marks\ 10713}# #{w\ 12589}#)) (cons 'shift - (#{wrap-subst\ 5013}# #{w\ 6887}#))))) - (#{set-ribcage-labels!\ 5039}# - (lambda (#{x\ 6890}# #{update\ 6891}#) - (vector-set! #{x\ 6890}# 3 #{update\ 6891}#))) - (#{set-ribcage-marks!\ 5037}# - (lambda (#{x\ 6894}# #{update\ 6895}#) - (vector-set! #{x\ 6894}# 2 #{update\ 6895}#))) - (#{set-ribcage-symnames!\ 5035}# - (lambda (#{x\ 6898}# #{update\ 6899}#) - (vector-set! #{x\ 6898}# 1 #{update\ 6899}#))) - (#{ribcage-labels\ 5033}# - (lambda (#{x\ 6902}#) (vector-ref #{x\ 6902}# 3))) - (#{ribcage-marks\ 5031}# - (lambda (#{x\ 6904}#) (vector-ref #{x\ 6904}# 2))) - (#{ribcage-symnames\ 5029}# - (lambda (#{x\ 6906}#) (vector-ref #{x\ 6906}# 1))) - (#{ribcage?\ 5027}# - (lambda (#{x\ 6908}#) - (if (vector? #{x\ 6908}#) - (if (= (vector-length #{x\ 6908}#) 4) - (eq? (vector-ref #{x\ 6908}# 0) (quote ribcage)) + (#{wrap-subst\ 10715}# #{w\ 12589}#))))) + (#{set-ribcage-labels!\ 10741}# + (lambda (#{x\ 12592}# #{update\ 12593}#) + (vector-set! #{x\ 12592}# 3 #{update\ 12593}#))) + (#{set-ribcage-marks!\ 10739}# + (lambda (#{x\ 12596}# #{update\ 12597}#) + (vector-set! #{x\ 12596}# 2 #{update\ 12597}#))) + (#{set-ribcage-symnames!\ 10737}# + (lambda (#{x\ 12600}# #{update\ 12601}#) + (vector-set! #{x\ 12600}# 1 #{update\ 12601}#))) + (#{ribcage-labels\ 10735}# + (lambda (#{x\ 12604}#) + (vector-ref #{x\ 12604}# 3))) + (#{ribcage-marks\ 10733}# + (lambda (#{x\ 12606}#) + (vector-ref #{x\ 12606}# 2))) + (#{ribcage-symnames\ 10731}# + (lambda (#{x\ 12608}#) + (vector-ref #{x\ 12608}# 1))) + (#{ribcage?\ 10729}# + (lambda (#{x\ 12610}#) + (if (vector? #{x\ 12610}#) + (if (= (vector-length #{x\ 12610}#) 4) + (eq? (vector-ref #{x\ 12610}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 5025}# - (lambda (#{symnames\ 6913}# - #{marks\ 6914}# - #{labels\ 6915}#) + (#{make-ribcage\ 10727}# + (lambda (#{symnames\ 12615}# + #{marks\ 12616}# + #{labels\ 12617}#) (vector 'ribcage - #{symnames\ 6913}# - #{marks\ 6914}# - #{labels\ 6915}#))) - (#{gen-labels\ 5022}# - (lambda (#{ls\ 6919}#) - (if (null? #{ls\ 6919}#) + #{symnames\ 12615}# + #{marks\ 12616}# + #{labels\ 12617}#))) + (#{gen-labels\ 10724}# + (lambda (#{ls\ 12621}#) + (if (null? #{ls\ 12621}#) '() - (cons (#{gen-label\ 5020}#) - (#{gen-labels\ 5022}# (cdr #{ls\ 6919}#)))))) - (#{gen-label\ 5020}# + (cons (#{gen-label\ 10722}#) + (#{gen-labels\ 10724}# (cdr #{ls\ 12621}#)))))) + (#{gen-label\ 10722}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 5013}# cdr) - (#{wrap-marks\ 5011}# car) - (#{make-wrap\ 5009}# cons) - (#{id-sym-name&marks\ 5007}# - (lambda (#{x\ 6921}# #{w\ 6922}#) - (if (#{syntax-object?\ 4968}# #{x\ 6921}#) + (#{wrap-subst\ 10715}# cdr) + (#{wrap-marks\ 10713}# car) + (#{make-wrap\ 10711}# cons) + (#{id-sym-name&marks\ 10709}# + (lambda (#{x\ 12623}# #{w\ 12624}#) + (if (#{syntax-object?\ 10670}# #{x\ 12623}#) (values - (#{syntax-object-expression\ 4970}# #{x\ 6921}#) - (#{join-marks\ 5057}# - (#{wrap-marks\ 5011}# #{w\ 6922}#) - (#{wrap-marks\ 5011}# - (#{syntax-object-wrap\ 4972}# #{x\ 6921}#)))) + (#{syntax-object-expression\ 10672}# + #{x\ 12623}#) + (#{join-marks\ 10759}# + (#{wrap-marks\ 10713}# #{w\ 12624}#) + (#{wrap-marks\ 10713}# + (#{syntax-object-wrap\ 10674}# #{x\ 12623}#)))) (values - #{x\ 6921}# - (#{wrap-marks\ 5011}# #{w\ 6922}#))))) - (#{id?\ 5004}# - (lambda (#{x\ 6925}#) - (if (symbol? #{x\ 6925}#) + #{x\ 12623}# + (#{wrap-marks\ 10713}# #{w\ 12624}#))))) + (#{id?\ 10706}# + (lambda (#{x\ 12627}#) + (if (symbol? #{x\ 12627}#) #t - (if (#{syntax-object?\ 4968}# #{x\ 6925}#) + (if (#{syntax-object?\ 10670}# #{x\ 12627}#) (symbol? - (#{syntax-object-expression\ 4970}# #{x\ 6925}#)) + (#{syntax-object-expression\ 10672}# + #{x\ 12627}#)) #f)))) - (#{nonsymbol-id?\ 5002}# - (lambda (#{x\ 6932}#) - (if (#{syntax-object?\ 4968}# #{x\ 6932}#) + (#{nonsymbol-id?\ 10704}# + (lambda (#{x\ 12634}#) + (if (#{syntax-object?\ 10670}# #{x\ 12634}#) (symbol? - (#{syntax-object-expression\ 4970}# #{x\ 6932}#)) + (#{syntax-object-expression\ 10672}# + #{x\ 12634}#)) #f))) - (#{global-extend\ 5000}# - (lambda (#{type\ 6936}# #{sym\ 6937}# #{val\ 6938}#) - (#{put-global-definition-hook\ 4918}# - #{sym\ 6937}# - #{type\ 6936}# - #{val\ 6938}#))) - (#{lookup\ 4998}# - (lambda (#{x\ 6942}# #{r\ 6943}# #{mod\ 6944}#) - (let ((#{t\ 6950}# (assq #{x\ 6942}# #{r\ 6943}#))) - (if #{t\ 6950}# - (cdr #{t\ 6950}#) - (if (symbol? #{x\ 6942}#) - (let ((#{t\ 6956}# - (#{get-global-definition-hook\ 4920}# - #{x\ 6942}# - #{mod\ 6944}#))) - (if #{t\ 6956}# #{t\ 6956}# (quote (global)))) + (#{global-extend\ 10702}# + (lambda (#{type\ 12638}# #{sym\ 12639}# #{val\ 12640}#) + (#{put-global-definition-hook\ 10620}# + #{sym\ 12639}# + #{type\ 12638}# + #{val\ 12640}#))) + (#{lookup\ 10700}# + (lambda (#{x\ 12644}# #{r\ 12645}# #{mod\ 12646}#) + (let ((#{t\ 12652}# (assq #{x\ 12644}# #{r\ 12645}#))) + (if #{t\ 12652}# + (cdr #{t\ 12652}#) + (if (symbol? #{x\ 12644}#) + (let ((#{t\ 12658}# + (#{get-global-definition-hook\ 10622}# + #{x\ 12644}# + #{mod\ 12646}#))) + (if #{t\ 12658}# #{t\ 12658}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 4996}# - (lambda (#{r\ 6961}#) - (if (null? #{r\ 6961}#) + (#{macros-only-env\ 10698}# + (lambda (#{r\ 12663}#) + (if (null? #{r\ 12663}#) '() - (let ((#{a\ 6964}# (car #{r\ 6961}#))) - (if (eq? (cadr #{a\ 6964}#) (quote macro)) - (cons #{a\ 6964}# - (#{macros-only-env\ 4996}# (cdr #{r\ 6961}#))) - (#{macros-only-env\ 4996}# (cdr #{r\ 6961}#))))))) - (#{extend-var-env\ 4994}# - (lambda (#{labels\ 6965}# #{vars\ 6966}# #{r\ 6967}#) - (if (null? #{labels\ 6965}#) - #{r\ 6967}# - (#{extend-var-env\ 4994}# - (cdr #{labels\ 6965}#) - (cdr #{vars\ 6966}#) - (cons (cons (car #{labels\ 6965}#) - (cons (quote lexical) (car #{vars\ 6966}#))) - #{r\ 6967}#))))) - (#{extend-env\ 4992}# - (lambda (#{labels\ 6972}# #{bindings\ 6973}# #{r\ 6974}#) - (if (null? #{labels\ 6972}#) - #{r\ 6974}# - (#{extend-env\ 4992}# - (cdr #{labels\ 6972}#) - (cdr #{bindings\ 6973}#) - (cons (cons (car #{labels\ 6972}#) - (car #{bindings\ 6973}#)) - #{r\ 6974}#))))) - (#{binding-value\ 4989}# cdr) - (#{binding-type\ 4987}# car) - (#{source-annotation\ 4983}# - (lambda (#{x\ 6978}#) - (if (#{syntax-object?\ 4968}# #{x\ 6978}#) - (#{source-annotation\ 4983}# - (#{syntax-object-expression\ 4970}# #{x\ 6978}#)) - (if (pair? #{x\ 6978}#) - (let ((#{props\ 6985}# (source-properties #{x\ 6978}#))) - (if (pair? #{props\ 6985}#) #{props\ 6985}# #f)) + (let ((#{a\ 12666}# (car #{r\ 12663}#))) + (if (eq? (cadr #{a\ 12666}#) (quote macro)) + (cons #{a\ 12666}# + (#{macros-only-env\ 10698}# (cdr #{r\ 12663}#))) + (#{macros-only-env\ 10698}# (cdr #{r\ 12663}#))))))) + (#{extend-var-env\ 10696}# + (lambda (#{labels\ 12667}# #{vars\ 12668}# #{r\ 12669}#) + (if (null? #{labels\ 12667}#) + #{r\ 12669}# + (#{extend-var-env\ 10696}# + (cdr #{labels\ 12667}#) + (cdr #{vars\ 12668}#) + (cons (cons (car #{labels\ 12667}#) + (cons (quote lexical) (car #{vars\ 12668}#))) + #{r\ 12669}#))))) + (#{extend-env\ 10694}# + (lambda (#{labels\ 12674}# + #{bindings\ 12675}# + #{r\ 12676}#) + (if (null? #{labels\ 12674}#) + #{r\ 12676}# + (#{extend-env\ 10694}# + (cdr #{labels\ 12674}#) + (cdr #{bindings\ 12675}#) + (cons (cons (car #{labels\ 12674}#) + (car #{bindings\ 12675}#)) + #{r\ 12676}#))))) + (#{binding-value\ 10691}# cdr) + (#{binding-type\ 10689}# car) + (#{source-annotation\ 10685}# + (lambda (#{x\ 12680}#) + (if (#{syntax-object?\ 10670}# #{x\ 12680}#) + (#{source-annotation\ 10685}# + (#{syntax-object-expression\ 10672}# + #{x\ 12680}#)) + (if (pair? #{x\ 12680}#) + (let ((#{props\ 12687}# + (source-properties #{x\ 12680}#))) + (if (pair? #{props\ 12687}#) #{props\ 12687}# #f)) #f)))) - (#{set-syntax-object-module!\ 4980}# - (lambda (#{x\ 6987}# #{update\ 6988}#) - (vector-set! #{x\ 6987}# 3 #{update\ 6988}#))) - (#{set-syntax-object-wrap!\ 4978}# - (lambda (#{x\ 6991}# #{update\ 6992}#) - (vector-set! #{x\ 6991}# 2 #{update\ 6992}#))) - (#{set-syntax-object-expression!\ 4976}# - (lambda (#{x\ 6995}# #{update\ 6996}#) - (vector-set! #{x\ 6995}# 1 #{update\ 6996}#))) - (#{syntax-object-module\ 4974}# - (lambda (#{x\ 6999}#) (vector-ref #{x\ 6999}# 3))) - (#{syntax-object-wrap\ 4972}# - (lambda (#{x\ 7001}#) (vector-ref #{x\ 7001}# 2))) - (#{syntax-object-expression\ 4970}# - (lambda (#{x\ 7003}#) (vector-ref #{x\ 7003}# 1))) - (#{syntax-object?\ 4968}# - (lambda (#{x\ 7005}#) - (if (vector? #{x\ 7005}#) - (if (= (vector-length #{x\ 7005}#) 4) - (eq? (vector-ref #{x\ 7005}# 0) + (#{set-syntax-object-module!\ 10682}# + (lambda (#{x\ 12689}# #{update\ 12690}#) + (vector-set! #{x\ 12689}# 3 #{update\ 12690}#))) + (#{set-syntax-object-wrap!\ 10680}# + (lambda (#{x\ 12693}# #{update\ 12694}#) + (vector-set! #{x\ 12693}# 2 #{update\ 12694}#))) + (#{set-syntax-object-expression!\ 10678}# + (lambda (#{x\ 12697}# #{update\ 12698}#) + (vector-set! #{x\ 12697}# 1 #{update\ 12698}#))) + (#{syntax-object-module\ 10676}# + (lambda (#{x\ 12701}#) + (vector-ref #{x\ 12701}# 3))) + (#{syntax-object-wrap\ 10674}# + (lambda (#{x\ 12703}#) + (vector-ref #{x\ 12703}# 2))) + (#{syntax-object-expression\ 10672}# + (lambda (#{x\ 12705}#) + (vector-ref #{x\ 12705}# 1))) + (#{syntax-object?\ 10670}# + (lambda (#{x\ 12707}#) + (if (vector? #{x\ 12707}#) + (if (= (vector-length #{x\ 12707}#) 4) + (eq? (vector-ref #{x\ 12707}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 4966}# - (lambda (#{expression\ 7010}# - #{wrap\ 7011}# - #{module\ 7012}#) + (#{make-syntax-object\ 10668}# + (lambda (#{expression\ 12712}# + #{wrap\ 12713}# + #{module\ 12714}#) (vector 'syntax-object - #{expression\ 7010}# - #{wrap\ 7011}# - #{module\ 7012}#))) - (#{build-letrec\ 4962}# - (lambda (#{src\ 7016}# - #{ids\ 7017}# - #{vars\ 7018}# - #{val-exps\ 7019}# - #{body-exp\ 7020}#) - (if (null? #{vars\ 7018}#) - #{body-exp\ 7020}# - (let ((#{atom-key\ 7028}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7028}# (quote (c))) + #{expression\ 12712}# + #{wrap\ 12713}# + #{module\ 12714}#))) + (#{build-letrec\ 10664}# + (lambda (#{src\ 12718}# + #{ids\ 12719}# + #{vars\ 12720}# + #{val-exps\ 12721}# + #{body-exp\ 12722}#) + (if (null? #{vars\ 12720}#) + #{body-exp\ 12722}# + (let ((#{atom-key\ 12730}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12730}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 4942}# - #{ids\ 7017}# - #{val-exps\ 7019}#) + #{maybe-name-value!\ 10644}# + #{ids\ 12719}# + #{val-exps\ 12721}#) ((@ (language tree-il) make-letrec) - #{src\ 7016}# - #{ids\ 7017}# - #{vars\ 7018}# - #{val-exps\ 7019}# - #{body-exp\ 7020}#)) - (#{decorate-source\ 4922}# + #{src\ 12718}# + #{ids\ 12719}# + #{vars\ 12720}# + #{val-exps\ 12721}# + #{body-exp\ 12722}#)) + (#{decorate-source\ 10624}# (list 'letrec - (map list #{vars\ 7018}# #{val-exps\ 7019}#) - #{body-exp\ 7020}#) - #{src\ 7016}#)))))) - (#{build-named-let\ 4960}# - (lambda (#{src\ 7032}# - #{ids\ 7033}# - #{vars\ 7034}# - #{val-exps\ 7035}# - #{body-exp\ 7036}#) - (let ((#{f\ 7046}# (car #{vars\ 7034}#)) - (#{f-name\ 7047}# (car #{ids\ 7033}#)) - (#{vars\ 7048}# (cdr #{vars\ 7034}#)) - (#{ids\ 7049}# (cdr #{ids\ 7033}#))) - (let ((#{atom-key\ 7052}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7052}# (quote (c))) - (let ((#{proc\ 7055}# - (#{build-simple-lambda\ 4946}# - #{src\ 7032}# - #{ids\ 7049}# + (map list #{vars\ 12720}# #{val-exps\ 12721}#) + #{body-exp\ 12722}#) + #{src\ 12718}#)))))) + (#{build-named-let\ 10662}# + (lambda (#{src\ 12734}# + #{ids\ 12735}# + #{vars\ 12736}# + #{val-exps\ 12737}# + #{body-exp\ 12738}#) + (let ((#{f\ 12748}# (car #{vars\ 12736}#)) + (#{f-name\ 12749}# (car #{ids\ 12735}#)) + (#{vars\ 12750}# (cdr #{vars\ 12736}#)) + (#{ids\ 12751}# (cdr #{ids\ 12735}#))) + (let ((#{atom-key\ 12754}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12754}# (quote (c))) + (let ((#{proc\ 12757}# + (#{build-simple-lambda\ 10648}# + #{src\ 12734}# + #{ids\ 12751}# #f - #{vars\ 7048}# + #{vars\ 12750}# '() - #{body-exp\ 7036}#))) + #{body-exp\ 12738}#))) (begin - (#{maybe-name-value!\ 4942}# - #{f-name\ 7047}# - #{proc\ 7055}#) + (#{maybe-name-value!\ 10644}# + #{f-name\ 12749}# + #{proc\ 12757}#) (for-each - #{maybe-name-value!\ 4942}# - #{ids\ 7049}# - #{val-exps\ 7035}#) + #{maybe-name-value!\ 10644}# + #{ids\ 12751}# + #{val-exps\ 12737}#) ((@ (language tree-il) make-letrec) - #{src\ 7032}# - (list #{f-name\ 7047}#) - (list #{f\ 7046}#) - (list #{proc\ 7055}#) - (#{build-application\ 4926}# - #{src\ 7032}# - (#{build-lexical-reference\ 4932}# + #{src\ 12734}# + (list #{f-name\ 12749}#) + (list #{f\ 12748}#) + (list #{proc\ 12757}#) + (#{build-application\ 10628}# + #{src\ 12734}# + (#{build-lexical-reference\ 10634}# 'fun - #{src\ 7032}# - #{f-name\ 7047}# - #{f\ 7046}#) - #{val-exps\ 7035}#)))) - (#{decorate-source\ 4922}# + #{src\ 12734}# + #{f-name\ 12749}# + #{f\ 12748}#) + #{val-exps\ 12737}#)))) + (#{decorate-source\ 10624}# (list 'letrec - (list (list #{f\ 7046}# + (list (list #{f\ 12748}# (list 'lambda - #{vars\ 7048}# - #{body-exp\ 7036}#))) - (cons #{f\ 7046}# #{val-exps\ 7035}#)) - #{src\ 7032}#)))))) - (#{build-let\ 4958}# - (lambda (#{src\ 7058}# - #{ids\ 7059}# - #{vars\ 7060}# - #{val-exps\ 7061}# - #{body-exp\ 7062}#) - (if (null? #{vars\ 7060}#) - #{body-exp\ 7062}# - (let ((#{atom-key\ 7070}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7070}# (quote (c))) + #{vars\ 12750}# + #{body-exp\ 12738}#))) + (cons #{f\ 12748}# #{val-exps\ 12737}#)) + #{src\ 12734}#)))))) + (#{build-let\ 10660}# + (lambda (#{src\ 12760}# + #{ids\ 12761}# + #{vars\ 12762}# + #{val-exps\ 12763}# + #{body-exp\ 12764}#) + (if (null? #{vars\ 12762}#) + #{body-exp\ 12764}# + (let ((#{atom-key\ 12772}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12772}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 4942}# - #{ids\ 7059}# - #{val-exps\ 7061}#) + #{maybe-name-value!\ 10644}# + #{ids\ 12761}# + #{val-exps\ 12763}#) ((@ (language tree-il) make-let) - #{src\ 7058}# - #{ids\ 7059}# - #{vars\ 7060}# - #{val-exps\ 7061}# - #{body-exp\ 7062}#)) - (#{decorate-source\ 4922}# + #{src\ 12760}# + #{ids\ 12761}# + #{vars\ 12762}# + #{val-exps\ 12763}# + #{body-exp\ 12764}#)) + (#{decorate-source\ 10624}# (list 'let - (map list #{vars\ 7060}# #{val-exps\ 7061}#) - #{body-exp\ 7062}#) - #{src\ 7058}#)))))) - (#{build-sequence\ 4956}# - (lambda (#{src\ 7074}# #{exps\ 7075}#) - (if (null? (cdr #{exps\ 7075}#)) - (car #{exps\ 7075}#) - (let ((#{atom-key\ 7080}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7080}# (quote (c))) + (map list #{vars\ 12762}# #{val-exps\ 12763}#) + #{body-exp\ 12764}#) + #{src\ 12760}#)))))) + (#{build-sequence\ 10658}# + (lambda (#{src\ 12776}# #{exps\ 12777}#) + (if (null? (cdr #{exps\ 12777}#)) + (car #{exps\ 12777}#) + (let ((#{atom-key\ 12782}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12782}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 7074}# - #{exps\ 7075}#) - (#{decorate-source\ 4922}# - (cons (quote begin) #{exps\ 7075}#) - #{src\ 7074}#)))))) - (#{build-data\ 4954}# - (lambda (#{src\ 7084}# #{exp\ 7085}#) - (let ((#{atom-key\ 7090}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7090}# (quote (c))) + #{src\ 12776}# + #{exps\ 12777}#) + (#{decorate-source\ 10624}# + (cons (quote begin) #{exps\ 12777}#) + #{src\ 12776}#)))))) + (#{build-data\ 10656}# + (lambda (#{src\ 12786}# #{exp\ 12787}#) + (let ((#{atom-key\ 12792}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12792}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 7084}# - #{exp\ 7085}#) - (#{decorate-source\ 4922}# - (if (if (self-evaluating? #{exp\ 7085}#) - (not (vector? #{exp\ 7085}#)) + #{src\ 12786}# + #{exp\ 12787}#) + (#{decorate-source\ 10624}# + (if (if (self-evaluating? #{exp\ 12787}#) + (not (vector? #{exp\ 12787}#)) #f) - #{exp\ 7085}# - (list (quote quote) #{exp\ 7085}#)) - #{src\ 7084}#))))) - (#{build-primref\ 4952}# - (lambda (#{src\ 7095}# #{name\ 7096}#) + #{exp\ 12787}# + (list (quote quote) #{exp\ 12787}#)) + #{src\ 12786}#))))) + (#{build-primref\ 10654}# + (lambda (#{src\ 12797}# #{name\ 12798}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 7101}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7101}# (quote (c))) + (let ((#{atom-key\ 12803}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12803}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 7095}# - #{name\ 7096}#) - (#{decorate-source\ 4922}# - #{name\ 7096}# - #{src\ 7095}#))) - (let ((#{atom-key\ 7106}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7106}# (quote (c))) + #{src\ 12797}# + #{name\ 12798}#) + (#{decorate-source\ 10624}# + #{name\ 12798}# + #{src\ 12797}#))) + (let ((#{atom-key\ 12808}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12808}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 7095}# + #{src\ 12797}# '(guile) - #{name\ 7096}# + #{name\ 12798}# #f) - (#{decorate-source\ 4922}# - (list (quote @@) (quote (guile)) #{name\ 7096}#) - #{src\ 7095}#)))))) - (#{build-lambda-case\ 4950}# - (lambda (#{src\ 7110}# - #{req\ 7111}# - #{opt\ 7112}# - #{rest\ 7113}# - #{kw\ 7114}# - #{inits\ 7115}# - #{vars\ 7116}# - #{body\ 7117}# - #{else-case\ 7118}#) - (let ((#{atom-key\ 7130}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7130}# (quote (c))) + (#{decorate-source\ 10624}# + (list (quote @@) (quote (guile)) #{name\ 12798}#) + #{src\ 12797}#)))))) + (#{build-lambda-case\ 10652}# + (lambda (#{src\ 12812}# + #{req\ 12813}# + #{opt\ 12814}# + #{rest\ 12815}# + #{kw\ 12816}# + #{inits\ 12817}# + #{vars\ 12818}# + #{body\ 12819}# + #{else-case\ 12820}#) + (let ((#{atom-key\ 12832}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12832}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 7110}# - #{req\ 7111}# - #{opt\ 7112}# - #{rest\ 7113}# - #{kw\ 7114}# - #{inits\ 7115}# - #{vars\ 7116}# - #{body\ 7117}# - #{else-case\ 7118}#) - (let ((#{nreq\ 7135}# (length #{req\ 7111}#))) - (let ((#{nopt\ 7137}# - (if #{opt\ 7112}# (length #{opt\ 7112}#) 0))) - (let ((#{rest-idx\ 7139}# - (if #{rest\ 7113}# - (+ #{nreq\ 7135}# #{nopt\ 7137}#) + #{src\ 12812}# + #{req\ 12813}# + #{opt\ 12814}# + #{rest\ 12815}# + #{kw\ 12816}# + #{inits\ 12817}# + #{vars\ 12818}# + #{body\ 12819}# + #{else-case\ 12820}#) + (let ((#{nreq\ 12837}# (length #{req\ 12813}#))) + (let ((#{nopt\ 12839}# + (if #{opt\ 12814}# (length #{opt\ 12814}#) 0))) + (let ((#{rest-idx\ 12841}# + (if #{rest\ 12815}# + (+ #{nreq\ 12837}# #{nopt\ 12839}#) #f))) - (let ((#{allow-other-keys?\ 7143}# - (if #{kw\ 7114}# (car #{kw\ 7114}#) #f))) - (let ((#{kw-indices\ 7145}# - (map (lambda (#{x\ 7146}#) - (cons (car #{x\ 7146}#) + (let ((#{allow-other-keys?\ 12845}# + (if #{kw\ 12816}# (car #{kw\ 12816}#) #f))) + (let ((#{kw-indices\ 12847}# + (map (lambda (#{x\ 12848}#) + (cons (car #{x\ 12848}#) (list-index - #{vars\ 7116}# - (caddr #{x\ 7146}#)))) - (if #{kw\ 7114}# - (cdr #{kw\ 7114}#) + #{vars\ 12818}# + (caddr #{x\ 12848}#)))) + (if #{kw\ 12816}# + (cdr #{kw\ 12816}#) '())))) - (let ((#{nargs\ 7149}# + (let ((#{nargs\ 12851}# (apply max - (+ #{nreq\ 7135}# - #{nopt\ 7137}# - (if #{rest\ 7113}# 1 0)) + (+ #{nreq\ 12837}# + #{nopt\ 12839}# + (if #{rest\ 12815}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 7145}#))))) + #{kw-indices\ 12847}#))))) (begin - (let ((#{t\ 7152}# - (= #{nargs\ 7149}# - (length #{vars\ 7116}#) - (+ #{nreq\ 7135}# - (length #{inits\ 7115}#) - (if #{rest\ 7113}# 1 0))))) - (if #{t\ 7152}# - #{t\ 7152}# + (let ((#{t\ 12854}# + (= #{nargs\ 12851}# + (length #{vars\ 12818}#) + (+ #{nreq\ 12837}# + (length #{inits\ 12817}#) + (if #{rest\ 12815}# 1 0))))) + (if #{t\ 12854}# + #{t\ 12854}# (error "something went wrong" - #{req\ 7111}# - #{opt\ 7112}# - #{rest\ 7113}# - #{kw\ 7114}# - #{inits\ 7115}# - #{vars\ 7116}# - #{nreq\ 7135}# - #{nopt\ 7137}# - #{kw-indices\ 7145}# - #{nargs\ 7149}#))) - (#{decorate-source\ 4922}# + #{req\ 12813}# + #{opt\ 12814}# + #{rest\ 12815}# + #{kw\ 12816}# + #{inits\ 12817}# + #{vars\ 12818}# + #{nreq\ 12837}# + #{nopt\ 12839}# + #{kw-indices\ 12847}# + #{nargs\ 12851}#))) + (#{decorate-source\ 10624}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 7135}# - #{nopt\ 7137}# - #{rest-idx\ 7139}# - #{nargs\ 7149}# - #{allow-other-keys?\ 7143}# - #{kw-indices\ 7145}#)) + (list #{nreq\ 12837}# + #{nopt\ 12839}# + #{rest-idx\ 12841}# + #{nargs\ 12851}# + #{allow-other-keys?\ 12845}# + #{kw-indices\ 12847}#)) (cons (cons 'list - (map (lambda (#{i\ 7155}#) + (map (lambda (#{i\ 12857}#) (list 'lambda - #{vars\ 7116}# - #{i\ 7155}#)) - #{inits\ 7115}#)) + #{vars\ 12818}# + #{i\ 12857}#)) + #{inits\ 12817}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 7116}# - #{body\ 7117}#) + #{vars\ 12818}# + #{body\ 12819}#) '(%%args))))) - (let ((#{t\ 7160}# - #{else-case\ 7118}#)) - (if #{t\ 7160}# - #{t\ 7160}# + (let ((#{t\ 12862}# + #{else-case\ 12820}#)) + (if #{t\ 12862}# + #{t\ 12862}# '((%%args (scm-error 'wrong-number-of-args @@ -7987,1455 +8054,1492 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 7110}#)))))))))))) - (#{build-case-lambda\ 4948}# - (lambda (#{src\ 7163}# #{meta\ 7164}# #{body\ 7165}#) - (let ((#{atom-key\ 7171}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7171}# (quote (c))) + #{src\ 12812}#)))))))))))) + (#{build-case-lambda\ 10650}# + (lambda (#{src\ 12865}# #{meta\ 12866}# #{body\ 12867}#) + (let ((#{atom-key\ 12873}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12873}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 7163}# - #{meta\ 7164}# - #{body\ 7165}#) - (#{decorate-source\ 4922}# + #{src\ 12865}# + #{meta\ 12866}# + #{body\ 12867}#) + (#{decorate-source\ 10624}# (list 'lambda '%%args - (cons (quote cond) #{body\ 7165}#)) - #{src\ 7163}#))))) - (#{build-simple-lambda\ 4946}# - (lambda (#{src\ 7175}# - #{req\ 7176}# - #{rest\ 7177}# - #{vars\ 7178}# - #{meta\ 7179}# - #{exp\ 7180}#) - (let ((#{atom-key\ 7189}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7189}# (quote (c))) + (cons (quote cond) #{body\ 12867}#)) + #{src\ 12865}#))))) + (#{build-simple-lambda\ 10648}# + (lambda (#{src\ 12877}# + #{req\ 12878}# + #{rest\ 12879}# + #{vars\ 12880}# + #{meta\ 12881}# + #{exp\ 12882}#) + (let ((#{atom-key\ 12891}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12891}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 7175}# - #{meta\ 7179}# + #{src\ 12877}# + #{meta\ 12881}# ((@ (language tree-il) make-lambda-case) - #{src\ 7175}# - #{req\ 7176}# + #{src\ 12877}# + #{req\ 12878}# #f - #{rest\ 7177}# + #{rest\ 12879}# #f '() - #{vars\ 7178}# - #{exp\ 7180}# + #{vars\ 12880}# + #{exp\ 12882}# #f)) - (#{decorate-source\ 4922}# + (#{decorate-source\ 10624}# (list 'lambda - (if #{rest\ 7177}# - (apply cons* #{vars\ 7178}#) - #{vars\ 7178}#) - #{exp\ 7180}#) - #{src\ 7175}#))))) - (#{build-global-definition\ 4944}# - (lambda (#{source\ 7193}# #{var\ 7194}# #{exp\ 7195}#) - (let ((#{atom-key\ 7201}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7201}# (quote (c))) + (if #{rest\ 12879}# + (apply cons* #{vars\ 12880}#) + #{vars\ 12880}#) + #{exp\ 12882}#) + #{src\ 12877}#))))) + (#{build-global-definition\ 10646}# + (lambda (#{source\ 12895}# #{var\ 12896}# #{exp\ 12897}#) + (let ((#{atom-key\ 12903}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12903}# (quote (c))) (begin - (#{maybe-name-value!\ 4942}# - #{var\ 7194}# - #{exp\ 7195}#) + (#{maybe-name-value!\ 10644}# + #{var\ 12896}# + #{exp\ 12897}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 7193}# - #{var\ 7194}# - #{exp\ 7195}#)) - (#{decorate-source\ 4922}# - (list (quote define) #{var\ 7194}# #{exp\ 7195}#) - #{source\ 7193}#))))) - (#{maybe-name-value!\ 4942}# - (lambda (#{name\ 7205}# #{val\ 7206}#) - (if ((@ (language tree-il) lambda?) #{val\ 7206}#) - (let ((#{meta\ 7212}# + #{source\ 12895}# + #{var\ 12896}# + #{exp\ 12897}#)) + (#{decorate-source\ 10624}# + (list 'define + #{var\ 12896}# + #{exp\ 12897}#) + #{source\ 12895}#))))) + (#{maybe-name-value!\ 10644}# + (lambda (#{name\ 12907}# #{val\ 12908}#) + (if ((@ (language tree-il) lambda?) #{val\ 12908}#) + (let ((#{meta\ 12914}# ((@ (language tree-il) lambda-meta) - #{val\ 7206}#))) - (if (not (assq (quote name) #{meta\ 7212}#)) + #{val\ 12908}#))) + (if (not (assq (quote name) #{meta\ 12914}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 7206}# + #{val\ 12908}# (acons 'name - #{name\ 7205}# - #{meta\ 7212}#))))))) - (#{build-global-assignment\ 4940}# - (lambda (#{source\ 7213}# - #{var\ 7214}# - #{exp\ 7215}# - #{mod\ 7216}#) - (#{analyze-variable\ 4936}# - #{mod\ 7216}# - #{var\ 7214}# - (lambda (#{mod\ 7221}# #{var\ 7222}# #{public?\ 7223}#) - (let ((#{atom-key\ 7229}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7229}# (quote (c))) + #{name\ 12907}# + #{meta\ 12914}#))))))) + (#{build-global-assignment\ 10642}# + (lambda (#{source\ 12915}# + #{var\ 12916}# + #{exp\ 12917}# + #{mod\ 12918}#) + (#{analyze-variable\ 10638}# + #{mod\ 12918}# + #{var\ 12916}# + (lambda (#{mod\ 12923}# + #{var\ 12924}# + #{public?\ 12925}#) + (let ((#{atom-key\ 12931}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12931}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 7213}# - #{mod\ 7221}# - #{var\ 7222}# - #{public?\ 7223}# - #{exp\ 7215}#) - (#{decorate-source\ 4922}# + #{source\ 12915}# + #{mod\ 12923}# + #{var\ 12924}# + #{public?\ 12925}# + #{exp\ 12917}#) + (#{decorate-source\ 10624}# (list 'set! - (list (if #{public?\ 7223}# + (list (if #{public?\ 12925}# '@ '@@) - #{mod\ 7221}# - #{var\ 7222}#) - #{exp\ 7215}#) - #{source\ 7213}#)))) - (lambda (#{var\ 7233}#) - (let ((#{atom-key\ 7237}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7237}# (quote (c))) + #{mod\ 12923}# + #{var\ 12924}#) + #{exp\ 12917}#) + #{source\ 12915}#)))) + (lambda (#{var\ 12935}#) + (let ((#{atom-key\ 12939}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12939}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 7213}# - #{var\ 7233}# - #{exp\ 7215}#) - (#{decorate-source\ 4922}# - (list (quote set!) #{var\ 7233}# #{exp\ 7215}#) - #{source\ 7213}#))))))) - (#{build-global-reference\ 4938}# - (lambda (#{source\ 7241}# #{var\ 7242}# #{mod\ 7243}#) - (#{analyze-variable\ 4936}# - #{mod\ 7243}# - #{var\ 7242}# - (lambda (#{mod\ 7247}# #{var\ 7248}# #{public?\ 7249}#) - (let ((#{atom-key\ 7255}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7255}# (quote (c))) + #{source\ 12915}# + #{var\ 12935}# + #{exp\ 12917}#) + (#{decorate-source\ 10624}# + (list (quote set!) #{var\ 12935}# #{exp\ 12917}#) + #{source\ 12915}#))))))) + (#{build-global-reference\ 10640}# + (lambda (#{source\ 12943}# #{var\ 12944}# #{mod\ 12945}#) + (#{analyze-variable\ 10638}# + #{mod\ 12945}# + #{var\ 12944}# + (lambda (#{mod\ 12949}# + #{var\ 12950}# + #{public?\ 12951}#) + (let ((#{atom-key\ 12957}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12957}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 7241}# - #{mod\ 7247}# - #{var\ 7248}# - #{public?\ 7249}#) - (#{decorate-source\ 4922}# - (list (if #{public?\ 7249}# (quote @) (quote @@)) - #{mod\ 7247}# - #{var\ 7248}#) - #{source\ 7241}#)))) - (lambda (#{var\ 7258}#) - (let ((#{atom-key\ 7262}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7262}# (quote (c))) + #{source\ 12943}# + #{mod\ 12949}# + #{var\ 12950}# + #{public?\ 12951}#) + (#{decorate-source\ 10624}# + (list (if #{public?\ 12951}# (quote @) (quote @@)) + #{mod\ 12949}# + #{var\ 12950}#) + #{source\ 12943}#)))) + (lambda (#{var\ 12960}#) + (let ((#{atom-key\ 12964}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12964}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 7241}# - #{var\ 7258}#) - (#{decorate-source\ 4922}# - #{var\ 7258}# - #{source\ 7241}#))))))) - (#{analyze-variable\ 4936}# - (lambda (#{mod\ 7265}# - #{var\ 7266}# - #{modref-cont\ 7267}# - #{bare-cont\ 7268}#) - (if (not #{mod\ 7265}#) - (#{bare-cont\ 7268}# #{var\ 7266}#) - (let ((#{kind\ 7275}# (car #{mod\ 7265}#)) - (#{mod\ 7276}# (cdr #{mod\ 7265}#))) - (if (memv #{kind\ 7275}# (quote (public))) - (#{modref-cont\ 7267}# - #{mod\ 7276}# - #{var\ 7266}# + #{source\ 12943}# + #{var\ 12960}#) + (#{decorate-source\ 10624}# + #{var\ 12960}# + #{source\ 12943}#))))))) + (#{analyze-variable\ 10638}# + (lambda (#{mod\ 12967}# + #{var\ 12968}# + #{modref-cont\ 12969}# + #{bare-cont\ 12970}#) + (if (not #{mod\ 12967}#) + (#{bare-cont\ 12970}# #{var\ 12968}#) + (let ((#{kind\ 12977}# (car #{mod\ 12967}#)) + (#{mod\ 12978}# (cdr #{mod\ 12967}#))) + (if (memv #{kind\ 12977}# (quote (public))) + (#{modref-cont\ 12969}# + #{mod\ 12978}# + #{var\ 12968}# #t) - (if (memv #{kind\ 7275}# (quote (private))) + (if (memv #{kind\ 12977}# (quote (private))) (if (not (equal? - #{mod\ 7276}# + #{mod\ 12978}# (module-name (current-module)))) - (#{modref-cont\ 7267}# - #{mod\ 7276}# - #{var\ 7266}# + (#{modref-cont\ 12969}# + #{mod\ 12978}# + #{var\ 12968}# #f) - (#{bare-cont\ 7268}# #{var\ 7266}#)) - (if (memv #{kind\ 7275}# (quote (bare))) - (#{bare-cont\ 7268}# #{var\ 7266}#) - (if (memv #{kind\ 7275}# (quote (hygiene))) + (#{bare-cont\ 12970}# #{var\ 12968}#)) + (if (memv #{kind\ 12977}# (quote (bare))) + (#{bare-cont\ 12970}# #{var\ 12968}#) + (if (memv #{kind\ 12977}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 7276}# + #{mod\ 12978}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 7276}#) - #{var\ 7266}#) + (resolve-module #{mod\ 12978}#) + #{var\ 12968}#) #f) - (#{modref-cont\ 7267}# - #{mod\ 7276}# - #{var\ 7266}# + (#{modref-cont\ 12969}# + #{mod\ 12978}# + #{var\ 12968}# #f) - (#{bare-cont\ 7268}# #{var\ 7266}#)) + (#{bare-cont\ 12970}# #{var\ 12968}#)) (syntax-violation #f "bad module kind" - #{var\ 7266}# - #{mod\ 7276}#))))))))) - (#{build-lexical-assignment\ 4934}# - (lambda (#{source\ 7284}# - #{name\ 7285}# - #{var\ 7286}# - #{exp\ 7287}#) - (let ((#{atom-key\ 7294}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7294}# (quote (c))) + #{var\ 12968}# + #{mod\ 12978}#))))))))) + (#{build-lexical-assignment\ 10636}# + (lambda (#{source\ 12986}# + #{name\ 12987}# + #{var\ 12988}# + #{exp\ 12989}#) + (let ((#{atom-key\ 12996}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 12996}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 7284}# - #{name\ 7285}# - #{var\ 7286}# - #{exp\ 7287}#) - (#{decorate-source\ 4922}# - (list (quote set!) #{var\ 7286}# #{exp\ 7287}#) - #{source\ 7284}#))))) - (#{build-lexical-reference\ 4932}# - (lambda (#{type\ 7298}# - #{source\ 7299}# - #{name\ 7300}# - #{var\ 7301}#) - (let ((#{atom-key\ 7308}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7308}# (quote (c))) + #{source\ 12986}# + #{name\ 12987}# + #{var\ 12988}# + #{exp\ 12989}#) + (#{decorate-source\ 10624}# + (list (quote set!) #{var\ 12988}# #{exp\ 12989}#) + #{source\ 12986}#))))) + (#{build-lexical-reference\ 10634}# + (lambda (#{type\ 13000}# + #{source\ 13001}# + #{name\ 13002}# + #{var\ 13003}#) + (let ((#{atom-key\ 13010}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13010}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 7299}# - #{name\ 7300}# - #{var\ 7301}#) - (#{decorate-source\ 4922}# - #{var\ 7301}# - #{source\ 7299}#))))) - (#{build-dynlet\ 4930}# - (lambda (#{source\ 7311}# - #{fluids\ 7312}# - #{vals\ 7313}# - #{body\ 7314}#) - (let ((#{atom-key\ 7321}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7321}# (quote (c))) + #{source\ 13001}# + #{name\ 13002}# + #{var\ 13003}#) + (#{decorate-source\ 10624}# + #{var\ 13003}# + #{source\ 13001}#))))) + (#{build-dynlet\ 10632}# + (lambda (#{source\ 13013}# + #{fluids\ 13014}# + #{vals\ 13015}# + #{body\ 13016}#) + (let ((#{atom-key\ 13023}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13023}# (quote (c))) ((@ (language tree-il) make-dynlet) - #{source\ 7311}# - #{fluids\ 7312}# - #{vals\ 7313}# - #{body\ 7314}#) - (#{decorate-source\ 4922}# + #{source\ 13013}# + #{fluids\ 13014}# + #{vals\ 13015}# + #{body\ 13016}#) + (#{decorate-source\ 10624}# (list 'with-fluids - (map list #{fluids\ 7312}# #{vals\ 7313}#) - #{body\ 7314}#) - #{source\ 7311}#))))) - (#{build-conditional\ 4928}# - (lambda (#{source\ 7325}# - #{test-exp\ 7326}# - #{then-exp\ 7327}# - #{else-exp\ 7328}#) - (let ((#{atom-key\ 7335}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7335}# (quote (c))) + (map list #{fluids\ 13014}# #{vals\ 13015}#) + #{body\ 13016}#) + #{source\ 13013}#))))) + (#{build-conditional\ 10630}# + (lambda (#{source\ 13027}# + #{test-exp\ 13028}# + #{then-exp\ 13029}# + #{else-exp\ 13030}#) + (let ((#{atom-key\ 13037}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13037}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 7325}# - #{test-exp\ 7326}# - #{then-exp\ 7327}# - #{else-exp\ 7328}#) - (#{decorate-source\ 4922}# - (if (equal? #{else-exp\ 7328}# (quote (if #f #f))) + #{source\ 13027}# + #{test-exp\ 13028}# + #{then-exp\ 13029}# + #{else-exp\ 13030}#) + (#{decorate-source\ 10624}# + (if (equal? #{else-exp\ 13030}# (quote (if #f #f))) (list 'if - #{test-exp\ 7326}# - #{then-exp\ 7327}#) + #{test-exp\ 13028}# + #{then-exp\ 13029}#) (list 'if - #{test-exp\ 7326}# - #{then-exp\ 7327}# - #{else-exp\ 7328}#)) - #{source\ 7325}#))))) - (#{build-application\ 4926}# - (lambda (#{source\ 7340}# - #{fun-exp\ 7341}# - #{arg-exps\ 7342}#) - (let ((#{atom-key\ 7348}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7348}# (quote (c))) + #{test-exp\ 13028}# + #{then-exp\ 13029}# + #{else-exp\ 13030}#)) + #{source\ 13027}#))))) + (#{build-application\ 10628}# + (lambda (#{source\ 13042}# + #{fun-exp\ 13043}# + #{arg-exps\ 13044}#) + (let ((#{atom-key\ 13050}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13050}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 7340}# - #{fun-exp\ 7341}# - #{arg-exps\ 7342}#) - (#{decorate-source\ 4922}# - (cons #{fun-exp\ 7341}# #{arg-exps\ 7342}#) - #{source\ 7340}#))))) - (#{build-void\ 4924}# - (lambda (#{source\ 7352}#) - (let ((#{atom-key\ 7356}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7356}# (quote (c))) + #{source\ 13042}# + #{fun-exp\ 13043}# + #{arg-exps\ 13044}#) + (#{decorate-source\ 10624}# + (cons #{fun-exp\ 13043}# #{arg-exps\ 13044}#) + #{source\ 13042}#))))) + (#{build-void\ 10626}# + (lambda (#{source\ 13054}#) + (let ((#{atom-key\ 13058}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13058}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 7352}#) - (#{decorate-source\ 4922}# + #{source\ 13054}#) + (#{decorate-source\ 10624}# '(if #f #f) - #{source\ 7352}#))))) - (#{decorate-source\ 4922}# - (lambda (#{e\ 7359}# #{s\ 7360}#) + #{source\ 13054}#))))) + (#{decorate-source\ 10624}# + (lambda (#{e\ 13061}# #{s\ 13062}#) (begin - (if (if (pair? #{e\ 7359}#) #{s\ 7360}# #f) - (set-source-properties! #{e\ 7359}# #{s\ 7360}#)) - #{e\ 7359}#))) - (#{get-global-definition-hook\ 4920}# - (lambda (#{symbol\ 7365}# #{module\ 7366}#) + (if (if (pair? #{e\ 13061}#) #{s\ 13062}# #f) + (set-source-properties! + #{e\ 13061}# + #{s\ 13062}#)) + #{e\ 13061}#))) + (#{get-global-definition-hook\ 10622}# + (lambda (#{symbol\ 13067}# #{module\ 13068}#) (begin - (if (if (not #{module\ 7366}#) (current-module) #f) + (if (if (not #{module\ 13068}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 7365}#)) - (let ((#{v\ 7372}# + #{symbol\ 13067}#)) + (let ((#{v\ 13074}# (module-variable - (if #{module\ 7366}# - (resolve-module (cdr #{module\ 7366}#)) + (if #{module\ 13068}# + (resolve-module (cdr #{module\ 13068}#)) (current-module)) - #{symbol\ 7365}#))) - (if #{v\ 7372}# - (if (variable-bound? #{v\ 7372}#) - (let ((#{val\ 7377}# (variable-ref #{v\ 7372}#))) - (if (macro? #{val\ 7377}#) - (if (macro-type #{val\ 7377}#) - (cons (macro-type #{val\ 7377}#) - (macro-binding #{val\ 7377}#)) + #{symbol\ 13067}#))) + (if #{v\ 13074}# + (if (variable-bound? #{v\ 13074}#) + (let ((#{val\ 13079}# (variable-ref #{v\ 13074}#))) + (if (macro? #{val\ 13079}#) + (if (macro-type #{val\ 13079}#) + (cons (macro-type #{val\ 13079}#) + (macro-binding #{val\ 13079}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 4918}# - (lambda (#{symbol\ 7381}# #{type\ 7382}# #{val\ 7383}#) + (#{put-global-definition-hook\ 10620}# + (lambda (#{symbol\ 13083}# + #{type\ 13084}# + #{val\ 13085}#) (module-define! (current-module) - #{symbol\ 7381}# + #{symbol\ 13083}# (make-syntax-transformer - #{symbol\ 7381}# - #{type\ 7382}# - #{val\ 7383}#)))) - (#{local-eval-hook\ 4915}# - (lambda (#{x\ 7387}# #{mod\ 7388}#) + #{symbol\ 13083}# + #{type\ 13084}# + #{val\ 13085}#)))) + (#{local-eval-hook\ 10617}# + (lambda (#{x\ 13089}# #{mod\ 13090}#) (primitive-eval - (list #{noexpand\ 4901}# - (let ((#{atom-key\ 7394}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7394}# (quote (c))) + (list #{noexpand\ 10603}# + (let ((#{atom-key\ 13096}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13096}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 7387}#) - #{x\ 7387}#)))))) - (#{top-level-eval-hook\ 4913}# - (lambda (#{x\ 7397}# #{mod\ 7398}#) + #{x\ 13089}#) + #{x\ 13089}#)))))) + (#{top-level-eval-hook\ 10615}# + (lambda (#{x\ 13099}# #{mod\ 13100}#) (primitive-eval - (list #{noexpand\ 4901}# - (let ((#{atom-key\ 7404}# (fluid-ref #{*mode*\ 4903}#))) - (if (memv #{atom-key\ 7404}# (quote (c))) + (list #{noexpand\ 10603}# + (let ((#{atom-key\ 13106}# + (fluid-ref #{*mode*\ 10605}#))) + (if (memv #{atom-key\ 13106}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 7397}#) - #{x\ 7397}#)))))) - (#{fx<\ 4911}# <) - (#{fx=\ 4909}# =) - (#{fx-\ 4907}# -) - (#{fx+\ 4905}# +) - (#{*mode*\ 4903}# (make-fluid)) - (#{noexpand\ 4901}# "noexpand")) + #{x\ 13099}#) + #{x\ 13099}#)))))) + (#{fx<\ 10613}# <) + (#{fx=\ 10611}# =) + (#{fx-\ 10609}# -) + (#{fx+\ 10607}# +) + (#{*mode*\ 10605}# (make-fluid)) + (#{noexpand\ 10603}# "noexpand")) (begin - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'core 'fluid-let-syntax - (lambda (#{e\ 7407}# - #{r\ 7408}# - #{w\ 7409}# - #{s\ 7410}# - #{mod\ 7411}#) - ((lambda (#{tmp\ 7417}#) - ((lambda (#{tmp\ 7418}#) - (if (if #{tmp\ 7418}# - (apply (lambda (#{_\ 7424}# - #{var\ 7425}# - #{val\ 7426}# - #{e1\ 7427}# - #{e2\ 7428}#) - (#{valid-bound-ids?\ 5067}# #{var\ 7425}#)) - #{tmp\ 7418}#) + (lambda (#{e\ 13109}# + #{r\ 13110}# + #{w\ 13111}# + #{s\ 13112}# + #{mod\ 13113}#) + ((lambda (#{tmp\ 13119}#) + ((lambda (#{tmp\ 13120}#) + (if (if #{tmp\ 13120}# + (apply (lambda (#{_\ 13126}# + #{var\ 13127}# + #{val\ 13128}# + #{e1\ 13129}# + #{e2\ 13130}#) + (#{valid-bound-ids?\ 10769}# #{var\ 13127}#)) + #{tmp\ 13120}#) #f) - (apply (lambda (#{_\ 7435}# - #{var\ 7436}# - #{val\ 7437}# - #{e1\ 7438}# - #{e2\ 7439}#) - (let ((#{names\ 7441}# - (map (lambda (#{x\ 7442}#) - (#{id-var-name\ 5061}# - #{x\ 7442}# - #{w\ 7409}#)) - #{var\ 7436}#))) + (apply (lambda (#{_\ 13137}# + #{var\ 13138}# + #{val\ 13139}# + #{e1\ 13140}# + #{e2\ 13141}#) + (let ((#{names\ 13143}# + (map (lambda (#{x\ 13144}#) + (#{id-var-name\ 10763}# + #{x\ 13144}# + #{w\ 13111}#)) + #{var\ 13138}#))) (begin (for-each - (lambda (#{id\ 7445}# #{n\ 7446}#) - (let ((#{atom-key\ 7451}# - (#{binding-type\ 4987}# - (#{lookup\ 4998}# - #{n\ 7446}# - #{r\ 7408}# - #{mod\ 7411}#)))) - (if (memv #{atom-key\ 7451}# + (lambda (#{id\ 13147}# #{n\ 13148}#) + (let ((#{atom-key\ 13153}# + (#{binding-type\ 10689}# + (#{lookup\ 10700}# + #{n\ 13148}# + #{r\ 13110}# + #{mod\ 13113}#)))) + (if (memv #{atom-key\ 13153}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 7407}# - (#{source-wrap\ 5075}# - #{id\ 7445}# - #{w\ 7409}# - #{s\ 7410}# - #{mod\ 7411}#))))) - #{var\ 7436}# - #{names\ 7441}#) - (#{chi-body\ 5097}# - (cons #{e1\ 7438}# #{e2\ 7439}#) - (#{source-wrap\ 5075}# - #{e\ 7407}# - #{w\ 7409}# - #{s\ 7410}# - #{mod\ 7411}#) - (#{extend-env\ 4992}# - #{names\ 7441}# - (let ((#{trans-r\ 7456}# - (#{macros-only-env\ 4996}# - #{r\ 7408}#))) - (map (lambda (#{x\ 7457}#) + #{e\ 13109}# + (#{source-wrap\ 10777}# + #{id\ 13147}# + #{w\ 13111}# + #{s\ 13112}# + #{mod\ 13113}#))))) + #{var\ 13138}# + #{names\ 13143}#) + (#{chi-body\ 10799}# + (cons #{e1\ 13140}# #{e2\ 13141}#) + (#{source-wrap\ 10777}# + #{e\ 13109}# + #{w\ 13111}# + #{s\ 13112}# + #{mod\ 13113}#) + (#{extend-env\ 10694}# + #{names\ 13143}# + (let ((#{trans-r\ 13158}# + (#{macros-only-env\ 10698}# + #{r\ 13110}#))) + (map (lambda (#{x\ 13159}#) (cons 'macro - (#{eval-local-transformer\ 5101}# - (#{chi\ 5089}# - #{x\ 7457}# - #{trans-r\ 7456}# - #{w\ 7409}# - #{mod\ 7411}#) - #{mod\ 7411}#))) - #{val\ 7437}#)) - #{r\ 7408}#) - #{w\ 7409}# - #{mod\ 7411}#)))) - #{tmp\ 7418}#) - ((lambda (#{_\ 7462}#) + (#{eval-local-transformer\ 10803}# + (#{chi\ 10791}# + #{x\ 13159}# + #{trans-r\ 13158}# + #{w\ 13111}# + #{mod\ 13113}#) + #{mod\ 13113}#))) + #{val\ 13139}#)) + #{r\ 13110}#) + #{w\ 13111}# + #{mod\ 13113}#)))) + #{tmp\ 13120}#) + ((lambda (#{_\ 13164}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 5075}# - #{e\ 7407}# - #{w\ 7409}# - #{s\ 7410}# - #{mod\ 7411}#))) - #{tmp\ 7417}#))) + (#{source-wrap\ 10777}# + #{e\ 13109}# + #{w\ 13111}# + #{s\ 13112}# + #{mod\ 13113}#))) + #{tmp\ 13119}#))) ($sc-dispatch - #{tmp\ 7417}# + #{tmp\ 13119}# '(any #(each (any any)) any . each-any)))) - #{e\ 7407}#))) - (#{global-extend\ 5000}# + #{e\ 13109}#))) + (#{global-extend\ 10702}# 'core 'quote - (lambda (#{e\ 7463}# - #{r\ 7464}# - #{w\ 7465}# - #{s\ 7466}# - #{mod\ 7467}#) - ((lambda (#{tmp\ 7473}#) - ((lambda (#{tmp\ 7474}#) - (if #{tmp\ 7474}# - (apply (lambda (#{_\ 7477}# #{e\ 7478}#) - (#{build-data\ 4954}# - #{s\ 7466}# - (#{strip\ 5115}# #{e\ 7478}# #{w\ 7465}#))) - #{tmp\ 7474}#) - ((lambda (#{_\ 7480}#) + (lambda (#{e\ 13165}# + #{r\ 13166}# + #{w\ 13167}# + #{s\ 13168}# + #{mod\ 13169}#) + ((lambda (#{tmp\ 13175}#) + ((lambda (#{tmp\ 13176}#) + (if #{tmp\ 13176}# + (apply (lambda (#{_\ 13179}# #{e\ 13180}#) + (#{build-data\ 10656}# + #{s\ 13168}# + (#{strip\ 10817}# #{e\ 13180}# #{w\ 13167}#))) + #{tmp\ 13176}#) + ((lambda (#{_\ 13182}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 5075}# - #{e\ 7463}# - #{w\ 7465}# - #{s\ 7466}# - #{mod\ 7467}#))) - #{tmp\ 7473}#))) - ($sc-dispatch #{tmp\ 7473}# (quote (any any))))) - #{e\ 7463}#))) - (#{global-extend\ 5000}# + (#{source-wrap\ 10777}# + #{e\ 13165}# + #{w\ 13167}# + #{s\ 13168}# + #{mod\ 13169}#))) + #{tmp\ 13175}#))) + ($sc-dispatch #{tmp\ 13175}# (quote (any any))))) + #{e\ 13165}#))) + (#{global-extend\ 10702}# 'core 'syntax - (letrec ((#{regen\ 7496}# - (lambda (#{x\ 7497}#) - (let ((#{atom-key\ 7501}# (car #{x\ 7497}#))) - (if (memv #{atom-key\ 7501}# (quote (ref))) - (#{build-lexical-reference\ 4932}# + (letrec ((#{regen\ 13198}# + (lambda (#{x\ 13199}#) + (let ((#{atom-key\ 13203}# (car #{x\ 13199}#))) + (if (memv #{atom-key\ 13203}# (quote (ref))) + (#{build-lexical-reference\ 10634}# 'value #f - (cadr #{x\ 7497}#) - (cadr #{x\ 7497}#)) - (if (memv #{atom-key\ 7501}# (quote (primitive))) - (#{build-primref\ 4952}# #f (cadr #{x\ 7497}#)) - (if (memv #{atom-key\ 7501}# (quote (quote))) - (#{build-data\ 4954}# #f (cadr #{x\ 7497}#)) - (if (memv #{atom-key\ 7501}# (quote (lambda))) - (if (list? (cadr #{x\ 7497}#)) - (#{build-simple-lambda\ 4946}# + (cadr #{x\ 13199}#) + (cadr #{x\ 13199}#)) + (if (memv #{atom-key\ 13203}# (quote (primitive))) + (#{build-primref\ 10654}# #f (cadr #{x\ 13199}#)) + (if (memv #{atom-key\ 13203}# (quote (quote))) + (#{build-data\ 10656}# #f (cadr #{x\ 13199}#)) + (if (memv #{atom-key\ 13203}# (quote (lambda))) + (if (list? (cadr #{x\ 13199}#)) + (#{build-simple-lambda\ 10648}# #f - (cadr #{x\ 7497}#) + (cadr #{x\ 13199}#) #f - (cadr #{x\ 7497}#) + (cadr #{x\ 13199}#) '() - (#{regen\ 7496}# (caddr #{x\ 7497}#))) - (error "how did we get here" #{x\ 7497}#)) - (#{build-application\ 4926}# + (#{regen\ 13198}# (caddr #{x\ 13199}#))) + (error "how did we get here" #{x\ 13199}#)) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# #f (car #{x\ 7497}#)) - (map #{regen\ 7496}# - (cdr #{x\ 7497}#)))))))))) - (#{gen-vector\ 7494}# - (lambda (#{x\ 7513}#) - (if (eq? (car #{x\ 7513}#) (quote list)) - (cons (quote vector) (cdr #{x\ 7513}#)) - (if (eq? (car #{x\ 7513}#) (quote quote)) + (#{build-primref\ 10654}# + #f + (car #{x\ 13199}#)) + (map #{regen\ 13198}# + (cdr #{x\ 13199}#)))))))))) + (#{gen-vector\ 13196}# + (lambda (#{x\ 13215}#) + (if (eq? (car #{x\ 13215}#) (quote list)) + (cons (quote vector) (cdr #{x\ 13215}#)) + (if (eq? (car #{x\ 13215}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 7513}#))) - (list (quote list->vector) #{x\ 7513}#))))) - (#{gen-append\ 7492}# - (lambda (#{x\ 7523}# #{y\ 7524}#) - (if (equal? #{y\ 7524}# (quote (quote ()))) - #{x\ 7523}# - (list (quote append) #{x\ 7523}# #{y\ 7524}#)))) - (#{gen-cons\ 7490}# - (lambda (#{x\ 7528}# #{y\ 7529}#) - (let ((#{atom-key\ 7534}# (car #{y\ 7529}#))) - (if (memv #{atom-key\ 7534}# (quote (quote))) - (if (eq? (car #{x\ 7528}#) (quote quote)) + (list->vector (cadr #{x\ 13215}#))) + (list (quote list->vector) #{x\ 13215}#))))) + (#{gen-append\ 13194}# + (lambda (#{x\ 13225}# #{y\ 13226}#) + (if (equal? #{y\ 13226}# (quote (quote ()))) + #{x\ 13225}# + (list (quote append) #{x\ 13225}# #{y\ 13226}#)))) + (#{gen-cons\ 13192}# + (lambda (#{x\ 13230}# #{y\ 13231}#) + (let ((#{atom-key\ 13236}# (car #{y\ 13231}#))) + (if (memv #{atom-key\ 13236}# (quote (quote))) + (if (eq? (car #{x\ 13230}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 7528}#) (cadr #{y\ 7529}#))) - (if (eq? (cadr #{y\ 7529}#) (quote ())) - (list (quote list) #{x\ 7528}#) - (list (quote cons) #{x\ 7528}# #{y\ 7529}#))) - (if (memv #{atom-key\ 7534}# (quote (list))) + (cons (cadr #{x\ 13230}#) + (cadr #{y\ 13231}#))) + (if (eq? (cadr #{y\ 13231}#) (quote ())) + (list (quote list) #{x\ 13230}#) + (list (quote cons) #{x\ 13230}# #{y\ 13231}#))) + (if (memv #{atom-key\ 13236}# (quote (list))) (cons 'list - (cons #{x\ 7528}# (cdr #{y\ 7529}#))) - (list (quote cons) #{x\ 7528}# #{y\ 7529}#)))))) - (#{gen-map\ 7488}# - (lambda (#{e\ 7543}# #{map-env\ 7544}#) - (let ((#{formals\ 7549}# (map cdr #{map-env\ 7544}#)) - (#{actuals\ 7550}# - (map (lambda (#{x\ 7551}#) - (list (quote ref) (car #{x\ 7551}#))) - #{map-env\ 7544}#))) - (if (eq? (car #{e\ 7543}#) (quote ref)) - (car #{actuals\ 7550}#) + (cons #{x\ 13230}# (cdr #{y\ 13231}#))) + (list (quote cons) #{x\ 13230}# #{y\ 13231}#)))))) + (#{gen-map\ 13190}# + (lambda (#{e\ 13245}# #{map-env\ 13246}#) + (let ((#{formals\ 13251}# (map cdr #{map-env\ 13246}#)) + (#{actuals\ 13252}# + (map (lambda (#{x\ 13253}#) + (list (quote ref) (car #{x\ 13253}#))) + #{map-env\ 13246}#))) + (if (eq? (car #{e\ 13245}#) (quote ref)) + (car #{actuals\ 13252}#) (if (and-map - (lambda (#{x\ 7558}#) - (if (eq? (car #{x\ 7558}#) (quote ref)) - (memq (cadr #{x\ 7558}#) #{formals\ 7549}#) + (lambda (#{x\ 13260}#) + (if (eq? (car #{x\ 13260}#) (quote ref)) + (memq (cadr #{x\ 13260}#) + #{formals\ 13251}#) #f)) - (cdr #{e\ 7543}#)) + (cdr #{e\ 13245}#)) (cons 'map (cons (list 'primitive - (car #{e\ 7543}#)) - (map (let ((#{r\ 7564}# + (car #{e\ 13245}#)) + (map (let ((#{r\ 13266}# (map cons - #{formals\ 7549}# - #{actuals\ 7550}#))) - (lambda (#{x\ 7565}#) - (cdr (assq (cadr #{x\ 7565}#) - #{r\ 7564}#)))) - (cdr #{e\ 7543}#)))) + #{formals\ 13251}# + #{actuals\ 13252}#))) + (lambda (#{x\ 13267}#) + (cdr (assq (cadr #{x\ 13267}#) + #{r\ 13266}#)))) + (cdr #{e\ 13245}#)))) (cons 'map (cons (list 'lambda - #{formals\ 7549}# - #{e\ 7543}#) - #{actuals\ 7550}#))))))) - (#{gen-mappend\ 7486}# - (lambda (#{e\ 7569}# #{map-env\ 7570}#) + #{formals\ 13251}# + #{e\ 13245}#) + #{actuals\ 13252}#))))))) + (#{gen-mappend\ 13188}# + (lambda (#{e\ 13271}# #{map-env\ 13272}#) (list 'apply '(primitive append) - (#{gen-map\ 7488}# #{e\ 7569}# #{map-env\ 7570}#)))) - (#{gen-ref\ 7484}# - (lambda (#{src\ 7574}# - #{var\ 7575}# - #{level\ 7576}# - #{maps\ 7577}#) - (if (#{fx=\ 4909}# #{level\ 7576}# 0) - (values #{var\ 7575}# #{maps\ 7577}#) - (if (null? #{maps\ 7577}#) + (#{gen-map\ 13190}# + #{e\ 13271}# + #{map-env\ 13272}#)))) + (#{gen-ref\ 13186}# + (lambda (#{src\ 13276}# + #{var\ 13277}# + #{level\ 13278}# + #{maps\ 13279}#) + (if (#{fx=\ 10611}# #{level\ 13278}# 0) + (values #{var\ 13277}# #{maps\ 13279}#) + (if (null? #{maps\ 13279}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 7574}#) + #{src\ 13276}#) (call-with-values (lambda () - (#{gen-ref\ 7484}# - #{src\ 7574}# - #{var\ 7575}# - (#{fx-\ 4907}# #{level\ 7576}# 1) - (cdr #{maps\ 7577}#))) - (lambda (#{outer-var\ 7582}# #{outer-maps\ 7583}#) - (let ((#{b\ 7587}# - (assq #{outer-var\ 7582}# - (car #{maps\ 7577}#)))) - (if #{b\ 7587}# - (values (cdr #{b\ 7587}#) #{maps\ 7577}#) - (let ((#{inner-var\ 7589}# - (#{gen-var\ 5117}# (quote tmp)))) + (#{gen-ref\ 13186}# + #{src\ 13276}# + #{var\ 13277}# + (#{fx-\ 10609}# #{level\ 13278}# 1) + (cdr #{maps\ 13279}#))) + (lambda (#{outer-var\ 13284}# #{outer-maps\ 13285}#) + (let ((#{b\ 13289}# + (assq #{outer-var\ 13284}# + (car #{maps\ 13279}#)))) + (if #{b\ 13289}# + (values (cdr #{b\ 13289}#) #{maps\ 13279}#) + (let ((#{inner-var\ 13291}# + (#{gen-var\ 10819}# (quote tmp)))) (values - #{inner-var\ 7589}# - (cons (cons (cons #{outer-var\ 7582}# - #{inner-var\ 7589}#) - (car #{maps\ 7577}#)) - #{outer-maps\ 7583}#))))))))))) - (#{gen-syntax\ 7482}# - (lambda (#{src\ 7590}# - #{e\ 7591}# - #{r\ 7592}# - #{maps\ 7593}# - #{ellipsis?\ 7594}# - #{mod\ 7595}#) - (if (#{id?\ 5004}# #{e\ 7591}#) - (let ((#{label\ 7603}# - (#{id-var-name\ 5061}# - #{e\ 7591}# + #{inner-var\ 13291}# + (cons (cons (cons #{outer-var\ 13284}# + #{inner-var\ 13291}#) + (car #{maps\ 13279}#)) + #{outer-maps\ 13285}#))))))))))) + (#{gen-syntax\ 13184}# + (lambda (#{src\ 13292}# + #{e\ 13293}# + #{r\ 13294}# + #{maps\ 13295}# + #{ellipsis?\ 13296}# + #{mod\ 13297}#) + (if (#{id?\ 10706}# #{e\ 13293}#) + (let ((#{label\ 13305}# + (#{id-var-name\ 10763}# + #{e\ 13293}# '(())))) - (let ((#{b\ 7606}# - (#{lookup\ 4998}# - #{label\ 7603}# - #{r\ 7592}# - #{mod\ 7595}#))) - (if (eq? (#{binding-type\ 4987}# #{b\ 7606}#) + (let ((#{b\ 13308}# + (#{lookup\ 10700}# + #{label\ 13305}# + #{r\ 13294}# + #{mod\ 13297}#))) + (if (eq? (#{binding-type\ 10689}# #{b\ 13308}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 7608}# - (#{binding-value\ 4989}# - #{b\ 7606}#))) - (#{gen-ref\ 7484}# - #{src\ 7590}# - (car #{var.lev\ 7608}#) - (cdr #{var.lev\ 7608}#) - #{maps\ 7593}#))) - (lambda (#{var\ 7609}# #{maps\ 7610}#) + (let ((#{var.lev\ 13310}# + (#{binding-value\ 10691}# + #{b\ 13308}#))) + (#{gen-ref\ 13186}# + #{src\ 13292}# + (car #{var.lev\ 13310}#) + (cdr #{var.lev\ 13310}#) + #{maps\ 13295}#))) + (lambda (#{var\ 13311}# #{maps\ 13312}#) (values - (list (quote ref) #{var\ 7609}#) - #{maps\ 7610}#))) - (if (#{ellipsis?\ 7594}# #{e\ 7591}#) + (list (quote ref) #{var\ 13311}#) + #{maps\ 13312}#))) + (if (#{ellipsis?\ 13296}# #{e\ 13293}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 7590}#) + #{src\ 13292}#) (values - (list (quote quote) #{e\ 7591}#) - #{maps\ 7593}#))))) - ((lambda (#{tmp\ 7615}#) - ((lambda (#{tmp\ 7616}#) - (if (if #{tmp\ 7616}# - (apply (lambda (#{dots\ 7619}# #{e\ 7620}#) - (#{ellipsis?\ 7594}# - #{dots\ 7619}#)) - #{tmp\ 7616}#) + (list (quote quote) #{e\ 13293}#) + #{maps\ 13295}#))))) + ((lambda (#{tmp\ 13317}#) + ((lambda (#{tmp\ 13318}#) + (if (if #{tmp\ 13318}# + (apply (lambda (#{dots\ 13321}# + #{e\ 13322}#) + (#{ellipsis?\ 13296}# + #{dots\ 13321}#)) + #{tmp\ 13318}#) #f) - (apply (lambda (#{dots\ 7623}# #{e\ 7624}#) - (#{gen-syntax\ 7482}# - #{src\ 7590}# - #{e\ 7624}# - #{r\ 7592}# - #{maps\ 7593}# - (lambda (#{x\ 7625}#) #f) - #{mod\ 7595}#)) - #{tmp\ 7616}#) - ((lambda (#{tmp\ 7627}#) - (if (if #{tmp\ 7627}# - (apply (lambda (#{x\ 7631}# - #{dots\ 7632}# - #{y\ 7633}#) - (#{ellipsis?\ 7594}# - #{dots\ 7632}#)) - #{tmp\ 7627}#) + (apply (lambda (#{dots\ 13325}# #{e\ 13326}#) + (#{gen-syntax\ 13184}# + #{src\ 13292}# + #{e\ 13326}# + #{r\ 13294}# + #{maps\ 13295}# + (lambda (#{x\ 13327}#) #f) + #{mod\ 13297}#)) + #{tmp\ 13318}#) + ((lambda (#{tmp\ 13329}#) + (if (if #{tmp\ 13329}# + (apply (lambda (#{x\ 13333}# + #{dots\ 13334}# + #{y\ 13335}#) + (#{ellipsis?\ 13296}# + #{dots\ 13334}#)) + #{tmp\ 13329}#) #f) - (apply (lambda (#{x\ 7637}# - #{dots\ 7638}# - #{y\ 7639}#) - (letrec ((#{f\ 7643}# - (lambda (#{y\ 7644}# - #{k\ 7645}#) - ((lambda (#{tmp\ 7652}#) - ((lambda (#{tmp\ 7653}#) - (if (if #{tmp\ 7653}# - (apply (lambda (#{dots\ 7656}# - #{y\ 7657}#) - (#{ellipsis?\ 7594}# - #{dots\ 7656}#)) - #{tmp\ 7653}#) + (apply (lambda (#{x\ 13339}# + #{dots\ 13340}# + #{y\ 13341}#) + (letrec ((#{f\ 13345}# + (lambda (#{y\ 13346}# + #{k\ 13347}#) + ((lambda (#{tmp\ 13354}#) + ((lambda (#{tmp\ 13355}#) + (if (if #{tmp\ 13355}# + (apply (lambda (#{dots\ 13358}# + #{y\ 13359}#) + (#{ellipsis?\ 13296}# + #{dots\ 13358}#)) + #{tmp\ 13355}#) #f) - (apply (lambda (#{dots\ 7660}# - #{y\ 7661}#) - (#{f\ 7643}# - #{y\ 7661}# - (lambda (#{maps\ 7662}#) + (apply (lambda (#{dots\ 13362}# + #{y\ 13363}#) + (#{f\ 13345}# + #{y\ 13363}# + (lambda (#{maps\ 13364}#) (call-with-values (lambda () - (#{k\ 7645}# + (#{k\ 13347}# (cons '() - #{maps\ 7662}#))) - (lambda (#{x\ 7664}# - #{maps\ 7665}#) - (if (null? (car #{maps\ 7665}#)) + #{maps\ 13364}#))) + (lambda (#{x\ 13366}# + #{maps\ 13367}#) + (if (null? (car #{maps\ 13367}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 7590}#) + #{src\ 13292}#) (values - (#{gen-mappend\ 7486}# - #{x\ 7664}# - (car #{maps\ 7665}#)) - (cdr #{maps\ 7665}#)))))))) - #{tmp\ 7653}#) - ((lambda (#{_\ 7669}#) + (#{gen-mappend\ 13188}# + #{x\ 13366}# + (car #{maps\ 13367}#)) + (cdr #{maps\ 13367}#)))))))) + #{tmp\ 13355}#) + ((lambda (#{_\ 13371}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{src\ 7590}# - #{y\ 7644}# - #{r\ 7592}# - #{maps\ 7593}# - #{ellipsis?\ 7594}# - #{mod\ 7595}#)) - (lambda (#{y\ 7670}# - #{maps\ 7671}#) + (#{gen-syntax\ 13184}# + #{src\ 13292}# + #{y\ 13346}# + #{r\ 13294}# + #{maps\ 13295}# + #{ellipsis?\ 13296}# + #{mod\ 13297}#)) + (lambda (#{y\ 13372}# + #{maps\ 13373}#) (call-with-values (lambda () - (#{k\ 7645}# - #{maps\ 7671}#)) - (lambda (#{x\ 7674}# - #{maps\ 7675}#) + (#{k\ 13347}# + #{maps\ 13373}#)) + (lambda (#{x\ 13376}# + #{maps\ 13377}#) (values - (#{gen-append\ 7492}# - #{x\ 7674}# - #{y\ 7670}#) - #{maps\ 7675}#)))))) - #{tmp\ 7652}#))) + (#{gen-append\ 13194}# + #{x\ 13376}# + #{y\ 13372}#) + #{maps\ 13377}#)))))) + #{tmp\ 13354}#))) ($sc-dispatch - #{tmp\ 7652}# + #{tmp\ 13354}# '(any . any)))) - #{y\ 7644}#)))) - (#{f\ 7643}# - #{y\ 7639}# - (lambda (#{maps\ 7646}#) + #{y\ 13346}#)))) + (#{f\ 13345}# + #{y\ 13341}# + (lambda (#{maps\ 13348}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{src\ 7590}# - #{x\ 7637}# - #{r\ 7592}# + (#{gen-syntax\ 13184}# + #{src\ 13292}# + #{x\ 13339}# + #{r\ 13294}# (cons '() - #{maps\ 7646}#) - #{ellipsis?\ 7594}# - #{mod\ 7595}#)) - (lambda (#{x\ 7648}# - #{maps\ 7649}#) - (if (null? (car #{maps\ 7649}#)) + #{maps\ 13348}#) + #{ellipsis?\ 13296}# + #{mod\ 13297}#)) + (lambda (#{x\ 13350}# + #{maps\ 13351}#) + (if (null? (car #{maps\ 13351}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 7590}#) + #{src\ 13292}#) (values - (#{gen-map\ 7488}# - #{x\ 7648}# - (car #{maps\ 7649}#)) - (cdr #{maps\ 7649}#))))))))) - #{tmp\ 7627}#) - ((lambda (#{tmp\ 7678}#) - (if #{tmp\ 7678}# - (apply (lambda (#{x\ 7681}# - #{y\ 7682}#) + (#{gen-map\ 13190}# + #{x\ 13350}# + (car #{maps\ 13351}#)) + (cdr #{maps\ 13351}#))))))))) + #{tmp\ 13329}#) + ((lambda (#{tmp\ 13380}#) + (if #{tmp\ 13380}# + (apply (lambda (#{x\ 13383}# + #{y\ 13384}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{src\ 7590}# - #{x\ 7681}# - #{r\ 7592}# - #{maps\ 7593}# - #{ellipsis?\ 7594}# - #{mod\ 7595}#)) - (lambda (#{x\ 7683}# - #{maps\ 7684}#) + (#{gen-syntax\ 13184}# + #{src\ 13292}# + #{x\ 13383}# + #{r\ 13294}# + #{maps\ 13295}# + #{ellipsis?\ 13296}# + #{mod\ 13297}#)) + (lambda (#{x\ 13385}# + #{maps\ 13386}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{src\ 7590}# - #{y\ 7682}# - #{r\ 7592}# - #{maps\ 7684}# - #{ellipsis?\ 7594}# - #{mod\ 7595}#)) - (lambda (#{y\ 7687}# - #{maps\ 7688}#) + (#{gen-syntax\ 13184}# + #{src\ 13292}# + #{y\ 13384}# + #{r\ 13294}# + #{maps\ 13386}# + #{ellipsis?\ 13296}# + #{mod\ 13297}#)) + (lambda (#{y\ 13389}# + #{maps\ 13390}#) (values - (#{gen-cons\ 7490}# - #{x\ 7683}# - #{y\ 7687}#) - #{maps\ 7688}#)))))) - #{tmp\ 7678}#) - ((lambda (#{tmp\ 7691}#) - (if #{tmp\ 7691}# - (apply (lambda (#{e1\ 7694}# - #{e2\ 7695}#) + (#{gen-cons\ 13192}# + #{x\ 13385}# + #{y\ 13389}#) + #{maps\ 13390}#)))))) + #{tmp\ 13380}#) + ((lambda (#{tmp\ 13393}#) + (if #{tmp\ 13393}# + (apply (lambda (#{e1\ 13396}# + #{e2\ 13397}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{src\ 7590}# - (cons #{e1\ 7694}# - #{e2\ 7695}#) - #{r\ 7592}# - #{maps\ 7593}# - #{ellipsis?\ 7594}# - #{mod\ 7595}#)) - (lambda (#{e\ 7697}# - #{maps\ 7698}#) + (#{gen-syntax\ 13184}# + #{src\ 13292}# + (cons #{e1\ 13396}# + #{e2\ 13397}#) + #{r\ 13294}# + #{maps\ 13295}# + #{ellipsis?\ 13296}# + #{mod\ 13297}#)) + (lambda (#{e\ 13399}# + #{maps\ 13400}#) (values - (#{gen-vector\ 7494}# - #{e\ 7697}#) - #{maps\ 7698}#)))) - #{tmp\ 7691}#) - ((lambda (#{_\ 7702}#) + (#{gen-vector\ 13196}# + #{e\ 13399}#) + #{maps\ 13400}#)))) + #{tmp\ 13393}#) + ((lambda (#{_\ 13404}#) (values (list 'quote - #{e\ 7591}#) - #{maps\ 7593}#)) - #{tmp\ 7615}#))) + #{e\ 13293}#) + #{maps\ 13295}#)) + #{tmp\ 13317}#))) ($sc-dispatch - #{tmp\ 7615}# + #{tmp\ 13317}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 7615}# + #{tmp\ 13317}# '(any . any))))) ($sc-dispatch - #{tmp\ 7615}# + #{tmp\ 13317}# '(any any . any))))) - ($sc-dispatch #{tmp\ 7615}# (quote (any any))))) - #{e\ 7591}#))))) - (lambda (#{e\ 7704}# - #{r\ 7705}# - #{w\ 7706}# - #{s\ 7707}# - #{mod\ 7708}#) - (let ((#{e\ 7715}# - (#{source-wrap\ 5075}# - #{e\ 7704}# - #{w\ 7706}# - #{s\ 7707}# - #{mod\ 7708}#))) - ((lambda (#{tmp\ 7716}#) - ((lambda (#{tmp\ 7717}#) - (if #{tmp\ 7717}# - (apply (lambda (#{_\ 7720}# #{x\ 7721}#) + ($sc-dispatch #{tmp\ 13317}# (quote (any any))))) + #{e\ 13293}#))))) + (lambda (#{e\ 13406}# + #{r\ 13407}# + #{w\ 13408}# + #{s\ 13409}# + #{mod\ 13410}#) + (let ((#{e\ 13417}# + (#{source-wrap\ 10777}# + #{e\ 13406}# + #{w\ 13408}# + #{s\ 13409}# + #{mod\ 13410}#))) + ((lambda (#{tmp\ 13418}#) + ((lambda (#{tmp\ 13419}#) + (if #{tmp\ 13419}# + (apply (lambda (#{_\ 13422}# #{x\ 13423}#) (call-with-values (lambda () - (#{gen-syntax\ 7482}# - #{e\ 7715}# - #{x\ 7721}# - #{r\ 7705}# + (#{gen-syntax\ 13184}# + #{e\ 13417}# + #{x\ 13423}# + #{r\ 13407}# '() - #{ellipsis?\ 5105}# - #{mod\ 7708}#)) - (lambda (#{e\ 7722}# #{maps\ 7723}#) - (#{regen\ 7496}# #{e\ 7722}#)))) - #{tmp\ 7717}#) - ((lambda (#{_\ 7727}#) + #{ellipsis?\ 10807}# + #{mod\ 13410}#)) + (lambda (#{e\ 13424}# #{maps\ 13425}#) + (#{regen\ 13198}# #{e\ 13424}#)))) + #{tmp\ 13419}#) + ((lambda (#{_\ 13429}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 7715}#)) - #{tmp\ 7716}#))) - ($sc-dispatch #{tmp\ 7716}# (quote (any any))))) - #{e\ 7715}#))))) - (#{global-extend\ 5000}# + #{e\ 13417}#)) + #{tmp\ 13418}#))) + ($sc-dispatch #{tmp\ 13418}# (quote (any any))))) + #{e\ 13417}#))))) + (#{global-extend\ 10702}# 'core 'lambda - (lambda (#{e\ 7728}# - #{r\ 7729}# - #{w\ 7730}# - #{s\ 7731}# - #{mod\ 7732}#) - ((lambda (#{tmp\ 7738}#) - ((lambda (#{tmp\ 7739}#) - (if #{tmp\ 7739}# - (apply (lambda (#{_\ 7744}# - #{args\ 7745}# - #{e1\ 7746}# - #{e2\ 7747}#) + (lambda (#{e\ 13430}# + #{r\ 13431}# + #{w\ 13432}# + #{s\ 13433}# + #{mod\ 13434}#) + ((lambda (#{tmp\ 13440}#) + ((lambda (#{tmp\ 13441}#) + (if #{tmp\ 13441}# + (apply (lambda (#{_\ 13446}# + #{args\ 13447}# + #{e1\ 13448}# + #{e2\ 13449}#) (call-with-values (lambda () - (#{lambda-formals\ 5107}# #{args\ 7745}#)) - (lambda (#{req\ 7748}# - #{opt\ 7749}# - #{rest\ 7750}# - #{kw\ 7751}#) - (letrec ((#{lp\ 7759}# - (lambda (#{body\ 7760}# - #{meta\ 7761}#) - ((lambda (#{tmp\ 7763}#) - ((lambda (#{tmp\ 7764}#) - (if (if #{tmp\ 7764}# - (apply (lambda (#{docstring\ 7768}# - #{e1\ 7769}# - #{e2\ 7770}#) + (#{lambda-formals\ 10809}# #{args\ 13447}#)) + (lambda (#{req\ 13450}# + #{opt\ 13451}# + #{rest\ 13452}# + #{kw\ 13453}#) + (letrec ((#{lp\ 13461}# + (lambda (#{body\ 13462}# + #{meta\ 13463}#) + ((lambda (#{tmp\ 13465}#) + ((lambda (#{tmp\ 13466}#) + (if (if #{tmp\ 13466}# + (apply (lambda (#{docstring\ 13470}# + #{e1\ 13471}# + #{e2\ 13472}#) (string? (syntax->datum - #{docstring\ 7768}#))) - #{tmp\ 7764}#) + #{docstring\ 13470}#))) + #{tmp\ 13466}#) #f) - (apply (lambda (#{docstring\ 7774}# - #{e1\ 7775}# - #{e2\ 7776}#) - (#{lp\ 7759}# - (cons #{e1\ 7775}# - #{e2\ 7776}#) + (apply (lambda (#{docstring\ 13476}# + #{e1\ 13477}# + #{e2\ 13478}#) + (#{lp\ 13461}# + (cons #{e1\ 13477}# + #{e2\ 13478}#) (append - #{meta\ 7761}# + #{meta\ 13463}# (list (cons 'documentation (syntax->datum - #{docstring\ 7774}#)))))) - #{tmp\ 7764}#) - ((lambda (#{tmp\ 7779}#) - (if #{tmp\ 7779}# - (apply (lambda (#{k\ 7784}# - #{v\ 7785}# - #{e1\ 7786}# - #{e2\ 7787}#) - (#{lp\ 7759}# - (cons #{e1\ 7786}# - #{e2\ 7787}#) + #{docstring\ 13476}#)))))) + #{tmp\ 13466}#) + ((lambda (#{tmp\ 13481}#) + (if #{tmp\ 13481}# + (apply (lambda (#{k\ 13486}# + #{v\ 13487}# + #{e1\ 13488}# + #{e2\ 13489}#) + (#{lp\ 13461}# + (cons #{e1\ 13488}# + #{e2\ 13489}#) (append - #{meta\ 7761}# + #{meta\ 13463}# (syntax->datum (map cons - #{k\ 7784}# - #{v\ 7785}#))))) - #{tmp\ 7779}#) - ((lambda (#{_\ 7792}#) - (#{chi-simple-lambda\ 5109}# - #{e\ 7728}# - #{r\ 7729}# - #{w\ 7730}# - #{s\ 7731}# - #{mod\ 7732}# - #{req\ 7748}# - #{rest\ 7750}# - #{meta\ 7761}# - #{body\ 7760}#)) - #{tmp\ 7763}#))) + #{k\ 13486}# + #{v\ 13487}#))))) + #{tmp\ 13481}#) + ((lambda (#{_\ 13494}#) + (#{chi-simple-lambda\ 10811}# + #{e\ 13430}# + #{r\ 13431}# + #{w\ 13432}# + #{s\ 13433}# + #{mod\ 13434}# + #{req\ 13450}# + #{rest\ 13452}# + #{meta\ 13463}# + #{body\ 13462}#)) + #{tmp\ 13465}#))) ($sc-dispatch - #{tmp\ 7763}# + #{tmp\ 13465}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 7763}# + #{tmp\ 13465}# '(any any . each-any)))) - #{body\ 7760}#)))) - (#{lp\ 7759}# - (cons #{e1\ 7746}# #{e2\ 7747}#) + #{body\ 13462}#)))) + (#{lp\ 13461}# + (cons #{e1\ 13448}# #{e2\ 13449}#) '()))))) - #{tmp\ 7739}#) - ((lambda (#{_\ 7794}#) + #{tmp\ 13441}#) + ((lambda (#{_\ 13496}#) (syntax-violation 'lambda "bad lambda" - #{e\ 7728}#)) - #{tmp\ 7738}#))) + #{e\ 13430}#)) + #{tmp\ 13440}#))) ($sc-dispatch - #{tmp\ 7738}# + #{tmp\ 13440}# '(any any any . each-any)))) - #{e\ 7728}#))) - (#{global-extend\ 5000}# + #{e\ 13430}#))) + (#{global-extend\ 10702}# 'core 'lambda* - (lambda (#{e\ 7795}# - #{r\ 7796}# - #{w\ 7797}# - #{s\ 7798}# - #{mod\ 7799}#) - ((lambda (#{tmp\ 7805}#) - ((lambda (#{tmp\ 7806}#) - (if #{tmp\ 7806}# - (apply (lambda (#{_\ 7811}# - #{args\ 7812}# - #{e1\ 7813}# - #{e2\ 7814}#) + (lambda (#{e\ 13497}# + #{r\ 13498}# + #{w\ 13499}# + #{s\ 13500}# + #{mod\ 13501}#) + ((lambda (#{tmp\ 13507}#) + ((lambda (#{tmp\ 13508}#) + (if #{tmp\ 13508}# + (apply (lambda (#{_\ 13513}# + #{args\ 13514}# + #{e1\ 13515}# + #{e2\ 13516}#) (call-with-values (lambda () - (#{chi-lambda-case\ 5113}# - #{e\ 7795}# - #{r\ 7796}# - #{w\ 7797}# - #{s\ 7798}# - #{mod\ 7799}# - #{lambda*-formals\ 5111}# - (list (cons #{args\ 7812}# - (cons #{e1\ 7813}# - #{e2\ 7814}#))))) - (lambda (#{meta\ 7816}# #{lcase\ 7817}#) - (#{build-case-lambda\ 4948}# - #{s\ 7798}# - #{meta\ 7816}# - #{lcase\ 7817}#)))) - #{tmp\ 7806}#) - ((lambda (#{_\ 7821}#) + (#{chi-lambda-case\ 10815}# + #{e\ 13497}# + #{r\ 13498}# + #{w\ 13499}# + #{s\ 13500}# + #{mod\ 13501}# + #{lambda*-formals\ 10813}# + (list (cons #{args\ 13514}# + (cons #{e1\ 13515}# + #{e2\ 13516}#))))) + (lambda (#{meta\ 13518}# #{lcase\ 13519}#) + (#{build-case-lambda\ 10650}# + #{s\ 13500}# + #{meta\ 13518}# + #{lcase\ 13519}#)))) + #{tmp\ 13508}#) + ((lambda (#{_\ 13523}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 7795}#)) - #{tmp\ 7805}#))) + #{e\ 13497}#)) + #{tmp\ 13507}#))) ($sc-dispatch - #{tmp\ 7805}# + #{tmp\ 13507}# '(any any any . each-any)))) - #{e\ 7795}#))) - (#{global-extend\ 5000}# + #{e\ 13497}#))) + (#{global-extend\ 10702}# 'core 'case-lambda - (lambda (#{e\ 7822}# - #{r\ 7823}# - #{w\ 7824}# - #{s\ 7825}# - #{mod\ 7826}#) - ((lambda (#{tmp\ 7832}#) - ((lambda (#{tmp\ 7833}#) - (if #{tmp\ 7833}# - (apply (lambda (#{_\ 7841}# - #{args\ 7842}# - #{e1\ 7843}# - #{e2\ 7844}# - #{args*\ 7845}# - #{e1*\ 7846}# - #{e2*\ 7847}#) + (lambda (#{e\ 13524}# + #{r\ 13525}# + #{w\ 13526}# + #{s\ 13527}# + #{mod\ 13528}#) + ((lambda (#{tmp\ 13534}#) + ((lambda (#{tmp\ 13535}#) + (if #{tmp\ 13535}# + (apply (lambda (#{_\ 13543}# + #{args\ 13544}# + #{e1\ 13545}# + #{e2\ 13546}# + #{args*\ 13547}# + #{e1*\ 13548}# + #{e2*\ 13549}#) (call-with-values (lambda () - (#{chi-lambda-case\ 5113}# - #{e\ 7822}# - #{r\ 7823}# - #{w\ 7824}# - #{s\ 7825}# - #{mod\ 7826}# - #{lambda-formals\ 5107}# - (cons (cons #{args\ 7842}# - (cons #{e1\ 7843}# #{e2\ 7844}#)) - (map (lambda (#{tmp\ 7851}# - #{tmp\ 7850}# - #{tmp\ 7849}#) - (cons #{tmp\ 7849}# - (cons #{tmp\ 7850}# - #{tmp\ 7851}#))) - #{e2*\ 7847}# - #{e1*\ 7846}# - #{args*\ 7845}#)))) - (lambda (#{meta\ 7853}# #{lcase\ 7854}#) - (#{build-case-lambda\ 4948}# - #{s\ 7825}# - #{meta\ 7853}# - #{lcase\ 7854}#)))) - #{tmp\ 7833}#) - ((lambda (#{_\ 7858}#) + (#{chi-lambda-case\ 10815}# + #{e\ 13524}# + #{r\ 13525}# + #{w\ 13526}# + #{s\ 13527}# + #{mod\ 13528}# + #{lambda-formals\ 10809}# + (cons (cons #{args\ 13544}# + (cons #{e1\ 13545}# + #{e2\ 13546}#)) + (map (lambda (#{tmp\ 13553}# + #{tmp\ 13552}# + #{tmp\ 13551}#) + (cons #{tmp\ 13551}# + (cons #{tmp\ 13552}# + #{tmp\ 13553}#))) + #{e2*\ 13549}# + #{e1*\ 13548}# + #{args*\ 13547}#)))) + (lambda (#{meta\ 13555}# #{lcase\ 13556}#) + (#{build-case-lambda\ 10650}# + #{s\ 13527}# + #{meta\ 13555}# + #{lcase\ 13556}#)))) + #{tmp\ 13535}#) + ((lambda (#{_\ 13560}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 7822}#)) - #{tmp\ 7832}#))) + #{e\ 13524}#)) + #{tmp\ 13534}#))) ($sc-dispatch - #{tmp\ 7832}# + #{tmp\ 13534}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 7822}#))) - (#{global-extend\ 5000}# + #{e\ 13524}#))) + (#{global-extend\ 10702}# 'core 'case-lambda* - (lambda (#{e\ 7859}# - #{r\ 7860}# - #{w\ 7861}# - #{s\ 7862}# - #{mod\ 7863}#) - ((lambda (#{tmp\ 7869}#) - ((lambda (#{tmp\ 7870}#) - (if #{tmp\ 7870}# - (apply (lambda (#{_\ 7878}# - #{args\ 7879}# - #{e1\ 7880}# - #{e2\ 7881}# - #{args*\ 7882}# - #{e1*\ 7883}# - #{e2*\ 7884}#) + (lambda (#{e\ 13561}# + #{r\ 13562}# + #{w\ 13563}# + #{s\ 13564}# + #{mod\ 13565}#) + ((lambda (#{tmp\ 13571}#) + ((lambda (#{tmp\ 13572}#) + (if #{tmp\ 13572}# + (apply (lambda (#{_\ 13580}# + #{args\ 13581}# + #{e1\ 13582}# + #{e2\ 13583}# + #{args*\ 13584}# + #{e1*\ 13585}# + #{e2*\ 13586}#) (call-with-values (lambda () - (#{chi-lambda-case\ 5113}# - #{e\ 7859}# - #{r\ 7860}# - #{w\ 7861}# - #{s\ 7862}# - #{mod\ 7863}# - #{lambda*-formals\ 5111}# - (cons (cons #{args\ 7879}# - (cons #{e1\ 7880}# #{e2\ 7881}#)) - (map (lambda (#{tmp\ 7888}# - #{tmp\ 7887}# - #{tmp\ 7886}#) - (cons #{tmp\ 7886}# - (cons #{tmp\ 7887}# - #{tmp\ 7888}#))) - #{e2*\ 7884}# - #{e1*\ 7883}# - #{args*\ 7882}#)))) - (lambda (#{meta\ 7890}# #{lcase\ 7891}#) - (#{build-case-lambda\ 4948}# - #{s\ 7862}# - #{meta\ 7890}# - #{lcase\ 7891}#)))) - #{tmp\ 7870}#) - ((lambda (#{_\ 7895}#) + (#{chi-lambda-case\ 10815}# + #{e\ 13561}# + #{r\ 13562}# + #{w\ 13563}# + #{s\ 13564}# + #{mod\ 13565}# + #{lambda*-formals\ 10813}# + (cons (cons #{args\ 13581}# + (cons #{e1\ 13582}# + #{e2\ 13583}#)) + (map (lambda (#{tmp\ 13590}# + #{tmp\ 13589}# + #{tmp\ 13588}#) + (cons #{tmp\ 13588}# + (cons #{tmp\ 13589}# + #{tmp\ 13590}#))) + #{e2*\ 13586}# + #{e1*\ 13585}# + #{args*\ 13584}#)))) + (lambda (#{meta\ 13592}# #{lcase\ 13593}#) + (#{build-case-lambda\ 10650}# + #{s\ 13564}# + #{meta\ 13592}# + #{lcase\ 13593}#)))) + #{tmp\ 13572}#) + ((lambda (#{_\ 13597}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 7859}#)) - #{tmp\ 7869}#))) + #{e\ 13561}#)) + #{tmp\ 13571}#))) ($sc-dispatch - #{tmp\ 7869}# + #{tmp\ 13571}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 7859}#))) - (#{global-extend\ 5000}# + #{e\ 13561}#))) + (#{global-extend\ 10702}# 'core 'let - (letrec ((#{chi-let\ 7897}# - (lambda (#{e\ 7898}# - #{r\ 7899}# - #{w\ 7900}# - #{s\ 7901}# - #{mod\ 7902}# - #{constructor\ 7903}# - #{ids\ 7904}# - #{vals\ 7905}# - #{exps\ 7906}#) - (if (not (#{valid-bound-ids?\ 5067}# #{ids\ 7904}#)) + (letrec ((#{chi-let\ 13599}# + (lambda (#{e\ 13600}# + #{r\ 13601}# + #{w\ 13602}# + #{s\ 13603}# + #{mod\ 13604}# + #{constructor\ 13605}# + #{ids\ 13606}# + #{vals\ 13607}# + #{exps\ 13608}#) + (if (not (#{valid-bound-ids?\ 10769}# #{ids\ 13606}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 7898}#) - (let ((#{labels\ 7918}# - (#{gen-labels\ 5022}# #{ids\ 7904}#)) - (#{new-vars\ 7919}# - (map #{gen-var\ 5117}# #{ids\ 7904}#))) - (let ((#{nw\ 7922}# - (#{make-binding-wrap\ 5051}# - #{ids\ 7904}# - #{labels\ 7918}# - #{w\ 7900}#)) - (#{nr\ 7923}# - (#{extend-var-env\ 4994}# - #{labels\ 7918}# - #{new-vars\ 7919}# - #{r\ 7899}#))) - (#{constructor\ 7903}# - #{s\ 7901}# - (map syntax->datum #{ids\ 7904}#) - #{new-vars\ 7919}# - (map (lambda (#{x\ 7924}#) - (#{chi\ 5089}# - #{x\ 7924}# - #{r\ 7899}# - #{w\ 7900}# - #{mod\ 7902}#)) - #{vals\ 7905}#) - (#{chi-body\ 5097}# - #{exps\ 7906}# - (#{source-wrap\ 5075}# - #{e\ 7898}# - #{nw\ 7922}# - #{s\ 7901}# - #{mod\ 7902}#) - #{nr\ 7923}# - #{nw\ 7922}# - #{mod\ 7902}#)))))))) - (lambda (#{e\ 7926}# - #{r\ 7927}# - #{w\ 7928}# - #{s\ 7929}# - #{mod\ 7930}#) - ((lambda (#{tmp\ 7936}#) - ((lambda (#{tmp\ 7937}#) - (if (if #{tmp\ 7937}# - (apply (lambda (#{_\ 7943}# - #{id\ 7944}# - #{val\ 7945}# - #{e1\ 7946}# - #{e2\ 7947}#) - (and-map #{id?\ 5004}# #{id\ 7944}#)) - #{tmp\ 7937}#) + #{e\ 13600}#) + (let ((#{labels\ 13620}# + (#{gen-labels\ 10724}# #{ids\ 13606}#)) + (#{new-vars\ 13621}# + (map #{gen-var\ 10819}# #{ids\ 13606}#))) + (let ((#{nw\ 13624}# + (#{make-binding-wrap\ 10753}# + #{ids\ 13606}# + #{labels\ 13620}# + #{w\ 13602}#)) + (#{nr\ 13625}# + (#{extend-var-env\ 10696}# + #{labels\ 13620}# + #{new-vars\ 13621}# + #{r\ 13601}#))) + (#{constructor\ 13605}# + #{s\ 13603}# + (map syntax->datum #{ids\ 13606}#) + #{new-vars\ 13621}# + (map (lambda (#{x\ 13626}#) + (#{chi\ 10791}# + #{x\ 13626}# + #{r\ 13601}# + #{w\ 13602}# + #{mod\ 13604}#)) + #{vals\ 13607}#) + (#{chi-body\ 10799}# + #{exps\ 13608}# + (#{source-wrap\ 10777}# + #{e\ 13600}# + #{nw\ 13624}# + #{s\ 13603}# + #{mod\ 13604}#) + #{nr\ 13625}# + #{nw\ 13624}# + #{mod\ 13604}#)))))))) + (lambda (#{e\ 13628}# + #{r\ 13629}# + #{w\ 13630}# + #{s\ 13631}# + #{mod\ 13632}#) + ((lambda (#{tmp\ 13638}#) + ((lambda (#{tmp\ 13639}#) + (if (if #{tmp\ 13639}# + (apply (lambda (#{_\ 13645}# + #{id\ 13646}# + #{val\ 13647}# + #{e1\ 13648}# + #{e2\ 13649}#) + (and-map #{id?\ 10706}# #{id\ 13646}#)) + #{tmp\ 13639}#) #f) - (apply (lambda (#{_\ 7954}# - #{id\ 7955}# - #{val\ 7956}# - #{e1\ 7957}# - #{e2\ 7958}#) - (#{chi-let\ 7897}# - #{e\ 7926}# - #{r\ 7927}# - #{w\ 7928}# - #{s\ 7929}# - #{mod\ 7930}# - #{build-let\ 4958}# - #{id\ 7955}# - #{val\ 7956}# - (cons #{e1\ 7957}# #{e2\ 7958}#))) - #{tmp\ 7937}#) - ((lambda (#{tmp\ 7962}#) - (if (if #{tmp\ 7962}# - (apply (lambda (#{_\ 7969}# - #{f\ 7970}# - #{id\ 7971}# - #{val\ 7972}# - #{e1\ 7973}# - #{e2\ 7974}#) - (if (#{id?\ 5004}# #{f\ 7970}#) - (and-map #{id?\ 5004}# #{id\ 7971}#) + (apply (lambda (#{_\ 13656}# + #{id\ 13657}# + #{val\ 13658}# + #{e1\ 13659}# + #{e2\ 13660}#) + (#{chi-let\ 13599}# + #{e\ 13628}# + #{r\ 13629}# + #{w\ 13630}# + #{s\ 13631}# + #{mod\ 13632}# + #{build-let\ 10660}# + #{id\ 13657}# + #{val\ 13658}# + (cons #{e1\ 13659}# #{e2\ 13660}#))) + #{tmp\ 13639}#) + ((lambda (#{tmp\ 13664}#) + (if (if #{tmp\ 13664}# + (apply (lambda (#{_\ 13671}# + #{f\ 13672}# + #{id\ 13673}# + #{val\ 13674}# + #{e1\ 13675}# + #{e2\ 13676}#) + (if (#{id?\ 10706}# #{f\ 13672}#) + (and-map #{id?\ 10706}# #{id\ 13673}#) #f)) - #{tmp\ 7962}#) + #{tmp\ 13664}#) #f) - (apply (lambda (#{_\ 7984}# - #{f\ 7985}# - #{id\ 7986}# - #{val\ 7987}# - #{e1\ 7988}# - #{e2\ 7989}#) - (#{chi-let\ 7897}# - #{e\ 7926}# - #{r\ 7927}# - #{w\ 7928}# - #{s\ 7929}# - #{mod\ 7930}# - #{build-named-let\ 4960}# - (cons #{f\ 7985}# #{id\ 7986}#) - #{val\ 7987}# - (cons #{e1\ 7988}# #{e2\ 7989}#))) - #{tmp\ 7962}#) - ((lambda (#{_\ 7994}#) + (apply (lambda (#{_\ 13686}# + #{f\ 13687}# + #{id\ 13688}# + #{val\ 13689}# + #{e1\ 13690}# + #{e2\ 13691}#) + (#{chi-let\ 13599}# + #{e\ 13628}# + #{r\ 13629}# + #{w\ 13630}# + #{s\ 13631}# + #{mod\ 13632}# + #{build-named-let\ 10662}# + (cons #{f\ 13687}# #{id\ 13688}#) + #{val\ 13689}# + (cons #{e1\ 13690}# #{e2\ 13691}#))) + #{tmp\ 13664}#) + ((lambda (#{_\ 13696}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 5075}# - #{e\ 7926}# - #{w\ 7928}# - #{s\ 7929}# - #{mod\ 7930}#))) - #{tmp\ 7936}#))) + (#{source-wrap\ 10777}# + #{e\ 13628}# + #{w\ 13630}# + #{s\ 13631}# + #{mod\ 13632}#))) + #{tmp\ 13638}#))) ($sc-dispatch - #{tmp\ 7936}# + #{tmp\ 13638}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 7936}# + #{tmp\ 13638}# '(any #(each (any any)) any . each-any)))) - #{e\ 7926}#)))) - (#{global-extend\ 5000}# + #{e\ 13628}#)))) + (#{global-extend\ 10702}# 'core 'letrec - (lambda (#{e\ 7995}# - #{r\ 7996}# - #{w\ 7997}# - #{s\ 7998}# - #{mod\ 7999}#) - ((lambda (#{tmp\ 8005}#) - ((lambda (#{tmp\ 8006}#) - (if (if #{tmp\ 8006}# - (apply (lambda (#{_\ 8012}# - #{id\ 8013}# - #{val\ 8014}# - #{e1\ 8015}# - #{e2\ 8016}#) - (and-map #{id?\ 5004}# #{id\ 8013}#)) - #{tmp\ 8006}#) + (lambda (#{e\ 13697}# + #{r\ 13698}# + #{w\ 13699}# + #{s\ 13700}# + #{mod\ 13701}#) + ((lambda (#{tmp\ 13707}#) + ((lambda (#{tmp\ 13708}#) + (if (if #{tmp\ 13708}# + (apply (lambda (#{_\ 13714}# + #{id\ 13715}# + #{val\ 13716}# + #{e1\ 13717}# + #{e2\ 13718}#) + (and-map #{id?\ 10706}# #{id\ 13715}#)) + #{tmp\ 13708}#) #f) - (apply (lambda (#{_\ 8023}# - #{id\ 8024}# - #{val\ 8025}# - #{e1\ 8026}# - #{e2\ 8027}#) - (let ((#{ids\ 8029}# #{id\ 8024}#)) - (if (not (#{valid-bound-ids?\ 5067}# - #{ids\ 8029}#)) + (apply (lambda (#{_\ 13725}# + #{id\ 13726}# + #{val\ 13727}# + #{e1\ 13728}# + #{e2\ 13729}#) + (let ((#{ids\ 13731}# #{id\ 13726}#)) + (if (not (#{valid-bound-ids?\ 10769}# + #{ids\ 13731}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 7995}#) - (let ((#{labels\ 8033}# - (#{gen-labels\ 5022}# #{ids\ 8029}#)) - (#{new-vars\ 8034}# - (map #{gen-var\ 5117}# #{ids\ 8029}#))) - (let ((#{w\ 8037}# - (#{make-binding-wrap\ 5051}# - #{ids\ 8029}# - #{labels\ 8033}# - #{w\ 7997}#)) - (#{r\ 8038}# - (#{extend-var-env\ 4994}# - #{labels\ 8033}# - #{new-vars\ 8034}# - #{r\ 7996}#))) - (#{build-letrec\ 4962}# - #{s\ 7998}# - (map syntax->datum #{ids\ 8029}#) - #{new-vars\ 8034}# - (map (lambda (#{x\ 8039}#) - (#{chi\ 5089}# - #{x\ 8039}# - #{r\ 8038}# - #{w\ 8037}# - #{mod\ 7999}#)) - #{val\ 8025}#) - (#{chi-body\ 5097}# - (cons #{e1\ 8026}# #{e2\ 8027}#) - (#{source-wrap\ 5075}# - #{e\ 7995}# - #{w\ 8037}# - #{s\ 7998}# - #{mod\ 7999}#) - #{r\ 8038}# - #{w\ 8037}# - #{mod\ 7999}#))))))) - #{tmp\ 8006}#) - ((lambda (#{_\ 8044}#) + #{e\ 13697}#) + (let ((#{labels\ 13735}# + (#{gen-labels\ 10724}# #{ids\ 13731}#)) + (#{new-vars\ 13736}# + (map #{gen-var\ 10819}# + #{ids\ 13731}#))) + (let ((#{w\ 13739}# + (#{make-binding-wrap\ 10753}# + #{ids\ 13731}# + #{labels\ 13735}# + #{w\ 13699}#)) + (#{r\ 13740}# + (#{extend-var-env\ 10696}# + #{labels\ 13735}# + #{new-vars\ 13736}# + #{r\ 13698}#))) + (#{build-letrec\ 10664}# + #{s\ 13700}# + (map syntax->datum #{ids\ 13731}#) + #{new-vars\ 13736}# + (map (lambda (#{x\ 13741}#) + (#{chi\ 10791}# + #{x\ 13741}# + #{r\ 13740}# + #{w\ 13739}# + #{mod\ 13701}#)) + #{val\ 13727}#) + (#{chi-body\ 10799}# + (cons #{e1\ 13728}# #{e2\ 13729}#) + (#{source-wrap\ 10777}# + #{e\ 13697}# + #{w\ 13739}# + #{s\ 13700}# + #{mod\ 13701}#) + #{r\ 13740}# + #{w\ 13739}# + #{mod\ 13701}#))))))) + #{tmp\ 13708}#) + ((lambda (#{_\ 13746}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 5075}# - #{e\ 7995}# - #{w\ 7997}# - #{s\ 7998}# - #{mod\ 7999}#))) - #{tmp\ 8005}#))) + (#{source-wrap\ 10777}# + #{e\ 13697}# + #{w\ 13699}# + #{s\ 13700}# + #{mod\ 13701}#))) + #{tmp\ 13707}#))) ($sc-dispatch - #{tmp\ 8005}# + #{tmp\ 13707}# '(any #(each (any any)) any . each-any)))) - #{e\ 7995}#))) - (#{global-extend\ 5000}# + #{e\ 13697}#))) + (#{global-extend\ 10702}# 'core 'set! - (lambda (#{e\ 8045}# - #{r\ 8046}# - #{w\ 8047}# - #{s\ 8048}# - #{mod\ 8049}#) - ((lambda (#{tmp\ 8055}#) - ((lambda (#{tmp\ 8056}#) - (if (if #{tmp\ 8056}# - (apply (lambda (#{_\ 8060}# #{id\ 8061}# #{val\ 8062}#) - (#{id?\ 5004}# #{id\ 8061}#)) - #{tmp\ 8056}#) + (lambda (#{e\ 13747}# + #{r\ 13748}# + #{w\ 13749}# + #{s\ 13750}# + #{mod\ 13751}#) + ((lambda (#{tmp\ 13757}#) + ((lambda (#{tmp\ 13758}#) + (if (if #{tmp\ 13758}# + (apply (lambda (#{_\ 13762}# + #{id\ 13763}# + #{val\ 13764}#) + (#{id?\ 10706}# #{id\ 13763}#)) + #{tmp\ 13758}#) #f) - (apply (lambda (#{_\ 8066}# #{id\ 8067}# #{val\ 8068}#) - (let ((#{val\ 8071}# - (#{chi\ 5089}# - #{val\ 8068}# - #{r\ 8046}# - #{w\ 8047}# - #{mod\ 8049}#)) - (#{n\ 8072}# - (#{id-var-name\ 5061}# - #{id\ 8067}# - #{w\ 8047}#))) - (let ((#{b\ 8074}# - (#{lookup\ 4998}# - #{n\ 8072}# - #{r\ 8046}# - #{mod\ 8049}#))) - (let ((#{atom-key\ 8077}# - (#{binding-type\ 4987}# #{b\ 8074}#))) - (if (memv #{atom-key\ 8077}# + (apply (lambda (#{_\ 13768}# #{id\ 13769}# #{val\ 13770}#) + (let ((#{val\ 13773}# + (#{chi\ 10791}# + #{val\ 13770}# + #{r\ 13748}# + #{w\ 13749}# + #{mod\ 13751}#)) + (#{n\ 13774}# + (#{id-var-name\ 10763}# + #{id\ 13769}# + #{w\ 13749}#))) + (let ((#{b\ 13776}# + (#{lookup\ 10700}# + #{n\ 13774}# + #{r\ 13748}# + #{mod\ 13751}#))) + (let ((#{atom-key\ 13779}# + (#{binding-type\ 10689}# #{b\ 13776}#))) + (if (memv #{atom-key\ 13779}# '(lexical)) - (#{build-lexical-assignment\ 4934}# - #{s\ 8048}# - (syntax->datum #{id\ 8067}#) - (#{binding-value\ 4989}# #{b\ 8074}#) - #{val\ 8071}#) - (if (memv #{atom-key\ 8077}# + (#{build-lexical-assignment\ 10636}# + #{s\ 13750}# + (syntax->datum #{id\ 13769}#) + (#{binding-value\ 10691}# #{b\ 13776}#) + #{val\ 13773}#) + (if (memv #{atom-key\ 13779}# '(global)) - (#{build-global-assignment\ 4940}# - #{s\ 8048}# - #{n\ 8072}# - #{val\ 8071}# - #{mod\ 8049}#) - (if (memv #{atom-key\ 8077}# + (#{build-global-assignment\ 10642}# + #{s\ 13750}# + #{n\ 13774}# + #{val\ 13773}# + #{mod\ 13751}#) + (if (memv #{atom-key\ 13779}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 5073}# - #{id\ 8067}# - #{w\ 8047}# - #{mod\ 8049}#)) + (#{wrap\ 10775}# + #{id\ 13769}# + #{w\ 13749}# + #{mod\ 13751}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 5075}# - #{e\ 8045}# - #{w\ 8047}# - #{s\ 8048}# - #{mod\ 8049}#))))))))) - #{tmp\ 8056}#) - ((lambda (#{tmp\ 8082}#) - (if #{tmp\ 8082}# - (apply (lambda (#{_\ 8087}# - #{head\ 8088}# - #{tail\ 8089}# - #{val\ 8090}#) + (#{source-wrap\ 10777}# + #{e\ 13747}# + #{w\ 13749}# + #{s\ 13750}# + #{mod\ 13751}#))))))))) + #{tmp\ 13758}#) + ((lambda (#{tmp\ 13784}#) + (if #{tmp\ 13784}# + (apply (lambda (#{_\ 13789}# + #{head\ 13790}# + #{tail\ 13791}# + #{val\ 13792}#) (call-with-values (lambda () - (#{syntax-type\ 5085}# - #{head\ 8088}# - #{r\ 8046}# + (#{syntax-type\ 10787}# + #{head\ 13790}# + #{r\ 13748}# '(()) #f #f - #{mod\ 8049}# + #{mod\ 13751}# #t)) - (lambda (#{type\ 8093}# - #{value\ 8094}# - #{ee\ 8095}# - #{ww\ 8096}# - #{ss\ 8097}# - #{modmod\ 8098}#) - (if (memv #{type\ 8093}# + (lambda (#{type\ 13795}# + #{value\ 13796}# + #{ee\ 13797}# + #{ww\ 13798}# + #{ss\ 13799}# + #{modmod\ 13800}#) + (if (memv #{type\ 13795}# '(module-ref)) - (let ((#{val\ 8107}# - (#{chi\ 5089}# - #{val\ 8090}# - #{r\ 8046}# - #{w\ 8047}# - #{mod\ 8049}#))) + (let ((#{val\ 13809}# + (#{chi\ 10791}# + #{val\ 13792}# + #{r\ 13748}# + #{w\ 13749}# + #{mod\ 13751}#))) (call-with-values (lambda () - (#{value\ 8094}# - (cons #{head\ 8088}# - #{tail\ 8089}#) - #{r\ 8046}# - #{w\ 8047}#)) - (lambda (#{e\ 8109}# - #{r\ 8110}# - #{w\ 8111}# - #{s*\ 8112}# - #{mod\ 8113}#) - ((lambda (#{tmp\ 8119}#) - ((lambda (#{tmp\ 8120}#) - (if (if #{tmp\ 8120}# - (apply (lambda (#{e\ 8122}#) - (#{id?\ 5004}# - #{e\ 8122}#)) - #{tmp\ 8120}#) + (#{value\ 13796}# + (cons #{head\ 13790}# + #{tail\ 13791}#) + #{r\ 13748}# + #{w\ 13749}#)) + (lambda (#{e\ 13811}# + #{r\ 13812}# + #{w\ 13813}# + #{s*\ 13814}# + #{mod\ 13815}#) + ((lambda (#{tmp\ 13821}#) + ((lambda (#{tmp\ 13822}#) + (if (if #{tmp\ 13822}# + (apply (lambda (#{e\ 13824}#) + (#{id?\ 10706}# + #{e\ 13824}#)) + #{tmp\ 13822}#) #f) - (apply (lambda (#{e\ 8124}#) - (#{build-global-assignment\ 4940}# - #{s\ 8048}# + (apply (lambda (#{e\ 13826}#) + (#{build-global-assignment\ 10642}# + #{s\ 13750}# (syntax->datum - #{e\ 8124}#) - #{val\ 8107}# - #{mod\ 8113}#)) - #{tmp\ 8120}#) + #{e\ 13826}#) + #{val\ 13809}# + #{mod\ 13815}#)) + #{tmp\ 13822}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8119}#))) - (list #{tmp\ 8119}#))) - #{e\ 8109}#)))) - (#{build-application\ 4926}# - #{s\ 8048}# - (#{chi\ 5089}# + #{tmp\ 13821}#))) + (list #{tmp\ 13821}#))) + #{e\ 13811}#)))) + (#{build-application\ 10628}# + #{s\ 13750}# + (#{chi\ 10791}# (list '#(syntax-object setter ((top) @@ -9454,22 +9558,22 @@ (top) (top) (top)) - #("i8099" - "i8100" - "i8101" - "i8102" - "i8103" - "i8104")) + #("i13801" + "i13802" + "i13803" + "i13804" + "i13805" + "i13806")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i8083" - "i8084" - "i8085" - "i8086")) + #("i13785" + "i13786" + "i13787" + "i13788")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9478,11 +9582,11 @@ (top) (top) (top)) - #("i8050" - "i8051" - "i8052" - "i8053" - "i8054")) + #("i13752" + "i13753" + "i13754" + "i13755" + "i13756")) #(ribcage (lambda-var-list gen-var @@ -9720,179 +9824,181 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile)) - #{head\ 8088}#) - #{r\ 8046}# - #{w\ 8047}# - #{mod\ 8049}#) - (map (lambda (#{e\ 8126}#) - (#{chi\ 5089}# - #{e\ 8126}# - #{r\ 8046}# - #{w\ 8047}# - #{mod\ 8049}#)) + #{head\ 13790}#) + #{r\ 13748}# + #{w\ 13749}# + #{mod\ 13751}#) + (map (lambda (#{e\ 13828}#) + (#{chi\ 10791}# + #{e\ 13828}# + #{r\ 13748}# + #{w\ 13749}# + #{mod\ 13751}#)) (append - #{tail\ 8089}# - (list #{val\ 8090}#)))))))) - #{tmp\ 8082}#) - ((lambda (#{_\ 8130}#) + #{tail\ 13791}# + (list #{val\ 13792}#)))))))) + #{tmp\ 13784}#) + ((lambda (#{_\ 13832}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 5075}# - #{e\ 8045}# - #{w\ 8047}# - #{s\ 8048}# - #{mod\ 8049}#))) - #{tmp\ 8055}#))) + (#{source-wrap\ 10777}# + #{e\ 13747}# + #{w\ 13749}# + #{s\ 13750}# + #{mod\ 13751}#))) + #{tmp\ 13757}#))) ($sc-dispatch - #{tmp\ 8055}# + #{tmp\ 13757}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 8055}# + #{tmp\ 13757}# '(any any any)))) - #{e\ 8045}#))) - (#{global-extend\ 5000}# + #{e\ 13747}#))) + (#{global-extend\ 10702}# 'module-ref '@ - (lambda (#{e\ 8131}# #{r\ 8132}# #{w\ 8133}#) - ((lambda (#{tmp\ 8137}#) - ((lambda (#{tmp\ 8138}#) - (if (if #{tmp\ 8138}# - (apply (lambda (#{_\ 8142}# #{mod\ 8143}# #{id\ 8144}#) - (if (and-map #{id?\ 5004}# #{mod\ 8143}#) - (#{id?\ 5004}# #{id\ 8144}#) + (lambda (#{e\ 13833}# #{r\ 13834}# #{w\ 13835}#) + ((lambda (#{tmp\ 13839}#) + ((lambda (#{tmp\ 13840}#) + (if (if #{tmp\ 13840}# + (apply (lambda (#{_\ 13844}# + #{mod\ 13845}# + #{id\ 13846}#) + (if (and-map #{id?\ 10706}# #{mod\ 13845}#) + (#{id?\ 10706}# #{id\ 13846}#) #f)) - #{tmp\ 8138}#) + #{tmp\ 13840}#) #f) - (apply (lambda (#{_\ 8151}# #{mod\ 8152}# #{id\ 8153}#) + (apply (lambda (#{_\ 13853}# #{mod\ 13854}# #{id\ 13855}#) (values - (syntax->datum #{id\ 8153}#) - #{r\ 8132}# - #{w\ 8133}# + (syntax->datum #{id\ 13855}#) + #{r\ 13834}# + #{w\ 13835}# #f (syntax->datum (cons '#(syntax-object @@ -9901,12 +10007,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i8148" "i8149" "i8150")) + #("i13850" "i13851" "i13852")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i8134" "i8135" "i8136")) + #("i13836" "i13837" "i13838")) #(ribcage (lambda-var-list gen-var @@ -10144,706 +10250,759 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" "i10503"))) (hygiene guile)) - #{mod\ 8152}#)))) - #{tmp\ 8138}#) + #{mod\ 13854}#)))) + #{tmp\ 13840}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8137}#))) + #{tmp\ 13839}#))) ($sc-dispatch - #{tmp\ 8137}# + #{tmp\ 13839}# '(any each-any any)))) - #{e\ 8131}#))) - (#{global-extend\ 5000}# + #{e\ 13833}#))) + (#{global-extend\ 10702}# 'module-ref '@@ - (lambda (#{e\ 8155}# #{r\ 8156}# #{w\ 8157}#) - ((lambda (#{tmp\ 8161}#) - ((lambda (#{tmp\ 8162}#) - (if (if #{tmp\ 8162}# - (apply (lambda (#{_\ 8166}# #{mod\ 8167}# #{id\ 8168}#) - (if (and-map #{id?\ 5004}# #{mod\ 8167}#) - (#{id?\ 5004}# #{id\ 8168}#) - #f)) - #{tmp\ 8162}#) - #f) - (apply (lambda (#{_\ 8175}# #{mod\ 8176}# #{id\ 8177}#) - (values - (syntax->datum #{id\ 8177}#) - #{r\ 8156}# - #{w\ 8157}# - #f - (syntax->datum - (cons '#(syntax-object - private - ((top) - #(ribcage - #(_ mod id) - #((top) (top) (top)) - #("i8172" "i8173" "i8174")) - #(ribcage () () ()) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i8158" "i8159" "i8160")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) - #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i4803" "i4801"))) - (hygiene guile)) - #{mod\ 8176}#)))) - #{tmp\ 8162}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 8161}#))) - ($sc-dispatch - #{tmp\ 8161}# - '(any each-any any)))) - #{e\ 8155}#))) - (#{global-extend\ 5000}# + (lambda (#{e\ 13857}# #{r\ 13858}# #{w\ 13859}#) + (letrec ((#{remodulate\ 13864}# + (lambda (#{x\ 13865}# #{mod\ 13866}#) + (if (pair? #{x\ 13865}#) + (cons (#{remodulate\ 13864}# + (car #{x\ 13865}#) + #{mod\ 13866}#) + (#{remodulate\ 13864}# + (cdr #{x\ 13865}#) + #{mod\ 13866}#)) + (if (#{syntax-object?\ 10670}# #{x\ 13865}#) + (#{make-syntax-object\ 10668}# + (#{remodulate\ 13864}# + (#{syntax-object-expression\ 10672}# + #{x\ 13865}#) + #{mod\ 13866}#) + (#{syntax-object-wrap\ 10674}# #{x\ 13865}#) + #{mod\ 13866}#) + (if (vector? #{x\ 13865}#) + (let ((#{n\ 13877}# (vector-length #{x\ 13865}#))) + (let ((#{v\ 13879}# (make-vector #{n\ 13877}#))) + (letrec ((#{loop\ 13882}# + (lambda (#{i\ 13883}#) + (if (#{fx=\ 10611}# + #{i\ 13883}# + #{n\ 13877}#) + (begin (if #f #f) #{v\ 13879}#) + (begin + (vector-set! + #{v\ 13879}# + #{i\ 13883}# + (#{remodulate\ 13864}# + (vector-ref + #{x\ 13865}# + #{i\ 13883}#) + #{mod\ 13866}#)) + (#{loop\ 13882}# + (#{fx+\ 10607}# + #{i\ 13883}# + 1))))))) + (#{loop\ 13882}# 0)))) + #{x\ 13865}#)))))) + ((lambda (#{tmp\ 13887}#) + ((lambda (#{tmp\ 13888}#) + (if (if #{tmp\ 13888}# + (apply (lambda (#{_\ 13892}# + #{mod\ 13893}# + #{exp\ 13894}#) + (and-map #{id?\ 10706}# #{mod\ 13893}#)) + #{tmp\ 13888}#) + #f) + (apply (lambda (#{_\ 13899}# #{mod\ 13900}# #{exp\ 13901}#) + (let ((#{mod\ 13903}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(_ mod exp) + #((top) (top) (top)) + #("i13896" + "i13897" + "i13898")) + #(ribcage + (remodulate) + ((top)) + ("i13863")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i13860" + "i13861" + "i13862")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) + #(ribcage + (define-structure and-map*) + ((top) (top)) + ("i10505" "i10503"))) + (hygiene guile)) + #{mod\ 13900}#)))) + (values + (#{remodulate\ 13864}# + #{exp\ 13901}# + #{mod\ 13903}#) + #{r\ 13858}# + #{w\ 13859}# + (#{source-annotation\ 10685}# #{exp\ 13901}#) + #{mod\ 13903}#))) + #{tmp\ 13888}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 13887}#))) + ($sc-dispatch + #{tmp\ 13887}# + '(any each-any any)))) + #{e\ 13857}#)))) + (#{global-extend\ 10702}# 'core 'if - (lambda (#{e\ 8179}# - #{r\ 8180}# - #{w\ 8181}# - #{s\ 8182}# - #{mod\ 8183}#) - ((lambda (#{tmp\ 8189}#) - ((lambda (#{tmp\ 8190}#) - (if #{tmp\ 8190}# - (apply (lambda (#{_\ 8194}# #{test\ 8195}# #{then\ 8196}#) - (#{build-conditional\ 4928}# - #{s\ 8182}# - (#{chi\ 5089}# - #{test\ 8195}# - #{r\ 8180}# - #{w\ 8181}# - #{mod\ 8183}#) - (#{chi\ 5089}# - #{then\ 8196}# - #{r\ 8180}# - #{w\ 8181}# - #{mod\ 8183}#) - (#{build-void\ 4924}# #f))) - #{tmp\ 8190}#) - ((lambda (#{tmp\ 8198}#) - (if #{tmp\ 8198}# - (apply (lambda (#{_\ 8203}# - #{test\ 8204}# - #{then\ 8205}# - #{else\ 8206}#) - (#{build-conditional\ 4928}# - #{s\ 8182}# - (#{chi\ 5089}# - #{test\ 8204}# - #{r\ 8180}# - #{w\ 8181}# - #{mod\ 8183}#) - (#{chi\ 5089}# - #{then\ 8205}# - #{r\ 8180}# - #{w\ 8181}# - #{mod\ 8183}#) - (#{chi\ 5089}# - #{else\ 8206}# - #{r\ 8180}# - #{w\ 8181}# - #{mod\ 8183}#))) - #{tmp\ 8198}#) + (lambda (#{e\ 13905}# + #{r\ 13906}# + #{w\ 13907}# + #{s\ 13908}# + #{mod\ 13909}#) + ((lambda (#{tmp\ 13915}#) + ((lambda (#{tmp\ 13916}#) + (if #{tmp\ 13916}# + (apply (lambda (#{_\ 13920}# #{test\ 13921}# #{then\ 13922}#) + (#{build-conditional\ 10630}# + #{s\ 13908}# + (#{chi\ 10791}# + #{test\ 13921}# + #{r\ 13906}# + #{w\ 13907}# + #{mod\ 13909}#) + (#{chi\ 10791}# + #{then\ 13922}# + #{r\ 13906}# + #{w\ 13907}# + #{mod\ 13909}#) + (#{build-void\ 10626}# #f))) + #{tmp\ 13916}#) + ((lambda (#{tmp\ 13924}#) + (if #{tmp\ 13924}# + (apply (lambda (#{_\ 13929}# + #{test\ 13930}# + #{then\ 13931}# + #{else\ 13932}#) + (#{build-conditional\ 10630}# + #{s\ 13908}# + (#{chi\ 10791}# + #{test\ 13930}# + #{r\ 13906}# + #{w\ 13907}# + #{mod\ 13909}#) + (#{chi\ 10791}# + #{then\ 13931}# + #{r\ 13906}# + #{w\ 13907}# + #{mod\ 13909}#) + (#{chi\ 10791}# + #{else\ 13932}# + #{r\ 13906}# + #{w\ 13907}# + #{mod\ 13909}#))) + #{tmp\ 13924}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8189}#))) + #{tmp\ 13915}#))) ($sc-dispatch - #{tmp\ 8189}# + #{tmp\ 13915}# '(any any any any))))) ($sc-dispatch - #{tmp\ 8189}# + #{tmp\ 13915}# '(any any any)))) - #{e\ 8179}#))) - (#{global-extend\ 5000}# + #{e\ 13905}#))) + (#{global-extend\ 10702}# 'core 'with-fluids - (lambda (#{e\ 8207}# - #{r\ 8208}# - #{w\ 8209}# - #{s\ 8210}# - #{mod\ 8211}#) - ((lambda (#{tmp\ 8217}#) - ((lambda (#{tmp\ 8218}#) - (if #{tmp\ 8218}# - (apply (lambda (#{_\ 8224}# - #{fluid\ 8225}# - #{val\ 8226}# - #{b\ 8227}# - #{b*\ 8228}#) - (#{build-dynlet\ 4930}# - #{s\ 8210}# - (map (lambda (#{x\ 8229}#) - (#{chi\ 5089}# - #{x\ 8229}# - #{r\ 8208}# - #{w\ 8209}# - #{mod\ 8211}#)) - #{fluid\ 8225}#) - (map (lambda (#{x\ 8232}#) - (#{chi\ 5089}# - #{x\ 8232}# - #{r\ 8208}# - #{w\ 8209}# - #{mod\ 8211}#)) - #{val\ 8226}#) - (#{chi-body\ 5097}# - (cons #{b\ 8227}# #{b*\ 8228}#) - (#{source-wrap\ 5075}# - #{e\ 8207}# - #{w\ 8209}# - #{s\ 8210}# - #{mod\ 8211}#) - #{r\ 8208}# - #{w\ 8209}# - #{mod\ 8211}#))) - #{tmp\ 8218}#) + (lambda (#{e\ 13933}# + #{r\ 13934}# + #{w\ 13935}# + #{s\ 13936}# + #{mod\ 13937}#) + ((lambda (#{tmp\ 13943}#) + ((lambda (#{tmp\ 13944}#) + (if #{tmp\ 13944}# + (apply (lambda (#{_\ 13950}# + #{fluid\ 13951}# + #{val\ 13952}# + #{b\ 13953}# + #{b*\ 13954}#) + (#{build-dynlet\ 10632}# + #{s\ 13936}# + (map (lambda (#{x\ 13955}#) + (#{chi\ 10791}# + #{x\ 13955}# + #{r\ 13934}# + #{w\ 13935}# + #{mod\ 13937}#)) + #{fluid\ 13951}#) + (map (lambda (#{x\ 13958}#) + (#{chi\ 10791}# + #{x\ 13958}# + #{r\ 13934}# + #{w\ 13935}# + #{mod\ 13937}#)) + #{val\ 13952}#) + (#{chi-body\ 10799}# + (cons #{b\ 13953}# #{b*\ 13954}#) + (#{source-wrap\ 10777}# + #{e\ 13933}# + #{w\ 13935}# + #{s\ 13936}# + #{mod\ 13937}#) + #{r\ 13934}# + #{w\ 13935}# + #{mod\ 13937}#))) + #{tmp\ 13944}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8217}#))) + #{tmp\ 13943}#))) ($sc-dispatch - #{tmp\ 8217}# + #{tmp\ 13943}# '(any #(each (any any)) any . each-any)))) - #{e\ 8207}#))) - (#{global-extend\ 5000}# + #{e\ 13933}#))) + (#{global-extend\ 10702}# 'begin 'begin '()) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'define 'define '()) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'eval-when 'eval-when '()) - (#{global-extend\ 5000}# + (#{global-extend\ 10702}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 8243}# - (lambda (#{x\ 8244}# - #{keys\ 8245}# - #{clauses\ 8246}# - #{r\ 8247}# - #{mod\ 8248}#) - (if (null? #{clauses\ 8246}#) - (#{build-application\ 4926}# + (letrec ((#{gen-syntax-case\ 13969}# + (lambda (#{x\ 13970}# + #{keys\ 13971}# + #{clauses\ 13972}# + #{r\ 13973}# + #{mod\ 13974}#) + (if (null? #{clauses\ 13972}#) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f 'syntax-violation) - (list (#{build-data\ 4954}# #f #f) - (#{build-data\ 4954}# + (list (#{build-data\ 10656}# #f #f) + (#{build-data\ 10656}# #f "source expression failed to match any pattern") - #{x\ 8244}#)) - ((lambda (#{tmp\ 8258}#) - ((lambda (#{tmp\ 8259}#) - (if #{tmp\ 8259}# - (apply (lambda (#{pat\ 8262}# #{exp\ 8263}#) - (if (if (#{id?\ 5004}# #{pat\ 8262}#) + #{x\ 13970}#)) + ((lambda (#{tmp\ 13984}#) + ((lambda (#{tmp\ 13985}#) + (if #{tmp\ 13985}# + (apply (lambda (#{pat\ 13988}# #{exp\ 13989}#) + (if (if (#{id?\ 10706}# #{pat\ 13988}#) (and-map - (lambda (#{x\ 8266}#) - (not (#{free-id=?\ 5063}# - #{pat\ 8262}# - #{x\ 8266}#))) + (lambda (#{x\ 13992}#) + (not (#{free-id=?\ 10765}# + #{pat\ 13988}# + #{x\ 13992}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i8260" "i8261")) + #("i13986" + "i13987")) #(ribcage () () ()) #(ribcage #(x @@ -10856,11 +11015,11 @@ (top) (top) (top)) - #("i8249" - "i8250" - "i8251" - "i8252" - "i8253")) + #("i13975" + "i13976" + "i13977" + "i13978" + "i13979")) #(ribcage (gen-syntax-case gen-clause @@ -10870,10 +11029,10 @@ (top) (top) (top)) - ("i8242" - "i8240" - "i8238" - "i8236")) + ("i13968" + "i13966" + "i13964" + "i13962")) #(ribcage (lambda-var-list gen-var @@ -11111,1026 +11270,1036 @@ (top) (top) (top)) - ("i5118" - "i5116" - "i5114" - "i5112" - "i5110" - "i5108" - "i5106" - "i5104" - "i5102" - "i5100" - "i5098" - "i5096" - "i5094" - "i5092" - "i5090" - "i5088" - "i5086" - "i5084" - "i5082" - "i5080" - "i5078" - "i5076" - "i5074" - "i5072" - "i5070" - "i5068" - "i5066" - "i5064" - "i5062" - "i5060" - "i5058" - "i5056" - "i5054" - "i5052" - "i5050" - "i5048" - "i5047" - "i5046" - "i5044" - "i5043" - "i5042" - "i5041" - "i5040" - "i5038" - "i5036" - "i5034" - "i5032" - "i5030" - "i5028" - "i5026" - "i5024" - "i5021" - "i5019" - "i5018" - "i5017" - "i5016" - "i5015" - "i5014" - "i5012" - "i5010" - "i5008" - "i5006" - "i5005" - "i5003" - "i5001" - "i4999" - "i4997" - "i4995" - "i4993" - "i4991" - "i4990" - "i4988" - "i4986" - "i4985" - "i4984" - "i4982" - "i4981" - "i4979" - "i4977" - "i4975" - "i4973" - "i4971" - "i4969" - "i4967" - "i4965" - "i4963" - "i4961" - "i4959" - "i4957" - "i4955" - "i4953" - "i4951" - "i4949" - "i4947" - "i4945" - "i4943" - "i4941" - "i4939" - "i4937" - "i4935" - "i4933" - "i4931" - "i4929" - "i4927" - "i4925" - "i4923" - "i4921" - "i4919" - "i4917" - "i4916" - "i4914" - "i4912" - "i4910" - "i4908" - "i4906" - "i4904" - "i4902" - "i4900")) + ("i10820" + "i10818" + "i10816" + "i10814" + "i10812" + "i10810" + "i10808" + "i10806" + "i10804" + "i10802" + "i10800" + "i10798" + "i10796" + "i10794" + "i10792" + "i10790" + "i10788" + "i10786" + "i10784" + "i10782" + "i10780" + "i10778" + "i10776" + "i10774" + "i10772" + "i10770" + "i10768" + "i10766" + "i10764" + "i10762" + "i10760" + "i10758" + "i10756" + "i10754" + "i10752" + "i10750" + "i10749" + "i10748" + "i10746" + "i10745" + "i10744" + "i10743" + "i10742" + "i10740" + "i10738" + "i10736" + "i10734" + "i10732" + "i10730" + "i10728" + "i10726" + "i10723" + "i10721" + "i10720" + "i10719" + "i10718" + "i10717" + "i10716" + "i10714" + "i10712" + "i10710" + "i10708" + "i10707" + "i10705" + "i10703" + "i10701" + "i10699" + "i10697" + "i10695" + "i10693" + "i10692" + "i10690" + "i10688" + "i10687" + "i10686" + "i10684" + "i10683" + "i10681" + "i10679" + "i10677" + "i10675" + "i10673" + "i10671" + "i10669" + "i10667" + "i10665" + "i10663" + "i10661" + "i10659" + "i10657" + "i10655" + "i10653" + "i10651" + "i10649" + "i10647" + "i10645" + "i10643" + "i10641" + "i10639" + "i10637" + "i10635" + "i10633" + "i10631" + "i10629" + "i10627" + "i10625" + "i10623" + "i10621" + "i10619" + "i10618" + "i10616" + "i10614" + "i10612" + "i10610" + "i10608" + "i10606" + "i10604" + "i10602")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i4803" "i4801"))) + ("i10505" + "i10503"))) (hygiene guile)) - #{keys\ 8245}#)) + #{keys\ 13971}#)) #f) - (let ((#{labels\ 8270}# - (list (#{gen-label\ 5020}#))) - (#{var\ 8271}# - (#{gen-var\ 5117}# - #{pat\ 8262}#))) - (#{build-application\ 4926}# + (let ((#{labels\ 13996}# + (list (#{gen-label\ 10722}#))) + (#{var\ 13997}# + (#{gen-var\ 10819}# + #{pat\ 13988}#))) + (#{build-application\ 10628}# #f - (#{build-simple-lambda\ 4946}# + (#{build-simple-lambda\ 10648}# #f (list (syntax->datum - #{pat\ 8262}#)) + #{pat\ 13988}#)) #f - (list #{var\ 8271}#) + (list #{var\ 13997}#) '() - (#{chi\ 5089}# - #{exp\ 8263}# - (#{extend-env\ 4992}# - #{labels\ 8270}# + (#{chi\ 10791}# + #{exp\ 13989}# + (#{extend-env\ 10694}# + #{labels\ 13996}# (list (cons 'syntax - (cons #{var\ 8271}# + (cons #{var\ 13997}# 0))) - #{r\ 8247}#) - (#{make-binding-wrap\ 5051}# - (list #{pat\ 8262}#) - #{labels\ 8270}# + #{r\ 13973}#) + (#{make-binding-wrap\ 10753}# + (list #{pat\ 13988}#) + #{labels\ 13996}# '(())) - #{mod\ 8248}#)) - (list #{x\ 8244}#))) - (#{gen-clause\ 8241}# - #{x\ 8244}# - #{keys\ 8245}# - (cdr #{clauses\ 8246}#) - #{r\ 8247}# - #{pat\ 8262}# + #{mod\ 13974}#)) + (list #{x\ 13970}#))) + (#{gen-clause\ 13967}# + #{x\ 13970}# + #{keys\ 13971}# + (cdr #{clauses\ 13972}#) + #{r\ 13973}# + #{pat\ 13988}# #t - #{exp\ 8263}# - #{mod\ 8248}#))) - #{tmp\ 8259}#) - ((lambda (#{tmp\ 8277}#) - (if #{tmp\ 8277}# - (apply (lambda (#{pat\ 8281}# - #{fender\ 8282}# - #{exp\ 8283}#) - (#{gen-clause\ 8241}# - #{x\ 8244}# - #{keys\ 8245}# - (cdr #{clauses\ 8246}#) - #{r\ 8247}# - #{pat\ 8281}# - #{fender\ 8282}# - #{exp\ 8283}# - #{mod\ 8248}#)) - #{tmp\ 8277}#) - ((lambda (#{_\ 8285}#) + #{exp\ 13989}# + #{mod\ 13974}#))) + #{tmp\ 13985}#) + ((lambda (#{tmp\ 14003}#) + (if #{tmp\ 14003}# + (apply (lambda (#{pat\ 14007}# + #{fender\ 14008}# + #{exp\ 14009}#) + (#{gen-clause\ 13967}# + #{x\ 13970}# + #{keys\ 13971}# + (cdr #{clauses\ 13972}#) + #{r\ 13973}# + #{pat\ 14007}# + #{fender\ 14008}# + #{exp\ 14009}# + #{mod\ 13974}#)) + #{tmp\ 14003}#) + ((lambda (#{_\ 14011}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 8246}#))) - #{tmp\ 8258}#))) + (car #{clauses\ 13972}#))) + #{tmp\ 13984}#))) ($sc-dispatch - #{tmp\ 8258}# + #{tmp\ 13984}# '(any any any))))) - ($sc-dispatch #{tmp\ 8258}# (quote (any any))))) - (car #{clauses\ 8246}#))))) - (#{gen-clause\ 8241}# - (lambda (#{x\ 8286}# - #{keys\ 8287}# - #{clauses\ 8288}# - #{r\ 8289}# - #{pat\ 8290}# - #{fender\ 8291}# - #{exp\ 8292}# - #{mod\ 8293}#) + ($sc-dispatch #{tmp\ 13984}# (quote (any any))))) + (car #{clauses\ 13972}#))))) + (#{gen-clause\ 13967}# + (lambda (#{x\ 14012}# + #{keys\ 14013}# + #{clauses\ 14014}# + #{r\ 14015}# + #{pat\ 14016}# + #{fender\ 14017}# + #{exp\ 14018}# + #{mod\ 14019}#) (call-with-values (lambda () - (#{convert-pattern\ 8237}# - #{pat\ 8290}# - #{keys\ 8287}#)) - (lambda (#{p\ 8302}# #{pvars\ 8303}#) - (if (not (#{distinct-bound-ids?\ 5069}# - (map car #{pvars\ 8303}#))) + (#{convert-pattern\ 13963}# + #{pat\ 14016}# + #{keys\ 14013}#)) + (lambda (#{p\ 14028}# #{pvars\ 14029}#) + (if (not (#{distinct-bound-ids?\ 10771}# + (map car #{pvars\ 14029}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 8290}#) + #{pat\ 14016}#) (if (not (and-map - (lambda (#{x\ 8310}#) - (not (#{ellipsis?\ 5105}# - (car #{x\ 8310}#)))) - #{pvars\ 8303}#)) + (lambda (#{x\ 14036}#) + (not (#{ellipsis?\ 10807}# + (car #{x\ 14036}#)))) + #{pvars\ 14029}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 8290}#) - (let ((#{y\ 8314}# - (#{gen-var\ 5117}# (quote tmp)))) - (#{build-application\ 4926}# + #{pat\ 14016}#) + (let ((#{y\ 14040}# + (#{gen-var\ 10819}# (quote tmp)))) + (#{build-application\ 10628}# #f - (#{build-simple-lambda\ 4946}# + (#{build-simple-lambda\ 10648}# #f (list (quote tmp)) #f - (list #{y\ 8314}#) + (list #{y\ 14040}#) '() - (let ((#{y\ 8318}# - (#{build-lexical-reference\ 4932}# + (let ((#{y\ 14044}# + (#{build-lexical-reference\ 10634}# 'value #f 'tmp - #{y\ 8314}#))) - (#{build-conditional\ 4928}# + #{y\ 14040}#))) + (#{build-conditional\ 10630}# #f - ((lambda (#{tmp\ 8321}#) - ((lambda (#{tmp\ 8322}#) - (if #{tmp\ 8322}# - (apply (lambda () #{y\ 8318}#) - #{tmp\ 8322}#) - ((lambda (#{_\ 8324}#) - (#{build-conditional\ 4928}# + ((lambda (#{tmp\ 14047}#) + ((lambda (#{tmp\ 14048}#) + (if #{tmp\ 14048}# + (apply (lambda () #{y\ 14044}#) + #{tmp\ 14048}#) + ((lambda (#{_\ 14050}#) + (#{build-conditional\ 10630}# #f - #{y\ 8318}# - (#{build-dispatch-call\ 8239}# - #{pvars\ 8303}# - #{fender\ 8291}# - #{y\ 8318}# - #{r\ 8289}# - #{mod\ 8293}#) - (#{build-data\ 4954}# + #{y\ 14044}# + (#{build-dispatch-call\ 13965}# + #{pvars\ 14029}# + #{fender\ 14017}# + #{y\ 14044}# + #{r\ 14015}# + #{mod\ 14019}#) + (#{build-data\ 10656}# #f #f))) - #{tmp\ 8321}#))) + #{tmp\ 14047}#))) ($sc-dispatch - #{tmp\ 8321}# + #{tmp\ 14047}# '#(atom #t)))) - #{fender\ 8291}#) - (#{build-dispatch-call\ 8239}# - #{pvars\ 8303}# - #{exp\ 8292}# - #{y\ 8318}# - #{r\ 8289}# - #{mod\ 8293}#) - (#{gen-syntax-case\ 8243}# - #{x\ 8286}# - #{keys\ 8287}# - #{clauses\ 8288}# - #{r\ 8289}# - #{mod\ 8293}#)))) - (list (if (eq? #{p\ 8302}# (quote any)) - (#{build-application\ 4926}# + #{fender\ 14017}#) + (#{build-dispatch-call\ 13965}# + #{pvars\ 14029}# + #{exp\ 14018}# + #{y\ 14044}# + #{r\ 14015}# + #{mod\ 14019}#) + (#{gen-syntax-case\ 13969}# + #{x\ 14012}# + #{keys\ 14013}# + #{clauses\ 14014}# + #{r\ 14015}# + #{mod\ 14019}#)))) + (list (if (eq? #{p\ 14028}# (quote any)) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f 'list) - (list #{x\ 8286}#)) - (#{build-application\ 4926}# + (list #{x\ 14012}#)) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# + (#{build-primref\ 10654}# #f '$sc-dispatch) - (list #{x\ 8286}# - (#{build-data\ 4954}# + (list #{x\ 14012}# + (#{build-data\ 10656}# #f - #{p\ 8302}#))))))))))))) - (#{build-dispatch-call\ 8239}# - (lambda (#{pvars\ 8332}# - #{exp\ 8333}# - #{y\ 8334}# - #{r\ 8335}# - #{mod\ 8336}#) - (let ((#{ids\ 8344}# (map car #{pvars\ 8332}#)) - (#{levels\ 8345}# (map cdr #{pvars\ 8332}#))) - (let ((#{labels\ 8348}# - (#{gen-labels\ 5022}# #{ids\ 8344}#)) - (#{new-vars\ 8349}# - (map #{gen-var\ 5117}# #{ids\ 8344}#))) - (#{build-application\ 4926}# + #{p\ 14028}#))))))))))))) + (#{build-dispatch-call\ 13965}# + (lambda (#{pvars\ 14058}# + #{exp\ 14059}# + #{y\ 14060}# + #{r\ 14061}# + #{mod\ 14062}#) + (let ((#{ids\ 14070}# (map car #{pvars\ 14058}#)) + (#{levels\ 14071}# (map cdr #{pvars\ 14058}#))) + (let ((#{labels\ 14074}# + (#{gen-labels\ 10724}# #{ids\ 14070}#)) + (#{new-vars\ 14075}# + (map #{gen-var\ 10819}# #{ids\ 14070}#))) + (#{build-application\ 10628}# #f - (#{build-primref\ 4952}# #f (quote apply)) - (list (#{build-simple-lambda\ 4946}# + (#{build-primref\ 10654}# #f (quote apply)) + (list (#{build-simple-lambda\ 10648}# #f - (map syntax->datum #{ids\ 8344}#) + (map syntax->datum #{ids\ 14070}#) #f - #{new-vars\ 8349}# + #{new-vars\ 14075}# '() - (#{chi\ 5089}# - #{exp\ 8333}# - (#{extend-env\ 4992}# - #{labels\ 8348}# - (map (lambda (#{var\ 8353}# - #{level\ 8354}#) + (#{chi\ 10791}# + #{exp\ 14059}# + (#{extend-env\ 10694}# + #{labels\ 14074}# + (map (lambda (#{var\ 14079}# + #{level\ 14080}#) (cons 'syntax - (cons #{var\ 8353}# - #{level\ 8354}#))) - #{new-vars\ 8349}# - (map cdr #{pvars\ 8332}#)) - #{r\ 8335}#) - (#{make-binding-wrap\ 5051}# - #{ids\ 8344}# - #{labels\ 8348}# + (cons #{var\ 14079}# + #{level\ 14080}#))) + #{new-vars\ 14075}# + (map cdr #{pvars\ 14058}#)) + #{r\ 14061}#) + (#{make-binding-wrap\ 10753}# + #{ids\ 14070}# + #{labels\ 14074}# '(())) - #{mod\ 8336}#)) - #{y\ 8334}#)))))) - (#{convert-pattern\ 8237}# - (lambda (#{pattern\ 8360}# #{keys\ 8361}#) - (letrec ((#{cvt\ 8367}# - (lambda (#{p\ 8368}# #{n\ 8369}# #{ids\ 8370}#) - (if (#{id?\ 5004}# #{p\ 8368}#) - (if (#{bound-id-member?\ 5071}# - #{p\ 8368}# - #{keys\ 8361}#) + #{mod\ 14062}#)) + #{y\ 14060}#)))))) + (#{convert-pattern\ 13963}# + (lambda (#{pattern\ 14086}# #{keys\ 14087}#) + (letrec ((#{cvt\ 14093}# + (lambda (#{p\ 14094}# + #{n\ 14095}# + #{ids\ 14096}#) + (if (#{id?\ 10706}# #{p\ 14094}#) + (if (#{bound-id-member?\ 10773}# + #{p\ 14094}# + #{keys\ 14087}#) (values - (vector (quote free-id) #{p\ 8368}#) - #{ids\ 8370}#) + (vector (quote free-id) #{p\ 14094}#) + #{ids\ 14096}#) (values 'any - (cons (cons #{p\ 8368}# #{n\ 8369}#) - #{ids\ 8370}#))) - ((lambda (#{tmp\ 8374}#) - ((lambda (#{tmp\ 8375}#) - (if (if #{tmp\ 8375}# - (apply (lambda (#{x\ 8378}# - #{dots\ 8379}#) - (#{ellipsis?\ 5105}# - #{dots\ 8379}#)) - #{tmp\ 8375}#) + (cons (cons #{p\ 14094}# #{n\ 14095}#) + #{ids\ 14096}#))) + ((lambda (#{tmp\ 14100}#) + ((lambda (#{tmp\ 14101}#) + (if (if #{tmp\ 14101}# + (apply (lambda (#{x\ 14104}# + #{dots\ 14105}#) + (#{ellipsis?\ 10807}# + #{dots\ 14105}#)) + #{tmp\ 14101}#) #f) - (apply (lambda (#{x\ 8382}# - #{dots\ 8383}#) + (apply (lambda (#{x\ 14108}# + #{dots\ 14109}#) (call-with-values (lambda () - (#{cvt\ 8367}# - #{x\ 8382}# - (#{fx+\ 4905}# - #{n\ 8369}# + (#{cvt\ 14093}# + #{x\ 14108}# + (#{fx+\ 10607}# + #{n\ 14095}# 1) - #{ids\ 8370}#)) - (lambda (#{p\ 8384}# - #{ids\ 8385}#) + #{ids\ 14096}#)) + (lambda (#{p\ 14110}# + #{ids\ 14111}#) (values - (if (eq? #{p\ 8384}# + (if (eq? #{p\ 14110}# 'any) 'each-any (vector 'each - #{p\ 8384}#)) - #{ids\ 8385}#)))) - #{tmp\ 8375}#) - ((lambda (#{tmp\ 8388}#) - (if (if #{tmp\ 8388}# - (apply (lambda (#{x\ 8392}# - #{dots\ 8393}# - #{ys\ 8394}#) - (#{ellipsis?\ 5105}# - #{dots\ 8393}#)) - #{tmp\ 8388}#) + #{p\ 14110}#)) + #{ids\ 14111}#)))) + #{tmp\ 14101}#) + ((lambda (#{tmp\ 14114}#) + (if (if #{tmp\ 14114}# + (apply (lambda (#{x\ 14118}# + #{dots\ 14119}# + #{ys\ 14120}#) + (#{ellipsis?\ 10807}# + #{dots\ 14119}#)) + #{tmp\ 14114}#) #f) - (apply (lambda (#{x\ 8398}# - #{dots\ 8399}# - #{ys\ 8400}#) + (apply (lambda (#{x\ 14124}# + #{dots\ 14125}# + #{ys\ 14126}#) (call-with-values (lambda () - (#{cvt*\ 8365}# - #{ys\ 8400}# - #{n\ 8369}# - #{ids\ 8370}#)) - (lambda (#{ys\ 8402}# - #{ids\ 8403}#) + (#{cvt*\ 14091}# + #{ys\ 14126}# + #{n\ 14095}# + #{ids\ 14096}#)) + (lambda (#{ys\ 14128}# + #{ids\ 14129}#) (call-with-values (lambda () - (#{cvt\ 8367}# - #{x\ 8398}# - (+ #{n\ 8369}# + (#{cvt\ 14093}# + #{x\ 14124}# + (+ #{n\ 14095}# 1) - #{ids\ 8403}#)) - (lambda (#{x\ 8406}# - #{ids\ 8407}#) + #{ids\ 14129}#)) + (lambda (#{x\ 14132}# + #{ids\ 14133}#) (values (list->vector (cons 'each+ - (cons #{x\ 8406}# + (cons #{x\ 14132}# (cons (reverse - #{ys\ 8402}#) + #{ys\ 14128}#) '(()))))) - #{ids\ 8407}#)))))) - #{tmp\ 8388}#) - ((lambda (#{tmp\ 8411}#) - (if #{tmp\ 8411}# - (apply (lambda (#{x\ 8414}# - #{y\ 8415}#) + #{ids\ 14133}#)))))) + #{tmp\ 14114}#) + ((lambda (#{tmp\ 14137}#) + (if #{tmp\ 14137}# + (apply (lambda (#{x\ 14140}# + #{y\ 14141}#) (call-with-values (lambda () - (#{cvt\ 8367}# - #{y\ 8415}# - #{n\ 8369}# - #{ids\ 8370}#)) - (lambda (#{y\ 8416}# - #{ids\ 8417}#) + (#{cvt\ 14093}# + #{y\ 14141}# + #{n\ 14095}# + #{ids\ 14096}#)) + (lambda (#{y\ 14142}# + #{ids\ 14143}#) (call-with-values (lambda () - (#{cvt\ 8367}# - #{x\ 8414}# - #{n\ 8369}# - #{ids\ 8417}#)) - (lambda (#{x\ 8420}# - #{ids\ 8421}#) + (#{cvt\ 14093}# + #{x\ 14140}# + #{n\ 14095}# + #{ids\ 14143}#)) + (lambda (#{x\ 14146}# + #{ids\ 14147}#) (values - (cons #{x\ 8420}# - #{y\ 8416}#) - #{ids\ 8421}#)))))) - #{tmp\ 8411}#) - ((lambda (#{tmp\ 8424}#) - (if #{tmp\ 8424}# + (cons #{x\ 14146}# + #{y\ 14142}#) + #{ids\ 14147}#)))))) + #{tmp\ 14137}#) + ((lambda (#{tmp\ 14150}#) + (if #{tmp\ 14150}# (apply (lambda () (values '() - #{ids\ 8370}#)) - #{tmp\ 8424}#) - ((lambda (#{tmp\ 8425}#) - (if #{tmp\ 8425}# - (apply (lambda (#{x\ 8427}#) + #{ids\ 14096}#)) + #{tmp\ 14150}#) + ((lambda (#{tmp\ 14151}#) + (if #{tmp\ 14151}# + (apply (lambda (#{x\ 14153}#) (call-with-values (lambda () - (#{cvt\ 8367}# - #{x\ 8427}# - #{n\ 8369}# - #{ids\ 8370}#)) - (lambda (#{p\ 8429}# - #{ids\ 8430}#) + (#{cvt\ 14093}# + #{x\ 14153}# + #{n\ 14095}# + #{ids\ 14096}#)) + (lambda (#{p\ 14155}# + #{ids\ 14156}#) (values (vector 'vector - #{p\ 8429}#) - #{ids\ 8430}#)))) - #{tmp\ 8425}#) - ((lambda (#{x\ 8434}#) + #{p\ 14155}#) + #{ids\ 14156}#)))) + #{tmp\ 14151}#) + ((lambda (#{x\ 14160}#) (values (vector 'atom - (#{strip\ 5115}# - #{p\ 8368}# + (#{strip\ 10817}# + #{p\ 14094}# '(()))) - #{ids\ 8370}#)) - #{tmp\ 8374}#))) + #{ids\ 14096}#)) + #{tmp\ 14100}#))) ($sc-dispatch - #{tmp\ 8374}# + #{tmp\ 14100}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 8374}# + #{tmp\ 14100}# '())))) ($sc-dispatch - #{tmp\ 8374}# + #{tmp\ 14100}# '(any . any))))) ($sc-dispatch - #{tmp\ 8374}# + #{tmp\ 14100}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 8374}# + #{tmp\ 14100}# '(any any)))) - #{p\ 8368}#)))) - (#{cvt*\ 8365}# - (lambda (#{p*\ 8436}# - #{n\ 8437}# - #{ids\ 8438}#) - (if (null? #{p*\ 8436}#) - (values (quote ()) #{ids\ 8438}#) + #{p\ 14094}#)))) + (#{cvt*\ 14091}# + (lambda (#{p*\ 14162}# + #{n\ 14163}# + #{ids\ 14164}#) + (if (null? #{p*\ 14162}#) + (values (quote ()) #{ids\ 14164}#) (call-with-values (lambda () - (#{cvt*\ 8365}# - (cdr #{p*\ 8436}#) - #{n\ 8437}# - #{ids\ 8438}#)) - (lambda (#{y\ 8442}# #{ids\ 8443}#) + (#{cvt*\ 14091}# + (cdr #{p*\ 14162}#) + #{n\ 14163}# + #{ids\ 14164}#)) + (lambda (#{y\ 14168}# #{ids\ 14169}#) (call-with-values (lambda () - (#{cvt\ 8367}# - (car #{p*\ 8436}#) - #{n\ 8437}# - #{ids\ 8443}#)) - (lambda (#{x\ 8446}# #{ids\ 8447}#) + (#{cvt\ 14093}# + (car #{p*\ 14162}#) + #{n\ 14163}# + #{ids\ 14169}#)) + (lambda (#{x\ 14172}# #{ids\ 14173}#) (values - (cons #{x\ 8446}# #{y\ 8442}#) - #{ids\ 8447}#))))))))) - (#{cvt\ 8367}# #{pattern\ 8360}# 0 (quote ())))))) - (lambda (#{e\ 8450}# - #{r\ 8451}# - #{w\ 8452}# - #{s\ 8453}# - #{mod\ 8454}#) - (let ((#{e\ 8461}# - (#{source-wrap\ 5075}# - #{e\ 8450}# - #{w\ 8452}# - #{s\ 8453}# - #{mod\ 8454}#))) - ((lambda (#{tmp\ 8462}#) - ((lambda (#{tmp\ 8463}#) - (if #{tmp\ 8463}# - (apply (lambda (#{_\ 8468}# - #{val\ 8469}# - #{key\ 8470}# - #{m\ 8471}#) + (cons #{x\ 14172}# #{y\ 14168}#) + #{ids\ 14173}#))))))))) + (#{cvt\ 14093}# #{pattern\ 14086}# 0 (quote ())))))) + (lambda (#{e\ 14176}# + #{r\ 14177}# + #{w\ 14178}# + #{s\ 14179}# + #{mod\ 14180}#) + (let ((#{e\ 14187}# + (#{source-wrap\ 10777}# + #{e\ 14176}# + #{w\ 14178}# + #{s\ 14179}# + #{mod\ 14180}#))) + ((lambda (#{tmp\ 14188}#) + ((lambda (#{tmp\ 14189}#) + (if #{tmp\ 14189}# + (apply (lambda (#{_\ 14194}# + #{val\ 14195}# + #{key\ 14196}# + #{m\ 14197}#) (if (and-map - (lambda (#{x\ 8472}#) - (if (#{id?\ 5004}# #{x\ 8472}#) - (not (#{ellipsis?\ 5105}# - #{x\ 8472}#)) + (lambda (#{x\ 14198}#) + (if (#{id?\ 10706}# #{x\ 14198}#) + (not (#{ellipsis?\ 10807}# + #{x\ 14198}#)) #f)) - #{key\ 8470}#) - (let ((#{x\ 8478}# - (#{gen-var\ 5117}# (quote tmp)))) - (#{build-application\ 4926}# - #{s\ 8453}# - (#{build-simple-lambda\ 4946}# + #{key\ 14196}#) + (let ((#{x\ 14204}# + (#{gen-var\ 10819}# (quote tmp)))) + (#{build-application\ 10628}# + #{s\ 14179}# + (#{build-simple-lambda\ 10648}# #f (list (quote tmp)) #f - (list #{x\ 8478}#) + (list #{x\ 14204}#) '() - (#{gen-syntax-case\ 8243}# - (#{build-lexical-reference\ 4932}# + (#{gen-syntax-case\ 13969}# + (#{build-lexical-reference\ 10634}# 'value #f 'tmp - #{x\ 8478}#) - #{key\ 8470}# - #{m\ 8471}# - #{r\ 8451}# - #{mod\ 8454}#)) - (list (#{chi\ 5089}# - #{val\ 8469}# - #{r\ 8451}# + #{x\ 14204}#) + #{key\ 14196}# + #{m\ 14197}# + #{r\ 14177}# + #{mod\ 14180}#)) + (list (#{chi\ 10791}# + #{val\ 14195}# + #{r\ 14177}# '(()) - #{mod\ 8454}#)))) + #{mod\ 14180}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 8461}#))) - #{tmp\ 8463}#) + #{e\ 14187}#))) + #{tmp\ 14189}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8462}#))) + #{tmp\ 14188}#))) ($sc-dispatch - #{tmp\ 8462}# + #{tmp\ 14188}# '(any any each-any . each-any)))) - #{e\ 8461}#))))) + #{e\ 14187}#))))) (set! macroexpand - (lambda (#{x\ 8484}# . #{rest\ 8485}#) - (if (if (pair? #{x\ 8484}#) - (equal? (car #{x\ 8484}#) #{noexpand\ 4901}#) + (lambda (#{x\ 14210}# . #{rest\ 14211}#) + (if (if (pair? #{x\ 14210}#) + (equal? (car #{x\ 14210}#) #{noexpand\ 10603}#) #f) - (cadr #{x\ 8484}#) - (let ((#{m\ 8492}# - (if (null? #{rest\ 8485}#) + (cadr #{x\ 14210}#) + (let ((#{m\ 14218}# + (if (null? #{rest\ 14211}#) 'e - (car #{rest\ 8485}#))) - (#{esew\ 8493}# - (if (let ((#{t\ 8496}# (null? #{rest\ 8485}#))) - (if #{t\ 8496}# - #{t\ 8496}# - (null? (cdr #{rest\ 8485}#)))) + (car #{rest\ 14211}#))) + (#{esew\ 14219}# + (if (let ((#{t\ 14222}# (null? #{rest\ 14211}#))) + (if #{t\ 14222}# + #{t\ 14222}# + (null? (cdr #{rest\ 14211}#)))) '(eval) - (cadr #{rest\ 8485}#)))) + (cadr #{rest\ 14211}#)))) (with-fluids - ((#{*mode*\ 4903}# #{m\ 8492}#)) - (#{chi-top\ 5087}# - #{x\ 8484}# + ((#{*mode*\ 10605}# #{m\ 14218}#)) + (#{chi-top\ 10789}# + #{x\ 14210}# '() '((top)) - #{m\ 8492}# - #{esew\ 8493}# + #{m\ 14218}# + #{esew\ 14219}# (cons 'hygiene (module-name (current-module))))))))) (set! identifier? - (lambda (#{x\ 8500}#) - (#{nonsymbol-id?\ 5002}# #{x\ 8500}#))) + (lambda (#{x\ 14226}#) + (#{nonsymbol-id?\ 10704}# #{x\ 14226}#))) (set! datum->syntax - (lambda (#{id\ 8502}# #{datum\ 8503}#) - (#{make-syntax-object\ 4966}# - #{datum\ 8503}# - (#{syntax-object-wrap\ 4972}# #{id\ 8502}#) + (lambda (#{id\ 14228}# #{datum\ 14229}#) + (#{make-syntax-object\ 10668}# + #{datum\ 14229}# + (#{syntax-object-wrap\ 10674}# #{id\ 14228}#) #f))) (set! syntax->datum - (lambda (#{x\ 8506}#) - (#{strip\ 5115}# #{x\ 8506}# (quote (()))))) + (lambda (#{x\ 14232}#) + (#{strip\ 10817}# #{x\ 14232}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 8509}#) + (lambda (#{ls\ 14235}#) (begin - (let ((#{x\ 8513}# #{ls\ 8509}#)) - (if (not (list? #{x\ 8513}#)) + (let ((#{x\ 14239}# #{ls\ 14235}#)) + (if (not (list? #{x\ 14239}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 8513}#))) - (map (lambda (#{x\ 8514}#) - (#{wrap\ 5073}# (gensym) (quote ((top))) #f)) - #{ls\ 8509}#)))) + #{x\ 14239}#))) + (map (lambda (#{x\ 14240}#) + (#{wrap\ 10775}# (gensym) (quote ((top))) #f)) + #{ls\ 14235}#)))) (set! free-identifier=? - (lambda (#{x\ 8518}# #{y\ 8519}#) + (lambda (#{x\ 14244}# #{y\ 14245}#) (begin - (let ((#{x\ 8524}# #{x\ 8518}#)) - (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8524}#)) + (let ((#{x\ 14250}# #{x\ 14244}#)) + (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14250}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 8524}#))) - (let ((#{x\ 8527}# #{y\ 8519}#)) - (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8527}#)) + #{x\ 14250}#))) + (let ((#{x\ 14253}# #{y\ 14245}#)) + (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14253}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 8527}#))) - (#{free-id=?\ 5063}# #{x\ 8518}# #{y\ 8519}#)))) + #{x\ 14253}#))) + (#{free-id=?\ 10765}# #{x\ 14244}# #{y\ 14245}#)))) (set! bound-identifier=? - (lambda (#{x\ 8528}# #{y\ 8529}#) + (lambda (#{x\ 14254}# #{y\ 14255}#) (begin - (let ((#{x\ 8534}# #{x\ 8528}#)) - (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8534}#)) + (let ((#{x\ 14260}# #{x\ 14254}#)) + (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14260}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 8534}#))) - (let ((#{x\ 8537}# #{y\ 8529}#)) - (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8537}#)) + #{x\ 14260}#))) + (let ((#{x\ 14263}# #{y\ 14255}#)) + (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14263}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 8537}#))) - (#{bound-id=?\ 5065}# #{x\ 8528}# #{y\ 8529}#)))) + #{x\ 14263}#))) + (#{bound-id=?\ 10767}# #{x\ 14254}# #{y\ 14255}#)))) (set! syntax-violation - (lambda (#{who\ 8538}# - #{message\ 8539}# - #{form\ 8540}# + (lambda (#{who\ 14264}# + #{message\ 14265}# + #{form\ 14266}# . - #{subform\ 8541}#) + #{subform\ 14267}#) (begin - (let ((#{x\ 8548}# #{who\ 8538}#)) - (if (not ((lambda (#{x\ 8549}#) - (let ((#{t\ 8553}# (not #{x\ 8549}#))) - (if #{t\ 8553}# - #{t\ 8553}# - (let ((#{t\ 8556}# (string? #{x\ 8549}#))) - (if #{t\ 8556}# - #{t\ 8556}# - (symbol? #{x\ 8549}#)))))) - #{x\ 8548}#)) + (let ((#{x\ 14274}# #{who\ 14264}#)) + (if (not ((lambda (#{x\ 14275}#) + (let ((#{t\ 14279}# (not #{x\ 14275}#))) + (if #{t\ 14279}# + #{t\ 14279}# + (let ((#{t\ 14282}# (string? #{x\ 14275}#))) + (if #{t\ 14282}# + #{t\ 14282}# + (symbol? #{x\ 14275}#)))))) + #{x\ 14274}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 8548}#))) - (let ((#{x\ 8560}# #{message\ 8539}#)) - (if (not (string? #{x\ 8560}#)) + #{x\ 14274}#))) + (let ((#{x\ 14286}# #{message\ 14265}#)) + (if (not (string? #{x\ 14286}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 8560}#))) + #{x\ 14286}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 8538}# "~a: " "") + (if #{who\ 14264}# "~a: " "") "~a " - (if (null? #{subform\ 8541}#) + (if (null? #{subform\ 14267}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 8562}# - (cons #{message\ 8539}# - (map (lambda (#{x\ 8563}#) - (#{strip\ 5115}# #{x\ 8563}# (quote (())))) + (let ((#{tail\ 14288}# + (cons #{message\ 14265}# + (map (lambda (#{x\ 14289}#) + (#{strip\ 10817}# + #{x\ 14289}# + '(()))) (append - #{subform\ 8541}# - (list #{form\ 8540}#)))))) - (if #{who\ 8538}# - (cons #{who\ 8538}# #{tail\ 8562}#) - #{tail\ 8562}#)) + #{subform\ 14267}# + (list #{form\ 14266}#)))))) + (if #{who\ 14264}# + (cons #{who\ 14264}# #{tail\ 14288}#) + #{tail\ 14288}#)) #f)))) - (letrec ((#{match\ 8579}# - (lambda (#{e\ 8580}# - #{p\ 8581}# - #{w\ 8582}# - #{r\ 8583}# - #{mod\ 8584}#) - (if (not #{r\ 8583}#) + (letrec ((#{match\ 14305}# + (lambda (#{e\ 14306}# + #{p\ 14307}# + #{w\ 14308}# + #{r\ 14309}# + #{mod\ 14310}#) + (if (not #{r\ 14309}#) #f - (if (eq? #{p\ 8581}# (quote any)) - (cons (#{wrap\ 5073}# - #{e\ 8580}# - #{w\ 8582}# - #{mod\ 8584}#) - #{r\ 8583}#) - (if (#{syntax-object?\ 4968}# #{e\ 8580}#) - (#{match*\ 8577}# - (#{syntax-object-expression\ 4970}# #{e\ 8580}#) - #{p\ 8581}# - (#{join-wraps\ 5055}# - #{w\ 8582}# - (#{syntax-object-wrap\ 4972}# #{e\ 8580}#)) - #{r\ 8583}# - (#{syntax-object-module\ 4974}# #{e\ 8580}#)) - (#{match*\ 8577}# - #{e\ 8580}# - #{p\ 8581}# - #{w\ 8582}# - #{r\ 8583}# - #{mod\ 8584}#)))))) - (#{match*\ 8577}# - (lambda (#{e\ 8597}# - #{p\ 8598}# - #{w\ 8599}# - #{r\ 8600}# - #{mod\ 8601}#) - (if (null? #{p\ 8598}#) - (if (null? #{e\ 8597}#) #{r\ 8600}# #f) - (if (pair? #{p\ 8598}#) - (if (pair? #{e\ 8597}#) - (#{match\ 8579}# - (car #{e\ 8597}#) - (car #{p\ 8598}#) - #{w\ 8599}# - (#{match\ 8579}# - (cdr #{e\ 8597}#) - (cdr #{p\ 8598}#) - #{w\ 8599}# - #{r\ 8600}# - #{mod\ 8601}#) - #{mod\ 8601}#) + (if (eq? #{p\ 14307}# (quote any)) + (cons (#{wrap\ 10775}# + #{e\ 14306}# + #{w\ 14308}# + #{mod\ 14310}#) + #{r\ 14309}#) + (if (#{syntax-object?\ 10670}# #{e\ 14306}#) + (#{match*\ 14303}# + (#{syntax-object-expression\ 10672}# + #{e\ 14306}#) + #{p\ 14307}# + (#{join-wraps\ 10757}# + #{w\ 14308}# + (#{syntax-object-wrap\ 10674}# #{e\ 14306}#)) + #{r\ 14309}# + (#{syntax-object-module\ 10676}# #{e\ 14306}#)) + (#{match*\ 14303}# + #{e\ 14306}# + #{p\ 14307}# + #{w\ 14308}# + #{r\ 14309}# + #{mod\ 14310}#)))))) + (#{match*\ 14303}# + (lambda (#{e\ 14323}# + #{p\ 14324}# + #{w\ 14325}# + #{r\ 14326}# + #{mod\ 14327}#) + (if (null? #{p\ 14324}#) + (if (null? #{e\ 14323}#) #{r\ 14326}# #f) + (if (pair? #{p\ 14324}#) + (if (pair? #{e\ 14323}#) + (#{match\ 14305}# + (car #{e\ 14323}#) + (car #{p\ 14324}#) + #{w\ 14325}# + (#{match\ 14305}# + (cdr #{e\ 14323}#) + (cdr #{p\ 14324}#) + #{w\ 14325}# + #{r\ 14326}# + #{mod\ 14327}#) + #{mod\ 14327}#) #f) - (if (eq? #{p\ 8598}# (quote each-any)) - (let ((#{l\ 8618}# - (#{match-each-any\ 8571}# - #{e\ 8597}# - #{w\ 8599}# - #{mod\ 8601}#))) - (if #{l\ 8618}# - (cons #{l\ 8618}# #{r\ 8600}#) + (if (eq? #{p\ 14324}# (quote each-any)) + (let ((#{l\ 14344}# + (#{match-each-any\ 14297}# + #{e\ 14323}# + #{w\ 14325}# + #{mod\ 14327}#))) + (if #{l\ 14344}# + (cons #{l\ 14344}# #{r\ 14326}#) #f)) - (let ((#{atom-key\ 8624}# (vector-ref #{p\ 8598}# 0))) - (if (memv #{atom-key\ 8624}# (quote (each))) - (if (null? #{e\ 8597}#) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8598}# 1) - #{r\ 8600}#) - (let ((#{l\ 8627}# - (#{match-each\ 8567}# - #{e\ 8597}# - (vector-ref #{p\ 8598}# 1) - #{w\ 8599}# - #{mod\ 8601}#))) - (if #{l\ 8627}# - (letrec ((#{collect\ 8632}# - (lambda (#{l\ 8633}#) - (if (null? (car #{l\ 8633}#)) - #{r\ 8600}# - (cons (map car #{l\ 8633}#) - (#{collect\ 8632}# + (let ((#{atom-key\ 14350}# + (vector-ref #{p\ 14324}# 0))) + (if (memv #{atom-key\ 14350}# (quote (each))) + (if (null? #{e\ 14323}#) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14324}# 1) + #{r\ 14326}#) + (let ((#{l\ 14353}# + (#{match-each\ 14293}# + #{e\ 14323}# + (vector-ref #{p\ 14324}# 1) + #{w\ 14325}# + #{mod\ 14327}#))) + (if #{l\ 14353}# + (letrec ((#{collect\ 14358}# + (lambda (#{l\ 14359}#) + (if (null? (car #{l\ 14359}#)) + #{r\ 14326}# + (cons (map car #{l\ 14359}#) + (#{collect\ 14358}# (map cdr - #{l\ 8633}#))))))) - (#{collect\ 8632}# #{l\ 8627}#)) + #{l\ 14359}#))))))) + (#{collect\ 14358}# #{l\ 14353}#)) #f))) - (if (memv #{atom-key\ 8624}# (quote (each+))) + (if (memv #{atom-key\ 14350}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 8569}# - #{e\ 8597}# - (vector-ref #{p\ 8598}# 1) - (vector-ref #{p\ 8598}# 2) - (vector-ref #{p\ 8598}# 3) - #{w\ 8599}# - #{r\ 8600}# - #{mod\ 8601}#)) - (lambda (#{xr*\ 8635}# - #{y-pat\ 8636}# - #{r\ 8637}#) - (if #{r\ 8637}# - (if (null? #{y-pat\ 8636}#) - (if (null? #{xr*\ 8635}#) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8598}# 1) - #{r\ 8637}#) - (#{combine\ 8575}# - #{xr*\ 8635}# - #{r\ 8637}#)) + (#{match-each+\ 14295}# + #{e\ 14323}# + (vector-ref #{p\ 14324}# 1) + (vector-ref #{p\ 14324}# 2) + (vector-ref #{p\ 14324}# 3) + #{w\ 14325}# + #{r\ 14326}# + #{mod\ 14327}#)) + (lambda (#{xr*\ 14361}# + #{y-pat\ 14362}# + #{r\ 14363}#) + (if #{r\ 14363}# + (if (null? #{y-pat\ 14362}#) + (if (null? #{xr*\ 14361}#) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14324}# 1) + #{r\ 14363}#) + (#{combine\ 14301}# + #{xr*\ 14361}# + #{r\ 14363}#)) #f) #f))) - (if (memv #{atom-key\ 8624}# (quote (free-id))) - (if (#{id?\ 5004}# #{e\ 8597}#) - (if (#{free-id=?\ 5063}# - (#{wrap\ 5073}# - #{e\ 8597}# - #{w\ 8599}# - #{mod\ 8601}#) - (vector-ref #{p\ 8598}# 1)) - #{r\ 8600}# + (if (memv #{atom-key\ 14350}# (quote (free-id))) + (if (#{id?\ 10706}# #{e\ 14323}#) + (if (#{free-id=?\ 10765}# + (#{wrap\ 10775}# + #{e\ 14323}# + #{w\ 14325}# + #{mod\ 14327}#) + (vector-ref #{p\ 14324}# 1)) + #{r\ 14326}# #f) #f) - (if (memv #{atom-key\ 8624}# (quote (atom))) + (if (memv #{atom-key\ 14350}# (quote (atom))) (if (equal? - (vector-ref #{p\ 8598}# 1) - (#{strip\ 5115}# - #{e\ 8597}# - #{w\ 8599}#)) - #{r\ 8600}# + (vector-ref #{p\ 14324}# 1) + (#{strip\ 10817}# + #{e\ 14323}# + #{w\ 14325}#)) + #{r\ 14326}# #f) - (if (memv #{atom-key\ 8624}# + (if (memv #{atom-key\ 14350}# '(vector)) - (if (vector? #{e\ 8597}#) - (#{match\ 8579}# - (vector->list #{e\ 8597}#) - (vector-ref #{p\ 8598}# 1) - #{w\ 8599}# - #{r\ 8600}# - #{mod\ 8601}#) + (if (vector? #{e\ 14323}#) + (#{match\ 14305}# + (vector->list #{e\ 14323}#) + (vector-ref #{p\ 14324}# 1) + #{w\ 14325}# + #{r\ 14326}# + #{mod\ 14327}#) #f)))))))))))) - (#{combine\ 8575}# - (lambda (#{r*\ 8654}# #{r\ 8655}#) - (if (null? (car #{r*\ 8654}#)) - #{r\ 8655}# - (cons (map car #{r*\ 8654}#) - (#{combine\ 8575}# - (map cdr #{r*\ 8654}#) - #{r\ 8655}#))))) - (#{match-empty\ 8573}# - (lambda (#{p\ 8658}# #{r\ 8659}#) - (if (null? #{p\ 8658}#) - #{r\ 8659}# - (if (eq? #{p\ 8658}# (quote any)) - (cons (quote ()) #{r\ 8659}#) - (if (pair? #{p\ 8658}#) - (#{match-empty\ 8573}# - (car #{p\ 8658}#) - (#{match-empty\ 8573}# - (cdr #{p\ 8658}#) - #{r\ 8659}#)) - (if (eq? #{p\ 8658}# (quote each-any)) - (cons (quote ()) #{r\ 8659}#) - (let ((#{atom-key\ 8673}# - (vector-ref #{p\ 8658}# 0))) - (if (memv #{atom-key\ 8673}# (quote (each))) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8658}# 1) - #{r\ 8659}#) - (if (memv #{atom-key\ 8673}# (quote (each+))) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8658}# 1) - (#{match-empty\ 8573}# - (reverse (vector-ref #{p\ 8658}# 2)) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8658}# 3) - #{r\ 8659}#))) - (if (memv #{atom-key\ 8673}# + (#{combine\ 14301}# + (lambda (#{r*\ 14380}# #{r\ 14381}#) + (if (null? (car #{r*\ 14380}#)) + #{r\ 14381}# + (cons (map car #{r*\ 14380}#) + (#{combine\ 14301}# + (map cdr #{r*\ 14380}#) + #{r\ 14381}#))))) + (#{match-empty\ 14299}# + (lambda (#{p\ 14384}# #{r\ 14385}#) + (if (null? #{p\ 14384}#) + #{r\ 14385}# + (if (eq? #{p\ 14384}# (quote any)) + (cons (quote ()) #{r\ 14385}#) + (if (pair? #{p\ 14384}#) + (#{match-empty\ 14299}# + (car #{p\ 14384}#) + (#{match-empty\ 14299}# + (cdr #{p\ 14384}#) + #{r\ 14385}#)) + (if (eq? #{p\ 14384}# (quote each-any)) + (cons (quote ()) #{r\ 14385}#) + (let ((#{atom-key\ 14399}# + (vector-ref #{p\ 14384}# 0))) + (if (memv #{atom-key\ 14399}# (quote (each))) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14384}# 1) + #{r\ 14385}#) + (if (memv #{atom-key\ 14399}# (quote (each+))) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14384}# 1) + (#{match-empty\ 14299}# + (reverse (vector-ref #{p\ 14384}# 2)) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14384}# 3) + #{r\ 14385}#))) + (if (memv #{atom-key\ 14399}# '(free-id atom)) - #{r\ 8659}# - (if (memv #{atom-key\ 8673}# + #{r\ 14385}# + (if (memv #{atom-key\ 14399}# '(vector)) - (#{match-empty\ 8573}# - (vector-ref #{p\ 8658}# 1) - #{r\ 8659}#)))))))))))) - (#{match-each-any\ 8571}# - (lambda (#{e\ 8678}# #{w\ 8679}# #{mod\ 8680}#) - (if (pair? #{e\ 8678}#) - (let ((#{l\ 8687}# - (#{match-each-any\ 8571}# - (cdr #{e\ 8678}#) - #{w\ 8679}# - #{mod\ 8680}#))) - (if #{l\ 8687}# - (cons (#{wrap\ 5073}# - (car #{e\ 8678}#) - #{w\ 8679}# - #{mod\ 8680}#) - #{l\ 8687}#) + (#{match-empty\ 14299}# + (vector-ref #{p\ 14384}# 1) + #{r\ 14385}#)))))))))))) + (#{match-each-any\ 14297}# + (lambda (#{e\ 14404}# #{w\ 14405}# #{mod\ 14406}#) + (if (pair? #{e\ 14404}#) + (let ((#{l\ 14413}# + (#{match-each-any\ 14297}# + (cdr #{e\ 14404}#) + #{w\ 14405}# + #{mod\ 14406}#))) + (if #{l\ 14413}# + (cons (#{wrap\ 10775}# + (car #{e\ 14404}#) + #{w\ 14405}# + #{mod\ 14406}#) + #{l\ 14413}#) #f)) - (if (null? #{e\ 8678}#) + (if (null? #{e\ 14404}#) '() - (if (#{syntax-object?\ 4968}# #{e\ 8678}#) - (#{match-each-any\ 8571}# - (#{syntax-object-expression\ 4970}# #{e\ 8678}#) - (#{join-wraps\ 5055}# - #{w\ 8679}# - (#{syntax-object-wrap\ 4972}# #{e\ 8678}#)) - #{mod\ 8680}#) + (if (#{syntax-object?\ 10670}# #{e\ 14404}#) + (#{match-each-any\ 14297}# + (#{syntax-object-expression\ 10672}# + #{e\ 14404}#) + (#{join-wraps\ 10757}# + #{w\ 14405}# + (#{syntax-object-wrap\ 10674}# #{e\ 14404}#)) + #{mod\ 14406}#) #f))))) - (#{match-each+\ 8569}# - (lambda (#{e\ 8695}# - #{x-pat\ 8696}# - #{y-pat\ 8697}# - #{z-pat\ 8698}# - #{w\ 8699}# - #{r\ 8700}# - #{mod\ 8701}#) - (letrec ((#{f\ 8712}# - (lambda (#{e\ 8713}# #{w\ 8714}#) - (if (pair? #{e\ 8713}#) + (#{match-each+\ 14295}# + (lambda (#{e\ 14421}# + #{x-pat\ 14422}# + #{y-pat\ 14423}# + #{z-pat\ 14424}# + #{w\ 14425}# + #{r\ 14426}# + #{mod\ 14427}#) + (letrec ((#{f\ 14438}# + (lambda (#{e\ 14439}# #{w\ 14440}#) + (if (pair? #{e\ 14439}#) (call-with-values (lambda () - (#{f\ 8712}# - (cdr #{e\ 8713}#) - #{w\ 8714}#)) - (lambda (#{xr*\ 8717}# - #{y-pat\ 8718}# - #{r\ 8719}#) - (if #{r\ 8719}# - (if (null? #{y-pat\ 8718}#) - (let ((#{xr\ 8724}# - (#{match\ 8579}# - (car #{e\ 8713}#) - #{x-pat\ 8696}# - #{w\ 8714}# + (#{f\ 14438}# + (cdr #{e\ 14439}#) + #{w\ 14440}#)) + (lambda (#{xr*\ 14443}# + #{y-pat\ 14444}# + #{r\ 14445}#) + (if #{r\ 14445}# + (if (null? #{y-pat\ 14444}#) + (let ((#{xr\ 14450}# + (#{match\ 14305}# + (car #{e\ 14439}#) + #{x-pat\ 14422}# + #{w\ 14440}# '() - #{mod\ 8701}#))) - (if #{xr\ 8724}# + #{mod\ 14427}#))) + (if #{xr\ 14450}# (values - (cons #{xr\ 8724}# - #{xr*\ 8717}#) - #{y-pat\ 8718}# - #{r\ 8719}#) + (cons #{xr\ 14450}# + #{xr*\ 14443}#) + #{y-pat\ 14444}# + #{r\ 14445}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 8718}#) - (#{match\ 8579}# - (car #{e\ 8713}#) - (car #{y-pat\ 8718}#) - #{w\ 8714}# - #{r\ 8719}# - #{mod\ 8701}#))) + (cdr #{y-pat\ 14444}#) + (#{match\ 14305}# + (car #{e\ 14439}#) + (car #{y-pat\ 14444}#) + #{w\ 14440}# + #{r\ 14445}# + #{mod\ 14427}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 4968}# #{e\ 8713}#) - (#{f\ 8712}# - (#{syntax-object-expression\ 4970}# - #{e\ 8713}#) - (#{join-wraps\ 5055}# - #{w\ 8714}# - #{e\ 8713}#)) + (if (#{syntax-object?\ 10670}# #{e\ 14439}#) + (#{f\ 14438}# + (#{syntax-object-expression\ 10672}# + #{e\ 14439}#) + (#{join-wraps\ 10757}# + #{w\ 14440}# + #{e\ 14439}#)) (values '() - #{y-pat\ 8697}# - (#{match\ 8579}# - #{e\ 8713}# - #{z-pat\ 8698}# - #{w\ 8714}# - #{r\ 8700}# - #{mod\ 8701}#))))))) - (#{f\ 8712}# #{e\ 8695}# #{w\ 8699}#)))) - (#{match-each\ 8567}# - (lambda (#{e\ 8728}# - #{p\ 8729}# - #{w\ 8730}# - #{mod\ 8731}#) - (if (pair? #{e\ 8728}#) - (let ((#{first\ 8739}# - (#{match\ 8579}# - (car #{e\ 8728}#) - #{p\ 8729}# - #{w\ 8730}# + #{y-pat\ 14423}# + (#{match\ 14305}# + #{e\ 14439}# + #{z-pat\ 14424}# + #{w\ 14440}# + #{r\ 14426}# + #{mod\ 14427}#))))))) + (#{f\ 14438}# #{e\ 14421}# #{w\ 14425}#)))) + (#{match-each\ 14293}# + (lambda (#{e\ 14454}# + #{p\ 14455}# + #{w\ 14456}# + #{mod\ 14457}#) + (if (pair? #{e\ 14454}#) + (let ((#{first\ 14465}# + (#{match\ 14305}# + (car #{e\ 14454}#) + #{p\ 14455}# + #{w\ 14456}# '() - #{mod\ 8731}#))) - (if #{first\ 8739}# - (let ((#{rest\ 8743}# - (#{match-each\ 8567}# - (cdr #{e\ 8728}#) - #{p\ 8729}# - #{w\ 8730}# - #{mod\ 8731}#))) - (if #{rest\ 8743}# - (cons #{first\ 8739}# #{rest\ 8743}#) + #{mod\ 14457}#))) + (if #{first\ 14465}# + (let ((#{rest\ 14469}# + (#{match-each\ 14293}# + (cdr #{e\ 14454}#) + #{p\ 14455}# + #{w\ 14456}# + #{mod\ 14457}#))) + (if #{rest\ 14469}# + (cons #{first\ 14465}# #{rest\ 14469}#) #f)) #f)) - (if (null? #{e\ 8728}#) + (if (null? #{e\ 14454}#) '() - (if (#{syntax-object?\ 4968}# #{e\ 8728}#) - (#{match-each\ 8567}# - (#{syntax-object-expression\ 4970}# #{e\ 8728}#) - #{p\ 8729}# - (#{join-wraps\ 5055}# - #{w\ 8730}# - (#{syntax-object-wrap\ 4972}# #{e\ 8728}#)) - (#{syntax-object-module\ 4974}# #{e\ 8728}#)) + (if (#{syntax-object?\ 10670}# #{e\ 14454}#) + (#{match-each\ 14293}# + (#{syntax-object-expression\ 10672}# + #{e\ 14454}#) + #{p\ 14455}# + (#{join-wraps\ 10757}# + #{w\ 14456}# + (#{syntax-object-wrap\ 10674}# #{e\ 14454}#)) + (#{syntax-object-module\ 10676}# #{e\ 14454}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 8751}# #{p\ 8752}#) - (if (eq? #{p\ 8752}# (quote any)) - (list #{e\ 8751}#) - (if (#{syntax-object?\ 4968}# #{e\ 8751}#) - (#{match*\ 8577}# - (#{syntax-object-expression\ 4970}# #{e\ 8751}#) - #{p\ 8752}# - (#{syntax-object-wrap\ 4972}# #{e\ 8751}#) + (lambda (#{e\ 14477}# #{p\ 14478}#) + (if (eq? #{p\ 14478}# (quote any)) + (list #{e\ 14477}#) + (if (#{syntax-object?\ 10670}# #{e\ 14477}#) + (#{match*\ 14303}# + (#{syntax-object-expression\ 10672}# + #{e\ 14477}#) + #{p\ 14478}# + (#{syntax-object-wrap\ 10674}# #{e\ 14477}#) '() - (#{syntax-object-module\ 4974}# #{e\ 8751}#)) - (#{match*\ 8577}# - #{e\ 8751}# - #{p\ 8752}# + (#{syntax-object-module\ 10676}# #{e\ 14477}#)) + (#{match*\ 14303}# + #{e\ 14477}# + #{p\ 14478}# '(()) '() #f))))))))) @@ -12139,50 +12308,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 8761}#) - ((lambda (#{tmp\ 8763}#) - ((lambda (#{tmp\ 8764}#) - (if #{tmp\ 8764}# - (apply (lambda (#{_\ 8768}# #{e1\ 8769}# #{e2\ 8770}#) + (cons (lambda (#{x\ 14487}#) + ((lambda (#{tmp\ 14489}#) + ((lambda (#{tmp\ 14490}#) + (if #{tmp\ 14490}# + (apply (lambda (#{_\ 14494}# #{e1\ 14495}# #{e2\ 14496}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i8765" "i8766" "i8767")) + #("i14491" "i14492" "i14493")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8762"))) + #(ribcage #(x) #((top)) #("i14488"))) (hygiene guile)) - (cons #{e1\ 8769}# #{e2\ 8770}#))) - #{tmp\ 8764}#) - ((lambda (#{tmp\ 8772}#) - (if #{tmp\ 8772}# - (apply (lambda (#{_\ 8778}# - #{out\ 8779}# - #{in\ 8780}# - #{e1\ 8781}# - #{e2\ 8782}#) + (cons #{e1\ 14495}# #{e2\ 14496}#))) + #{tmp\ 14490}#) + ((lambda (#{tmp\ 14498}#) + (if #{tmp\ 14498}# + (apply (lambda (#{_\ 14504}# + #{out\ 14505}# + #{in\ 14506}# + #{e1\ 14507}# + #{e2\ 14508}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i8773" - "i8774" - "i8775" - "i8776" - "i8777")) + #("i14499" + "i14500" + "i14501" + "i14502" + "i14503")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8762"))) + #("i14488"))) (hygiene guile)) - #{in\ 8780}# + #{in\ 14506}# '() - (list #{out\ 8779}# + (list #{out\ 14505}# (cons '#(syntax-object begin ((top) @@ -12193,27 +12362,27 @@ (top) (top) (top)) - #("i8773" - "i8774" - "i8775" - "i8776" - "i8777")) + #("i14499" + "i14500" + "i14501" + "i14502" + "i14503")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8762"))) + #("i14488"))) (hygiene guile)) - (cons #{e1\ 8781}# - #{e2\ 8782}#))))) - #{tmp\ 8772}#) - ((lambda (#{tmp\ 8784}#) - (if #{tmp\ 8784}# - (apply (lambda (#{_\ 8790}# - #{out\ 8791}# - #{in\ 8792}# - #{e1\ 8793}# - #{e2\ 8794}#) + (cons #{e1\ 14507}# + #{e2\ 14508}#))))) + #{tmp\ 14498}#) + ((lambda (#{tmp\ 14510}#) + (if #{tmp\ 14510}# + (apply (lambda (#{_\ 14516}# + #{out\ 14517}# + #{in\ 14518}# + #{e1\ 14519}# + #{e2\ 14520}#) (list '#(syntax-object syntax-case ((top) @@ -12224,16 +12393,16 @@ (top) (top) (top)) - #("i8785" - "i8786" - "i8787" - "i8788" - "i8789")) + #("i14511" + "i14512" + "i14513" + "i14514" + "i14515")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8762"))) + #("i14488"))) (hygiene guile)) (cons '#(syntax-object list @@ -12245,20 +12414,20 @@ (top) (top) (top)) - #("i8785" - "i8786" - "i8787" - "i8788" - "i8789")) + #("i14511" + "i14512" + "i14513" + "i14514" + "i14515")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8762"))) + #("i14488"))) (hygiene guile)) - #{in\ 8792}#) + #{in\ 14518}#) '() - (list #{out\ 8791}# + (list #{out\ 14517}# (cons '#(syntax-object begin ((top) @@ -12273,11 +12442,11 @@ (top) (top) (top)) - #("i8785" - "i8786" - "i8787" - "i8788" - "i8789")) + #("i14511" + "i14512" + "i14513" + "i14514" + "i14515")) #(ribcage () () @@ -12285,53 +12454,53 @@ #(ribcage #(x) #((top)) - #("i8762"))) + #("i14488"))) (hygiene guile)) - (cons #{e1\ 8793}# - #{e2\ 8794}#))))) - #{tmp\ 8784}#) + (cons #{e1\ 14519}# + #{e2\ 14520}#))))) + #{tmp\ 14510}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8763}#))) + #{tmp\ 14489}#))) ($sc-dispatch - #{tmp\ 8763}# + #{tmp\ 14489}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 8763}# + #{tmp\ 14489}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 8763}# + #{tmp\ 14489}# '(any () any . each-any)))) - #{x\ 8761}#)) + #{x\ 14487}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 8798}#) - ((lambda (#{tmp\ 8800}#) - ((lambda (#{tmp\ 8801}#) - (if #{tmp\ 8801}# - (apply (lambda (#{_\ 8807}# - #{k\ 8808}# - #{keyword\ 8809}# - #{pattern\ 8810}# - #{template\ 8811}#) + (cons (lambda (#{x\ 14524}#) + ((lambda (#{tmp\ 14526}#) + ((lambda (#{tmp\ 14527}#) + (if #{tmp\ 14527}# + (apply (lambda (#{_\ 14533}# + #{k\ 14534}# + #{keyword\ 14535}# + #{pattern\ 14536}# + #{template\ 14537}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8799"))) + #(ribcage #(x) #((top)) #("i14525"))) (hygiene guile)) '(#(syntax-object x @@ -12339,13 +12508,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8799"))) + #(ribcage #(x) #((top)) #("i14525"))) (hygiene guile))) (vector '(#(syntax-object @@ -12354,13 +12523,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8799"))) + #(ribcage #(x) #((top)) #("i14525"))) (hygiene guile)) . #(syntax-object @@ -12369,13 +12538,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8799"))) + #(ribcage #(x) #((top)) #("i14525"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12391,34 +12560,34 @@ (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8799"))) + #("i14525"))) (hygiene guile)) - #{pattern\ 8810}#)) + #{pattern\ 14536}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8799"))) + #("i14525"))) (hygiene guile)) (cons '#(syntax-object x @@ -12434,20 +12603,20 @@ (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8799"))) + #("i14525"))) (hygiene guile)) - (cons #{k\ 8808}# - (map (lambda (#{tmp\ 8815}# - #{tmp\ 8814}#) + (cons #{k\ 14534}# + (map (lambda (#{tmp\ 14541}# + #{tmp\ 14540}#) (list (cons '#(syntax-object dummy ((top) @@ -12462,11 +12631,11 @@ (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () @@ -12474,10 +12643,10 @@ #(ribcage #(x) #((top)) - #("i8799"))) + #("i14525"))) (hygiene guile)) - #{tmp\ 8814}#) + #{tmp\ 14540}#) (list '#(syntax-object syntax ((top) @@ -12492,11 +12661,11 @@ (top) (top) (top)) - #("i8802" - "i8803" - "i8804" - "i8805" - "i8806")) + #("i14528" + "i14529" + "i14530" + "i14531" + "i14532")) #(ribcage () () @@ -12504,47 +12673,47 @@ #(ribcage #(x) #((top)) - #("i8799"))) + #("i14525"))) (hygiene guile)) - #{tmp\ 8815}#))) - #{template\ 8811}# - #{pattern\ 8810}#)))))) - #{tmp\ 8801}#) + #{tmp\ 14541}#))) + #{template\ 14537}# + #{pattern\ 14536}#)))))) + #{tmp\ 14527}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8800}#))) + #{tmp\ 14526}#))) ($sc-dispatch - #{tmp\ 8800}# + #{tmp\ 14526}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 8798}#)) + #{x\ 14524}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 8816}#) - ((lambda (#{tmp\ 8818}#) - ((lambda (#{tmp\ 8819}#) - (if (if #{tmp\ 8819}# - (apply (lambda (#{let*\ 8825}# - #{x\ 8826}# - #{v\ 8827}# - #{e1\ 8828}# - #{e2\ 8829}#) - (and-map identifier? #{x\ 8826}#)) - #{tmp\ 8819}#) + (cons (lambda (#{x\ 14542}#) + ((lambda (#{tmp\ 14544}#) + ((lambda (#{tmp\ 14545}#) + (if (if #{tmp\ 14545}# + (apply (lambda (#{let*\ 14551}# + #{x\ 14552}# + #{v\ 14553}# + #{e1\ 14554}# + #{e2\ 14555}#) + (and-map identifier? #{x\ 14552}#)) + #{tmp\ 14545}#) #f) - (apply (lambda (#{let*\ 8836}# - #{x\ 8837}# - #{v\ 8838}# - #{e1\ 8839}# - #{e2\ 8840}#) - (letrec ((#{f\ 8843}# - (lambda (#{bindings\ 8844}#) - (if (null? #{bindings\ 8844}#) + (apply (lambda (#{let*\ 14562}# + #{x\ 14563}# + #{v\ 14564}# + #{e1\ 14565}# + #{e2\ 14566}#) + (letrec ((#{f\ 14569}# + (lambda (#{bindings\ 14570}#) + (if (null? #{bindings\ 14570}#) (cons '#(syntax-object let ((top) @@ -12552,7 +12721,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i8841" "i8842")) + #("i14567" "i14568")) #(ribcage #(let* x v e1 e2) #((top) @@ -12560,25 +12729,25 @@ (top) (top) (top)) - #("i8831" - "i8832" - "i8833" - "i8834" - "i8835")) + #("i14557" + "i14558" + "i14559" + "i14560" + "i14561")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8817"))) + #("i14543"))) (hygiene guile)) (cons '() - (cons #{e1\ 8839}# - #{e2\ 8840}#))) - ((lambda (#{tmp\ 8849}#) - ((lambda (#{tmp\ 8850}#) - (if #{tmp\ 8850}# - (apply (lambda (#{body\ 8853}# - #{binding\ 8854}#) + (cons #{e1\ 14565}# + #{e2\ 14566}#))) + ((lambda (#{tmp\ 14575}#) + ((lambda (#{tmp\ 14576}#) + (if #{tmp\ 14576}# + (apply (lambda (#{body\ 14579}# + #{binding\ 14580}#) (list '#(syntax-object let ((top) @@ -12587,8 +12756,8 @@ binding) #((top) (top)) - #("i8851" - "i8852")) + #("i14577" + "i14578")) #(ribcage () () @@ -12598,8 +12767,8 @@ bindings) #((top) (top)) - #("i8841" - "i8842")) + #("i14567" + "i14568")) #(ribcage #(let* x @@ -12611,11 +12780,11 @@ (top) (top) (top)) - #("i8831" - "i8832" - "i8833" - "i8834" - "i8835")) + #("i14557" + "i14558" + "i14559" + "i14560" + "i14561")) #(ribcage () () @@ -12623,57 +12792,57 @@ #(ribcage #(x) #((top)) - #("i8817"))) + #("i14543"))) (hygiene guile)) - (list #{binding\ 8854}#) - #{body\ 8853}#)) - #{tmp\ 8850}#) + (list #{binding\ 14580}#) + #{body\ 14579}#)) + #{tmp\ 14576}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8849}#))) + #{tmp\ 14575}#))) ($sc-dispatch - #{tmp\ 8849}# + #{tmp\ 14575}# '(any any)))) - (list (#{f\ 8843}# - (cdr #{bindings\ 8844}#)) - (car #{bindings\ 8844}#))))))) - (#{f\ 8843}# - (map list #{x\ 8837}# #{v\ 8838}#)))) - #{tmp\ 8819}#) + (list (#{f\ 14569}# + (cdr #{bindings\ 14570}#)) + (car #{bindings\ 14570}#))))))) + (#{f\ 14569}# + (map list #{x\ 14563}# #{v\ 14564}#)))) + #{tmp\ 14545}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8818}#))) + #{tmp\ 14544}#))) ($sc-dispatch - #{tmp\ 8818}# + #{tmp\ 14544}# '(any #(each (any any)) any . each-any)))) - #{x\ 8816}#)) + #{x\ 14542}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 8855}#) - ((lambda (#{tmp\ 8857}#) - ((lambda (#{tmp\ 8858}#) - (if #{tmp\ 8858}# - (apply (lambda (#{_\ 8866}# - #{var\ 8867}# - #{init\ 8868}# - #{step\ 8869}# - #{e0\ 8870}# - #{e1\ 8871}# - #{c\ 8872}#) - ((lambda (#{tmp\ 8874}#) - ((lambda (#{tmp\ 8875}#) - (if #{tmp\ 8875}# - (apply (lambda (#{step\ 8877}#) - ((lambda (#{tmp\ 8878}#) - ((lambda (#{tmp\ 8879}#) - (if #{tmp\ 8879}# + (cons (lambda (#{orig-x\ 14581}#) + ((lambda (#{tmp\ 14583}#) + ((lambda (#{tmp\ 14584}#) + (if #{tmp\ 14584}# + (apply (lambda (#{_\ 14592}# + #{var\ 14593}# + #{init\ 14594}# + #{step\ 14595}# + #{e0\ 14596}# + #{e1\ 14597}# + #{c\ 14598}#) + ((lambda (#{tmp\ 14600}#) + ((lambda (#{tmp\ 14601}#) + (if #{tmp\ 14601}# + (apply (lambda (#{step\ 14603}#) + ((lambda (#{tmp\ 14604}#) + ((lambda (#{tmp\ 14605}#) + (if #{tmp\ 14605}# (apply (lambda () (list '#(syntax-object let @@ -12681,7 +12850,7 @@ #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12697,13 +12866,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12711,7 +12880,7 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) '#(syntax-object @@ -12720,7 +12889,7 @@ #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12736,13 +12905,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12750,19 +12919,19 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) (map list - #{var\ 8867}# - #{init\ 8868}#) + #{var\ 14593}# + #{init\ 14594}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12778,13 +12947,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12792,7 +12961,7 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) (list '#(syntax-object @@ -12801,7 +12970,7 @@ #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12817,13 +12986,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12831,17 +13000,17 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) - #{e0\ 8870}#) + #{e0\ 14596}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12857,13 +13026,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12871,18 +13040,18 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) (append - #{c\ 8872}# + #{c\ 14598}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12898,13 +13067,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12912,15 +13081,15 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) - #{step\ 8877}#))))))) - #{tmp\ 8879}#) - ((lambda (#{tmp\ 8884}#) - (if #{tmp\ 8884}# - (apply (lambda (#{e1\ 8887}# - #{e2\ 8888}#) + #{step\ 14603}#))))))) + #{tmp\ 14605}#) + ((lambda (#{tmp\ 14610}#) + (if #{tmp\ 14610}# + (apply (lambda (#{e1\ 14613}# + #{e2\ 14614}#) (list '#(syntax-object let ((top) @@ -12929,12 +13098,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12950,13 +13119,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -12964,7 +13133,7 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) '#(syntax-object @@ -12975,12 +13144,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -12996,13 +13165,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -13010,12 +13179,12 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) (map list - #{var\ 8867}# - #{init\ 8868}#) + #{var\ 14593}# + #{init\ 14594}#) (list '#(syntax-object if ((top) @@ -13024,12 +13193,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -13045,13 +13214,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -13059,10 +13228,10 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) - #{e0\ 8870}# + #{e0\ 14596}# (cons '#(syntax-object begin ((top) @@ -13071,12 +13240,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -13092,13 +13261,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -13106,11 +13275,11 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) - (cons #{e1\ 8887}# - #{e2\ 8888}#)) + (cons #{e1\ 14613}# + #{e2\ 14614}#)) (cons '#(syntax-object begin ((top) @@ -13119,12 +13288,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -13140,13 +13309,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -13154,11 +13323,11 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) (append - #{c\ 8872}# + #{c\ 14598}# (list (cons '#(syntax-object doloop ((top) @@ -13167,12 +13336,12 @@ e2) #((top) (top)) - #("i8885" - "i8886")) + #("i14611" + "i14612")) #(ribcage #(step) #((top)) - #("i8876")) + #("i14602")) #(ribcage #(_ var @@ -13188,13 +13357,13 @@ (top) (top) (top)) - #("i8859" - "i8860" - "i8861" - "i8862" - "i8863" - "i8864" - "i8865")) + #("i14585" + "i14586" + "i14587" + "i14588" + "i14589" + "i14590" + "i14591")) #(ribcage () () @@ -13202,107 +13371,107 @@ #(ribcage #(orig-x) #((top)) - #("i8856"))) + #("i14582"))) (hygiene guile)) - #{step\ 8877}#))))))) - #{tmp\ 8884}#) + #{step\ 14603}#))))))) + #{tmp\ 14610}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8878}#))) + #{tmp\ 14604}#))) ($sc-dispatch - #{tmp\ 8878}# + #{tmp\ 14604}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 8878}# + #{tmp\ 14604}# '()))) - #{e1\ 8871}#)) - #{tmp\ 8875}#) + #{e1\ 14597}#)) + #{tmp\ 14601}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8874}#))) + #{tmp\ 14600}#))) ($sc-dispatch - #{tmp\ 8874}# + #{tmp\ 14600}# 'each-any))) - (map (lambda (#{v\ 8895}# #{s\ 8896}#) - ((lambda (#{tmp\ 8899}#) - ((lambda (#{tmp\ 8900}#) - (if #{tmp\ 8900}# - (apply (lambda () #{v\ 8895}#) - #{tmp\ 8900}#) - ((lambda (#{tmp\ 8901}#) - (if #{tmp\ 8901}# - (apply (lambda (#{e\ 8903}#) - #{e\ 8903}#) - #{tmp\ 8901}#) - ((lambda (#{_\ 8905}#) + (map (lambda (#{v\ 14621}# #{s\ 14622}#) + ((lambda (#{tmp\ 14625}#) + ((lambda (#{tmp\ 14626}#) + (if #{tmp\ 14626}# + (apply (lambda () #{v\ 14621}#) + #{tmp\ 14626}#) + ((lambda (#{tmp\ 14627}#) + (if #{tmp\ 14627}# + (apply (lambda (#{e\ 14629}#) + #{e\ 14629}#) + #{tmp\ 14627}#) + ((lambda (#{_\ 14631}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 8855}# - #{s\ 8896}#)) - #{tmp\ 8899}#))) + #{orig-x\ 14581}# + #{s\ 14622}#)) + #{tmp\ 14625}#))) ($sc-dispatch - #{tmp\ 8899}# + #{tmp\ 14625}# '(any))))) ($sc-dispatch - #{tmp\ 8899}# + #{tmp\ 14625}# '()))) - #{s\ 8896}#)) - #{var\ 8867}# - #{step\ 8869}#))) - #{tmp\ 8858}#) + #{s\ 14622}#)) + #{var\ 14593}# + #{step\ 14595}#))) + #{tmp\ 14584}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8857}#))) + #{tmp\ 14583}#))) ($sc-dispatch - #{tmp\ 8857}# + #{tmp\ 14583}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 8855}#)) + #{orig-x\ 14581}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 8912}# - (lambda (#{x\ 8916}# #{y\ 8917}#) - ((lambda (#{tmp\ 8921}#) - ((lambda (#{tmp\ 8922}#) - (if #{tmp\ 8922}# - (apply (lambda (#{x\ 8925}# #{y\ 8926}#) - ((lambda (#{tmp\ 8927}#) - ((lambda (#{tmp\ 8928}#) - (if #{tmp\ 8928}# - (apply (lambda (#{dy\ 8930}#) - ((lambda (#{tmp\ 8931}#) - ((lambda (#{tmp\ 8932}#) - (if #{tmp\ 8932}# - (apply (lambda (#{dx\ 8934}#) + (cons (letrec ((#{quasicons\ 14638}# + (lambda (#{x\ 14642}# #{y\ 14643}#) + ((lambda (#{tmp\ 14647}#) + ((lambda (#{tmp\ 14648}#) + (if #{tmp\ 14648}# + (apply (lambda (#{x\ 14651}# #{y\ 14652}#) + ((lambda (#{tmp\ 14653}#) + ((lambda (#{tmp\ 14654}#) + (if #{tmp\ 14654}# + (apply (lambda (#{dy\ 14656}#) + ((lambda (#{tmp\ 14657}#) + ((lambda (#{tmp\ 14658}#) + (if #{tmp\ 14658}# + (apply (lambda (#{dx\ 14660}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i8933")) + #("i14659")) #(ribcage #(dy) #((top)) - #("i8929")) + #("i14655")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13316,8 +13485,8 @@ y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13327,35 +13496,35 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - (cons #{dx\ 8934}# - #{dy\ 8930}#))) - #{tmp\ 8932}#) - ((lambda (#{_\ 8936}#) - (if (null? #{dy\ 8930}#) + (cons #{dx\ 14660}# + #{dy\ 14656}#))) + #{tmp\ 14658}#) + ((lambda (#{_\ 14662}#) + (if (null? #{dy\ 14656}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i8935")) + #("i14661")) #(ribcage #(dy) #((top)) - #("i8929")) + #("i14655")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13369,8 +13538,8 @@ y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13380,31 +13549,31 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8925}#) + #{x\ 14651}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i8935")) + #("i14661")) #(ribcage #(dy) #((top)) - #("i8929")) + #("i14655")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13418,8 +13587,8 @@ y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13429,17 +13598,17 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8925}# - #{y\ 8926}#))) - #{tmp\ 8931}#))) + #{x\ 14651}# + #{y\ 14652}#))) + #{tmp\ 14657}#))) ($sc-dispatch - #{tmp\ 8931}# + #{tmp\ 14657}# '(#(free-id #(syntax-object quote @@ -13447,13 +13616,13 @@ #(ribcage #(dy) #((top)) - #("i8929")) + #("i14655")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13466,8 +13635,8 @@ #(x y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13477,32 +13646,32 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) any)))) - #{x\ 8925}#)) - #{tmp\ 8928}#) - ((lambda (#{tmp\ 8937}#) - (if #{tmp\ 8937}# - (apply (lambda (#{stuff\ 8939}#) + #{x\ 14651}#)) + #{tmp\ 14654}#) + ((lambda (#{tmp\ 14663}#) + (if #{tmp\ 14663}# + (apply (lambda (#{stuff\ 14665}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i8938")) + #("i14664")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13516,8 +13685,8 @@ y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13527,29 +13696,29 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - (cons #{x\ 8925}# - #{stuff\ 8939}#))) - #{tmp\ 8937}#) - ((lambda (#{else\ 8941}#) + (cons #{x\ 14651}# + #{stuff\ 14665}#))) + #{tmp\ 14663}#) + ((lambda (#{else\ 14667}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i8940")) + #("i14666")) #(ribcage #(x y) #((top) (top)) - #("i8923" - "i8924")) + #("i14649" + "i14650")) #(ribcage () () @@ -13562,8 +13731,8 @@ #(x y) #((top) (top)) - #("i8918" - "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13573,17 +13742,17 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8925}# - #{y\ 8926}#)) - #{tmp\ 8927}#))) + #{x\ 14651}# + #{y\ 14652}#)) + #{tmp\ 14653}#))) ($sc-dispatch - #{tmp\ 8927}# + #{tmp\ 14653}# '(#(free-id #(syntax-object list @@ -13591,13 +13760,15 @@ #(ribcage #(x y) #((top) (top)) - #("i8923" "i8924")) + #("i14649" + "i14650")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i8918" "i8919")) + #("i14644" + "i14645")) #(ribcage #(quasicons quasiappend @@ -13607,15 +13778,15 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 8927}# + #{tmp\ 14653}# '(#(free-id #(syntax-object quote @@ -13623,13 +13794,13 @@ #(ribcage #(x y) #((top) (top)) - #("i8923" "i8924")) + #("i14649" "i14650")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i8918" "i8919")) + #("i14644" "i14645")) #(ribcage #(quasicons quasiappend @@ -13639,44 +13810,44 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) any)))) - #{y\ 8926}#)) - #{tmp\ 8922}#) + #{y\ 14652}#)) + #{tmp\ 14648}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8921}#))) - ($sc-dispatch #{tmp\ 8921}# (quote (any any))))) - (list #{x\ 8916}# #{y\ 8917}#)))) - (#{quasiappend\ 8913}# - (lambda (#{x\ 8942}# #{y\ 8943}#) - ((lambda (#{tmp\ 8947}#) - ((lambda (#{tmp\ 8948}#) - (if #{tmp\ 8948}# - (apply (lambda (#{x\ 8951}# #{y\ 8952}#) - ((lambda (#{tmp\ 8953}#) - ((lambda (#{tmp\ 8954}#) - (if #{tmp\ 8954}# - (apply (lambda () #{x\ 8951}#) - #{tmp\ 8954}#) - ((lambda (#{_\ 8956}#) + #{tmp\ 14647}#))) + ($sc-dispatch #{tmp\ 14647}# (quote (any any))))) + (list #{x\ 14642}# #{y\ 14643}#)))) + (#{quasiappend\ 14639}# + (lambda (#{x\ 14668}# #{y\ 14669}#) + ((lambda (#{tmp\ 14673}#) + ((lambda (#{tmp\ 14674}#) + (if #{tmp\ 14674}# + (apply (lambda (#{x\ 14677}# #{y\ 14678}#) + ((lambda (#{tmp\ 14679}#) + ((lambda (#{tmp\ 14680}#) + (if #{tmp\ 14680}# + (apply (lambda () #{x\ 14677}#) + #{tmp\ 14680}#) + ((lambda (#{_\ 14682}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i8955")) + #("i14681")) #(ribcage #(x y) #((top) (top)) - #("i8949" - "i8950")) + #("i14675" + "i14676")) #(ribcage () () @@ -13688,8 +13859,8 @@ #(ribcage #(x y) #((top) (top)) - #("i8944" - "i8945")) + #("i14670" + "i14671")) #(ribcage #(quasicons quasiappend @@ -13699,16 +13870,16 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8951}# - #{y\ 8952}#)) - #{tmp\ 8953}#))) + #{x\ 14677}# + #{y\ 14678}#)) + #{tmp\ 14679}#))) ($sc-dispatch - #{tmp\ 8953}# + #{tmp\ 14679}# '(#(free-id #(syntax-object quote @@ -13716,13 +13887,13 @@ #(ribcage #(x y) #((top) (top)) - #("i8949" "i8950")) + #("i14675" "i14676")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i8944" "i8945")) + #("i14670" "i14671")) #(ribcage #(quasicons quasiappend @@ -13732,45 +13903,45 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) ())))) - #{y\ 8952}#)) - #{tmp\ 8948}#) + #{y\ 14678}#)) + #{tmp\ 14674}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 8947}#))) - ($sc-dispatch #{tmp\ 8947}# (quote (any any))))) - (list #{x\ 8942}# #{y\ 8943}#)))) - (#{quasivector\ 8914}# - (lambda (#{x\ 8957}#) - ((lambda (#{tmp\ 8960}#) - ((lambda (#{x\ 8962}#) - ((lambda (#{tmp\ 8963}#) - ((lambda (#{tmp\ 8964}#) - (if #{tmp\ 8964}# - (apply (lambda (#{x\ 8966}#) + #{tmp\ 14673}#))) + ($sc-dispatch #{tmp\ 14673}# (quote (any any))))) + (list #{x\ 14668}# #{y\ 14669}#)))) + (#{quasivector\ 14640}# + (lambda (#{x\ 14683}#) + ((lambda (#{tmp\ 14686}#) + ((lambda (#{x\ 14688}#) + ((lambda (#{tmp\ 14689}#) + ((lambda (#{tmp\ 14690}#) + (if #{tmp\ 14690}# + (apply (lambda (#{x\ 14692}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i8965")) + #("i14691")) #(ribcage #(x) #((top)) - #("i8961")) + #("i14687")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8958")) + #("i14684")) #(ribcage #(quasicons quasiappend @@ -13780,28 +13951,28 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) (list->vector - #{x\ 8966}#))) - #{tmp\ 8964}#) - ((lambda (#{tmp\ 8968}#) - (if #{tmp\ 8968}# - (apply (lambda (#{x\ 8970}#) + #{x\ 14692}#))) + #{tmp\ 14690}#) + ((lambda (#{tmp\ 14694}#) + (if #{tmp\ 14694}# + (apply (lambda (#{x\ 14696}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i8969")) + #("i14695")) #(ribcage #(x) #((top)) - #("i8961")) + #("i14687")) #(ribcage () () @@ -13813,7 +13984,7 @@ #(ribcage #(x) #((top)) - #("i8958")) + #("i14684")) #(ribcage #(quasicons quasiappend @@ -13823,31 +13994,31 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8970}#)) - #{tmp\ 8968}#) - ((lambda (#{_\ 8973}#) + #{x\ 14696}#)) + #{tmp\ 14694}#) + ((lambda (#{_\ 14699}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i8972")) + #("i14698")) #(ribcage #(x) #((top)) - #("i8961")) + #("i14687")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8958")) + #("i14684")) #(ribcage #(quasicons quasiappend @@ -13857,15 +14028,15 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{x\ 8962}#)) - #{tmp\ 8963}#))) + #{x\ 14688}#)) + #{tmp\ 14689}#))) ($sc-dispatch - #{tmp\ 8963}# + #{tmp\ 14689}# '(#(free-id #(syntax-object list @@ -13873,82 +14044,82 @@ #(ribcage #(x) #((top)) - #("i8961")) + #("i14687")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i8958")) + #("i14684")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 8963}# + #{tmp\ 14689}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i8961")) + #(ribcage #(x) #((top)) #("i14687")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i8958")) + #(ribcage #(x) #((top)) #("i14684")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) each-any)))) - #{x\ 8962}#)) - #{tmp\ 8960}#)) - #{x\ 8957}#))) - (#{quasi\ 8915}# - (lambda (#{p\ 8974}# #{lev\ 8975}#) - ((lambda (#{tmp\ 8978}#) - ((lambda (#{tmp\ 8979}#) - (if #{tmp\ 8979}# - (apply (lambda (#{p\ 8981}#) - (if (= #{lev\ 8975}# 0) - #{p\ 8981}# - (#{quasicons\ 8912}# + #{x\ 14688}#)) + #{tmp\ 14686}#)) + #{x\ 14683}#))) + (#{quasi\ 14641}# + (lambda (#{p\ 14700}# #{lev\ 14701}#) + ((lambda (#{tmp\ 14704}#) + ((lambda (#{tmp\ 14705}#) + (if #{tmp\ 14705}# + (apply (lambda (#{p\ 14707}#) + (if (= #{lev\ 14701}# 0) + #{p\ 14707}# + (#{quasicons\ 14638}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i8980")) + #("i14706")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) #(syntax-object unquote @@ -13956,50 +14127,51 @@ #(ribcage #(p) #((top)) - #("i8980")) + #("i14706")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) - (#{quasi\ 8915}# - (list #{p\ 8981}#) - (- #{lev\ 8975}# 1))))) - #{tmp\ 8979}#) - ((lambda (#{tmp\ 8982}#) - (if (if #{tmp\ 8982}# - (apply (lambda (#{args\ 8984}#) - (= #{lev\ 8975}# 0)) - #{tmp\ 8982}#) + (#{quasi\ 14641}# + (list #{p\ 14707}#) + (- #{lev\ 14701}# 1))))) + #{tmp\ 14705}#) + ((lambda (#{tmp\ 14708}#) + (if (if #{tmp\ 14708}# + (apply (lambda (#{args\ 14710}#) + (= #{lev\ 14701}# 0)) + #{tmp\ 14708}#) #f) - (apply (lambda (#{args\ 8986}#) + (apply (lambda (#{args\ 14712}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 8974}# + #{p\ 14700}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i8985")) + #("i14711")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14009,33 +14181,33 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{args\ 8986}#))) - #{tmp\ 8982}#) - ((lambda (#{tmp\ 8987}#) - (if #{tmp\ 8987}# - (apply (lambda (#{p\ 8990}# - #{q\ 8991}#) - (if (= #{lev\ 8975}# 0) - (#{quasiappend\ 8913}# - #{p\ 8990}# - (#{quasi\ 8915}# - #{q\ 8991}# - #{lev\ 8975}#)) - (#{quasicons\ 8912}# - (#{quasicons\ 8912}# + #{args\ 14712}#))) + #{tmp\ 14708}#) + ((lambda (#{tmp\ 14713}#) + (if #{tmp\ 14713}# + (apply (lambda (#{p\ 14716}# + #{q\ 14717}#) + (if (= #{lev\ 14701}# 0) + (#{quasiappend\ 14639}# + #{p\ 14716}# + (#{quasi\ 14641}# + #{q\ 14717}# + #{lev\ 14701}#)) + (#{quasicons\ 14638}# + (#{quasicons\ 14638}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i8988" - "i8989")) + #("i14714" + "i14715")) #(ribcage () () @@ -14043,8 +14215,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14054,10 +14226,10 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14065,8 +14237,8 @@ #(ribcage #(p q) #((top) (top)) - #("i8988" - "i8989")) + #("i14714" + "i14715")) #(ribcage () () @@ -14074,8 +14246,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14085,31 +14257,33 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) - (#{quasi\ 8915}# - (list #{p\ 8990}#) - (- #{lev\ 8975}# 1))) - (#{quasi\ 8915}# - #{q\ 8991}# - #{lev\ 8975}#)))) - #{tmp\ 8987}#) - ((lambda (#{tmp\ 8992}#) - (if (if #{tmp\ 8992}# - (apply (lambda (#{args\ 8995}# - #{q\ 8996}#) - (= #{lev\ 8975}# 0)) - #{tmp\ 8992}#) + (#{quasi\ 14641}# + (list #{p\ 14716}#) + (- #{lev\ 14701}# + 1))) + (#{quasi\ 14641}# + #{q\ 14717}# + #{lev\ 14701}#)))) + #{tmp\ 14713}#) + ((lambda (#{tmp\ 14718}#) + (if (if #{tmp\ 14718}# + (apply (lambda (#{args\ 14721}# + #{q\ 14722}#) + (= #{lev\ 14701}# + 0)) + #{tmp\ 14718}#) #f) - (apply (lambda (#{args\ 8999}# - #{q\ 9000}#) + (apply (lambda (#{args\ 14725}# + #{q\ 14726}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 8974}# + #{p\ 14700}# (cons '#(syntax-object unquote-splicing ((top) @@ -14117,8 +14291,8 @@ #(args q) #((top) (top)) - #("i8997" - "i8998")) + #("i14723" + "i14724")) #(ribcage () () @@ -14127,8 +14301,8 @@ #(p lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14138,25 +14312,25 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{args\ 8999}#))) - #{tmp\ 8992}#) - ((lambda (#{tmp\ 9001}#) - (if #{tmp\ 9001}# - (apply (lambda (#{p\ 9003}#) - (#{quasicons\ 8912}# + #{args\ 14725}#))) + #{tmp\ 14718}#) + ((lambda (#{tmp\ 14727}#) + (if #{tmp\ 14727}# + (apply (lambda (#{p\ 14729}#) + (#{quasicons\ 14638}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i9002")) + #("i14728")) #(ribcage () () @@ -14165,8 +14339,8 @@ #(p lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14176,10 +14350,10 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) #(syntax-object @@ -14188,7 +14362,7 @@ #(ribcage #(p) #((top)) - #("i9002")) + #("i14728")) #(ribcage () () @@ -14197,8 +14371,8 @@ #(p lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14208,45 +14382,45 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) - (#{quasi\ 8915}# - (list #{p\ 9003}#) - (+ #{lev\ 8975}# + (#{quasi\ 14641}# + (list #{p\ 14729}#) + (+ #{lev\ 14701}# 1)))) - #{tmp\ 9001}#) - ((lambda (#{tmp\ 9004}#) - (if #{tmp\ 9004}# - (apply (lambda (#{p\ 9007}# - #{q\ 9008}#) - (#{quasicons\ 8912}# - (#{quasi\ 8915}# - #{p\ 9007}# - #{lev\ 8975}#) - (#{quasi\ 8915}# - #{q\ 9008}# - #{lev\ 8975}#))) - #{tmp\ 9004}#) - ((lambda (#{tmp\ 9009}#) - (if #{tmp\ 9009}# - (apply (lambda (#{x\ 9011}#) - (#{quasivector\ 8914}# - (#{quasi\ 8915}# - #{x\ 9011}# - #{lev\ 8975}#))) - #{tmp\ 9009}#) - ((lambda (#{p\ 9014}#) + #{tmp\ 14727}#) + ((lambda (#{tmp\ 14730}#) + (if #{tmp\ 14730}# + (apply (lambda (#{p\ 14733}# + #{q\ 14734}#) + (#{quasicons\ 14638}# + (#{quasi\ 14641}# + #{p\ 14733}# + #{lev\ 14701}#) + (#{quasi\ 14641}# + #{q\ 14734}# + #{lev\ 14701}#))) + #{tmp\ 14730}#) + ((lambda (#{tmp\ 14735}#) + (if #{tmp\ 14735}# + (apply (lambda (#{x\ 14737}#) + (#{quasivector\ 14640}# + (#{quasi\ 14641}# + #{x\ 14737}# + #{lev\ 14701}#))) + #{tmp\ 14735}#) + ((lambda (#{p\ 14740}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i9013")) + #("i14739")) #(ribcage () () @@ -14256,8 +14430,8 @@ lev) #((top) (top)) - #("i8976" - "i8977")) + #("i14702" + "i14703")) #(ribcage #(quasicons quasiappend @@ -14267,23 +14441,23 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile)) - #{p\ 9014}#)) - #{tmp\ 8978}#))) + #{p\ 14740}#)) + #{tmp\ 14704}#))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '(any . any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '(#(free-id #(syntax-object quasiquote @@ -14292,7 +14466,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend @@ -14302,14 +14476,14 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '((#(free-id #(syntax-object unquote-splicing @@ -14318,7 +14492,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend @@ -14328,17 +14502,17 @@ (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '((#(free-id #(syntax-object unquote-splicing @@ -14347,23 +14521,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" - "i8909" - "i8910" - "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '(#(free-id #(syntax-object unquote @@ -14372,19 +14546,22 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" "i8909" "i8910" "i8911"))) + #("i14634" + "i14635" + "i14636" + "i14637"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 8978}# + #{tmp\ 14704}# '(#(free-id #(syntax-object unquote @@ -14393,244 +14570,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i8976" "i8977")) + #("i14702" "i14703")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i8908" "i8909" "i8910" "i8911"))) + #("i14634" "i14635" "i14636" "i14637"))) (hygiene guile))) any)))) - #{p\ 8974}#)))) - (lambda (#{x\ 9015}#) - ((lambda (#{tmp\ 9017}#) - ((lambda (#{tmp\ 9018}#) - (if #{tmp\ 9018}# - (apply (lambda (#{_\ 9021}# #{e\ 9022}#) - (#{quasi\ 8915}# #{e\ 9022}# 0)) - #{tmp\ 9018}#) + #{p\ 14700}#)))) + (lambda (#{x\ 14741}#) + ((lambda (#{tmp\ 14743}#) + ((lambda (#{tmp\ 14744}#) + (if #{tmp\ 14744}# + (apply (lambda (#{_\ 14747}# #{e\ 14748}#) + (#{quasi\ 14641}# #{e\ 14748}# 0)) + #{tmp\ 14744}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9017}#))) - ($sc-dispatch #{tmp\ 9017}# (quote (any any))))) - #{x\ 9015}#))) + #{tmp\ 14743}#))) + ($sc-dispatch #{tmp\ 14743}# (quote (any any))))) + #{x\ 14741}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 9023}#) - (letrec ((#{read-file\ 9026}# - (lambda (#{fn\ 9027}# #{k\ 9028}#) - (let ((#{p\ 9032}# (open-input-file #{fn\ 9027}#))) - (letrec ((#{f\ 9036}# - (lambda (#{x\ 9037}# #{result\ 9038}#) - (if (eof-object? #{x\ 9037}#) + (cons (lambda (#{x\ 14749}#) + (letrec ((#{read-file\ 14752}# + (lambda (#{fn\ 14753}# #{k\ 14754}#) + (let ((#{p\ 14758}# (open-input-file #{fn\ 14753}#))) + (letrec ((#{f\ 14762}# + (lambda (#{x\ 14763}# #{result\ 14764}#) + (if (eof-object? #{x\ 14763}#) (begin - (close-input-port #{p\ 9032}#) - (reverse #{result\ 9038}#)) - (#{f\ 9036}# - (read #{p\ 9032}#) + (close-input-port #{p\ 14758}#) + (reverse #{result\ 14764}#)) + (#{f\ 14762}# + (read #{p\ 14758}#) (cons (datum->syntax - #{k\ 9028}# - #{x\ 9037}#) - #{result\ 9038}#)))))) - (#{f\ 9036}# (read #{p\ 9032}#) (quote ()))))))) - ((lambda (#{tmp\ 9039}#) - ((lambda (#{tmp\ 9040}#) - (if #{tmp\ 9040}# - (apply (lambda (#{k\ 9043}# #{filename\ 9044}#) - (let ((#{fn\ 9046}# - (syntax->datum #{filename\ 9044}#))) - ((lambda (#{tmp\ 9048}#) - ((lambda (#{tmp\ 9049}#) - (if #{tmp\ 9049}# - (apply (lambda (#{exp\ 9051}#) + #{k\ 14754}# + #{x\ 14763}#) + #{result\ 14764}#)))))) + (#{f\ 14762}# (read #{p\ 14758}#) (quote ()))))))) + ((lambda (#{tmp\ 14765}#) + ((lambda (#{tmp\ 14766}#) + (if #{tmp\ 14766}# + (apply (lambda (#{k\ 14769}# #{filename\ 14770}#) + (let ((#{fn\ 14772}# + (syntax->datum #{filename\ 14770}#))) + ((lambda (#{tmp\ 14774}#) + ((lambda (#{tmp\ 14775}#) + (if #{tmp\ 14775}# + (apply (lambda (#{exp\ 14777}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i9050")) + #("i14776")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i9045")) + #("i14771")) #(ribcage #(k filename) #((top) (top)) - #("i9041" - "i9042")) + #("i14767" + "i14768")) #(ribcage (read-file) ((top)) - ("i9025")) + ("i14751")) #(ribcage #(x) #((top)) - #("i9024"))) + #("i14750"))) (hygiene guile)) - #{exp\ 9051}#)) - #{tmp\ 9049}#) + #{exp\ 14777}#)) + #{tmp\ 14775}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9048}#))) + #{tmp\ 14774}#))) ($sc-dispatch - #{tmp\ 9048}# + #{tmp\ 14774}# 'each-any))) - (#{read-file\ 9026}# - #{fn\ 9046}# - #{k\ 9043}#)))) - #{tmp\ 9040}#) + (#{read-file\ 14752}# + #{fn\ 14772}# + #{k\ 14769}#)))) + #{tmp\ 14766}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9039}#))) - ($sc-dispatch #{tmp\ 9039}# (quote (any any))))) - #{x\ 9023}#))) + #{tmp\ 14765}#))) + ($sc-dispatch #{tmp\ 14765}# (quote (any any))))) + #{x\ 14749}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 9053}#) - ((lambda (#{tmp\ 9055}#) - ((lambda (#{tmp\ 9056}#) - (if #{tmp\ 9056}# - (apply (lambda (#{k\ 9059}# #{filename\ 9060}#) - (let ((#{fn\ 9062}# - (syntax->datum #{filename\ 9060}#))) - ((lambda (#{tmp\ 9064}#) - ((lambda (#{fn\ 9066}#) + (cons (lambda (#{x\ 14779}#) + ((lambda (#{tmp\ 14781}#) + ((lambda (#{tmp\ 14782}#) + (if #{tmp\ 14782}# + (apply (lambda (#{k\ 14785}# #{filename\ 14786}#) + (let ((#{fn\ 14788}# + (syntax->datum #{filename\ 14786}#))) + ((lambda (#{tmp\ 14790}#) + ((lambda (#{fn\ 14792}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i9065")) + #("i14791")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i9061")) + #("i14787")) #(ribcage #(k filename) #((top) (top)) - #("i9057" "i9058")) + #("i14783" "i14784")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9054"))) + #("i14780"))) (hygiene guile)) - #{fn\ 9066}#)) - #{tmp\ 9064}#)) - (let ((#{t\ 9069}# - (%search-load-path #{fn\ 9062}#))) - (if #{t\ 9069}# - #{t\ 9069}# + #{fn\ 14792}#)) + #{tmp\ 14790}#)) + (let ((#{t\ 14795}# + (%search-load-path #{fn\ 14788}#))) + (if #{t\ 14795}# + #{t\ 14795}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 9053}# - #{filename\ 9060}#)))))) - #{tmp\ 9056}#) + #{x\ 14779}# + #{filename\ 14786}#)))))) + #{tmp\ 14782}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9055}#))) - ($sc-dispatch #{tmp\ 9055}# (quote (any any))))) - #{x\ 9053}#)) + #{tmp\ 14781}#))) + ($sc-dispatch #{tmp\ 14781}# (quote (any any))))) + #{x\ 14779}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 9071}#) - ((lambda (#{tmp\ 9073}#) - ((lambda (#{tmp\ 9074}#) - (if #{tmp\ 9074}# - (apply (lambda (#{_\ 9077}# #{e\ 9078}#) + (cons (lambda (#{x\ 14797}#) + ((lambda (#{tmp\ 14799}#) + ((lambda (#{tmp\ 14800}#) + (if #{tmp\ 14800}# + (apply (lambda (#{_\ 14803}# #{e\ 14804}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 9071}#)) - #{tmp\ 9074}#) + #{x\ 14797}#)) + #{tmp\ 14800}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9073}#))) - ($sc-dispatch #{tmp\ 9073}# (quote (any any))))) - #{x\ 9071}#)) + #{tmp\ 14799}#))) + ($sc-dispatch #{tmp\ 14799}# (quote (any any))))) + #{x\ 14797}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 9079}#) - ((lambda (#{tmp\ 9081}#) - ((lambda (#{tmp\ 9082}#) - (if #{tmp\ 9082}# - (apply (lambda (#{_\ 9085}# #{e\ 9086}#) + (cons (lambda (#{x\ 14805}#) + ((lambda (#{tmp\ 14807}#) + ((lambda (#{tmp\ 14808}#) + (if #{tmp\ 14808}# + (apply (lambda (#{_\ 14811}# #{e\ 14812}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 9079}#)) - #{tmp\ 9082}#) + #{x\ 14805}#)) + #{tmp\ 14808}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9081}#))) - ($sc-dispatch #{tmp\ 9081}# (quote (any any))))) - #{x\ 9079}#)) + #{tmp\ 14807}#))) + ($sc-dispatch #{tmp\ 14807}# (quote (any any))))) + #{x\ 14805}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 9087}#) - ((lambda (#{tmp\ 9089}#) - ((lambda (#{tmp\ 9090}#) - (if #{tmp\ 9090}# - (apply (lambda (#{_\ 9095}# - #{e\ 9096}# - #{m1\ 9097}# - #{m2\ 9098}#) - ((lambda (#{tmp\ 9100}#) - ((lambda (#{body\ 9102}#) + (cons (lambda (#{x\ 14813}#) + ((lambda (#{tmp\ 14815}#) + ((lambda (#{tmp\ 14816}#) + (if #{tmp\ 14816}# + (apply (lambda (#{_\ 14821}# + #{e\ 14822}# + #{m1\ 14823}# + #{m2\ 14824}#) + ((lambda (#{tmp\ 14826}#) + ((lambda (#{body\ 14828}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i9101")) + #("i14827")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14638,35 +14815,35 @@ #(ribcage #(body) #((top)) - #("i9101")) + #("i14827")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - #{e\ 9096}#)) - #{body\ 9102}#)) - #{tmp\ 9100}#)) - (letrec ((#{f\ 9106}# - (lambda (#{clause\ 9107}# - #{clauses\ 9108}#) - (if (null? #{clauses\ 9108}#) - ((lambda (#{tmp\ 9110}#) - ((lambda (#{tmp\ 9111}#) - (if #{tmp\ 9111}# - (apply (lambda (#{e1\ 9114}# - #{e2\ 9115}#) + #{e\ 14822}#)) + #{body\ 14828}#)) + #{tmp\ 14826}#)) + (letrec ((#{f\ 14832}# + (lambda (#{clause\ 14833}# + #{clauses\ 14834}#) + (if (null? #{clauses\ 14834}#) + ((lambda (#{tmp\ 14836}#) + ((lambda (#{tmp\ 14837}#) + (if #{tmp\ 14837}# + (apply (lambda (#{e1\ 14840}# + #{e2\ 14841}#) (cons '#(syntax-object begin ((top) @@ -14675,8 +14852,8 @@ e2) #((top) (top)) - #("i9112" - "i9113")) + #("i14838" + "i14839")) #(ribcage () () @@ -14688,9 +14865,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14700,10 +14877,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14711,17 +14888,17 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - (cons #{e1\ 9114}# - #{e2\ 9115}#))) - #{tmp\ 9111}#) - ((lambda (#{tmp\ 9117}#) - (if #{tmp\ 9117}# - (apply (lambda (#{k\ 9121}# - #{e1\ 9122}# - #{e2\ 9123}#) + (cons #{e1\ 14840}# + #{e2\ 14841}#))) + #{tmp\ 14837}#) + ((lambda (#{tmp\ 14843}#) + (if #{tmp\ 14843}# + (apply (lambda (#{k\ 14847}# + #{e1\ 14848}# + #{e2\ 14849}#) (list '#(syntax-object if ((top) @@ -14732,9 +14909,9 @@ #((top) (top) (top)) - #("i9118" - "i9119" - "i9120")) + #("i14844" + "i14845" + "i14846")) #(ribcage () () @@ -14746,9 +14923,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14758,10 +14935,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14769,7 +14946,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) (list '#(syntax-object @@ -14782,9 +14959,9 @@ #((top) (top) (top)) - #("i9118" - "i9119" - "i9120")) + #("i14844" + "i14845" + "i14846")) #(ribcage () () @@ -14796,9 +14973,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14808,10 +14985,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14819,7 +14996,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) '#(syntax-object @@ -14832,9 +15009,9 @@ #((top) (top) (top)) - #("i9118" - "i9119" - "i9120")) + #("i14844" + "i14845" + "i14846")) #(ribcage () () @@ -14846,9 +15023,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14858,10 +15035,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14869,7 +15046,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) (list '#(syntax-object @@ -14882,9 +15059,9 @@ #((top) (top) (top)) - #("i9118" - "i9119" - "i9120")) + #("i14844" + "i14845" + "i14846")) #(ribcage () () @@ -14896,9 +15073,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14908,10 +15085,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14919,10 +15096,10 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - #{k\ 9121}#)) + #{k\ 14847}#)) (cons '#(syntax-object begin ((top) @@ -14933,9 +15110,9 @@ #((top) (top) (top)) - #("i9118" - "i9119" - "i9120")) + #("i14844" + "i14845" + "i14846")) #(ribcage () () @@ -14947,9 +15124,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -14959,10 +15136,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -14970,27 +15147,27 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - (cons #{e1\ 9122}# - #{e2\ 9123}#)))) - #{tmp\ 9117}#) - ((lambda (#{_\ 9127}#) + (cons #{e1\ 14848}# + #{e2\ 14849}#)))) + #{tmp\ 14843}#) + ((lambda (#{_\ 14853}#) (syntax-violation 'case "bad clause" - #{x\ 9087}# - #{clause\ 9107}#)) - #{tmp\ 9110}#))) + #{x\ 14813}# + #{clause\ 14833}#)) + #{tmp\ 14836}#))) ($sc-dispatch - #{tmp\ 9110}# + #{tmp\ 14836}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 9110}# + #{tmp\ 14836}# '(#(free-id #(syntax-object else @@ -15001,37 +15178,37 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile))) any . each-any)))) - #{clause\ 9107}#) - ((lambda (#{tmp\ 9129}#) - ((lambda (#{rest\ 9131}#) - ((lambda (#{tmp\ 9132}#) - ((lambda (#{tmp\ 9133}#) - (if #{tmp\ 9133}# - (apply (lambda (#{k\ 9137}# - #{e1\ 9138}# - #{e2\ 9139}#) + #{clause\ 14833}#) + ((lambda (#{tmp\ 14855}#) + ((lambda (#{rest\ 14857}#) + ((lambda (#{tmp\ 14858}#) + ((lambda (#{tmp\ 14859}#) + (if #{tmp\ 14859}# + (apply (lambda (#{k\ 14863}# + #{e1\ 14864}# + #{e2\ 14865}#) (list '#(syntax-object if ((top) @@ -15042,13 +15219,13 @@ #((top) (top) (top)) - #("i9134" - "i9135" - "i9136")) + #("i14860" + "i14861" + "i14862")) #(ribcage #(rest) #((top)) - #("i9130")) + #("i14856")) #(ribcage () () @@ -15060,9 +15237,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -15072,10 +15249,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -15083,7 +15260,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) (list '#(syntax-object @@ -15096,13 +15273,13 @@ #((top) (top) (top)) - #("i9134" - "i9135" - "i9136")) + #("i14860" + "i14861" + "i14862")) #(ribcage #(rest) #((top)) - #("i9130")) + #("i14856")) #(ribcage () () @@ -15114,9 +15291,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -15126,10 +15303,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -15137,7 +15314,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) '#(syntax-object @@ -15150,13 +15327,13 @@ #((top) (top) (top)) - #("i9134" - "i9135" - "i9136")) + #("i14860" + "i14861" + "i14862")) #(ribcage #(rest) #((top)) - #("i9130")) + #("i14856")) #(ribcage () () @@ -15168,9 +15345,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -15180,10 +15357,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -15191,7 +15368,7 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) (list '#(syntax-object @@ -15204,13 +15381,13 @@ #((top) (top) (top)) - #("i9134" - "i9135" - "i9136")) + #("i14860" + "i14861" + "i14862")) #(ribcage #(rest) #((top)) - #("i9130")) + #("i14856")) #(ribcage () () @@ -15222,9 +15399,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -15234,10 +15411,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -15245,10 +15422,10 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - #{k\ 9137}#)) + #{k\ 14863}#)) (cons '#(syntax-object begin ((top) @@ -15259,13 +15436,13 @@ #((top) (top) (top)) - #("i9134" - "i9135" - "i9136")) + #("i14860" + "i14861" + "i14862")) #(ribcage #(rest) #((top)) - #("i9130")) + #("i14856")) #(ribcage () () @@ -15277,9 +15454,9 @@ #((top) (top) (top)) - #("i9103" - "i9104" - "i9105")) + #("i14829" + "i14830" + "i14831")) #(ribcage #(_ e @@ -15289,10 +15466,10 @@ (top) (top) (top)) - #("i9091" - "i9092" - "i9093" - "i9094")) + #("i14817" + "i14818" + "i14819" + "i14820")) #(ribcage () () @@ -15300,61 +15477,61 @@ #(ribcage #(x) #((top)) - #("i9088"))) + #("i14814"))) (hygiene guile)) - (cons #{e1\ 9138}# - #{e2\ 9139}#)) - #{rest\ 9131}#)) - #{tmp\ 9133}#) - ((lambda (#{_\ 9143}#) + (cons #{e1\ 14864}# + #{e2\ 14865}#)) + #{rest\ 14857}#)) + #{tmp\ 14859}#) + ((lambda (#{_\ 14869}#) (syntax-violation 'case "bad clause" - #{x\ 9087}# - #{clause\ 9107}#)) - #{tmp\ 9132}#))) + #{x\ 14813}# + #{clause\ 14833}#)) + #{tmp\ 14858}#))) ($sc-dispatch - #{tmp\ 9132}# + #{tmp\ 14858}# '(each-any any . each-any)))) - #{clause\ 9107}#)) - #{tmp\ 9129}#)) - (#{f\ 9106}# - (car #{clauses\ 9108}#) - (cdr #{clauses\ 9108}#))))))) - (#{f\ 9106}# #{m1\ 9097}# #{m2\ 9098}#)))) - #{tmp\ 9090}#) + #{clause\ 14833}#)) + #{tmp\ 14855}#)) + (#{f\ 14832}# + (car #{clauses\ 14834}#) + (cdr #{clauses\ 14834}#))))))) + (#{f\ 14832}# #{m1\ 14823}# #{m2\ 14824}#)))) + #{tmp\ 14816}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9089}#))) + #{tmp\ 14815}#))) ($sc-dispatch - #{tmp\ 9089}# + #{tmp\ 14815}# '(any any any . each-any)))) - #{x\ 9087}#)) + #{x\ 14813}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 9144}#) - ((lambda (#{tmp\ 9146}#) - ((lambda (#{tmp\ 9147}#) - (if #{tmp\ 9147}# - (apply (lambda (#{_\ 9150}# #{e\ 9151}#) + (cons (lambda (#{x\ 14870}#) + ((lambda (#{tmp\ 14872}#) + ((lambda (#{tmp\ 14873}#) + (if #{tmp\ 14873}# + (apply (lambda (#{_\ 14876}# #{e\ 14877}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i9145"))) + #(ribcage #(x) #((top)) #("i14871"))) (hygiene guile)) '(#(syntax-object x @@ -15362,9 +15539,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i9145"))) + #(ribcage #(x) #((top)) #("i14871"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -15372,9 +15549,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i9145"))) + #(ribcage #(x) #((top)) #("i14871"))) (hygiene guile)) . #(syntax-object @@ -15383,9 +15560,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i9145"))) + #(ribcage #(x) #((top)) #("i14871"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15393,12 +15570,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) '#(syntax-object x @@ -15406,12 +15583,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) '() (list '#(syntax-object @@ -15420,12 +15597,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15433,12 +15610,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) (#(syntax-object syntax @@ -15446,12 +15623,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) #(syntax-object id @@ -15459,12 +15636,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15472,27 +15649,29 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" + "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) - #{e\ 9151}#)) - (list (cons #{_\ 9150}# + #{e\ 14877}#)) + (list (cons #{_\ 14876}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" + "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) #(syntax-object ... @@ -15500,12 +15679,13 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" + "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15513,14 +15693,15 @@ #(ribcage #(_ e) #((top) (top)) - #("i9148" "i9149")) + #("i14874" + "i14875")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) - (cons #{e\ 9151}# + (cons #{e\ 14877}# '(#(syntax-object x ((top) @@ -15528,8 +15709,8 @@ #(_ e) #((top) (top)) - #("i9148" - "i9149")) + #("i14874" + "i14875")) #(ribcage () () @@ -15537,7 +15718,7 @@ #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile)) #(syntax-object ... @@ -15546,8 +15727,8 @@ #(_ e) #((top) (top)) - #("i9148" - "i9149")) + #("i14874" + "i14875")) #(ribcage () () @@ -15555,72 +15736,72 @@ #(ribcage #(x) #((top)) - #("i9145"))) + #("i14871"))) (hygiene guile))))))))) - #{tmp\ 9147}#) + #{tmp\ 14873}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9146}#))) - ($sc-dispatch #{tmp\ 9146}# (quote (any any))))) - #{x\ 9144}#)) + #{tmp\ 14872}#))) + ($sc-dispatch #{tmp\ 14872}# (quote (any any))))) + #{x\ 14870}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 9152}#) - ((lambda (#{tmp\ 9154}#) - ((lambda (#{tmp\ 9155}#) - (if #{tmp\ 9155}# - (apply (lambda (#{_\ 9161}# - #{id\ 9162}# - #{args\ 9163}# - #{b0\ 9164}# - #{b1\ 9165}#) + (cons (lambda (#{x\ 14878}#) + ((lambda (#{tmp\ 14880}#) + ((lambda (#{tmp\ 14881}#) + (if #{tmp\ 14881}# + (apply (lambda (#{_\ 14887}# + #{id\ 14888}# + #{args\ 14889}# + #{b0\ 14890}# + #{b1\ 14891}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i9156" - "i9157" - "i9158" - "i9159" - "i9160")) + #("i14882" + "i14883" + "i14884" + "i14885" + "i14886")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i9153"))) + #(ribcage #(x) #((top)) #("i14879"))) (hygiene guile)) - #{id\ 9162}# + #{id\ 14888}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i9156" - "i9157" - "i9158" - "i9159" - "i9160")) + #("i14882" + "i14883" + "i14884" + "i14885" + "i14886")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9153"))) + #("i14879"))) (hygiene guile)) - (cons #{args\ 9163}# - (cons #{b0\ 9164}# - #{b1\ 9165}#))))) - #{tmp\ 9155}#) - ((lambda (#{tmp\ 9167}#) - (if (if #{tmp\ 9167}# - (apply (lambda (#{_\ 9171}# - #{id\ 9172}# - #{val\ 9173}#) + (cons #{args\ 14889}# + (cons #{b0\ 14890}# + #{b1\ 14891}#))))) + #{tmp\ 14881}#) + ((lambda (#{tmp\ 14893}#) + (if (if #{tmp\ 14893}# + (apply (lambda (#{_\ 14897}# + #{id\ 14898}# + #{val\ 14899}#) (identifier? '#(syntax-object x @@ -15628,44 +15809,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i9168" "i9169" "i9170")) + #("i14894" "i14895" "i14896")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9153"))) + #("i14879"))) (hygiene guile)))) - #{tmp\ 9167}#) + #{tmp\ 14893}#) #f) - (apply (lambda (#{_\ 9177}# - #{id\ 9178}# - #{val\ 9179}#) + (apply (lambda (#{_\ 14903}# + #{id\ 14904}# + #{val\ 14905}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i9174" "i9175" "i9176")) + #("i14900" "i14901" "i14902")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i9153"))) + #("i14879"))) (hygiene guile)) - #{id\ 9178}# - #{val\ 9179}#)) - #{tmp\ 9167}#) + #{id\ 14904}# + #{val\ 14905}#)) + #{tmp\ 14893}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9154}#))) + #{tmp\ 14880}#))) ($sc-dispatch - #{tmp\ 9154}# + #{tmp\ 14880}# '(any any any))))) ($sc-dispatch - #{tmp\ 9154}# + #{tmp\ 14880}# '(any (any . any) any . each-any)))) - #{x\ 9152}#)) + #{x\ 14878}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 26cd9dd9e..1078e3d1c 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2237,12 +2237,30 @@ (global-extend 'module-ref '@@ (lambda (e r w) + (define remodulate + (lambda (x mod) + (cond ((pair? x) + (cons (remodulate (car x) mod) + (remodulate (cdr x) mod))) + ((syntax-object? x) + (make-syntax-object + (remodulate (syntax-object-expression x) mod) + (syntax-object-wrap x) + ;; hither the remodulation + mod)) + ((vector? x) + (let* ((n (vector-length x)) (v (make-vector n))) + (do ((i 0 (fx+ i 1))) + ((fx= i n) v) + (vector-set! v i (remodulate (vector-ref x i) mod))))) + (else x)))) (syntax-case e () - ((_ (mod ...) id) - (and (and-map id? #'(mod ...)) (id? #'id)) - (values (syntax->datum #'id) r w #f - (syntax->datum - #'(private mod ...))))))) + ((_ (mod ...) exp) + (and-map id? #'(mod ...)) + (let ((mod (syntax->datum #'(private mod ...)))) + (values (remodulate #'exp mod) + r w (source-annotation #'exp) + mod)))))) (global-extend 'core 'if (lambda (e r w s mod)