(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
()
()
(top)
(top)
(top))
- #("i5665"
- "i5666"
- "i5667"
- "i5668"))
+ #("i11367"
+ "i11368"
+ "i11369"
+ "i11370"))
#(ribcage
(check rest
key
(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
(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)
#(a b)
#((top)
(top))
- #("i5780"
- "i5781"))
+ #("i11482"
+ "i11483"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i5770"
- "i5771"
- "i5772"))
+ #("i11472"
+ "i11473"
+ "i11474"))
#(ribcage
(check rest
key
(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
(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
(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)
(top)
(top)
(top))
- #("i6492"
- "i6493"
- "i6494"
- "i6495"
- "i6496"))
+ #("i12194"
+ "i12195"
+ "i12196"
+ "i12197"
+ "i12198"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6439"
- "i6440"
- "i6441"
- "i6442"
- "i6443"
- "i6444"))
+ #("i12141"
+ "i12142"
+ "i12143"
+ "i12144"
+ "i12145"
+ "i12146"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i6431"))
+ #("i12133"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6408"
- "i6409"
- "i6410"
- "i6411"
- "i6412"
- "i6413"
- "i6414"))
+ #("i12110"
+ "i12111"
+ "i12112"
+ "i12113"
+ "i12114"
+ "i12115"
+ "i12116"))
#(ribcage
(lambda-var-list
gen-var
(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)
name)
#((top)
(top))
- #("i6509"
- "i6510"))
+ #("i12211"
+ "i12212"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6439"
- "i6440"
- "i6441"
- "i6442"
- "i6443"
- "i6444"))
+ #("i12141"
+ "i12142"
+ "i12143"
+ "i12144"
+ "i12145"
+ "i12146"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i6431"))
+ #("i12133"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6408"
- "i6409"
- "i6410"
- "i6411"
- "i6412"
- "i6413"
- "i6414"))
+ #("i12110"
+ "i12111"
+ "i12112"
+ "i12113"
+ "i12114"
+ "i12115"
+ "i12116"))
#(ribcage
(lambda-var-list
gen-var
(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
name)
#((top)
(top))
- #("i6509"
- "i6510"))
+ #("i12211"
+ "i12212"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6439"
- "i6440"
- "i6441"
- "i6442"
- "i6443"
- "i6444"))
+ #("i12141"
+ "i12142"
+ "i12143"
+ "i12144"
+ "i12145"
+ "i12146"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i6431"))
+ #("i12133"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6408"
- "i6409"
- "i6410"
- "i6411"
- "i6412"
- "i6413"
- "i6414"))
+ #("i12110"
+ "i12111"
+ "i12112"
+ "i12113"
+ "i12114"
+ "i12115"
+ "i12116"))
#(ribcage
(lambda-var-list
gen-var
(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
name)
#((top)
(top))
- #("i6509"
- "i6510"))
+ #("i12211"
+ "i12212"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6439"
- "i6440"
- "i6441"
- "i6442"
- "i6443"
- "i6444"))
+ #("i12141"
+ "i12142"
+ "i12143"
+ "i12144"
+ "i12145"
+ "i12146"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i6431"))
+ #("i12133"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i6408"
- "i6409"
- "i6410"
- "i6411"
- "i6412"
- "i6413"
- "i6414"))
+ #("i12110"
+ "i12111"
+ "i12112"
+ "i12113"
+ "i12114"
+ "i12115"
+ "i12116"))
#(ribcage
(lambda-var-list
gen-var
(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)
#(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
(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)
#(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
(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)
#(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
(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)
#(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
(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
"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)
(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)
(top)
(top)
(top))
- #("i8050"
- "i8051"
- "i8052"
- "i8053"
- "i8054"))
+ #("i13752"
+ "i13753"
+ "i13754"
+ "i13755"
+ "i13756"))
#(ribcage
(lambda-var-list
gen-var
(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
#(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
(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
(top)
(top)
(top))
- #("i8249"
- "i8250"
- "i8251"
- "i8252"
- "i8253"))
+ #("i13975"
+ "i13976"
+ "i13977"
+ "i13978"
+ "i13979"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i8242"
- "i8240"
- "i8238"
- "i8236"))
+ ("i13968"
+ "i13966"
+ "i13964"
+ "i13962"))
#(ribcage
(lambda-var-list
gen-var
(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)))))))))
(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)
(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)
(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
(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)
(top)
(top)
(top))
- #("i8785"
- "i8786"
- "i8787"
- "i8788"
- "i8789"))
+ #("i14511"
+ "i14512"
+ "i14513"
+ "i14514"
+ "i14515"))
#(ribcage
()
()
#(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
#(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
#(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
#(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
(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
(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)
(top)
(top)
(top))
- #("i8802"
- "i8803"
- "i8804"
- "i8805"
- "i8806"))
+ #("i14528"
+ "i14529"
+ "i14530"
+ "i14531"
+ "i14532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i8799")))
+ #("i14525")))
(hygiene
guile))
- #{tmp\ 8814}#)
+ #{tmp\ 14540}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i8802"
- "i8803"
- "i8804"
- "i8805"
- "i8806"))
+ #("i14528"
+ "i14529"
+ "i14530"
+ "i14531"
+ "i14532"))
#(ribcage
()
()
#(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)
#(ribcage
#(f bindings)
#((top) (top))
- #("i8841" "i8842"))
+ #("i14567" "i14568"))
#(ribcage
#(let* x v e1 e2)
#((top)
(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)
binding)
#((top)
(top))
- #("i8851"
- "i8852"))
+ #("i14577"
+ "i14578"))
#(ribcage
()
()
bindings)
#((top)
(top))
- #("i8841"
- "i8842"))
+ #("i14567"
+ "i14568"))
#(ribcage
#(let*
x
(top)
(top)
(top))
- #("i8831"
- "i8832"
- "i8833"
- "i8834"
- "i8835"))
+ #("i14557"
+ "i14558"
+ "i14559"
+ "i14560"
+ "i14561"))
#(ribcage
()
()
#(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
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
'#(syntax-object
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(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
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
- #{e0\ 8870}#)
+ #{e0\ 14596}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(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
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(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)
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
'#(syntax-object
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
(map list
- #{var\ 8867}#
- #{init\ 8868}#)
+ #{var\ 14593}#
+ #{init\ 14594}#)
(list '#(syntax-object
if
((top)
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
- #{e0\ 8870}#
+ #{e0\ 14596}#
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
- (cons #{e1\ 8887}#
- #{e2\ 8888}#))
+ (cons #{e1\ 14613}#
+ #{e2\ 14614}#))
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i8856")))
+ #("i14582")))
(hygiene
guile))
(append
- #{c\ 8872}#
+ #{c\ 14598}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i8885"
- "i8886"))
+ #("i14611"
+ "i14612"))
#(ribcage
#(step)
#((top))
- #("i8876"))
+ #("i14602"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i8859"
- "i8860"
- "i8861"
- "i8862"
- "i8863"
- "i8864"
- "i8865"))
+ #("i14585"
+ "i14586"
+ "i14587"
+ "i14588"
+ "i14589"
+ "i14590"
+ "i14591"))
#(ribcage
()
()
#(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
()
()
y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(dy)
#((top))
- #("i8929"))
+ #("i14655"))
#(ribcage
#(x y)
#((top)
(top))
- #("i8923"
- "i8924"))
+ #("i14649"
+ "i14650"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
#(x y)
#((top)
(top))
- #("i8918"
- "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(x y)
#((top) (top))
- #("i8923" "i8924"))
+ #("i14649"
+ "i14650"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i8918" "i8919"))
+ #("i14644"
+ "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(x y)
#((top) (top))
- #("i8923" "i8924"))
+ #("i14649" "i14650"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i8918" "i8919"))
+ #("i14644" "i14645"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
#(ribcage
#(x y)
#((top) (top))
- #("i8944"
- "i8945"))
+ #("i14670"
+ "i14671"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(x y)
#((top) (top))
- #("i8949" "i8950"))
+ #("i14675" "i14676"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i8944" "i8945"))
+ #("i14670" "i14671"))
#(ribcage
#(quasicons
quasiappend
(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
(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
()
()
#(ribcage
#(x)
#((top))
- #("i8958"))
+ #("i14684"))
#(ribcage
#(quasicons
quasiappend
(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
(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
#(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
#(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
(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
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i8908"
- "i8909"
- "i8910"
- "i8911")))
+ #("i14634"
+ "i14635"
+ "i14636"
+ "i14637")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i8988"
- "i8989"))
+ #("i14714"
+ "i14715"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(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)
#(args q)
#((top)
(top))
- #("i8997"
- "i8998"))
+ #("i14723"
+ "i14724"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
#(p lev)
#((top)
(top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i8908"
- "i8909"
- "i8910"
- "i8911")))
+ #("i14634"
+ "i14635"
+ "i14636"
+ "i14637")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(p)
#((top))
- #("i9002"))
+ #("i14728"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(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
()
()
lev)
#((top)
(top))
- #("i8976"
- "i8977"))
+ #("i14702"
+ "i14703"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(p lev)
#((top) (top))
- #("i8976" "i8977"))
+ #("i14702" "i14703"))
#(ribcage
#(quasicons
quasiappend
(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
#(ribcage
#(p lev)
#((top) (top))
- #("i8976" "i8977"))
+ #("i14702" "i14703"))
#(ribcage
#(quasicons
quasiappend
(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
#(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
#(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
#(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
#(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)
e2)
#((top)
(top))
- #("i9112"
- "i9113"))
+ #("i14838"
+ "i14839"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(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)
#((top)
(top)
(top))
- #("i9118"
- "i9119"
- "i9120"))
+ #("i14844"
+ "i14845"
+ "i14846"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i9118"
- "i9119"
- "i9120"))
+ #("i14844"
+ "i14845"
+ "i14846"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i9118"
- "i9119"
- "i9120"))
+ #("i14844"
+ "i14845"
+ "i14846"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i9118"
- "i9119"
- "i9120"))
+ #("i14844"
+ "i14845"
+ "i14846"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
- #{k\ 9121}#))
+ #{k\ 14847}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i9118"
- "i9119"
- "i9120"))
+ #("i14844"
+ "i14845"
+ "i14846"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(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
#((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)
#((top)
(top)
(top))
- #("i9134"
- "i9135"
- "i9136"))
+ #("i14860"
+ "i14861"
+ "i14862"))
#(ribcage
#(rest)
#((top))
- #("i9130"))
+ #("i14856"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i9134"
- "i9135"
- "i9136"))
+ #("i14860"
+ "i14861"
+ "i14862"))
#(ribcage
#(rest)
#((top))
- #("i9130"))
+ #("i14856"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i9134"
- "i9135"
- "i9136"))
+ #("i14860"
+ "i14861"
+ "i14862"))
#(ribcage
#(rest)
#((top))
- #("i9130"))
+ #("i14856"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i9134"
- "i9135"
- "i9136"))
+ #("i14860"
+ "i14861"
+ "i14862"))
#(ribcage
#(rest)
#((top))
- #("i9130"))
+ #("i14856"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9088")))
+ #("i14814")))
(hygiene
guile))
- #{k\ 9137}#))
+ #{k\ 14863}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i9134"
- "i9135"
- "i9136"))
+ #("i14860"
+ "i14861"
+ "i14862"))
#(ribcage
#(rest)
#((top))
- #("i9130"))
+ #("i14856"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i9103"
- "i9104"
- "i9105"))
+ #("i14829"
+ "i14830"
+ "i14831"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i9091"
- "i9092"
- "i9093"
- "i9094"))
+ #("i14817"
+ "i14818"
+ "i14819"
+ "i14820"))
#(ribcage
()
()
#(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
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i9145")))
+ #(ribcage #(x) #((top)) #("i14871")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i9145")))
+ #(ribcage #(x) #((top)) #("i14871")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i9145")))
+ #(ribcage #(x) #((top)) #("i14871")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874" "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(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
...
#(ribcage
#(_ e)
#((top) (top))
- #("i9148" "i9149"))
+ #("i14874"
+ "i14875"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(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)
#(_ e)
#((top)
(top))
- #("i9148"
- "i9149"))
+ #("i14874"
+ "i14875"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i9145")))
+ #("i14871")))
(hygiene guile))
#(syntax-object
...
#(_ e)
#((top)
(top))
- #("i9148"
- "i9149"))
+ #("i14874"
+ "i14875"))
#(ribcage
()
()
#(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
#(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)))))
HCoop / bpt / guile.git / commitdiff