(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 26}#
- (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#)
- (let ((#{t\ 200}# (null? #{first\ 193}#)))
- (if #{t\ 200}#
- #{t\ 200}#
- (if (null? #{rest\ 194}#)
- (letrec ((#{andmap\ 204}#
- (lambda (#{first\ 205}#)
- (let ((#{x\ 208}# (car #{first\ 205}#))
- (#{first\ 209}# (cdr #{first\ 205}#)))
- (if (null? #{first\ 209}#)
- (#{f\ 192}# #{x\ 208}#)
- (if (#{f\ 192}# #{x\ 208}#)
- (#{andmap\ 204}# #{first\ 209}#)
+(letrec ((#{and-map*\ 12627}#
+ (lambda (#{f\ 12741}# #{first\ 12742}# . #{rest\ 12743}#)
+ (let ((#{t\ 12749}# (null? #{first\ 12742}#)))
+ (if #{t\ 12749}#
+ #{t\ 12749}#
+ (if (null? #{rest\ 12743}#)
+ (letrec ((#{andmap\ 12753}#
+ (lambda (#{first\ 12754}#)
+ (let ((#{x\ 12757}# (car #{first\ 12754}#))
+ (#{first\ 12758}#
+ (cdr #{first\ 12754}#)))
+ (if (null? #{first\ 12758}#)
+ (#{f\ 12741}# #{x\ 12757}#)
+ (if (#{f\ 12741}# #{x\ 12757}#)
+ (#{andmap\ 12753}# #{first\ 12758}#)
#f))))))
- (#{andmap\ 204}# #{first\ 193}#))
- (letrec ((#{andmap\ 215}#
- (lambda (#{first\ 216}# #{rest\ 217}#)
- (let ((#{x\ 222}# (car #{first\ 216}#))
- (#{xr\ 223}# (map car #{rest\ 217}#))
- (#{first\ 224}# (cdr #{first\ 216}#))
- (#{rest\ 225}# (map cdr #{rest\ 217}#)))
- (if (null? #{first\ 224}#)
- (apply #{f\ 192}#
- (cons #{x\ 222}# #{xr\ 223}#))
- (if (apply #{f\ 192}#
- (cons #{x\ 222}# #{xr\ 223}#))
- (#{andmap\ 215}#
- #{first\ 224}#
- #{rest\ 225}#)
+ (#{andmap\ 12753}# #{first\ 12742}#))
+ (letrec ((#{andmap\ 12764}#
+ (lambda (#{first\ 12765}# #{rest\ 12766}#)
+ (let ((#{x\ 12771}# (car #{first\ 12765}#))
+ (#{xr\ 12772}# (map car #{rest\ 12766}#))
+ (#{first\ 12773}# (cdr #{first\ 12765}#))
+ (#{rest\ 12774}#
+ (map cdr #{rest\ 12766}#)))
+ (if (null? #{first\ 12773}#)
+ (apply #{f\ 12741}#
+ (cons #{x\ 12771}# #{xr\ 12772}#))
+ (if (apply #{f\ 12741}#
+ (cons #{x\ 12771}#
+ #{xr\ 12772}#))
+ (#{andmap\ 12764}#
+ #{first\ 12773}#
+ #{rest\ 12774}#)
#f))))))
- (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#))))))))
- (letrec ((#{lambda-var-list\ 482}#
- (lambda (#{vars\ 814}#)
- (letrec ((#{lvl\ 820}#
- (lambda (#{vars\ 821}# #{ls\ 822}# #{w\ 823}#)
- (if (pair? #{vars\ 821}#)
- (#{lvl\ 820}#
- (cdr #{vars\ 821}#)
- (cons (#{wrap\ 436}#
- (car #{vars\ 821}#)
- #{w\ 823}#
+ (#{andmap\ 12764}#
+ #{first\ 12742}#
+ #{rest\ 12743}#))))))))
+ (letrec ((#{lambda-var-list\ 13031}#
+ (lambda (#{vars\ 13246}#)
+ (letrec ((#{lvl\ 13252}#
+ (lambda (#{vars\ 13253}# #{ls\ 13254}# #{w\ 13255}#)
+ (if (pair? #{vars\ 13253}#)
+ (#{lvl\ 13252}#
+ (cdr #{vars\ 13253}#)
+ (cons (#{wrap\ 12985}#
+ (car #{vars\ 13253}#)
+ #{w\ 13255}#
#f)
- #{ls\ 822}#)
- #{w\ 823}#)
- (if (#{id?\ 367}# #{vars\ 821}#)
- (cons (#{wrap\ 436}#
- #{vars\ 821}#
- #{w\ 823}#
+ #{ls\ 13254}#)
+ #{w\ 13255}#)
+ (if (#{id?\ 12916}# #{vars\ 13253}#)
+ (cons (#{wrap\ 12985}#
+ #{vars\ 13253}#
+ #{w\ 13255}#
#f)
- #{ls\ 822}#)
- (if (null? #{vars\ 821}#)
- #{ls\ 822}#
- (if (#{syntax-object?\ 331}# #{vars\ 821}#)
- (#{lvl\ 820}#
- (#{syntax-object-expression\ 333}#
- #{vars\ 821}#)
- #{ls\ 822}#
- (#{join-wraps\ 418}#
- #{w\ 823}#
- (#{syntax-object-wrap\ 335}#
- #{vars\ 821}#)))
- (cons #{vars\ 821}# #{ls\ 822}#))))))))
- (#{lvl\ 820}#
- #{vars\ 814}#
+ #{ls\ 13254}#)
+ (if (null? #{vars\ 13253}#)
+ #{ls\ 13254}#
+ (if (#{syntax-object?\ 12880}#
+ #{vars\ 13253}#)
+ (#{lvl\ 13252}#
+ (#{syntax-object-expression\ 12882}#
+ #{vars\ 13253}#)
+ #{ls\ 13254}#
+ (#{join-wraps\ 12967}#
+ #{w\ 13255}#
+ (#{syntax-object-wrap\ 12884}#
+ #{vars\ 13253}#)))
+ (cons #{vars\ 13253}# #{ls\ 13254}#))))))))
+ (#{lvl\ 13252}#
+ #{vars\ 13246}#
'()
'(())))))
- (#{gen-var\ 480}#
- (lambda (#{id\ 834}#)
- (let ((#{id\ 837}#
- (if (#{syntax-object?\ 331}# #{id\ 834}#)
- (#{syntax-object-expression\ 333}# #{id\ 834}#)
- #{id\ 834}#)))
+ (#{gen-var\ 13029}#
+ (lambda (#{id\ 13266}#)
+ (let ((#{id\ 13269}#
+ (if (#{syntax-object?\ 12880}# #{id\ 13266}#)
+ (#{syntax-object-expression\ 12882}#
+ #{id\ 13266}#)
+ #{id\ 13266}#)))
(gensym
- (string-append (symbol->string #{id\ 837}#) " ")))))
- (#{strip\ 478}#
- (lambda (#{x\ 839}# #{w\ 840}#)
+ (string-append
+ (symbol->string #{id\ 13269}#)
+ " ")))))
+ (#{strip\ 13027}#
+ (lambda (#{x\ 13271}# #{w\ 13272}#)
(if (memq 'top
- (#{wrap-marks\ 374}# #{w\ 840}#))
- #{x\ 839}#
- (letrec ((#{f\ 846}# (lambda (#{x\ 847}#)
- (if (#{syntax-object?\ 331}#
- #{x\ 847}#)
- (#{strip\ 478}#
- (#{syntax-object-expression\ 333}#
- #{x\ 847}#)
- (#{syntax-object-wrap\ 335}#
- #{x\ 847}#))
- (if (pair? #{x\ 847}#)
- (let ((#{a\ 854}# (#{f\ 846}# (car #{x\ 847}#)))
- (#{d\ 855}# (#{f\ 846}# (cdr #{x\ 847}#))))
- (if (if (eq? #{a\ 854}#
- (car #{x\ 847}#))
- (eq? #{d\ 855}#
- (cdr #{x\ 847}#))
- #f)
- #{x\ 847}#
- (cons #{a\ 854}# #{d\ 855}#)))
- (if (vector? #{x\ 847}#)
- (let ((#{old\ 861}#
- (vector->list
- #{x\ 847}#)))
- (let ((#{new\ 863}#
- (map #{f\ 846}#
- #{old\ 861}#)))
- (if (#{and-map*\ 26}#
- eq?
- #{old\ 861}#
- #{new\ 863}#)
- #{x\ 847}#
- (list->vector
- #{new\ 863}#))))
- #{x\ 847}#))))))
- (#{f\ 846}# #{x\ 839}#)))))
- (#{chi-lambda-case\ 476}#
- (lambda (#{e\ 865}#
- #{r\ 866}#
- #{w\ 867}#
- #{s\ 868}#
- #{mod\ 869}#
- #{get-formals\ 870}#
- #{clauses\ 871}#)
- (letrec ((#{expand-body\ 886}#
- (lambda (#{req\ 887}#
- #{opt\ 888}#
- #{rest\ 889}#
- #{kw\ 890}#
- #{body\ 891}#
- #{vars\ 892}#
- #{r*\ 893}#
- #{w*\ 894}#
- #{inits\ 895}#
- #{meta\ 896}#)
- ((lambda (#{tmp\ 907}#)
- ((lambda (#{tmp\ 908}#)
- (if (if #{tmp\ 908}#
- (apply (lambda (#{docstring\ 912}#
- #{e1\ 913}#
- #{e2\ 914}#)
+ (#{wrap-marks\ 12923}# #{w\ 13272}#))
+ #{x\ 13271}#
+ (letrec ((#{f\ 13278}#
+ (lambda (#{x\ 13279}#)
+ (if (#{syntax-object?\ 12880}# #{x\ 13279}#)
+ (#{strip\ 13027}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 13279}#)
+ (#{syntax-object-wrap\ 12884}# #{x\ 13279}#))
+ (if (pair? #{x\ 13279}#)
+ (let ((#{a\ 13286}#
+ (#{f\ 13278}# (car #{x\ 13279}#)))
+ (#{d\ 13287}#
+ (#{f\ 13278}# (cdr #{x\ 13279}#))))
+ (if (if (eq? #{a\ 13286}#
+ (car #{x\ 13279}#))
+ (eq? #{d\ 13287}# (cdr #{x\ 13279}#))
+ #f)
+ #{x\ 13279}#
+ (cons #{a\ 13286}# #{d\ 13287}#)))
+ (if (vector? #{x\ 13279}#)
+ (let ((#{old\ 13293}#
+ (vector->list #{x\ 13279}#)))
+ (let ((#{new\ 13295}#
+ (map #{f\ 13278}#
+ #{old\ 13293}#)))
+ (if (#{and-map*\ 12627}#
+ eq?
+ #{old\ 13293}#
+ #{new\ 13295}#)
+ #{x\ 13279}#
+ (list->vector #{new\ 13295}#))))
+ #{x\ 13279}#))))))
+ (#{f\ 13278}# #{x\ 13271}#)))))
+ (#{chi-lambda-case\ 13025}#
+ (lambda (#{e\ 13297}#
+ #{r\ 13298}#
+ #{w\ 13299}#
+ #{s\ 13300}#
+ #{mod\ 13301}#
+ #{get-formals\ 13302}#
+ #{clauses\ 13303}#)
+ (letrec ((#{expand-body\ 13318}#
+ (lambda (#{req\ 13319}#
+ #{opt\ 13320}#
+ #{rest\ 13321}#
+ #{kw\ 13322}#
+ #{body\ 13323}#
+ #{vars\ 13324}#
+ #{r*\ 13325}#
+ #{w*\ 13326}#
+ #{inits\ 13327}#
+ #{meta\ 13328}#)
+ ((lambda (#{tmp\ 13339}#)
+ ((lambda (#{tmp\ 13340}#)
+ (if (if #{tmp\ 13340}#
+ (apply (lambda (#{docstring\ 13344}#
+ #{e1\ 13345}#
+ #{e2\ 13346}#)
(string?
(syntax->datum
- #{docstring\ 912}#)))
- #{tmp\ 908}#)
+ #{docstring\ 13344}#)))
+ #{tmp\ 13340}#)
#f)
- (apply (lambda (#{docstring\ 918}#
- #{e1\ 919}#
- #{e2\ 920}#)
- (#{expand-body\ 886}#
- #{req\ 887}#
- #{opt\ 888}#
- #{rest\ 889}#
- #{kw\ 890}#
- (cons #{e1\ 919}# #{e2\ 920}#)
- #{vars\ 892}#
- #{r*\ 893}#
- #{w*\ 894}#
- #{inits\ 895}#
+ (apply (lambda (#{docstring\ 13350}#
+ #{e1\ 13351}#
+ #{e2\ 13352}#)
+ (#{expand-body\ 13318}#
+ #{req\ 13319}#
+ #{opt\ 13320}#
+ #{rest\ 13321}#
+ #{kw\ 13322}#
+ (cons #{e1\ 13351}#
+ #{e2\ 13352}#)
+ #{vars\ 13324}#
+ #{r*\ 13325}#
+ #{w*\ 13326}#
+ #{inits\ 13327}#
(append
- #{meta\ 896}#
+ #{meta\ 13328}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 918}#))))))
- #{tmp\ 908}#)
- ((lambda (#{tmp\ 923}#)
- (if #{tmp\ 923}#
- (apply (lambda (#{k\ 928}#
- #{v\ 929}#
- #{e1\ 930}#
- #{e2\ 931}#)
- (#{expand-body\ 886}#
- #{req\ 887}#
- #{opt\ 888}#
- #{rest\ 889}#
- #{kw\ 890}#
- (cons #{e1\ 930}#
- #{e2\ 931}#)
- #{vars\ 892}#
- #{r*\ 893}#
- #{w*\ 894}#
- #{inits\ 895}#
+ #{docstring\ 13350}#))))))
+ #{tmp\ 13340}#)
+ ((lambda (#{tmp\ 13355}#)
+ (if #{tmp\ 13355}#
+ (apply (lambda (#{k\ 13360}#
+ #{v\ 13361}#
+ #{e1\ 13362}#
+ #{e2\ 13363}#)
+ (#{expand-body\ 13318}#
+ #{req\ 13319}#
+ #{opt\ 13320}#
+ #{rest\ 13321}#
+ #{kw\ 13322}#
+ (cons #{e1\ 13362}#
+ #{e2\ 13363}#)
+ #{vars\ 13324}#
+ #{r*\ 13325}#
+ #{w*\ 13326}#
+ #{inits\ 13327}#
(append
- #{meta\ 896}#
+ #{meta\ 13328}#
(syntax->datum
(map cons
- #{k\ 928}#
- #{v\ 929}#)))))
- #{tmp\ 923}#)
- ((lambda (#{tmp\ 935}#)
- (if #{tmp\ 935}#
- (apply (lambda (#{e1\ 938}#
- #{e2\ 939}#)
+ #{k\ 13360}#
+ #{v\ 13361}#)))))
+ #{tmp\ 13355}#)
+ ((lambda (#{tmp\ 13367}#)
+ (if #{tmp\ 13367}#
+ (apply (lambda (#{e1\ 13370}#
+ #{e2\ 13371}#)
(values
- #{meta\ 896}#
- #{req\ 887}#
- #{opt\ 888}#
- #{rest\ 889}#
- #{kw\ 890}#
- #{inits\ 895}#
- #{vars\ 892}#
- (#{chi-body\ 460}#
- (cons #{e1\ 938}#
- #{e2\ 939}#)
- (#{source-wrap\ 438}#
- #{e\ 865}#
- #{w\ 867}#
- #{s\ 868}#
- #{mod\ 869}#)
- #{r*\ 893}#
- #{w*\ 894}#
- #{mod\ 869}#)))
- #{tmp\ 935}#)
+ #{meta\ 13328}#
+ #{req\ 13319}#
+ #{opt\ 13320}#
+ #{rest\ 13321}#
+ #{kw\ 13322}#
+ #{inits\ 13327}#
+ #{vars\ 13324}#
+ (#{chi-body\ 13009}#
+ (cons #{e1\ 13370}#
+ #{e2\ 13371}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 13297}#
+ #{w\ 13299}#
+ #{s\ 13300}#
+ #{mod\ 13301}#)
+ #{r*\ 13325}#
+ #{w*\ 13326}#
+ #{mod\ 13301}#)))
+ #{tmp\ 13367}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 907}#)))
+ #{tmp\ 13339}#)))
($sc-dispatch
- #{tmp\ 907}#
+ #{tmp\ 13339}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 907}#
+ #{tmp\ 13339}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 907}#
+ #{tmp\ 13339}#
'(any any . each-any))))
- #{body\ 891}#)))
- (#{expand-kw\ 884}#
- (lambda (#{req\ 941}#
- #{opt\ 942}#
- #{rest\ 943}#
- #{kw\ 944}#
- #{body\ 945}#
- #{vars\ 946}#
- #{r*\ 947}#
- #{w*\ 948}#
- #{aok\ 949}#
- #{out\ 950}#
- #{inits\ 951}#)
- (if (pair? #{kw\ 944}#)
- ((lambda (#{tmp\ 965}#)
- ((lambda (#{tmp\ 966}#)
- (if #{tmp\ 966}#
- (apply (lambda (#{k\ 970}#
- #{id\ 971}#
- #{i\ 972}#)
- (let ((#{v\ 975}# (#{gen-var\ 480}#
- #{id\ 971}#)))
- (let ((#{l\ 977}# (#{gen-labels\ 385}#
- (list #{v\ 975}#))))
- (let ((#{r**\ 979}#
- (#{extend-var-env\ 357}#
- #{l\ 977}#
- (list #{v\ 975}#)
- #{r*\ 947}#)))
- (let ((#{w**\ 981}#
- (#{make-binding-wrap\ 414}#
- (list #{id\ 971}#)
- #{l\ 977}#
- #{w*\ 948}#)))
- (#{expand-kw\ 884}#
- #{req\ 941}#
- #{opt\ 942}#
- #{rest\ 943}#
- (cdr #{kw\ 944}#)
- #{body\ 945}#
- (cons #{v\ 975}#
- #{vars\ 946}#)
- #{r**\ 979}#
- #{w**\ 981}#
- #{aok\ 949}#
+ #{body\ 13323}#)))
+ (#{expand-kw\ 13316}#
+ (lambda (#{req\ 13373}#
+ #{opt\ 13374}#
+ #{rest\ 13375}#
+ #{kw\ 13376}#
+ #{body\ 13377}#
+ #{vars\ 13378}#
+ #{r*\ 13379}#
+ #{w*\ 13380}#
+ #{aok\ 13381}#
+ #{out\ 13382}#
+ #{inits\ 13383}#)
+ (if (pair? #{kw\ 13376}#)
+ ((lambda (#{tmp\ 13397}#)
+ ((lambda (#{tmp\ 13398}#)
+ (if #{tmp\ 13398}#
+ (apply (lambda (#{k\ 13402}#
+ #{id\ 13403}#
+ #{i\ 13404}#)
+ (let ((#{v\ 13407}#
+ (#{gen-var\ 13029}#
+ #{id\ 13403}#)))
+ (let ((#{l\ 13409}#
+ (#{gen-labels\ 12934}#
+ (list #{v\ 13407}#))))
+ (let ((#{r**\ 13411}#
+ (#{extend-var-env\ 12906}#
+ #{l\ 13409}#
+ (list #{v\ 13407}#)
+ #{r*\ 13379}#)))
+ (let ((#{w**\ 13413}#
+ (#{make-binding-wrap\ 12963}#
+ (list #{id\ 13403}#)
+ #{l\ 13409}#
+ #{w*\ 13380}#)))
+ (#{expand-kw\ 13316}#
+ #{req\ 13373}#
+ #{opt\ 13374}#
+ #{rest\ 13375}#
+ (cdr #{kw\ 13376}#)
+ #{body\ 13377}#
+ (cons #{v\ 13407}#
+ #{vars\ 13378}#)
+ #{r**\ 13411}#
+ #{w**\ 13413}#
+ #{aok\ 13381}#
(cons (list (syntax->datum
- #{k\ 970}#)
+ #{k\ 13402}#)
(syntax->datum
- #{id\ 971}#)
- #{v\ 975}#)
- #{out\ 950}#)
- (cons (#{chi\ 452}#
- #{i\ 972}#
- #{r*\ 947}#
- #{w*\ 948}#
- #{mod\ 869}#)
- #{inits\ 951}#)))))))
- #{tmp\ 966}#)
+ #{id\ 13403}#)
+ #{v\ 13407}#)
+ #{out\ 13382}#)
+ (cons (#{chi\ 13001}#
+ #{i\ 13404}#
+ #{r*\ 13379}#
+ #{w*\ 13380}#
+ #{mod\ 13301}#)
+ #{inits\ 13383}#)))))))
+ #{tmp\ 13398}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 965}#)))
+ #{tmp\ 13397}#)))
($sc-dispatch
- #{tmp\ 965}#
+ #{tmp\ 13397}#
'(any any any))))
- (car #{kw\ 944}#))
- (#{expand-body\ 886}#
- #{req\ 941}#
- #{opt\ 942}#
- #{rest\ 943}#
- (if (let ((#{t\ 985}# #{aok\ 949}#))
- (if #{t\ 985}#
- #{t\ 985}#
- (pair? #{out\ 950}#)))
- (cons #{aok\ 949}# (reverse #{out\ 950}#))
+ (car #{kw\ 13376}#))
+ (#{expand-body\ 13318}#
+ #{req\ 13373}#
+ #{opt\ 13374}#
+ #{rest\ 13375}#
+ (if (let ((#{t\ 13417}# #{aok\ 13381}#))
+ (if #{t\ 13417}#
+ #{t\ 13417}#
+ (pair? #{out\ 13382}#)))
+ (cons #{aok\ 13381}#
+ (reverse #{out\ 13382}#))
#f)
- #{body\ 945}#
- (reverse #{vars\ 946}#)
- #{r*\ 947}#
- #{w*\ 948}#
- (reverse #{inits\ 951}#)
+ #{body\ 13377}#
+ (reverse #{vars\ 13378}#)
+ #{r*\ 13379}#
+ #{w*\ 13380}#
+ (reverse #{inits\ 13383}#)
'()))))
- (#{expand-opt\ 882}#
- (lambda (#{req\ 987}#
- #{opt\ 988}#
- #{rest\ 989}#
- #{kw\ 990}#
- #{body\ 991}#
- #{vars\ 992}#
- #{r*\ 993}#
- #{w*\ 994}#
- #{out\ 995}#
- #{inits\ 996}#)
- (if (pair? #{opt\ 988}#)
- ((lambda (#{tmp\ 1009}#)
- ((lambda (#{tmp\ 1010}#)
- (if #{tmp\ 1010}#
- (apply (lambda (#{id\ 1013}# #{i\ 1014}#)
- (let ((#{v\ 1017}#
- (#{gen-var\ 480}#
- #{id\ 1013}#)))
- (let ((#{l\ 1019}#
- (#{gen-labels\ 385}#
- (list #{v\ 1017}#))))
- (let ((#{r**\ 1021}#
- (#{extend-var-env\ 357}#
- #{l\ 1019}#
- (list #{v\ 1017}#)
- #{r*\ 993}#)))
- (let ((#{w**\ 1023}#
- (#{make-binding-wrap\ 414}#
- (list #{id\ 1013}#)
- #{l\ 1019}#
- #{w*\ 994}#)))
- (#{expand-opt\ 882}#
- #{req\ 987}#
- (cdr #{opt\ 988}#)
- #{rest\ 989}#
- #{kw\ 990}#
- #{body\ 991}#
- (cons #{v\ 1017}#
- #{vars\ 992}#)
- #{r**\ 1021}#
- #{w**\ 1023}#
+ (#{expand-opt\ 13314}#
+ (lambda (#{req\ 13419}#
+ #{opt\ 13420}#
+ #{rest\ 13421}#
+ #{kw\ 13422}#
+ #{body\ 13423}#
+ #{vars\ 13424}#
+ #{r*\ 13425}#
+ #{w*\ 13426}#
+ #{out\ 13427}#
+ #{inits\ 13428}#)
+ (if (pair? #{opt\ 13420}#)
+ ((lambda (#{tmp\ 13441}#)
+ ((lambda (#{tmp\ 13442}#)
+ (if #{tmp\ 13442}#
+ (apply (lambda (#{id\ 13445}#
+ #{i\ 13446}#)
+ (let ((#{v\ 13449}#
+ (#{gen-var\ 13029}#
+ #{id\ 13445}#)))
+ (let ((#{l\ 13451}#
+ (#{gen-labels\ 12934}#
+ (list #{v\ 13449}#))))
+ (let ((#{r**\ 13453}#
+ (#{extend-var-env\ 12906}#
+ #{l\ 13451}#
+ (list #{v\ 13449}#)
+ #{r*\ 13425}#)))
+ (let ((#{w**\ 13455}#
+ (#{make-binding-wrap\ 12963}#
+ (list #{id\ 13445}#)
+ #{l\ 13451}#
+ #{w*\ 13426}#)))
+ (#{expand-opt\ 13314}#
+ #{req\ 13419}#
+ (cdr #{opt\ 13420}#)
+ #{rest\ 13421}#
+ #{kw\ 13422}#
+ #{body\ 13423}#
+ (cons #{v\ 13449}#
+ #{vars\ 13424}#)
+ #{r**\ 13453}#
+ #{w**\ 13455}#
(cons (syntax->datum
- #{id\ 1013}#)
- #{out\ 995}#)
- (cons (#{chi\ 452}#
- #{i\ 1014}#
- #{r*\ 993}#
- #{w*\ 994}#
- #{mod\ 869}#)
- #{inits\ 996}#)))))))
- #{tmp\ 1010}#)
+ #{id\ 13445}#)
+ #{out\ 13427}#)
+ (cons (#{chi\ 13001}#
+ #{i\ 13446}#
+ #{r*\ 13425}#
+ #{w*\ 13426}#
+ #{mod\ 13301}#)
+ #{inits\ 13428}#)))))))
+ #{tmp\ 13442}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1009}#)))
+ #{tmp\ 13441}#)))
($sc-dispatch
- #{tmp\ 1009}#
+ #{tmp\ 13441}#
'(any any))))
- (car #{opt\ 988}#))
- (if #{rest\ 989}#
- (let ((#{v\ 1028}#
- (#{gen-var\ 480}# #{rest\ 989}#)))
- (let ((#{l\ 1030}#
- (#{gen-labels\ 385}#
- (list #{v\ 1028}#))))
- (let ((#{r*\ 1032}#
- (#{extend-var-env\ 357}#
- #{l\ 1030}#
- (list #{v\ 1028}#)
- #{r*\ 993}#)))
- (let ((#{w*\ 1034}#
- (#{make-binding-wrap\ 414}#
- (list #{rest\ 989}#)
- #{l\ 1030}#
- #{w*\ 994}#)))
- (#{expand-kw\ 884}#
- #{req\ 987}#
- (if (pair? #{out\ 995}#)
- (reverse #{out\ 995}#)
+ (car #{opt\ 13420}#))
+ (if #{rest\ 13421}#
+ (let ((#{v\ 13460}#
+ (#{gen-var\ 13029}# #{rest\ 13421}#)))
+ (let ((#{l\ 13462}#
+ (#{gen-labels\ 12934}#
+ (list #{v\ 13460}#))))
+ (let ((#{r*\ 13464}#
+ (#{extend-var-env\ 12906}#
+ #{l\ 13462}#
+ (list #{v\ 13460}#)
+ #{r*\ 13425}#)))
+ (let ((#{w*\ 13466}#
+ (#{make-binding-wrap\ 12963}#
+ (list #{rest\ 13421}#)
+ #{l\ 13462}#
+ #{w*\ 13426}#)))
+ (#{expand-kw\ 13316}#
+ #{req\ 13419}#
+ (if (pair? #{out\ 13427}#)
+ (reverse #{out\ 13427}#)
#f)
- (syntax->datum #{rest\ 989}#)
- (if (pair? #{kw\ 990}#)
- (cdr #{kw\ 990}#)
- #{kw\ 990}#)
- #{body\ 991}#
- (cons #{v\ 1028}# #{vars\ 992}#)
- #{r*\ 1032}#
- #{w*\ 1034}#
- (if (pair? #{kw\ 990}#)
- (car #{kw\ 990}#)
+ (syntax->datum #{rest\ 13421}#)
+ (if (pair? #{kw\ 13422}#)
+ (cdr #{kw\ 13422}#)
+ #{kw\ 13422}#)
+ #{body\ 13423}#
+ (cons #{v\ 13460}# #{vars\ 13424}#)
+ #{r*\ 13464}#
+ #{w*\ 13466}#
+ (if (pair? #{kw\ 13422}#)
+ (car #{kw\ 13422}#)
#f)
'()
- #{inits\ 996}#)))))
- (#{expand-kw\ 884}#
- #{req\ 987}#
- (if (pair? #{out\ 995}#)
- (reverse #{out\ 995}#)
+ #{inits\ 13428}#)))))
+ (#{expand-kw\ 13316}#
+ #{req\ 13419}#
+ (if (pair? #{out\ 13427}#)
+ (reverse #{out\ 13427}#)
#f)
#f
- (if (pair? #{kw\ 990}#)
- (cdr #{kw\ 990}#)
- #{kw\ 990}#)
- #{body\ 991}#
- #{vars\ 992}#
- #{r*\ 993}#
- #{w*\ 994}#
- (if (pair? #{kw\ 990}#) (car #{kw\ 990}#) #f)
+ (if (pair? #{kw\ 13422}#)
+ (cdr #{kw\ 13422}#)
+ #{kw\ 13422}#)
+ #{body\ 13423}#
+ #{vars\ 13424}#
+ #{r*\ 13425}#
+ #{w*\ 13426}#
+ (if (pair? #{kw\ 13422}#)
+ (car #{kw\ 13422}#)
+ #f)
'()
- #{inits\ 996}#)))))
- (#{expand-req\ 880}#
- (lambda (#{req\ 1036}#
- #{opt\ 1037}#
- #{rest\ 1038}#
- #{kw\ 1039}#
- #{body\ 1040}#)
- (let ((#{vars\ 1048}#
- (map #{gen-var\ 480}# #{req\ 1036}#))
- (#{labels\ 1049}#
- (#{gen-labels\ 385}# #{req\ 1036}#)))
- (let ((#{r*\ 1052}#
- (#{extend-var-env\ 357}#
- #{labels\ 1049}#
- #{vars\ 1048}#
- #{r\ 866}#))
- (#{w*\ 1053}#
- (#{make-binding-wrap\ 414}#
- #{req\ 1036}#
- #{labels\ 1049}#
- #{w\ 867}#)))
- (#{expand-opt\ 882}#
- (map syntax->datum #{req\ 1036}#)
- #{opt\ 1037}#
- #{rest\ 1038}#
- #{kw\ 1039}#
- #{body\ 1040}#
- (reverse #{vars\ 1048}#)
- #{r*\ 1052}#
- #{w*\ 1053}#
+ #{inits\ 13428}#)))))
+ (#{expand-req\ 13312}#
+ (lambda (#{req\ 13468}#
+ #{opt\ 13469}#
+ #{rest\ 13470}#
+ #{kw\ 13471}#
+ #{body\ 13472}#)
+ (let ((#{vars\ 13480}#
+ (map #{gen-var\ 13029}# #{req\ 13468}#))
+ (#{labels\ 13481}#
+ (#{gen-labels\ 12934}# #{req\ 13468}#)))
+ (let ((#{r*\ 13484}#
+ (#{extend-var-env\ 12906}#
+ #{labels\ 13481}#
+ #{vars\ 13480}#
+ #{r\ 13298}#))
+ (#{w*\ 13485}#
+ (#{make-binding-wrap\ 12963}#
+ #{req\ 13468}#
+ #{labels\ 13481}#
+ #{w\ 13299}#)))
+ (#{expand-opt\ 13314}#
+ (map syntax->datum #{req\ 13468}#)
+ #{opt\ 13469}#
+ #{rest\ 13470}#
+ #{kw\ 13471}#
+ #{body\ 13472}#
+ (reverse #{vars\ 13480}#)
+ #{r*\ 13484}#
+ #{w*\ 13485}#
'()
'()))))))
- ((lambda (#{tmp\ 1054}#)
- ((lambda (#{tmp\ 1055}#)
- (if #{tmp\ 1055}#
+ ((lambda (#{tmp\ 13486}#)
+ ((lambda (#{tmp\ 13487}#)
+ (if #{tmp\ 13487}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 1055}#)
- ((lambda (#{tmp\ 1056}#)
- (if #{tmp\ 1056}#
- (apply (lambda (#{args\ 1063}#
- #{e1\ 1064}#
- #{e2\ 1065}#
- #{args*\ 1066}#
- #{e1*\ 1067}#
- #{e2*\ 1068}#)
+ #{tmp\ 13487}#)
+ ((lambda (#{tmp\ 13488}#)
+ (if #{tmp\ 13488}#
+ (apply (lambda (#{args\ 13495}#
+ #{e1\ 13496}#
+ #{e2\ 13497}#
+ #{args*\ 13498}#
+ #{e1*\ 13499}#
+ #{e2*\ 13500}#)
(call-with-values
(lambda ()
- (#{get-formals\ 870}#
- #{args\ 1063}#))
- (lambda (#{req\ 1069}#
- #{opt\ 1070}#
- #{rest\ 1071}#
- #{kw\ 1072}#)
+ (#{get-formals\ 13302}#
+ #{args\ 13495}#))
+ (lambda (#{req\ 13501}#
+ #{opt\ 13502}#
+ #{rest\ 13503}#
+ #{kw\ 13504}#)
(call-with-values
(lambda ()
- (#{expand-req\ 880}#
- #{req\ 1069}#
- #{opt\ 1070}#
- #{rest\ 1071}#
- #{kw\ 1072}#
- (cons #{e1\ 1064}#
- #{e2\ 1065}#)))
- (lambda (#{meta\ 1078}#
- #{req\ 1079}#
- #{opt\ 1080}#
- #{rest\ 1081}#
- #{kw\ 1082}#
- #{inits\ 1083}#
- #{vars\ 1084}#
- #{body\ 1085}#)
+ (#{expand-req\ 13312}#
+ #{req\ 13501}#
+ #{opt\ 13502}#
+ #{rest\ 13503}#
+ #{kw\ 13504}#
+ (cons #{e1\ 13496}#
+ #{e2\ 13497}#)))
+ (lambda (#{meta\ 13510}#
+ #{req\ 13511}#
+ #{opt\ 13512}#
+ #{rest\ 13513}#
+ #{kw\ 13514}#
+ #{inits\ 13515}#
+ #{vars\ 13516}#
+ #{body\ 13517}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 476}#
- #{e\ 865}#
- #{r\ 866}#
- #{w\ 867}#
- #{s\ 868}#
- #{mod\ 869}#
- #{get-formals\ 870}#
- (map (lambda (#{tmp\ 1096}#
- #{tmp\ 1095}#
- #{tmp\ 1094}#)
- (cons #{tmp\ 1094}#
- (cons #{tmp\ 1095}#
- #{tmp\ 1096}#)))
- #{e2*\ 1068}#
- #{e1*\ 1067}#
- #{args*\ 1066}#)))
- (lambda (#{meta*\ 1098}#
- #{else*\ 1099}#)
+ (#{chi-lambda-case\ 13025}#
+ #{e\ 13297}#
+ #{r\ 13298}#
+ #{w\ 13299}#
+ #{s\ 13300}#
+ #{mod\ 13301}#
+ #{get-formals\ 13302}#
+ (map (lambda (#{tmp\ 13528}#
+ #{tmp\ 13527}#
+ #{tmp\ 13526}#)
+ (cons #{tmp\ 13526}#
+ (cons #{tmp\ 13527}#
+ #{tmp\ 13528}#)))
+ #{e2*\ 13500}#
+ #{e1*\ 13499}#
+ #{args*\ 13498}#)))
+ (lambda (#{meta*\ 13530}#
+ #{else*\ 13531}#)
(values
(append
- #{meta\ 1078}#
- #{meta*\ 1098}#)
- (#{build-lambda-case\ 313}#
- #{s\ 868}#
- #{req\ 1079}#
- #{opt\ 1080}#
- #{rest\ 1081}#
- #{kw\ 1082}#
- #{inits\ 1083}#
- #{vars\ 1084}#
- #{body\ 1085}#
- #{else*\ 1099}#)))))))))
- #{tmp\ 1056}#)
+ #{meta\ 13510}#
+ #{meta*\ 13530}#)
+ (#{build-lambda-case\ 12862}#
+ #{s\ 13300}#
+ #{req\ 13511}#
+ #{opt\ 13512}#
+ #{rest\ 13513}#
+ #{kw\ 13514}#
+ #{inits\ 13515}#
+ #{vars\ 13516}#
+ #{body\ 13517}#
+ #{else*\ 13531}#)))))))))
+ #{tmp\ 13488}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1054}#)))
+ #{tmp\ 13486}#)))
($sc-dispatch
- #{tmp\ 1054}#
+ #{tmp\ 13486}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 1054}# (quote ()))))
- #{clauses\ 871}#))))
- (#{lambda*-formals\ 474}#
- (lambda (#{orig-args\ 1102}#)
- (letrec ((#{check\ 1113}#
- (lambda (#{req\ 1114}#
- #{opt\ 1115}#
- #{rest\ 1116}#
- #{kw\ 1117}#)
- (if (#{distinct-bound-ids?\ 432}#
+ ($sc-dispatch #{tmp\ 13486}# (quote ()))))
+ #{clauses\ 13303}#))))
+ (#{lambda*-formals\ 13023}#
+ (lambda (#{orig-args\ 13534}#)
+ (letrec ((#{check\ 13545}#
+ (lambda (#{req\ 13546}#
+ #{opt\ 13547}#
+ #{rest\ 13548}#
+ #{kw\ 13549}#)
+ (if (#{distinct-bound-ids?\ 12981}#
(append
- #{req\ 1114}#
- (map car #{opt\ 1115}#)
- (if #{rest\ 1116}#
- (list #{rest\ 1116}#)
+ #{req\ 13546}#
+ (map car #{opt\ 13547}#)
+ (if #{rest\ 13548}#
+ (list #{rest\ 13548}#)
'())
- (if (pair? #{kw\ 1117}#)
- (map cadr (cdr #{kw\ 1117}#))
+ (if (pair? #{kw\ 13549}#)
+ (map cadr (cdr #{kw\ 13549}#))
'())))
(values
- #{req\ 1114}#
- #{opt\ 1115}#
- #{rest\ 1116}#
- #{kw\ 1117}#)
+ #{req\ 13546}#
+ #{opt\ 13547}#
+ #{rest\ 13548}#
+ #{kw\ 13549}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 1102}#))))
- (#{rest\ 1111}#
- (lambda (#{args\ 1125}#
- #{req\ 1126}#
- #{opt\ 1127}#
- #{kw\ 1128}#)
- ((lambda (#{tmp\ 1133}#)
- ((lambda (#{tmp\ 1134}#)
- (if (if #{tmp\ 1134}#
- (apply (lambda (#{r\ 1136}#)
- (#{id?\ 367}# #{r\ 1136}#))
- #{tmp\ 1134}#)
+ #{orig-args\ 13534}#))))
+ (#{rest\ 13543}#
+ (lambda (#{args\ 13557}#
+ #{req\ 13558}#
+ #{opt\ 13559}#
+ #{kw\ 13560}#)
+ ((lambda (#{tmp\ 13565}#)
+ ((lambda (#{tmp\ 13566}#)
+ (if (if #{tmp\ 13566}#
+ (apply (lambda (#{r\ 13568}#)
+ (#{id?\ 12916}# #{r\ 13568}#))
+ #{tmp\ 13566}#)
#f)
- (apply (lambda (#{r\ 1138}#)
- (#{check\ 1113}#
- #{req\ 1126}#
- #{opt\ 1127}#
- #{r\ 1138}#
- #{kw\ 1128}#))
- #{tmp\ 1134}#)
- ((lambda (#{else\ 1140}#)
+ (apply (lambda (#{r\ 13570}#)
+ (#{check\ 13545}#
+ #{req\ 13558}#
+ #{opt\ 13559}#
+ #{r\ 13570}#
+ #{kw\ 13560}#))
+ #{tmp\ 13566}#)
+ ((lambda (#{else\ 13572}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 1102}#
- #{args\ 1125}#))
- #{tmp\ 1133}#)))
- (list #{tmp\ 1133}#)))
- #{args\ 1125}#)))
- (#{key\ 1109}#
- (lambda (#{args\ 1141}#
- #{req\ 1142}#
- #{opt\ 1143}#
- #{rkey\ 1144}#)
- ((lambda (#{tmp\ 1149}#)
- ((lambda (#{tmp\ 1150}#)
- (if #{tmp\ 1150}#
+ #{orig-args\ 13534}#
+ #{args\ 13557}#))
+ #{tmp\ 13565}#)))
+ (list #{tmp\ 13565}#)))
+ #{args\ 13557}#)))
+ (#{key\ 13541}#
+ (lambda (#{args\ 13573}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
+ #{rkey\ 13576}#)
+ ((lambda (#{tmp\ 13581}#)
+ ((lambda (#{tmp\ 13582}#)
+ (if #{tmp\ 13582}#
(apply (lambda ()
- (#{check\ 1113}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (#{check\ 13545}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
#f
(cons #f
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1150}#)
- ((lambda (#{tmp\ 1151}#)
- (if (if #{tmp\ 1151}#
- (apply (lambda (#{a\ 1154}#
- #{b\ 1155}#)
- (#{id?\ 367}#
- #{a\ 1154}#))
- #{tmp\ 1151}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13582}#)
+ ((lambda (#{tmp\ 13583}#)
+ (if (if #{tmp\ 13583}#
+ (apply (lambda (#{a\ 13586}#
+ #{b\ 13587}#)
+ (#{id?\ 12916}#
+ #{a\ 13586}#))
+ #{tmp\ 13583}#)
#f)
- (apply (lambda (#{a\ 1158}#
- #{b\ 1159}#)
- ((lambda (#{tmp\ 1161}#)
- ((lambda (#{k\ 1163}#)
- (#{key\ 1109}#
- #{b\ 1159}#
- #{req\ 1142}#
- #{opt\ 1143}#
- (cons (cons #{k\ 1163}#
- (cons #{a\ 1158}#
+ (apply (lambda (#{a\ 13590}#
+ #{b\ 13591}#)
+ ((lambda (#{tmp\ 13593}#)
+ ((lambda (#{k\ 13595}#)
+ (#{key\ 13541}#
+ #{b\ 13591}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
+ (cons (cons #{k\ 13595}#
+ (cons #{a\ 13590}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i1162"))
+ #("i13594"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i1156"
- "i1157"))
+ #("i13588"
+ "i13589"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1145"
- "i1146"
- "i1147"
- "i1148"))
+ #("i13577"
+ "i13578"
+ "i13579"
+ "i13580"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i1112"
- "i1110"
- "i1108"
- "i1106"
- "i1104"))
+ ("i13544"
+ "i13542"
+ "i13540"
+ "i13538"
+ "i13536"))
#(ribcage
#(orig-args)
#((top))
- #("i1103"))
+ #("i13535"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile)))))
- #{rkey\ 1144}#)))
- #{tmp\ 1161}#))
+ #{rkey\ 13576}#)))
+ #{tmp\ 13593}#))
(symbol->keyword
(syntax->datum
- #{a\ 1158}#))))
- #{tmp\ 1151}#)
- ((lambda (#{tmp\ 1164}#)
- (if (if #{tmp\ 1164}#
- (apply (lambda (#{a\ 1168}#
- #{init\ 1169}#
- #{b\ 1170}#)
- (#{id?\ 367}#
- #{a\ 1168}#))
- #{tmp\ 1164}#)
+ #{a\ 13590}#))))
+ #{tmp\ 13583}#)
+ ((lambda (#{tmp\ 13596}#)
+ (if (if #{tmp\ 13596}#
+ (apply (lambda (#{a\ 13600}#
+ #{init\ 13601}#
+ #{b\ 13602}#)
+ (#{id?\ 12916}#
+ #{a\ 13600}#))
+ #{tmp\ 13596}#)
#f)
- (apply (lambda (#{a\ 1174}#
- #{init\ 1175}#
- #{b\ 1176}#)
- ((lambda (#{tmp\ 1178}#)
- ((lambda (#{k\ 1180}#)
- (#{key\ 1109}#
- #{b\ 1176}#
- #{req\ 1142}#
- #{opt\ 1143}#
- (cons (list #{k\ 1180}#
- #{a\ 1174}#
- #{init\ 1175}#)
- #{rkey\ 1144}#)))
- #{tmp\ 1178}#))
+ (apply (lambda (#{a\ 13606}#
+ #{init\ 13607}#
+ #{b\ 13608}#)
+ ((lambda (#{tmp\ 13610}#)
+ ((lambda (#{k\ 13612}#)
+ (#{key\ 13541}#
+ #{b\ 13608}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
+ (cons (list #{k\ 13612}#
+ #{a\ 13606}#
+ #{init\ 13607}#)
+ #{rkey\ 13576}#)))
+ #{tmp\ 13610}#))
(symbol->keyword
(syntax->datum
- #{a\ 1174}#))))
- #{tmp\ 1164}#)
- ((lambda (#{tmp\ 1181}#)
- (if (if #{tmp\ 1181}#
- (apply (lambda (#{a\ 1186}#
- #{init\ 1187}#
- #{k\ 1188}#
- #{b\ 1189}#)
- (if (#{id?\ 367}#
- #{a\ 1186}#)
+ #{a\ 13606}#))))
+ #{tmp\ 13596}#)
+ ((lambda (#{tmp\ 13613}#)
+ (if (if #{tmp\ 13613}#
+ (apply (lambda (#{a\ 13618}#
+ #{init\ 13619}#
+ #{k\ 13620}#
+ #{b\ 13621}#)
+ (if (#{id?\ 12916}#
+ #{a\ 13618}#)
(keyword?
(syntax->datum
- #{k\ 1188}#))
+ #{k\ 13620}#))
#f))
- #{tmp\ 1181}#)
+ #{tmp\ 13613}#)
#f)
- (apply (lambda (#{a\ 1196}#
- #{init\ 1197}#
- #{k\ 1198}#
- #{b\ 1199}#)
- (#{key\ 1109}#
- #{b\ 1199}#
- #{req\ 1142}#
- #{opt\ 1143}#
- (cons (list #{k\ 1198}#
- #{a\ 1196}#
- #{init\ 1197}#)
- #{rkey\ 1144}#)))
- #{tmp\ 1181}#)
- ((lambda (#{tmp\ 1200}#)
- (if (if #{tmp\ 1200}#
- (apply (lambda (#{aok\ 1202}#)
+ (apply (lambda (#{a\ 13628}#
+ #{init\ 13629}#
+ #{k\ 13630}#
+ #{b\ 13631}#)
+ (#{key\ 13541}#
+ #{b\ 13631}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
+ (cons (list #{k\ 13630}#
+ #{a\ 13628}#
+ #{init\ 13629}#)
+ #{rkey\ 13576}#)))
+ #{tmp\ 13613}#)
+ ((lambda (#{tmp\ 13632}#)
+ (if (if #{tmp\ 13632}#
+ (apply (lambda (#{aok\ 13634}#)
(eq? (syntax->datum
- #{aok\ 1202}#)
+ #{aok\ 13634}#)
#:allow-other-keys))
- #{tmp\ 1200}#)
+ #{tmp\ 13632}#)
#f)
- (apply (lambda (#{aok\ 1204}#)
- (#{check\ 1113}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (apply (lambda (#{aok\ 13636}#)
+ (#{check\ 13545}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
#f
(cons #t
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1200}#)
- ((lambda (#{tmp\ 1205}#)
- (if (if #{tmp\ 1205}#
- (apply (lambda (#{aok\ 1209}#
- #{a\ 1210}#
- #{b\ 1211}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13632}#)
+ ((lambda (#{tmp\ 13637}#)
+ (if (if #{tmp\ 13637}#
+ (apply (lambda (#{aok\ 13641}#
+ #{a\ 13642}#
+ #{b\ 13643}#)
(if (eq? (syntax->datum
- #{aok\ 1209}#)
+ #{aok\ 13641}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 1210}#)
+ #{a\ 13642}#)
#:rest)
#f))
- #{tmp\ 1205}#)
+ #{tmp\ 13637}#)
#f)
- (apply (lambda (#{aok\ 1217}#
- #{a\ 1218}#
- #{b\ 1219}#)
- (#{rest\ 1111}#
- #{b\ 1219}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (apply (lambda (#{aok\ 13649}#
+ #{a\ 13650}#
+ #{b\ 13651}#)
+ (#{rest\ 13543}#
+ #{b\ 13651}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
(cons #t
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1205}#)
- ((lambda (#{tmp\ 1220}#)
- (if (if #{tmp\ 1220}#
- (apply (lambda (#{aok\ 1223}#
- #{r\ 1224}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13637}#)
+ ((lambda (#{tmp\ 13652}#)
+ (if (if #{tmp\ 13652}#
+ (apply (lambda (#{aok\ 13655}#
+ #{r\ 13656}#)
(if (eq? (syntax->datum
- #{aok\ 1223}#)
+ #{aok\ 13655}#)
#:allow-other-keys)
- (#{id?\ 367}#
- #{r\ 1224}#)
+ (#{id?\ 12916}#
+ #{r\ 13656}#)
#f))
- #{tmp\ 1220}#)
+ #{tmp\ 13652}#)
#f)
- (apply (lambda (#{aok\ 1229}#
- #{r\ 1230}#)
- (#{rest\ 1111}#
- #{r\ 1230}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (apply (lambda (#{aok\ 13661}#
+ #{r\ 13662}#)
+ (#{rest\ 13543}#
+ #{r\ 13662}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
(cons #t
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1220}#)
- ((lambda (#{tmp\ 1231}#)
- (if (if #{tmp\ 1231}#
- (apply (lambda (#{a\ 1234}#
- #{b\ 1235}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13652}#)
+ ((lambda (#{tmp\ 13663}#)
+ (if (if #{tmp\ 13663}#
+ (apply (lambda (#{a\ 13666}#
+ #{b\ 13667}#)
(eq? (syntax->datum
- #{a\ 1234}#)
+ #{a\ 13666}#)
#:rest))
- #{tmp\ 1231}#)
+ #{tmp\ 13663}#)
#f)
- (apply (lambda (#{a\ 1238}#
- #{b\ 1239}#)
- (#{rest\ 1111}#
- #{b\ 1239}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (apply (lambda (#{a\ 13670}#
+ #{b\ 13671}#)
+ (#{rest\ 13543}#
+ #{b\ 13671}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
(cons #f
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1231}#)
- ((lambda (#{tmp\ 1240}#)
- (if (if #{tmp\ 1240}#
- (apply (lambda (#{r\ 1242}#)
- (#{id?\ 367}#
- #{r\ 1242}#))
- #{tmp\ 1240}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13663}#)
+ ((lambda (#{tmp\ 13672}#)
+ (if (if #{tmp\ 13672}#
+ (apply (lambda (#{r\ 13674}#)
+ (#{id?\ 12916}#
+ #{r\ 13674}#))
+ #{tmp\ 13672}#)
#f)
- (apply (lambda (#{r\ 1244}#)
- (#{rest\ 1111}#
- #{r\ 1244}#
- #{req\ 1142}#
- #{opt\ 1143}#
+ (apply (lambda (#{r\ 13676}#)
+ (#{rest\ 13543}#
+ #{r\ 13676}#
+ #{req\ 13574}#
+ #{opt\ 13575}#
(cons #f
(reverse
- #{rkey\ 1144}#))))
- #{tmp\ 1240}#)
- ((lambda (#{else\ 1246}#)
+ #{rkey\ 13576}#))))
+ #{tmp\ 13672}#)
+ ((lambda (#{else\ 13678}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 1102}#
- #{args\ 1141}#))
- #{tmp\ 1149}#)))
- (list #{tmp\ 1149}#))))
+ #{orig-args\ 13534}#
+ #{args\ 13573}#))
+ #{tmp\ 13581}#)))
+ (list #{tmp\ 13581}#))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'(any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1149}#
+ #{tmp\ 13581}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1149}# (quote ()))))
- #{args\ 1141}#)))
- (#{opt\ 1107}#
- (lambda (#{args\ 1247}# #{req\ 1248}# #{ropt\ 1249}#)
- ((lambda (#{tmp\ 1253}#)
- ((lambda (#{tmp\ 1254}#)
- (if #{tmp\ 1254}#
+ ($sc-dispatch #{tmp\ 13581}# (quote ()))))
+ #{args\ 13573}#)))
+ (#{opt\ 13539}#
+ (lambda (#{args\ 13679}#
+ #{req\ 13680}#
+ #{ropt\ 13681}#)
+ ((lambda (#{tmp\ 13685}#)
+ ((lambda (#{tmp\ 13686}#)
+ (if #{tmp\ 13686}#
(apply (lambda ()
- (#{check\ 1113}#
- #{req\ 1248}#
- (reverse #{ropt\ 1249}#)
+ (#{check\ 13545}#
+ #{req\ 13680}#
+ (reverse #{ropt\ 13681}#)
#f
'()))
- #{tmp\ 1254}#)
- ((lambda (#{tmp\ 1255}#)
- (if (if #{tmp\ 1255}#
- (apply (lambda (#{a\ 1258}#
- #{b\ 1259}#)
- (#{id?\ 367}#
- #{a\ 1258}#))
- #{tmp\ 1255}#)
+ #{tmp\ 13686}#)
+ ((lambda (#{tmp\ 13687}#)
+ (if (if #{tmp\ 13687}#
+ (apply (lambda (#{a\ 13690}#
+ #{b\ 13691}#)
+ (#{id?\ 12916}#
+ #{a\ 13690}#))
+ #{tmp\ 13687}#)
#f)
- (apply (lambda (#{a\ 1262}#
- #{b\ 1263}#)
- (#{opt\ 1107}#
- #{b\ 1263}#
- #{req\ 1248}#
- (cons (cons #{a\ 1262}#
+ (apply (lambda (#{a\ 13694}#
+ #{b\ 13695}#)
+ (#{opt\ 13539}#
+ #{b\ 13695}#
+ #{req\ 13680}#
+ (cons (cons #{a\ 13694}#
'(#(syntax-object
#f
((top)
#(a b)
#((top)
(top))
- #("i1260"
- "i1261"))
+ #("i13692"
+ "i13693"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i1250"
- "i1251"
- "i1252"))
+ #("i13682"
+ "i13683"
+ "i13684"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i1112"
- "i1110"
- "i1108"
- "i1106"
- "i1104"))
+ ("i13544"
+ "i13542"
+ "i13540"
+ "i13538"
+ "i13536"))
#(ribcage
#(orig-args)
#((top))
- #("i1103"))
+ #("i13535"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile))))
- #{ropt\ 1249}#)))
- #{tmp\ 1255}#)
- ((lambda (#{tmp\ 1264}#)
- (if (if #{tmp\ 1264}#
- (apply (lambda (#{a\ 1268}#
- #{init\ 1269}#
- #{b\ 1270}#)
- (#{id?\ 367}#
- #{a\ 1268}#))
- #{tmp\ 1264}#)
+ #{ropt\ 13681}#)))
+ #{tmp\ 13687}#)
+ ((lambda (#{tmp\ 13696}#)
+ (if (if #{tmp\ 13696}#
+ (apply (lambda (#{a\ 13700}#
+ #{init\ 13701}#
+ #{b\ 13702}#)
+ (#{id?\ 12916}#
+ #{a\ 13700}#))
+ #{tmp\ 13696}#)
#f)
- (apply (lambda (#{a\ 1274}#
- #{init\ 1275}#
- #{b\ 1276}#)
- (#{opt\ 1107}#
- #{b\ 1276}#
- #{req\ 1248}#
- (cons (list #{a\ 1274}#
- #{init\ 1275}#)
- #{ropt\ 1249}#)))
- #{tmp\ 1264}#)
- ((lambda (#{tmp\ 1277}#)
- (if (if #{tmp\ 1277}#
- (apply (lambda (#{a\ 1280}#
- #{b\ 1281}#)
+ (apply (lambda (#{a\ 13706}#
+ #{init\ 13707}#
+ #{b\ 13708}#)
+ (#{opt\ 13539}#
+ #{b\ 13708}#
+ #{req\ 13680}#
+ (cons (list #{a\ 13706}#
+ #{init\ 13707}#)
+ #{ropt\ 13681}#)))
+ #{tmp\ 13696}#)
+ ((lambda (#{tmp\ 13709}#)
+ (if (if #{tmp\ 13709}#
+ (apply (lambda (#{a\ 13712}#
+ #{b\ 13713}#)
(eq? (syntax->datum
- #{a\ 1280}#)
+ #{a\ 13712}#)
#:key))
- #{tmp\ 1277}#)
+ #{tmp\ 13709}#)
#f)
- (apply (lambda (#{a\ 1284}#
- #{b\ 1285}#)
- (#{key\ 1109}#
- #{b\ 1285}#
- #{req\ 1248}#
+ (apply (lambda (#{a\ 13716}#
+ #{b\ 13717}#)
+ (#{key\ 13541}#
+ #{b\ 13717}#
+ #{req\ 13680}#
(reverse
- #{ropt\ 1249}#)
+ #{ropt\ 13681}#)
'()))
- #{tmp\ 1277}#)
- ((lambda (#{tmp\ 1286}#)
- (if (if #{tmp\ 1286}#
- (apply (lambda (#{a\ 1289}#
- #{b\ 1290}#)
+ #{tmp\ 13709}#)
+ ((lambda (#{tmp\ 13718}#)
+ (if (if #{tmp\ 13718}#
+ (apply (lambda (#{a\ 13721}#
+ #{b\ 13722}#)
(eq? (syntax->datum
- #{a\ 1289}#)
+ #{a\ 13721}#)
#:rest))
- #{tmp\ 1286}#)
+ #{tmp\ 13718}#)
#f)
- (apply (lambda (#{a\ 1293}#
- #{b\ 1294}#)
- (#{rest\ 1111}#
- #{b\ 1294}#
- #{req\ 1248}#
+ (apply (lambda (#{a\ 13725}#
+ #{b\ 13726}#)
+ (#{rest\ 13543}#
+ #{b\ 13726}#
+ #{req\ 13680}#
(reverse
- #{ropt\ 1249}#)
+ #{ropt\ 13681}#)
'()))
- #{tmp\ 1286}#)
- ((lambda (#{tmp\ 1295}#)
- (if (if #{tmp\ 1295}#
- (apply (lambda (#{r\ 1297}#)
- (#{id?\ 367}#
- #{r\ 1297}#))
- #{tmp\ 1295}#)
+ #{tmp\ 13718}#)
+ ((lambda (#{tmp\ 13727}#)
+ (if (if #{tmp\ 13727}#
+ (apply (lambda (#{r\ 13729}#)
+ (#{id?\ 12916}#
+ #{r\ 13729}#))
+ #{tmp\ 13727}#)
#f)
- (apply (lambda (#{r\ 1299}#)
- (#{rest\ 1111}#
- #{r\ 1299}#
- #{req\ 1248}#
+ (apply (lambda (#{r\ 13731}#)
+ (#{rest\ 13543}#
+ #{r\ 13731}#
+ #{req\ 13680}#
(reverse
- #{ropt\ 1249}#)
+ #{ropt\ 13681}#)
'()))
- #{tmp\ 1295}#)
- ((lambda (#{else\ 1301}#)
+ #{tmp\ 13727}#)
+ ((lambda (#{else\ 13733}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 1102}#
- #{args\ 1247}#))
- #{tmp\ 1253}#)))
- (list #{tmp\ 1253}#))))
+ #{orig-args\ 13534}#
+ #{args\ 13679}#))
+ #{tmp\ 13685}#)))
+ (list #{tmp\ 13685}#))))
($sc-dispatch
- #{tmp\ 1253}#
+ #{tmp\ 13685}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1253}#
+ #{tmp\ 13685}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1253}#
+ #{tmp\ 13685}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1253}#
+ #{tmp\ 13685}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1253}# (quote ()))))
- #{args\ 1247}#)))
- (#{req\ 1105}#
- (lambda (#{args\ 1302}# #{rreq\ 1303}#)
- ((lambda (#{tmp\ 1306}#)
- ((lambda (#{tmp\ 1307}#)
- (if #{tmp\ 1307}#
+ ($sc-dispatch #{tmp\ 13685}# (quote ()))))
+ #{args\ 13679}#)))
+ (#{req\ 13537}#
+ (lambda (#{args\ 13734}# #{rreq\ 13735}#)
+ ((lambda (#{tmp\ 13738}#)
+ ((lambda (#{tmp\ 13739}#)
+ (if #{tmp\ 13739}#
(apply (lambda ()
- (#{check\ 1113}#
- (reverse #{rreq\ 1303}#)
+ (#{check\ 13545}#
+ (reverse #{rreq\ 13735}#)
'()
#f
'()))
- #{tmp\ 1307}#)
- ((lambda (#{tmp\ 1308}#)
- (if (if #{tmp\ 1308}#
- (apply (lambda (#{a\ 1311}#
- #{b\ 1312}#)
- (#{id?\ 367}#
- #{a\ 1311}#))
- #{tmp\ 1308}#)
+ #{tmp\ 13739}#)
+ ((lambda (#{tmp\ 13740}#)
+ (if (if #{tmp\ 13740}#
+ (apply (lambda (#{a\ 13743}#
+ #{b\ 13744}#)
+ (#{id?\ 12916}#
+ #{a\ 13743}#))
+ #{tmp\ 13740}#)
#f)
- (apply (lambda (#{a\ 1315}#
- #{b\ 1316}#)
- (#{req\ 1105}#
- #{b\ 1316}#
- (cons #{a\ 1315}#
- #{rreq\ 1303}#)))
- #{tmp\ 1308}#)
- ((lambda (#{tmp\ 1317}#)
- (if (if #{tmp\ 1317}#
- (apply (lambda (#{a\ 1320}#
- #{b\ 1321}#)
+ (apply (lambda (#{a\ 13747}#
+ #{b\ 13748}#)
+ (#{req\ 13537}#
+ #{b\ 13748}#
+ (cons #{a\ 13747}#
+ #{rreq\ 13735}#)))
+ #{tmp\ 13740}#)
+ ((lambda (#{tmp\ 13749}#)
+ (if (if #{tmp\ 13749}#
+ (apply (lambda (#{a\ 13752}#
+ #{b\ 13753}#)
(eq? (syntax->datum
- #{a\ 1320}#)
+ #{a\ 13752}#)
#:optional))
- #{tmp\ 1317}#)
+ #{tmp\ 13749}#)
#f)
- (apply (lambda (#{a\ 1324}#
- #{b\ 1325}#)
- (#{opt\ 1107}#
- #{b\ 1325}#
+ (apply (lambda (#{a\ 13756}#
+ #{b\ 13757}#)
+ (#{opt\ 13539}#
+ #{b\ 13757}#
(reverse
- #{rreq\ 1303}#)
+ #{rreq\ 13735}#)
'()))
- #{tmp\ 1317}#)
- ((lambda (#{tmp\ 1326}#)
- (if (if #{tmp\ 1326}#
- (apply (lambda (#{a\ 1329}#
- #{b\ 1330}#)
+ #{tmp\ 13749}#)
+ ((lambda (#{tmp\ 13758}#)
+ (if (if #{tmp\ 13758}#
+ (apply (lambda (#{a\ 13761}#
+ #{b\ 13762}#)
(eq? (syntax->datum
- #{a\ 1329}#)
+ #{a\ 13761}#)
#:key))
- #{tmp\ 1326}#)
+ #{tmp\ 13758}#)
#f)
- (apply (lambda (#{a\ 1333}#
- #{b\ 1334}#)
- (#{key\ 1109}#
- #{b\ 1334}#
+ (apply (lambda (#{a\ 13765}#
+ #{b\ 13766}#)
+ (#{key\ 13541}#
+ #{b\ 13766}#
(reverse
- #{rreq\ 1303}#)
+ #{rreq\ 13735}#)
'()
'()))
- #{tmp\ 1326}#)
- ((lambda (#{tmp\ 1335}#)
- (if (if #{tmp\ 1335}#
- (apply (lambda (#{a\ 1338}#
- #{b\ 1339}#)
+ #{tmp\ 13758}#)
+ ((lambda (#{tmp\ 13767}#)
+ (if (if #{tmp\ 13767}#
+ (apply (lambda (#{a\ 13770}#
+ #{b\ 13771}#)
(eq? (syntax->datum
- #{a\ 1338}#)
+ #{a\ 13770}#)
#:rest))
- #{tmp\ 1335}#)
+ #{tmp\ 13767}#)
#f)
- (apply (lambda (#{a\ 1342}#
- #{b\ 1343}#)
- (#{rest\ 1111}#
- #{b\ 1343}#
+ (apply (lambda (#{a\ 13774}#
+ #{b\ 13775}#)
+ (#{rest\ 13543}#
+ #{b\ 13775}#
(reverse
- #{rreq\ 1303}#)
+ #{rreq\ 13735}#)
'()
'()))
- #{tmp\ 1335}#)
- ((lambda (#{tmp\ 1344}#)
- (if (if #{tmp\ 1344}#
- (apply (lambda (#{r\ 1346}#)
- (#{id?\ 367}#
- #{r\ 1346}#))
- #{tmp\ 1344}#)
+ #{tmp\ 13767}#)
+ ((lambda (#{tmp\ 13776}#)
+ (if (if #{tmp\ 13776}#
+ (apply (lambda (#{r\ 13778}#)
+ (#{id?\ 12916}#
+ #{r\ 13778}#))
+ #{tmp\ 13776}#)
#f)
- (apply (lambda (#{r\ 1348}#)
- (#{rest\ 1111}#
- #{r\ 1348}#
+ (apply (lambda (#{r\ 13780}#)
+ (#{rest\ 13543}#
+ #{r\ 13780}#
(reverse
- #{rreq\ 1303}#)
+ #{rreq\ 13735}#)
'()
'()))
- #{tmp\ 1344}#)
- ((lambda (#{else\ 1350}#)
+ #{tmp\ 13776}#)
+ ((lambda (#{else\ 13782}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 1102}#
- #{args\ 1302}#))
- #{tmp\ 1306}#)))
- (list #{tmp\ 1306}#))))
+ #{orig-args\ 13534}#
+ #{args\ 13734}#))
+ #{tmp\ 13738}#)))
+ (list #{tmp\ 13738}#))))
($sc-dispatch
- #{tmp\ 1306}#
+ #{tmp\ 13738}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1306}#
+ #{tmp\ 13738}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1306}#
+ #{tmp\ 13738}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1306}#
+ #{tmp\ 13738}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1306}# (quote ()))))
- #{args\ 1302}#))))
- (#{req\ 1105}# #{orig-args\ 1102}# (quote ())))))
- (#{chi-simple-lambda\ 472}#
- (lambda (#{e\ 1351}#
- #{r\ 1352}#
- #{w\ 1353}#
- #{s\ 1354}#
- #{mod\ 1355}#
- #{req\ 1356}#
- #{rest\ 1357}#
- #{meta\ 1358}#
- #{body\ 1359}#)
- (let ((#{ids\ 1371}#
- (if #{rest\ 1357}#
- (append #{req\ 1356}# (list #{rest\ 1357}#))
- #{req\ 1356}#)))
- (let ((#{vars\ 1373}#
- (map #{gen-var\ 480}# #{ids\ 1371}#)))
- (let ((#{labels\ 1375}#
- (#{gen-labels\ 385}# #{ids\ 1371}#)))
- (#{build-simple-lambda\ 309}#
- #{s\ 1354}#
- (map syntax->datum #{req\ 1356}#)
- (if #{rest\ 1357}#
- (syntax->datum #{rest\ 1357}#)
+ ($sc-dispatch #{tmp\ 13738}# (quote ()))))
+ #{args\ 13734}#))))
+ (#{req\ 13537}# #{orig-args\ 13534}# (quote ())))))
+ (#{chi-simple-lambda\ 13021}#
+ (lambda (#{e\ 13783}#
+ #{r\ 13784}#
+ #{w\ 13785}#
+ #{s\ 13786}#
+ #{mod\ 13787}#
+ #{req\ 13788}#
+ #{rest\ 13789}#
+ #{meta\ 13790}#
+ #{body\ 13791}#)
+ (let ((#{ids\ 13803}#
+ (if #{rest\ 13789}#
+ (append #{req\ 13788}# (list #{rest\ 13789}#))
+ #{req\ 13788}#)))
+ (let ((#{vars\ 13805}#
+ (map #{gen-var\ 13029}# #{ids\ 13803}#)))
+ (let ((#{labels\ 13807}#
+ (#{gen-labels\ 12934}# #{ids\ 13803}#)))
+ (#{build-simple-lambda\ 12858}#
+ #{s\ 13786}#
+ (map syntax->datum #{req\ 13788}#)
+ (if #{rest\ 13789}#
+ (syntax->datum #{rest\ 13789}#)
#f)
- #{vars\ 1373}#
- #{meta\ 1358}#
- (#{chi-body\ 460}#
- #{body\ 1359}#
- (#{source-wrap\ 438}#
- #{e\ 1351}#
- #{w\ 1353}#
- #{s\ 1354}#
- #{mod\ 1355}#)
- (#{extend-var-env\ 357}#
- #{labels\ 1375}#
- #{vars\ 1373}#
- #{r\ 1352}#)
- (#{make-binding-wrap\ 414}#
- #{ids\ 1371}#
- #{labels\ 1375}#
- #{w\ 1353}#)
- #{mod\ 1355}#)))))))
- (#{lambda-formals\ 470}#
- (lambda (#{orig-args\ 1378}#)
- (letrec ((#{check\ 1383}#
- (lambda (#{req\ 1384}# #{rest\ 1385}#)
- (if (#{distinct-bound-ids?\ 432}#
- (if #{rest\ 1385}#
- (cons #{rest\ 1385}# #{req\ 1384}#)
- #{req\ 1384}#))
- (values #{req\ 1384}# #f #{rest\ 1385}# #f)
+ #{vars\ 13805}#
+ #{meta\ 13790}#
+ (#{chi-body\ 13009}#
+ #{body\ 13791}#
+ (#{source-wrap\ 12987}#
+ #{e\ 13783}#
+ #{w\ 13785}#
+ #{s\ 13786}#
+ #{mod\ 13787}#)
+ (#{extend-var-env\ 12906}#
+ #{labels\ 13807}#
+ #{vars\ 13805}#
+ #{r\ 13784}#)
+ (#{make-binding-wrap\ 12963}#
+ #{ids\ 13803}#
+ #{labels\ 13807}#
+ #{w\ 13785}#)
+ #{mod\ 13787}#)))))))
+ (#{lambda-formals\ 13019}#
+ (lambda (#{orig-args\ 13810}#)
+ (letrec ((#{check\ 13815}#
+ (lambda (#{req\ 13816}# #{rest\ 13817}#)
+ (if (#{distinct-bound-ids?\ 12981}#
+ (if #{rest\ 13817}#
+ (cons #{rest\ 13817}# #{req\ 13816}#)
+ #{req\ 13816}#))
+ (values #{req\ 13816}# #f #{rest\ 13817}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1378}#))))
- (#{req\ 1381}#
- (lambda (#{args\ 1391}# #{rreq\ 1392}#)
- ((lambda (#{tmp\ 1395}#)
- ((lambda (#{tmp\ 1396}#)
- (if #{tmp\ 1396}#
+ #{orig-args\ 13810}#))))
+ (#{req\ 13813}#
+ (lambda (#{args\ 13823}# #{rreq\ 13824}#)
+ ((lambda (#{tmp\ 13827}#)
+ ((lambda (#{tmp\ 13828}#)
+ (if #{tmp\ 13828}#
(apply (lambda ()
- (#{check\ 1383}#
- (reverse #{rreq\ 1392}#)
+ (#{check\ 13815}#
+ (reverse #{rreq\ 13824}#)
#f))
- #{tmp\ 1396}#)
- ((lambda (#{tmp\ 1397}#)
- (if (if #{tmp\ 1397}#
- (apply (lambda (#{a\ 1400}#
- #{b\ 1401}#)
- (#{id?\ 367}#
- #{a\ 1400}#))
- #{tmp\ 1397}#)
+ #{tmp\ 13828}#)
+ ((lambda (#{tmp\ 13829}#)
+ (if (if #{tmp\ 13829}#
+ (apply (lambda (#{a\ 13832}#
+ #{b\ 13833}#)
+ (#{id?\ 12916}#
+ #{a\ 13832}#))
+ #{tmp\ 13829}#)
#f)
- (apply (lambda (#{a\ 1404}#
- #{b\ 1405}#)
- (#{req\ 1381}#
- #{b\ 1405}#
- (cons #{a\ 1404}#
- #{rreq\ 1392}#)))
- #{tmp\ 1397}#)
- ((lambda (#{tmp\ 1406}#)
- (if (if #{tmp\ 1406}#
- (apply (lambda (#{r\ 1408}#)
- (#{id?\ 367}#
- #{r\ 1408}#))
- #{tmp\ 1406}#)
+ (apply (lambda (#{a\ 13836}#
+ #{b\ 13837}#)
+ (#{req\ 13813}#
+ #{b\ 13837}#
+ (cons #{a\ 13836}#
+ #{rreq\ 13824}#)))
+ #{tmp\ 13829}#)
+ ((lambda (#{tmp\ 13838}#)
+ (if (if #{tmp\ 13838}#
+ (apply (lambda (#{r\ 13840}#)
+ (#{id?\ 12916}#
+ #{r\ 13840}#))
+ #{tmp\ 13838}#)
#f)
- (apply (lambda (#{r\ 1410}#)
- (#{check\ 1383}#
+ (apply (lambda (#{r\ 13842}#)
+ (#{check\ 13815}#
(reverse
- #{rreq\ 1392}#)
- #{r\ 1410}#))
- #{tmp\ 1406}#)
- ((lambda (#{else\ 1412}#)
+ #{rreq\ 13824}#)
+ #{r\ 13842}#))
+ #{tmp\ 13838}#)
+ ((lambda (#{else\ 13844}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1378}#
- #{args\ 1391}#))
- #{tmp\ 1395}#)))
- (list #{tmp\ 1395}#))))
+ #{orig-args\ 13810}#
+ #{args\ 13823}#))
+ #{tmp\ 13827}#)))
+ (list #{tmp\ 13827}#))))
($sc-dispatch
- #{tmp\ 1395}#
+ #{tmp\ 13827}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1395}# (quote ()))))
- #{args\ 1391}#))))
- (#{req\ 1381}# #{orig-args\ 1378}# (quote ())))))
- (#{ellipsis?\ 468}#
- (lambda (#{x\ 1413}#)
- (if (#{nonsymbol-id?\ 365}# #{x\ 1413}#)
- (#{free-id=?\ 426}#
- #{x\ 1413}#
+ ($sc-dispatch #{tmp\ 13827}# (quote ()))))
+ #{args\ 13823}#))))
+ (#{req\ 13813}# #{orig-args\ 13810}# (quote ())))))
+ (#{ellipsis?\ 13017}#
+ (lambda (#{x\ 13845}#)
+ (if (#{nonsymbol-id?\ 12914}# #{x\ 13845}#)
+ (#{free-id=?\ 12975}#
+ #{x\ 13845}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1414"))
+ #(ribcage #(x) #((top)) #("i13846"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629" "i12628" "i12626")))
(hygiene guile)))
#f)))
- (#{chi-void\ 466}#
- (lambda () (#{build-void\ 287}# #f)))
- (#{eval-local-transformer\ 464}#
- (lambda (#{expanded\ 1418}# #{mod\ 1419}#)
- (let ((#{p\ 1423}#
- (#{local-eval-hook\ 278}#
- #{expanded\ 1418}#
- #{mod\ 1419}#)))
- (if (procedure? #{p\ 1423}#)
- (cons #{p\ 1423}# (module-name (current-module)))
+ (#{chi-void\ 13015}#
+ (lambda () (#{build-void\ 12836}# #f)))
+ (#{eval-local-transformer\ 13013}#
+ (lambda (#{expanded\ 13850}# #{mod\ 13851}#)
+ (let ((#{p\ 13855}#
+ (#{local-eval-hook\ 12827}#
+ #{expanded\ 13850}#
+ #{mod\ 13851}#)))
+ (if (procedure? #{p\ 13855}#)
+ (cons #{p\ 13855}#
+ (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1423}#)))))
- (#{chi-local-syntax\ 462}#
- (lambda (#{rec?\ 1424}#
- #{e\ 1425}#
- #{r\ 1426}#
- #{w\ 1427}#
- #{s\ 1428}#
- #{mod\ 1429}#
- #{k\ 1430}#)
- ((lambda (#{tmp\ 1438}#)
- ((lambda (#{tmp\ 1439}#)
- (if #{tmp\ 1439}#
- (apply (lambda (#{_\ 1445}#
- #{id\ 1446}#
- #{val\ 1447}#
- #{e1\ 1448}#
- #{e2\ 1449}#)
- (let ((#{ids\ 1451}# #{id\ 1446}#))
- (if (not (#{valid-bound-ids?\ 430}#
- #{ids\ 1451}#))
+ #{p\ 13855}#)))))
+ (#{chi-local-syntax\ 13011}#
+ (lambda (#{rec?\ 13856}#
+ #{e\ 13857}#
+ #{r\ 13858}#
+ #{w\ 13859}#
+ #{s\ 13860}#
+ #{mod\ 13861}#
+ #{k\ 13862}#)
+ ((lambda (#{tmp\ 13870}#)
+ ((lambda (#{tmp\ 13871}#)
+ (if #{tmp\ 13871}#
+ (apply (lambda (#{_\ 13877}#
+ #{id\ 13878}#
+ #{val\ 13879}#
+ #{e1\ 13880}#
+ #{e2\ 13881}#)
+ (let ((#{ids\ 13883}# #{id\ 13878}#))
+ (if (not (#{valid-bound-ids?\ 12979}#
+ #{ids\ 13883}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1425}#)
- (let ((#{labels\ 1454}#
- (#{gen-labels\ 385}#
- #{ids\ 1451}#)))
- (let ((#{new-w\ 1456}#
- (#{make-binding-wrap\ 414}#
- #{ids\ 1451}#
- #{labels\ 1454}#
- #{w\ 1427}#)))
- (#{k\ 1430}#
- (cons #{e1\ 1448}# #{e2\ 1449}#)
- (#{extend-env\ 355}#
- #{labels\ 1454}#
- (let ((#{w\ 1460}#
- (if #{rec?\ 1424}#
- #{new-w\ 1456}#
- #{w\ 1427}#))
- (#{trans-r\ 1461}#
- (#{macros-only-env\ 359}#
- #{r\ 1426}#)))
- (map (lambda (#{x\ 1462}#)
+ #{e\ 13857}#)
+ (let ((#{labels\ 13886}#
+ (#{gen-labels\ 12934}#
+ #{ids\ 13883}#)))
+ (let ((#{new-w\ 13888}#
+ (#{make-binding-wrap\ 12963}#
+ #{ids\ 13883}#
+ #{labels\ 13886}#
+ #{w\ 13859}#)))
+ (#{k\ 13862}#
+ (cons #{e1\ 13880}# #{e2\ 13881}#)
+ (#{extend-env\ 12904}#
+ #{labels\ 13886}#
+ (let ((#{w\ 13892}#
+ (if #{rec?\ 13856}#
+ #{new-w\ 13888}#
+ #{w\ 13859}#))
+ (#{trans-r\ 13893}#
+ (#{macros-only-env\ 12908}#
+ #{r\ 13858}#)))
+ (map (lambda (#{x\ 13894}#)
(cons 'macro
- (#{eval-local-transformer\ 464}#
- (#{chi\ 452}#
- #{x\ 1462}#
- #{trans-r\ 1461}#
- #{w\ 1460}#
- #{mod\ 1429}#)
- #{mod\ 1429}#)))
- #{val\ 1447}#))
- #{r\ 1426}#)
- #{new-w\ 1456}#
- #{s\ 1428}#
- #{mod\ 1429}#))))))
- #{tmp\ 1439}#)
- ((lambda (#{_\ 1467}#)
+ (#{eval-local-transformer\ 13013}#
+ (#{chi\ 13001}#
+ #{x\ 13894}#
+ #{trans-r\ 13893}#
+ #{w\ 13892}#
+ #{mod\ 13861}#)
+ #{mod\ 13861}#)))
+ #{val\ 13879}#))
+ #{r\ 13858}#)
+ #{new-w\ 13888}#
+ #{s\ 13860}#
+ #{mod\ 13861}#))))))
+ #{tmp\ 13871}#)
+ ((lambda (#{_\ 13899}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 438}#
- #{e\ 1425}#
- #{w\ 1427}#
- #{s\ 1428}#
- #{mod\ 1429}#)))
- #{tmp\ 1438}#)))
+ (#{source-wrap\ 12987}#
+ #{e\ 13857}#
+ #{w\ 13859}#
+ #{s\ 13860}#
+ #{mod\ 13861}#)))
+ #{tmp\ 13870}#)))
($sc-dispatch
- #{tmp\ 1438}#
+ #{tmp\ 13870}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1425}#)))
- (#{chi-body\ 460}#
- (lambda (#{body\ 1468}#
- #{outer-form\ 1469}#
- #{r\ 1470}#
- #{w\ 1471}#
- #{mod\ 1472}#)
- (let ((#{r\ 1480}#
+ #{e\ 13857}#)))
+ (#{chi-body\ 13009}#
+ (lambda (#{body\ 13900}#
+ #{outer-form\ 13901}#
+ #{r\ 13902}#
+ #{w\ 13903}#
+ #{mod\ 13904}#)
+ (let ((#{r\ 13912}#
(cons '("placeholder" placeholder)
- #{r\ 1470}#)))
- (let ((#{ribcage\ 1482}#
- (#{make-ribcage\ 388}#
+ #{r\ 13902}#)))
+ (let ((#{ribcage\ 13914}#
+ (#{make-ribcage\ 12937}#
'()
'()
'())))
- (let ((#{w\ 1485}#
- (#{make-wrap\ 372}#
- (#{wrap-marks\ 374}# #{w\ 1471}#)
- (cons #{ribcage\ 1482}#
- (#{wrap-subst\ 376}# #{w\ 1471}#)))))
- (letrec ((#{parse\ 1494}#
- (lambda (#{body\ 1495}#
- #{ids\ 1496}#
- #{labels\ 1497}#
- #{var-ids\ 1498}#
- #{vars\ 1499}#
- #{vals\ 1500}#
- #{bindings\ 1501}#)
- (if (null? #{body\ 1495}#)
+ (let ((#{w\ 13917}#
+ (#{make-wrap\ 12921}#
+ (#{wrap-marks\ 12923}# #{w\ 13903}#)
+ (cons #{ribcage\ 13914}#
+ (#{wrap-subst\ 12925}# #{w\ 13903}#)))))
+ (letrec ((#{parse\ 13926}#
+ (lambda (#{body\ 13927}#
+ #{ids\ 13928}#
+ #{labels\ 13929}#
+ #{var-ids\ 13930}#
+ #{vars\ 13931}#
+ #{vals\ 13932}#
+ #{bindings\ 13933}#)
+ (if (null? #{body\ 13927}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1469}#)
- (let ((#{e\ 1506}# (cdar #{body\ 1495}#))
- (#{er\ 1507}# (caar #{body\ 1495}#)))
+ #{outer-form\ 13901}#)
+ (let ((#{e\ 13938}# (cdar #{body\ 13927}#))
+ (#{er\ 13939}#
+ (caar #{body\ 13927}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 448}#
- #{e\ 1506}#
- #{er\ 1507}#
+ (#{syntax-type\ 12997}#
+ #{e\ 13938}#
+ #{er\ 13939}#
'(())
- (#{source-annotation\ 346}#
- #{er\ 1507}#)
- #{ribcage\ 1482}#
- #{mod\ 1472}#
+ (#{source-annotation\ 12895}#
+ #{er\ 13939}#)
+ #{ribcage\ 13914}#
+ #{mod\ 13904}#
#f))
- (lambda (#{type\ 1509}#
- #{value\ 1510}#
- #{e\ 1511}#
- #{w\ 1512}#
- #{s\ 1513}#
- #{mod\ 1514}#)
- (if (memv #{type\ 1509}#
+ (lambda (#{type\ 13941}#
+ #{value\ 13942}#
+ #{e\ 13943}#
+ #{w\ 13944}#
+ #{s\ 13945}#
+ #{mod\ 13946}#)
+ (if (memv #{type\ 13941}#
'(define-form))
- (let ((#{id\ 1524}#
- (#{wrap\ 436}#
- #{value\ 1510}#
- #{w\ 1512}#
- #{mod\ 1514}#))
- (#{label\ 1525}#
- (#{gen-label\ 383}#)))
- (let ((#{var\ 1527}#
- (#{gen-var\ 480}#
- #{id\ 1524}#)))
+ (let ((#{id\ 13956}#
+ (#{wrap\ 12985}#
+ #{value\ 13942}#
+ #{w\ 13944}#
+ #{mod\ 13946}#))
+ (#{label\ 13957}#
+ (#{gen-label\ 12932}#)))
+ (let ((#{var\ 13959}#
+ (#{gen-var\ 13029}#
+ #{id\ 13956}#)))
(begin
- (#{extend-ribcage!\ 412}#
- #{ribcage\ 1482}#
- #{id\ 1524}#
- #{label\ 1525}#)
- (#{parse\ 1494}#
- (cdr #{body\ 1495}#)
- (cons #{id\ 1524}#
- #{ids\ 1496}#)
- (cons #{label\ 1525}#
- #{labels\ 1497}#)
- (cons #{id\ 1524}#
- #{var-ids\ 1498}#)
- (cons #{var\ 1527}#
- #{vars\ 1499}#)
- (cons (cons #{er\ 1507}#
- (#{wrap\ 436}#
- #{e\ 1511}#
- #{w\ 1512}#
- #{mod\ 1514}#))
- #{vals\ 1500}#)
+ (#{extend-ribcage!\ 12961}#
+ #{ribcage\ 13914}#
+ #{id\ 13956}#
+ #{label\ 13957}#)
+ (#{parse\ 13926}#
+ (cdr #{body\ 13927}#)
+ (cons #{id\ 13956}#
+ #{ids\ 13928}#)
+ (cons #{label\ 13957}#
+ #{labels\ 13929}#)
+ (cons #{id\ 13956}#
+ #{var-ids\ 13930}#)
+ (cons #{var\ 13959}#
+ #{vars\ 13931}#)
+ (cons (cons #{er\ 13939}#
+ (#{wrap\ 12985}#
+ #{e\ 13943}#
+ #{w\ 13944}#
+ #{mod\ 13946}#))
+ #{vals\ 13932}#)
(cons (cons 'lexical
- #{var\ 1527}#)
- #{bindings\ 1501}#)))))
- (if (memv #{type\ 1509}#
+ #{var\ 13959}#)
+ #{bindings\ 13933}#)))))
+ (if (memv #{type\ 13941}#
'(define-syntax-form))
- (let ((#{id\ 1532}#
- (#{wrap\ 436}#
- #{value\ 1510}#
- #{w\ 1512}#
- #{mod\ 1514}#))
- (#{label\ 1533}#
- (#{gen-label\ 383}#)))
+ (let ((#{id\ 13964}#
+ (#{wrap\ 12985}#
+ #{value\ 13942}#
+ #{w\ 13944}#
+ #{mod\ 13946}#))
+ (#{label\ 13965}#
+ (#{gen-label\ 12932}#)))
(begin
- (#{extend-ribcage!\ 412}#
- #{ribcage\ 1482}#
- #{id\ 1532}#
- #{label\ 1533}#)
- (#{parse\ 1494}#
- (cdr #{body\ 1495}#)
- (cons #{id\ 1532}#
- #{ids\ 1496}#)
- (cons #{label\ 1533}#
- #{labels\ 1497}#)
- #{var-ids\ 1498}#
- #{vars\ 1499}#
- #{vals\ 1500}#
+ (#{extend-ribcage!\ 12961}#
+ #{ribcage\ 13914}#
+ #{id\ 13964}#
+ #{label\ 13965}#)
+ (#{parse\ 13926}#
+ (cdr #{body\ 13927}#)
+ (cons #{id\ 13964}#
+ #{ids\ 13928}#)
+ (cons #{label\ 13965}#
+ #{labels\ 13929}#)
+ #{var-ids\ 13930}#
+ #{vars\ 13931}#
+ #{vals\ 13932}#
(cons (cons 'macro
- (cons #{er\ 1507}#
- (#{wrap\ 436}#
- #{e\ 1511}#
- #{w\ 1512}#
- #{mod\ 1514}#)))
- #{bindings\ 1501}#))))
- (if (memv #{type\ 1509}#
+ (cons #{er\ 13939}#
+ (#{wrap\ 12985}#
+ #{e\ 13943}#
+ #{w\ 13944}#
+ #{mod\ 13946}#)))
+ #{bindings\ 13933}#))))
+ (if (memv #{type\ 13941}#
'(begin-form))
- ((lambda (#{tmp\ 1536}#)
- ((lambda (#{tmp\ 1537}#)
- (if #{tmp\ 1537}#
- (apply (lambda (#{_\ 1540}#
- #{e1\ 1541}#)
- (#{parse\ 1494}#
- (letrec ((#{f\ 1544}#
- (lambda (#{forms\ 1545}#)
- (if (null? #{forms\ 1545}#)
- (cdr #{body\ 1495}#)
- (cons (cons #{er\ 1507}#
- (#{wrap\ 436}#
- (car #{forms\ 1545}#)
- #{w\ 1512}#
- #{mod\ 1514}#))
- (#{f\ 1544}#
- (cdr #{forms\ 1545}#)))))))
- (#{f\ 1544}#
- #{e1\ 1541}#))
- #{ids\ 1496}#
- #{labels\ 1497}#
- #{var-ids\ 1498}#
- #{vars\ 1499}#
- #{vals\ 1500}#
- #{bindings\ 1501}#))
- #{tmp\ 1537}#)
+ ((lambda (#{tmp\ 13968}#)
+ ((lambda (#{tmp\ 13969}#)
+ (if #{tmp\ 13969}#
+ (apply (lambda (#{_\ 13972}#
+ #{e1\ 13973}#)
+ (#{parse\ 13926}#
+ (letrec ((#{f\ 13976}#
+ (lambda (#{forms\ 13977}#)
+ (if (null? #{forms\ 13977}#)
+ (cdr #{body\ 13927}#)
+ (cons (cons #{er\ 13939}#
+ (#{wrap\ 12985}#
+ (car #{forms\ 13977}#)
+ #{w\ 13944}#
+ #{mod\ 13946}#))
+ (#{f\ 13976}#
+ (cdr #{forms\ 13977}#)))))))
+ (#{f\ 13976}#
+ #{e1\ 13973}#))
+ #{ids\ 13928}#
+ #{labels\ 13929}#
+ #{var-ids\ 13930}#
+ #{vars\ 13931}#
+ #{vals\ 13932}#
+ #{bindings\ 13933}#))
+ #{tmp\ 13969}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1536}#)))
+ #{tmp\ 13968}#)))
($sc-dispatch
- #{tmp\ 1536}#
+ #{tmp\ 13968}#
'(any . each-any))))
- #{e\ 1511}#)
- (if (memv #{type\ 1509}#
+ #{e\ 13943}#)
+ (if (memv #{type\ 13941}#
'(local-syntax-form))
- (#{chi-local-syntax\ 462}#
- #{value\ 1510}#
- #{e\ 1511}#
- #{er\ 1507}#
- #{w\ 1512}#
- #{s\ 1513}#
- #{mod\ 1514}#
- (lambda (#{forms\ 1548}#
- #{er\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1552}#)
- (#{parse\ 1494}#
- (letrec ((#{f\ 1560}#
- (lambda (#{forms\ 1561}#)
- (if (null? #{forms\ 1561}#)
- (cdr #{body\ 1495}#)
- (cons (cons #{er\ 1549}#
- (#{wrap\ 436}#
- (car #{forms\ 1561}#)
- #{w\ 1550}#
- #{mod\ 1552}#))
- (#{f\ 1560}#
- (cdr #{forms\ 1561}#)))))))
- (#{f\ 1560}#
- #{forms\ 1548}#))
- #{ids\ 1496}#
- #{labels\ 1497}#
- #{var-ids\ 1498}#
- #{vars\ 1499}#
- #{vals\ 1500}#
- #{bindings\ 1501}#)))
- (if (null? #{ids\ 1496}#)
- (#{build-sequence\ 319}#
+ (#{chi-local-syntax\ 13011}#
+ #{value\ 13942}#
+ #{e\ 13943}#
+ #{er\ 13939}#
+ #{w\ 13944}#
+ #{s\ 13945}#
+ #{mod\ 13946}#
+ (lambda (#{forms\ 13980}#
+ #{er\ 13981}#
+ #{w\ 13982}#
+ #{s\ 13983}#
+ #{mod\ 13984}#)
+ (#{parse\ 13926}#
+ (letrec ((#{f\ 13992}#
+ (lambda (#{forms\ 13993}#)
+ (if (null? #{forms\ 13993}#)
+ (cdr #{body\ 13927}#)
+ (cons (cons #{er\ 13981}#
+ (#{wrap\ 12985}#
+ (car #{forms\ 13993}#)
+ #{w\ 13982}#
+ #{mod\ 13984}#))
+ (#{f\ 13992}#
+ (cdr #{forms\ 13993}#)))))))
+ (#{f\ 13992}#
+ #{forms\ 13980}#))
+ #{ids\ 13928}#
+ #{labels\ 13929}#
+ #{var-ids\ 13930}#
+ #{vars\ 13931}#
+ #{vals\ 13932}#
+ #{bindings\ 13933}#)))
+ (if (null? #{ids\ 13928}#)
+ (#{build-sequence\ 12868}#
#f
- (map (lambda (#{x\ 1564}#)
- (#{chi\ 452}#
- (cdr #{x\ 1564}#)
- (car #{x\ 1564}#)
+ (map (lambda (#{x\ 13996}#)
+ (#{chi\ 13001}#
+ (cdr #{x\ 13996}#)
+ (car #{x\ 13996}#)
'(())
- #{mod\ 1514}#))
- (cons (cons #{er\ 1507}#
- (#{source-wrap\ 438}#
- #{e\ 1511}#
- #{w\ 1512}#
- #{s\ 1513}#
- #{mod\ 1514}#))
- (cdr #{body\ 1495}#))))
+ #{mod\ 13946}#))
+ (cons (cons #{er\ 13939}#
+ (#{source-wrap\ 12987}#
+ #{e\ 13943}#
+ #{w\ 13944}#
+ #{s\ 13945}#
+ #{mod\ 13946}#))
+ (cdr #{body\ 13927}#))))
(begin
- (if (not (#{valid-bound-ids?\ 430}#
- #{ids\ 1496}#))
+ (if (not (#{valid-bound-ids?\ 12979}#
+ #{ids\ 13928}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 1469}#))
- (letrec ((#{loop\ 1571}#
- (lambda (#{bs\ 1572}#
- #{er-cache\ 1573}#
- #{r-cache\ 1574}#)
- (if (not (null? #{bs\ 1572}#))
- (let ((#{b\ 1577}#
- (car #{bs\ 1572}#)))
- (if (eq? (car #{b\ 1577}#)
+ #{outer-form\ 13901}#))
+ (letrec ((#{loop\ 14003}#
+ (lambda (#{bs\ 14004}#
+ #{er-cache\ 14005}#
+ #{r-cache\ 14006}#)
+ (if (not (null? #{bs\ 14004}#))
+ (let ((#{b\ 14009}#
+ (car #{bs\ 14004}#)))
+ (if (eq? (car #{b\ 14009}#)
'macro)
- (let ((#{er\ 1580}#
- (cadr #{b\ 1577}#)))
- (let ((#{r-cache\ 1582}#
- (if (eq? #{er\ 1580}#
- #{er-cache\ 1573}#)
- #{r-cache\ 1574}#
- (#{macros-only-env\ 359}#
- #{er\ 1580}#))))
+ (let ((#{er\ 14012}#
+ (cadr #{b\ 14009}#)))
+ (let ((#{r-cache\ 14014}#
+ (if (eq? #{er\ 14012}#
+ #{er-cache\ 14005}#)
+ #{r-cache\ 14006}#
+ (#{macros-only-env\ 12908}#
+ #{er\ 14012}#))))
(begin
(set-cdr!
- #{b\ 1577}#
- (#{eval-local-transformer\ 464}#
- (#{chi\ 452}#
- (cddr #{b\ 1577}#)
- #{r-cache\ 1582}#
+ #{b\ 14009}#
+ (#{eval-local-transformer\ 13013}#
+ (#{chi\ 13001}#
+ (cddr #{b\ 14009}#)
+ #{r-cache\ 14014}#
'(())
- #{mod\ 1514}#)
- #{mod\ 1514}#))
- (#{loop\ 1571}#
- (cdr #{bs\ 1572}#)
- #{er\ 1580}#
- #{r-cache\ 1582}#))))
- (#{loop\ 1571}#
- (cdr #{bs\ 1572}#)
- #{er-cache\ 1573}#
- #{r-cache\ 1574}#)))))))
- (#{loop\ 1571}#
- #{bindings\ 1501}#
+ #{mod\ 13946}#)
+ #{mod\ 13946}#))
+ (#{loop\ 14003}#
+ (cdr #{bs\ 14004}#)
+ #{er\ 14012}#
+ #{r-cache\ 14014}#))))
+ (#{loop\ 14003}#
+ (cdr #{bs\ 14004}#)
+ #{er-cache\ 14005}#
+ #{r-cache\ 14006}#)))))))
+ (#{loop\ 14003}#
+ #{bindings\ 13933}#
#f
#f))
(set-cdr!
- #{r\ 1480}#
- (#{extend-env\ 355}#
- #{labels\ 1497}#
- #{bindings\ 1501}#
- (cdr #{r\ 1480}#)))
- (#{build-letrec\ 325}#
+ #{r\ 13912}#
+ (#{extend-env\ 12904}#
+ #{labels\ 13929}#
+ #{bindings\ 13933}#
+ (cdr #{r\ 13912}#)))
+ (#{build-letrec\ 12874}#
#f
(map syntax->datum
- #{var-ids\ 1498}#)
- #{vars\ 1499}#
- (map (lambda (#{x\ 1585}#)
- (#{chi\ 452}#
- (cdr #{x\ 1585}#)
- (car #{x\ 1585}#)
+ #{var-ids\ 13930}#)
+ #{vars\ 13931}#
+ (map (lambda (#{x\ 14017}#)
+ (#{chi\ 13001}#
+ (cdr #{x\ 14017}#)
+ (car #{x\ 14017}#)
'(())
- #{mod\ 1514}#))
- #{vals\ 1500}#)
- (#{build-sequence\ 319}#
+ #{mod\ 13946}#))
+ #{vals\ 13932}#)
+ (#{build-sequence\ 12868}#
#f
- (map (lambda (#{x\ 1589}#)
- (#{chi\ 452}#
- (cdr #{x\ 1589}#)
- (car #{x\ 1589}#)
+ (map (lambda (#{x\ 14021}#)
+ (#{chi\ 13001}#
+ (cdr #{x\ 14021}#)
+ (car #{x\ 14021}#)
'(())
- #{mod\ 1514}#))
- (cons (cons #{er\ 1507}#
- (#{source-wrap\ 438}#
- #{e\ 1511}#
- #{w\ 1512}#
- #{s\ 1513}#
- #{mod\ 1514}#))
- (cdr #{body\ 1495}#))))))))))))))))))
- (#{parse\ 1494}#
- (map (lambda (#{x\ 1502}#)
- (cons #{r\ 1480}#
- (#{wrap\ 436}#
- #{x\ 1502}#
- #{w\ 1485}#
- #{mod\ 1472}#)))
- #{body\ 1468}#)
+ #{mod\ 13946}#))
+ (cons (cons #{er\ 13939}#
+ (#{source-wrap\ 12987}#
+ #{e\ 13943}#
+ #{w\ 13944}#
+ #{s\ 13945}#
+ #{mod\ 13946}#))
+ (cdr #{body\ 13927}#))))))))))))))))))
+ (#{parse\ 13926}#
+ (map (lambda (#{x\ 13934}#)
+ (cons #{r\ 13912}#
+ (#{wrap\ 12985}#
+ #{x\ 13934}#
+ #{w\ 13917}#
+ #{mod\ 13904}#)))
+ #{body\ 13900}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 458}#
- (lambda (#{p\ 1592}#
- #{e\ 1593}#
- #{r\ 1594}#
- #{w\ 1595}#
- #{rib\ 1596}#
- #{mod\ 1597}#)
- (letrec ((#{rebuild-macro-output\ 1605}#
- (lambda (#{x\ 1606}# #{m\ 1607}#)
- (if (pair? #{x\ 1606}#)
- (cons (#{rebuild-macro-output\ 1605}#
- (car #{x\ 1606}#)
- #{m\ 1607}#)
- (#{rebuild-macro-output\ 1605}#
- (cdr #{x\ 1606}#)
- #{m\ 1607}#))
- (if (#{syntax-object?\ 331}# #{x\ 1606}#)
- (let ((#{w\ 1615}#
- (#{syntax-object-wrap\ 335}#
- #{x\ 1606}#)))
- (let ((#{ms\ 1618}#
- (#{wrap-marks\ 374}# #{w\ 1615}#))
- (#{s\ 1619}#
- (#{wrap-subst\ 376}# #{w\ 1615}#)))
- (if (if (pair? #{ms\ 1618}#)
- (eq? (car #{ms\ 1618}#) #f)
+ (#{chi-macro\ 13007}#
+ (lambda (#{p\ 14024}#
+ #{e\ 14025}#
+ #{r\ 14026}#
+ #{w\ 14027}#
+ #{rib\ 14028}#
+ #{mod\ 14029}#)
+ (letrec ((#{rebuild-macro-output\ 14037}#
+ (lambda (#{x\ 14038}# #{m\ 14039}#)
+ (if (pair? #{x\ 14038}#)
+ (cons (#{rebuild-macro-output\ 14037}#
+ (car #{x\ 14038}#)
+ #{m\ 14039}#)
+ (#{rebuild-macro-output\ 14037}#
+ (cdr #{x\ 14038}#)
+ #{m\ 14039}#))
+ (if (#{syntax-object?\ 12880}# #{x\ 14038}#)
+ (let ((#{w\ 14047}#
+ (#{syntax-object-wrap\ 12884}#
+ #{x\ 14038}#)))
+ (let ((#{ms\ 14050}#
+ (#{wrap-marks\ 12923}# #{w\ 14047}#))
+ (#{s\ 14051}#
+ (#{wrap-subst\ 12925}#
+ #{w\ 14047}#)))
+ (if (if (pair? #{ms\ 14050}#)
+ (eq? (car #{ms\ 14050}#) #f)
#f)
- (#{make-syntax-object\ 329}#
- (#{syntax-object-expression\ 333}#
- #{x\ 1606}#)
- (#{make-wrap\ 372}#
- (cdr #{ms\ 1618}#)
- (if #{rib\ 1596}#
- (cons #{rib\ 1596}#
- (cdr #{s\ 1619}#))
- (cdr #{s\ 1619}#)))
- (#{syntax-object-module\ 337}#
- #{x\ 1606}#))
- (#{make-syntax-object\ 329}#
- (#{syntax-object-expression\ 333}#
- #{x\ 1606}#)
- (#{make-wrap\ 372}#
- (cons #{m\ 1607}# #{ms\ 1618}#)
- (if #{rib\ 1596}#
- (cons #{rib\ 1596}#
+ (#{make-syntax-object\ 12878}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14038}#)
+ (#{make-wrap\ 12921}#
+ (cdr #{ms\ 14050}#)
+ (if #{rib\ 14028}#
+ (cons #{rib\ 14028}#
+ (cdr #{s\ 14051}#))
+ (cdr #{s\ 14051}#)))
+ (#{syntax-object-module\ 12886}#
+ #{x\ 14038}#))
+ (#{make-syntax-object\ 12878}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14038}#)
+ (#{make-wrap\ 12921}#
+ (cons #{m\ 14039}# #{ms\ 14050}#)
+ (if #{rib\ 14028}#
+ (cons #{rib\ 14028}#
(cons 'shift
- #{s\ 1619}#))
- (cons (quote shift) #{s\ 1619}#)))
+ #{s\ 14051}#))
+ (cons (quote shift) #{s\ 14051}#)))
(cons 'hygiene
- (cdr #{p\ 1592}#))))))
- (if (vector? #{x\ 1606}#)
- (let ((#{n\ 1627}#
- (vector-length #{x\ 1606}#)))
- (let ((#{v\ 1629}#
- (make-vector #{n\ 1627}#)))
- (letrec ((#{loop\ 1632}#
- (lambda (#{i\ 1633}#)
- (if (#{fx=\ 272}#
- #{i\ 1633}#
- #{n\ 1627}#)
+ (cdr #{p\ 14024}#))))))
+ (if (vector? #{x\ 14038}#)
+ (let ((#{n\ 14059}#
+ (vector-length #{x\ 14038}#)))
+ (let ((#{v\ 14061}#
+ (make-vector #{n\ 14059}#)))
+ (letrec ((#{loop\ 14064}#
+ (lambda (#{i\ 14065}#)
+ (if (#{fx=\ 12821}#
+ #{i\ 14065}#
+ #{n\ 14059}#)
(begin
(if #f #f)
- #{v\ 1629}#)
+ #{v\ 14061}#)
(begin
(vector-set!
- #{v\ 1629}#
- #{i\ 1633}#
- (#{rebuild-macro-output\ 1605}#
+ #{v\ 14061}#
+ #{i\ 14065}#
+ (#{rebuild-macro-output\ 14037}#
(vector-ref
- #{x\ 1606}#
- #{i\ 1633}#)
- #{m\ 1607}#))
- (#{loop\ 1632}#
- (#{fx+\ 268}#
- #{i\ 1633}#
+ #{x\ 14038}#
+ #{i\ 14065}#)
+ #{m\ 14039}#))
+ (#{loop\ 14064}#
+ (#{fx+\ 12817}#
+ #{i\ 14065}#
1)))))))
- (#{loop\ 1632}# 0))))
- (if (symbol? #{x\ 1606}#)
+ (#{loop\ 14064}# 0))))
+ (if (symbol? #{x\ 14038}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 438}#
- #{e\ 1593}#
- #{w\ 1595}#
- (#{wrap-subst\ 376}# #{w\ 1595}#)
- #{mod\ 1597}#)
- #{x\ 1606}#)
- #{x\ 1606}#)))))))
- (#{rebuild-macro-output\ 1605}#
- ((car #{p\ 1592}#)
- (#{wrap\ 436}#
- #{e\ 1593}#
- (#{anti-mark\ 408}# #{w\ 1595}#)
- #{mod\ 1597}#))
+ (#{source-wrap\ 12987}#
+ #{e\ 14025}#
+ #{w\ 14027}#
+ (#{wrap-subst\ 12925}# #{w\ 14027}#)
+ #{mod\ 14029}#)
+ #{x\ 14038}#)
+ #{x\ 14038}#)))))))
+ (#{rebuild-macro-output\ 14037}#
+ ((car #{p\ 14024}#)
+ (#{wrap\ 12985}#
+ #{e\ 14025}#
+ (#{anti-mark\ 12957}# #{w\ 14027}#)
+ #{mod\ 14029}#))
(gensym "m")))))
- (#{chi-application\ 456}#
- (lambda (#{x\ 1640}#
- #{e\ 1641}#
- #{r\ 1642}#
- #{w\ 1643}#
- #{s\ 1644}#
- #{mod\ 1645}#)
- ((lambda (#{tmp\ 1652}#)
- ((lambda (#{tmp\ 1653}#)
- (if #{tmp\ 1653}#
- (apply (lambda (#{e0\ 1656}# #{e1\ 1657}#)
- (#{build-application\ 289}#
- #{s\ 1644}#
- #{x\ 1640}#
- (map (lambda (#{e\ 1658}#)
- (#{chi\ 452}#
- #{e\ 1658}#
- #{r\ 1642}#
- #{w\ 1643}#
- #{mod\ 1645}#))
- #{e1\ 1657}#)))
- #{tmp\ 1653}#)
+ (#{chi-application\ 13005}#
+ (lambda (#{x\ 14072}#
+ #{e\ 14073}#
+ #{r\ 14074}#
+ #{w\ 14075}#
+ #{s\ 14076}#
+ #{mod\ 14077}#)
+ ((lambda (#{tmp\ 14084}#)
+ ((lambda (#{tmp\ 14085}#)
+ (if #{tmp\ 14085}#
+ (apply (lambda (#{e0\ 14088}# #{e1\ 14089}#)
+ (#{build-application\ 12838}#
+ #{s\ 14076}#
+ #{x\ 14072}#
+ (map (lambda (#{e\ 14090}#)
+ (#{chi\ 13001}#
+ #{e\ 14090}#
+ #{r\ 14074}#
+ #{w\ 14075}#
+ #{mod\ 14077}#))
+ #{e1\ 14089}#)))
+ #{tmp\ 14085}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1652}#)))
+ #{tmp\ 14084}#)))
($sc-dispatch
- #{tmp\ 1652}#
+ #{tmp\ 14084}#
'(any . each-any))))
- #{e\ 1641}#)))
- (#{chi-expr\ 454}#
- (lambda (#{type\ 1661}#
- #{value\ 1662}#
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (lexical)))
- (#{build-lexical-reference\ 295}#
+ #{e\ 14073}#)))
+ (#{chi-expr\ 13003}#
+ (lambda (#{type\ 14093}#
+ #{value\ 14094}#
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (lexical)))
+ (#{build-lexical-reference\ 12844}#
'value
- #{s\ 1666}#
- #{e\ 1663}#
- #{value\ 1662}#)
- (if (memv #{type\ 1661}# (quote (core core-form)))
- (#{value\ 1662}#
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (module-ref)))
+ #{s\ 14098}#
+ #{e\ 14095}#
+ #{value\ 14094}#)
+ (if (memv #{type\ 14093}# (quote (core core-form)))
+ (#{value\ 14094}#
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 1662}#
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#))
- (lambda (#{e\ 1678}#
- #{r\ 1679}#
- #{w\ 1680}#
- #{s\ 1681}#
- #{mod\ 1682}#)
- (#{chi\ 452}#
- #{e\ 1678}#
- #{r\ 1679}#
- #{w\ 1680}#
- #{mod\ 1682}#)))
- (if (memv #{type\ 1661}# (quote (lexical-call)))
- (#{chi-application\ 456}#
- (#{build-lexical-reference\ 295}#
+ (#{value\ 14094}#
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#))
+ (lambda (#{e\ 14110}#
+ #{r\ 14111}#
+ #{w\ 14112}#
+ #{s\ 14113}#
+ #{mod\ 14114}#)
+ (#{chi\ 13001}#
+ #{e\ 14110}#
+ #{r\ 14111}#
+ #{w\ 14112}#
+ #{mod\ 14114}#)))
+ (if (memv #{type\ 14093}# (quote (lexical-call)))
+ (#{chi-application\ 13005}#
+ (#{build-lexical-reference\ 12844}#
'fun
- (#{source-annotation\ 346}# (car #{e\ 1663}#))
- (car #{e\ 1663}#)
- #{value\ 1662}#)
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (global-call)))
- (#{chi-application\ 456}#
- (#{build-global-reference\ 301}#
- (#{source-annotation\ 346}# (car #{e\ 1663}#))
- (if (#{syntax-object?\ 331}# #{value\ 1662}#)
- (#{syntax-object-expression\ 333}#
- #{value\ 1662}#)
- #{value\ 1662}#)
- (if (#{syntax-object?\ 331}# #{value\ 1662}#)
- (#{syntax-object-module\ 337}# #{value\ 1662}#)
- #{mod\ 1667}#))
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (constant)))
- (#{build-data\ 317}#
- #{s\ 1666}#
- (#{strip\ 478}#
- (#{source-wrap\ 438}#
- #{e\ 1663}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
+ (#{source-annotation\ 12895}# (car #{e\ 14095}#))
+ (car #{e\ 14095}#)
+ #{value\ 14094}#)
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (global-call)))
+ (#{chi-application\ 13005}#
+ (#{build-global-reference\ 12850}#
+ (#{source-annotation\ 12895}# (car #{e\ 14095}#))
+ (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
+ (#{syntax-object-expression\ 12882}#
+ #{value\ 14094}#)
+ #{value\ 14094}#)
+ (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
+ (#{syntax-object-module\ 12886}#
+ #{value\ 14094}#)
+ #{mod\ 14099}#))
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (constant)))
+ (#{build-data\ 12866}#
+ #{s\ 14098}#
+ (#{strip\ 13027}#
+ (#{source-wrap\ 12987}#
+ #{e\ 14095}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
'(())))
- (if (memv #{type\ 1661}# (quote (global)))
- (#{build-global-reference\ 301}#
- #{s\ 1666}#
- #{value\ 1662}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (call)))
- (#{chi-application\ 456}#
- (#{chi\ 452}#
- (car #{e\ 1663}#)
- #{r\ 1664}#
- #{w\ 1665}#
- #{mod\ 1667}#)
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1661}# (quote (begin-form)))
- ((lambda (#{tmp\ 1695}#)
- ((lambda (#{tmp\ 1696}#)
- (if #{tmp\ 1696}#
- (apply (lambda (#{_\ 1700}#
- #{e1\ 1701}#
- #{e2\ 1702}#)
- (#{chi-sequence\ 440}#
- (cons #{e1\ 1701}#
- #{e2\ 1702}#)
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#))
- #{tmp\ 1696}#)
+ (if (memv #{type\ 14093}# (quote (global)))
+ (#{build-global-reference\ 12850}#
+ #{s\ 14098}#
+ #{value\ 14094}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (call)))
+ (#{chi-application\ 13005}#
+ (#{chi\ 13001}#
+ (car #{e\ 14095}#)
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{mod\ 14099}#)
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (if (memv #{type\ 14093}# (quote (begin-form)))
+ ((lambda (#{tmp\ 14127}#)
+ ((lambda (#{tmp\ 14128}#)
+ (if #{tmp\ 14128}#
+ (apply (lambda (#{_\ 14132}#
+ #{e1\ 14133}#
+ #{e2\ 14134}#)
+ (#{chi-sequence\ 12989}#
+ (cons #{e1\ 14133}#
+ #{e2\ 14134}#)
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#))
+ #{tmp\ 14128}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1695}#)))
+ #{tmp\ 14127}#)))
($sc-dispatch
- #{tmp\ 1695}#
+ #{tmp\ 14127}#
'(any any . each-any))))
- #{e\ 1663}#)
- (if (memv #{type\ 1661}#
+ #{e\ 14095}#)
+ (if (memv #{type\ 14093}#
'(local-syntax-form))
- (#{chi-local-syntax\ 462}#
- #{value\ 1662}#
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#
- #{chi-sequence\ 440}#)
- (if (memv #{type\ 1661}#
+ (#{chi-local-syntax\ 13011}#
+ #{value\ 14094}#
+ #{e\ 14095}#
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#
+ #{chi-sequence\ 12989}#)
+ (if (memv #{type\ 14093}#
'(eval-when-form))
- ((lambda (#{tmp\ 1706}#)
- ((lambda (#{tmp\ 1707}#)
- (if #{tmp\ 1707}#
- (apply (lambda (#{_\ 1712}#
- #{x\ 1713}#
- #{e1\ 1714}#
- #{e2\ 1715}#)
- (let ((#{when-list\ 1717}#
- (#{chi-when-list\ 446}#
- #{e\ 1663}#
- #{x\ 1713}#
- #{w\ 1665}#)))
+ ((lambda (#{tmp\ 14138}#)
+ ((lambda (#{tmp\ 14139}#)
+ (if #{tmp\ 14139}#
+ (apply (lambda (#{_\ 14144}#
+ #{x\ 14145}#
+ #{e1\ 14146}#
+ #{e2\ 14147}#)
+ (let ((#{when-list\ 14149}#
+ (#{chi-when-list\ 12995}#
+ #{e\ 14095}#
+ #{x\ 14145}#
+ #{w\ 14097}#)))
(if (memq 'eval
- #{when-list\ 1717}#)
- (#{chi-sequence\ 440}#
- (cons #{e1\ 1714}#
- #{e2\ 1715}#)
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (#{chi-void\ 466}#))))
- #{tmp\ 1707}#)
+ #{when-list\ 14149}#)
+ (#{chi-sequence\ 12989}#
+ (cons #{e1\ 14146}#
+ #{e2\ 14147}#)
+ #{r\ 14096}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#)
+ (#{chi-void\ 13015}#))))
+ #{tmp\ 14139}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1706}#)))
+ #{tmp\ 14138}#)))
($sc-dispatch
- #{tmp\ 1706}#
+ #{tmp\ 14138}#
'(any each-any any . each-any))))
- #{e\ 1663}#)
- (if (memv #{type\ 1661}#
+ #{e\ 14095}#)
+ (if (memv #{type\ 14093}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1663}#
- (#{wrap\ 436}#
- #{value\ 1662}#
- #{w\ 1665}#
- #{mod\ 1667}#))
- (if (memv #{type\ 1661}#
+ #{e\ 14095}#
+ (#{wrap\ 12985}#
+ #{value\ 14094}#
+ #{w\ 14097}#
+ #{mod\ 14099}#))
+ (if (memv #{type\ 14093}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 438}#
- #{e\ 1663}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#))
- (if (memv #{type\ 1661}#
+ (#{source-wrap\ 12987}#
+ #{e\ 14095}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#))
+ (if (memv #{type\ 14093}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 438}#
- #{e\ 1663}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#))
+ (#{source-wrap\ 12987}#
+ #{e\ 14095}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 438}#
- #{e\ 1663}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#))))))))))))))))))
- (#{chi\ 452}#
- (lambda (#{e\ 1724}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{mod\ 1727}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 14095}#
+ #{w\ 14097}#
+ #{s\ 14098}#
+ #{mod\ 14099}#))))))))))))))))))
+ (#{chi\ 13001}#
+ (lambda (#{e\ 14156}#
+ #{r\ 14157}#
+ #{w\ 14158}#
+ #{mod\ 14159}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 448}#
- #{e\ 1724}#
- #{r\ 1725}#
- #{w\ 1726}#
- (#{source-annotation\ 346}# #{e\ 1724}#)
+ (#{syntax-type\ 12997}#
+ #{e\ 14156}#
+ #{r\ 14157}#
+ #{w\ 14158}#
+ (#{source-annotation\ 12895}# #{e\ 14156}#)
#f
- #{mod\ 1727}#
+ #{mod\ 14159}#
#f))
- (lambda (#{type\ 1732}#
- #{value\ 1733}#
- #{e\ 1734}#
- #{w\ 1735}#
- #{s\ 1736}#
- #{mod\ 1737}#)
- (#{chi-expr\ 454}#
- #{type\ 1732}#
- #{value\ 1733}#
- #{e\ 1734}#
- #{r\ 1725}#
- #{w\ 1735}#
- #{s\ 1736}#
- #{mod\ 1737}#)))))
- (#{chi-top\ 450}#
- (lambda (#{e\ 1744}#
- #{r\ 1745}#
- #{w\ 1746}#
- #{m\ 1747}#
- #{esew\ 1748}#
- #{mod\ 1749}#)
+ (lambda (#{type\ 14164}#
+ #{value\ 14165}#
+ #{e\ 14166}#
+ #{w\ 14167}#
+ #{s\ 14168}#
+ #{mod\ 14169}#)
+ (#{chi-expr\ 13003}#
+ #{type\ 14164}#
+ #{value\ 14165}#
+ #{e\ 14166}#
+ #{r\ 14157}#
+ #{w\ 14167}#
+ #{s\ 14168}#
+ #{mod\ 14169}#)))))
+ (#{chi-top\ 12999}#
+ (lambda (#{e\ 14176}#
+ #{r\ 14177}#
+ #{w\ 14178}#
+ #{m\ 14179}#
+ #{esew\ 14180}#
+ #{mod\ 14181}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 448}#
- #{e\ 1744}#
- #{r\ 1745}#
- #{w\ 1746}#
- (#{source-annotation\ 346}# #{e\ 1744}#)
+ (#{syntax-type\ 12997}#
+ #{e\ 14176}#
+ #{r\ 14177}#
+ #{w\ 14178}#
+ (#{source-annotation\ 12895}# #{e\ 14176}#)
#f
- #{mod\ 1749}#
+ #{mod\ 14181}#
#f))
- (lambda (#{type\ 1777}#
- #{value\ 1778}#
- #{e\ 1779}#
- #{w\ 1780}#
- #{s\ 1781}#
- #{mod\ 1782}#)
- (if (memv #{type\ 1777}# (quote (begin-form)))
- ((lambda (#{tmp\ 1790}#)
- ((lambda (#{tmp\ 1791}#)
- (if #{tmp\ 1791}#
- (apply (lambda (#{_\ 1793}#) (#{chi-void\ 466}#))
- #{tmp\ 1791}#)
- ((lambda (#{tmp\ 1794}#)
- (if #{tmp\ 1794}#
- (apply (lambda (#{_\ 1798}#
- #{e1\ 1799}#
- #{e2\ 1800}#)
- (#{chi-top-sequence\ 442}#
- (cons #{e1\ 1799}# #{e2\ 1800}#)
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
- #{m\ 1747}#
- #{esew\ 1748}#
- #{mod\ 1782}#))
- #{tmp\ 1794}#)
+ (lambda (#{type\ 14202}#
+ #{value\ 14203}#
+ #{e\ 14204}#
+ #{w\ 14205}#
+ #{s\ 14206}#
+ #{mod\ 14207}#)
+ (if (memv #{type\ 14202}# (quote (begin-form)))
+ ((lambda (#{tmp\ 14215}#)
+ ((lambda (#{tmp\ 14216}#)
+ (if #{tmp\ 14216}#
+ (apply (lambda (#{_\ 14218}#)
+ (#{chi-void\ 13015}#))
+ #{tmp\ 14216}#)
+ ((lambda (#{tmp\ 14219}#)
+ (if #{tmp\ 14219}#
+ (apply (lambda (#{_\ 14223}#
+ #{e1\ 14224}#
+ #{e2\ 14225}#)
+ (#{chi-top-sequence\ 12991}#
+ (cons #{e1\ 14224}# #{e2\ 14225}#)
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
+ #{m\ 14179}#
+ #{esew\ 14180}#
+ #{mod\ 14207}#))
+ #{tmp\ 14219}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1790}#)))
+ #{tmp\ 14215}#)))
($sc-dispatch
- #{tmp\ 1790}#
+ #{tmp\ 14215}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1790}# (quote (any)))))
- #{e\ 1779}#)
- (if (memv #{type\ 1777}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 462}#
- #{value\ 1778}#
- #{e\ 1779}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
- #{mod\ 1782}#
- (lambda (#{body\ 1803}#
- #{r\ 1804}#
- #{w\ 1805}#
- #{s\ 1806}#
- #{mod\ 1807}#)
- (#{chi-top-sequence\ 442}#
- #{body\ 1803}#
- #{r\ 1804}#
- #{w\ 1805}#
- #{s\ 1806}#
- #{m\ 1747}#
- #{esew\ 1748}#
- #{mod\ 1807}#)))
- (if (memv #{type\ 1777}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1814}#)
- ((lambda (#{tmp\ 1815}#)
- (if #{tmp\ 1815}#
- (apply (lambda (#{_\ 1820}#
- #{x\ 1821}#
- #{e1\ 1822}#
- #{e2\ 1823}#)
- (let ((#{when-list\ 1826}#
- (#{chi-when-list\ 446}#
- #{e\ 1779}#
- #{x\ 1821}#
- #{w\ 1780}#))
- (#{body\ 1827}#
- (cons #{e1\ 1822}#
- #{e2\ 1823}#)))
- (if (eq? #{m\ 1747}# (quote e))
+ ($sc-dispatch #{tmp\ 14215}# (quote (any)))))
+ #{e\ 14204}#)
+ (if (memv #{type\ 14202}#
+ '(local-syntax-form))
+ (#{chi-local-syntax\ 13011}#
+ #{value\ 14203}#
+ #{e\ 14204}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
+ #{mod\ 14207}#
+ (lambda (#{body\ 14228}#
+ #{r\ 14229}#
+ #{w\ 14230}#
+ #{s\ 14231}#
+ #{mod\ 14232}#)
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14228}#
+ #{r\ 14229}#
+ #{w\ 14230}#
+ #{s\ 14231}#
+ #{m\ 14179}#
+ #{esew\ 14180}#
+ #{mod\ 14232}#)))
+ (if (memv #{type\ 14202}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 14239}#)
+ ((lambda (#{tmp\ 14240}#)
+ (if #{tmp\ 14240}#
+ (apply (lambda (#{_\ 14245}#
+ #{x\ 14246}#
+ #{e1\ 14247}#
+ #{e2\ 14248}#)
+ (let ((#{when-list\ 14251}#
+ (#{chi-when-list\ 12995}#
+ #{e\ 14204}#
+ #{x\ 14246}#
+ #{w\ 14205}#))
+ (#{body\ 14252}#
+ (cons #{e1\ 14247}#
+ #{e2\ 14248}#)))
+ (if (eq? #{m\ 14179}# (quote e))
(if (memq 'eval
- #{when-list\ 1826}#)
- (#{chi-top-sequence\ 442}#
- #{body\ 1827}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
+ #{when-list\ 14251}#)
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14252}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
(if (memq 'expand
- #{when-list\ 1826}#)
+ #{when-list\ 14251}#)
'c&e
'e)
'(eval)
- #{mod\ 1782}#)
+ #{mod\ 14207}#)
(begin
(if (memq 'expand
- #{when-list\ 1826}#)
- (#{top-level-eval-hook\ 276}#
- (#{chi-top-sequence\ 442}#
- #{body\ 1827}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
+ #{when-list\ 14251}#)
+ (#{top-level-eval-hook\ 12825}#
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14252}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
'e
'(eval)
- #{mod\ 1782}#)
- #{mod\ 1782}#))
- (#{chi-void\ 466}#)))
+ #{mod\ 14207}#)
+ #{mod\ 14207}#))
+ (#{chi-void\ 13015}#)))
(if (memq 'load
- #{when-list\ 1826}#)
- (if (let ((#{t\ 1836}#
+ #{when-list\ 14251}#)
+ (if (let ((#{t\ 14261}#
(memq 'compile
- #{when-list\ 1826}#)))
- (if #{t\ 1836}#
- #{t\ 1836}#
- (let ((#{t\ 1839}#
+ #{when-list\ 14251}#)))
+ (if #{t\ 14261}#
+ #{t\ 14261}#
+ (let ((#{t\ 14264}#
(memq 'expand
- #{when-list\ 1826}#)))
- (if #{t\ 1839}#
- #{t\ 1839}#
- (if (eq? #{m\ 1747}#
+ #{when-list\ 14251}#)))
+ (if #{t\ 14264}#
+ #{t\ 14264}#
+ (if (eq? #{m\ 14179}#
'c&e)
(memq 'eval
- #{when-list\ 1826}#)
+ #{when-list\ 14251}#)
#f)))))
- (#{chi-top-sequence\ 442}#
- #{body\ 1827}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14252}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
'c&e
'(compile load)
- #{mod\ 1782}#)
- (if (memq #{m\ 1747}#
+ #{mod\ 14207}#)
+ (if (memq #{m\ 14179}#
'(c c&e))
- (#{chi-top-sequence\ 442}#
- #{body\ 1827}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14252}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
'c
'(load)
- #{mod\ 1782}#)
- (#{chi-void\ 466}#)))
- (if (let ((#{t\ 1847}#
+ #{mod\ 14207}#)
+ (#{chi-void\ 13015}#)))
+ (if (let ((#{t\ 14272}#
(memq 'compile
- #{when-list\ 1826}#)))
- (if #{t\ 1847}#
- #{t\ 1847}#
- (let ((#{t\ 1850}#
+ #{when-list\ 14251}#)))
+ (if #{t\ 14272}#
+ #{t\ 14272}#
+ (let ((#{t\ 14275}#
(memq 'expand
- #{when-list\ 1826}#)))
- (if #{t\ 1850}#
- #{t\ 1850}#
- (if (eq? #{m\ 1747}#
+ #{when-list\ 14251}#)))
+ (if #{t\ 14275}#
+ #{t\ 14275}#
+ (if (eq? #{m\ 14179}#
'c&e)
(memq 'eval
- #{when-list\ 1826}#)
+ #{when-list\ 14251}#)
#f)))))
(begin
- (#{top-level-eval-hook\ 276}#
- (#{chi-top-sequence\ 442}#
- #{body\ 1827}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
+ (#{top-level-eval-hook\ 12825}#
+ (#{chi-top-sequence\ 12991}#
+ #{body\ 14252}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
'e
'(eval)
- #{mod\ 1782}#)
- #{mod\ 1782}#)
- (#{chi-void\ 466}#))
- (#{chi-void\ 466}#))))))
- #{tmp\ 1815}#)
+ #{mod\ 14207}#)
+ #{mod\ 14207}#)
+ (#{chi-void\ 13015}#))
+ (#{chi-void\ 13015}#))))))
+ #{tmp\ 14240}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1814}#)))
+ #{tmp\ 14239}#)))
($sc-dispatch
- #{tmp\ 1814}#
+ #{tmp\ 14239}#
'(any each-any any . each-any))))
- #{e\ 1779}#)
- (if (memv #{type\ 1777}#
+ #{e\ 14204}#)
+ (if (memv #{type\ 14202}#
'(define-syntax-form))
- (let ((#{n\ 1858}#
- (#{id-var-name\ 424}#
- #{value\ 1778}#
- #{w\ 1780}#))
- (#{r\ 1859}#
- (#{macros-only-env\ 359}# #{r\ 1745}#)))
- (if (memv #{m\ 1747}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1748}#)
- (let ((#{e\ 1862}#
- (#{chi-install-global\ 444}#
- #{n\ 1858}#
- (#{chi\ 452}#
- #{e\ 1779}#
- #{r\ 1859}#
- #{w\ 1780}#
- #{mod\ 1782}#))))
+ (let ((#{n\ 14283}#
+ (#{id-var-name\ 12973}#
+ #{value\ 14203}#
+ #{w\ 14205}#))
+ (#{r\ 14284}#
+ (#{macros-only-env\ 12908}# #{r\ 14177}#)))
+ (if (memv #{m\ 14179}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 14180}#)
+ (let ((#{e\ 14287}#
+ (#{chi-install-global\ 12993}#
+ #{n\ 14283}#
+ (#{chi\ 13001}#
+ #{e\ 14204}#
+ #{r\ 14284}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))))
(begin
- (#{top-level-eval-hook\ 276}#
- #{e\ 1862}#
- #{mod\ 1782}#)
- (if (memq (quote load) #{esew\ 1748}#)
- #{e\ 1862}#
- (#{chi-void\ 466}#))))
- (if (memq (quote load) #{esew\ 1748}#)
- (#{chi-install-global\ 444}#
- #{n\ 1858}#
- (#{chi\ 452}#
- #{e\ 1779}#
- #{r\ 1859}#
- #{w\ 1780}#
- #{mod\ 1782}#))
- (#{chi-void\ 466}#)))
- (if (memv #{m\ 1747}# (quote (c&e)))
- (let ((#{e\ 1865}#
- (#{chi-install-global\ 444}#
- #{n\ 1858}#
- (#{chi\ 452}#
- #{e\ 1779}#
- #{r\ 1859}#
- #{w\ 1780}#
- #{mod\ 1782}#))))
+ (#{top-level-eval-hook\ 12825}#
+ #{e\ 14287}#
+ #{mod\ 14207}#)
+ (if (memq (quote load) #{esew\ 14180}#)
+ #{e\ 14287}#
+ (#{chi-void\ 13015}#))))
+ (if (memq (quote load) #{esew\ 14180}#)
+ (#{chi-install-global\ 12993}#
+ #{n\ 14283}#
+ (#{chi\ 13001}#
+ #{e\ 14204}#
+ #{r\ 14284}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))
+ (#{chi-void\ 13015}#)))
+ (if (memv #{m\ 14179}# (quote (c&e)))
+ (let ((#{e\ 14290}#
+ (#{chi-install-global\ 12993}#
+ #{n\ 14283}#
+ (#{chi\ 13001}#
+ #{e\ 14204}#
+ #{r\ 14284}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))))
(begin
- (#{top-level-eval-hook\ 276}#
- #{e\ 1865}#
- #{mod\ 1782}#)
- #{e\ 1865}#))
+ (#{top-level-eval-hook\ 12825}#
+ #{e\ 14290}#
+ #{mod\ 14207}#)
+ #{e\ 14290}#))
(begin
- (if (memq (quote eval) #{esew\ 1748}#)
- (#{top-level-eval-hook\ 276}#
- (#{chi-install-global\ 444}#
- #{n\ 1858}#
- (#{chi\ 452}#
- #{e\ 1779}#
- #{r\ 1859}#
- #{w\ 1780}#
- #{mod\ 1782}#))
- #{mod\ 1782}#))
- (#{chi-void\ 466}#)))))
- (if (memv #{type\ 1777}# (quote (define-form)))
- (let ((#{n\ 1870}#
- (#{id-var-name\ 424}#
- #{value\ 1778}#
- #{w\ 1780}#)))
- (let ((#{type\ 1872}#
- (#{binding-type\ 350}#
- (#{lookup\ 361}#
- #{n\ 1870}#
- #{r\ 1745}#
- #{mod\ 1782}#))))
- (if (memv #{type\ 1872}#
+ (if (memq (quote eval) #{esew\ 14180}#)
+ (#{top-level-eval-hook\ 12825}#
+ (#{chi-install-global\ 12993}#
+ #{n\ 14283}#
+ (#{chi\ 13001}#
+ #{e\ 14204}#
+ #{r\ 14284}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))
+ #{mod\ 14207}#))
+ (#{chi-void\ 13015}#)))))
+ (if (memv #{type\ 14202}# (quote (define-form)))
+ (let ((#{n\ 14295}#
+ (#{id-var-name\ 12973}#
+ #{value\ 14203}#
+ #{w\ 14205}#)))
+ (let ((#{type\ 14297}#
+ (#{binding-type\ 12899}#
+ (#{lookup\ 12910}#
+ #{n\ 14295}#
+ #{r\ 14177}#
+ #{mod\ 14207}#))))
+ (if (memv #{type\ 14297}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 1747}# (quote (c c&e)))
+ (if (if (memq #{m\ 14179}#
+ '(c c&e))
(if (not (module-local-variable
(current-module)
- #{n\ 1870}#))
+ #{n\ 14295}#))
(current-module)
#f)
#f)
- (let ((#{old\ 1878}#
+ (let ((#{old\ 14303}#
(module-variable
(current-module)
- #{n\ 1870}#)))
+ #{n\ 14295}#)))
(module-define!
(current-module)
- #{n\ 1870}#
- (if (variable? #{old\ 1878}#)
- (variable-ref #{old\ 1878}#)
+ #{n\ 14295}#
+ (if (variable? #{old\ 14303}#)
+ (variable-ref #{old\ 14303}#)
#f))))
- (let ((#{x\ 1881}#
- (#{build-global-definition\ 307}#
- #{s\ 1781}#
- #{n\ 1870}#
- (#{chi\ 452}#
- #{e\ 1779}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{mod\ 1782}#))))
+ (let ((#{x\ 14306}#
+ (#{build-global-definition\ 12856}#
+ #{s\ 14206}#
+ #{n\ 14295}#
+ (#{chi\ 13001}#
+ #{e\ 14204}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))))
(begin
- (if (eq? #{m\ 1747}# (quote c&e))
- (#{top-level-eval-hook\ 276}#
- #{x\ 1881}#
- #{mod\ 1782}#))
- #{x\ 1881}#)))
- (if (memv #{type\ 1872}#
+ (if (eq? #{m\ 14179}# (quote c&e))
+ (#{top-level-eval-hook\ 12825}#
+ #{x\ 14306}#
+ #{mod\ 14207}#))
+ #{x\ 14306}#)))
+ (if (memv #{type\ 14297}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1779}#
- (#{wrap\ 436}#
- #{value\ 1778}#
- #{w\ 1780}#
- #{mod\ 1782}#))
+ #{e\ 14204}#
+ (#{wrap\ 12985}#
+ #{value\ 14203}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1779}#
- (#{wrap\ 436}#
- #{value\ 1778}#
- #{w\ 1780}#
- #{mod\ 1782}#))))))
- (let ((#{x\ 1887}#
- (#{chi-expr\ 454}#
- #{type\ 1777}#
- #{value\ 1778}#
- #{e\ 1779}#
- #{r\ 1745}#
- #{w\ 1780}#
- #{s\ 1781}#
- #{mod\ 1782}#)))
+ #{e\ 14204}#
+ (#{wrap\ 12985}#
+ #{value\ 14203}#
+ #{w\ 14205}#
+ #{mod\ 14207}#))))))
+ (let ((#{x\ 14312}#
+ (#{chi-expr\ 13003}#
+ #{type\ 14202}#
+ #{value\ 14203}#
+ #{e\ 14204}#
+ #{r\ 14177}#
+ #{w\ 14205}#
+ #{s\ 14206}#
+ #{mod\ 14207}#)))
(begin
- (if (eq? #{m\ 1747}# (quote c&e))
- (#{top-level-eval-hook\ 276}#
- #{x\ 1887}#
- #{mod\ 1782}#))
- #{x\ 1887}#)))))))))))
- (#{syntax-type\ 448}#
- (lambda (#{e\ 1888}#
- #{r\ 1889}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{rib\ 1892}#
- #{mod\ 1893}#
- #{for-car?\ 1894}#)
- (if (symbol? #{e\ 1888}#)
- (let ((#{n\ 1906}#
- (#{id-var-name\ 424}# #{e\ 1888}# #{w\ 1890}#)))
- (let ((#{b\ 1908}#
- (#{lookup\ 361}#
- #{n\ 1906}#
- #{r\ 1889}#
- #{mod\ 1893}#)))
- (let ((#{type\ 1910}#
- (#{binding-type\ 350}# #{b\ 1908}#)))
- (if (memv #{type\ 1910}# (quote (lexical)))
+ (if (eq? #{m\ 14179}# (quote c&e))
+ (#{top-level-eval-hook\ 12825}#
+ #{x\ 14312}#
+ #{mod\ 14207}#))
+ #{x\ 14312}#)))))))))))
+ (#{syntax-type\ 12997}#
+ (lambda (#{e\ 14313}#
+ #{r\ 14314}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#
+ #{for-car?\ 14319}#)
+ (if (symbol? #{e\ 14313}#)
+ (let ((#{n\ 14331}#
+ (#{id-var-name\ 12973}#
+ #{e\ 14313}#
+ #{w\ 14315}#)))
+ (let ((#{b\ 14333}#
+ (#{lookup\ 12910}#
+ #{n\ 14331}#
+ #{r\ 14314}#
+ #{mod\ 14318}#)))
+ (let ((#{type\ 14335}#
+ (#{binding-type\ 12899}# #{b\ 14333}#)))
+ (if (memv #{type\ 14335}# (quote (lexical)))
(values
- #{type\ 1910}#
- (#{binding-value\ 352}# #{b\ 1908}#)
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{type\ 1910}# (quote (global)))
+ #{type\ 14335}#
+ (#{binding-value\ 12901}# #{b\ 14333}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{type\ 14335}# (quote (global)))
(values
- #{type\ 1910}#
- #{n\ 1906}#
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{type\ 1910}# (quote (macro)))
- (if #{for-car?\ 1894}#
+ #{type\ 14335}#
+ #{n\ 14331}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{type\ 14335}# (quote (macro)))
+ (if #{for-car?\ 14319}#
(values
- #{type\ 1910}#
- (#{binding-value\ 352}# #{b\ 1908}#)
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (#{syntax-type\ 448}#
- (#{chi-macro\ 458}#
- (#{binding-value\ 352}# #{b\ 1908}#)
- #{e\ 1888}#
- #{r\ 1889}#
- #{w\ 1890}#
- #{rib\ 1892}#
- #{mod\ 1893}#)
- #{r\ 1889}#
+ #{type\ 14335}#
+ (#{binding-value\ 12901}# #{b\ 14333}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (#{syntax-type\ 12997}#
+ (#{chi-macro\ 13007}#
+ (#{binding-value\ 12901}# #{b\ 14333}#)
+ #{e\ 14313}#
+ #{r\ 14314}#
+ #{w\ 14315}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#)
+ #{r\ 14314}#
'(())
- #{s\ 1891}#
- #{rib\ 1892}#
- #{mod\ 1893}#
+ #{s\ 14316}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#
#f))
(values
- #{type\ 1910}#
- (#{binding-value\ 352}# #{b\ 1908}#)
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)))))))
- (if (pair? #{e\ 1888}#)
- (let ((#{first\ 1919}# (car #{e\ 1888}#)))
+ #{type\ 14335}#
+ (#{binding-value\ 12901}# #{b\ 14333}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)))))))
+ (if (pair? #{e\ 14313}#)
+ (let ((#{first\ 14344}# (car #{e\ 14313}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 448}#
- #{first\ 1919}#
- #{r\ 1889}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{rib\ 1892}#
- #{mod\ 1893}#
+ (#{syntax-type\ 12997}#
+ #{first\ 14344}#
+ #{r\ 14314}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#
#t))
- (lambda (#{ftype\ 1920}#
- #{fval\ 1921}#
- #{fe\ 1922}#
- #{fw\ 1923}#
- #{fs\ 1924}#
- #{fmod\ 1925}#)
- (if (memv #{ftype\ 1920}# (quote (lexical)))
+ (lambda (#{ftype\ 14345}#
+ #{fval\ 14346}#
+ #{fe\ 14347}#
+ #{fw\ 14348}#
+ #{fs\ 14349}#
+ #{fmod\ 14350}#)
+ (if (memv #{ftype\ 14345}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1921}#
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}# (quote (global)))
+ #{fval\ 14346}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 329}#
- #{fval\ 1921}#
- #{w\ 1890}#
- #{fmod\ 1925}#)
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}# (quote (macro)))
- (#{syntax-type\ 448}#
- (#{chi-macro\ 458}#
- #{fval\ 1921}#
- #{e\ 1888}#
- #{r\ 1889}#
- #{w\ 1890}#
- #{rib\ 1892}#
- #{mod\ 1893}#)
- #{r\ 1889}#
+ (#{make-syntax-object\ 12878}#
+ #{fval\ 14346}#
+ #{w\ 14315}#
+ #{fmod\ 14350}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}# (quote (macro)))
+ (#{syntax-type\ 12997}#
+ (#{chi-macro\ 13007}#
+ #{fval\ 14346}#
+ #{e\ 14313}#
+ #{r\ 14314}#
+ #{w\ 14315}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#)
+ #{r\ 14314}#
'(())
- #{s\ 1891}#
- #{rib\ 1892}#
- #{mod\ 1893}#
- #{for-car?\ 1894}#)
- (if (memv #{ftype\ 1920}# (quote (module-ref)))
+ #{s\ 14316}#
+ #{rib\ 14317}#
+ #{mod\ 14318}#
+ #{for-car?\ 14319}#)
+ (if (memv #{ftype\ 14345}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 1921}#
- #{e\ 1888}#
- #{r\ 1889}#
- #{w\ 1890}#))
- (lambda (#{e\ 1937}#
- #{r\ 1938}#
- #{w\ 1939}#
- #{s\ 1940}#
- #{mod\ 1941}#)
- (#{syntax-type\ 448}#
- #{e\ 1937}#
- #{r\ 1938}#
- #{w\ 1939}#
- #{s\ 1940}#
- #{rib\ 1892}#
- #{mod\ 1941}#
- #{for-car?\ 1894}#)))
- (if (memv #{ftype\ 1920}# (quote (core)))
+ (#{fval\ 14346}#
+ #{e\ 14313}#
+ #{r\ 14314}#
+ #{w\ 14315}#))
+ (lambda (#{e\ 14362}#
+ #{r\ 14363}#
+ #{w\ 14364}#
+ #{s\ 14365}#
+ #{mod\ 14366}#)
+ (#{syntax-type\ 12997}#
+ #{e\ 14362}#
+ #{r\ 14363}#
+ #{w\ 14364}#
+ #{s\ 14365}#
+ #{rib\ 14317}#
+ #{mod\ 14366}#
+ #{for-car?\ 14319}#)))
+ (if (memv #{ftype\ 14345}# (quote (core)))
(values
'core-form
- #{fval\ 1921}#
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}#
+ #{fval\ 14346}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1921}#
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}# (quote (begin)))
+ #{fval\ 14346}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}#
+ '(begin))
(values
'begin-form
#f
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
- (if (memv #{ftype\ 1920}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
+ (if (memv #{ftype\ 14345}#
'(define))
- ((lambda (#{tmp\ 1952}#)
- ((lambda (#{tmp\ 1953}#)
- (if (if #{tmp\ 1953}#
- (apply (lambda (#{_\ 1957}#
- #{name\ 1958}#
- #{val\ 1959}#)
- (#{id?\ 367}#
- #{name\ 1958}#))
- #{tmp\ 1953}#)
+ ((lambda (#{tmp\ 14377}#)
+ ((lambda (#{tmp\ 14378}#)
+ (if (if #{tmp\ 14378}#
+ (apply (lambda (#{_\ 14382}#
+ #{name\ 14383}#
+ #{val\ 14384}#)
+ (#{id?\ 12916}#
+ #{name\ 14383}#))
+ #{tmp\ 14378}#)
#f)
- (apply (lambda (#{_\ 1963}#
- #{name\ 1964}#
- #{val\ 1965}#)
+ (apply (lambda (#{_\ 14388}#
+ #{name\ 14389}#
+ #{val\ 14390}#)
(values
'define-form
- #{name\ 1964}#
- #{val\ 1965}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#))
- #{tmp\ 1953}#)
- ((lambda (#{tmp\ 1966}#)
- (if (if #{tmp\ 1966}#
- (apply (lambda (#{_\ 1972}#
- #{name\ 1973}#
- #{args\ 1974}#
- #{e1\ 1975}#
- #{e2\ 1976}#)
- (if (#{id?\ 367}#
- #{name\ 1973}#)
- (#{valid-bound-ids?\ 430}#
- (#{lambda-var-list\ 482}#
- #{args\ 1974}#))
+ #{name\ 14389}#
+ #{val\ 14390}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#))
+ #{tmp\ 14378}#)
+ ((lambda (#{tmp\ 14391}#)
+ (if (if #{tmp\ 14391}#
+ (apply (lambda (#{_\ 14397}#
+ #{name\ 14398}#
+ #{args\ 14399}#
+ #{e1\ 14400}#
+ #{e2\ 14401}#)
+ (if (#{id?\ 12916}#
+ #{name\ 14398}#)
+ (#{valid-bound-ids?\ 12979}#
+ (#{lambda-var-list\ 13031}#
+ #{args\ 14399}#))
#f))
- #{tmp\ 1966}#)
+ #{tmp\ 14391}#)
#f)
- (apply (lambda (#{_\ 1984}#
- #{name\ 1985}#
- #{args\ 1986}#
- #{e1\ 1987}#
- #{e2\ 1988}#)
+ (apply (lambda (#{_\ 14409}#
+ #{name\ 14410}#
+ #{args\ 14411}#
+ #{e1\ 14412}#
+ #{e2\ 14413}#)
(values
'define-form
- (#{wrap\ 436}#
- #{name\ 1985}#
- #{w\ 1890}#
- #{mod\ 1893}#)
- (#{decorate-source\ 285}#
+ (#{wrap\ 12985}#
+ #{name\ 14410}#
+ #{w\ 14315}#
+ #{mod\ 14318}#)
+ (#{decorate-source\ 12834}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1979"
- "i1980"
- "i1981"
- "i1982"
- "i1983"))
+ #("i14404"
+ "i14405"
+ "i14406"
+ "i14407"
+ "i14408"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1926"
- "i1927"
- "i1928"
- "i1929"
- "i1930"
- "i1931"))
+ #("i14351"
+ "i14352"
+ "i14353"
+ "i14354"
+ "i14355"
+ "i14356"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1918"))
+ #("i14343"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1895"
- "i1896"
- "i1897"
- "i1898"
- "i1899"
- "i1900"
- "i1901"))
+ #("i14320"
+ "i14321"
+ "i14322"
+ "i14323"
+ "i14324"
+ "i14325"
+ "i14326"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile))
- (#{wrap\ 436}#
- (cons #{args\ 1986}#
- (cons #{e1\ 1987}#
- #{e2\ 1988}#))
- #{w\ 1890}#
- #{mod\ 1893}#))
- #{s\ 1891}#)
+ (#{wrap\ 12985}#
+ (cons #{args\ 14411}#
+ (cons #{e1\ 14412}#
+ #{e2\ 14413}#))
+ #{w\ 14315}#
+ #{mod\ 14318}#))
+ #{s\ 14316}#)
'(())
- #{s\ 1891}#
- #{mod\ 1893}#))
- #{tmp\ 1966}#)
- ((lambda (#{tmp\ 1991}#)
- (if (if #{tmp\ 1991}#
- (apply (lambda (#{_\ 1994}#
- #{name\ 1995}#)
- (#{id?\ 367}#
- #{name\ 1995}#))
- #{tmp\ 1991}#)
+ #{s\ 14316}#
+ #{mod\ 14318}#))
+ #{tmp\ 14391}#)
+ ((lambda (#{tmp\ 14416}#)
+ (if (if #{tmp\ 14416}#
+ (apply (lambda (#{_\ 14419}#
+ #{name\ 14420}#)
+ (#{id?\ 12916}#
+ #{name\ 14420}#))
+ #{tmp\ 14416}#)
#f)
- (apply (lambda (#{_\ 1998}#
- #{name\ 1999}#)
+ (apply (lambda (#{_\ 14423}#
+ #{name\ 14424}#)
(values
'define-form
- (#{wrap\ 436}#
- #{name\ 1999}#
- #{w\ 1890}#
- #{mod\ 1893}#)
+ (#{wrap\ 12985}#
+ #{name\ 14424}#
+ #{w\ 14315}#
+ #{mod\ 14318}#)
'(#(syntax-object
if
((top)
name)
#((top)
(top))
- #("i1996"
- "i1997"))
+ #("i14421"
+ "i14422"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1926"
- "i1927"
- "i1928"
- "i1929"
- "i1930"
- "i1931"))
+ #("i14351"
+ "i14352"
+ "i14353"
+ "i14354"
+ "i14355"
+ "i14356"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1918"))
+ #("i14343"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1895"
- "i1896"
- "i1897"
- "i1898"
- "i1899"
- "i1900"
- "i1901"))
+ #("i14320"
+ "i14321"
+ "i14322"
+ "i14323"
+ "i14324"
+ "i14325"
+ "i14326"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1996"
- "i1997"))
+ #("i14421"
+ "i14422"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1926"
- "i1927"
- "i1928"
- "i1929"
- "i1930"
- "i1931"))
+ #("i14351"
+ "i14352"
+ "i14353"
+ "i14354"
+ "i14355"
+ "i14356"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1918"))
+ #("i14343"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1895"
- "i1896"
- "i1897"
- "i1898"
- "i1899"
- "i1900"
- "i1901"))
+ #("i14320"
+ "i14321"
+ "i14322"
+ "i14323"
+ "i14324"
+ "i14325"
+ "i14326"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1996"
- "i1997"))
+ #("i14421"
+ "i14422"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1926"
- "i1927"
- "i1928"
- "i1929"
- "i1930"
- "i1931"))
+ #("i14351"
+ "i14352"
+ "i14353"
+ "i14354"
+ "i14355"
+ "i14356"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1918"))
+ #("i14343"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1895"
- "i1896"
- "i1897"
- "i1898"
- "i1899"
- "i1900"
- "i1901"))
+ #("i14320"
+ "i14321"
+ "i14322"
+ "i14323"
+ "i14324"
+ "i14325"
+ "i14326"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene
guile)))
'(())
- #{s\ 1891}#
- #{mod\ 1893}#))
- #{tmp\ 1991}#)
+ #{s\ 14316}#
+ #{mod\ 14318}#))
+ #{tmp\ 14416}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1952}#)))
+ #{tmp\ 14377}#)))
($sc-dispatch
- #{tmp\ 1952}#
+ #{tmp\ 14377}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1952}#
+ #{tmp\ 14377}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1952}#
+ #{tmp\ 14377}#
'(any any any))))
- #{e\ 1888}#)
- (if (memv #{ftype\ 1920}#
+ #{e\ 14313}#)
+ (if (memv #{ftype\ 14345}#
'(define-syntax))
- ((lambda (#{tmp\ 2002}#)
- ((lambda (#{tmp\ 2003}#)
- (if (if #{tmp\ 2003}#
- (apply (lambda (#{_\ 2007}#
- #{name\ 2008}#
- #{val\ 2009}#)
- (#{id?\ 367}#
- #{name\ 2008}#))
- #{tmp\ 2003}#)
+ ((lambda (#{tmp\ 14427}#)
+ ((lambda (#{tmp\ 14428}#)
+ (if (if #{tmp\ 14428}#
+ (apply (lambda (#{_\ 14432}#
+ #{name\ 14433}#
+ #{val\ 14434}#)
+ (#{id?\ 12916}#
+ #{name\ 14433}#))
+ #{tmp\ 14428}#)
#f)
- (apply (lambda (#{_\ 2013}#
- #{name\ 2014}#
- #{val\ 2015}#)
+ (apply (lambda (#{_\ 14438}#
+ #{name\ 14439}#
+ #{val\ 14440}#)
(values
'define-syntax-form
- #{name\ 2014}#
- #{val\ 2015}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#))
- #{tmp\ 2003}#)
+ #{name\ 14439}#
+ #{val\ 14440}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#))
+ #{tmp\ 14428}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2002}#)))
+ #{tmp\ 14427}#)))
($sc-dispatch
- #{tmp\ 2002}#
+ #{tmp\ 14427}#
'(any any any))))
- #{e\ 1888}#)
+ #{e\ 14313}#)
(values
'call
#f
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#))))))))))))))
- (if (#{syntax-object?\ 331}# #{e\ 1888}#)
- (#{syntax-type\ 448}#
- (#{syntax-object-expression\ 333}# #{e\ 1888}#)
- #{r\ 1889}#
- (#{join-wraps\ 418}#
- #{w\ 1890}#
- (#{syntax-object-wrap\ 335}# #{e\ 1888}#))
- #{s\ 1891}#
- #{rib\ 1892}#
- (let ((#{t\ 2021}#
- (#{syntax-object-module\ 337}# #{e\ 1888}#)))
- (if #{t\ 2021}# #{t\ 2021}# #{mod\ 1893}#))
- #{for-car?\ 1894}#)
- (if (self-evaluating? #{e\ 1888}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#))))))))))))))
+ (if (#{syntax-object?\ 12880}# #{e\ 14313}#)
+ (#{syntax-type\ 12997}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 14313}#)
+ #{r\ 14314}#
+ (#{join-wraps\ 12967}#
+ #{w\ 14315}#
+ (#{syntax-object-wrap\ 12884}# #{e\ 14313}#))
+ #{s\ 14316}#
+ #{rib\ 14317}#
+ (let ((#{t\ 14446}#
+ (#{syntax-object-module\ 12886}# #{e\ 14313}#)))
+ (if #{t\ 14446}# #{t\ 14446}# #{mod\ 14318}#))
+ #{for-car?\ 14319}#)
+ (if (self-evaluating? #{e\ 14313}#)
(values
'constant
#f
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)
(values
'other
#f
- #{e\ 1888}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{mod\ 1893}#)))))))
- (#{chi-when-list\ 446}#
- (lambda (#{e\ 2026}# #{when-list\ 2027}# #{w\ 2028}#)
- (letrec ((#{f\ 2035}#
- (lambda (#{when-list\ 2036}# #{situations\ 2037}#)
- (if (null? #{when-list\ 2036}#)
- #{situations\ 2037}#
- (#{f\ 2035}#
- (cdr #{when-list\ 2036}#)
- (cons (let ((#{x\ 2039}#
- (car #{when-list\ 2036}#)))
- (if (#{free-id=?\ 426}#
- #{x\ 2039}#
+ #{e\ 14313}#
+ #{w\ 14315}#
+ #{s\ 14316}#
+ #{mod\ 14318}#)))))))
+ (#{chi-when-list\ 12995}#
+ (lambda (#{e\ 14451}# #{when-list\ 14452}# #{w\ 14453}#)
+ (letrec ((#{f\ 14460}#
+ (lambda (#{when-list\ 14461}# #{situations\ 14462}#)
+ (if (null? #{when-list\ 14461}#)
+ #{situations\ 14462}#
+ (#{f\ 14460}#
+ (cdr #{when-list\ 14461}#)
+ (cons (let ((#{x\ 14464}#
+ (car #{when-list\ 14461}#)))
+ (if (#{free-id=?\ 12975}#
+ #{x\ 14464}#
'#(syntax-object
compile
((top)
#(ribcage
#(x)
#((top))
- #("i2038"))
+ #("i14463"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i2032" "i2033" "i2034"))
+ #("i14457"
+ "i14458"
+ "i14459"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i2029" "i2030" "i2031"))
+ #("i14454"
+ "i14455"
+ "i14456"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 426}#
- #{x\ 2039}#
+ (if (#{free-id=?\ 12975}#
+ #{x\ 14464}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i2038"))
+ #("i14463"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i2032"
- "i2033"
- "i2034"))
+ #("i14457"
+ "i14458"
+ "i14459"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i2029"
- "i2030"
- "i2031"))
+ #("i14454"
+ "i14455"
+ "i14456"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 426}#
- #{x\ 2039}#
+ (if (#{free-id=?\ 12975}#
+ #{x\ 14464}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i2038"))
+ #("i14463"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i2032"
- "i2033"
- "i2034"))
+ #("i14457"
+ "i14458"
+ "i14459"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i2029"
- "i2030"
- "i2031"))
+ #("i14454"
+ "i14455"
+ "i14456"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 426}#
- #{x\ 2039}#
+ (if (#{free-id=?\ 12975}#
+ #{x\ 14464}#
'#(syntax-object
expand
((top)
#(ribcage
#(x)
#((top))
- #("i2038"))
+ #("i14463"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i2032"
- "i2033"
- "i2034"))
+ #("i14457"
+ "i14458"
+ "i14459"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i2029"
- "i2030"
- "i2031"))
+ #("i14454"
+ "i14455"
+ "i14456"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 2026}#
- (#{wrap\ 436}#
- #{x\ 2039}#
- #{w\ 2028}#
+ #{e\ 14451}#
+ (#{wrap\ 12985}#
+ #{x\ 14464}#
+ #{w\ 14453}#
#f)))))))
- #{situations\ 2037}#))))))
- (#{f\ 2035}# #{when-list\ 2027}# (quote ())))))
- (#{chi-install-global\ 444}#
- (lambda (#{name\ 2049}# #{e\ 2050}#)
- (#{build-global-definition\ 307}#
+ #{situations\ 14462}#))))))
+ (#{f\ 14460}# #{when-list\ 14452}# (quote ())))))
+ (#{chi-install-global\ 12993}#
+ (lambda (#{name\ 14474}# #{e\ 14475}#)
+ (#{build-global-definition\ 12856}#
#f
- #{name\ 2049}#
- (#{build-application\ 289}#
+ #{name\ 14474}#
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 317}# #f #{name\ 2049}#)
- (#{build-data\ 317}# #f (quote macro))
- (#{build-application\ 289}#
+ (list (#{build-data\ 12866}# #f #{name\ 14474}#)
+ (#{build-data\ 12866}# #f (quote macro))
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}# #f (quote cons))
- (list #{e\ 2050}#
- (#{build-application\ 289}#
+ (#{build-primref\ 12864}# #f (quote cons))
+ (list #{e\ 14475}#
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'module-name)
- (list (#{build-application\ 289}#
+ (list (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 442}#
- (lambda (#{body\ 2064}#
- #{r\ 2065}#
- #{w\ 2066}#
- #{s\ 2067}#
- #{m\ 2068}#
- #{esew\ 2069}#
- #{mod\ 2070}#)
- (#{build-sequence\ 319}#
- #{s\ 2067}#
- (letrec ((#{dobody\ 2086}#
- (lambda (#{body\ 2087}#
- #{r\ 2088}#
- #{w\ 2089}#
- #{m\ 2090}#
- #{esew\ 2091}#
- #{mod\ 2092}#
- #{out\ 2093}#)
- (if (null? #{body\ 2087}#)
- (reverse #{out\ 2093}#)
- (#{dobody\ 2086}#
- (cdr #{body\ 2087}#)
- #{r\ 2088}#
- #{w\ 2089}#
- #{m\ 2090}#
- #{esew\ 2091}#
- #{mod\ 2092}#
- (cons (#{chi-top\ 450}#
- (car #{body\ 2087}#)
- #{r\ 2088}#
- #{w\ 2089}#
- #{m\ 2090}#
- #{esew\ 2091}#
- #{mod\ 2092}#)
- #{out\ 2093}#))))))
- (#{dobody\ 2086}#
- #{body\ 2064}#
- #{r\ 2065}#
- #{w\ 2066}#
- #{m\ 2068}#
- #{esew\ 2069}#
- #{mod\ 2070}#
+ (#{chi-top-sequence\ 12991}#
+ (lambda (#{body\ 14489}#
+ #{r\ 14490}#
+ #{w\ 14491}#
+ #{s\ 14492}#
+ #{m\ 14493}#
+ #{esew\ 14494}#
+ #{mod\ 14495}#)
+ (#{build-sequence\ 12868}#
+ #{s\ 14492}#
+ (letrec ((#{dobody\ 14511}#
+ (lambda (#{body\ 14512}#
+ #{r\ 14513}#
+ #{w\ 14514}#
+ #{m\ 14515}#
+ #{esew\ 14516}#
+ #{mod\ 14517}#
+ #{out\ 14518}#)
+ (if (null? #{body\ 14512}#)
+ (reverse #{out\ 14518}#)
+ (#{dobody\ 14511}#
+ (cdr #{body\ 14512}#)
+ #{r\ 14513}#
+ #{w\ 14514}#
+ #{m\ 14515}#
+ #{esew\ 14516}#
+ #{mod\ 14517}#
+ (cons (#{chi-top\ 12999}#
+ (car #{body\ 14512}#)
+ #{r\ 14513}#
+ #{w\ 14514}#
+ #{m\ 14515}#
+ #{esew\ 14516}#
+ #{mod\ 14517}#)
+ #{out\ 14518}#))))))
+ (#{dobody\ 14511}#
+ #{body\ 14489}#
+ #{r\ 14490}#
+ #{w\ 14491}#
+ #{m\ 14493}#
+ #{esew\ 14494}#
+ #{mod\ 14495}#
'())))))
- (#{chi-sequence\ 440}#
- (lambda (#{body\ 2094}#
- #{r\ 2095}#
- #{w\ 2096}#
- #{s\ 2097}#
- #{mod\ 2098}#)
- (#{build-sequence\ 319}#
- #{s\ 2097}#
- (letrec ((#{dobody\ 2109}#
- (lambda (#{body\ 2110}#
- #{r\ 2111}#
- #{w\ 2112}#
- #{mod\ 2113}#)
- (if (null? #{body\ 2110}#)
+ (#{chi-sequence\ 12989}#
+ (lambda (#{body\ 14519}#
+ #{r\ 14520}#
+ #{w\ 14521}#
+ #{s\ 14522}#
+ #{mod\ 14523}#)
+ (#{build-sequence\ 12868}#
+ #{s\ 14522}#
+ (letrec ((#{dobody\ 14534}#
+ (lambda (#{body\ 14535}#
+ #{r\ 14536}#
+ #{w\ 14537}#
+ #{mod\ 14538}#)
+ (if (null? #{body\ 14535}#)
'()
- (let ((#{first\ 2115}#
- (#{chi\ 452}#
- (car #{body\ 2110}#)
- #{r\ 2111}#
- #{w\ 2112}#
- #{mod\ 2113}#)))
- (cons #{first\ 2115}#
- (#{dobody\ 2109}#
- (cdr #{body\ 2110}#)
- #{r\ 2111}#
- #{w\ 2112}#
- #{mod\ 2113}#)))))))
- (#{dobody\ 2109}#
- #{body\ 2094}#
- #{r\ 2095}#
- #{w\ 2096}#
- #{mod\ 2098}#)))))
- (#{source-wrap\ 438}#
- (lambda (#{x\ 2116}#
- #{w\ 2117}#
- #{s\ 2118}#
- #{defmod\ 2119}#)
- (#{wrap\ 436}#
- (#{decorate-source\ 285}#
- #{x\ 2116}#
- #{s\ 2118}#)
- #{w\ 2117}#
- #{defmod\ 2119}#)))
- (#{wrap\ 436}#
- (lambda (#{x\ 2124}# #{w\ 2125}# #{defmod\ 2126}#)
- (if (if (null? (#{wrap-marks\ 374}# #{w\ 2125}#))
- (null? (#{wrap-subst\ 376}# #{w\ 2125}#))
+ (let ((#{first\ 14540}#
+ (#{chi\ 13001}#
+ (car #{body\ 14535}#)
+ #{r\ 14536}#
+ #{w\ 14537}#
+ #{mod\ 14538}#)))
+ (cons #{first\ 14540}#
+ (#{dobody\ 14534}#
+ (cdr #{body\ 14535}#)
+ #{r\ 14536}#
+ #{w\ 14537}#
+ #{mod\ 14538}#)))))))
+ (#{dobody\ 14534}#
+ #{body\ 14519}#
+ #{r\ 14520}#
+ #{w\ 14521}#
+ #{mod\ 14523}#)))))
+ (#{source-wrap\ 12987}#
+ (lambda (#{x\ 14541}#
+ #{w\ 14542}#
+ #{s\ 14543}#
+ #{defmod\ 14544}#)
+ (#{wrap\ 12985}#
+ (#{decorate-source\ 12834}#
+ #{x\ 14541}#
+ #{s\ 14543}#)
+ #{w\ 14542}#
+ #{defmod\ 14544}#)))
+ (#{wrap\ 12985}#
+ (lambda (#{x\ 14549}# #{w\ 14550}# #{defmod\ 14551}#)
+ (if (if (null? (#{wrap-marks\ 12923}# #{w\ 14550}#))
+ (null? (#{wrap-subst\ 12925}# #{w\ 14550}#))
#f)
- #{x\ 2124}#
- (if (#{syntax-object?\ 331}# #{x\ 2124}#)
- (#{make-syntax-object\ 329}#
- (#{syntax-object-expression\ 333}# #{x\ 2124}#)
- (#{join-wraps\ 418}#
- #{w\ 2125}#
- (#{syntax-object-wrap\ 335}# #{x\ 2124}#))
- (#{syntax-object-module\ 337}# #{x\ 2124}#))
- (if (null? #{x\ 2124}#)
- #{x\ 2124}#
- (#{make-syntax-object\ 329}#
- #{x\ 2124}#
- #{w\ 2125}#
- #{defmod\ 2126}#))))))
- (#{bound-id-member?\ 434}#
- (lambda (#{x\ 2139}# #{list\ 2140}#)
- (if (not (null? #{list\ 2140}#))
- (let ((#{t\ 2147}#
- (#{bound-id=?\ 428}#
- #{x\ 2139}#
- (car #{list\ 2140}#))))
- (if #{t\ 2147}#
- #{t\ 2147}#
- (#{bound-id-member?\ 434}#
- #{x\ 2139}#
- (cdr #{list\ 2140}#))))
+ #{x\ 14549}#
+ (if (#{syntax-object?\ 12880}# #{x\ 14549}#)
+ (#{make-syntax-object\ 12878}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14549}#)
+ (#{join-wraps\ 12967}#
+ #{w\ 14550}#
+ (#{syntax-object-wrap\ 12884}# #{x\ 14549}#))
+ (#{syntax-object-module\ 12886}# #{x\ 14549}#))
+ (if (null? #{x\ 14549}#)
+ #{x\ 14549}#
+ (#{make-syntax-object\ 12878}#
+ #{x\ 14549}#
+ #{w\ 14550}#
+ #{defmod\ 14551}#))))))
+ (#{bound-id-member?\ 12983}#
+ (lambda (#{x\ 14564}# #{list\ 14565}#)
+ (if (not (null? #{list\ 14565}#))
+ (let ((#{t\ 14572}#
+ (#{bound-id=?\ 12977}#
+ #{x\ 14564}#
+ (car #{list\ 14565}#))))
+ (if #{t\ 14572}#
+ #{t\ 14572}#
+ (#{bound-id-member?\ 12983}#
+ #{x\ 14564}#
+ (cdr #{list\ 14565}#))))
#f)))
- (#{distinct-bound-ids?\ 432}#
- (lambda (#{ids\ 2149}#)
- (letrec ((#{distinct?\ 2153}#
- (lambda (#{ids\ 2154}#)
- (let ((#{t\ 2157}# (null? #{ids\ 2154}#)))
- (if #{t\ 2157}#
- #{t\ 2157}#
- (if (not (#{bound-id-member?\ 434}#
- (car #{ids\ 2154}#)
- (cdr #{ids\ 2154}#)))
- (#{distinct?\ 2153}# (cdr #{ids\ 2154}#))
+ (#{distinct-bound-ids?\ 12981}#
+ (lambda (#{ids\ 14574}#)
+ (letrec ((#{distinct?\ 14578}#
+ (lambda (#{ids\ 14579}#)
+ (let ((#{t\ 14582}# (null? #{ids\ 14579}#)))
+ (if #{t\ 14582}#
+ #{t\ 14582}#
+ (if (not (#{bound-id-member?\ 12983}#
+ (car #{ids\ 14579}#)
+ (cdr #{ids\ 14579}#)))
+ (#{distinct?\ 14578}# (cdr #{ids\ 14579}#))
#f))))))
- (#{distinct?\ 2153}# #{ids\ 2149}#))))
- (#{valid-bound-ids?\ 430}#
- (lambda (#{ids\ 2161}#)
- (if (letrec ((#{all-ids?\ 2166}#
- (lambda (#{ids\ 2167}#)
- (let ((#{t\ 2170}# (null? #{ids\ 2167}#)))
- (if #{t\ 2170}#
- #{t\ 2170}#
- (if (#{id?\ 367}# (car #{ids\ 2167}#))
- (#{all-ids?\ 2166}# (cdr #{ids\ 2167}#))
+ (#{distinct?\ 14578}# #{ids\ 14574}#))))
+ (#{valid-bound-ids?\ 12979}#
+ (lambda (#{ids\ 14586}#)
+ (if (letrec ((#{all-ids?\ 14591}#
+ (lambda (#{ids\ 14592}#)
+ (let ((#{t\ 14595}# (null? #{ids\ 14592}#)))
+ (if #{t\ 14595}#
+ #{t\ 14595}#
+ (if (#{id?\ 12916}# (car #{ids\ 14592}#))
+ (#{all-ids?\ 14591}#
+ (cdr #{ids\ 14592}#))
#f))))))
- (#{all-ids?\ 2166}# #{ids\ 2161}#))
- (#{distinct-bound-ids?\ 432}# #{ids\ 2161}#)
+ (#{all-ids?\ 14591}# #{ids\ 14586}#))
+ (#{distinct-bound-ids?\ 12981}# #{ids\ 14586}#)
#f)))
- (#{bound-id=?\ 428}#
- (lambda (#{i\ 2175}# #{j\ 2176}#)
- (if (if (#{syntax-object?\ 331}# #{i\ 2175}#)
- (#{syntax-object?\ 331}# #{j\ 2176}#)
+ (#{bound-id=?\ 12977}#
+ (lambda (#{i\ 14600}# #{j\ 14601}#)
+ (if (if (#{syntax-object?\ 12880}# #{i\ 14600}#)
+ (#{syntax-object?\ 12880}# #{j\ 14601}#)
#f)
- (if (eq? (#{syntax-object-expression\ 333}# #{i\ 2175}#)
- (#{syntax-object-expression\ 333}# #{j\ 2176}#))
- (#{same-marks?\ 422}#
- (#{wrap-marks\ 374}#
- (#{syntax-object-wrap\ 335}# #{i\ 2175}#))
- (#{wrap-marks\ 374}#
- (#{syntax-object-wrap\ 335}# #{j\ 2176}#)))
+ (if (eq? (#{syntax-object-expression\ 12882}#
+ #{i\ 14600}#)
+ (#{syntax-object-expression\ 12882}#
+ #{j\ 14601}#))
+ (#{same-marks?\ 12971}#
+ (#{wrap-marks\ 12923}#
+ (#{syntax-object-wrap\ 12884}# #{i\ 14600}#))
+ (#{wrap-marks\ 12923}#
+ (#{syntax-object-wrap\ 12884}# #{j\ 14601}#)))
#f)
- (eq? #{i\ 2175}# #{j\ 2176}#))))
- (#{free-id=?\ 426}#
- (lambda (#{i\ 2183}# #{j\ 2184}#)
- (if (eq? (let ((#{x\ 2190}# #{i\ 2183}#))
- (if (#{syntax-object?\ 331}# #{x\ 2190}#)
- (#{syntax-object-expression\ 333}# #{x\ 2190}#)
- #{x\ 2190}#))
- (let ((#{x\ 2193}# #{j\ 2184}#))
- (if (#{syntax-object?\ 331}# #{x\ 2193}#)
- (#{syntax-object-expression\ 333}# #{x\ 2193}#)
- #{x\ 2193}#)))
- (eq? (#{id-var-name\ 424}# #{i\ 2183}# (quote (())))
- (#{id-var-name\ 424}# #{j\ 2184}# (quote (()))))
+ (eq? #{i\ 14600}# #{j\ 14601}#))))
+ (#{free-id=?\ 12975}#
+ (lambda (#{i\ 14608}# #{j\ 14609}#)
+ (if (eq? (let ((#{x\ 14615}# #{i\ 14608}#))
+ (if (#{syntax-object?\ 12880}# #{x\ 14615}#)
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14615}#)
+ #{x\ 14615}#))
+ (let ((#{x\ 14618}# #{j\ 14609}#))
+ (if (#{syntax-object?\ 12880}# #{x\ 14618}#)
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14618}#)
+ #{x\ 14618}#)))
+ (eq? (#{id-var-name\ 12973}#
+ #{i\ 14608}#
+ '(()))
+ (#{id-var-name\ 12973}#
+ #{j\ 14609}#
+ '(())))
#f)))
- (#{id-var-name\ 424}#
- (lambda (#{id\ 2197}# #{w\ 2198}#)
- (letrec ((#{search-vector-rib\ 2207}#
- (lambda (#{sym\ 2224}#
- #{subst\ 2225}#
- #{marks\ 2226}#
- #{symnames\ 2227}#
- #{ribcage\ 2228}#)
- (let ((#{n\ 2235}#
- (vector-length #{symnames\ 2227}#)))
- (letrec ((#{f\ 2238}#
- (lambda (#{i\ 2239}#)
- (if (#{fx=\ 272}#
- #{i\ 2239}#
- #{n\ 2235}#)
- (#{search\ 2203}#
- #{sym\ 2224}#
- (cdr #{subst\ 2225}#)
- #{marks\ 2226}#)
+ (#{id-var-name\ 12973}#
+ (lambda (#{id\ 14622}# #{w\ 14623}#)
+ (letrec ((#{search-vector-rib\ 14632}#
+ (lambda (#{sym\ 14644}#
+ #{subst\ 14645}#
+ #{marks\ 14646}#
+ #{symnames\ 14647}#
+ #{ribcage\ 14648}#)
+ (let ((#{n\ 14655}#
+ (vector-length #{symnames\ 14647}#)))
+ (letrec ((#{f\ 14658}#
+ (lambda (#{i\ 14659}#)
+ (if (#{fx=\ 12821}#
+ #{i\ 14659}#
+ #{n\ 14655}#)
+ (#{search\ 14628}#
+ #{sym\ 14644}#
+ (cdr #{subst\ 14645}#)
+ #{marks\ 14646}#)
(if (if (eq? (vector-ref
- #{symnames\ 2227}#
- #{i\ 2239}#)
- #{sym\ 2224}#)
- (#{same-marks?\ 422}#
- #{marks\ 2226}#
+ #{symnames\ 14647}#
+ #{i\ 14659}#)
+ #{sym\ 14644}#)
+ (#{same-marks?\ 12971}#
+ #{marks\ 14646}#
(vector-ref
- (#{ribcage-marks\ 394}#
- #{ribcage\ 2228}#)
- #{i\ 2239}#))
+ (#{ribcage-marks\ 12943}#
+ #{ribcage\ 14648}#)
+ #{i\ 14659}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 396}#
- #{ribcage\ 2228}#)
- #{i\ 2239}#)
- #{marks\ 2226}#)
- (#{f\ 2238}#
- (#{fx+\ 268}#
- #{i\ 2239}#
+ (#{ribcage-labels\ 12945}#
+ #{ribcage\ 14648}#)
+ #{i\ 14659}#)
+ #{marks\ 14646}#)
+ (#{f\ 14658}#
+ (#{fx+\ 12817}#
+ #{i\ 14659}#
1)))))))
- (#{f\ 2238}# 0)))))
- (#{search-list-rib\ 2205}#
- (lambda (#{sym\ 2247}#
- #{subst\ 2248}#
- #{marks\ 2249}#
- #{symnames\ 2250}#
- #{ribcage\ 2251}#)
- (letrec ((#{f\ 2260}#
- (lambda (#{symnames\ 2261}# #{i\ 2262}#)
- (if (null? #{symnames\ 2261}#)
- (#{search\ 2203}#
- #{sym\ 2247}#
- (cdr #{subst\ 2248}#)
- #{marks\ 2249}#)
- (if (if (eq? (car #{symnames\ 2261}#)
- #{sym\ 2247}#)
- (#{same-marks?\ 422}#
- #{marks\ 2249}#
+ (#{f\ 14658}# 0)))))
+ (#{search-list-rib\ 14630}#
+ (lambda (#{sym\ 14667}#
+ #{subst\ 14668}#
+ #{marks\ 14669}#
+ #{symnames\ 14670}#
+ #{ribcage\ 14671}#)
+ (letrec ((#{f\ 14680}#
+ (lambda (#{symnames\ 14681}#
+ #{i\ 14682}#)
+ (if (null? #{symnames\ 14681}#)
+ (#{search\ 14628}#
+ #{sym\ 14667}#
+ (cdr #{subst\ 14668}#)
+ #{marks\ 14669}#)
+ (if (if (eq? (car #{symnames\ 14681}#)
+ #{sym\ 14667}#)
+ (#{same-marks?\ 12971}#
+ #{marks\ 14669}#
(list-ref
- (#{ribcage-marks\ 394}#
- #{ribcage\ 2251}#)
- #{i\ 2262}#))
+ (#{ribcage-marks\ 12943}#
+ #{ribcage\ 14671}#)
+ #{i\ 14682}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 396}#
- #{ribcage\ 2251}#)
- #{i\ 2262}#)
- #{marks\ 2249}#)
- (#{f\ 2260}#
- (cdr #{symnames\ 2261}#)
- (#{fx+\ 268}#
- #{i\ 2262}#
+ (#{ribcage-labels\ 12945}#
+ #{ribcage\ 14671}#)
+ #{i\ 14682}#)
+ #{marks\ 14669}#)
+ (#{f\ 14680}#
+ (cdr #{symnames\ 14681}#)
+ (#{fx+\ 12817}#
+ #{i\ 14682}#
1)))))))
- (#{f\ 2260}# #{symnames\ 2250}# 0))))
- (#{search\ 2203}#
- (lambda (#{sym\ 2270}#
- #{subst\ 2271}#
- #{marks\ 2272}#)
- (if (null? #{subst\ 2271}#)
- (values #f #{marks\ 2272}#)
- (let ((#{fst\ 2277}# (car #{subst\ 2271}#)))
- (if (eq? #{fst\ 2277}# (quote shift))
- (#{search\ 2203}#
- #{sym\ 2270}#
- (cdr #{subst\ 2271}#)
- (cdr #{marks\ 2272}#))
- (let ((#{symnames\ 2279}#
- (#{ribcage-symnames\ 392}#
- #{fst\ 2277}#)))
- (if (vector? #{symnames\ 2279}#)
- (#{search-vector-rib\ 2207}#
- #{sym\ 2270}#
- #{subst\ 2271}#
- #{marks\ 2272}#
- #{symnames\ 2279}#
- #{fst\ 2277}#)
- (#{search-list-rib\ 2205}#
- #{sym\ 2270}#
- #{subst\ 2271}#
- #{marks\ 2272}#
- #{symnames\ 2279}#
- #{fst\ 2277}#)))))))))
- (if (symbol? #{id\ 2197}#)
- (let ((#{t\ 2282}#
+ (#{f\ 14680}# #{symnames\ 14670}# 0))))
+ (#{search\ 14628}#
+ (lambda (#{sym\ 14690}#
+ #{subst\ 14691}#
+ #{marks\ 14692}#)
+ (if (null? #{subst\ 14691}#)
+ (values #f #{marks\ 14692}#)
+ (let ((#{fst\ 14697}# (car #{subst\ 14691}#)))
+ (if (eq? #{fst\ 14697}# (quote shift))
+ (#{search\ 14628}#
+ #{sym\ 14690}#
+ (cdr #{subst\ 14691}#)
+ (cdr #{marks\ 14692}#))
+ (let ((#{symnames\ 14699}#
+ (#{ribcage-symnames\ 12941}#
+ #{fst\ 14697}#)))
+ (if (vector? #{symnames\ 14699}#)
+ (#{search-vector-rib\ 14632}#
+ #{sym\ 14690}#
+ #{subst\ 14691}#
+ #{marks\ 14692}#
+ #{symnames\ 14699}#
+ #{fst\ 14697}#)
+ (#{search-list-rib\ 14630}#
+ #{sym\ 14690}#
+ #{subst\ 14691}#
+ #{marks\ 14692}#
+ #{symnames\ 14699}#
+ #{fst\ 14697}#)))))))))
+ (if (symbol? #{id\ 14622}#)
+ (let ((#{t\ 14702}#
(call-with-values
(lambda ()
- (#{search\ 2203}#
- #{id\ 2197}#
- (#{wrap-subst\ 376}# #{w\ 2198}#)
- (#{wrap-marks\ 374}# #{w\ 2198}#)))
- (lambda (#{x\ 2284}# . #{ignore\ 2285}#)
- #{x\ 2284}#))))
- (if #{t\ 2282}# #{t\ 2282}# #{id\ 2197}#))
- (if (#{syntax-object?\ 331}# #{id\ 2197}#)
- (let ((#{id\ 2293}#
- (#{syntax-object-expression\ 333}# #{id\ 2197}#))
- (#{w1\ 2294}#
- (#{syntax-object-wrap\ 335}# #{id\ 2197}#)))
- (let ((#{marks\ 2296}#
- (#{join-marks\ 420}#
- (#{wrap-marks\ 374}# #{w\ 2198}#)
- (#{wrap-marks\ 374}# #{w1\ 2294}#))))
+ (#{search\ 14628}#
+ #{id\ 14622}#
+ (#{wrap-subst\ 12925}# #{w\ 14623}#)
+ (#{wrap-marks\ 12923}# #{w\ 14623}#)))
+ (lambda (#{x\ 14704}# . #{ignore\ 14705}#)
+ #{x\ 14704}#))))
+ (if #{t\ 14702}# #{t\ 14702}# #{id\ 14622}#))
+ (if (#{syntax-object?\ 12880}# #{id\ 14622}#)
+ (let ((#{id\ 14713}#
+ (#{syntax-object-expression\ 12882}#
+ #{id\ 14622}#))
+ (#{w1\ 14714}#
+ (#{syntax-object-wrap\ 12884}# #{id\ 14622}#)))
+ (let ((#{marks\ 14716}#
+ (#{join-marks\ 12969}#
+ (#{wrap-marks\ 12923}# #{w\ 14623}#)
+ (#{wrap-marks\ 12923}# #{w1\ 14714}#))))
(call-with-values
(lambda ()
- (#{search\ 2203}#
- #{id\ 2293}#
- (#{wrap-subst\ 376}# #{w\ 2198}#)
- #{marks\ 2296}#))
- (lambda (#{new-id\ 2297}# #{marks\ 2298}#)
- (let ((#{t\ 2303}# #{new-id\ 2297}#))
- (if #{t\ 2303}#
- #{t\ 2303}#
- (let ((#{t\ 2306}#
+ (#{search\ 14628}#
+ #{id\ 14713}#
+ (#{wrap-subst\ 12925}# #{w\ 14623}#)
+ #{marks\ 14716}#))
+ (lambda (#{new-id\ 14717}# #{marks\ 14718}#)
+ (let ((#{t\ 14723}# #{new-id\ 14717}#))
+ (if #{t\ 14723}#
+ #{t\ 14723}#
+ (let ((#{t\ 14726}#
(call-with-values
(lambda ()
- (#{search\ 2203}#
- #{id\ 2293}#
- (#{wrap-subst\ 376}#
- #{w1\ 2294}#)
- #{marks\ 2298}#))
- (lambda (#{x\ 2308}#
+ (#{search\ 14628}#
+ #{id\ 14713}#
+ (#{wrap-subst\ 12925}#
+ #{w1\ 14714}#)
+ #{marks\ 14718}#))
+ (lambda (#{x\ 14728}#
.
- #{ignore\ 2309}#)
- #{x\ 2308}#))))
- (if #{t\ 2306}#
- #{t\ 2306}#
- #{id\ 2293}#))))))))
+ #{ignore\ 14729}#)
+ #{x\ 14728}#))))
+ (if #{t\ 14726}#
+ #{t\ 14726}#
+ #{id\ 14713}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 2197}#))))))
- (#{same-marks?\ 422}#
- (lambda (#{x\ 2314}# #{y\ 2315}#)
- (let ((#{t\ 2320}# (eq? #{x\ 2314}# #{y\ 2315}#)))
- (if #{t\ 2320}#
- #{t\ 2320}#
- (if (not (null? #{x\ 2314}#))
- (if (not (null? #{y\ 2315}#))
- (if (eq? (car #{x\ 2314}#) (car #{y\ 2315}#))
- (#{same-marks?\ 422}#
- (cdr #{x\ 2314}#)
- (cdr #{y\ 2315}#))
+ #{id\ 14622}#))))))
+ (#{same-marks?\ 12971}#
+ (lambda (#{x\ 14734}# #{y\ 14735}#)
+ (let ((#{t\ 14740}# (eq? #{x\ 14734}# #{y\ 14735}#)))
+ (if #{t\ 14740}#
+ #{t\ 14740}#
+ (if (not (null? #{x\ 14734}#))
+ (if (not (null? #{y\ 14735}#))
+ (if (eq? (car #{x\ 14734}#) (car #{y\ 14735}#))
+ (#{same-marks?\ 12971}#
+ (cdr #{x\ 14734}#)
+ (cdr #{y\ 14735}#))
#f)
#f)
#f)))))
- (#{join-marks\ 420}#
- (lambda (#{m1\ 2326}# #{m2\ 2327}#)
- (#{smart-append\ 416}# #{m1\ 2326}# #{m2\ 2327}#)))
- (#{join-wraps\ 418}#
- (lambda (#{w1\ 2330}# #{w2\ 2331}#)
- (let ((#{m1\ 2336}# (#{wrap-marks\ 374}# #{w1\ 2330}#))
- (#{s1\ 2337}# (#{wrap-subst\ 376}# #{w1\ 2330}#)))
- (if (null? #{m1\ 2336}#)
- (if (null? #{s1\ 2337}#)
- #{w2\ 2331}#
- (#{make-wrap\ 372}#
- (#{wrap-marks\ 374}# #{w2\ 2331}#)
- (#{smart-append\ 416}#
- #{s1\ 2337}#
- (#{wrap-subst\ 376}# #{w2\ 2331}#))))
- (#{make-wrap\ 372}#
- (#{smart-append\ 416}#
- #{m1\ 2336}#
- (#{wrap-marks\ 374}# #{w2\ 2331}#))
- (#{smart-append\ 416}#
- #{s1\ 2337}#
- (#{wrap-subst\ 376}# #{w2\ 2331}#)))))))
- (#{smart-append\ 416}#
- (lambda (#{m1\ 2338}# #{m2\ 2339}#)
- (if (null? #{m2\ 2339}#)
- #{m1\ 2338}#
- (append #{m1\ 2338}# #{m2\ 2339}#))))
- (#{make-binding-wrap\ 414}#
- (lambda (#{ids\ 2342}# #{labels\ 2343}# #{w\ 2344}#)
- (if (null? #{ids\ 2342}#)
- #{w\ 2344}#
- (#{make-wrap\ 372}#
- (#{wrap-marks\ 374}# #{w\ 2344}#)
- (cons (let ((#{labelvec\ 2349}#
- (list->vector #{labels\ 2343}#)))
- (let ((#{n\ 2351}#
- (vector-length #{labelvec\ 2349}#)))
- (let ((#{symnamevec\ 2354}#
- (make-vector #{n\ 2351}#))
- (#{marksvec\ 2355}#
- (make-vector #{n\ 2351}#)))
+ (#{join-marks\ 12969}#
+ (lambda (#{m1\ 14746}# #{m2\ 14747}#)
+ (#{smart-append\ 12965}#
+ #{m1\ 14746}#
+ #{m2\ 14747}#)))
+ (#{join-wraps\ 12967}#
+ (lambda (#{w1\ 14750}# #{w2\ 14751}#)
+ (let ((#{m1\ 14756}#
+ (#{wrap-marks\ 12923}# #{w1\ 14750}#))
+ (#{s1\ 14757}#
+ (#{wrap-subst\ 12925}# #{w1\ 14750}#)))
+ (if (null? #{m1\ 14756}#)
+ (if (null? #{s1\ 14757}#)
+ #{w2\ 14751}#
+ (#{make-wrap\ 12921}#
+ (#{wrap-marks\ 12923}# #{w2\ 14751}#)
+ (#{smart-append\ 12965}#
+ #{s1\ 14757}#
+ (#{wrap-subst\ 12925}# #{w2\ 14751}#))))
+ (#{make-wrap\ 12921}#
+ (#{smart-append\ 12965}#
+ #{m1\ 14756}#
+ (#{wrap-marks\ 12923}# #{w2\ 14751}#))
+ (#{smart-append\ 12965}#
+ #{s1\ 14757}#
+ (#{wrap-subst\ 12925}# #{w2\ 14751}#)))))))
+ (#{smart-append\ 12965}#
+ (lambda (#{m1\ 14758}# #{m2\ 14759}#)
+ (if (null? #{m2\ 14759}#)
+ #{m1\ 14758}#
+ (append #{m1\ 14758}# #{m2\ 14759}#))))
+ (#{make-binding-wrap\ 12963}#
+ (lambda (#{ids\ 14762}# #{labels\ 14763}# #{w\ 14764}#)
+ (if (null? #{ids\ 14762}#)
+ #{w\ 14764}#
+ (#{make-wrap\ 12921}#
+ (#{wrap-marks\ 12923}# #{w\ 14764}#)
+ (cons (let ((#{labelvec\ 14769}#
+ (list->vector #{labels\ 14763}#)))
+ (let ((#{n\ 14771}#
+ (vector-length #{labelvec\ 14769}#)))
+ (let ((#{symnamevec\ 14774}#
+ (make-vector #{n\ 14771}#))
+ (#{marksvec\ 14775}#
+ (make-vector #{n\ 14771}#)))
(begin
- (letrec ((#{f\ 2359}#
- (lambda (#{ids\ 2360}# #{i\ 2361}#)
- (if (not (null? #{ids\ 2360}#))
+ (letrec ((#{f\ 14779}#
+ (lambda (#{ids\ 14780}#
+ #{i\ 14781}#)
+ (if (not (null? #{ids\ 14780}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 370}#
- (car #{ids\ 2360}#)
- #{w\ 2344}#))
- (lambda (#{symname\ 2362}#
- #{marks\ 2363}#)
+ (#{id-sym-name&marks\ 12919}#
+ (car #{ids\ 14780}#)
+ #{w\ 14764}#))
+ (lambda (#{symname\ 14782}#
+ #{marks\ 14783}#)
(begin
(vector-set!
- #{symnamevec\ 2354}#
- #{i\ 2361}#
- #{symname\ 2362}#)
+ #{symnamevec\ 14774}#
+ #{i\ 14781}#
+ #{symname\ 14782}#)
(vector-set!
- #{marksvec\ 2355}#
- #{i\ 2361}#
- #{marks\ 2363}#)
- (#{f\ 2359}#
- (cdr #{ids\ 2360}#)
- (#{fx+\ 268}#
- #{i\ 2361}#
+ #{marksvec\ 14775}#
+ #{i\ 14781}#
+ #{marks\ 14783}#)
+ (#{f\ 14779}#
+ (cdr #{ids\ 14780}#)
+ (#{fx+\ 12817}#
+ #{i\ 14781}#
1)))))))))
- (#{f\ 2359}# #{ids\ 2342}# 0))
- (#{make-ribcage\ 388}#
- #{symnamevec\ 2354}#
- #{marksvec\ 2355}#
- #{labelvec\ 2349}#)))))
- (#{wrap-subst\ 376}# #{w\ 2344}#))))))
- (#{extend-ribcage!\ 412}#
- (lambda (#{ribcage\ 2366}# #{id\ 2367}# #{label\ 2368}#)
+ (#{f\ 14779}# #{ids\ 14762}# 0))
+ (#{make-ribcage\ 12937}#
+ #{symnamevec\ 14774}#
+ #{marksvec\ 14775}#
+ #{labelvec\ 14769}#)))))
+ (#{wrap-subst\ 12925}# #{w\ 14764}#))))))
+ (#{extend-ribcage!\ 12961}#
+ (lambda (#{ribcage\ 14786}#
+ #{id\ 14787}#
+ #{label\ 14788}#)
(begin
- (#{set-ribcage-symnames!\ 398}#
- #{ribcage\ 2366}#
- (cons (#{syntax-object-expression\ 333}# #{id\ 2367}#)
- (#{ribcage-symnames\ 392}# #{ribcage\ 2366}#)))
- (#{set-ribcage-marks!\ 400}#
- #{ribcage\ 2366}#
- (cons (#{wrap-marks\ 374}#
- (#{syntax-object-wrap\ 335}# #{id\ 2367}#))
- (#{ribcage-marks\ 394}# #{ribcage\ 2366}#)))
- (#{set-ribcage-labels!\ 402}#
- #{ribcage\ 2366}#
- (cons #{label\ 2368}#
- (#{ribcage-labels\ 396}# #{ribcage\ 2366}#))))))
- (#{anti-mark\ 408}#
- (lambda (#{w\ 2372}#)
- (#{make-wrap\ 372}#
- (cons #f (#{wrap-marks\ 374}# #{w\ 2372}#))
+ (#{set-ribcage-symnames!\ 12947}#
+ #{ribcage\ 14786}#
+ (cons (#{syntax-object-expression\ 12882}#
+ #{id\ 14787}#)
+ (#{ribcage-symnames\ 12941}# #{ribcage\ 14786}#)))
+ (#{set-ribcage-marks!\ 12949}#
+ #{ribcage\ 14786}#
+ (cons (#{wrap-marks\ 12923}#
+ (#{syntax-object-wrap\ 12884}# #{id\ 14787}#))
+ (#{ribcage-marks\ 12943}# #{ribcage\ 14786}#)))
+ (#{set-ribcage-labels!\ 12951}#
+ #{ribcage\ 14786}#
+ (cons #{label\ 14788}#
+ (#{ribcage-labels\ 12945}# #{ribcage\ 14786}#))))))
+ (#{anti-mark\ 12957}#
+ (lambda (#{w\ 14792}#)
+ (#{make-wrap\ 12921}#
+ (cons #f (#{wrap-marks\ 12923}# #{w\ 14792}#))
(cons 'shift
- (#{wrap-subst\ 376}# #{w\ 2372}#)))))
- (#{set-ribcage-labels!\ 402}#
- (lambda (#{x\ 2375}# #{update\ 2376}#)
- (vector-set! #{x\ 2375}# 3 #{update\ 2376}#)))
- (#{set-ribcage-marks!\ 400}#
- (lambda (#{x\ 2379}# #{update\ 2380}#)
- (vector-set! #{x\ 2379}# 2 #{update\ 2380}#)))
- (#{set-ribcage-symnames!\ 398}#
- (lambda (#{x\ 2383}# #{update\ 2384}#)
- (vector-set! #{x\ 2383}# 1 #{update\ 2384}#)))
- (#{ribcage-labels\ 396}#
- (lambda (#{x\ 2387}#) (vector-ref #{x\ 2387}# 3)))
- (#{ribcage-marks\ 394}#
- (lambda (#{x\ 2389}#) (vector-ref #{x\ 2389}# 2)))
- (#{ribcage-symnames\ 392}#
- (lambda (#{x\ 2391}#) (vector-ref #{x\ 2391}# 1)))
- (#{ribcage?\ 390}#
- (lambda (#{x\ 2393}#)
- (if (vector? #{x\ 2393}#)
- (if (= (vector-length #{x\ 2393}#) 4)
- (eq? (vector-ref #{x\ 2393}# 0) (quote ribcage))
+ (#{wrap-subst\ 12925}# #{w\ 14792}#)))))
+ (#{set-ribcage-labels!\ 12951}#
+ (lambda (#{x\ 14795}# #{update\ 14796}#)
+ (vector-set! #{x\ 14795}# 3 #{update\ 14796}#)))
+ (#{set-ribcage-marks!\ 12949}#
+ (lambda (#{x\ 14799}# #{update\ 14800}#)
+ (vector-set! #{x\ 14799}# 2 #{update\ 14800}#)))
+ (#{set-ribcage-symnames!\ 12947}#
+ (lambda (#{x\ 14803}# #{update\ 14804}#)
+ (vector-set! #{x\ 14803}# 1 #{update\ 14804}#)))
+ (#{ribcage-labels\ 12945}#
+ (lambda (#{x\ 14807}#)
+ (vector-ref #{x\ 14807}# 3)))
+ (#{ribcage-marks\ 12943}#
+ (lambda (#{x\ 14809}#)
+ (vector-ref #{x\ 14809}# 2)))
+ (#{ribcage-symnames\ 12941}#
+ (lambda (#{x\ 14811}#)
+ (vector-ref #{x\ 14811}# 1)))
+ (#{ribcage?\ 12939}#
+ (lambda (#{x\ 14813}#)
+ (if (vector? #{x\ 14813}#)
+ (if (= (vector-length #{x\ 14813}#) 4)
+ (eq? (vector-ref #{x\ 14813}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 388}#
- (lambda (#{symnames\ 2398}#
- #{marks\ 2399}#
- #{labels\ 2400}#)
+ (#{make-ribcage\ 12937}#
+ (lambda (#{symnames\ 14818}#
+ #{marks\ 14819}#
+ #{labels\ 14820}#)
(vector
'ribcage
- #{symnames\ 2398}#
- #{marks\ 2399}#
- #{labels\ 2400}#)))
- (#{gen-labels\ 385}#
- (lambda (#{ls\ 2404}#)
- (if (null? #{ls\ 2404}#)
+ #{symnames\ 14818}#
+ #{marks\ 14819}#
+ #{labels\ 14820}#)))
+ (#{gen-labels\ 12934}#
+ (lambda (#{ls\ 14824}#)
+ (if (null? #{ls\ 14824}#)
'()
- (cons (#{gen-label\ 383}#)
- (#{gen-labels\ 385}# (cdr #{ls\ 2404}#))))))
- (#{gen-label\ 383}#
+ (cons (#{gen-label\ 12932}#)
+ (#{gen-labels\ 12934}# (cdr #{ls\ 14824}#))))))
+ (#{gen-label\ 12932}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 376}# cdr)
- (#{wrap-marks\ 374}# car)
- (#{make-wrap\ 372}# cons)
- (#{id-sym-name&marks\ 370}#
- (lambda (#{x\ 2406}# #{w\ 2407}#)
- (if (#{syntax-object?\ 331}# #{x\ 2406}#)
+ (#{wrap-subst\ 12925}# cdr)
+ (#{wrap-marks\ 12923}# car)
+ (#{make-wrap\ 12921}# cons)
+ (#{id-sym-name&marks\ 12919}#
+ (lambda (#{x\ 14826}# #{w\ 14827}#)
+ (if (#{syntax-object?\ 12880}# #{x\ 14826}#)
(values
- (#{syntax-object-expression\ 333}# #{x\ 2406}#)
- (#{join-marks\ 420}#
- (#{wrap-marks\ 374}# #{w\ 2407}#)
- (#{wrap-marks\ 374}#
- (#{syntax-object-wrap\ 335}# #{x\ 2406}#))))
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14826}#)
+ (#{join-marks\ 12969}#
+ (#{wrap-marks\ 12923}# #{w\ 14827}#)
+ (#{wrap-marks\ 12923}#
+ (#{syntax-object-wrap\ 12884}# #{x\ 14826}#))))
(values
- #{x\ 2406}#
- (#{wrap-marks\ 374}# #{w\ 2407}#)))))
- (#{id?\ 367}#
- (lambda (#{x\ 2410}#)
- (if (symbol? #{x\ 2410}#)
+ #{x\ 14826}#
+ (#{wrap-marks\ 12923}# #{w\ 14827}#)))))
+ (#{id?\ 12916}#
+ (lambda (#{x\ 14830}#)
+ (if (symbol? #{x\ 14830}#)
#t
- (if (#{syntax-object?\ 331}# #{x\ 2410}#)
+ (if (#{syntax-object?\ 12880}# #{x\ 14830}#)
(symbol?
- (#{syntax-object-expression\ 333}# #{x\ 2410}#))
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14830}#))
#f))))
- (#{nonsymbol-id?\ 365}#
- (lambda (#{x\ 2417}#)
- (if (#{syntax-object?\ 331}# #{x\ 2417}#)
+ (#{nonsymbol-id?\ 12914}#
+ (lambda (#{x\ 14837}#)
+ (if (#{syntax-object?\ 12880}# #{x\ 14837}#)
(symbol?
- (#{syntax-object-expression\ 333}# #{x\ 2417}#))
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14837}#))
#f)))
- (#{global-extend\ 363}#
- (lambda (#{type\ 2421}# #{sym\ 2422}# #{val\ 2423}#)
- (#{put-global-definition-hook\ 281}#
- #{sym\ 2422}#
- #{type\ 2421}#
- #{val\ 2423}#)))
- (#{lookup\ 361}#
- (lambda (#{x\ 2427}# #{r\ 2428}# #{mod\ 2429}#)
- (let ((#{t\ 2435}# (assq #{x\ 2427}# #{r\ 2428}#)))
- (if #{t\ 2435}#
- (cdr #{t\ 2435}#)
- (if (symbol? #{x\ 2427}#)
- (let ((#{t\ 2441}#
- (#{get-global-definition-hook\ 283}#
- #{x\ 2427}#
- #{mod\ 2429}#)))
- (if #{t\ 2441}# #{t\ 2441}# (quote (global))))
+ (#{global-extend\ 12912}#
+ (lambda (#{type\ 14841}# #{sym\ 14842}# #{val\ 14843}#)
+ (#{put-global-definition-hook\ 12830}#
+ #{sym\ 14842}#
+ #{type\ 14841}#
+ #{val\ 14843}#)))
+ (#{lookup\ 12910}#
+ (lambda (#{x\ 14847}# #{r\ 14848}# #{mod\ 14849}#)
+ (let ((#{t\ 14855}# (assq #{x\ 14847}# #{r\ 14848}#)))
+ (if #{t\ 14855}#
+ (cdr #{t\ 14855}#)
+ (if (symbol? #{x\ 14847}#)
+ (let ((#{t\ 14861}#
+ (#{get-global-definition-hook\ 12832}#
+ #{x\ 14847}#
+ #{mod\ 14849}#)))
+ (if #{t\ 14861}# #{t\ 14861}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 359}#
- (lambda (#{r\ 2446}#)
- (if (null? #{r\ 2446}#)
+ (#{macros-only-env\ 12908}#
+ (lambda (#{r\ 14866}#)
+ (if (null? #{r\ 14866}#)
'()
- (let ((#{a\ 2449}# (car #{r\ 2446}#)))
- (if (eq? (cadr #{a\ 2449}#) (quote macro))
- (cons #{a\ 2449}#
- (#{macros-only-env\ 359}# (cdr #{r\ 2446}#)))
- (#{macros-only-env\ 359}# (cdr #{r\ 2446}#)))))))
- (#{extend-var-env\ 357}#
- (lambda (#{labels\ 2450}# #{vars\ 2451}# #{r\ 2452}#)
- (if (null? #{labels\ 2450}#)
- #{r\ 2452}#
- (#{extend-var-env\ 357}#
- (cdr #{labels\ 2450}#)
- (cdr #{vars\ 2451}#)
- (cons (cons (car #{labels\ 2450}#)
- (cons (quote lexical) (car #{vars\ 2451}#)))
- #{r\ 2452}#)))))
- (#{extend-env\ 355}#
- (lambda (#{labels\ 2457}# #{bindings\ 2458}# #{r\ 2459}#)
- (if (null? #{labels\ 2457}#)
- #{r\ 2459}#
- (#{extend-env\ 355}#
- (cdr #{labels\ 2457}#)
- (cdr #{bindings\ 2458}#)
- (cons (cons (car #{labels\ 2457}#)
- (car #{bindings\ 2458}#))
- #{r\ 2459}#)))))
- (#{binding-value\ 352}# cdr)
- (#{binding-type\ 350}# car)
- (#{source-annotation\ 346}#
- (lambda (#{x\ 2463}#)
- (if (#{syntax-object?\ 331}# #{x\ 2463}#)
- (#{source-annotation\ 346}#
- (#{syntax-object-expression\ 333}# #{x\ 2463}#))
- (if (pair? #{x\ 2463}#)
- (let ((#{props\ 2470}# (source-properties #{x\ 2463}#)))
- (if (pair? #{props\ 2470}#) #{props\ 2470}# #f))
+ (let ((#{a\ 14869}# (car #{r\ 14866}#)))
+ (if (eq? (cadr #{a\ 14869}#) (quote macro))
+ (cons #{a\ 14869}#
+ (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))
+ (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))))))
+ (#{extend-var-env\ 12906}#
+ (lambda (#{labels\ 14870}# #{vars\ 14871}# #{r\ 14872}#)
+ (if (null? #{labels\ 14870}#)
+ #{r\ 14872}#
+ (#{extend-var-env\ 12906}#
+ (cdr #{labels\ 14870}#)
+ (cdr #{vars\ 14871}#)
+ (cons (cons (car #{labels\ 14870}#)
+ (cons (quote lexical) (car #{vars\ 14871}#)))
+ #{r\ 14872}#)))))
+ (#{extend-env\ 12904}#
+ (lambda (#{labels\ 14877}#
+ #{bindings\ 14878}#
+ #{r\ 14879}#)
+ (if (null? #{labels\ 14877}#)
+ #{r\ 14879}#
+ (#{extend-env\ 12904}#
+ (cdr #{labels\ 14877}#)
+ (cdr #{bindings\ 14878}#)
+ (cons (cons (car #{labels\ 14877}#)
+ (car #{bindings\ 14878}#))
+ #{r\ 14879}#)))))
+ (#{binding-value\ 12901}# cdr)
+ (#{binding-type\ 12899}# car)
+ (#{source-annotation\ 12895}#
+ (lambda (#{x\ 14883}#)
+ (if (#{syntax-object?\ 12880}# #{x\ 14883}#)
+ (#{source-annotation\ 12895}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 14883}#))
+ (if (pair? #{x\ 14883}#)
+ (let ((#{props\ 14890}#
+ (source-properties #{x\ 14883}#)))
+ (if (pair? #{props\ 14890}#) #{props\ 14890}# #f))
#f))))
- (#{set-syntax-object-module!\ 343}#
- (lambda (#{x\ 2472}# #{update\ 2473}#)
- (vector-set! #{x\ 2472}# 3 #{update\ 2473}#)))
- (#{set-syntax-object-wrap!\ 341}#
- (lambda (#{x\ 2476}# #{update\ 2477}#)
- (vector-set! #{x\ 2476}# 2 #{update\ 2477}#)))
- (#{set-syntax-object-expression!\ 339}#
- (lambda (#{x\ 2480}# #{update\ 2481}#)
- (vector-set! #{x\ 2480}# 1 #{update\ 2481}#)))
- (#{syntax-object-module\ 337}#
- (lambda (#{x\ 2484}#) (vector-ref #{x\ 2484}# 3)))
- (#{syntax-object-wrap\ 335}#
- (lambda (#{x\ 2486}#) (vector-ref #{x\ 2486}# 2)))
- (#{syntax-object-expression\ 333}#
- (lambda (#{x\ 2488}#) (vector-ref #{x\ 2488}# 1)))
- (#{syntax-object?\ 331}#
- (lambda (#{x\ 2490}#)
- (if (vector? #{x\ 2490}#)
- (if (= (vector-length #{x\ 2490}#) 4)
- (eq? (vector-ref #{x\ 2490}# 0)
+ (#{set-syntax-object-module!\ 12892}#
+ (lambda (#{x\ 14892}# #{update\ 14893}#)
+ (vector-set! #{x\ 14892}# 3 #{update\ 14893}#)))
+ (#{set-syntax-object-wrap!\ 12890}#
+ (lambda (#{x\ 14896}# #{update\ 14897}#)
+ (vector-set! #{x\ 14896}# 2 #{update\ 14897}#)))
+ (#{set-syntax-object-expression!\ 12888}#
+ (lambda (#{x\ 14900}# #{update\ 14901}#)
+ (vector-set! #{x\ 14900}# 1 #{update\ 14901}#)))
+ (#{syntax-object-module\ 12886}#
+ (lambda (#{x\ 14904}#)
+ (vector-ref #{x\ 14904}# 3)))
+ (#{syntax-object-wrap\ 12884}#
+ (lambda (#{x\ 14906}#)
+ (vector-ref #{x\ 14906}# 2)))
+ (#{syntax-object-expression\ 12882}#
+ (lambda (#{x\ 14908}#)
+ (vector-ref #{x\ 14908}# 1)))
+ (#{syntax-object?\ 12880}#
+ (lambda (#{x\ 14910}#)
+ (if (vector? #{x\ 14910}#)
+ (if (= (vector-length #{x\ 14910}#) 4)
+ (eq? (vector-ref #{x\ 14910}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 329}#
- (lambda (#{expression\ 2495}#
- #{wrap\ 2496}#
- #{module\ 2497}#)
+ (#{make-syntax-object\ 12878}#
+ (lambda (#{expression\ 14915}#
+ #{wrap\ 14916}#
+ #{module\ 14917}#)
(vector
'syntax-object
- #{expression\ 2495}#
- #{wrap\ 2496}#
- #{module\ 2497}#)))
- (#{build-letrec\ 325}#
- (lambda (#{src\ 2501}#
- #{ids\ 2502}#
- #{vars\ 2503}#
- #{val-exps\ 2504}#
- #{body-exp\ 2505}#)
- (if (null? #{vars\ 2503}#)
- #{body-exp\ 2505}#
- (let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2513}# (quote (c)))
- (begin
- (for-each
- #{maybe-name-value!\ 305}#
- #{ids\ 2502}#
- #{val-exps\ 2504}#)
- (#{make-letrec\ 264}#
- #{src\ 2501}#
- #{ids\ 2502}#
- #{vars\ 2503}#
- #{val-exps\ 2504}#
- #{body-exp\ 2505}#))
- (#{decorate-source\ 285}#
- (list 'letrec
- (map list #{vars\ 2503}# #{val-exps\ 2504}#)
- #{body-exp\ 2505}#)
- #{src\ 2501}#))))))
- (#{build-named-let\ 323}#
- (lambda (#{src\ 2517}#
- #{ids\ 2518}#
- #{vars\ 2519}#
- #{val-exps\ 2520}#
- #{body-exp\ 2521}#)
- (let ((#{f\ 2531}# (car #{vars\ 2519}#))
- (#{f-name\ 2532}# (car #{ids\ 2518}#))
- (#{vars\ 2533}# (cdr #{vars\ 2519}#))
- (#{ids\ 2534}# (cdr #{ids\ 2518}#)))
- (let ((#{atom-key\ 2537}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2537}# (quote (c)))
- (let ((#{proc\ 2540}#
- (#{build-simple-lambda\ 309}#
- #{src\ 2517}#
- #{ids\ 2534}#
- #f
- #{vars\ 2533}#
- '()
- #{body-exp\ 2521}#)))
- (begin
- (#{maybe-name-value!\ 305}#
- #{f-name\ 2532}#
- #{proc\ 2540}#)
- (for-each
- #{maybe-name-value!\ 305}#
- #{ids\ 2534}#
- #{val-exps\ 2520}#)
- (#{make-letrec\ 264}#
- #{src\ 2517}#
- (list #{f-name\ 2532}#)
- (list #{f\ 2531}#)
- (list #{proc\ 2540}#)
- (#{build-application\ 289}#
- #{src\ 2517}#
- (#{build-lexical-reference\ 295}#
- 'fun
- #{src\ 2517}#
- #{f-name\ 2532}#
- #{f\ 2531}#)
- #{val-exps\ 2520}#))))
- (#{decorate-source\ 285}#
- (list 'letrec
- (list (list #{f\ 2531}#
- (list 'lambda
- #{vars\ 2533}#
- #{body-exp\ 2521}#)))
- (cons #{f\ 2531}# #{val-exps\ 2520}#))
- #{src\ 2517}#))))))
- (#{build-let\ 321}#
- (lambda (#{src\ 2543}#
- #{ids\ 2544}#
- #{vars\ 2545}#
- #{val-exps\ 2546}#
- #{body-exp\ 2547}#)
- (if (null? #{vars\ 2545}#)
- #{body-exp\ 2547}#
- (let ((#{atom-key\ 2555}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2555}# (quote (c)))
- (begin
- (for-each
- #{maybe-name-value!\ 305}#
- #{ids\ 2544}#
- #{val-exps\ 2546}#)
- (#{make-let\ 262}#
- #{src\ 2543}#
- #{ids\ 2544}#
- #{vars\ 2545}#
- #{val-exps\ 2546}#
- #{body-exp\ 2547}#))
- (#{decorate-source\ 285}#
- (list 'let
- (map list #{vars\ 2545}# #{val-exps\ 2546}#)
- #{body-exp\ 2547}#)
- #{src\ 2543}#))))))
- (#{build-sequence\ 319}#
- (lambda (#{src\ 2559}# #{exps\ 2560}#)
- (if (null? (cdr #{exps\ 2560}#))
- (car #{exps\ 2560}#)
- (let ((#{atom-key\ 2565}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2565}# (quote (c)))
- (#{make-sequence\ 256}#
- #{src\ 2559}#
- #{exps\ 2560}#)
- (#{decorate-source\ 285}#
- (cons (quote begin) #{exps\ 2560}#)
- #{src\ 2559}#))))))
- (#{build-data\ 317}#
- (lambda (#{src\ 2569}# #{exp\ 2570}#)
- (let ((#{atom-key\ 2575}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2575}# (quote (c)))
- (#{make-const\ 234}# #{src\ 2569}# #{exp\ 2570}#)
- (#{decorate-source\ 285}#
- (if (if (self-evaluating? #{exp\ 2570}#)
- (not (vector? #{exp\ 2570}#))
- #f)
- #{exp\ 2570}#
- (list (quote quote) #{exp\ 2570}#))
- #{src\ 2569}#)))))
- (#{build-primref\ 315}#
- (lambda (#{src\ 2580}# #{name\ 2581}#)
+ #{expression\ 14915}#
+ #{wrap\ 14916}#
+ #{module\ 14917}#)))
+ (#{build-letrec\ 12874}#
+ (lambda (#{src\ 14921}#
+ #{ids\ 14922}#
+ #{vars\ 14923}#
+ #{val-exps\ 14924}#
+ #{body-exp\ 14925}#)
+ (if (null? #{vars\ 14923}#)
+ #{body-exp\ 14925}#
+ (#{make-letrec\ 12813}#
+ #{src\ 14921}#
+ #{ids\ 14922}#
+ #{vars\ 14923}#
+ #{val-exps\ 14924}#
+ #{body-exp\ 14925}#))))
+ (#{build-named-let\ 12872}#
+ (lambda (#{src\ 14931}#
+ #{ids\ 14932}#
+ #{vars\ 14933}#
+ #{val-exps\ 14934}#
+ #{body-exp\ 14935}#)
+ (let ((#{f\ 14945}# (car #{vars\ 14933}#))
+ (#{f-name\ 14946}# (car #{ids\ 14932}#))
+ (#{vars\ 14947}# (cdr #{vars\ 14933}#))
+ (#{ids\ 14948}# (cdr #{ids\ 14932}#)))
+ (let ((#{proc\ 14950}#
+ (#{build-simple-lambda\ 12858}#
+ #{src\ 14931}#
+ #{ids\ 14948}#
+ #f
+ #{vars\ 14947}#
+ '()
+ #{body-exp\ 14935}#)))
+ (#{make-letrec\ 12813}#
+ #{src\ 14931}#
+ (list #{f-name\ 14946}#)
+ (list #{f\ 14945}#)
+ (list #{proc\ 14950}#)
+ (#{build-application\ 12838}#
+ #{src\ 14931}#
+ (#{build-lexical-reference\ 12844}#
+ 'fun
+ #{src\ 14931}#
+ #{f-name\ 14946}#
+ #{f\ 14945}#)
+ #{val-exps\ 14934}#))))))
+ (#{build-let\ 12870}#
+ (lambda (#{src\ 14951}#
+ #{ids\ 14952}#
+ #{vars\ 14953}#
+ #{val-exps\ 14954}#
+ #{body-exp\ 14955}#)
+ (if (null? #{vars\ 14953}#)
+ #{body-exp\ 14955}#
+ (#{make-let\ 12811}#
+ #{src\ 14951}#
+ #{ids\ 14952}#
+ #{vars\ 14953}#
+ #{val-exps\ 14954}#
+ #{body-exp\ 14955}#))))
+ (#{build-sequence\ 12868}#
+ (lambda (#{src\ 14961}# #{exps\ 14962}#)
+ (if (null? (cdr #{exps\ 14962}#))
+ (car #{exps\ 14962}#)
+ (#{make-sequence\ 12805}#
+ #{src\ 14961}#
+ #{exps\ 14962}#))))
+ (#{build-data\ 12866}#
+ (lambda (#{src\ 14965}# #{exp\ 14966}#)
+ (#{make-const\ 12783}#
+ #{src\ 14965}#
+ #{exp\ 14966}#)))
+ (#{build-primref\ 12864}#
+ (lambda (#{src\ 14969}# #{name\ 14970}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 2586}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2586}# (quote (c)))
- (#{make-toplevel-ref\ 246}#
- #{src\ 2580}#
- #{name\ 2581}#)
- (#{decorate-source\ 285}#
- #{name\ 2581}#
- #{src\ 2580}#)))
- (let ((#{atom-key\ 2591}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2591}# (quote (c)))
- (#{make-module-ref\ 242}#
- #{src\ 2580}#
- '(guile)
- #{name\ 2581}#
- #f)
- (#{decorate-source\ 285}#
- (list (quote @@) (quote (guile)) #{name\ 2581}#)
- #{src\ 2580}#))))))
- (#{build-lambda-case\ 313}#
- (lambda (#{src\ 2595}#
- #{req\ 2596}#
- #{opt\ 2597}#
- #{rest\ 2598}#
- #{kw\ 2599}#
- #{inits\ 2600}#
- #{vars\ 2601}#
- #{body\ 2602}#
- #{else-case\ 2603}#)
- (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2615}# (quote (c)))
- (#{make-lambda-case\ 260}#
- #{src\ 2595}#
- #{req\ 2596}#
- #{opt\ 2597}#
- #{rest\ 2598}#
- #{kw\ 2599}#
- #{inits\ 2600}#
- #{vars\ 2601}#
- #{body\ 2602}#
- #{else-case\ 2603}#)
- (let ((#{nreq\ 2620}# (length #{req\ 2596}#)))
- (let ((#{nopt\ 2622}#
- (if #{opt\ 2597}# (length #{opt\ 2597}#) 0)))
- (let ((#{rest-idx\ 2624}#
- (if #{rest\ 2598}#
- (+ #{nreq\ 2620}# #{nopt\ 2622}#)
+ (#{make-toplevel-ref\ 12795}#
+ #{src\ 14969}#
+ #{name\ 14970}#)
+ (#{make-module-ref\ 12791}#
+ #{src\ 14969}#
+ '(guile)
+ #{name\ 14970}#
+ #f))))
+ (#{build-lambda-case\ 12862}#
+ (lambda (#{src\ 14973}#
+ #{req\ 14974}#
+ #{opt\ 14975}#
+ #{rest\ 14976}#
+ #{kw\ 14977}#
+ #{inits\ 14978}#
+ #{vars\ 14979}#
+ #{body\ 14980}#
+ #{else-case\ 14981}#)
+ (let ((#{atom-key\ 14993}#
+ (fluid-ref #{*mode*\ 12778}#)))
+ (if (memv #{atom-key\ 14993}# (quote (c)))
+ (#{make-lambda-case\ 12809}#
+ #{src\ 14973}#
+ #{req\ 14974}#
+ #{opt\ 14975}#
+ #{rest\ 14976}#
+ #{kw\ 14977}#
+ #{inits\ 14978}#
+ #{vars\ 14979}#
+ #{body\ 14980}#
+ #{else-case\ 14981}#)
+ (let ((#{nreq\ 14998}# (length #{req\ 14974}#)))
+ (let ((#{nopt\ 15000}#
+ (if #{opt\ 14975}# (length #{opt\ 14975}#) 0)))
+ (let ((#{rest-idx\ 15002}#
+ (if #{rest\ 14976}#
+ (+ #{nreq\ 14998}# #{nopt\ 15000}#)
#f)))
- (let ((#{allow-other-keys?\ 2628}#
- (if #{kw\ 2599}# (car #{kw\ 2599}#) #f)))
- (let ((#{kw-indices\ 2630}#
- (map (lambda (#{x\ 2631}#)
- (cons (car #{x\ 2631}#)
+ (let ((#{allow-other-keys?\ 15006}#
+ (if #{kw\ 14977}# (car #{kw\ 14977}#) #f)))
+ (let ((#{kw-indices\ 15008}#
+ (map (lambda (#{x\ 15009}#)
+ (cons (car #{x\ 15009}#)
(list-index
- #{vars\ 2601}#
- (caddr #{x\ 2631}#))))
- (if #{kw\ 2599}#
- (cdr #{kw\ 2599}#)
+ #{vars\ 14979}#
+ (caddr #{x\ 15009}#))))
+ (if #{kw\ 14977}#
+ (cdr #{kw\ 14977}#)
'()))))
- (let ((#{nargs\ 2634}#
+ (let ((#{nargs\ 15012}#
(apply max
- (+ #{nreq\ 2620}#
- #{nopt\ 2622}#
- (if #{rest\ 2598}# 1 0))
+ (+ #{nreq\ 14998}#
+ #{nopt\ 15000}#
+ (if #{rest\ 14976}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 2630}#)))))
+ #{kw-indices\ 15008}#)))))
(begin
- (let ((#{t\ 2637}#
- (= #{nargs\ 2634}#
- (length #{vars\ 2601}#)
- (+ #{nreq\ 2620}#
- (length #{inits\ 2600}#)
- (if #{rest\ 2598}# 1 0)))))
- (if #{t\ 2637}#
- #{t\ 2637}#
+ (let ((#{t\ 15015}#
+ (= #{nargs\ 15012}#
+ (length #{vars\ 14979}#)
+ (+ #{nreq\ 14998}#
+ (length #{inits\ 14978}#)
+ (if #{rest\ 14976}# 1 0)))))
+ (if #{t\ 15015}#
+ #{t\ 15015}#
(error "something went wrong"
- #{req\ 2596}#
- #{opt\ 2597}#
- #{rest\ 2598}#
- #{kw\ 2599}#
- #{inits\ 2600}#
- #{vars\ 2601}#
- #{nreq\ 2620}#
- #{nopt\ 2622}#
- #{kw-indices\ 2630}#
- #{nargs\ 2634}#)))
- (#{decorate-source\ 285}#
- (cons (list (append
- (list-head
- #{vars\ 2601}#
- #{nreq\ 2620}#)
- (append
- (if #{opt\ 2597}#
- (cons #:optional
- (map list
- (list-head
- (list-tail
- #{vars\ 2601}#
- #{nreq\ 2620}#)
- #{nopt\ 2622}#)
- (list-head
- #{inits\ 2600}#
- #{nopt\ 2622}#)))
- '())
- (append
- (if #{kw\ 2599}#
- (cons #:key
- (map (lambda (#{x\ 2642}#
- #{init\ 2643}#)
- (list (caddr #{x\ 2642}#)
- #{init\ 2643}#
- (car #{x\ 2642}#)))
- (cdr #{kw\ 2599}#)
- (list-tail
- #{inits\ 2600}#
- #{nopt\ 2622}#)))
- '())
- (append
- (if #{allow-other-keys?\ 2628}#
- '(#:allow-other-keys)
- '())
- (if #{rest\ 2598}#
- (list-ref
- #{vars\ 2601}#
- #{rest-idx\ 2624}#)
- '())))))
- #{body\ 2602}#)
- (let ((#{t\ 2648}#
- #{else-case\ 2603}#))
- (if #{t\ 2648}#
- #{t\ 2648}#
- '())))
- #{src\ 2595}#))))))))))))
- (#{build-case-lambda\ 311}#
- (lambda (#{src\ 2650}# #{meta\ 2651}# #{body\ 2652}#)
- (let ((#{atom-key\ 2658}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2658}# (quote (c)))
- (#{make-lambda\ 258}#
- #{src\ 2650}#
- #{meta\ 2651}#
- #{body\ 2652}#)
- (#{decorate-source\ 285}#
- (cons (quote case-lambda*) #{body\ 2652}#)
- #{src\ 2650}#)))))
- (#{build-simple-lambda\ 309}#
- (lambda (#{src\ 2662}#
- #{req\ 2663}#
- #{rest\ 2664}#
- #{vars\ 2665}#
- #{meta\ 2666}#
- #{exp\ 2667}#)
- (let ((#{atom-key\ 2676}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2676}# (quote (c)))
- (#{make-lambda\ 258}#
- #{src\ 2662}#
- #{meta\ 2666}#
- (#{make-lambda-case\ 260}#
- #{src\ 2662}#
- #{req\ 2663}#
- #f
- #{rest\ 2664}#
- #f
- '()
- #{vars\ 2665}#
- #{exp\ 2667}#
- #f))
- (#{decorate-source\ 285}#
- (list 'lambda
- (if #{rest\ 2664}#
- (apply cons* #{vars\ 2665}#)
- #{vars\ 2665}#)
- #{exp\ 2667}#)
- #{src\ 2662}#)))))
- (#{build-global-definition\ 307}#
- (lambda (#{source\ 2680}# #{var\ 2681}# #{exp\ 2682}#)
- (let ((#{atom-key\ 2688}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2688}# (quote (c)))
- (begin
- (#{maybe-name-value!\ 305}#
- #{var\ 2681}#
- #{exp\ 2682}#)
- (#{make-toplevel-define\ 250}#
- #{source\ 2680}#
- #{var\ 2681}#
- #{exp\ 2682}#))
- (#{decorate-source\ 285}#
- (list (quote define) #{var\ 2681}# #{exp\ 2682}#)
- #{source\ 2680}#)))))
- (#{maybe-name-value!\ 305}#
- (lambda (#{name\ 2692}# #{val\ 2693}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2693}#)
- (let ((#{meta\ 2699}#
+ #{req\ 14974}#
+ #{opt\ 14975}#
+ #{rest\ 14976}#
+ #{kw\ 14977}#
+ #{inits\ 14978}#
+ #{vars\ 14979}#
+ #{nreq\ 14998}#
+ #{nopt\ 15000}#
+ #{kw-indices\ 15008}#
+ #{nargs\ 15012}#)))
+ (#{make-lambda-case\ 12809}#
+ #{src\ 14973}#
+ #{req\ 14974}#
+ #{opt\ 14975}#
+ #{rest\ 14976}#
+ (if #{kw\ 14977}#
+ (cons #{allow-other-keys?\ 15006}#
+ #{kw-indices\ 15008}#)
+ #f)
+ #{inits\ 14978}#
+ #{vars\ 14979}#
+ #{body\ 14980}#
+ #{else-case\ 14981}#))))))))))))
+ (#{build-case-lambda\ 12860}#
+ (lambda (#{src\ 15019}# #{meta\ 15020}# #{body\ 15021}#)
+ (#{make-lambda\ 12807}#
+ #{src\ 15019}#
+ #{meta\ 15020}#
+ #{body\ 15021}#)))
+ (#{build-simple-lambda\ 12858}#
+ (lambda (#{src\ 15025}#
+ #{req\ 15026}#
+ #{rest\ 15027}#
+ #{vars\ 15028}#
+ #{meta\ 15029}#
+ #{exp\ 15030}#)
+ (#{make-lambda\ 12807}#
+ #{src\ 15025}#
+ #{meta\ 15029}#
+ (#{make-lambda-case\ 12809}#
+ #{src\ 15025}#
+ #{req\ 15026}#
+ #f
+ #{rest\ 15027}#
+ #f
+ '()
+ #{vars\ 15028}#
+ #{exp\ 15030}#
+ #f))))
+ (#{build-global-definition\ 12856}#
+ (lambda (#{source\ 15037}# #{var\ 15038}# #{exp\ 15039}#)
+ (#{make-toplevel-define\ 12799}#
+ #{source\ 15037}#
+ #{var\ 15038}#
+ #{exp\ 15039}#)))
+ (#{maybe-name-value!\ 12854}#
+ (lambda (#{name\ 15043}# #{val\ 15044}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 15044}#)
+ (let ((#{meta\ 15050}#
((@ (language tree-il) lambda-meta)
- #{val\ 2693}#)))
- (if (not (assq (quote name) #{meta\ 2699}#))
+ #{val\ 15044}#)))
+ (if (not (assq (quote name) #{meta\ 15050}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 2693}#
+ #{val\ 15044}#
(acons 'name
- #{name\ 2692}#
- #{meta\ 2699}#)))))))
- (#{build-global-assignment\ 303}#
- (lambda (#{source\ 2700}#
- #{var\ 2701}#
- #{exp\ 2702}#
- #{mod\ 2703}#)
- (#{analyze-variable\ 299}#
- #{mod\ 2703}#
- #{var\ 2701}#
- (lambda (#{mod\ 2708}# #{var\ 2709}# #{public?\ 2710}#)
- (let ((#{atom-key\ 2716}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2716}# (quote (c)))
- (#{make-module-set\ 244}#
- #{source\ 2700}#
- #{mod\ 2708}#
- #{var\ 2709}#
- #{public?\ 2710}#
- #{exp\ 2702}#)
- (#{decorate-source\ 285}#
- (list 'set!
- (list (if #{public?\ 2710}#
- '@
- '@@)
- #{mod\ 2708}#
- #{var\ 2709}#)
- #{exp\ 2702}#)
- #{source\ 2700}#))))
- (lambda (#{var\ 2720}#)
- (let ((#{atom-key\ 2724}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2724}# (quote (c)))
- (#{make-toplevel-set\ 248}#
- #{source\ 2700}#
- #{var\ 2720}#
- #{exp\ 2702}#)
- (#{decorate-source\ 285}#
- (list (quote set!) #{var\ 2720}# #{exp\ 2702}#)
- #{source\ 2700}#)))))))
- (#{build-global-reference\ 301}#
- (lambda (#{source\ 2728}# #{var\ 2729}# #{mod\ 2730}#)
- (#{analyze-variable\ 299}#
- #{mod\ 2730}#
- #{var\ 2729}#
- (lambda (#{mod\ 2734}# #{var\ 2735}# #{public?\ 2736}#)
- (let ((#{atom-key\ 2742}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2742}# (quote (c)))
- (#{make-module-ref\ 242}#
- #{source\ 2728}#
- #{mod\ 2734}#
- #{var\ 2735}#
- #{public?\ 2736}#)
- (#{decorate-source\ 285}#
- (list (if #{public?\ 2736}# (quote @) (quote @@))
- #{mod\ 2734}#
- #{var\ 2735}#)
- #{source\ 2728}#))))
- (lambda (#{var\ 2745}#)
- (let ((#{atom-key\ 2749}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2749}# (quote (c)))
- (#{make-toplevel-ref\ 246}#
- #{source\ 2728}#
- #{var\ 2745}#)
- (#{decorate-source\ 285}#
- #{var\ 2745}#
- #{source\ 2728}#)))))))
- (#{analyze-variable\ 299}#
- (lambda (#{mod\ 2752}#
- #{var\ 2753}#
- #{modref-cont\ 2754}#
- #{bare-cont\ 2755}#)
- (if (not #{mod\ 2752}#)
- (#{bare-cont\ 2755}# #{var\ 2753}#)
- (let ((#{kind\ 2762}# (car #{mod\ 2752}#))
- (#{mod\ 2763}# (cdr #{mod\ 2752}#)))
- (if (memv #{kind\ 2762}# (quote (public)))
- (#{modref-cont\ 2754}#
- #{mod\ 2763}#
- #{var\ 2753}#
+ #{name\ 15043}#
+ #{meta\ 15050}#)))))))
+ (#{build-global-assignment\ 12852}#
+ (lambda (#{source\ 15051}#
+ #{var\ 15052}#
+ #{exp\ 15053}#
+ #{mod\ 15054}#)
+ (#{analyze-variable\ 12848}#
+ #{mod\ 15054}#
+ #{var\ 15052}#
+ (lambda (#{mod\ 15059}#
+ #{var\ 15060}#
+ #{public?\ 15061}#)
+ (#{make-module-set\ 12793}#
+ #{source\ 15051}#
+ #{mod\ 15059}#
+ #{var\ 15060}#
+ #{public?\ 15061}#
+ #{exp\ 15053}#))
+ (lambda (#{var\ 15065}#)
+ (#{make-toplevel-set\ 12797}#
+ #{source\ 15051}#
+ #{var\ 15065}#
+ #{exp\ 15053}#)))))
+ (#{build-global-reference\ 12850}#
+ (lambda (#{source\ 15067}# #{var\ 15068}# #{mod\ 15069}#)
+ (#{analyze-variable\ 12848}#
+ #{mod\ 15069}#
+ #{var\ 15068}#
+ (lambda (#{mod\ 15073}#
+ #{var\ 15074}#
+ #{public?\ 15075}#)
+ (#{make-module-ref\ 12791}#
+ #{source\ 15067}#
+ #{mod\ 15073}#
+ #{var\ 15074}#
+ #{public?\ 15075}#))
+ (lambda (#{var\ 15079}#)
+ (#{make-toplevel-ref\ 12795}#
+ #{source\ 15067}#
+ #{var\ 15079}#)))))
+ (#{analyze-variable\ 12848}#
+ (lambda (#{mod\ 15081}#
+ #{var\ 15082}#
+ #{modref-cont\ 15083}#
+ #{bare-cont\ 15084}#)
+ (if (not #{mod\ 15081}#)
+ (#{bare-cont\ 15084}# #{var\ 15082}#)
+ (let ((#{kind\ 15091}# (car #{mod\ 15081}#))
+ (#{mod\ 15092}# (cdr #{mod\ 15081}#)))
+ (if (memv #{kind\ 15091}# (quote (public)))
+ (#{modref-cont\ 15083}#
+ #{mod\ 15092}#
+ #{var\ 15082}#
#t)
- (if (memv #{kind\ 2762}# (quote (private)))
+ (if (memv #{kind\ 15091}# (quote (private)))
(if (not (equal?
- #{mod\ 2763}#
+ #{mod\ 15092}#
(module-name (current-module))))
- (#{modref-cont\ 2754}#
- #{mod\ 2763}#
- #{var\ 2753}#
+ (#{modref-cont\ 15083}#
+ #{mod\ 15092}#
+ #{var\ 15082}#
#f)
- (#{bare-cont\ 2755}# #{var\ 2753}#))
- (if (memv #{kind\ 2762}# (quote (bare)))
- (#{bare-cont\ 2755}# #{var\ 2753}#)
- (if (memv #{kind\ 2762}# (quote (hygiene)))
+ (#{bare-cont\ 15084}# #{var\ 15082}#))
+ (if (memv #{kind\ 15091}# (quote (bare)))
+ (#{bare-cont\ 15084}# #{var\ 15082}#)
+ (if (memv #{kind\ 15091}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2763}#
+ #{mod\ 15092}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2763}#)
- #{var\ 2753}#)
+ (resolve-module #{mod\ 15092}#)
+ #{var\ 15082}#)
#f)
- (#{modref-cont\ 2754}#
- #{mod\ 2763}#
- #{var\ 2753}#
+ (#{modref-cont\ 15083}#
+ #{mod\ 15092}#
+ #{var\ 15082}#
#f)
- (#{bare-cont\ 2755}# #{var\ 2753}#))
+ (#{bare-cont\ 15084}# #{var\ 15082}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2753}#
- #{mod\ 2763}#)))))))))
- (#{build-lexical-assignment\ 297}#
- (lambda (#{source\ 2771}#
- #{name\ 2772}#
- #{var\ 2773}#
- #{exp\ 2774}#)
- (let ((#{atom-key\ 2781}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2781}# (quote (c)))
- (#{make-lexical-set\ 240}#
- #{source\ 2771}#
- #{name\ 2772}#
- #{var\ 2773}#
- #{exp\ 2774}#)
- (#{decorate-source\ 285}#
- (list (quote set!) #{var\ 2773}# #{exp\ 2774}#)
- #{source\ 2771}#)))))
- (#{build-lexical-reference\ 295}#
- (lambda (#{type\ 2785}#
- #{source\ 2786}#
- #{name\ 2787}#
- #{var\ 2788}#)
- (let ((#{atom-key\ 2795}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2795}# (quote (c)))
- (#{make-lexical-ref\ 238}#
- #{source\ 2786}#
- #{name\ 2787}#
- #{var\ 2788}#)
- (#{decorate-source\ 285}#
- #{var\ 2788}#
- #{source\ 2786}#)))))
- (#{build-dynlet\ 293}#
- (lambda (#{source\ 2798}#
- #{fluids\ 2799}#
- #{vals\ 2800}#
- #{body\ 2801}#)
- (let ((#{atom-key\ 2808}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2808}# (quote (c)))
- (#{make-dynlet\ 266}#
- #{source\ 2798}#
- #{fluids\ 2799}#
- #{vals\ 2800}#
- #{body\ 2801}#)
- (#{decorate-source\ 285}#
- (list 'with-fluids
- (map list #{fluids\ 2799}# #{vals\ 2800}#)
- #{body\ 2801}#)
- #{source\ 2798}#)))))
- (#{build-conditional\ 291}#
- (lambda (#{source\ 2812}#
- #{test-exp\ 2813}#
- #{then-exp\ 2814}#
- #{else-exp\ 2815}#)
- (let ((#{atom-key\ 2822}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2822}# (quote (c)))
- (#{make-conditional\ 252}#
- #{source\ 2812}#
- #{test-exp\ 2813}#
- #{then-exp\ 2814}#
- #{else-exp\ 2815}#)
- (#{decorate-source\ 285}#
- (if (equal? #{else-exp\ 2815}# (quote (if #f #f)))
- (list 'if
- #{test-exp\ 2813}#
- #{then-exp\ 2814}#)
- (list 'if
- #{test-exp\ 2813}#
- #{then-exp\ 2814}#
- #{else-exp\ 2815}#))
- #{source\ 2812}#)))))
- (#{build-application\ 289}#
- (lambda (#{source\ 2827}#
- #{fun-exp\ 2828}#
- #{arg-exps\ 2829}#)
- (let ((#{atom-key\ 2835}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2835}# (quote (c)))
- (#{make-application\ 254}#
- #{source\ 2827}#
- #{fun-exp\ 2828}#
- #{arg-exps\ 2829}#)
- (#{decorate-source\ 285}#
- (cons #{fun-exp\ 2828}# #{arg-exps\ 2829}#)
- #{source\ 2827}#)))))
- (#{build-void\ 287}#
- (lambda (#{source\ 2839}#)
- (let ((#{atom-key\ 2843}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2843}# (quote (c)))
- (#{make-void\ 232}# #{source\ 2839}#)
- (#{decorate-source\ 285}#
- '(if #f #f)
- #{source\ 2839}#)))))
- (#{decorate-source\ 285}#
- (lambda (#{e\ 2846}# #{s\ 2847}#)
+ #{var\ 15082}#
+ #{mod\ 15092}#)))))))))
+ (#{build-lexical-assignment\ 12846}#
+ (lambda (#{source\ 15100}#
+ #{name\ 15101}#
+ #{var\ 15102}#
+ #{exp\ 15103}#)
+ (#{make-lexical-set\ 12789}#
+ #{source\ 15100}#
+ #{name\ 15101}#
+ #{var\ 15102}#
+ #{exp\ 15103}#)))
+ (#{build-lexical-reference\ 12844}#
+ (lambda (#{type\ 15108}#
+ #{source\ 15109}#
+ #{name\ 15110}#
+ #{var\ 15111}#)
+ (#{make-lexical-ref\ 12787}#
+ #{source\ 15109}#
+ #{name\ 15110}#
+ #{var\ 15111}#)))
+ (#{build-dynlet\ 12842}#
+ (lambda (#{source\ 15116}#
+ #{fluids\ 15117}#
+ #{vals\ 15118}#
+ #{body\ 15119}#)
+ (#{make-dynlet\ 12815}#
+ #{source\ 15116}#
+ #{fluids\ 15117}#
+ #{vals\ 15118}#
+ #{body\ 15119}#)))
+ (#{build-conditional\ 12840}#
+ (lambda (#{source\ 15124}#
+ #{test-exp\ 15125}#
+ #{then-exp\ 15126}#
+ #{else-exp\ 15127}#)
+ (#{make-conditional\ 12801}#
+ #{source\ 15124}#
+ #{test-exp\ 15125}#
+ #{then-exp\ 15126}#
+ #{else-exp\ 15127}#)))
+ (#{build-application\ 12838}#
+ (lambda (#{source\ 15132}#
+ #{fun-exp\ 15133}#
+ #{arg-exps\ 15134}#)
+ (#{make-application\ 12803}#
+ #{source\ 15132}#
+ #{fun-exp\ 15133}#
+ #{arg-exps\ 15134}#)))
+ (#{build-void\ 12836}#
+ (lambda (#{source\ 15138}#)
+ (#{make-void\ 12781}# #{source\ 15138}#)))
+ (#{decorate-source\ 12834}#
+ (lambda (#{e\ 15140}# #{s\ 15141}#)
(begin
- (if (if (pair? #{e\ 2846}#) #{s\ 2847}# #f)
- (set-source-properties! #{e\ 2846}# #{s\ 2847}#))
- #{e\ 2846}#)))
- (#{get-global-definition-hook\ 283}#
- (lambda (#{symbol\ 2852}# #{module\ 2853}#)
+ (if (if (pair? #{e\ 15140}#) #{s\ 15141}# #f)
+ (set-source-properties!
+ #{e\ 15140}#
+ #{s\ 15141}#))
+ #{e\ 15140}#)))
+ (#{get-global-definition-hook\ 12832}#
+ (lambda (#{symbol\ 15146}# #{module\ 15147}#)
(begin
- (if (if (not #{module\ 2853}#) (current-module) #f)
+ (if (if (not #{module\ 15147}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2852}#))
- (let ((#{v\ 2859}#
+ #{symbol\ 15146}#))
+ (let ((#{v\ 15153}#
(module-variable
- (if #{module\ 2853}#
- (resolve-module (cdr #{module\ 2853}#))
+ (if #{module\ 15147}#
+ (resolve-module (cdr #{module\ 15147}#))
(current-module))
- #{symbol\ 2852}#)))
- (if #{v\ 2859}#
- (if (variable-bound? #{v\ 2859}#)
- (let ((#{val\ 2864}# (variable-ref #{v\ 2859}#)))
- (if (macro? #{val\ 2864}#)
- (if (macro-type #{val\ 2864}#)
- (cons (macro-type #{val\ 2864}#)
- (macro-binding #{val\ 2864}#))
+ #{symbol\ 15146}#)))
+ (if #{v\ 15153}#
+ (if (variable-bound? #{v\ 15153}#)
+ (let ((#{val\ 15158}# (variable-ref #{v\ 15153}#)))
+ (if (macro? #{val\ 15158}#)
+ (if (macro-type #{val\ 15158}#)
+ (cons (macro-type #{val\ 15158}#)
+ (macro-binding #{val\ 15158}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 281}#
- (lambda (#{symbol\ 2868}# #{type\ 2869}# #{val\ 2870}#)
+ (#{put-global-definition-hook\ 12830}#
+ (lambda (#{symbol\ 15162}#
+ #{type\ 15163}#
+ #{val\ 15164}#)
(module-define!
(current-module)
- #{symbol\ 2868}#
+ #{symbol\ 15162}#
(make-syntax-transformer
- #{symbol\ 2868}#
- #{type\ 2869}#
- #{val\ 2870}#))))
- (#{local-eval-hook\ 278}#
- (lambda (#{x\ 2874}# #{mod\ 2875}#)
+ #{symbol\ 15162}#
+ #{type\ 15163}#
+ #{val\ 15164}#))))
+ (#{local-eval-hook\ 12827}#
+ (lambda (#{x\ 15168}# #{mod\ 15169}#)
(primitive-eval
- (memoize-expression
- (let ((#{atom-key\ 2880}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2880}# (quote (c)))
- ((@ (language tree-il) tree-il->scheme)
- #{x\ 2874}#)
- #{x\ 2874}#))))))
- (#{top-level-eval-hook\ 276}#
- (lambda (#{x\ 2883}# #{mod\ 2884}#)
+ (memoize-expression #{x\ 15168}#))))
+ (#{top-level-eval-hook\ 12825}#
+ (lambda (#{x\ 15172}# #{mod\ 15173}#)
(primitive-eval
- (memoize-expression
- (let ((#{atom-key\ 2889}# (fluid-ref #{*mode*\ 229}#)))
- (if (memv #{atom-key\ 2889}# (quote (c)))
- ((@ (language tree-il) tree-il->scheme)
- #{x\ 2883}#)
- #{x\ 2883}#))))))
- (#{fx<\ 274}# <)
- (#{fx=\ 272}# =)
- (#{fx-\ 270}# -)
- (#{fx+\ 268}# +)
- (#{make-dynlet\ 266}#
- (lambda (#{src\ 2892}#
- #{fluids\ 2893}#
- #{vals\ 2894}#
- #{body\ 2895}#)
+ (memoize-expression #{x\ 15172}#))))
+ (#{fx<\ 12823}# <)
+ (#{fx=\ 12821}# =)
+ (#{fx-\ 12819}# -)
+ (#{fx+\ 12817}# +)
+ (#{make-dynlet\ 12815}#
+ (lambda (#{src\ 15176}#
+ #{fluids\ 15177}#
+ #{vals\ 15178}#
+ #{body\ 15179}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 2892}#
- #{fluids\ 2893}#
- #{vals\ 2894}#
- #{body\ 2895}#)))
- (#{make-letrec\ 264}#
- (lambda (#{src\ 2900}#
- #{names\ 2901}#
- #{gensyms\ 2902}#
- #{vals\ 2903}#
- #{body\ 2904}#)
+ #{src\ 15176}#
+ #{fluids\ 15177}#
+ #{vals\ 15178}#
+ #{body\ 15179}#)))
+ (#{make-letrec\ 12813}#
+ (lambda (#{src\ 15184}#
+ #{names\ 15185}#
+ #{gensyms\ 15186}#
+ #{vals\ 15187}#
+ #{body\ 15188}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 2900}#
- #{names\ 2901}#
- #{gensyms\ 2902}#
- #{vals\ 2903}#
- #{body\ 2904}#)))
- (#{make-let\ 262}#
- (lambda (#{src\ 2910}#
- #{names\ 2911}#
- #{gensyms\ 2912}#
- #{vals\ 2913}#
- #{body\ 2914}#)
+ #{src\ 15184}#
+ #{names\ 15185}#
+ #{gensyms\ 15186}#
+ #{vals\ 15187}#
+ #{body\ 15188}#)))
+ (#{make-let\ 12811}#
+ (lambda (#{src\ 15194}#
+ #{names\ 15195}#
+ #{gensyms\ 15196}#
+ #{vals\ 15197}#
+ #{body\ 15198}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 2910}#
- #{names\ 2911}#
- #{gensyms\ 2912}#
- #{vals\ 2913}#
- #{body\ 2914}#)))
- (#{make-lambda-case\ 260}#
- (lambda (#{src\ 2920}#
- #{req\ 2921}#
- #{opt\ 2922}#
- #{rest\ 2923}#
- #{kw\ 2924}#
- #{inits\ 2925}#
- #{gensyms\ 2926}#
- #{body\ 2927}#
- #{alternate\ 2928}#)
+ #{src\ 15194}#
+ #{names\ 15195}#
+ #{gensyms\ 15196}#
+ #{vals\ 15197}#
+ #{body\ 15198}#)))
+ (#{make-lambda-case\ 12809}#
+ (lambda (#{src\ 15204}#
+ #{req\ 15205}#
+ #{opt\ 15206}#
+ #{rest\ 15207}#
+ #{kw\ 15208}#
+ #{inits\ 15209}#
+ #{gensyms\ 15210}#
+ #{body\ 15211}#
+ #{alternate\ 15212}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 2920}#
- #{req\ 2921}#
- #{opt\ 2922}#
- #{rest\ 2923}#
- #{kw\ 2924}#
- #{inits\ 2925}#
- #{gensyms\ 2926}#
- #{body\ 2927}#
- #{alternate\ 2928}#)))
- (#{make-lambda\ 258}#
- (lambda (#{src\ 2938}# #{meta\ 2939}# #{body\ 2940}#)
+ #{src\ 15204}#
+ #{req\ 15205}#
+ #{opt\ 15206}#
+ #{rest\ 15207}#
+ #{kw\ 15208}#
+ #{inits\ 15209}#
+ #{gensyms\ 15210}#
+ #{body\ 15211}#
+ #{alternate\ 15212}#)))
+ (#{make-lambda\ 12807}#
+ (lambda (#{src\ 15222}# #{meta\ 15223}# #{body\ 15224}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 2938}#
- #{meta\ 2939}#
- #{body\ 2940}#)))
- (#{make-sequence\ 256}#
- (lambda (#{src\ 2944}# #{exps\ 2945}#)
+ #{src\ 15222}#
+ #{meta\ 15223}#
+ #{body\ 15224}#)))
+ (#{make-sequence\ 12805}#
+ (lambda (#{src\ 15228}# #{exps\ 15229}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 2944}#
- #{exps\ 2945}#)))
- (#{make-application\ 254}#
- (lambda (#{src\ 2948}# #{proc\ 2949}# #{args\ 2950}#)
+ #{src\ 15228}#
+ #{exps\ 15229}#)))
+ (#{make-application\ 12803}#
+ (lambda (#{src\ 15232}# #{proc\ 15233}# #{args\ 15234}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 2948}#
- #{proc\ 2949}#
- #{args\ 2950}#)))
- (#{make-conditional\ 252}#
- (lambda (#{src\ 2954}#
- #{test\ 2955}#
- #{consequent\ 2956}#
- #{alternate\ 2957}#)
+ #{src\ 15232}#
+ #{proc\ 15233}#
+ #{args\ 15234}#)))
+ (#{make-conditional\ 12801}#
+ (lambda (#{src\ 15238}#
+ #{test\ 15239}#
+ #{consequent\ 15240}#
+ #{alternate\ 15241}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 2954}#
- #{test\ 2955}#
- #{consequent\ 2956}#
- #{alternate\ 2957}#)))
- (#{make-toplevel-define\ 250}#
- (lambda (#{src\ 2962}# #{name\ 2963}# #{exp\ 2964}#)
+ #{src\ 15238}#
+ #{test\ 15239}#
+ #{consequent\ 15240}#
+ #{alternate\ 15241}#)))
+ (#{make-toplevel-define\ 12799}#
+ (lambda (#{src\ 15246}# #{name\ 15247}# #{exp\ 15248}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 2962}#
- #{name\ 2963}#
- #{exp\ 2964}#)))
- (#{make-toplevel-set\ 248}#
- (lambda (#{src\ 2968}# #{name\ 2969}# #{exp\ 2970}#)
+ #{src\ 15246}#
+ #{name\ 15247}#
+ #{exp\ 15248}#)))
+ (#{make-toplevel-set\ 12797}#
+ (lambda (#{src\ 15252}# #{name\ 15253}# #{exp\ 15254}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 2968}#
- #{name\ 2969}#
- #{exp\ 2970}#)))
- (#{make-toplevel-ref\ 246}#
- (lambda (#{src\ 2974}# #{name\ 2975}#)
+ #{src\ 15252}#
+ #{name\ 15253}#
+ #{exp\ 15254}#)))
+ (#{make-toplevel-ref\ 12795}#
+ (lambda (#{src\ 15258}# #{name\ 15259}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 2974}#
- #{name\ 2975}#)))
- (#{make-module-set\ 244}#
- (lambda (#{src\ 2978}#
- #{mod\ 2979}#
- #{name\ 2980}#
- #{public?\ 2981}#
- #{exp\ 2982}#)
+ #{src\ 15258}#
+ #{name\ 15259}#)))
+ (#{make-module-set\ 12793}#
+ (lambda (#{src\ 15262}#
+ #{mod\ 15263}#
+ #{name\ 15264}#
+ #{public?\ 15265}#
+ #{exp\ 15266}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 2978}#
- #{mod\ 2979}#
- #{name\ 2980}#
- #{public?\ 2981}#
- #{exp\ 2982}#)))
- (#{make-module-ref\ 242}#
- (lambda (#{src\ 2988}#
- #{mod\ 2989}#
- #{name\ 2990}#
- #{public?\ 2991}#)
+ #{src\ 15262}#
+ #{mod\ 15263}#
+ #{name\ 15264}#
+ #{public?\ 15265}#
+ #{exp\ 15266}#)))
+ (#{make-module-ref\ 12791}#
+ (lambda (#{src\ 15272}#
+ #{mod\ 15273}#
+ #{name\ 15274}#
+ #{public?\ 15275}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 2988}#
- #{mod\ 2989}#
- #{name\ 2990}#
- #{public?\ 2991}#)))
- (#{make-lexical-set\ 240}#
- (lambda (#{src\ 2996}#
- #{name\ 2997}#
- #{gensym\ 2998}#
- #{exp\ 2999}#)
+ #{src\ 15272}#
+ #{mod\ 15273}#
+ #{name\ 15274}#
+ #{public?\ 15275}#)))
+ (#{make-lexical-set\ 12789}#
+ (lambda (#{src\ 15280}#
+ #{name\ 15281}#
+ #{gensym\ 15282}#
+ #{exp\ 15283}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 2996}#
- #{name\ 2997}#
- #{gensym\ 2998}#
- #{exp\ 2999}#)))
- (#{make-lexical-ref\ 238}#
- (lambda (#{src\ 3004}# #{name\ 3005}# #{gensym\ 3006}#)
+ #{src\ 15280}#
+ #{name\ 15281}#
+ #{gensym\ 15282}#
+ #{exp\ 15283}#)))
+ (#{make-lexical-ref\ 12787}#
+ (lambda (#{src\ 15288}#
+ #{name\ 15289}#
+ #{gensym\ 15290}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 3004}#
- #{name\ 3005}#
- #{gensym\ 3006}#)))
- (#{make-primitive-ref\ 236}#
- (lambda (#{src\ 3010}# #{name\ 3011}#)
+ #{src\ 15288}#
+ #{name\ 15289}#
+ #{gensym\ 15290}#)))
+ (#{make-primitive-ref\ 12785}#
+ (lambda (#{src\ 15294}# #{name\ 15295}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 3010}#
- #{name\ 3011}#)))
- (#{make-const\ 234}#
- (lambda (#{src\ 3014}# #{exp\ 3015}#)
+ #{src\ 15294}#
+ #{name\ 15295}#)))
+ (#{make-const\ 12783}#
+ (lambda (#{src\ 15298}# #{exp\ 15299}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 3014}#
- #{exp\ 3015}#)))
- (#{make-void\ 232}#
- (lambda (#{src\ 3018}#)
+ #{src\ 15298}#
+ #{exp\ 15299}#)))
+ (#{make-void\ 12781}#
+ (lambda (#{src\ 15302}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 3018}#)))
- (#{*mode*\ 229}# (make-fluid)))
+ #{src\ 15302}#)))
+ (#{*mode*\ 12778}# (make-fluid)))
(begin
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'core
'fluid-let-syntax
- (lambda (#{e\ 3020}#
- #{r\ 3021}#
- #{w\ 3022}#
- #{s\ 3023}#
- #{mod\ 3024}#)
- ((lambda (#{tmp\ 3030}#)
- ((lambda (#{tmp\ 3031}#)
- (if (if #{tmp\ 3031}#
- (apply (lambda (#{_\ 3037}#
- #{var\ 3038}#
- #{val\ 3039}#
- #{e1\ 3040}#
- #{e2\ 3041}#)
- (#{valid-bound-ids?\ 430}# #{var\ 3038}#))
- #{tmp\ 3031}#)
+ (lambda (#{e\ 15304}#
+ #{r\ 15305}#
+ #{w\ 15306}#
+ #{s\ 15307}#
+ #{mod\ 15308}#)
+ ((lambda (#{tmp\ 15314}#)
+ ((lambda (#{tmp\ 15315}#)
+ (if (if #{tmp\ 15315}#
+ (apply (lambda (#{_\ 15321}#
+ #{var\ 15322}#
+ #{val\ 15323}#
+ #{e1\ 15324}#
+ #{e2\ 15325}#)
+ (#{valid-bound-ids?\ 12979}# #{var\ 15322}#))
+ #{tmp\ 15315}#)
#f)
- (apply (lambda (#{_\ 3048}#
- #{var\ 3049}#
- #{val\ 3050}#
- #{e1\ 3051}#
- #{e2\ 3052}#)
- (let ((#{names\ 3054}#
- (map (lambda (#{x\ 3055}#)
- (#{id-var-name\ 424}#
- #{x\ 3055}#
- #{w\ 3022}#))
- #{var\ 3049}#)))
+ (apply (lambda (#{_\ 15332}#
+ #{var\ 15333}#
+ #{val\ 15334}#
+ #{e1\ 15335}#
+ #{e2\ 15336}#)
+ (let ((#{names\ 15338}#
+ (map (lambda (#{x\ 15339}#)
+ (#{id-var-name\ 12973}#
+ #{x\ 15339}#
+ #{w\ 15306}#))
+ #{var\ 15333}#)))
(begin
(for-each
- (lambda (#{id\ 3058}# #{n\ 3059}#)
- (let ((#{atom-key\ 3064}#
- (#{binding-type\ 350}#
- (#{lookup\ 361}#
- #{n\ 3059}#
- #{r\ 3021}#
- #{mod\ 3024}#))))
- (if (memv #{atom-key\ 3064}#
+ (lambda (#{id\ 15342}# #{n\ 15343}#)
+ (let ((#{atom-key\ 15348}#
+ (#{binding-type\ 12899}#
+ (#{lookup\ 12910}#
+ #{n\ 15343}#
+ #{r\ 15305}#
+ #{mod\ 15308}#))))
+ (if (memv #{atom-key\ 15348}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 3020}#
- (#{source-wrap\ 438}#
- #{id\ 3058}#
- #{w\ 3022}#
- #{s\ 3023}#
- #{mod\ 3024}#)))))
- #{var\ 3049}#
- #{names\ 3054}#)
- (#{chi-body\ 460}#
- (cons #{e1\ 3051}# #{e2\ 3052}#)
- (#{source-wrap\ 438}#
- #{e\ 3020}#
- #{w\ 3022}#
- #{s\ 3023}#
- #{mod\ 3024}#)
- (#{extend-env\ 355}#
- #{names\ 3054}#
- (let ((#{trans-r\ 3069}#
- (#{macros-only-env\ 359}#
- #{r\ 3021}#)))
- (map (lambda (#{x\ 3070}#)
+ #{e\ 15304}#
+ (#{source-wrap\ 12987}#
+ #{id\ 15342}#
+ #{w\ 15306}#
+ #{s\ 15307}#
+ #{mod\ 15308}#)))))
+ #{var\ 15333}#
+ #{names\ 15338}#)
+ (#{chi-body\ 13009}#
+ (cons #{e1\ 15335}# #{e2\ 15336}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 15304}#
+ #{w\ 15306}#
+ #{s\ 15307}#
+ #{mod\ 15308}#)
+ (#{extend-env\ 12904}#
+ #{names\ 15338}#
+ (let ((#{trans-r\ 15353}#
+ (#{macros-only-env\ 12908}#
+ #{r\ 15305}#)))
+ (map (lambda (#{x\ 15354}#)
(cons 'macro
- (#{eval-local-transformer\ 464}#
- (#{chi\ 452}#
- #{x\ 3070}#
- #{trans-r\ 3069}#
- #{w\ 3022}#
- #{mod\ 3024}#)
- #{mod\ 3024}#)))
- #{val\ 3050}#))
- #{r\ 3021}#)
- #{w\ 3022}#
- #{mod\ 3024}#))))
- #{tmp\ 3031}#)
- ((lambda (#{_\ 3075}#)
+ (#{eval-local-transformer\ 13013}#
+ (#{chi\ 13001}#
+ #{x\ 15354}#
+ #{trans-r\ 15353}#
+ #{w\ 15306}#
+ #{mod\ 15308}#)
+ #{mod\ 15308}#)))
+ #{val\ 15334}#))
+ #{r\ 15305}#)
+ #{w\ 15306}#
+ #{mod\ 15308}#))))
+ #{tmp\ 15315}#)
+ ((lambda (#{_\ 15359}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 438}#
- #{e\ 3020}#
- #{w\ 3022}#
- #{s\ 3023}#
- #{mod\ 3024}#)))
- #{tmp\ 3030}#)))
+ (#{source-wrap\ 12987}#
+ #{e\ 15304}#
+ #{w\ 15306}#
+ #{s\ 15307}#
+ #{mod\ 15308}#)))
+ #{tmp\ 15314}#)))
($sc-dispatch
- #{tmp\ 3030}#
+ #{tmp\ 15314}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3020}#)))
- (#{global-extend\ 363}#
+ #{e\ 15304}#)))
+ (#{global-extend\ 12912}#
'core
'quote
- (lambda (#{e\ 3076}#
- #{r\ 3077}#
- #{w\ 3078}#
- #{s\ 3079}#
- #{mod\ 3080}#)
- ((lambda (#{tmp\ 3086}#)
- ((lambda (#{tmp\ 3087}#)
- (if #{tmp\ 3087}#
- (apply (lambda (#{_\ 3090}# #{e\ 3091}#)
- (#{build-data\ 317}#
- #{s\ 3079}#
- (#{strip\ 478}# #{e\ 3091}# #{w\ 3078}#)))
- #{tmp\ 3087}#)
- ((lambda (#{_\ 3093}#)
+ (lambda (#{e\ 15360}#
+ #{r\ 15361}#
+ #{w\ 15362}#
+ #{s\ 15363}#
+ #{mod\ 15364}#)
+ ((lambda (#{tmp\ 15370}#)
+ ((lambda (#{tmp\ 15371}#)
+ (if #{tmp\ 15371}#
+ (apply (lambda (#{_\ 15374}# #{e\ 15375}#)
+ (#{build-data\ 12866}#
+ #{s\ 15363}#
+ (#{strip\ 13027}# #{e\ 15375}# #{w\ 15362}#)))
+ #{tmp\ 15371}#)
+ ((lambda (#{_\ 15377}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 438}#
- #{e\ 3076}#
- #{w\ 3078}#
- #{s\ 3079}#
- #{mod\ 3080}#)))
- #{tmp\ 3086}#)))
- ($sc-dispatch #{tmp\ 3086}# (quote (any any)))))
- #{e\ 3076}#)))
- (#{global-extend\ 363}#
+ (#{source-wrap\ 12987}#
+ #{e\ 15360}#
+ #{w\ 15362}#
+ #{s\ 15363}#
+ #{mod\ 15364}#)))
+ #{tmp\ 15370}#)))
+ ($sc-dispatch #{tmp\ 15370}# (quote (any any)))))
+ #{e\ 15360}#)))
+ (#{global-extend\ 12912}#
'core
'syntax
- (letrec ((#{regen\ 3109}#
- (lambda (#{x\ 3110}#)
- (let ((#{atom-key\ 3114}# (car #{x\ 3110}#)))
- (if (memv #{atom-key\ 3114}# (quote (ref)))
- (#{build-lexical-reference\ 295}#
+ (letrec ((#{regen\ 15393}#
+ (lambda (#{x\ 15394}#)
+ (let ((#{atom-key\ 15398}# (car #{x\ 15394}#)))
+ (if (memv #{atom-key\ 15398}# (quote (ref)))
+ (#{build-lexical-reference\ 12844}#
'value
#f
- (cadr #{x\ 3110}#)
- (cadr #{x\ 3110}#))
- (if (memv #{atom-key\ 3114}# (quote (primitive)))
- (#{build-primref\ 315}# #f (cadr #{x\ 3110}#))
- (if (memv #{atom-key\ 3114}# (quote (quote)))
- (#{build-data\ 317}# #f (cadr #{x\ 3110}#))
- (if (memv #{atom-key\ 3114}# (quote (lambda)))
- (if (list? (cadr #{x\ 3110}#))
- (#{build-simple-lambda\ 309}#
+ (cadr #{x\ 15394}#)
+ (cadr #{x\ 15394}#))
+ (if (memv #{atom-key\ 15398}# (quote (primitive)))
+ (#{build-primref\ 12864}# #f (cadr #{x\ 15394}#))
+ (if (memv #{atom-key\ 15398}# (quote (quote)))
+ (#{build-data\ 12866}# #f (cadr #{x\ 15394}#))
+ (if (memv #{atom-key\ 15398}# (quote (lambda)))
+ (if (list? (cadr #{x\ 15394}#))
+ (#{build-simple-lambda\ 12858}#
#f
- (cadr #{x\ 3110}#)
+ (cadr #{x\ 15394}#)
#f
- (cadr #{x\ 3110}#)
+ (cadr #{x\ 15394}#)
'()
- (#{regen\ 3109}# (caddr #{x\ 3110}#)))
- (error "how did we get here" #{x\ 3110}#))
- (#{build-application\ 289}#
+ (#{regen\ 15393}# (caddr #{x\ 15394}#)))
+ (error "how did we get here" #{x\ 15394}#))
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}# #f (car #{x\ 3110}#))
- (map #{regen\ 3109}#
- (cdr #{x\ 3110}#))))))))))
- (#{gen-vector\ 3107}#
- (lambda (#{x\ 3126}#)
- (if (eq? (car #{x\ 3126}#) (quote list))
- (cons (quote vector) (cdr #{x\ 3126}#))
- (if (eq? (car #{x\ 3126}#) (quote quote))
+ (#{build-primref\ 12864}#
+ #f
+ (car #{x\ 15394}#))
+ (map #{regen\ 15393}#
+ (cdr #{x\ 15394}#))))))))))
+ (#{gen-vector\ 15391}#
+ (lambda (#{x\ 15410}#)
+ (if (eq? (car #{x\ 15410}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 15410}#))
+ (if (eq? (car #{x\ 15410}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 3126}#)))
- (list (quote list->vector) #{x\ 3126}#)))))
- (#{gen-append\ 3105}#
- (lambda (#{x\ 3136}# #{y\ 3137}#)
- (if (equal? #{y\ 3137}# (quote (quote ())))
- #{x\ 3136}#
- (list (quote append) #{x\ 3136}# #{y\ 3137}#))))
- (#{gen-cons\ 3103}#
- (lambda (#{x\ 3141}# #{y\ 3142}#)
- (let ((#{atom-key\ 3147}# (car #{y\ 3142}#)))
- (if (memv #{atom-key\ 3147}# (quote (quote)))
- (if (eq? (car #{x\ 3141}#) (quote quote))
+ (list->vector (cadr #{x\ 15410}#)))
+ (list (quote list->vector) #{x\ 15410}#)))))
+ (#{gen-append\ 15389}#
+ (lambda (#{x\ 15420}# #{y\ 15421}#)
+ (if (equal? #{y\ 15421}# (quote (quote ())))
+ #{x\ 15420}#
+ (list (quote append) #{x\ 15420}# #{y\ 15421}#))))
+ (#{gen-cons\ 15387}#
+ (lambda (#{x\ 15425}# #{y\ 15426}#)
+ (let ((#{atom-key\ 15431}# (car #{y\ 15426}#)))
+ (if (memv #{atom-key\ 15431}# (quote (quote)))
+ (if (eq? (car #{x\ 15425}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 3141}#) (cadr #{y\ 3142}#)))
- (if (eq? (cadr #{y\ 3142}#) (quote ()))
- (list (quote list) #{x\ 3141}#)
- (list (quote cons) #{x\ 3141}# #{y\ 3142}#)))
- (if (memv #{atom-key\ 3147}# (quote (list)))
+ (cons (cadr #{x\ 15425}#)
+ (cadr #{y\ 15426}#)))
+ (if (eq? (cadr #{y\ 15426}#) (quote ()))
+ (list (quote list) #{x\ 15425}#)
+ (list (quote cons) #{x\ 15425}# #{y\ 15426}#)))
+ (if (memv #{atom-key\ 15431}# (quote (list)))
(cons 'list
- (cons #{x\ 3141}# (cdr #{y\ 3142}#)))
- (list (quote cons) #{x\ 3141}# #{y\ 3142}#))))))
- (#{gen-map\ 3101}#
- (lambda (#{e\ 3156}# #{map-env\ 3157}#)
- (let ((#{formals\ 3162}# (map cdr #{map-env\ 3157}#))
- (#{actuals\ 3163}#
- (map (lambda (#{x\ 3164}#)
- (list (quote ref) (car #{x\ 3164}#)))
- #{map-env\ 3157}#)))
- (if (eq? (car #{e\ 3156}#) (quote ref))
- (car #{actuals\ 3163}#)
+ (cons #{x\ 15425}# (cdr #{y\ 15426}#)))
+ (list (quote cons) #{x\ 15425}# #{y\ 15426}#))))))
+ (#{gen-map\ 15385}#
+ (lambda (#{e\ 15440}# #{map-env\ 15441}#)
+ (let ((#{formals\ 15446}# (map cdr #{map-env\ 15441}#))
+ (#{actuals\ 15447}#
+ (map (lambda (#{x\ 15448}#)
+ (list (quote ref) (car #{x\ 15448}#)))
+ #{map-env\ 15441}#)))
+ (if (eq? (car #{e\ 15440}#) (quote ref))
+ (car #{actuals\ 15447}#)
(if (and-map
- (lambda (#{x\ 3171}#)
- (if (eq? (car #{x\ 3171}#) (quote ref))
- (memq (cadr #{x\ 3171}#) #{formals\ 3162}#)
+ (lambda (#{x\ 15455}#)
+ (if (eq? (car #{x\ 15455}#) (quote ref))
+ (memq (cadr #{x\ 15455}#)
+ #{formals\ 15446}#)
#f))
- (cdr #{e\ 3156}#))
+ (cdr #{e\ 15440}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 3156}#))
- (map (let ((#{r\ 3177}#
+ (car #{e\ 15440}#))
+ (map (let ((#{r\ 15461}#
(map cons
- #{formals\ 3162}#
- #{actuals\ 3163}#)))
- (lambda (#{x\ 3178}#)
- (cdr (assq (cadr #{x\ 3178}#)
- #{r\ 3177}#))))
- (cdr #{e\ 3156}#))))
+ #{formals\ 15446}#
+ #{actuals\ 15447}#)))
+ (lambda (#{x\ 15462}#)
+ (cdr (assq (cadr #{x\ 15462}#)
+ #{r\ 15461}#))))
+ (cdr #{e\ 15440}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 3162}#
- #{e\ 3156}#)
- #{actuals\ 3163}#)))))))
- (#{gen-mappend\ 3099}#
- (lambda (#{e\ 3182}# #{map-env\ 3183}#)
+ #{formals\ 15446}#
+ #{e\ 15440}#)
+ #{actuals\ 15447}#)))))))
+ (#{gen-mappend\ 15383}#
+ (lambda (#{e\ 15466}# #{map-env\ 15467}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 3101}# #{e\ 3182}# #{map-env\ 3183}#))))
- (#{gen-ref\ 3097}#
- (lambda (#{src\ 3187}#
- #{var\ 3188}#
- #{level\ 3189}#
- #{maps\ 3190}#)
- (if (#{fx=\ 272}# #{level\ 3189}# 0)
- (values #{var\ 3188}# #{maps\ 3190}#)
- (if (null? #{maps\ 3190}#)
+ (#{gen-map\ 15385}#
+ #{e\ 15466}#
+ #{map-env\ 15467}#))))
+ (#{gen-ref\ 15381}#
+ (lambda (#{src\ 15471}#
+ #{var\ 15472}#
+ #{level\ 15473}#
+ #{maps\ 15474}#)
+ (if (#{fx=\ 12821}# #{level\ 15473}# 0)
+ (values #{var\ 15472}# #{maps\ 15474}#)
+ (if (null? #{maps\ 15474}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 3187}#)
+ #{src\ 15471}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 3097}#
- #{src\ 3187}#
- #{var\ 3188}#
- (#{fx-\ 270}# #{level\ 3189}# 1)
- (cdr #{maps\ 3190}#)))
- (lambda (#{outer-var\ 3195}# #{outer-maps\ 3196}#)
- (let ((#{b\ 3200}#
- (assq #{outer-var\ 3195}#
- (car #{maps\ 3190}#))))
- (if #{b\ 3200}#
- (values (cdr #{b\ 3200}#) #{maps\ 3190}#)
- (let ((#{inner-var\ 3202}#
- (#{gen-var\ 480}# (quote tmp))))
+ (#{gen-ref\ 15381}#
+ #{src\ 15471}#
+ #{var\ 15472}#
+ (#{fx-\ 12819}# #{level\ 15473}# 1)
+ (cdr #{maps\ 15474}#)))
+ (lambda (#{outer-var\ 15479}# #{outer-maps\ 15480}#)
+ (let ((#{b\ 15484}#
+ (assq #{outer-var\ 15479}#
+ (car #{maps\ 15474}#))))
+ (if #{b\ 15484}#
+ (values (cdr #{b\ 15484}#) #{maps\ 15474}#)
+ (let ((#{inner-var\ 15486}#
+ (#{gen-var\ 13029}# (quote tmp))))
(values
- #{inner-var\ 3202}#
- (cons (cons (cons #{outer-var\ 3195}#
- #{inner-var\ 3202}#)
- (car #{maps\ 3190}#))
- #{outer-maps\ 3196}#)))))))))))
- (#{gen-syntax\ 3095}#
- (lambda (#{src\ 3203}#
- #{e\ 3204}#
- #{r\ 3205}#
- #{maps\ 3206}#
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#)
- (if (#{id?\ 367}# #{e\ 3204}#)
- (let ((#{label\ 3216}#
- (#{id-var-name\ 424}#
- #{e\ 3204}#
+ #{inner-var\ 15486}#
+ (cons (cons (cons #{outer-var\ 15479}#
+ #{inner-var\ 15486}#)
+ (car #{maps\ 15474}#))
+ #{outer-maps\ 15480}#)))))))))))
+ (#{gen-syntax\ 15379}#
+ (lambda (#{src\ 15487}#
+ #{e\ 15488}#
+ #{r\ 15489}#
+ #{maps\ 15490}#
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#)
+ (if (#{id?\ 12916}# #{e\ 15488}#)
+ (let ((#{label\ 15500}#
+ (#{id-var-name\ 12973}#
+ #{e\ 15488}#
'(()))))
- (let ((#{b\ 3219}#
- (#{lookup\ 361}#
- #{label\ 3216}#
- #{r\ 3205}#
- #{mod\ 3208}#)))
- (if (eq? (#{binding-type\ 350}# #{b\ 3219}#)
+ (let ((#{b\ 15503}#
+ (#{lookup\ 12910}#
+ #{label\ 15500}#
+ #{r\ 15489}#
+ #{mod\ 15492}#)))
+ (if (eq? (#{binding-type\ 12899}# #{b\ 15503}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 3221}#
- (#{binding-value\ 352}# #{b\ 3219}#)))
- (#{gen-ref\ 3097}#
- #{src\ 3203}#
- (car #{var.lev\ 3221}#)
- (cdr #{var.lev\ 3221}#)
- #{maps\ 3206}#)))
- (lambda (#{var\ 3222}# #{maps\ 3223}#)
+ (let ((#{var.lev\ 15505}#
+ (#{binding-value\ 12901}#
+ #{b\ 15503}#)))
+ (#{gen-ref\ 15381}#
+ #{src\ 15487}#
+ (car #{var.lev\ 15505}#)
+ (cdr #{var.lev\ 15505}#)
+ #{maps\ 15490}#)))
+ (lambda (#{var\ 15506}# #{maps\ 15507}#)
(values
- (list (quote ref) #{var\ 3222}#)
- #{maps\ 3223}#)))
- (if (#{ellipsis?\ 3207}# #{e\ 3204}#)
+ (list (quote ref) #{var\ 15506}#)
+ #{maps\ 15507}#)))
+ (if (#{ellipsis?\ 15491}# #{e\ 15488}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 3203}#)
+ #{src\ 15487}#)
(values
- (list (quote quote) #{e\ 3204}#)
- #{maps\ 3206}#)))))
- ((lambda (#{tmp\ 3228}#)
- ((lambda (#{tmp\ 3229}#)
- (if (if #{tmp\ 3229}#
- (apply (lambda (#{dots\ 3232}# #{e\ 3233}#)
- (#{ellipsis?\ 3207}#
- #{dots\ 3232}#))
- #{tmp\ 3229}#)
+ (list (quote quote) #{e\ 15488}#)
+ #{maps\ 15490}#)))))
+ ((lambda (#{tmp\ 15512}#)
+ ((lambda (#{tmp\ 15513}#)
+ (if (if #{tmp\ 15513}#
+ (apply (lambda (#{dots\ 15516}#
+ #{e\ 15517}#)
+ (#{ellipsis?\ 15491}#
+ #{dots\ 15516}#))
+ #{tmp\ 15513}#)
#f)
- (apply (lambda (#{dots\ 3236}# #{e\ 3237}#)
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- #{e\ 3237}#
- #{r\ 3205}#
- #{maps\ 3206}#
- (lambda (#{x\ 3238}#) #f)
- #{mod\ 3208}#))
- #{tmp\ 3229}#)
- ((lambda (#{tmp\ 3240}#)
- (if (if #{tmp\ 3240}#
- (apply (lambda (#{x\ 3244}#
- #{dots\ 3245}#
- #{y\ 3246}#)
- (#{ellipsis?\ 3207}#
- #{dots\ 3245}#))
- #{tmp\ 3240}#)
+ (apply (lambda (#{dots\ 15520}# #{e\ 15521}#)
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ #{e\ 15521}#
+ #{r\ 15489}#
+ #{maps\ 15490}#
+ (lambda (#{x\ 15522}#) #f)
+ #{mod\ 15492}#))
+ #{tmp\ 15513}#)
+ ((lambda (#{tmp\ 15524}#)
+ (if (if #{tmp\ 15524}#
+ (apply (lambda (#{x\ 15528}#
+ #{dots\ 15529}#
+ #{y\ 15530}#)
+ (#{ellipsis?\ 15491}#
+ #{dots\ 15529}#))
+ #{tmp\ 15524}#)
#f)
- (apply (lambda (#{x\ 3250}#
- #{dots\ 3251}#
- #{y\ 3252}#)
- (letrec ((#{f\ 3256}#
- (lambda (#{y\ 3257}#
- #{k\ 3258}#)
- ((lambda (#{tmp\ 3265}#)
- ((lambda (#{tmp\ 3266}#)
- (if (if #{tmp\ 3266}#
- (apply (lambda (#{dots\ 3269}#
- #{y\ 3270}#)
- (#{ellipsis?\ 3207}#
- #{dots\ 3269}#))
- #{tmp\ 3266}#)
+ (apply (lambda (#{x\ 15534}#
+ #{dots\ 15535}#
+ #{y\ 15536}#)
+ (letrec ((#{f\ 15540}#
+ (lambda (#{y\ 15541}#
+ #{k\ 15542}#)
+ ((lambda (#{tmp\ 15549}#)
+ ((lambda (#{tmp\ 15550}#)
+ (if (if #{tmp\ 15550}#
+ (apply (lambda (#{dots\ 15553}#
+ #{y\ 15554}#)
+ (#{ellipsis?\ 15491}#
+ #{dots\ 15553}#))
+ #{tmp\ 15550}#)
#f)
- (apply (lambda (#{dots\ 3273}#
- #{y\ 3274}#)
- (#{f\ 3256}#
- #{y\ 3274}#
- (lambda (#{maps\ 3275}#)
+ (apply (lambda (#{dots\ 15557}#
+ #{y\ 15558}#)
+ (#{f\ 15540}#
+ #{y\ 15558}#
+ (lambda (#{maps\ 15559}#)
(call-with-values
(lambda ()
- (#{k\ 3258}#
+ (#{k\ 15542}#
(cons '()
- #{maps\ 3275}#)))
- (lambda (#{x\ 3277}#
- #{maps\ 3278}#)
- (if (null? (car #{maps\ 3278}#))
+ #{maps\ 15559}#)))
+ (lambda (#{x\ 15561}#
+ #{maps\ 15562}#)
+ (if (null? (car #{maps\ 15562}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 3203}#)
+ #{src\ 15487}#)
(values
- (#{gen-mappend\ 3099}#
- #{x\ 3277}#
- (car #{maps\ 3278}#))
- (cdr #{maps\ 3278}#))))))))
- #{tmp\ 3266}#)
- ((lambda (#{_\ 3282}#)
+ (#{gen-mappend\ 15383}#
+ #{x\ 15561}#
+ (car #{maps\ 15562}#))
+ (cdr #{maps\ 15562}#))))))))
+ #{tmp\ 15550}#)
+ ((lambda (#{_\ 15566}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- #{y\ 3257}#
- #{r\ 3205}#
- #{maps\ 3206}#
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#))
- (lambda (#{y\ 3283}#
- #{maps\ 3284}#)
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ #{y\ 15541}#
+ #{r\ 15489}#
+ #{maps\ 15490}#
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#))
+ (lambda (#{y\ 15567}#
+ #{maps\ 15568}#)
(call-with-values
(lambda ()
- (#{k\ 3258}#
- #{maps\ 3284}#))
- (lambda (#{x\ 3287}#
- #{maps\ 3288}#)
+ (#{k\ 15542}#
+ #{maps\ 15568}#))
+ (lambda (#{x\ 15571}#
+ #{maps\ 15572}#)
(values
- (#{gen-append\ 3105}#
- #{x\ 3287}#
- #{y\ 3283}#)
- #{maps\ 3288}#))))))
- #{tmp\ 3265}#)))
+ (#{gen-append\ 15389}#
+ #{x\ 15571}#
+ #{y\ 15567}#)
+ #{maps\ 15572}#))))))
+ #{tmp\ 15549}#)))
($sc-dispatch
- #{tmp\ 3265}#
+ #{tmp\ 15549}#
'(any . any))))
- #{y\ 3257}#))))
- (#{f\ 3256}#
- #{y\ 3252}#
- (lambda (#{maps\ 3259}#)
+ #{y\ 15541}#))))
+ (#{f\ 15540}#
+ #{y\ 15536}#
+ (lambda (#{maps\ 15543}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- #{x\ 3250}#
- #{r\ 3205}#
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ #{x\ 15534}#
+ #{r\ 15489}#
(cons '()
- #{maps\ 3259}#)
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#))
- (lambda (#{x\ 3261}#
- #{maps\ 3262}#)
- (if (null? (car #{maps\ 3262}#))
+ #{maps\ 15543}#)
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#))
+ (lambda (#{x\ 15545}#
+ #{maps\ 15546}#)
+ (if (null? (car #{maps\ 15546}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 3203}#)
+ #{src\ 15487}#)
(values
- (#{gen-map\ 3101}#
- #{x\ 3261}#
- (car #{maps\ 3262}#))
- (cdr #{maps\ 3262}#)))))))))
- #{tmp\ 3240}#)
- ((lambda (#{tmp\ 3291}#)
- (if #{tmp\ 3291}#
- (apply (lambda (#{x\ 3294}#
- #{y\ 3295}#)
+ (#{gen-map\ 15385}#
+ #{x\ 15545}#
+ (car #{maps\ 15546}#))
+ (cdr #{maps\ 15546}#)))))))))
+ #{tmp\ 15524}#)
+ ((lambda (#{tmp\ 15575}#)
+ (if #{tmp\ 15575}#
+ (apply (lambda (#{x\ 15578}#
+ #{y\ 15579}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- #{x\ 3294}#
- #{r\ 3205}#
- #{maps\ 3206}#
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#))
- (lambda (#{x\ 3296}#
- #{maps\ 3297}#)
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ #{x\ 15578}#
+ #{r\ 15489}#
+ #{maps\ 15490}#
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#))
+ (lambda (#{x\ 15580}#
+ #{maps\ 15581}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- #{y\ 3295}#
- #{r\ 3205}#
- #{maps\ 3297}#
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#))
- (lambda (#{y\ 3300}#
- #{maps\ 3301}#)
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ #{y\ 15579}#
+ #{r\ 15489}#
+ #{maps\ 15581}#
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#))
+ (lambda (#{y\ 15584}#
+ #{maps\ 15585}#)
(values
- (#{gen-cons\ 3103}#
- #{x\ 3296}#
- #{y\ 3300}#)
- #{maps\ 3301}#))))))
- #{tmp\ 3291}#)
- ((lambda (#{tmp\ 3304}#)
- (if #{tmp\ 3304}#
- (apply (lambda (#{e1\ 3307}#
- #{e2\ 3308}#)
+ (#{gen-cons\ 15387}#
+ #{x\ 15580}#
+ #{y\ 15584}#)
+ #{maps\ 15585}#))))))
+ #{tmp\ 15575}#)
+ ((lambda (#{tmp\ 15588}#)
+ (if #{tmp\ 15588}#
+ (apply (lambda (#{e1\ 15591}#
+ #{e2\ 15592}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{src\ 3203}#
- (cons #{e1\ 3307}#
- #{e2\ 3308}#)
- #{r\ 3205}#
- #{maps\ 3206}#
- #{ellipsis?\ 3207}#
- #{mod\ 3208}#))
- (lambda (#{e\ 3310}#
- #{maps\ 3311}#)
+ (#{gen-syntax\ 15379}#
+ #{src\ 15487}#
+ (cons #{e1\ 15591}#
+ #{e2\ 15592}#)
+ #{r\ 15489}#
+ #{maps\ 15490}#
+ #{ellipsis?\ 15491}#
+ #{mod\ 15492}#))
+ (lambda (#{e\ 15594}#
+ #{maps\ 15595}#)
(values
- (#{gen-vector\ 3107}#
- #{e\ 3310}#)
- #{maps\ 3311}#))))
- #{tmp\ 3304}#)
- ((lambda (#{_\ 3315}#)
+ (#{gen-vector\ 15391}#
+ #{e\ 15594}#)
+ #{maps\ 15595}#))))
+ #{tmp\ 15588}#)
+ ((lambda (#{_\ 15599}#)
(values
(list 'quote
- #{e\ 3204}#)
- #{maps\ 3206}#))
- #{tmp\ 3228}#)))
+ #{e\ 15488}#)
+ #{maps\ 15490}#))
+ #{tmp\ 15512}#)))
($sc-dispatch
- #{tmp\ 3228}#
+ #{tmp\ 15512}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 3228}#
+ #{tmp\ 15512}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3228}#
+ #{tmp\ 15512}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 3228}# (quote (any any)))))
- #{e\ 3204}#)))))
- (lambda (#{e\ 3317}#
- #{r\ 3318}#
- #{w\ 3319}#
- #{s\ 3320}#
- #{mod\ 3321}#)
- (let ((#{e\ 3328}#
- (#{source-wrap\ 438}#
- #{e\ 3317}#
- #{w\ 3319}#
- #{s\ 3320}#
- #{mod\ 3321}#)))
- ((lambda (#{tmp\ 3329}#)
- ((lambda (#{tmp\ 3330}#)
- (if #{tmp\ 3330}#
- (apply (lambda (#{_\ 3333}# #{x\ 3334}#)
+ ($sc-dispatch #{tmp\ 15512}# (quote (any any)))))
+ #{e\ 15488}#)))))
+ (lambda (#{e\ 15601}#
+ #{r\ 15602}#
+ #{w\ 15603}#
+ #{s\ 15604}#
+ #{mod\ 15605}#)
+ (let ((#{e\ 15612}#
+ (#{source-wrap\ 12987}#
+ #{e\ 15601}#
+ #{w\ 15603}#
+ #{s\ 15604}#
+ #{mod\ 15605}#)))
+ ((lambda (#{tmp\ 15613}#)
+ ((lambda (#{tmp\ 15614}#)
+ (if #{tmp\ 15614}#
+ (apply (lambda (#{_\ 15617}# #{x\ 15618}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 3095}#
- #{e\ 3328}#
- #{x\ 3334}#
- #{r\ 3318}#
+ (#{gen-syntax\ 15379}#
+ #{e\ 15612}#
+ #{x\ 15618}#
+ #{r\ 15602}#
'()
- #{ellipsis?\ 468}#
- #{mod\ 3321}#))
- (lambda (#{e\ 3335}# #{maps\ 3336}#)
- (#{regen\ 3109}# #{e\ 3335}#))))
- #{tmp\ 3330}#)
- ((lambda (#{_\ 3340}#)
+ #{ellipsis?\ 13017}#
+ #{mod\ 15605}#))
+ (lambda (#{e\ 15619}# #{maps\ 15620}#)
+ (#{regen\ 15393}# #{e\ 15619}#))))
+ #{tmp\ 15614}#)
+ ((lambda (#{_\ 15624}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3328}#))
- #{tmp\ 3329}#)))
- ($sc-dispatch #{tmp\ 3329}# (quote (any any)))))
- #{e\ 3328}#)))))
- (#{global-extend\ 363}#
+ #{e\ 15612}#))
+ #{tmp\ 15613}#)))
+ ($sc-dispatch #{tmp\ 15613}# (quote (any any)))))
+ #{e\ 15612}#)))))
+ (#{global-extend\ 12912}#
'core
'lambda
- (lambda (#{e\ 3341}#
- #{r\ 3342}#
- #{w\ 3343}#
- #{s\ 3344}#
- #{mod\ 3345}#)
- ((lambda (#{tmp\ 3351}#)
- ((lambda (#{tmp\ 3352}#)
- (if #{tmp\ 3352}#
- (apply (lambda (#{_\ 3357}#
- #{args\ 3358}#
- #{e1\ 3359}#
- #{e2\ 3360}#)
+ (lambda (#{e\ 15625}#
+ #{r\ 15626}#
+ #{w\ 15627}#
+ #{s\ 15628}#
+ #{mod\ 15629}#)
+ ((lambda (#{tmp\ 15635}#)
+ ((lambda (#{tmp\ 15636}#)
+ (if #{tmp\ 15636}#
+ (apply (lambda (#{_\ 15641}#
+ #{args\ 15642}#
+ #{e1\ 15643}#
+ #{e2\ 15644}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 470}# #{args\ 3358}#))
- (lambda (#{req\ 3361}#
- #{opt\ 3362}#
- #{rest\ 3363}#
- #{kw\ 3364}#)
- (letrec ((#{lp\ 3372}#
- (lambda (#{body\ 3373}#
- #{meta\ 3374}#)
- ((lambda (#{tmp\ 3376}#)
- ((lambda (#{tmp\ 3377}#)
- (if (if #{tmp\ 3377}#
- (apply (lambda (#{docstring\ 3381}#
- #{e1\ 3382}#
- #{e2\ 3383}#)
+ (#{lambda-formals\ 13019}# #{args\ 15642}#))
+ (lambda (#{req\ 15645}#
+ #{opt\ 15646}#
+ #{rest\ 15647}#
+ #{kw\ 15648}#)
+ (letrec ((#{lp\ 15656}#
+ (lambda (#{body\ 15657}#
+ #{meta\ 15658}#)
+ ((lambda (#{tmp\ 15660}#)
+ ((lambda (#{tmp\ 15661}#)
+ (if (if #{tmp\ 15661}#
+ (apply (lambda (#{docstring\ 15665}#
+ #{e1\ 15666}#
+ #{e2\ 15667}#)
(string?
(syntax->datum
- #{docstring\ 3381}#)))
- #{tmp\ 3377}#)
+ #{docstring\ 15665}#)))
+ #{tmp\ 15661}#)
#f)
- (apply (lambda (#{docstring\ 3387}#
- #{e1\ 3388}#
- #{e2\ 3389}#)
- (#{lp\ 3372}#
- (cons #{e1\ 3388}#
- #{e2\ 3389}#)
+ (apply (lambda (#{docstring\ 15671}#
+ #{e1\ 15672}#
+ #{e2\ 15673}#)
+ (#{lp\ 15656}#
+ (cons #{e1\ 15672}#
+ #{e2\ 15673}#)
(append
- #{meta\ 3374}#
+ #{meta\ 15658}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 3387}#))))))
- #{tmp\ 3377}#)
- ((lambda (#{tmp\ 3392}#)
- (if #{tmp\ 3392}#
- (apply (lambda (#{k\ 3397}#
- #{v\ 3398}#
- #{e1\ 3399}#
- #{e2\ 3400}#)
- (#{lp\ 3372}#
- (cons #{e1\ 3399}#
- #{e2\ 3400}#)
+ #{docstring\ 15671}#))))))
+ #{tmp\ 15661}#)
+ ((lambda (#{tmp\ 15676}#)
+ (if #{tmp\ 15676}#
+ (apply (lambda (#{k\ 15681}#
+ #{v\ 15682}#
+ #{e1\ 15683}#
+ #{e2\ 15684}#)
+ (#{lp\ 15656}#
+ (cons #{e1\ 15683}#
+ #{e2\ 15684}#)
(append
- #{meta\ 3374}#
+ #{meta\ 15658}#
(syntax->datum
(map cons
- #{k\ 3397}#
- #{v\ 3398}#)))))
- #{tmp\ 3392}#)
- ((lambda (#{_\ 3405}#)
- (#{chi-simple-lambda\ 472}#
- #{e\ 3341}#
- #{r\ 3342}#
- #{w\ 3343}#
- #{s\ 3344}#
- #{mod\ 3345}#
- #{req\ 3361}#
- #{rest\ 3363}#
- #{meta\ 3374}#
- #{body\ 3373}#))
- #{tmp\ 3376}#)))
+ #{k\ 15681}#
+ #{v\ 15682}#)))))
+ #{tmp\ 15676}#)
+ ((lambda (#{_\ 15689}#)
+ (#{chi-simple-lambda\ 13021}#
+ #{e\ 15625}#
+ #{r\ 15626}#
+ #{w\ 15627}#
+ #{s\ 15628}#
+ #{mod\ 15629}#
+ #{req\ 15645}#
+ #{rest\ 15647}#
+ #{meta\ 15658}#
+ #{body\ 15657}#))
+ #{tmp\ 15660}#)))
($sc-dispatch
- #{tmp\ 3376}#
+ #{tmp\ 15660}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 3376}#
+ #{tmp\ 15660}#
'(any any . each-any))))
- #{body\ 3373}#))))
- (#{lp\ 3372}#
- (cons #{e1\ 3359}# #{e2\ 3360}#)
+ #{body\ 15657}#))))
+ (#{lp\ 15656}#
+ (cons #{e1\ 15643}# #{e2\ 15644}#)
'())))))
- #{tmp\ 3352}#)
- ((lambda (#{_\ 3407}#)
+ #{tmp\ 15636}#)
+ ((lambda (#{_\ 15691}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3341}#))
- #{tmp\ 3351}#)))
+ #{e\ 15625}#))
+ #{tmp\ 15635}#)))
($sc-dispatch
- #{tmp\ 3351}#
+ #{tmp\ 15635}#
'(any any any . each-any))))
- #{e\ 3341}#)))
- (#{global-extend\ 363}#
+ #{e\ 15625}#)))
+ (#{global-extend\ 12912}#
'core
'lambda*
- (lambda (#{e\ 3408}#
- #{r\ 3409}#
- #{w\ 3410}#
- #{s\ 3411}#
- #{mod\ 3412}#)
- ((lambda (#{tmp\ 3418}#)
- ((lambda (#{tmp\ 3419}#)
- (if #{tmp\ 3419}#
- (apply (lambda (#{_\ 3424}#
- #{args\ 3425}#
- #{e1\ 3426}#
- #{e2\ 3427}#)
+ (lambda (#{e\ 15692}#
+ #{r\ 15693}#
+ #{w\ 15694}#
+ #{s\ 15695}#
+ #{mod\ 15696}#)
+ ((lambda (#{tmp\ 15702}#)
+ ((lambda (#{tmp\ 15703}#)
+ (if #{tmp\ 15703}#
+ (apply (lambda (#{_\ 15708}#
+ #{args\ 15709}#
+ #{e1\ 15710}#
+ #{e2\ 15711}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 476}#
- #{e\ 3408}#
- #{r\ 3409}#
- #{w\ 3410}#
- #{s\ 3411}#
- #{mod\ 3412}#
- #{lambda*-formals\ 474}#
- (list (cons #{args\ 3425}#
- (cons #{e1\ 3426}#
- #{e2\ 3427}#)))))
- (lambda (#{meta\ 3429}# #{lcase\ 3430}#)
- (#{build-case-lambda\ 311}#
- #{s\ 3411}#
- #{meta\ 3429}#
- #{lcase\ 3430}#))))
- #{tmp\ 3419}#)
- ((lambda (#{_\ 3434}#)
+ (#{chi-lambda-case\ 13025}#
+ #{e\ 15692}#
+ #{r\ 15693}#
+ #{w\ 15694}#
+ #{s\ 15695}#
+ #{mod\ 15696}#
+ #{lambda*-formals\ 13023}#
+ (list (cons #{args\ 15709}#
+ (cons #{e1\ 15710}#
+ #{e2\ 15711}#)))))
+ (lambda (#{meta\ 15713}# #{lcase\ 15714}#)
+ (#{build-case-lambda\ 12860}#
+ #{s\ 15695}#
+ #{meta\ 15713}#
+ #{lcase\ 15714}#))))
+ #{tmp\ 15703}#)
+ ((lambda (#{_\ 15718}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3408}#))
- #{tmp\ 3418}#)))
+ #{e\ 15692}#))
+ #{tmp\ 15702}#)))
($sc-dispatch
- #{tmp\ 3418}#
+ #{tmp\ 15702}#
'(any any any . each-any))))
- #{e\ 3408}#)))
- (#{global-extend\ 363}#
+ #{e\ 15692}#)))
+ (#{global-extend\ 12912}#
'core
'case-lambda
- (lambda (#{e\ 3435}#
- #{r\ 3436}#
- #{w\ 3437}#
- #{s\ 3438}#
- #{mod\ 3439}#)
- ((lambda (#{tmp\ 3445}#)
- ((lambda (#{tmp\ 3446}#)
- (if #{tmp\ 3446}#
- (apply (lambda (#{_\ 3454}#
- #{args\ 3455}#
- #{e1\ 3456}#
- #{e2\ 3457}#
- #{args*\ 3458}#
- #{e1*\ 3459}#
- #{e2*\ 3460}#)
+ (lambda (#{e\ 15719}#
+ #{r\ 15720}#
+ #{w\ 15721}#
+ #{s\ 15722}#
+ #{mod\ 15723}#)
+ ((lambda (#{tmp\ 15729}#)
+ ((lambda (#{tmp\ 15730}#)
+ (if #{tmp\ 15730}#
+ (apply (lambda (#{_\ 15738}#
+ #{args\ 15739}#
+ #{e1\ 15740}#
+ #{e2\ 15741}#
+ #{args*\ 15742}#
+ #{e1*\ 15743}#
+ #{e2*\ 15744}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 476}#
- #{e\ 3435}#
- #{r\ 3436}#
- #{w\ 3437}#
- #{s\ 3438}#
- #{mod\ 3439}#
- #{lambda-formals\ 470}#
- (cons (cons #{args\ 3455}#
- (cons #{e1\ 3456}# #{e2\ 3457}#))
- (map (lambda (#{tmp\ 3464}#
- #{tmp\ 3463}#
- #{tmp\ 3462}#)
- (cons #{tmp\ 3462}#
- (cons #{tmp\ 3463}#
- #{tmp\ 3464}#)))
- #{e2*\ 3460}#
- #{e1*\ 3459}#
- #{args*\ 3458}#))))
- (lambda (#{meta\ 3466}# #{lcase\ 3467}#)
- (#{build-case-lambda\ 311}#
- #{s\ 3438}#
- #{meta\ 3466}#
- #{lcase\ 3467}#))))
- #{tmp\ 3446}#)
- ((lambda (#{_\ 3471}#)
+ (#{chi-lambda-case\ 13025}#
+ #{e\ 15719}#
+ #{r\ 15720}#
+ #{w\ 15721}#
+ #{s\ 15722}#
+ #{mod\ 15723}#
+ #{lambda-formals\ 13019}#
+ (cons (cons #{args\ 15739}#
+ (cons #{e1\ 15740}#
+ #{e2\ 15741}#))
+ (map (lambda (#{tmp\ 15748}#
+ #{tmp\ 15747}#
+ #{tmp\ 15746}#)
+ (cons #{tmp\ 15746}#
+ (cons #{tmp\ 15747}#
+ #{tmp\ 15748}#)))
+ #{e2*\ 15744}#
+ #{e1*\ 15743}#
+ #{args*\ 15742}#))))
+ (lambda (#{meta\ 15750}# #{lcase\ 15751}#)
+ (#{build-case-lambda\ 12860}#
+ #{s\ 15722}#
+ #{meta\ 15750}#
+ #{lcase\ 15751}#))))
+ #{tmp\ 15730}#)
+ ((lambda (#{_\ 15755}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3435}#))
- #{tmp\ 3445}#)))
+ #{e\ 15719}#))
+ #{tmp\ 15729}#)))
($sc-dispatch
- #{tmp\ 3445}#
+ #{tmp\ 15729}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3435}#)))
- (#{global-extend\ 363}#
+ #{e\ 15719}#)))
+ (#{global-extend\ 12912}#
'core
'case-lambda*
- (lambda (#{e\ 3472}#
- #{r\ 3473}#
- #{w\ 3474}#
- #{s\ 3475}#
- #{mod\ 3476}#)
- ((lambda (#{tmp\ 3482}#)
- ((lambda (#{tmp\ 3483}#)
- (if #{tmp\ 3483}#
- (apply (lambda (#{_\ 3491}#
- #{args\ 3492}#
- #{e1\ 3493}#
- #{e2\ 3494}#
- #{args*\ 3495}#
- #{e1*\ 3496}#
- #{e2*\ 3497}#)
+ (lambda (#{e\ 15756}#
+ #{r\ 15757}#
+ #{w\ 15758}#
+ #{s\ 15759}#
+ #{mod\ 15760}#)
+ ((lambda (#{tmp\ 15766}#)
+ ((lambda (#{tmp\ 15767}#)
+ (if #{tmp\ 15767}#
+ (apply (lambda (#{_\ 15775}#
+ #{args\ 15776}#
+ #{e1\ 15777}#
+ #{e2\ 15778}#
+ #{args*\ 15779}#
+ #{e1*\ 15780}#
+ #{e2*\ 15781}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 476}#
- #{e\ 3472}#
- #{r\ 3473}#
- #{w\ 3474}#
- #{s\ 3475}#
- #{mod\ 3476}#
- #{lambda*-formals\ 474}#
- (cons (cons #{args\ 3492}#
- (cons #{e1\ 3493}# #{e2\ 3494}#))
- (map (lambda (#{tmp\ 3501}#
- #{tmp\ 3500}#
- #{tmp\ 3499}#)
- (cons #{tmp\ 3499}#
- (cons #{tmp\ 3500}#
- #{tmp\ 3501}#)))
- #{e2*\ 3497}#
- #{e1*\ 3496}#
- #{args*\ 3495}#))))
- (lambda (#{meta\ 3503}# #{lcase\ 3504}#)
- (#{build-case-lambda\ 311}#
- #{s\ 3475}#
- #{meta\ 3503}#
- #{lcase\ 3504}#))))
- #{tmp\ 3483}#)
- ((lambda (#{_\ 3508}#)
+ (#{chi-lambda-case\ 13025}#
+ #{e\ 15756}#
+ #{r\ 15757}#
+ #{w\ 15758}#
+ #{s\ 15759}#
+ #{mod\ 15760}#
+ #{lambda*-formals\ 13023}#
+ (cons (cons #{args\ 15776}#
+ (cons #{e1\ 15777}#
+ #{e2\ 15778}#))
+ (map (lambda (#{tmp\ 15785}#
+ #{tmp\ 15784}#
+ #{tmp\ 15783}#)
+ (cons #{tmp\ 15783}#
+ (cons #{tmp\ 15784}#
+ #{tmp\ 15785}#)))
+ #{e2*\ 15781}#
+ #{e1*\ 15780}#
+ #{args*\ 15779}#))))
+ (lambda (#{meta\ 15787}# #{lcase\ 15788}#)
+ (#{build-case-lambda\ 12860}#
+ #{s\ 15759}#
+ #{meta\ 15787}#
+ #{lcase\ 15788}#))))
+ #{tmp\ 15767}#)
+ ((lambda (#{_\ 15792}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3472}#))
- #{tmp\ 3482}#)))
+ #{e\ 15756}#))
+ #{tmp\ 15766}#)))
($sc-dispatch
- #{tmp\ 3482}#
+ #{tmp\ 15766}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3472}#)))
- (#{global-extend\ 363}#
+ #{e\ 15756}#)))
+ (#{global-extend\ 12912}#
'core
'let
- (letrec ((#{chi-let\ 3510}#
- (lambda (#{e\ 3511}#
- #{r\ 3512}#
- #{w\ 3513}#
- #{s\ 3514}#
- #{mod\ 3515}#
- #{constructor\ 3516}#
- #{ids\ 3517}#
- #{vals\ 3518}#
- #{exps\ 3519}#)
- (if (not (#{valid-bound-ids?\ 430}# #{ids\ 3517}#))
+ (letrec ((#{chi-let\ 15794}#
+ (lambda (#{e\ 15795}#
+ #{r\ 15796}#
+ #{w\ 15797}#
+ #{s\ 15798}#
+ #{mod\ 15799}#
+ #{constructor\ 15800}#
+ #{ids\ 15801}#
+ #{vals\ 15802}#
+ #{exps\ 15803}#)
+ (if (not (#{valid-bound-ids?\ 12979}# #{ids\ 15801}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3511}#)
- (let ((#{labels\ 3531}#
- (#{gen-labels\ 385}# #{ids\ 3517}#))
- (#{new-vars\ 3532}#
- (map #{gen-var\ 480}# #{ids\ 3517}#)))
- (let ((#{nw\ 3535}#
- (#{make-binding-wrap\ 414}#
- #{ids\ 3517}#
- #{labels\ 3531}#
- #{w\ 3513}#))
- (#{nr\ 3536}#
- (#{extend-var-env\ 357}#
- #{labels\ 3531}#
- #{new-vars\ 3532}#
- #{r\ 3512}#)))
- (#{constructor\ 3516}#
- #{s\ 3514}#
- (map syntax->datum #{ids\ 3517}#)
- #{new-vars\ 3532}#
- (map (lambda (#{x\ 3537}#)
- (#{chi\ 452}#
- #{x\ 3537}#
- #{r\ 3512}#
- #{w\ 3513}#
- #{mod\ 3515}#))
- #{vals\ 3518}#)
- (#{chi-body\ 460}#
- #{exps\ 3519}#
- (#{source-wrap\ 438}#
- #{e\ 3511}#
- #{nw\ 3535}#
- #{s\ 3514}#
- #{mod\ 3515}#)
- #{nr\ 3536}#
- #{nw\ 3535}#
- #{mod\ 3515}#))))))))
- (lambda (#{e\ 3539}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#)
- ((lambda (#{tmp\ 3549}#)
- ((lambda (#{tmp\ 3550}#)
- (if (if #{tmp\ 3550}#
- (apply (lambda (#{_\ 3556}#
- #{id\ 3557}#
- #{val\ 3558}#
- #{e1\ 3559}#
- #{e2\ 3560}#)
- (and-map #{id?\ 367}# #{id\ 3557}#))
- #{tmp\ 3550}#)
+ #{e\ 15795}#)
+ (let ((#{labels\ 15815}#
+ (#{gen-labels\ 12934}# #{ids\ 15801}#))
+ (#{new-vars\ 15816}#
+ (map #{gen-var\ 13029}# #{ids\ 15801}#)))
+ (let ((#{nw\ 15819}#
+ (#{make-binding-wrap\ 12963}#
+ #{ids\ 15801}#
+ #{labels\ 15815}#
+ #{w\ 15797}#))
+ (#{nr\ 15820}#
+ (#{extend-var-env\ 12906}#
+ #{labels\ 15815}#
+ #{new-vars\ 15816}#
+ #{r\ 15796}#)))
+ (#{constructor\ 15800}#
+ #{s\ 15798}#
+ (map syntax->datum #{ids\ 15801}#)
+ #{new-vars\ 15816}#
+ (map (lambda (#{x\ 15821}#)
+ (#{chi\ 13001}#
+ #{x\ 15821}#
+ #{r\ 15796}#
+ #{w\ 15797}#
+ #{mod\ 15799}#))
+ #{vals\ 15802}#)
+ (#{chi-body\ 13009}#
+ #{exps\ 15803}#
+ (#{source-wrap\ 12987}#
+ #{e\ 15795}#
+ #{nw\ 15819}#
+ #{s\ 15798}#
+ #{mod\ 15799}#)
+ #{nr\ 15820}#
+ #{nw\ 15819}#
+ #{mod\ 15799}#))))))))
+ (lambda (#{e\ 15823}#
+ #{r\ 15824}#
+ #{w\ 15825}#
+ #{s\ 15826}#
+ #{mod\ 15827}#)
+ ((lambda (#{tmp\ 15833}#)
+ ((lambda (#{tmp\ 15834}#)
+ (if (if #{tmp\ 15834}#
+ (apply (lambda (#{_\ 15840}#
+ #{id\ 15841}#
+ #{val\ 15842}#
+ #{e1\ 15843}#
+ #{e2\ 15844}#)
+ (and-map #{id?\ 12916}# #{id\ 15841}#))
+ #{tmp\ 15834}#)
#f)
- (apply (lambda (#{_\ 3567}#
- #{id\ 3568}#
- #{val\ 3569}#
- #{e1\ 3570}#
- #{e2\ 3571}#)
- (#{chi-let\ 3510}#
- #{e\ 3539}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#
- #{build-let\ 321}#
- #{id\ 3568}#
- #{val\ 3569}#
- (cons #{e1\ 3570}# #{e2\ 3571}#)))
- #{tmp\ 3550}#)
- ((lambda (#{tmp\ 3575}#)
- (if (if #{tmp\ 3575}#
- (apply (lambda (#{_\ 3582}#
- #{f\ 3583}#
- #{id\ 3584}#
- #{val\ 3585}#
- #{e1\ 3586}#
- #{e2\ 3587}#)
- (if (#{id?\ 367}# #{f\ 3583}#)
- (and-map #{id?\ 367}# #{id\ 3584}#)
+ (apply (lambda (#{_\ 15851}#
+ #{id\ 15852}#
+ #{val\ 15853}#
+ #{e1\ 15854}#
+ #{e2\ 15855}#)
+ (#{chi-let\ 15794}#
+ #{e\ 15823}#
+ #{r\ 15824}#
+ #{w\ 15825}#
+ #{s\ 15826}#
+ #{mod\ 15827}#
+ #{build-let\ 12870}#
+ #{id\ 15852}#
+ #{val\ 15853}#
+ (cons #{e1\ 15854}# #{e2\ 15855}#)))
+ #{tmp\ 15834}#)
+ ((lambda (#{tmp\ 15859}#)
+ (if (if #{tmp\ 15859}#
+ (apply (lambda (#{_\ 15866}#
+ #{f\ 15867}#
+ #{id\ 15868}#
+ #{val\ 15869}#
+ #{e1\ 15870}#
+ #{e2\ 15871}#)
+ (if (#{id?\ 12916}# #{f\ 15867}#)
+ (and-map #{id?\ 12916}# #{id\ 15868}#)
#f))
- #{tmp\ 3575}#)
+ #{tmp\ 15859}#)
#f)
- (apply (lambda (#{_\ 3597}#
- #{f\ 3598}#
- #{id\ 3599}#
- #{val\ 3600}#
- #{e1\ 3601}#
- #{e2\ 3602}#)
- (#{chi-let\ 3510}#
- #{e\ 3539}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#
- #{build-named-let\ 323}#
- (cons #{f\ 3598}# #{id\ 3599}#)
- #{val\ 3600}#
- (cons #{e1\ 3601}# #{e2\ 3602}#)))
- #{tmp\ 3575}#)
- ((lambda (#{_\ 3607}#)
+ (apply (lambda (#{_\ 15881}#
+ #{f\ 15882}#
+ #{id\ 15883}#
+ #{val\ 15884}#
+ #{e1\ 15885}#
+ #{e2\ 15886}#)
+ (#{chi-let\ 15794}#
+ #{e\ 15823}#
+ #{r\ 15824}#
+ #{w\ 15825}#
+ #{s\ 15826}#
+ #{mod\ 15827}#
+ #{build-named-let\ 12872}#
+ (cons #{f\ 15882}# #{id\ 15883}#)
+ #{val\ 15884}#
+ (cons #{e1\ 15885}# #{e2\ 15886}#)))
+ #{tmp\ 15859}#)
+ ((lambda (#{_\ 15891}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 438}#
- #{e\ 3539}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#)))
- #{tmp\ 3549}#)))
+ (#{source-wrap\ 12987}#
+ #{e\ 15823}#
+ #{w\ 15825}#
+ #{s\ 15826}#
+ #{mod\ 15827}#)))
+ #{tmp\ 15833}#)))
($sc-dispatch
- #{tmp\ 3549}#
+ #{tmp\ 15833}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3549}#
+ #{tmp\ 15833}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3539}#))))
- (#{global-extend\ 363}#
+ #{e\ 15823}#))))
+ (#{global-extend\ 12912}#
'core
'letrec
- (lambda (#{e\ 3608}#
- #{r\ 3609}#
- #{w\ 3610}#
- #{s\ 3611}#
- #{mod\ 3612}#)
- ((lambda (#{tmp\ 3618}#)
- ((lambda (#{tmp\ 3619}#)
- (if (if #{tmp\ 3619}#
- (apply (lambda (#{_\ 3625}#
- #{id\ 3626}#
- #{val\ 3627}#
- #{e1\ 3628}#
- #{e2\ 3629}#)
- (and-map #{id?\ 367}# #{id\ 3626}#))
- #{tmp\ 3619}#)
+ (lambda (#{e\ 15892}#
+ #{r\ 15893}#
+ #{w\ 15894}#
+ #{s\ 15895}#
+ #{mod\ 15896}#)
+ ((lambda (#{tmp\ 15902}#)
+ ((lambda (#{tmp\ 15903}#)
+ (if (if #{tmp\ 15903}#
+ (apply (lambda (#{_\ 15909}#
+ #{id\ 15910}#
+ #{val\ 15911}#
+ #{e1\ 15912}#
+ #{e2\ 15913}#)
+ (and-map #{id?\ 12916}# #{id\ 15910}#))
+ #{tmp\ 15903}#)
#f)
- (apply (lambda (#{_\ 3636}#
- #{id\ 3637}#
- #{val\ 3638}#
- #{e1\ 3639}#
- #{e2\ 3640}#)
- (let ((#{ids\ 3642}# #{id\ 3637}#))
- (if (not (#{valid-bound-ids?\ 430}#
- #{ids\ 3642}#))
+ (apply (lambda (#{_\ 15920}#
+ #{id\ 15921}#
+ #{val\ 15922}#
+ #{e1\ 15923}#
+ #{e2\ 15924}#)
+ (let ((#{ids\ 15926}# #{id\ 15921}#))
+ (if (not (#{valid-bound-ids?\ 12979}#
+ #{ids\ 15926}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3608}#)
- (let ((#{labels\ 3646}#
- (#{gen-labels\ 385}# #{ids\ 3642}#))
- (#{new-vars\ 3647}#
- (map #{gen-var\ 480}# #{ids\ 3642}#)))
- (let ((#{w\ 3650}#
- (#{make-binding-wrap\ 414}#
- #{ids\ 3642}#
- #{labels\ 3646}#
- #{w\ 3610}#))
- (#{r\ 3651}#
- (#{extend-var-env\ 357}#
- #{labels\ 3646}#
- #{new-vars\ 3647}#
- #{r\ 3609}#)))
- (#{build-letrec\ 325}#
- #{s\ 3611}#
- (map syntax->datum #{ids\ 3642}#)
- #{new-vars\ 3647}#
- (map (lambda (#{x\ 3652}#)
- (#{chi\ 452}#
- #{x\ 3652}#
- #{r\ 3651}#
- #{w\ 3650}#
- #{mod\ 3612}#))
- #{val\ 3638}#)
- (#{chi-body\ 460}#
- (cons #{e1\ 3639}# #{e2\ 3640}#)
- (#{source-wrap\ 438}#
- #{e\ 3608}#
- #{w\ 3650}#
- #{s\ 3611}#
- #{mod\ 3612}#)
- #{r\ 3651}#
- #{w\ 3650}#
- #{mod\ 3612}#)))))))
- #{tmp\ 3619}#)
- ((lambda (#{_\ 3657}#)
+ #{e\ 15892}#)
+ (let ((#{labels\ 15930}#
+ (#{gen-labels\ 12934}# #{ids\ 15926}#))
+ (#{new-vars\ 15931}#
+ (map #{gen-var\ 13029}#
+ #{ids\ 15926}#)))
+ (let ((#{w\ 15934}#
+ (#{make-binding-wrap\ 12963}#
+ #{ids\ 15926}#
+ #{labels\ 15930}#
+ #{w\ 15894}#))
+ (#{r\ 15935}#
+ (#{extend-var-env\ 12906}#
+ #{labels\ 15930}#
+ #{new-vars\ 15931}#
+ #{r\ 15893}#)))
+ (#{build-letrec\ 12874}#
+ #{s\ 15895}#
+ (map syntax->datum #{ids\ 15926}#)
+ #{new-vars\ 15931}#
+ (map (lambda (#{x\ 15936}#)
+ (#{chi\ 13001}#
+ #{x\ 15936}#
+ #{r\ 15935}#
+ #{w\ 15934}#
+ #{mod\ 15896}#))
+ #{val\ 15922}#)
+ (#{chi-body\ 13009}#
+ (cons #{e1\ 15923}# #{e2\ 15924}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 15892}#
+ #{w\ 15934}#
+ #{s\ 15895}#
+ #{mod\ 15896}#)
+ #{r\ 15935}#
+ #{w\ 15934}#
+ #{mod\ 15896}#)))))))
+ #{tmp\ 15903}#)
+ ((lambda (#{_\ 15941}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 438}#
- #{e\ 3608}#
- #{w\ 3610}#
- #{s\ 3611}#
- #{mod\ 3612}#)))
- #{tmp\ 3618}#)))
+ (#{source-wrap\ 12987}#
+ #{e\ 15892}#
+ #{w\ 15894}#
+ #{s\ 15895}#
+ #{mod\ 15896}#)))
+ #{tmp\ 15902}#)))
($sc-dispatch
- #{tmp\ 3618}#
+ #{tmp\ 15902}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3608}#)))
- (#{global-extend\ 363}#
+ #{e\ 15892}#)))
+ (#{global-extend\ 12912}#
'core
'set!
- (lambda (#{e\ 3658}#
- #{r\ 3659}#
- #{w\ 3660}#
- #{s\ 3661}#
- #{mod\ 3662}#)
- ((lambda (#{tmp\ 3668}#)
- ((lambda (#{tmp\ 3669}#)
- (if (if #{tmp\ 3669}#
- (apply (lambda (#{_\ 3673}# #{id\ 3674}# #{val\ 3675}#)
- (#{id?\ 367}# #{id\ 3674}#))
- #{tmp\ 3669}#)
+ (lambda (#{e\ 15942}#
+ #{r\ 15943}#
+ #{w\ 15944}#
+ #{s\ 15945}#
+ #{mod\ 15946}#)
+ ((lambda (#{tmp\ 15952}#)
+ ((lambda (#{tmp\ 15953}#)
+ (if (if #{tmp\ 15953}#
+ (apply (lambda (#{_\ 15957}#
+ #{id\ 15958}#
+ #{val\ 15959}#)
+ (#{id?\ 12916}# #{id\ 15958}#))
+ #{tmp\ 15953}#)
#f)
- (apply (lambda (#{_\ 3679}# #{id\ 3680}# #{val\ 3681}#)
- (let ((#{val\ 3684}#
- (#{chi\ 452}#
- #{val\ 3681}#
- #{r\ 3659}#
- #{w\ 3660}#
- #{mod\ 3662}#))
- (#{n\ 3685}#
- (#{id-var-name\ 424}#
- #{id\ 3680}#
- #{w\ 3660}#)))
- (let ((#{b\ 3687}#
- (#{lookup\ 361}#
- #{n\ 3685}#
- #{r\ 3659}#
- #{mod\ 3662}#)))
- (let ((#{atom-key\ 3690}#
- (#{binding-type\ 350}# #{b\ 3687}#)))
- (if (memv #{atom-key\ 3690}#
+ (apply (lambda (#{_\ 15963}# #{id\ 15964}# #{val\ 15965}#)
+ (let ((#{val\ 15968}#
+ (#{chi\ 13001}#
+ #{val\ 15965}#
+ #{r\ 15943}#
+ #{w\ 15944}#
+ #{mod\ 15946}#))
+ (#{n\ 15969}#
+ (#{id-var-name\ 12973}#
+ #{id\ 15964}#
+ #{w\ 15944}#)))
+ (let ((#{b\ 15971}#
+ (#{lookup\ 12910}#
+ #{n\ 15969}#
+ #{r\ 15943}#
+ #{mod\ 15946}#)))
+ (let ((#{atom-key\ 15974}#
+ (#{binding-type\ 12899}# #{b\ 15971}#)))
+ (if (memv #{atom-key\ 15974}#
'(lexical))
- (#{build-lexical-assignment\ 297}#
- #{s\ 3661}#
- (syntax->datum #{id\ 3680}#)
- (#{binding-value\ 352}# #{b\ 3687}#)
- #{val\ 3684}#)
- (if (memv #{atom-key\ 3690}#
+ (#{build-lexical-assignment\ 12846}#
+ #{s\ 15945}#
+ (syntax->datum #{id\ 15964}#)
+ (#{binding-value\ 12901}# #{b\ 15971}#)
+ #{val\ 15968}#)
+ (if (memv #{atom-key\ 15974}#
'(global))
- (#{build-global-assignment\ 303}#
- #{s\ 3661}#
- #{n\ 3685}#
- #{val\ 3684}#
- #{mod\ 3662}#)
- (if (memv #{atom-key\ 3690}#
+ (#{build-global-assignment\ 12852}#
+ #{s\ 15945}#
+ #{n\ 15969}#
+ #{val\ 15968}#
+ #{mod\ 15946}#)
+ (if (memv #{atom-key\ 15974}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 436}#
- #{id\ 3680}#
- #{w\ 3660}#
- #{mod\ 3662}#))
+ (#{wrap\ 12985}#
+ #{id\ 15964}#
+ #{w\ 15944}#
+ #{mod\ 15946}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 438}#
- #{e\ 3658}#
- #{w\ 3660}#
- #{s\ 3661}#
- #{mod\ 3662}#)))))))))
- #{tmp\ 3669}#)
- ((lambda (#{tmp\ 3695}#)
- (if #{tmp\ 3695}#
- (apply (lambda (#{_\ 3700}#
- #{head\ 3701}#
- #{tail\ 3702}#
- #{val\ 3703}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 15942}#
+ #{w\ 15944}#
+ #{s\ 15945}#
+ #{mod\ 15946}#)))))))))
+ #{tmp\ 15953}#)
+ ((lambda (#{tmp\ 15979}#)
+ (if #{tmp\ 15979}#
+ (apply (lambda (#{_\ 15984}#
+ #{head\ 15985}#
+ #{tail\ 15986}#
+ #{val\ 15987}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 448}#
- #{head\ 3701}#
- #{r\ 3659}#
+ (#{syntax-type\ 12997}#
+ #{head\ 15985}#
+ #{r\ 15943}#
'(())
#f
#f
- #{mod\ 3662}#
+ #{mod\ 15946}#
#t))
- (lambda (#{type\ 3706}#
- #{value\ 3707}#
- #{ee\ 3708}#
- #{ww\ 3709}#
- #{ss\ 3710}#
- #{modmod\ 3711}#)
- (if (memv #{type\ 3706}#
+ (lambda (#{type\ 15990}#
+ #{value\ 15991}#
+ #{ee\ 15992}#
+ #{ww\ 15993}#
+ #{ss\ 15994}#
+ #{modmod\ 15995}#)
+ (if (memv #{type\ 15990}#
'(module-ref))
- (let ((#{val\ 3720}#
- (#{chi\ 452}#
- #{val\ 3703}#
- #{r\ 3659}#
- #{w\ 3660}#
- #{mod\ 3662}#)))
+ (let ((#{val\ 16004}#
+ (#{chi\ 13001}#
+ #{val\ 15987}#
+ #{r\ 15943}#
+ #{w\ 15944}#
+ #{mod\ 15946}#)))
(call-with-values
(lambda ()
- (#{value\ 3707}#
- (cons #{head\ 3701}#
- #{tail\ 3702}#)
- #{r\ 3659}#
- #{w\ 3660}#))
- (lambda (#{e\ 3722}#
- #{r\ 3723}#
- #{w\ 3724}#
- #{s*\ 3725}#
- #{mod\ 3726}#)
- ((lambda (#{tmp\ 3732}#)
- ((lambda (#{tmp\ 3733}#)
- (if (if #{tmp\ 3733}#
- (apply (lambda (#{e\ 3735}#)
- (#{id?\ 367}#
- #{e\ 3735}#))
- #{tmp\ 3733}#)
+ (#{value\ 15991}#
+ (cons #{head\ 15985}#
+ #{tail\ 15986}#)
+ #{r\ 15943}#
+ #{w\ 15944}#))
+ (lambda (#{e\ 16006}#
+ #{r\ 16007}#
+ #{w\ 16008}#
+ #{s*\ 16009}#
+ #{mod\ 16010}#)
+ ((lambda (#{tmp\ 16016}#)
+ ((lambda (#{tmp\ 16017}#)
+ (if (if #{tmp\ 16017}#
+ (apply (lambda (#{e\ 16019}#)
+ (#{id?\ 12916}#
+ #{e\ 16019}#))
+ #{tmp\ 16017}#)
#f)
- (apply (lambda (#{e\ 3737}#)
- (#{build-global-assignment\ 303}#
- #{s\ 3661}#
+ (apply (lambda (#{e\ 16021}#)
+ (#{build-global-assignment\ 12852}#
+ #{s\ 15945}#
(syntax->datum
- #{e\ 3737}#)
- #{val\ 3720}#
- #{mod\ 3726}#))
- #{tmp\ 3733}#)
+ #{e\ 16021}#)
+ #{val\ 16004}#
+ #{mod\ 16010}#))
+ #{tmp\ 16017}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3732}#)))
- (list #{tmp\ 3732}#)))
- #{e\ 3722}#))))
- (#{build-application\ 289}#
- #{s\ 3661}#
- (#{chi\ 452}#
+ #{tmp\ 16016}#)))
+ (list #{tmp\ 16016}#)))
+ #{e\ 16006}#))))
+ (#{build-application\ 12838}#
+ #{s\ 15945}#
+ (#{chi\ 13001}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3712"
- "i3713"
- "i3714"
- "i3715"
- "i3716"
- "i3717"))
+ #("i15996"
+ "i15997"
+ "i15998"
+ "i15999"
+ "i16000"
+ "i16001"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3696"
- "i3697"
- "i3698"
- "i3699"))
+ #("i15980"
+ "i15981"
+ "i15982"
+ "i15983"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i3663"
- "i3664"
- "i3665"
- "i3666"
- "i3667"))
+ #("i15947"
+ "i15948"
+ "i15949"
+ "i15950"
+ "i15951"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile))
- #{head\ 3701}#)
- #{r\ 3659}#
- #{w\ 3660}#
- #{mod\ 3662}#)
- (map (lambda (#{e\ 3739}#)
- (#{chi\ 452}#
- #{e\ 3739}#
- #{r\ 3659}#
- #{w\ 3660}#
- #{mod\ 3662}#))
+ #{head\ 15985}#)
+ #{r\ 15943}#
+ #{w\ 15944}#
+ #{mod\ 15946}#)
+ (map (lambda (#{e\ 16023}#)
+ (#{chi\ 13001}#
+ #{e\ 16023}#
+ #{r\ 15943}#
+ #{w\ 15944}#
+ #{mod\ 15946}#))
(append
- #{tail\ 3702}#
- (list #{val\ 3703}#))))))))
- #{tmp\ 3695}#)
- ((lambda (#{_\ 3743}#)
+ #{tail\ 15986}#
+ (list #{val\ 15987}#))))))))
+ #{tmp\ 15979}#)
+ ((lambda (#{_\ 16027}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 438}#
- #{e\ 3658}#
- #{w\ 3660}#
- #{s\ 3661}#
- #{mod\ 3662}#)))
- #{tmp\ 3668}#)))
+ (#{source-wrap\ 12987}#
+ #{e\ 15942}#
+ #{w\ 15944}#
+ #{s\ 15945}#
+ #{mod\ 15946}#)))
+ #{tmp\ 15952}#)))
($sc-dispatch
- #{tmp\ 3668}#
+ #{tmp\ 15952}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3668}#
+ #{tmp\ 15952}#
'(any any any))))
- #{e\ 3658}#)))
- (#{global-extend\ 363}#
+ #{e\ 15942}#)))
+ (#{global-extend\ 12912}#
'module-ref
'@
- (lambda (#{e\ 3744}# #{r\ 3745}# #{w\ 3746}#)
- ((lambda (#{tmp\ 3750}#)
- ((lambda (#{tmp\ 3751}#)
- (if (if #{tmp\ 3751}#
- (apply (lambda (#{_\ 3755}# #{mod\ 3756}# #{id\ 3757}#)
- (if (and-map #{id?\ 367}# #{mod\ 3756}#)
- (#{id?\ 367}# #{id\ 3757}#)
+ (lambda (#{e\ 16028}# #{r\ 16029}# #{w\ 16030}#)
+ ((lambda (#{tmp\ 16034}#)
+ ((lambda (#{tmp\ 16035}#)
+ (if (if #{tmp\ 16035}#
+ (apply (lambda (#{_\ 16039}#
+ #{mod\ 16040}#
+ #{id\ 16041}#)
+ (if (and-map #{id?\ 12916}# #{mod\ 16040}#)
+ (#{id?\ 12916}# #{id\ 16041}#)
#f))
- #{tmp\ 3751}#)
+ #{tmp\ 16035}#)
#f)
- (apply (lambda (#{_\ 3764}# #{mod\ 3765}# #{id\ 3766}#)
+ (apply (lambda (#{_\ 16048}# #{mod\ 16049}# #{id\ 16050}#)
(values
- (syntax->datum #{id\ 3766}#)
- #{r\ 3745}#
- #{w\ 3746}#
+ (syntax->datum #{id\ 16050}#)
+ #{r\ 16029}#
+ #{w\ 16030}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3761" "i3762" "i3763"))
+ #("i16045" "i16046" "i16047"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3747" "i3748" "i3749"))
+ #("i16031" "i16032" "i16033"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629" "i12628" "i12626")))
(hygiene guile))
- #{mod\ 3765}#))))
- #{tmp\ 3751}#)
+ #{mod\ 16049}#))))
+ #{tmp\ 16035}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3750}#)))
+ #{tmp\ 16034}#)))
($sc-dispatch
- #{tmp\ 3750}#
+ #{tmp\ 16034}#
'(any each-any any))))
- #{e\ 3744}#)))
- (#{global-extend\ 363}#
+ #{e\ 16028}#)))
+ (#{global-extend\ 12912}#
'module-ref
'@@
- (lambda (#{e\ 3768}# #{r\ 3769}# #{w\ 3770}#)
- (letrec ((#{remodulate\ 3775}#
- (lambda (#{x\ 3776}# #{mod\ 3777}#)
- (if (pair? #{x\ 3776}#)
- (cons (#{remodulate\ 3775}#
- (car #{x\ 3776}#)
- #{mod\ 3777}#)
- (#{remodulate\ 3775}#
- (cdr #{x\ 3776}#)
- #{mod\ 3777}#))
- (if (#{syntax-object?\ 331}# #{x\ 3776}#)
- (#{make-syntax-object\ 329}#
- (#{remodulate\ 3775}#
- (#{syntax-object-expression\ 333}# #{x\ 3776}#)
- #{mod\ 3777}#)
- (#{syntax-object-wrap\ 335}# #{x\ 3776}#)
- #{mod\ 3777}#)
- (if (vector? #{x\ 3776}#)
- (let ((#{n\ 3788}# (vector-length #{x\ 3776}#)))
- (let ((#{v\ 3790}# (make-vector #{n\ 3788}#)))
- (letrec ((#{loop\ 3793}#
- (lambda (#{i\ 3794}#)
- (if (#{fx=\ 272}#
- #{i\ 3794}#
- #{n\ 3788}#)
- (begin (if #f #f) #{v\ 3790}#)
+ (lambda (#{e\ 16052}# #{r\ 16053}# #{w\ 16054}#)
+ (letrec ((#{remodulate\ 16059}#
+ (lambda (#{x\ 16060}# #{mod\ 16061}#)
+ (if (pair? #{x\ 16060}#)
+ (cons (#{remodulate\ 16059}#
+ (car #{x\ 16060}#)
+ #{mod\ 16061}#)
+ (#{remodulate\ 16059}#
+ (cdr #{x\ 16060}#)
+ #{mod\ 16061}#))
+ (if (#{syntax-object?\ 12880}# #{x\ 16060}#)
+ (#{make-syntax-object\ 12878}#
+ (#{remodulate\ 16059}#
+ (#{syntax-object-expression\ 12882}#
+ #{x\ 16060}#)
+ #{mod\ 16061}#)
+ (#{syntax-object-wrap\ 12884}# #{x\ 16060}#)
+ #{mod\ 16061}#)
+ (if (vector? #{x\ 16060}#)
+ (let ((#{n\ 16072}# (vector-length #{x\ 16060}#)))
+ (let ((#{v\ 16074}# (make-vector #{n\ 16072}#)))
+ (letrec ((#{loop\ 16077}#
+ (lambda (#{i\ 16078}#)
+ (if (#{fx=\ 12821}#
+ #{i\ 16078}#
+ #{n\ 16072}#)
+ (begin (if #f #f) #{v\ 16074}#)
(begin
(vector-set!
- #{v\ 3790}#
- #{i\ 3794}#
- (#{remodulate\ 3775}#
+ #{v\ 16074}#
+ #{i\ 16078}#
+ (#{remodulate\ 16059}#
(vector-ref
- #{x\ 3776}#
- #{i\ 3794}#)
- #{mod\ 3777}#))
- (#{loop\ 3793}#
- (#{fx+\ 268}#
- #{i\ 3794}#
+ #{x\ 16060}#
+ #{i\ 16078}#)
+ #{mod\ 16061}#))
+ (#{loop\ 16077}#
+ (#{fx+\ 12817}#
+ #{i\ 16078}#
1)))))))
- (#{loop\ 3793}# 0))))
- #{x\ 3776}#))))))
- ((lambda (#{tmp\ 3798}#)
- ((lambda (#{tmp\ 3799}#)
- (if (if #{tmp\ 3799}#
- (apply (lambda (#{_\ 3803}#
- #{mod\ 3804}#
- #{exp\ 3805}#)
- (and-map #{id?\ 367}# #{mod\ 3804}#))
- #{tmp\ 3799}#)
+ (#{loop\ 16077}# 0))))
+ #{x\ 16060}#))))))
+ ((lambda (#{tmp\ 16082}#)
+ ((lambda (#{tmp\ 16083}#)
+ (if (if #{tmp\ 16083}#
+ (apply (lambda (#{_\ 16087}#
+ #{mod\ 16088}#
+ #{exp\ 16089}#)
+ (and-map #{id?\ 12916}# #{mod\ 16088}#))
+ #{tmp\ 16083}#)
#f)
- (apply (lambda (#{_\ 3810}# #{mod\ 3811}# #{exp\ 3812}#)
- (let ((#{mod\ 3814}#
+ (apply (lambda (#{_\ 16094}# #{mod\ 16095}# #{exp\ 16096}#)
+ (let ((#{mod\ 16098}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3807" "i3808" "i3809"))
+ #("i16091"
+ "i16092"
+ "i16093"))
#(ribcage
(remodulate)
((top))
- ("i3774"))
+ ("i16058"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3771" "i3772" "i3773"))
+ #("i16055"
+ "i16056"
+ "i16057"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28" "i27" "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile))
- #{mod\ 3811}#))))
+ #{mod\ 16095}#))))
(values
- (#{remodulate\ 3775}#
- #{exp\ 3812}#
- #{mod\ 3814}#)
- #{r\ 3769}#
- #{w\ 3770}#
- (#{source-annotation\ 346}# #{exp\ 3812}#)
- #{mod\ 3814}#)))
- #{tmp\ 3799}#)
+ (#{remodulate\ 16059}#
+ #{exp\ 16096}#
+ #{mod\ 16098}#)
+ #{r\ 16053}#
+ #{w\ 16054}#
+ (#{source-annotation\ 12895}# #{exp\ 16096}#)
+ #{mod\ 16098}#)))
+ #{tmp\ 16083}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3798}#)))
+ #{tmp\ 16082}#)))
($sc-dispatch
- #{tmp\ 3798}#
+ #{tmp\ 16082}#
'(any each-any any))))
- #{e\ 3768}#))))
- (#{global-extend\ 363}#
+ #{e\ 16052}#))))
+ (#{global-extend\ 12912}#
'core
'if
- (lambda (#{e\ 3816}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{s\ 3819}#
- #{mod\ 3820}#)
- ((lambda (#{tmp\ 3826}#)
- ((lambda (#{tmp\ 3827}#)
- (if #{tmp\ 3827}#
- (apply (lambda (#{_\ 3831}# #{test\ 3832}# #{then\ 3833}#)
- (#{build-conditional\ 291}#
- #{s\ 3819}#
- (#{chi\ 452}#
- #{test\ 3832}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{mod\ 3820}#)
- (#{chi\ 452}#
- #{then\ 3833}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{mod\ 3820}#)
- (#{build-void\ 287}# #f)))
- #{tmp\ 3827}#)
- ((lambda (#{tmp\ 3835}#)
- (if #{tmp\ 3835}#
- (apply (lambda (#{_\ 3840}#
- #{test\ 3841}#
- #{then\ 3842}#
- #{else\ 3843}#)
- (#{build-conditional\ 291}#
- #{s\ 3819}#
- (#{chi\ 452}#
- #{test\ 3841}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{mod\ 3820}#)
- (#{chi\ 452}#
- #{then\ 3842}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{mod\ 3820}#)
- (#{chi\ 452}#
- #{else\ 3843}#
- #{r\ 3817}#
- #{w\ 3818}#
- #{mod\ 3820}#)))
- #{tmp\ 3835}#)
+ (lambda (#{e\ 16100}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{s\ 16103}#
+ #{mod\ 16104}#)
+ ((lambda (#{tmp\ 16110}#)
+ ((lambda (#{tmp\ 16111}#)
+ (if #{tmp\ 16111}#
+ (apply (lambda (#{_\ 16115}# #{test\ 16116}# #{then\ 16117}#)
+ (#{build-conditional\ 12840}#
+ #{s\ 16103}#
+ (#{chi\ 13001}#
+ #{test\ 16116}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{mod\ 16104}#)
+ (#{chi\ 13001}#
+ #{then\ 16117}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{mod\ 16104}#)
+ (#{build-void\ 12836}# #f)))
+ #{tmp\ 16111}#)
+ ((lambda (#{tmp\ 16119}#)
+ (if #{tmp\ 16119}#
+ (apply (lambda (#{_\ 16124}#
+ #{test\ 16125}#
+ #{then\ 16126}#
+ #{else\ 16127}#)
+ (#{build-conditional\ 12840}#
+ #{s\ 16103}#
+ (#{chi\ 13001}#
+ #{test\ 16125}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{mod\ 16104}#)
+ (#{chi\ 13001}#
+ #{then\ 16126}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{mod\ 16104}#)
+ (#{chi\ 13001}#
+ #{else\ 16127}#
+ #{r\ 16101}#
+ #{w\ 16102}#
+ #{mod\ 16104}#)))
+ #{tmp\ 16119}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3826}#)))
+ #{tmp\ 16110}#)))
($sc-dispatch
- #{tmp\ 3826}#
+ #{tmp\ 16110}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3826}#
+ #{tmp\ 16110}#
'(any any any))))
- #{e\ 3816}#)))
- (#{global-extend\ 363}#
+ #{e\ 16100}#)))
+ (#{global-extend\ 12912}#
'core
'with-fluids
- (lambda (#{e\ 3844}#
- #{r\ 3845}#
- #{w\ 3846}#
- #{s\ 3847}#
- #{mod\ 3848}#)
- ((lambda (#{tmp\ 3854}#)
- ((lambda (#{tmp\ 3855}#)
- (if #{tmp\ 3855}#
- (apply (lambda (#{_\ 3861}#
- #{fluid\ 3862}#
- #{val\ 3863}#
- #{b\ 3864}#
- #{b*\ 3865}#)
- (#{build-dynlet\ 293}#
- #{s\ 3847}#
- (map (lambda (#{x\ 3866}#)
- (#{chi\ 452}#
- #{x\ 3866}#
- #{r\ 3845}#
- #{w\ 3846}#
- #{mod\ 3848}#))
- #{fluid\ 3862}#)
- (map (lambda (#{x\ 3869}#)
- (#{chi\ 452}#
- #{x\ 3869}#
- #{r\ 3845}#
- #{w\ 3846}#
- #{mod\ 3848}#))
- #{val\ 3863}#)
- (#{chi-body\ 460}#
- (cons #{b\ 3864}# #{b*\ 3865}#)
- (#{source-wrap\ 438}#
- #{e\ 3844}#
- #{w\ 3846}#
- #{s\ 3847}#
- #{mod\ 3848}#)
- #{r\ 3845}#
- #{w\ 3846}#
- #{mod\ 3848}#)))
- #{tmp\ 3855}#)
+ (lambda (#{e\ 16128}#
+ #{r\ 16129}#
+ #{w\ 16130}#
+ #{s\ 16131}#
+ #{mod\ 16132}#)
+ ((lambda (#{tmp\ 16138}#)
+ ((lambda (#{tmp\ 16139}#)
+ (if #{tmp\ 16139}#
+ (apply (lambda (#{_\ 16145}#
+ #{fluid\ 16146}#
+ #{val\ 16147}#
+ #{b\ 16148}#
+ #{b*\ 16149}#)
+ (#{build-dynlet\ 12842}#
+ #{s\ 16131}#
+ (map (lambda (#{x\ 16150}#)
+ (#{chi\ 13001}#
+ #{x\ 16150}#
+ #{r\ 16129}#
+ #{w\ 16130}#
+ #{mod\ 16132}#))
+ #{fluid\ 16146}#)
+ (map (lambda (#{x\ 16153}#)
+ (#{chi\ 13001}#
+ #{x\ 16153}#
+ #{r\ 16129}#
+ #{w\ 16130}#
+ #{mod\ 16132}#))
+ #{val\ 16147}#)
+ (#{chi-body\ 13009}#
+ (cons #{b\ 16148}# #{b*\ 16149}#)
+ (#{source-wrap\ 12987}#
+ #{e\ 16128}#
+ #{w\ 16130}#
+ #{s\ 16131}#
+ #{mod\ 16132}#)
+ #{r\ 16129}#
+ #{w\ 16130}#
+ #{mod\ 16132}#)))
+ #{tmp\ 16139}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3854}#)))
+ #{tmp\ 16138}#)))
($sc-dispatch
- #{tmp\ 3854}#
+ #{tmp\ 16138}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3844}#)))
- (#{global-extend\ 363}#
+ #{e\ 16128}#)))
+ (#{global-extend\ 12912}#
'begin
'begin
'())
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'define
'define
'())
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'eval-when
'eval-when
'())
- (#{global-extend\ 363}#
+ (#{global-extend\ 12912}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3880}#
- (lambda (#{x\ 3881}#
- #{keys\ 3882}#
- #{clauses\ 3883}#
- #{r\ 3884}#
- #{mod\ 3885}#)
- (if (null? #{clauses\ 3883}#)
- (#{build-application\ 289}#
+ (letrec ((#{gen-syntax-case\ 16164}#
+ (lambda (#{x\ 16165}#
+ #{keys\ 16166}#
+ #{clauses\ 16167}#
+ #{r\ 16168}#
+ #{mod\ 16169}#)
+ (if (null? #{clauses\ 16167}#)
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'syntax-violation)
- (list (#{build-data\ 317}# #f #f)
- (#{build-data\ 317}#
+ (list (#{build-data\ 12866}# #f #f)
+ (#{build-data\ 12866}#
#f
"source expression failed to match any pattern")
- #{x\ 3881}#))
- ((lambda (#{tmp\ 3895}#)
- ((lambda (#{tmp\ 3896}#)
- (if #{tmp\ 3896}#
- (apply (lambda (#{pat\ 3899}# #{exp\ 3900}#)
- (if (if (#{id?\ 367}# #{pat\ 3899}#)
+ #{x\ 16165}#))
+ ((lambda (#{tmp\ 16179}#)
+ ((lambda (#{tmp\ 16180}#)
+ (if #{tmp\ 16180}#
+ (apply (lambda (#{pat\ 16183}# #{exp\ 16184}#)
+ (if (if (#{id?\ 12916}# #{pat\ 16183}#)
(and-map
- (lambda (#{x\ 3903}#)
- (not (#{free-id=?\ 426}#
- #{pat\ 3899}#
- #{x\ 3903}#)))
+ (lambda (#{x\ 16187}#)
+ (not (#{free-id=?\ 12975}#
+ #{pat\ 16183}#
+ #{x\ 16187}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3897" "i3898"))
+ #("i16181"
+ "i16182"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i3886"
- "i3887"
- "i3888"
- "i3889"
- "i3890"))
+ #("i16170"
+ "i16171"
+ "i16172"
+ "i16173"
+ "i16174"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3879"
- "i3877"
- "i3875"
- "i3873"))
+ ("i16163"
+ "i16161"
+ "i16159"
+ "i16157"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i410"
- "i409"
- "i407"
- "i406"
- "i405"
- "i404"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i387"
- "i384"
- "i382"
- "i381"
- "i380"
- "i379"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i353"
- "i351"
- "i349"
- "i348"
- "i347"
- "i345"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i228"))
+ ("i13030"
+ "i13028"
+ "i13026"
+ "i13024"
+ "i13022"
+ "i13020"
+ "i13018"
+ "i13016"
+ "i13014"
+ "i13012"
+ "i13010"
+ "i13008"
+ "i13006"
+ "i13004"
+ "i13002"
+ "i13000"
+ "i12998"
+ "i12996"
+ "i12994"
+ "i12992"
+ "i12990"
+ "i12988"
+ "i12986"
+ "i12984"
+ "i12982"
+ "i12980"
+ "i12978"
+ "i12976"
+ "i12974"
+ "i12972"
+ "i12970"
+ "i12968"
+ "i12966"
+ "i12964"
+ "i12962"
+ "i12960"
+ "i12959"
+ "i12958"
+ "i12956"
+ "i12955"
+ "i12954"
+ "i12953"
+ "i12952"
+ "i12950"
+ "i12948"
+ "i12946"
+ "i12944"
+ "i12942"
+ "i12940"
+ "i12938"
+ "i12936"
+ "i12933"
+ "i12931"
+ "i12930"
+ "i12929"
+ "i12928"
+ "i12927"
+ "i12926"
+ "i12924"
+ "i12922"
+ "i12920"
+ "i12918"
+ "i12917"
+ "i12915"
+ "i12913"
+ "i12911"
+ "i12909"
+ "i12907"
+ "i12905"
+ "i12903"
+ "i12902"
+ "i12900"
+ "i12898"
+ "i12897"
+ "i12896"
+ "i12894"
+ "i12893"
+ "i12891"
+ "i12889"
+ "i12887"
+ "i12885"
+ "i12883"
+ "i12881"
+ "i12879"
+ "i12877"
+ "i12875"
+ "i12873"
+ "i12871"
+ "i12869"
+ "i12867"
+ "i12865"
+ "i12863"
+ "i12861"
+ "i12859"
+ "i12857"
+ "i12855"
+ "i12853"
+ "i12851"
+ "i12849"
+ "i12847"
+ "i12845"
+ "i12843"
+ "i12841"
+ "i12839"
+ "i12837"
+ "i12835"
+ "i12833"
+ "i12831"
+ "i12829"
+ "i12828"
+ "i12826"
+ "i12824"
+ "i12822"
+ "i12820"
+ "i12818"
+ "i12816"
+ "i12814"
+ "i12812"
+ "i12810"
+ "i12808"
+ "i12806"
+ "i12804"
+ "i12802"
+ "i12800"
+ "i12798"
+ "i12796"
+ "i12794"
+ "i12792"
+ "i12790"
+ "i12788"
+ "i12786"
+ "i12784"
+ "i12782"
+ "i12780"
+ "i12777"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i28"
- "i27"
- "i25")))
+ ("i12629"
+ "i12628"
+ "i12626")))
(hygiene guile))
- #{keys\ 3882}#))
+ #{keys\ 16166}#))
#f)
- (let ((#{labels\ 3907}#
- (list (#{gen-label\ 383}#)))
- (#{var\ 3908}#
- (#{gen-var\ 480}#
- #{pat\ 3899}#)))
- (#{build-application\ 289}#
+ (let ((#{labels\ 16191}#
+ (list (#{gen-label\ 12932}#)))
+ (#{var\ 16192}#
+ (#{gen-var\ 13029}#
+ #{pat\ 16183}#)))
+ (#{build-application\ 12838}#
#f
- (#{build-simple-lambda\ 309}#
+ (#{build-simple-lambda\ 12858}#
#f
(list (syntax->datum
- #{pat\ 3899}#))
+ #{pat\ 16183}#))
#f
- (list #{var\ 3908}#)
+ (list #{var\ 16192}#)
'()
- (#{chi\ 452}#
- #{exp\ 3900}#
- (#{extend-env\ 355}#
- #{labels\ 3907}#
+ (#{chi\ 13001}#
+ #{exp\ 16184}#
+ (#{extend-env\ 12904}#
+ #{labels\ 16191}#
(list (cons 'syntax
- (cons #{var\ 3908}#
+ (cons #{var\ 16192}#
0)))
- #{r\ 3884}#)
- (#{make-binding-wrap\ 414}#
- (list #{pat\ 3899}#)
- #{labels\ 3907}#
+ #{r\ 16168}#)
+ (#{make-binding-wrap\ 12963}#
+ (list #{pat\ 16183}#)
+ #{labels\ 16191}#
'(()))
- #{mod\ 3885}#))
- (list #{x\ 3881}#)))
- (#{gen-clause\ 3878}#
- #{x\ 3881}#
- #{keys\ 3882}#
- (cdr #{clauses\ 3883}#)
- #{r\ 3884}#
- #{pat\ 3899}#
+ #{mod\ 16169}#))
+ (list #{x\ 16165}#)))
+ (#{gen-clause\ 16162}#
+ #{x\ 16165}#
+ #{keys\ 16166}#
+ (cdr #{clauses\ 16167}#)
+ #{r\ 16168}#
+ #{pat\ 16183}#
#t
- #{exp\ 3900}#
- #{mod\ 3885}#)))
- #{tmp\ 3896}#)
- ((lambda (#{tmp\ 3914}#)
- (if #{tmp\ 3914}#
- (apply (lambda (#{pat\ 3918}#
- #{fender\ 3919}#
- #{exp\ 3920}#)
- (#{gen-clause\ 3878}#
- #{x\ 3881}#
- #{keys\ 3882}#
- (cdr #{clauses\ 3883}#)
- #{r\ 3884}#
- #{pat\ 3918}#
- #{fender\ 3919}#
- #{exp\ 3920}#
- #{mod\ 3885}#))
- #{tmp\ 3914}#)
- ((lambda (#{_\ 3922}#)
+ #{exp\ 16184}#
+ #{mod\ 16169}#)))
+ #{tmp\ 16180}#)
+ ((lambda (#{tmp\ 16198}#)
+ (if #{tmp\ 16198}#
+ (apply (lambda (#{pat\ 16202}#
+ #{fender\ 16203}#
+ #{exp\ 16204}#)
+ (#{gen-clause\ 16162}#
+ #{x\ 16165}#
+ #{keys\ 16166}#
+ (cdr #{clauses\ 16167}#)
+ #{r\ 16168}#
+ #{pat\ 16202}#
+ #{fender\ 16203}#
+ #{exp\ 16204}#
+ #{mod\ 16169}#))
+ #{tmp\ 16198}#)
+ ((lambda (#{_\ 16206}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3883}#)))
- #{tmp\ 3895}#)))
+ (car #{clauses\ 16167}#)))
+ #{tmp\ 16179}#)))
($sc-dispatch
- #{tmp\ 3895}#
+ #{tmp\ 16179}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3895}# (quote (any any)))))
- (car #{clauses\ 3883}#)))))
- (#{gen-clause\ 3878}#
- (lambda (#{x\ 3923}#
- #{keys\ 3924}#
- #{clauses\ 3925}#
- #{r\ 3926}#
- #{pat\ 3927}#
- #{fender\ 3928}#
- #{exp\ 3929}#
- #{mod\ 3930}#)
+ ($sc-dispatch #{tmp\ 16179}# (quote (any any)))))
+ (car #{clauses\ 16167}#)))))
+ (#{gen-clause\ 16162}#
+ (lambda (#{x\ 16207}#
+ #{keys\ 16208}#
+ #{clauses\ 16209}#
+ #{r\ 16210}#
+ #{pat\ 16211}#
+ #{fender\ 16212}#
+ #{exp\ 16213}#
+ #{mod\ 16214}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3874}#
- #{pat\ 3927}#
- #{keys\ 3924}#))
- (lambda (#{p\ 3939}# #{pvars\ 3940}#)
- (if (not (#{distinct-bound-ids?\ 432}#
- (map car #{pvars\ 3940}#)))
+ (#{convert-pattern\ 16158}#
+ #{pat\ 16211}#
+ #{keys\ 16208}#))
+ (lambda (#{p\ 16223}# #{pvars\ 16224}#)
+ (if (not (#{distinct-bound-ids?\ 12981}#
+ (map car #{pvars\ 16224}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3927}#)
+ #{pat\ 16211}#)
(if (not (and-map
- (lambda (#{x\ 3947}#)
- (not (#{ellipsis?\ 468}#
- (car #{x\ 3947}#))))
- #{pvars\ 3940}#))
+ (lambda (#{x\ 16231}#)
+ (not (#{ellipsis?\ 13017}#
+ (car #{x\ 16231}#))))
+ #{pvars\ 16224}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3927}#)
- (let ((#{y\ 3951}#
- (#{gen-var\ 480}# (quote tmp))))
- (#{build-application\ 289}#
+ #{pat\ 16211}#)
+ (let ((#{y\ 16235}#
+ (#{gen-var\ 13029}# (quote tmp))))
+ (#{build-application\ 12838}#
#f
- (#{build-simple-lambda\ 309}#
+ (#{build-simple-lambda\ 12858}#
#f
(list (quote tmp))
#f
- (list #{y\ 3951}#)
+ (list #{y\ 16235}#)
'()
- (let ((#{y\ 3955}#
- (#{build-lexical-reference\ 295}#
+ (let ((#{y\ 16239}#
+ (#{build-lexical-reference\ 12844}#
'value
#f
'tmp
- #{y\ 3951}#)))
- (#{build-conditional\ 291}#
+ #{y\ 16235}#)))
+ (#{build-conditional\ 12840}#
#f
- ((lambda (#{tmp\ 3958}#)
- ((lambda (#{tmp\ 3959}#)
- (if #{tmp\ 3959}#
- (apply (lambda () #{y\ 3955}#)
- #{tmp\ 3959}#)
- ((lambda (#{_\ 3961}#)
- (#{build-conditional\ 291}#
+ ((lambda (#{tmp\ 16242}#)
+ ((lambda (#{tmp\ 16243}#)
+ (if #{tmp\ 16243}#
+ (apply (lambda () #{y\ 16239}#)
+ #{tmp\ 16243}#)
+ ((lambda (#{_\ 16245}#)
+ (#{build-conditional\ 12840}#
#f
- #{y\ 3955}#
- (#{build-dispatch-call\ 3876}#
- #{pvars\ 3940}#
- #{fender\ 3928}#
- #{y\ 3955}#
- #{r\ 3926}#
- #{mod\ 3930}#)
- (#{build-data\ 317}#
+ #{y\ 16239}#
+ (#{build-dispatch-call\ 16160}#
+ #{pvars\ 16224}#
+ #{fender\ 16212}#
+ #{y\ 16239}#
+ #{r\ 16210}#
+ #{mod\ 16214}#)
+ (#{build-data\ 12866}#
#f
#f)))
- #{tmp\ 3958}#)))
+ #{tmp\ 16242}#)))
($sc-dispatch
- #{tmp\ 3958}#
+ #{tmp\ 16242}#
'#(atom #t))))
- #{fender\ 3928}#)
- (#{build-dispatch-call\ 3876}#
- #{pvars\ 3940}#
- #{exp\ 3929}#
- #{y\ 3955}#
- #{r\ 3926}#
- #{mod\ 3930}#)
- (#{gen-syntax-case\ 3880}#
- #{x\ 3923}#
- #{keys\ 3924}#
- #{clauses\ 3925}#
- #{r\ 3926}#
- #{mod\ 3930}#))))
- (list (if (eq? #{p\ 3939}# (quote any))
- (#{build-application\ 289}#
+ #{fender\ 16212}#)
+ (#{build-dispatch-call\ 16160}#
+ #{pvars\ 16224}#
+ #{exp\ 16213}#
+ #{y\ 16239}#
+ #{r\ 16210}#
+ #{mod\ 16214}#)
+ (#{gen-syntax-case\ 16164}#
+ #{x\ 16207}#
+ #{keys\ 16208}#
+ #{clauses\ 16209}#
+ #{r\ 16210}#
+ #{mod\ 16214}#))))
+ (list (if (eq? #{p\ 16223}# (quote any))
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'list)
- (list #{x\ 3923}#))
- (#{build-application\ 289}#
+ (list #{x\ 16207}#))
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}#
+ (#{build-primref\ 12864}#
#f
'$sc-dispatch)
- (list #{x\ 3923}#
- (#{build-data\ 317}#
+ (list #{x\ 16207}#
+ (#{build-data\ 12866}#
#f
- #{p\ 3939}#)))))))))))))
- (#{build-dispatch-call\ 3876}#
- (lambda (#{pvars\ 3969}#
- #{exp\ 3970}#
- #{y\ 3971}#
- #{r\ 3972}#
- #{mod\ 3973}#)
- (let ((#{ids\ 3981}# (map car #{pvars\ 3969}#))
- (#{levels\ 3982}# (map cdr #{pvars\ 3969}#)))
- (let ((#{labels\ 3985}#
- (#{gen-labels\ 385}# #{ids\ 3981}#))
- (#{new-vars\ 3986}#
- (map #{gen-var\ 480}# #{ids\ 3981}#)))
- (#{build-application\ 289}#
+ #{p\ 16223}#)))))))))))))
+ (#{build-dispatch-call\ 16160}#
+ (lambda (#{pvars\ 16253}#
+ #{exp\ 16254}#
+ #{y\ 16255}#
+ #{r\ 16256}#
+ #{mod\ 16257}#)
+ (let ((#{ids\ 16265}# (map car #{pvars\ 16253}#))
+ (#{levels\ 16266}# (map cdr #{pvars\ 16253}#)))
+ (let ((#{labels\ 16269}#
+ (#{gen-labels\ 12934}# #{ids\ 16265}#))
+ (#{new-vars\ 16270}#
+ (map #{gen-var\ 13029}# #{ids\ 16265}#)))
+ (#{build-application\ 12838}#
#f
- (#{build-primref\ 315}# #f (quote apply))
- (list (#{build-simple-lambda\ 309}#
+ (#{build-primref\ 12864}# #f (quote apply))
+ (list (#{build-simple-lambda\ 12858}#
#f
- (map syntax->datum #{ids\ 3981}#)
+ (map syntax->datum #{ids\ 16265}#)
#f
- #{new-vars\ 3986}#
+ #{new-vars\ 16270}#
'()
- (#{chi\ 452}#
- #{exp\ 3970}#
- (#{extend-env\ 355}#
- #{labels\ 3985}#
- (map (lambda (#{var\ 3990}#
- #{level\ 3991}#)
+ (#{chi\ 13001}#
+ #{exp\ 16254}#
+ (#{extend-env\ 12904}#
+ #{labels\ 16269}#
+ (map (lambda (#{var\ 16274}#
+ #{level\ 16275}#)
(cons 'syntax
- (cons #{var\ 3990}#
- #{level\ 3991}#)))
- #{new-vars\ 3986}#
- (map cdr #{pvars\ 3969}#))
- #{r\ 3972}#)
- (#{make-binding-wrap\ 414}#
- #{ids\ 3981}#
- #{labels\ 3985}#
+ (cons #{var\ 16274}#
+ #{level\ 16275}#)))
+ #{new-vars\ 16270}#
+ (map cdr #{pvars\ 16253}#))
+ #{r\ 16256}#)
+ (#{make-binding-wrap\ 12963}#
+ #{ids\ 16265}#
+ #{labels\ 16269}#
'(()))
- #{mod\ 3973}#))
- #{y\ 3971}#))))))
- (#{convert-pattern\ 3874}#
- (lambda (#{pattern\ 3997}# #{keys\ 3998}#)
- (letrec ((#{cvt\ 4004}#
- (lambda (#{p\ 4005}# #{n\ 4006}# #{ids\ 4007}#)
- (if (#{id?\ 367}# #{p\ 4005}#)
- (if (#{bound-id-member?\ 434}#
- #{p\ 4005}#
- #{keys\ 3998}#)
+ #{mod\ 16257}#))
+ #{y\ 16255}#))))))
+ (#{convert-pattern\ 16158}#
+ (lambda (#{pattern\ 16281}# #{keys\ 16282}#)
+ (letrec ((#{cvt\ 16288}#
+ (lambda (#{p\ 16289}#
+ #{n\ 16290}#
+ #{ids\ 16291}#)
+ (if (#{id?\ 12916}# #{p\ 16289}#)
+ (if (#{bound-id-member?\ 12983}#
+ #{p\ 16289}#
+ #{keys\ 16282}#)
(values
- (vector (quote free-id) #{p\ 4005}#)
- #{ids\ 4007}#)
+ (vector (quote free-id) #{p\ 16289}#)
+ #{ids\ 16291}#)
(values
'any
- (cons (cons #{p\ 4005}# #{n\ 4006}#)
- #{ids\ 4007}#)))
- ((lambda (#{tmp\ 4011}#)
- ((lambda (#{tmp\ 4012}#)
- (if (if #{tmp\ 4012}#
- (apply (lambda (#{x\ 4015}#
- #{dots\ 4016}#)
- (#{ellipsis?\ 468}#
- #{dots\ 4016}#))
- #{tmp\ 4012}#)
+ (cons (cons #{p\ 16289}# #{n\ 16290}#)
+ #{ids\ 16291}#)))
+ ((lambda (#{tmp\ 16295}#)
+ ((lambda (#{tmp\ 16296}#)
+ (if (if #{tmp\ 16296}#
+ (apply (lambda (#{x\ 16299}#
+ #{dots\ 16300}#)
+ (#{ellipsis?\ 13017}#
+ #{dots\ 16300}#))
+ #{tmp\ 16296}#)
#f)
- (apply (lambda (#{x\ 4019}#
- #{dots\ 4020}#)
+ (apply (lambda (#{x\ 16303}#
+ #{dots\ 16304}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- #{x\ 4019}#
- (#{fx+\ 268}#
- #{n\ 4006}#
+ (#{cvt\ 16288}#
+ #{x\ 16303}#
+ (#{fx+\ 12817}#
+ #{n\ 16290}#
1)
- #{ids\ 4007}#))
- (lambda (#{p\ 4021}#
- #{ids\ 4022}#)
+ #{ids\ 16291}#))
+ (lambda (#{p\ 16305}#
+ #{ids\ 16306}#)
(values
- (if (eq? #{p\ 4021}#
+ (if (eq? #{p\ 16305}#
'any)
'each-any
(vector
'each
- #{p\ 4021}#))
- #{ids\ 4022}#))))
- #{tmp\ 4012}#)
- ((lambda (#{tmp\ 4025}#)
- (if (if #{tmp\ 4025}#
- (apply (lambda (#{x\ 4029}#
- #{dots\ 4030}#
- #{ys\ 4031}#)
- (#{ellipsis?\ 468}#
- #{dots\ 4030}#))
- #{tmp\ 4025}#)
+ #{p\ 16305}#))
+ #{ids\ 16306}#))))
+ #{tmp\ 16296}#)
+ ((lambda (#{tmp\ 16309}#)
+ (if (if #{tmp\ 16309}#
+ (apply (lambda (#{x\ 16313}#
+ #{dots\ 16314}#
+ #{ys\ 16315}#)
+ (#{ellipsis?\ 13017}#
+ #{dots\ 16314}#))
+ #{tmp\ 16309}#)
#f)
- (apply (lambda (#{x\ 4035}#
- #{dots\ 4036}#
- #{ys\ 4037}#)
+ (apply (lambda (#{x\ 16319}#
+ #{dots\ 16320}#
+ #{ys\ 16321}#)
(call-with-values
(lambda ()
- (#{cvt*\ 4002}#
- #{ys\ 4037}#
- #{n\ 4006}#
- #{ids\ 4007}#))
- (lambda (#{ys\ 4039}#
- #{ids\ 4040}#)
+ (#{cvt*\ 16286}#
+ #{ys\ 16321}#
+ #{n\ 16290}#
+ #{ids\ 16291}#))
+ (lambda (#{ys\ 16323}#
+ #{ids\ 16324}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- #{x\ 4035}#
- (+ #{n\ 4006}#
+ (#{cvt\ 16288}#
+ #{x\ 16319}#
+ (+ #{n\ 16290}#
1)
- #{ids\ 4040}#))
- (lambda (#{x\ 4043}#
- #{ids\ 4044}#)
+ #{ids\ 16324}#))
+ (lambda (#{x\ 16327}#
+ #{ids\ 16328}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 4043}#
+ (cons #{x\ 16327}#
(cons (reverse
- #{ys\ 4039}#)
+ #{ys\ 16323}#)
'(())))))
- #{ids\ 4044}#))))))
- #{tmp\ 4025}#)
- ((lambda (#{tmp\ 4048}#)
- (if #{tmp\ 4048}#
- (apply (lambda (#{x\ 4051}#
- #{y\ 4052}#)
+ #{ids\ 16328}#))))))
+ #{tmp\ 16309}#)
+ ((lambda (#{tmp\ 16332}#)
+ (if #{tmp\ 16332}#
+ (apply (lambda (#{x\ 16335}#
+ #{y\ 16336}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- #{y\ 4052}#
- #{n\ 4006}#
- #{ids\ 4007}#))
- (lambda (#{y\ 4053}#
- #{ids\ 4054}#)
+ (#{cvt\ 16288}#
+ #{y\ 16336}#
+ #{n\ 16290}#
+ #{ids\ 16291}#))
+ (lambda (#{y\ 16337}#
+ #{ids\ 16338}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- #{x\ 4051}#
- #{n\ 4006}#
- #{ids\ 4054}#))
- (lambda (#{x\ 4057}#
- #{ids\ 4058}#)
+ (#{cvt\ 16288}#
+ #{x\ 16335}#
+ #{n\ 16290}#
+ #{ids\ 16338}#))
+ (lambda (#{x\ 16341}#
+ #{ids\ 16342}#)
(values
- (cons #{x\ 4057}#
- #{y\ 4053}#)
- #{ids\ 4058}#))))))
- #{tmp\ 4048}#)
- ((lambda (#{tmp\ 4061}#)
- (if #{tmp\ 4061}#
+ (cons #{x\ 16341}#
+ #{y\ 16337}#)
+ #{ids\ 16342}#))))))
+ #{tmp\ 16332}#)
+ ((lambda (#{tmp\ 16345}#)
+ (if #{tmp\ 16345}#
(apply (lambda ()
(values
'()
- #{ids\ 4007}#))
- #{tmp\ 4061}#)
- ((lambda (#{tmp\ 4062}#)
- (if #{tmp\ 4062}#
- (apply (lambda (#{x\ 4064}#)
+ #{ids\ 16291}#))
+ #{tmp\ 16345}#)
+ ((lambda (#{tmp\ 16346}#)
+ (if #{tmp\ 16346}#
+ (apply (lambda (#{x\ 16348}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- #{x\ 4064}#
- #{n\ 4006}#
- #{ids\ 4007}#))
- (lambda (#{p\ 4066}#
- #{ids\ 4067}#)
+ (#{cvt\ 16288}#
+ #{x\ 16348}#
+ #{n\ 16290}#
+ #{ids\ 16291}#))
+ (lambda (#{p\ 16350}#
+ #{ids\ 16351}#)
(values
(vector
'vector
- #{p\ 4066}#)
- #{ids\ 4067}#))))
- #{tmp\ 4062}#)
- ((lambda (#{x\ 4071}#)
+ #{p\ 16350}#)
+ #{ids\ 16351}#))))
+ #{tmp\ 16346}#)
+ ((lambda (#{x\ 16355}#)
(values
(vector
'atom
- (#{strip\ 478}#
- #{p\ 4005}#
+ (#{strip\ 13027}#
+ #{p\ 16289}#
'(())))
- #{ids\ 4007}#))
- #{tmp\ 4011}#)))
+ #{ids\ 16291}#))
+ #{tmp\ 16295}#)))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 16295}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 16295}#
'()))))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 16295}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 16295}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 16295}#
'(any any))))
- #{p\ 4005}#))))
- (#{cvt*\ 4002}#
- (lambda (#{p*\ 4073}#
- #{n\ 4074}#
- #{ids\ 4075}#)
- (if (null? #{p*\ 4073}#)
- (values (quote ()) #{ids\ 4075}#)
+ #{p\ 16289}#))))
+ (#{cvt*\ 16286}#
+ (lambda (#{p*\ 16357}#
+ #{n\ 16358}#
+ #{ids\ 16359}#)
+ (if (null? #{p*\ 16357}#)
+ (values (quote ()) #{ids\ 16359}#)
(call-with-values
(lambda ()
- (#{cvt*\ 4002}#
- (cdr #{p*\ 4073}#)
- #{n\ 4074}#
- #{ids\ 4075}#))
- (lambda (#{y\ 4079}# #{ids\ 4080}#)
+ (#{cvt*\ 16286}#
+ (cdr #{p*\ 16357}#)
+ #{n\ 16358}#
+ #{ids\ 16359}#))
+ (lambda (#{y\ 16363}# #{ids\ 16364}#)
(call-with-values
(lambda ()
- (#{cvt\ 4004}#
- (car #{p*\ 4073}#)
- #{n\ 4074}#
- #{ids\ 4080}#))
- (lambda (#{x\ 4083}# #{ids\ 4084}#)
+ (#{cvt\ 16288}#
+ (car #{p*\ 16357}#)
+ #{n\ 16358}#
+ #{ids\ 16364}#))
+ (lambda (#{x\ 16367}# #{ids\ 16368}#)
(values
- (cons #{x\ 4083}# #{y\ 4079}#)
- #{ids\ 4084}#)))))))))
- (#{cvt\ 4004}# #{pattern\ 3997}# 0 (quote ()))))))
- (lambda (#{e\ 4087}#
- #{r\ 4088}#
- #{w\ 4089}#
- #{s\ 4090}#
- #{mod\ 4091}#)
- (let ((#{e\ 4098}#
- (#{source-wrap\ 438}#
- #{e\ 4087}#
- #{w\ 4089}#
- #{s\ 4090}#
- #{mod\ 4091}#)))
- ((lambda (#{tmp\ 4099}#)
- ((lambda (#{tmp\ 4100}#)
- (if #{tmp\ 4100}#
- (apply (lambda (#{_\ 4105}#
- #{val\ 4106}#
- #{key\ 4107}#
- #{m\ 4108}#)
+ (cons #{x\ 16367}# #{y\ 16363}#)
+ #{ids\ 16368}#)))))))))
+ (#{cvt\ 16288}# #{pattern\ 16281}# 0 (quote ()))))))
+ (lambda (#{e\ 16371}#
+ #{r\ 16372}#
+ #{w\ 16373}#
+ #{s\ 16374}#
+ #{mod\ 16375}#)
+ (let ((#{e\ 16382}#
+ (#{source-wrap\ 12987}#
+ #{e\ 16371}#
+ #{w\ 16373}#
+ #{s\ 16374}#
+ #{mod\ 16375}#)))
+ ((lambda (#{tmp\ 16383}#)
+ ((lambda (#{tmp\ 16384}#)
+ (if #{tmp\ 16384}#
+ (apply (lambda (#{_\ 16389}#
+ #{val\ 16390}#
+ #{key\ 16391}#
+ #{m\ 16392}#)
(if (and-map
- (lambda (#{x\ 4109}#)
- (if (#{id?\ 367}# #{x\ 4109}#)
- (not (#{ellipsis?\ 468}# #{x\ 4109}#))
+ (lambda (#{x\ 16393}#)
+ (if (#{id?\ 12916}# #{x\ 16393}#)
+ (not (#{ellipsis?\ 13017}#
+ #{x\ 16393}#))
#f))
- #{key\ 4107}#)
- (let ((#{x\ 4115}#
- (#{gen-var\ 480}# (quote tmp))))
- (#{build-application\ 289}#
- #{s\ 4090}#
- (#{build-simple-lambda\ 309}#
+ #{key\ 16391}#)
+ (let ((#{x\ 16399}#
+ (#{gen-var\ 13029}# (quote tmp))))
+ (#{build-application\ 12838}#
+ #{s\ 16374}#
+ (#{build-simple-lambda\ 12858}#
#f
(list (quote tmp))
#f
- (list #{x\ 4115}#)
+ (list #{x\ 16399}#)
'()
- (#{gen-syntax-case\ 3880}#
- (#{build-lexical-reference\ 295}#
+ (#{gen-syntax-case\ 16164}#
+ (#{build-lexical-reference\ 12844}#
'value
#f
'tmp
- #{x\ 4115}#)
- #{key\ 4107}#
- #{m\ 4108}#
- #{r\ 4088}#
- #{mod\ 4091}#))
- (list (#{chi\ 452}#
- #{val\ 4106}#
- #{r\ 4088}#
+ #{x\ 16399}#)
+ #{key\ 16391}#
+ #{m\ 16392}#
+ #{r\ 16372}#
+ #{mod\ 16375}#))
+ (list (#{chi\ 13001}#
+ #{val\ 16390}#
+ #{r\ 16372}#
'(())
- #{mod\ 4091}#))))
+ #{mod\ 16375}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 4098}#)))
- #{tmp\ 4100}#)
+ #{e\ 16382}#)))
+ #{tmp\ 16384}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4099}#)))
+ #{tmp\ 16383}#)))
($sc-dispatch
- #{tmp\ 4099}#
+ #{tmp\ 16383}#
'(any any each-any . each-any))))
- #{e\ 4098}#)))))
+ #{e\ 16382}#)))))
(set! macroexpand
- (lambda (#{x\ 4121}# . #{rest\ 4122}#)
- (let ((#{m\ 4128}#
- (if (null? #{rest\ 4122}#)
+ (lambda (#{x\ 16405}# . #{rest\ 16406}#)
+ (let ((#{m\ 16412}#
+ (if (null? #{rest\ 16406}#)
'e
- (car #{rest\ 4122}#)))
- (#{esew\ 4129}#
- (if (let ((#{t\ 4133}# (null? #{rest\ 4122}#)))
- (if #{t\ 4133}#
- #{t\ 4133}#
- (null? (cdr #{rest\ 4122}#))))
+ (car #{rest\ 16406}#)))
+ (#{esew\ 16413}#
+ (if (let ((#{t\ 16417}# (null? #{rest\ 16406}#)))
+ (if #{t\ 16417}#
+ #{t\ 16417}#
+ (null? (cdr #{rest\ 16406}#))))
'(eval)
- (cadr #{rest\ 4122}#)))
- (#{mod\ 4130}#
+ (cadr #{rest\ 16406}#)))
+ (#{mod\ 16414}#
(cons 'hygiene
(module-name (current-module)))))
(with-fluids
- ((#{*mode*\ 229}# #{m\ 4128}#))
- (if (eq? #{m\ 4128}# (quote e))
+ ((#{*mode*\ 12778}# #{m\ 16412}#))
+ (if (eq? #{m\ 16412}# (quote e))
(memoize-expression
- (#{chi-top\ 450}#
- #{x\ 4121}#
+ (#{chi-top\ 12999}#
+ #{x\ 16405}#
'()
'((top))
- #{m\ 4128}#
- #{esew\ 4129}#
- #{mod\ 4130}#))
- (#{chi-top\ 450}#
- #{x\ 4121}#
+ #{m\ 16412}#
+ #{esew\ 16413}#
+ #{mod\ 16414}#))
+ (#{chi-top\ 12999}#
+ #{x\ 16405}#
'()
'((top))
- #{m\ 4128}#
- #{esew\ 4129}#
- #{mod\ 4130}#))))))
+ #{m\ 16412}#
+ #{esew\ 16413}#
+ #{mod\ 16414}#))))))
(set! identifier?
- (lambda (#{x\ 4139}#)
- (#{nonsymbol-id?\ 365}# #{x\ 4139}#)))
+ (lambda (#{x\ 16423}#)
+ (#{nonsymbol-id?\ 12914}# #{x\ 16423}#)))
(set! datum->syntax
- (lambda (#{id\ 4141}# #{datum\ 4142}#)
- (#{make-syntax-object\ 329}#
- #{datum\ 4142}#
- (#{syntax-object-wrap\ 335}# #{id\ 4141}#)
+ (lambda (#{id\ 16425}# #{datum\ 16426}#)
+ (#{make-syntax-object\ 12878}#
+ #{datum\ 16426}#
+ (#{syntax-object-wrap\ 12884}# #{id\ 16425}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 4145}#)
- (#{strip\ 478}# #{x\ 4145}# (quote (())))))
+ (lambda (#{x\ 16429}#)
+ (#{strip\ 13027}# #{x\ 16429}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 4148}#)
+ (lambda (#{ls\ 16432}#)
(begin
- (let ((#{x\ 4152}# #{ls\ 4148}#))
- (if (not (list? #{x\ 4152}#))
+ (let ((#{x\ 16436}# #{ls\ 16432}#))
+ (if (not (list? #{x\ 16436}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 4152}#)))
- (map (lambda (#{x\ 4153}#)
- (#{wrap\ 436}# (gensym) (quote ((top))) #f))
- #{ls\ 4148}#))))
+ #{x\ 16436}#)))
+ (map (lambda (#{x\ 16437}#)
+ (#{wrap\ 12985}# (gensym) (quote ((top))) #f))
+ #{ls\ 16432}#))))
(set! free-identifier=?
- (lambda (#{x\ 4157}# #{y\ 4158}#)
+ (lambda (#{x\ 16441}# #{y\ 16442}#)
(begin
- (let ((#{x\ 4163}# #{x\ 4157}#))
- (if (not (#{nonsymbol-id?\ 365}# #{x\ 4163}#))
+ (let ((#{x\ 16447}# #{x\ 16441}#))
+ (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16447}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 4163}#)))
- (let ((#{x\ 4166}# #{y\ 4158}#))
- (if (not (#{nonsymbol-id?\ 365}# #{x\ 4166}#))
+ #{x\ 16447}#)))
+ (let ((#{x\ 16450}# #{y\ 16442}#))
+ (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16450}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 4166}#)))
- (#{free-id=?\ 426}# #{x\ 4157}# #{y\ 4158}#))))
+ #{x\ 16450}#)))
+ (#{free-id=?\ 12975}# #{x\ 16441}# #{y\ 16442}#))))
(set! bound-identifier=?
- (lambda (#{x\ 4167}# #{y\ 4168}#)
+ (lambda (#{x\ 16451}# #{y\ 16452}#)
(begin
- (let ((#{x\ 4173}# #{x\ 4167}#))
- (if (not (#{nonsymbol-id?\ 365}# #{x\ 4173}#))
+ (let ((#{x\ 16457}# #{x\ 16451}#))
+ (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16457}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 4173}#)))
- (let ((#{x\ 4176}# #{y\ 4168}#))
- (if (not (#{nonsymbol-id?\ 365}# #{x\ 4176}#))
+ #{x\ 16457}#)))
+ (let ((#{x\ 16460}# #{y\ 16452}#))
+ (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16460}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 4176}#)))
- (#{bound-id=?\ 428}# #{x\ 4167}# #{y\ 4168}#))))
+ #{x\ 16460}#)))
+ (#{bound-id=?\ 12977}# #{x\ 16451}# #{y\ 16452}#))))
(set! syntax-violation
- (lambda (#{who\ 4177}#
- #{message\ 4178}#
- #{form\ 4179}#
+ (lambda (#{who\ 16461}#
+ #{message\ 16462}#
+ #{form\ 16463}#
.
- #{subform\ 4180}#)
+ #{subform\ 16464}#)
(begin
- (let ((#{x\ 4187}# #{who\ 4177}#))
- (if (not ((lambda (#{x\ 4188}#)
- (let ((#{t\ 4192}# (not #{x\ 4188}#)))
- (if #{t\ 4192}#
- #{t\ 4192}#
- (let ((#{t\ 4195}# (string? #{x\ 4188}#)))
- (if #{t\ 4195}#
- #{t\ 4195}#
- (symbol? #{x\ 4188}#))))))
- #{x\ 4187}#))
+ (let ((#{x\ 16471}# #{who\ 16461}#))
+ (if (not ((lambda (#{x\ 16472}#)
+ (let ((#{t\ 16476}# (not #{x\ 16472}#)))
+ (if #{t\ 16476}#
+ #{t\ 16476}#
+ (let ((#{t\ 16479}# (string? #{x\ 16472}#)))
+ (if #{t\ 16479}#
+ #{t\ 16479}#
+ (symbol? #{x\ 16472}#))))))
+ #{x\ 16471}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 4187}#)))
- (let ((#{x\ 4199}# #{message\ 4178}#))
- (if (not (string? #{x\ 4199}#))
+ #{x\ 16471}#)))
+ (let ((#{x\ 16483}# #{message\ 16462}#))
+ (if (not (string? #{x\ 16483}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 4199}#)))
+ #{x\ 16483}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 4177}# "~a: " "")
+ (if #{who\ 16461}# "~a: " "")
"~a "
- (if (null? #{subform\ 4180}#)
+ (if (null? #{subform\ 16464}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 4201}#
- (cons #{message\ 4178}#
- (map (lambda (#{x\ 4202}#)
- (#{strip\ 478}# #{x\ 4202}# (quote (()))))
+ (let ((#{tail\ 16485}#
+ (cons #{message\ 16462}#
+ (map (lambda (#{x\ 16486}#)
+ (#{strip\ 13027}#
+ #{x\ 16486}#
+ '(())))
(append
- #{subform\ 4180}#
- (list #{form\ 4179}#))))))
- (if #{who\ 4177}#
- (cons #{who\ 4177}# #{tail\ 4201}#)
- #{tail\ 4201}#))
+ #{subform\ 16464}#
+ (list #{form\ 16463}#))))))
+ (if #{who\ 16461}#
+ (cons #{who\ 16461}# #{tail\ 16485}#)
+ #{tail\ 16485}#))
#f))))
- (letrec ((#{match\ 4218}#
- (lambda (#{e\ 4219}#
- #{p\ 4220}#
- #{w\ 4221}#
- #{r\ 4222}#
- #{mod\ 4223}#)
- (if (not #{r\ 4222}#)
+ (letrec ((#{match\ 16502}#
+ (lambda (#{e\ 16503}#
+ #{p\ 16504}#
+ #{w\ 16505}#
+ #{r\ 16506}#
+ #{mod\ 16507}#)
+ (if (not #{r\ 16506}#)
#f
- (if (eq? #{p\ 4220}# (quote any))
- (cons (#{wrap\ 436}#
- #{e\ 4219}#
- #{w\ 4221}#
- #{mod\ 4223}#)
- #{r\ 4222}#)
- (if (#{syntax-object?\ 331}# #{e\ 4219}#)
- (#{match*\ 4216}#
- (#{syntax-object-expression\ 333}# #{e\ 4219}#)
- #{p\ 4220}#
- (#{join-wraps\ 418}#
- #{w\ 4221}#
- (#{syntax-object-wrap\ 335}# #{e\ 4219}#))
- #{r\ 4222}#
- (#{syntax-object-module\ 337}# #{e\ 4219}#))
- (#{match*\ 4216}#
- #{e\ 4219}#
- #{p\ 4220}#
- #{w\ 4221}#
- #{r\ 4222}#
- #{mod\ 4223}#))))))
- (#{match*\ 4216}#
- (lambda (#{e\ 4236}#
- #{p\ 4237}#
- #{w\ 4238}#
- #{r\ 4239}#
- #{mod\ 4240}#)
- (if (null? #{p\ 4237}#)
- (if (null? #{e\ 4236}#) #{r\ 4239}# #f)
- (if (pair? #{p\ 4237}#)
- (if (pair? #{e\ 4236}#)
- (#{match\ 4218}#
- (car #{e\ 4236}#)
- (car #{p\ 4237}#)
- #{w\ 4238}#
- (#{match\ 4218}#
- (cdr #{e\ 4236}#)
- (cdr #{p\ 4237}#)
- #{w\ 4238}#
- #{r\ 4239}#
- #{mod\ 4240}#)
- #{mod\ 4240}#)
+ (if (eq? #{p\ 16504}# (quote any))
+ (cons (#{wrap\ 12985}#
+ #{e\ 16503}#
+ #{w\ 16505}#
+ #{mod\ 16507}#)
+ #{r\ 16506}#)
+ (if (#{syntax-object?\ 12880}# #{e\ 16503}#)
+ (#{match*\ 16500}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 16503}#)
+ #{p\ 16504}#
+ (#{join-wraps\ 12967}#
+ #{w\ 16505}#
+ (#{syntax-object-wrap\ 12884}# #{e\ 16503}#))
+ #{r\ 16506}#
+ (#{syntax-object-module\ 12886}# #{e\ 16503}#))
+ (#{match*\ 16500}#
+ #{e\ 16503}#
+ #{p\ 16504}#
+ #{w\ 16505}#
+ #{r\ 16506}#
+ #{mod\ 16507}#))))))
+ (#{match*\ 16500}#
+ (lambda (#{e\ 16520}#
+ #{p\ 16521}#
+ #{w\ 16522}#
+ #{r\ 16523}#
+ #{mod\ 16524}#)
+ (if (null? #{p\ 16521}#)
+ (if (null? #{e\ 16520}#) #{r\ 16523}# #f)
+ (if (pair? #{p\ 16521}#)
+ (if (pair? #{e\ 16520}#)
+ (#{match\ 16502}#
+ (car #{e\ 16520}#)
+ (car #{p\ 16521}#)
+ #{w\ 16522}#
+ (#{match\ 16502}#
+ (cdr #{e\ 16520}#)
+ (cdr #{p\ 16521}#)
+ #{w\ 16522}#
+ #{r\ 16523}#
+ #{mod\ 16524}#)
+ #{mod\ 16524}#)
#f)
- (if (eq? #{p\ 4237}# (quote each-any))
- (let ((#{l\ 4257}#
- (#{match-each-any\ 4210}#
- #{e\ 4236}#
- #{w\ 4238}#
- #{mod\ 4240}#)))
- (if #{l\ 4257}#
- (cons #{l\ 4257}# #{r\ 4239}#)
+ (if (eq? #{p\ 16521}# (quote each-any))
+ (let ((#{l\ 16541}#
+ (#{match-each-any\ 16494}#
+ #{e\ 16520}#
+ #{w\ 16522}#
+ #{mod\ 16524}#)))
+ (if #{l\ 16541}#
+ (cons #{l\ 16541}# #{r\ 16523}#)
#f))
- (let ((#{atom-key\ 4263}# (vector-ref #{p\ 4237}# 0)))
- (if (memv #{atom-key\ 4263}# (quote (each)))
- (if (null? #{e\ 4236}#)
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4237}# 1)
- #{r\ 4239}#)
- (let ((#{l\ 4266}#
- (#{match-each\ 4206}#
- #{e\ 4236}#
- (vector-ref #{p\ 4237}# 1)
- #{w\ 4238}#
- #{mod\ 4240}#)))
- (if #{l\ 4266}#
- (letrec ((#{collect\ 4271}#
- (lambda (#{l\ 4272}#)
- (if (null? (car #{l\ 4272}#))
- #{r\ 4239}#
- (cons (map car #{l\ 4272}#)
- (#{collect\ 4271}#
+ (let ((#{atom-key\ 16547}#
+ (vector-ref #{p\ 16521}# 0)))
+ (if (memv #{atom-key\ 16547}# (quote (each)))
+ (if (null? #{e\ 16520}#)
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16521}# 1)
+ #{r\ 16523}#)
+ (let ((#{l\ 16550}#
+ (#{match-each\ 16490}#
+ #{e\ 16520}#
+ (vector-ref #{p\ 16521}# 1)
+ #{w\ 16522}#
+ #{mod\ 16524}#)))
+ (if #{l\ 16550}#
+ (letrec ((#{collect\ 16555}#
+ (lambda (#{l\ 16556}#)
+ (if (null? (car #{l\ 16556}#))
+ #{r\ 16523}#
+ (cons (map car #{l\ 16556}#)
+ (#{collect\ 16555}#
(map cdr
- #{l\ 4272}#)))))))
- (#{collect\ 4271}# #{l\ 4266}#))
+ #{l\ 16556}#)))))))
+ (#{collect\ 16555}# #{l\ 16550}#))
#f)))
- (if (memv #{atom-key\ 4263}# (quote (each+)))
+ (if (memv #{atom-key\ 16547}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 4208}#
- #{e\ 4236}#
- (vector-ref #{p\ 4237}# 1)
- (vector-ref #{p\ 4237}# 2)
- (vector-ref #{p\ 4237}# 3)
- #{w\ 4238}#
- #{r\ 4239}#
- #{mod\ 4240}#))
- (lambda (#{xr*\ 4274}#
- #{y-pat\ 4275}#
- #{r\ 4276}#)
- (if #{r\ 4276}#
- (if (null? #{y-pat\ 4275}#)
- (if (null? #{xr*\ 4274}#)
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4237}# 1)
- #{r\ 4276}#)
- (#{combine\ 4214}#
- #{xr*\ 4274}#
- #{r\ 4276}#))
+ (#{match-each+\ 16492}#
+ #{e\ 16520}#
+ (vector-ref #{p\ 16521}# 1)
+ (vector-ref #{p\ 16521}# 2)
+ (vector-ref #{p\ 16521}# 3)
+ #{w\ 16522}#
+ #{r\ 16523}#
+ #{mod\ 16524}#))
+ (lambda (#{xr*\ 16558}#
+ #{y-pat\ 16559}#
+ #{r\ 16560}#)
+ (if #{r\ 16560}#
+ (if (null? #{y-pat\ 16559}#)
+ (if (null? #{xr*\ 16558}#)
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16521}# 1)
+ #{r\ 16560}#)
+ (#{combine\ 16498}#
+ #{xr*\ 16558}#
+ #{r\ 16560}#))
#f)
#f)))
- (if (memv #{atom-key\ 4263}# (quote (free-id)))
- (if (#{id?\ 367}# #{e\ 4236}#)
- (if (#{free-id=?\ 426}#
- (#{wrap\ 436}#
- #{e\ 4236}#
- #{w\ 4238}#
- #{mod\ 4240}#)
- (vector-ref #{p\ 4237}# 1))
- #{r\ 4239}#
+ (if (memv #{atom-key\ 16547}# (quote (free-id)))
+ (if (#{id?\ 12916}# #{e\ 16520}#)
+ (if (#{free-id=?\ 12975}#
+ (#{wrap\ 12985}#
+ #{e\ 16520}#
+ #{w\ 16522}#
+ #{mod\ 16524}#)
+ (vector-ref #{p\ 16521}# 1))
+ #{r\ 16523}#
#f)
#f)
- (if (memv #{atom-key\ 4263}# (quote (atom)))
+ (if (memv #{atom-key\ 16547}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 4237}# 1)
- (#{strip\ 478}#
- #{e\ 4236}#
- #{w\ 4238}#))
- #{r\ 4239}#
+ (vector-ref #{p\ 16521}# 1)
+ (#{strip\ 13027}#
+ #{e\ 16520}#
+ #{w\ 16522}#))
+ #{r\ 16523}#
#f)
- (if (memv #{atom-key\ 4263}#
+ (if (memv #{atom-key\ 16547}#
'(vector))
- (if (vector? #{e\ 4236}#)
- (#{match\ 4218}#
- (vector->list #{e\ 4236}#)
- (vector-ref #{p\ 4237}# 1)
- #{w\ 4238}#
- #{r\ 4239}#
- #{mod\ 4240}#)
+ (if (vector? #{e\ 16520}#)
+ (#{match\ 16502}#
+ (vector->list #{e\ 16520}#)
+ (vector-ref #{p\ 16521}# 1)
+ #{w\ 16522}#
+ #{r\ 16523}#
+ #{mod\ 16524}#)
#f))))))))))))
- (#{combine\ 4214}#
- (lambda (#{r*\ 4293}# #{r\ 4294}#)
- (if (null? (car #{r*\ 4293}#))
- #{r\ 4294}#
- (cons (map car #{r*\ 4293}#)
- (#{combine\ 4214}#
- (map cdr #{r*\ 4293}#)
- #{r\ 4294}#)))))
- (#{match-empty\ 4212}#
- (lambda (#{p\ 4297}# #{r\ 4298}#)
- (if (null? #{p\ 4297}#)
- #{r\ 4298}#
- (if (eq? #{p\ 4297}# (quote any))
- (cons (quote ()) #{r\ 4298}#)
- (if (pair? #{p\ 4297}#)
- (#{match-empty\ 4212}#
- (car #{p\ 4297}#)
- (#{match-empty\ 4212}#
- (cdr #{p\ 4297}#)
- #{r\ 4298}#))
- (if (eq? #{p\ 4297}# (quote each-any))
- (cons (quote ()) #{r\ 4298}#)
- (let ((#{atom-key\ 4312}#
- (vector-ref #{p\ 4297}# 0)))
- (if (memv #{atom-key\ 4312}# (quote (each)))
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4297}# 1)
- #{r\ 4298}#)
- (if (memv #{atom-key\ 4312}# (quote (each+)))
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4297}# 1)
- (#{match-empty\ 4212}#
- (reverse (vector-ref #{p\ 4297}# 2))
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4297}# 3)
- #{r\ 4298}#)))
- (if (memv #{atom-key\ 4312}#
+ (#{combine\ 16498}#
+ (lambda (#{r*\ 16577}# #{r\ 16578}#)
+ (if (null? (car #{r*\ 16577}#))
+ #{r\ 16578}#
+ (cons (map car #{r*\ 16577}#)
+ (#{combine\ 16498}#
+ (map cdr #{r*\ 16577}#)
+ #{r\ 16578}#)))))
+ (#{match-empty\ 16496}#
+ (lambda (#{p\ 16581}# #{r\ 16582}#)
+ (if (null? #{p\ 16581}#)
+ #{r\ 16582}#
+ (if (eq? #{p\ 16581}# (quote any))
+ (cons (quote ()) #{r\ 16582}#)
+ (if (pair? #{p\ 16581}#)
+ (#{match-empty\ 16496}#
+ (car #{p\ 16581}#)
+ (#{match-empty\ 16496}#
+ (cdr #{p\ 16581}#)
+ #{r\ 16582}#))
+ (if (eq? #{p\ 16581}# (quote each-any))
+ (cons (quote ()) #{r\ 16582}#)
+ (let ((#{atom-key\ 16596}#
+ (vector-ref #{p\ 16581}# 0)))
+ (if (memv #{atom-key\ 16596}# (quote (each)))
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16581}# 1)
+ #{r\ 16582}#)
+ (if (memv #{atom-key\ 16596}# (quote (each+)))
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16581}# 1)
+ (#{match-empty\ 16496}#
+ (reverse (vector-ref #{p\ 16581}# 2))
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16581}# 3)
+ #{r\ 16582}#)))
+ (if (memv #{atom-key\ 16596}#
'(free-id atom))
- #{r\ 4298}#
- (if (memv #{atom-key\ 4312}#
+ #{r\ 16582}#
+ (if (memv #{atom-key\ 16596}#
'(vector))
- (#{match-empty\ 4212}#
- (vector-ref #{p\ 4297}# 1)
- #{r\ 4298}#))))))))))))
- (#{match-each-any\ 4210}#
- (lambda (#{e\ 4317}# #{w\ 4318}# #{mod\ 4319}#)
- (if (pair? #{e\ 4317}#)
- (let ((#{l\ 4326}#
- (#{match-each-any\ 4210}#
- (cdr #{e\ 4317}#)
- #{w\ 4318}#
- #{mod\ 4319}#)))
- (if #{l\ 4326}#
- (cons (#{wrap\ 436}#
- (car #{e\ 4317}#)
- #{w\ 4318}#
- #{mod\ 4319}#)
- #{l\ 4326}#)
+ (#{match-empty\ 16496}#
+ (vector-ref #{p\ 16581}# 1)
+ #{r\ 16582}#))))))))))))
+ (#{match-each-any\ 16494}#
+ (lambda (#{e\ 16601}# #{w\ 16602}# #{mod\ 16603}#)
+ (if (pair? #{e\ 16601}#)
+ (let ((#{l\ 16610}#
+ (#{match-each-any\ 16494}#
+ (cdr #{e\ 16601}#)
+ #{w\ 16602}#
+ #{mod\ 16603}#)))
+ (if #{l\ 16610}#
+ (cons (#{wrap\ 12985}#
+ (car #{e\ 16601}#)
+ #{w\ 16602}#
+ #{mod\ 16603}#)
+ #{l\ 16610}#)
#f))
- (if (null? #{e\ 4317}#)
+ (if (null? #{e\ 16601}#)
'()
- (if (#{syntax-object?\ 331}# #{e\ 4317}#)
- (#{match-each-any\ 4210}#
- (#{syntax-object-expression\ 333}# #{e\ 4317}#)
- (#{join-wraps\ 418}#
- #{w\ 4318}#
- (#{syntax-object-wrap\ 335}# #{e\ 4317}#))
- #{mod\ 4319}#)
+ (if (#{syntax-object?\ 12880}# #{e\ 16601}#)
+ (#{match-each-any\ 16494}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 16601}#)
+ (#{join-wraps\ 12967}#
+ #{w\ 16602}#
+ (#{syntax-object-wrap\ 12884}# #{e\ 16601}#))
+ #{mod\ 16603}#)
#f)))))
- (#{match-each+\ 4208}#
- (lambda (#{e\ 4334}#
- #{x-pat\ 4335}#
- #{y-pat\ 4336}#
- #{z-pat\ 4337}#
- #{w\ 4338}#
- #{r\ 4339}#
- #{mod\ 4340}#)
- (letrec ((#{f\ 4351}#
- (lambda (#{e\ 4352}# #{w\ 4353}#)
- (if (pair? #{e\ 4352}#)
+ (#{match-each+\ 16492}#
+ (lambda (#{e\ 16618}#
+ #{x-pat\ 16619}#
+ #{y-pat\ 16620}#
+ #{z-pat\ 16621}#
+ #{w\ 16622}#
+ #{r\ 16623}#
+ #{mod\ 16624}#)
+ (letrec ((#{f\ 16635}#
+ (lambda (#{e\ 16636}# #{w\ 16637}#)
+ (if (pair? #{e\ 16636}#)
(call-with-values
(lambda ()
- (#{f\ 4351}#
- (cdr #{e\ 4352}#)
- #{w\ 4353}#))
- (lambda (#{xr*\ 4356}#
- #{y-pat\ 4357}#
- #{r\ 4358}#)
- (if #{r\ 4358}#
- (if (null? #{y-pat\ 4357}#)
- (let ((#{xr\ 4363}#
- (#{match\ 4218}#
- (car #{e\ 4352}#)
- #{x-pat\ 4335}#
- #{w\ 4353}#
+ (#{f\ 16635}#
+ (cdr #{e\ 16636}#)
+ #{w\ 16637}#))
+ (lambda (#{xr*\ 16640}#
+ #{y-pat\ 16641}#
+ #{r\ 16642}#)
+ (if #{r\ 16642}#
+ (if (null? #{y-pat\ 16641}#)
+ (let ((#{xr\ 16647}#
+ (#{match\ 16502}#
+ (car #{e\ 16636}#)
+ #{x-pat\ 16619}#
+ #{w\ 16637}#
'()
- #{mod\ 4340}#)))
- (if #{xr\ 4363}#
+ #{mod\ 16624}#)))
+ (if #{xr\ 16647}#
(values
- (cons #{xr\ 4363}#
- #{xr*\ 4356}#)
- #{y-pat\ 4357}#
- #{r\ 4358}#)
+ (cons #{xr\ 16647}#
+ #{xr*\ 16640}#)
+ #{y-pat\ 16641}#
+ #{r\ 16642}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 4357}#)
- (#{match\ 4218}#
- (car #{e\ 4352}#)
- (car #{y-pat\ 4357}#)
- #{w\ 4353}#
- #{r\ 4358}#
- #{mod\ 4340}#)))
+ (cdr #{y-pat\ 16641}#)
+ (#{match\ 16502}#
+ (car #{e\ 16636}#)
+ (car #{y-pat\ 16641}#)
+ #{w\ 16637}#
+ #{r\ 16642}#
+ #{mod\ 16624}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 331}# #{e\ 4352}#)
- (#{f\ 4351}#
- (#{syntax-object-expression\ 333}#
- #{e\ 4352}#)
- (#{join-wraps\ 418}#
- #{w\ 4353}#
- #{e\ 4352}#))
+ (if (#{syntax-object?\ 12880}# #{e\ 16636}#)
+ (#{f\ 16635}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 16636}#)
+ (#{join-wraps\ 12967}#
+ #{w\ 16637}#
+ #{e\ 16636}#))
(values
'()
- #{y-pat\ 4336}#
- (#{match\ 4218}#
- #{e\ 4352}#
- #{z-pat\ 4337}#
- #{w\ 4353}#
- #{r\ 4339}#
- #{mod\ 4340}#)))))))
- (#{f\ 4351}# #{e\ 4334}# #{w\ 4338}#))))
- (#{match-each\ 4206}#
- (lambda (#{e\ 4367}#
- #{p\ 4368}#
- #{w\ 4369}#
- #{mod\ 4370}#)
- (if (pair? #{e\ 4367}#)
- (let ((#{first\ 4378}#
- (#{match\ 4218}#
- (car #{e\ 4367}#)
- #{p\ 4368}#
- #{w\ 4369}#
+ #{y-pat\ 16620}#
+ (#{match\ 16502}#
+ #{e\ 16636}#
+ #{z-pat\ 16621}#
+ #{w\ 16637}#
+ #{r\ 16623}#
+ #{mod\ 16624}#)))))))
+ (#{f\ 16635}# #{e\ 16618}# #{w\ 16622}#))))
+ (#{match-each\ 16490}#
+ (lambda (#{e\ 16651}#
+ #{p\ 16652}#
+ #{w\ 16653}#
+ #{mod\ 16654}#)
+ (if (pair? #{e\ 16651}#)
+ (let ((#{first\ 16662}#
+ (#{match\ 16502}#
+ (car #{e\ 16651}#)
+ #{p\ 16652}#
+ #{w\ 16653}#
'()
- #{mod\ 4370}#)))
- (if #{first\ 4378}#
- (let ((#{rest\ 4382}#
- (#{match-each\ 4206}#
- (cdr #{e\ 4367}#)
- #{p\ 4368}#
- #{w\ 4369}#
- #{mod\ 4370}#)))
- (if #{rest\ 4382}#
- (cons #{first\ 4378}# #{rest\ 4382}#)
+ #{mod\ 16654}#)))
+ (if #{first\ 16662}#
+ (let ((#{rest\ 16666}#
+ (#{match-each\ 16490}#
+ (cdr #{e\ 16651}#)
+ #{p\ 16652}#
+ #{w\ 16653}#
+ #{mod\ 16654}#)))
+ (if #{rest\ 16666}#
+ (cons #{first\ 16662}# #{rest\ 16666}#)
#f))
#f))
- (if (null? #{e\ 4367}#)
+ (if (null? #{e\ 16651}#)
'()
- (if (#{syntax-object?\ 331}# #{e\ 4367}#)
- (#{match-each\ 4206}#
- (#{syntax-object-expression\ 333}# #{e\ 4367}#)
- #{p\ 4368}#
- (#{join-wraps\ 418}#
- #{w\ 4369}#
- (#{syntax-object-wrap\ 335}# #{e\ 4367}#))
- (#{syntax-object-module\ 337}# #{e\ 4367}#))
+ (if (#{syntax-object?\ 12880}# #{e\ 16651}#)
+ (#{match-each\ 16490}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 16651}#)
+ #{p\ 16652}#
+ (#{join-wraps\ 12967}#
+ #{w\ 16653}#
+ (#{syntax-object-wrap\ 12884}# #{e\ 16651}#))
+ (#{syntax-object-module\ 12886}# #{e\ 16651}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 4390}# #{p\ 4391}#)
- (if (eq? #{p\ 4391}# (quote any))
- (list #{e\ 4390}#)
- (if (#{syntax-object?\ 331}# #{e\ 4390}#)
- (#{match*\ 4216}#
- (#{syntax-object-expression\ 333}# #{e\ 4390}#)
- #{p\ 4391}#
- (#{syntax-object-wrap\ 335}# #{e\ 4390}#)
+ (lambda (#{e\ 16674}# #{p\ 16675}#)
+ (if (eq? #{p\ 16675}# (quote any))
+ (list #{e\ 16674}#)
+ (if (#{syntax-object?\ 12880}# #{e\ 16674}#)
+ (#{match*\ 16500}#
+ (#{syntax-object-expression\ 12882}#
+ #{e\ 16674}#)
+ #{p\ 16675}#
+ (#{syntax-object-wrap\ 12884}# #{e\ 16674}#)
'()
- (#{syntax-object-module\ 337}# #{e\ 4390}#))
- (#{match*\ 4216}#
- #{e\ 4390}#
- #{p\ 4391}#
+ (#{syntax-object-module\ 12886}# #{e\ 16674}#))
+ (#{match*\ 16500}#
+ #{e\ 16674}#
+ #{p\ 16675}#
'(())
'()
#f)))))))))
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 4400}#)
- ((lambda (#{tmp\ 4402}#)
- ((lambda (#{tmp\ 4403}#)
- (if #{tmp\ 4403}#
- (apply (lambda (#{_\ 4407}# #{e1\ 4408}# #{e2\ 4409}#)
+ (cons (lambda (#{x\ 16684}#)
+ ((lambda (#{tmp\ 16686}#)
+ ((lambda (#{tmp\ 16687}#)
+ (if #{tmp\ 16687}#
+ (apply (lambda (#{_\ 16691}# #{e1\ 16692}# #{e2\ 16693}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4404" "i4405" "i4406"))
+ #("i16688" "i16689" "i16690"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4401")))
+ #(ribcage #(x) #((top)) #("i16685")))
(hygiene guile))
- (cons #{e1\ 4408}# #{e2\ 4409}#)))
- #{tmp\ 4403}#)
- ((lambda (#{tmp\ 4411}#)
- (if #{tmp\ 4411}#
- (apply (lambda (#{_\ 4417}#
- #{out\ 4418}#
- #{in\ 4419}#
- #{e1\ 4420}#
- #{e2\ 4421}#)
+ (cons #{e1\ 16692}# #{e2\ 16693}#)))
+ #{tmp\ 16687}#)
+ ((lambda (#{tmp\ 16695}#)
+ (if #{tmp\ 16695}#
+ (apply (lambda (#{_\ 16701}#
+ #{out\ 16702}#
+ #{in\ 16703}#
+ #{e1\ 16704}#
+ #{e2\ 16705}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4412"
- "i4413"
- "i4414"
- "i4415"
- "i4416"))
+ #("i16696"
+ "i16697"
+ "i16698"
+ "i16699"
+ "i16700"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4401")))
+ #("i16685")))
(hygiene guile))
- #{in\ 4419}#
+ #{in\ 16703}#
'()
- (list #{out\ 4418}#
+ (list #{out\ 16702}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i4412"
- "i4413"
- "i4414"
- "i4415"
- "i4416"))
+ #("i16696"
+ "i16697"
+ "i16698"
+ "i16699"
+ "i16700"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4401")))
+ #("i16685")))
(hygiene guile))
- (cons #{e1\ 4420}#
- #{e2\ 4421}#)))))
- #{tmp\ 4411}#)
- ((lambda (#{tmp\ 4423}#)
- (if #{tmp\ 4423}#
- (apply (lambda (#{_\ 4429}#
- #{out\ 4430}#
- #{in\ 4431}#
- #{e1\ 4432}#
- #{e2\ 4433}#)
+ (cons #{e1\ 16704}#
+ #{e2\ 16705}#)))))
+ #{tmp\ 16695}#)
+ ((lambda (#{tmp\ 16707}#)
+ (if #{tmp\ 16707}#
+ (apply (lambda (#{_\ 16713}#
+ #{out\ 16714}#
+ #{in\ 16715}#
+ #{e1\ 16716}#
+ #{e2\ 16717}#)
(list '#(syntax-object
syntax-case
((top)
(top)
(top)
(top))
- #("i4424"
- "i4425"
- "i4426"
- "i4427"
- "i4428"))
+ #("i16708"
+ "i16709"
+ "i16710"
+ "i16711"
+ "i16712"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4401")))
+ #("i16685")))
(hygiene guile))
(cons '#(syntax-object
list
(top)
(top)
(top))
- #("i4424"
- "i4425"
- "i4426"
- "i4427"
- "i4428"))
+ #("i16708"
+ "i16709"
+ "i16710"
+ "i16711"
+ "i16712"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4401")))
+ #("i16685")))
(hygiene guile))
- #{in\ 4431}#)
+ #{in\ 16715}#)
'()
- (list #{out\ 4430}#
+ (list #{out\ 16714}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i4424"
- "i4425"
- "i4426"
- "i4427"
- "i4428"))
+ #("i16708"
+ "i16709"
+ "i16710"
+ "i16711"
+ "i16712"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4401")))
+ #("i16685")))
(hygiene guile))
- (cons #{e1\ 4432}#
- #{e2\ 4433}#)))))
- #{tmp\ 4423}#)
+ (cons #{e1\ 16716}#
+ #{e2\ 16717}#)))))
+ #{tmp\ 16707}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4402}#)))
+ #{tmp\ 16686}#)))
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 16686}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 16686}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 16686}#
'(any () any . each-any))))
- #{x\ 4400}#))
+ #{x\ 16684}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 4455}#)
- ((lambda (#{tmp\ 4457}#)
- ((lambda (#{tmp\ 4458}#)
- (if #{tmp\ 4458}#
- (apply (lambda (#{_\ 4464}#
- #{k\ 4465}#
- #{keyword\ 4466}#
- #{pattern\ 4467}#
- #{template\ 4468}#)
+ (cons (lambda (#{x\ 16721}#)
+ ((lambda (#{tmp\ 16723}#)
+ ((lambda (#{tmp\ 16724}#)
+ (if #{tmp\ 16724}#
+ (apply (lambda (#{_\ 16730}#
+ #{k\ 16731}#
+ #{keyword\ 16732}#
+ #{pattern\ 16733}#
+ #{template\ 16734}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4456")))
+ #(ribcage #(x) #((top)) #("i16722")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4456")))
+ #(ribcage #(x) #((top)) #("i16722")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4456")))
+ #(ribcage #(x) #((top)) #("i16722")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4456")))
+ #(ribcage #(x) #((top)) #("i16722")))
(hygiene guile)))
(cons '#(syntax-object
patterns
(top)
(top)
(top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4456")))
+ #("i16722")))
(hygiene guile))
- #{pattern\ 4467}#))
+ #{pattern\ 16733}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4456")))
+ #("i16722")))
(hygiene guile))
(cons '#(syntax-object
x
(top)
(top)
(top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4456")))
+ #("i16722")))
(hygiene guile))
- (cons #{k\ 4465}#
- (map (lambda (#{tmp\ 4472}#
- #{tmp\ 4471}#)
+ (cons #{k\ 16731}#
+ (map (lambda (#{tmp\ 16738}#
+ #{tmp\ 16737}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4456")))
+ #("i16722")))
(hygiene
guile))
- #{tmp\ 4471}#)
+ #{tmp\ 16737}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4459"
- "i4460"
- "i4461"
- "i4462"
- "i4463"))
+ #("i16725"
+ "i16726"
+ "i16727"
+ "i16728"
+ "i16729"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4456")))
+ #("i16722")))
(hygiene
guile))
- #{tmp\ 4472}#)))
- #{template\ 4468}#
- #{pattern\ 4467}#))))))
- #{tmp\ 4458}#)
+ #{tmp\ 16738}#)))
+ #{template\ 16734}#
+ #{pattern\ 16733}#))))))
+ #{tmp\ 16724}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4457}#)))
+ #{tmp\ 16723}#)))
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 16723}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 4455}#))
+ #{x\ 16721}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 4483}#)
- ((lambda (#{tmp\ 4485}#)
- ((lambda (#{tmp\ 4486}#)
- (if (if #{tmp\ 4486}#
- (apply (lambda (#{let*\ 4492}#
- #{x\ 4493}#
- #{v\ 4494}#
- #{e1\ 4495}#
- #{e2\ 4496}#)
- (and-map identifier? #{x\ 4493}#))
- #{tmp\ 4486}#)
+ (cons (lambda (#{x\ 16739}#)
+ ((lambda (#{tmp\ 16741}#)
+ ((lambda (#{tmp\ 16742}#)
+ (if (if #{tmp\ 16742}#
+ (apply (lambda (#{let*\ 16748}#
+ #{x\ 16749}#
+ #{v\ 16750}#
+ #{e1\ 16751}#
+ #{e2\ 16752}#)
+ (and-map identifier? #{x\ 16749}#))
+ #{tmp\ 16742}#)
#f)
- (apply (lambda (#{let*\ 4503}#
- #{x\ 4504}#
- #{v\ 4505}#
- #{e1\ 4506}#
- #{e2\ 4507}#)
- (letrec ((#{f\ 4510}#
- (lambda (#{bindings\ 4511}#)
- (if (null? #{bindings\ 4511}#)
+ (apply (lambda (#{let*\ 16759}#
+ #{x\ 16760}#
+ #{v\ 16761}#
+ #{e1\ 16762}#
+ #{e2\ 16763}#)
+ (letrec ((#{f\ 16766}#
+ (lambda (#{bindings\ 16767}#)
+ (if (null? #{bindings\ 16767}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4508" "i4509"))
+ #("i16764" "i16765"))
#(ribcage
#(let* x v e1 e2)
#((top)
(top)
(top)
(top))
- #("i4498"
- "i4499"
- "i4500"
- "i4501"
- "i4502"))
+ #("i16754"
+ "i16755"
+ "i16756"
+ "i16757"
+ "i16758"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4484")))
+ #("i16740")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4506}#
- #{e2\ 4507}#)))
- ((lambda (#{tmp\ 4516}#)
- ((lambda (#{tmp\ 4517}#)
- (if #{tmp\ 4517}#
- (apply (lambda (#{body\ 4520}#
- #{binding\ 4521}#)
+ (cons #{e1\ 16762}#
+ #{e2\ 16763}#)))
+ ((lambda (#{tmp\ 16772}#)
+ ((lambda (#{tmp\ 16773}#)
+ (if #{tmp\ 16773}#
+ (apply (lambda (#{body\ 16776}#
+ #{binding\ 16777}#)
(list '#(syntax-object
let
((top)
binding)
#((top)
(top))
- #("i4518"
- "i4519"))
+ #("i16774"
+ "i16775"))
#(ribcage
()
()
bindings)
#((top)
(top))
- #("i4508"
- "i4509"))
+ #("i16764"
+ "i16765"))
#(ribcage
#(let*
x
(top)
(top)
(top))
- #("i4498"
- "i4499"
- "i4500"
- "i4501"
- "i4502"))
+ #("i16754"
+ "i16755"
+ "i16756"
+ "i16757"
+ "i16758"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4484")))
+ #("i16740")))
(hygiene
guile))
- (list #{binding\ 4521}#)
- #{body\ 4520}#))
- #{tmp\ 4517}#)
+ (list #{binding\ 16777}#)
+ #{body\ 16776}#))
+ #{tmp\ 16773}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4516}#)))
+ #{tmp\ 16772}#)))
($sc-dispatch
- #{tmp\ 4516}#
+ #{tmp\ 16772}#
'(any any))))
- (list (#{f\ 4510}#
- (cdr #{bindings\ 4511}#))
- (car #{bindings\ 4511}#)))))))
- (#{f\ 4510}#
- (map list #{x\ 4504}# #{v\ 4505}#))))
- #{tmp\ 4486}#)
+ (list (#{f\ 16766}#
+ (cdr #{bindings\ 16767}#))
+ (car #{bindings\ 16767}#)))))))
+ (#{f\ 16766}#
+ (map list #{x\ 16760}# #{v\ 16761}#))))
+ #{tmp\ 16742}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4485}#)))
+ #{tmp\ 16741}#)))
($sc-dispatch
- #{tmp\ 4485}#
+ #{tmp\ 16741}#
'(any #(each (any any)) any . each-any))))
- #{x\ 4483}#))
+ #{x\ 16739}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 4541}#)
- ((lambda (#{tmp\ 4543}#)
- ((lambda (#{tmp\ 4544}#)
- (if #{tmp\ 4544}#
- (apply (lambda (#{_\ 4552}#
- #{var\ 4553}#
- #{init\ 4554}#
- #{step\ 4555}#
- #{e0\ 4556}#
- #{e1\ 4557}#
- #{c\ 4558}#)
- ((lambda (#{tmp\ 4560}#)
- ((lambda (#{tmp\ 4561}#)
- (if #{tmp\ 4561}#
- (apply (lambda (#{step\ 4563}#)
- ((lambda (#{tmp\ 4564}#)
- ((lambda (#{tmp\ 4565}#)
- (if #{tmp\ 4565}#
+ (cons (lambda (#{orig-x\ 16778}#)
+ ((lambda (#{tmp\ 16780}#)
+ ((lambda (#{tmp\ 16781}#)
+ (if #{tmp\ 16781}#
+ (apply (lambda (#{_\ 16789}#
+ #{var\ 16790}#
+ #{init\ 16791}#
+ #{step\ 16792}#
+ #{e0\ 16793}#
+ #{e1\ 16794}#
+ #{c\ 16795}#)
+ ((lambda (#{tmp\ 16797}#)
+ ((lambda (#{tmp\ 16798}#)
+ (if #{tmp\ 16798}#
+ (apply (lambda (#{step\ 16800}#)
+ ((lambda (#{tmp\ 16801}#)
+ ((lambda (#{tmp\ 16802}#)
+ (if #{tmp\ 16802}#
(apply (lambda ()
(list '#(syntax-object
let
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
'#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
(map list
- #{var\ 4553}#
- #{init\ 4554}#)
+ #{var\ 16790}#
+ #{init\ 16791}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
- #{e0\ 4556}#)
+ #{e0\ 16793}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
(append
- #{c\ 4558}#
+ #{c\ 16795}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
- #{step\ 4563}#)))))))
- #{tmp\ 4565}#)
- ((lambda (#{tmp\ 4570}#)
- (if #{tmp\ 4570}#
- (apply (lambda (#{e1\ 4573}#
- #{e2\ 4574}#)
+ #{step\ 16800}#)))))))
+ #{tmp\ 16802}#)
+ ((lambda (#{tmp\ 16807}#)
+ (if #{tmp\ 16807}#
+ (apply (lambda (#{e1\ 16810}#
+ #{e2\ 16811}#)
(list '#(syntax-object
let
((top)
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
'#(syntax-object
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
(map list
- #{var\ 4553}#
- #{init\ 4554}#)
+ #{var\ 16790}#
+ #{init\ 16791}#)
(list '#(syntax-object
if
((top)
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
- #{e0\ 4556}#
+ #{e0\ 16793}#
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
- (cons #{e1\ 4573}#
- #{e2\ 4574}#))
+ (cons #{e1\ 16810}#
+ #{e2\ 16811}#))
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
(append
- #{c\ 4558}#
+ #{c\ 16795}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4571"
- "i4572"))
+ #("i16808"
+ "i16809"))
#(ribcage
#(step)
#((top))
- #("i4562"))
+ #("i16799"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4545"
- "i4546"
- "i4547"
- "i4548"
- "i4549"
- "i4550"
- "i4551"))
+ #("i16782"
+ "i16783"
+ "i16784"
+ "i16785"
+ "i16786"
+ "i16787"
+ "i16788"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4542")))
+ #("i16779")))
(hygiene
guile))
- #{step\ 4563}#)))))))
- #{tmp\ 4570}#)
+ #{step\ 16800}#)))))))
+ #{tmp\ 16807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4564}#)))
+ #{tmp\ 16801}#)))
($sc-dispatch
- #{tmp\ 4564}#
+ #{tmp\ 16801}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4564}#
+ #{tmp\ 16801}#
'())))
- #{e1\ 4557}#))
- #{tmp\ 4561}#)
+ #{e1\ 16794}#))
+ #{tmp\ 16798}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4560}#)))
+ #{tmp\ 16797}#)))
($sc-dispatch
- #{tmp\ 4560}#
+ #{tmp\ 16797}#
'each-any)))
- (map (lambda (#{v\ 4581}# #{s\ 4582}#)
- ((lambda (#{tmp\ 4585}#)
- ((lambda (#{tmp\ 4586}#)
- (if #{tmp\ 4586}#
- (apply (lambda () #{v\ 4581}#)
- #{tmp\ 4586}#)
- ((lambda (#{tmp\ 4587}#)
- (if #{tmp\ 4587}#
- (apply (lambda (#{e\ 4589}#)
- #{e\ 4589}#)
- #{tmp\ 4587}#)
- ((lambda (#{_\ 4591}#)
+ (map (lambda (#{v\ 16818}# #{s\ 16819}#)
+ ((lambda (#{tmp\ 16822}#)
+ ((lambda (#{tmp\ 16823}#)
+ (if #{tmp\ 16823}#
+ (apply (lambda () #{v\ 16818}#)
+ #{tmp\ 16823}#)
+ ((lambda (#{tmp\ 16824}#)
+ (if #{tmp\ 16824}#
+ (apply (lambda (#{e\ 16826}#)
+ #{e\ 16826}#)
+ #{tmp\ 16824}#)
+ ((lambda (#{_\ 16828}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4541}#
- #{s\ 4582}#))
- #{tmp\ 4585}#)))
+ #{orig-x\ 16778}#
+ #{s\ 16819}#))
+ #{tmp\ 16822}#)))
($sc-dispatch
- #{tmp\ 4585}#
+ #{tmp\ 16822}#
'(any)))))
($sc-dispatch
- #{tmp\ 4585}#
+ #{tmp\ 16822}#
'())))
- #{s\ 4582}#))
- #{var\ 4553}#
- #{step\ 4555}#)))
- #{tmp\ 4544}#)
+ #{s\ 16819}#))
+ #{var\ 16790}#
+ #{step\ 16792}#)))
+ #{tmp\ 16781}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4543}#)))
+ #{tmp\ 16780}#)))
($sc-dispatch
- #{tmp\ 4543}#
+ #{tmp\ 16780}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4541}#))
+ #{orig-x\ 16778}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 4623}#
- (lambda (#{x\ 4627}# #{y\ 4628}#)
- ((lambda (#{tmp\ 4632}#)
- ((lambda (#{tmp\ 4633}#)
- (if #{tmp\ 4633}#
- (apply (lambda (#{x\ 4636}# #{y\ 4637}#)
- ((lambda (#{tmp\ 4638}#)
- ((lambda (#{tmp\ 4639}#)
- (if #{tmp\ 4639}#
- (apply (lambda (#{dy\ 4641}#)
- ((lambda (#{tmp\ 4642}#)
- ((lambda (#{tmp\ 4643}#)
- (if #{tmp\ 4643}#
- (apply (lambda (#{dx\ 4645}#)
+ (cons (letrec ((#{quasicons\ 16835}#
+ (lambda (#{x\ 16839}# #{y\ 16840}#)
+ ((lambda (#{tmp\ 16844}#)
+ ((lambda (#{tmp\ 16845}#)
+ (if #{tmp\ 16845}#
+ (apply (lambda (#{x\ 16848}# #{y\ 16849}#)
+ ((lambda (#{tmp\ 16850}#)
+ ((lambda (#{tmp\ 16851}#)
+ (if #{tmp\ 16851}#
+ (apply (lambda (#{dy\ 16853}#)
+ ((lambda (#{tmp\ 16854}#)
+ ((lambda (#{tmp\ 16855}#)
+ (if #{tmp\ 16855}#
+ (apply (lambda (#{dx\ 16857}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4644"))
+ #("i16856"))
#(ribcage
#(dy)
#((top))
- #("i4640"))
+ #("i16852"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- (cons #{dx\ 4645}#
- #{dy\ 4641}#)))
- #{tmp\ 4643}#)
- ((lambda (#{_\ 4647}#)
- (if (null? #{dy\ 4641}#)
+ (cons #{dx\ 16857}#
+ #{dy\ 16853}#)))
+ #{tmp\ 16855}#)
+ ((lambda (#{_\ 16859}#)
+ (if (null? #{dy\ 16853}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4646"))
+ #("i16858"))
#(ribcage
#(dy)
#((top))
- #("i4640"))
+ #("i16852"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- #{x\ 4636}#)
+ #{x\ 16848}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4646"))
+ #("i16858"))
#(ribcage
#(dy)
#((top))
- #("i4640"))
+ #("i16852"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- #{x\ 4636}#
- #{y\ 4637}#)))
- #{tmp\ 4642}#)))
+ #{x\ 16848}#
+ #{y\ 16849}#)))
+ #{tmp\ 16854}#)))
($sc-dispatch
- #{tmp\ 4642}#
+ #{tmp\ 16854}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(dy)
#((top))
- #("i4640"))
+ #("i16852"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile)))
any))))
- #{x\ 4636}#))
- #{tmp\ 4639}#)
- ((lambda (#{tmp\ 4648}#)
- (if #{tmp\ 4648}#
- (apply (lambda (#{stuff\ 4650}#)
+ #{x\ 16848}#))
+ #{tmp\ 16851}#)
+ ((lambda (#{tmp\ 16860}#)
+ (if #{tmp\ 16860}#
+ (apply (lambda (#{stuff\ 16862}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4649"))
+ #("i16861"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- (cons #{x\ 4636}#
- #{stuff\ 4650}#)))
- #{tmp\ 4648}#)
- ((lambda (#{else\ 4652}#)
+ (cons #{x\ 16848}#
+ #{stuff\ 16862}#)))
+ #{tmp\ 16860}#)
+ ((lambda (#{else\ 16864}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4651"))
+ #("i16863"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4634"
- "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4629"
- "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- #{x\ 4636}#
- #{y\ 4637}#))
- #{tmp\ 4638}#)))
+ #{x\ 16848}#
+ #{y\ 16849}#))
+ #{tmp\ 16850}#)))
($sc-dispatch
- #{tmp\ 4638}#
+ #{tmp\ 16850}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x y)
#((top) (top))
- #("i4634" "i4635"))
+ #("i16846"
+ "i16847"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4629" "i4630"))
+ #("i16841"
+ "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4638}#
+ #{tmp\ 16850}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4634" "i4635"))
+ #("i16846" "i16847"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4629" "i4630"))
+ #("i16841" "i16842"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
any))))
- #{y\ 4637}#))
- #{tmp\ 4633}#)
+ #{y\ 16849}#))
+ #{tmp\ 16845}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4632}#)))
- ($sc-dispatch #{tmp\ 4632}# (quote (any any)))))
- (list #{x\ 4627}# #{y\ 4628}#))))
- (#{quasiappend\ 4624}#
- (lambda (#{x\ 4653}# #{y\ 4654}#)
- ((lambda (#{tmp\ 4658}#)
- ((lambda (#{tmp\ 4659}#)
- (if #{tmp\ 4659}#
- (apply (lambda (#{x\ 4662}# #{y\ 4663}#)
- ((lambda (#{tmp\ 4664}#)
- ((lambda (#{tmp\ 4665}#)
- (if #{tmp\ 4665}#
- (apply (lambda () #{x\ 4662}#)
- #{tmp\ 4665}#)
- ((lambda (#{_\ 4667}#)
+ #{tmp\ 16844}#)))
+ ($sc-dispatch #{tmp\ 16844}# (quote (any any)))))
+ (list #{x\ 16839}# #{y\ 16840}#))))
+ (#{quasiappend\ 16836}#
+ (lambda (#{x\ 16865}# #{y\ 16866}#)
+ ((lambda (#{tmp\ 16870}#)
+ ((lambda (#{tmp\ 16871}#)
+ (if #{tmp\ 16871}#
+ (apply (lambda (#{x\ 16874}# #{y\ 16875}#)
+ ((lambda (#{tmp\ 16876}#)
+ ((lambda (#{tmp\ 16877}#)
+ (if #{tmp\ 16877}#
+ (apply (lambda () #{x\ 16874}#)
+ #{tmp\ 16877}#)
+ ((lambda (#{_\ 16879}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4666"))
+ #("i16878"))
#(ribcage
#(x y)
#((top) (top))
- #("i4660"
- "i4661"))
+ #("i16872"
+ "i16873"))
#(ribcage
()
()
#(ribcage
#(x y)
#((top) (top))
- #("i4655"
- "i4656"))
+ #("i16867"
+ "i16868"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
- #{x\ 4662}#
- #{y\ 4663}#))
- #{tmp\ 4664}#)))
+ #{x\ 16874}#
+ #{y\ 16875}#))
+ #{tmp\ 16876}#)))
($sc-dispatch
- #{tmp\ 4664}#
+ #{tmp\ 16876}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4660" "i4661"))
+ #("i16872" "i16873"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4655" "i4656"))
+ #("i16867" "i16868"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
()))))
- #{y\ 4663}#))
- #{tmp\ 4659}#)
+ #{y\ 16875}#))
+ #{tmp\ 16871}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4658}#)))
- ($sc-dispatch #{tmp\ 4658}# (quote (any any)))))
- (list #{x\ 4653}# #{y\ 4654}#))))
- (#{quasivector\ 4625}#
- (lambda (#{x\ 4668}#)
- ((lambda (#{tmp\ 4671}#)
- ((lambda (#{x\ 4673}#)
- ((lambda (#{tmp\ 4674}#)
- ((lambda (#{tmp\ 4675}#)
- (if #{tmp\ 4675}#
- (apply (lambda (#{x\ 4677}#)
+ #{tmp\ 16870}#)))
+ ($sc-dispatch #{tmp\ 16870}# (quote (any any)))))
+ (list #{x\ 16865}# #{y\ 16866}#))))
+ (#{quasivector\ 16837}#
+ (lambda (#{x\ 16880}#)
+ ((lambda (#{tmp\ 16883}#)
+ ((lambda (#{x\ 16885}#)
+ ((lambda (#{tmp\ 16886}#)
+ ((lambda (#{tmp\ 16887}#)
+ (if #{tmp\ 16887}#
+ (apply (lambda (#{x\ 16889}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4676"))
+ #("i16888"))
#(ribcage
#(x)
#((top))
- #("i4672"))
+ #("i16884"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4669"))
+ #("i16881"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
(list->vector
- #{x\ 4677}#)))
- #{tmp\ 4675}#)
- ((lambda (#{tmp\ 4679}#)
- (if #{tmp\ 4679}#
- (apply (lambda (#{x\ 4681}#)
+ #{x\ 16889}#)))
+ #{tmp\ 16887}#)
+ ((lambda (#{tmp\ 16891}#)
+ (if #{tmp\ 16891}#
+ (apply (lambda (#{x\ 16893}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4680"))
+ #("i16892"))
#(ribcage
#(x)
#((top))
- #("i4672"))
+ #("i16884"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4669"))
+ #("i16881"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
- #{x\ 4681}#))
- #{tmp\ 4679}#)
- ((lambda (#{_\ 4684}#)
+ #{x\ 16893}#))
+ #{tmp\ 16891}#)
+ ((lambda (#{_\ 16896}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4683"))
+ #("i16895"))
#(ribcage
#(x)
#((top))
- #("i4672"))
+ #("i16884"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4669"))
+ #("i16881"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
- #{x\ 4673}#))
- #{tmp\ 4674}#)))
+ #{x\ 16885}#))
+ #{tmp\ 16886}#)))
($sc-dispatch
- #{tmp\ 4674}#
+ #{tmp\ 16886}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x)
#((top))
- #("i4672"))
+ #("i16884"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4669"))
+ #("i16881"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4674}#
+ #{tmp\ 16886}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4672"))
+ #(ribcage #(x) #((top)) #("i16884"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4669"))
+ #(ribcage #(x) #((top)) #("i16881"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
each-any))))
- #{x\ 4673}#))
- #{tmp\ 4671}#))
- #{x\ 4668}#)))
- (#{quasi\ 4626}#
- (lambda (#{p\ 4685}# #{lev\ 4686}#)
- ((lambda (#{tmp\ 4689}#)
- ((lambda (#{tmp\ 4690}#)
- (if #{tmp\ 4690}#
- (apply (lambda (#{p\ 4692}#)
- (if (= #{lev\ 4686}# 0)
- #{p\ 4692}#
- (#{quasicons\ 4623}#
+ #{x\ 16885}#))
+ #{tmp\ 16883}#))
+ #{x\ 16880}#)))
+ (#{quasi\ 16838}#
+ (lambda (#{p\ 16897}# #{lev\ 16898}#)
+ ((lambda (#{tmp\ 16901}#)
+ ((lambda (#{tmp\ 16902}#)
+ (if #{tmp\ 16902}#
+ (apply (lambda (#{p\ 16904}#)
+ (if (= #{lev\ 16898}# 0)
+ #{p\ 16904}#
+ (#{quasicons\ 16835}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4691"))
+ #("i16903"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i4691"))
+ #("i16903"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
- (#{quasi\ 4626}#
- (list #{p\ 4692}#)
- (- #{lev\ 4686}# 1)))))
- #{tmp\ 4690}#)
- ((lambda (#{tmp\ 4693}#)
- (if (if #{tmp\ 4693}#
- (apply (lambda (#{args\ 4695}#)
- (= #{lev\ 4686}# 0))
- #{tmp\ 4693}#)
+ (#{quasi\ 16838}#
+ (list #{p\ 16904}#)
+ (- #{lev\ 16898}# 1)))))
+ #{tmp\ 16902}#)
+ ((lambda (#{tmp\ 16905}#)
+ (if (if #{tmp\ 16905}#
+ (apply (lambda (#{args\ 16907}#)
+ (= #{lev\ 16898}# 0))
+ #{tmp\ 16905}#)
#f)
- (apply (lambda (#{args\ 4697}#)
+ (apply (lambda (#{args\ 16909}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4685}#
+ #{p\ 16897}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4696"))
+ #("i16908"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
- #{args\ 4697}#)))
- #{tmp\ 4693}#)
- ((lambda (#{tmp\ 4698}#)
- (if #{tmp\ 4698}#
- (apply (lambda (#{p\ 4701}#
- #{q\ 4702}#)
- (if (= #{lev\ 4686}# 0)
- (#{quasiappend\ 4624}#
- #{p\ 4701}#
- (#{quasi\ 4626}#
- #{q\ 4702}#
- #{lev\ 4686}#))
- (#{quasicons\ 4623}#
- (#{quasicons\ 4623}#
+ #{args\ 16909}#)))
+ #{tmp\ 16905}#)
+ ((lambda (#{tmp\ 16910}#)
+ (if #{tmp\ 16910}#
+ (apply (lambda (#{p\ 16913}#
+ #{q\ 16914}#)
+ (if (= #{lev\ 16898}# 0)
+ (#{quasiappend\ 16836}#
+ #{p\ 16913}#
+ (#{quasi\ 16838}#
+ #{q\ 16914}#
+ #{lev\ 16898}#))
+ (#{quasicons\ 16835}#
+ (#{quasicons\ 16835}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4699"
- "i4700"))
+ #("i16911"
+ "i16912"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4699"
- "i4700"))
+ #("i16911"
+ "i16912"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
- (#{quasi\ 4626}#
- (list #{p\ 4701}#)
- (- #{lev\ 4686}# 1)))
- (#{quasi\ 4626}#
- #{q\ 4702}#
- #{lev\ 4686}#))))
- #{tmp\ 4698}#)
- ((lambda (#{tmp\ 4703}#)
- (if (if #{tmp\ 4703}#
- (apply (lambda (#{args\ 4706}#
- #{q\ 4707}#)
- (= #{lev\ 4686}# 0))
- #{tmp\ 4703}#)
+ (#{quasi\ 16838}#
+ (list #{p\ 16913}#)
+ (- #{lev\ 16898}#
+ 1)))
+ (#{quasi\ 16838}#
+ #{q\ 16914}#
+ #{lev\ 16898}#))))
+ #{tmp\ 16910}#)
+ ((lambda (#{tmp\ 16915}#)
+ (if (if #{tmp\ 16915}#
+ (apply (lambda (#{args\ 16918}#
+ #{q\ 16919}#)
+ (= #{lev\ 16898}#
+ 0))
+ #{tmp\ 16915}#)
#f)
- (apply (lambda (#{args\ 4710}#
- #{q\ 4711}#)
+ (apply (lambda (#{args\ 16922}#
+ #{q\ 16923}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 4685}#
+ #{p\ 16897}#
(cons '#(syntax-object
unquote-splicing
((top)
#(args q)
#((top)
(top))
- #("i4708"
- "i4709"))
+ #("i16920"
+ "i16921"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- #{args\ 4710}#)))
- #{tmp\ 4703}#)
- ((lambda (#{tmp\ 4712}#)
- (if #{tmp\ 4712}#
- (apply (lambda (#{p\ 4714}#)
- (#{quasicons\ 4623}#
+ #{args\ 16922}#)))
+ #{tmp\ 16915}#)
+ ((lambda (#{tmp\ 16924}#)
+ (if #{tmp\ 16924}#
+ (apply (lambda (#{p\ 16926}#)
+ (#{quasicons\ 16835}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4713"))
+ #("i16925"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(p)
#((top))
- #("i4713"))
+ #("i16925"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile)))
- (#{quasi\ 4626}#
- (list #{p\ 4714}#)
- (+ #{lev\ 4686}#
+ (#{quasi\ 16838}#
+ (list #{p\ 16926}#)
+ (+ #{lev\ 16898}#
1))))
- #{tmp\ 4712}#)
- ((lambda (#{tmp\ 4715}#)
- (if #{tmp\ 4715}#
- (apply (lambda (#{p\ 4718}#
- #{q\ 4719}#)
- (#{quasicons\ 4623}#
- (#{quasi\ 4626}#
- #{p\ 4718}#
- #{lev\ 4686}#)
- (#{quasi\ 4626}#
- #{q\ 4719}#
- #{lev\ 4686}#)))
- #{tmp\ 4715}#)
- ((lambda (#{tmp\ 4720}#)
- (if #{tmp\ 4720}#
- (apply (lambda (#{x\ 4722}#)
- (#{quasivector\ 4625}#
- (#{quasi\ 4626}#
- #{x\ 4722}#
- #{lev\ 4686}#)))
- #{tmp\ 4720}#)
- ((lambda (#{p\ 4725}#)
+ #{tmp\ 16924}#)
+ ((lambda (#{tmp\ 16927}#)
+ (if #{tmp\ 16927}#
+ (apply (lambda (#{p\ 16930}#
+ #{q\ 16931}#)
+ (#{quasicons\ 16835}#
+ (#{quasi\ 16838}#
+ #{p\ 16930}#
+ #{lev\ 16898}#)
+ (#{quasi\ 16838}#
+ #{q\ 16931}#
+ #{lev\ 16898}#)))
+ #{tmp\ 16927}#)
+ ((lambda (#{tmp\ 16932}#)
+ (if #{tmp\ 16932}#
+ (apply (lambda (#{x\ 16934}#)
+ (#{quasivector\ 16837}#
+ (#{quasi\ 16838}#
+ #{x\ 16934}#
+ #{lev\ 16898}#)))
+ #{tmp\ 16932}#)
+ ((lambda (#{p\ 16937}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4724"))
+ #("i16936"))
#(ribcage
()
()
lev)
#((top)
(top))
- #("i4687"
- "i4688"))
+ #("i16899"
+ "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene
guile))
- #{p\ 4725}#))
- #{tmp\ 4689}#)))
+ #{p\ 16937}#))
+ #{tmp\ 16901}#)))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619"
- "i4620"
- "i4621"
- "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619" "i4620" "i4621" "i4622")))
+ #("i16831"
+ "i16832"
+ "i16833"
+ "i16834")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 16901}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4687" "i4688"))
+ #("i16899" "i16900"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4619" "i4620" "i4621" "i4622")))
+ #("i16831" "i16832" "i16833" "i16834")))
(hygiene guile)))
any))))
- #{p\ 4685}#))))
- (lambda (#{x\ 4726}#)
- ((lambda (#{tmp\ 4728}#)
- ((lambda (#{tmp\ 4729}#)
- (if #{tmp\ 4729}#
- (apply (lambda (#{_\ 4732}# #{e\ 4733}#)
- (#{quasi\ 4626}# #{e\ 4733}# 0))
- #{tmp\ 4729}#)
+ #{p\ 16897}#))))
+ (lambda (#{x\ 16938}#)
+ ((lambda (#{tmp\ 16940}#)
+ ((lambda (#{tmp\ 16941}#)
+ (if #{tmp\ 16941}#
+ (apply (lambda (#{_\ 16944}# #{e\ 16945}#)
+ (#{quasi\ 16838}# #{e\ 16945}# 0))
+ #{tmp\ 16941}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4728}#)))
- ($sc-dispatch #{tmp\ 4728}# (quote (any any)))))
- #{x\ 4726}#)))
+ #{tmp\ 16940}#)))
+ ($sc-dispatch #{tmp\ 16940}# (quote (any any)))))
+ #{x\ 16938}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 4801}#)
- (letrec ((#{read-file\ 4804}#
- (lambda (#{fn\ 4805}# #{k\ 4806}#)
- (let ((#{p\ 4810}# (open-input-file #{fn\ 4805}#)))
- (letrec ((#{f\ 4814}#
- (lambda (#{x\ 4815}# #{result\ 4816}#)
- (if (eof-object? #{x\ 4815}#)
+ (cons (lambda (#{x\ 16946}#)
+ (letrec ((#{read-file\ 16949}#
+ (lambda (#{fn\ 16950}# #{k\ 16951}#)
+ (let ((#{p\ 16955}# (open-input-file #{fn\ 16950}#)))
+ (letrec ((#{f\ 16959}#
+ (lambda (#{x\ 16960}# #{result\ 16961}#)
+ (if (eof-object? #{x\ 16960}#)
(begin
- (close-input-port #{p\ 4810}#)
- (reverse #{result\ 4816}#))
- (#{f\ 4814}#
- (read #{p\ 4810}#)
+ (close-input-port #{p\ 16955}#)
+ (reverse #{result\ 16961}#))
+ (#{f\ 16959}#
+ (read #{p\ 16955}#)
(cons (datum->syntax
- #{k\ 4806}#
- #{x\ 4815}#)
- #{result\ 4816}#))))))
- (#{f\ 4814}# (read #{p\ 4810}#) (quote ())))))))
- ((lambda (#{tmp\ 4817}#)
- ((lambda (#{tmp\ 4818}#)
- (if #{tmp\ 4818}#
- (apply (lambda (#{k\ 4821}# #{filename\ 4822}#)
- (let ((#{fn\ 4824}#
- (syntax->datum #{filename\ 4822}#)))
- ((lambda (#{tmp\ 4826}#)
- ((lambda (#{tmp\ 4827}#)
- (if #{tmp\ 4827}#
- (apply (lambda (#{exp\ 4829}#)
+ #{k\ 16951}#
+ #{x\ 16960}#)
+ #{result\ 16961}#))))))
+ (#{f\ 16959}# (read #{p\ 16955}#) (quote ())))))))
+ ((lambda (#{tmp\ 16962}#)
+ ((lambda (#{tmp\ 16963}#)
+ (if #{tmp\ 16963}#
+ (apply (lambda (#{k\ 16966}# #{filename\ 16967}#)
+ (let ((#{fn\ 16969}#
+ (syntax->datum #{filename\ 16967}#)))
+ ((lambda (#{tmp\ 16971}#)
+ ((lambda (#{tmp\ 16972}#)
+ (if #{tmp\ 16972}#
+ (apply (lambda (#{exp\ 16974}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4828"))
+ #("i16973"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4823"))
+ #("i16968"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4819"
- "i4820"))
+ #("i16964"
+ "i16965"))
#(ribcage
(read-file)
((top))
- ("i4803"))
+ ("i16948"))
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i16947")))
(hygiene guile))
- #{exp\ 4829}#))
- #{tmp\ 4827}#)
+ #{exp\ 16974}#))
+ #{tmp\ 16972}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4826}#)))
+ #{tmp\ 16971}#)))
($sc-dispatch
- #{tmp\ 4826}#
+ #{tmp\ 16971}#
'each-any)))
- (#{read-file\ 4804}#
- #{fn\ 4824}#
- #{k\ 4821}#))))
- #{tmp\ 4818}#)
+ (#{read-file\ 16949}#
+ #{fn\ 16969}#
+ #{k\ 16966}#))))
+ #{tmp\ 16963}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4817}#)))
- ($sc-dispatch #{tmp\ 4817}# (quote (any any)))))
- #{x\ 4801}#)))
+ #{tmp\ 16962}#)))
+ ($sc-dispatch #{tmp\ 16962}# (quote (any any)))))
+ #{x\ 16946}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 4847}#)
- ((lambda (#{tmp\ 4849}#)
- ((lambda (#{tmp\ 4850}#)
- (if #{tmp\ 4850}#
- (apply (lambda (#{k\ 4853}# #{filename\ 4854}#)
- (let ((#{fn\ 4856}#
- (syntax->datum #{filename\ 4854}#)))
- ((lambda (#{tmp\ 4858}#)
- ((lambda (#{fn\ 4860}#)
+ (cons (lambda (#{x\ 16976}#)
+ ((lambda (#{tmp\ 16978}#)
+ ((lambda (#{tmp\ 16979}#)
+ (if #{tmp\ 16979}#
+ (apply (lambda (#{k\ 16982}# #{filename\ 16983}#)
+ (let ((#{fn\ 16985}#
+ (syntax->datum #{filename\ 16983}#)))
+ ((lambda (#{tmp\ 16987}#)
+ ((lambda (#{fn\ 16989}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i4859"))
+ #("i16988"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4855"))
+ #("i16984"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4851" "i4852"))
+ #("i16980" "i16981"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4848")))
+ #("i16977")))
(hygiene guile))
- #{fn\ 4860}#))
- #{tmp\ 4858}#))
- (let ((#{t\ 4863}#
- (%search-load-path #{fn\ 4856}#)))
- (if #{t\ 4863}#
- #{t\ 4863}#
+ #{fn\ 16989}#))
+ #{tmp\ 16987}#))
+ (let ((#{t\ 16992}#
+ (%search-load-path #{fn\ 16985}#)))
+ (if #{t\ 16992}#
+ #{t\ 16992}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4847}#
- #{filename\ 4854}#))))))
- #{tmp\ 4850}#)
+ #{x\ 16976}#
+ #{filename\ 16983}#))))))
+ #{tmp\ 16979}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4849}#)))
- ($sc-dispatch #{tmp\ 4849}# (quote (any any)))))
- #{x\ 4847}#))
+ #{tmp\ 16978}#)))
+ ($sc-dispatch #{tmp\ 16978}# (quote (any any)))))
+ #{x\ 16976}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 4874}#)
- ((lambda (#{tmp\ 4876}#)
- ((lambda (#{tmp\ 4877}#)
- (if #{tmp\ 4877}#
- (apply (lambda (#{_\ 4880}# #{e\ 4881}#)
+ (cons (lambda (#{x\ 16994}#)
+ ((lambda (#{tmp\ 16996}#)
+ ((lambda (#{tmp\ 16997}#)
+ (if #{tmp\ 16997}#
+ (apply (lambda (#{_\ 17000}# #{e\ 17001}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4874}#))
- #{tmp\ 4877}#)
+ #{x\ 16994}#))
+ #{tmp\ 16997}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4876}#)))
- ($sc-dispatch #{tmp\ 4876}# (quote (any any)))))
- #{x\ 4874}#))
+ #{tmp\ 16996}#)))
+ ($sc-dispatch #{tmp\ 16996}# (quote (any any)))))
+ #{x\ 16994}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 4887}#)
- ((lambda (#{tmp\ 4889}#)
- ((lambda (#{tmp\ 4890}#)
- (if #{tmp\ 4890}#
- (apply (lambda (#{_\ 4893}# #{e\ 4894}#)
+ (cons (lambda (#{x\ 17002}#)
+ ((lambda (#{tmp\ 17004}#)
+ ((lambda (#{tmp\ 17005}#)
+ (if #{tmp\ 17005}#
+ (apply (lambda (#{_\ 17008}# #{e\ 17009}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4887}#))
- #{tmp\ 4890}#)
+ #{x\ 17002}#))
+ #{tmp\ 17005}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4889}#)))
- ($sc-dispatch #{tmp\ 4889}# (quote (any any)))))
- #{x\ 4887}#))
+ #{tmp\ 17004}#)))
+ ($sc-dispatch #{tmp\ 17004}# (quote (any any)))))
+ #{x\ 17002}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 4900}#)
- ((lambda (#{tmp\ 4902}#)
- ((lambda (#{tmp\ 4903}#)
- (if #{tmp\ 4903}#
- (apply (lambda (#{_\ 4908}#
- #{e\ 4909}#
- #{m1\ 4910}#
- #{m2\ 4911}#)
- ((lambda (#{tmp\ 4913}#)
- ((lambda (#{body\ 4915}#)
+ (cons (lambda (#{x\ 17010}#)
+ ((lambda (#{tmp\ 17012}#)
+ ((lambda (#{tmp\ 17013}#)
+ (if #{tmp\ 17013}#
+ (apply (lambda (#{_\ 17018}#
+ #{e\ 17019}#
+ #{m1\ 17020}#
+ #{m2\ 17021}#)
+ ((lambda (#{tmp\ 17023}#)
+ ((lambda (#{body\ 17025}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i4914"))
+ #("i17024"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4914"))
+ #("i17024"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene guile))
- #{e\ 4909}#))
- #{body\ 4915}#))
- #{tmp\ 4913}#))
- (letrec ((#{f\ 4919}#
- (lambda (#{clause\ 4920}#
- #{clauses\ 4921}#)
- (if (null? #{clauses\ 4921}#)
- ((lambda (#{tmp\ 4923}#)
- ((lambda (#{tmp\ 4924}#)
- (if #{tmp\ 4924}#
- (apply (lambda (#{e1\ 4927}#
- #{e2\ 4928}#)
+ #{e\ 17019}#))
+ #{body\ 17025}#))
+ #{tmp\ 17023}#))
+ (letrec ((#{f\ 17029}#
+ (lambda (#{clause\ 17030}#
+ #{clauses\ 17031}#)
+ (if (null? #{clauses\ 17031}#)
+ ((lambda (#{tmp\ 17033}#)
+ ((lambda (#{tmp\ 17034}#)
+ (if #{tmp\ 17034}#
+ (apply (lambda (#{e1\ 17037}#
+ #{e2\ 17038}#)
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4925"
- "i4926"))
+ #("i17035"
+ "i17036"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
- (cons #{e1\ 4927}#
- #{e2\ 4928}#)))
- #{tmp\ 4924}#)
- ((lambda (#{tmp\ 4930}#)
- (if #{tmp\ 4930}#
- (apply (lambda (#{k\ 4934}#
- #{e1\ 4935}#
- #{e2\ 4936}#)
+ (cons #{e1\ 17037}#
+ #{e2\ 17038}#)))
+ #{tmp\ 17034}#)
+ ((lambda (#{tmp\ 17040}#)
+ (if #{tmp\ 17040}#
+ (apply (lambda (#{k\ 17044}#
+ #{e1\ 17045}#
+ #{e2\ 17046}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4931"
- "i4932"
- "i4933"))
+ #("i17041"
+ "i17042"
+ "i17043"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4931"
- "i4932"
- "i4933"))
+ #("i17041"
+ "i17042"
+ "i17043"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4931"
- "i4932"
- "i4933"))
+ #("i17041"
+ "i17042"
+ "i17043"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4931"
- "i4932"
- "i4933"))
+ #("i17041"
+ "i17042"
+ "i17043"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
- #{k\ 4934}#))
+ #{k\ 17044}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4931"
- "i4932"
- "i4933"))
+ #("i17041"
+ "i17042"
+ "i17043"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
- (cons #{e1\ 4935}#
- #{e2\ 4936}#))))
- #{tmp\ 4930}#)
- ((lambda (#{_\ 4940}#)
+ (cons #{e1\ 17045}#
+ #{e2\ 17046}#))))
+ #{tmp\ 17040}#)
+ ((lambda (#{_\ 17050}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4900}#
- #{clause\ 4920}#))
- #{tmp\ 4923}#)))
+ #{x\ 17010}#
+ #{clause\ 17030}#))
+ #{tmp\ 17033}#)))
($sc-dispatch
- #{tmp\ 4923}#
+ #{tmp\ 17033}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4923}#
+ #{tmp\ 17033}#
'(#(free-id
#(syntax-object
else
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4920}#)
- ((lambda (#{tmp\ 4942}#)
- ((lambda (#{rest\ 4944}#)
- ((lambda (#{tmp\ 4945}#)
- ((lambda (#{tmp\ 4946}#)
- (if #{tmp\ 4946}#
- (apply (lambda (#{k\ 4950}#
- #{e1\ 4951}#
- #{e2\ 4952}#)
+ #{clause\ 17030}#)
+ ((lambda (#{tmp\ 17052}#)
+ ((lambda (#{rest\ 17054}#)
+ ((lambda (#{tmp\ 17055}#)
+ ((lambda (#{tmp\ 17056}#)
+ (if #{tmp\ 17056}#
+ (apply (lambda (#{k\ 17060}#
+ #{e1\ 17061}#
+ #{e2\ 17062}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4947"
- "i4948"
- "i4949"))
+ #("i17057"
+ "i17058"
+ "i17059"))
#(ribcage
#(rest)
#((top))
- #("i4943"))
+ #("i17053"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4947"
- "i4948"
- "i4949"))
+ #("i17057"
+ "i17058"
+ "i17059"))
#(ribcage
#(rest)
#((top))
- #("i4943"))
+ #("i17053"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4947"
- "i4948"
- "i4949"))
+ #("i17057"
+ "i17058"
+ "i17059"))
#(ribcage
#(rest)
#((top))
- #("i4943"))
+ #("i17053"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4947"
- "i4948"
- "i4949"))
+ #("i17057"
+ "i17058"
+ "i17059"))
#(ribcage
#(rest)
#((top))
- #("i4943"))
+ #("i17053"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
- #{k\ 4950}#))
+ #{k\ 17060}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4947"
- "i4948"
- "i4949"))
+ #("i17057"
+ "i17058"
+ "i17059"))
#(ribcage
#(rest)
#((top))
- #("i4943"))
+ #("i17053"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4916"
- "i4917"
- "i4918"))
+ #("i17026"
+ "i17027"
+ "i17028"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4904"
- "i4905"
- "i4906"
- "i4907"))
+ #("i17014"
+ "i17015"
+ "i17016"
+ "i17017"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4901")))
+ #("i17011")))
(hygiene
guile))
- (cons #{e1\ 4951}#
- #{e2\ 4952}#))
- #{rest\ 4944}#))
- #{tmp\ 4946}#)
- ((lambda (#{_\ 4956}#)
+ (cons #{e1\ 17061}#
+ #{e2\ 17062}#))
+ #{rest\ 17054}#))
+ #{tmp\ 17056}#)
+ ((lambda (#{_\ 17066}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4900}#
- #{clause\ 4920}#))
- #{tmp\ 4945}#)))
+ #{x\ 17010}#
+ #{clause\ 17030}#))
+ #{tmp\ 17055}#)))
($sc-dispatch
- #{tmp\ 4945}#
+ #{tmp\ 17055}#
'(each-any
any
.
each-any))))
- #{clause\ 4920}#))
- #{tmp\ 4942}#))
- (#{f\ 4919}#
- (car #{clauses\ 4921}#)
- (cdr #{clauses\ 4921}#)))))))
- (#{f\ 4919}# #{m1\ 4910}# #{m2\ 4911}#))))
- #{tmp\ 4903}#)
+ #{clause\ 17030}#))
+ #{tmp\ 17052}#))
+ (#{f\ 17029}#
+ (car #{clauses\ 17031}#)
+ (cdr #{clauses\ 17031}#)))))))
+ (#{f\ 17029}# #{m1\ 17020}# #{m2\ 17021}#))))
+ #{tmp\ 17013}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4902}#)))
+ #{tmp\ 17012}#)))
($sc-dispatch
- #{tmp\ 4902}#
+ #{tmp\ 17012}#
'(any any any . each-any))))
- #{x\ 4900}#))
+ #{x\ 17010}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 4986}#)
- ((lambda (#{tmp\ 4988}#)
- ((lambda (#{tmp\ 4989}#)
- (if #{tmp\ 4989}#
- (apply (lambda (#{_\ 4992}# #{e\ 4993}#)
+ (cons (lambda (#{x\ 17067}#)
+ ((lambda (#{tmp\ 17069}#)
+ ((lambda (#{tmp\ 17070}#)
+ (if #{tmp\ 17070}#
+ (apply (lambda (#{_\ 17073}# #{e\ 17074}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4987")))
+ #(ribcage #(x) #((top)) #("i17068")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4987")))
+ #(ribcage #(x) #((top)) #("i17068")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4987")))
+ #(ribcage #(x) #((top)) #("i17068")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4987")))
+ #(ribcage #(x) #((top)) #("i17068")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071" "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
- #{e\ 4993}#))
- (list (cons #{_\ 4992}#
+ #{e\ 17074}#))
+ (list (cons #{_\ 17073}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4990" "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
- (cons #{e\ 4993}#
+ (cons #{e\ 17074}#
'(#(syntax-object
x
((top)
#(_ e)
#((top)
(top))
- #("i4990"
- "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene guile))
#(syntax-object
...
#(_ e)
#((top)
(top))
- #("i4990"
- "i4991"))
+ #("i17071"
+ "i17072"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4987")))
+ #("i17068")))
(hygiene
guile)))))))))
- #{tmp\ 4989}#)
+ #{tmp\ 17070}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4988}#)))
- ($sc-dispatch #{tmp\ 4988}# (quote (any any)))))
- #{x\ 4986}#))
+ #{tmp\ 17069}#)))
+ ($sc-dispatch #{tmp\ 17069}# (quote (any any)))))
+ #{x\ 17067}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 4999}#)
- ((lambda (#{tmp\ 5001}#)
- ((lambda (#{tmp\ 5002}#)
- (if #{tmp\ 5002}#
- (apply (lambda (#{_\ 5008}#
- #{id\ 5009}#
- #{args\ 5010}#
- #{b0\ 5011}#
- #{b1\ 5012}#)
+ (cons (lambda (#{x\ 17075}#)
+ ((lambda (#{tmp\ 17077}#)
+ ((lambda (#{tmp\ 17078}#)
+ (if #{tmp\ 17078}#
+ (apply (lambda (#{_\ 17084}#
+ #{id\ 17085}#
+ #{args\ 17086}#
+ #{b0\ 17087}#
+ #{b1\ 17088}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i5003"
- "i5004"
- "i5005"
- "i5006"
- "i5007"))
+ #("i17079"
+ "i17080"
+ "i17081"
+ "i17082"
+ "i17083"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i5000")))
+ #(ribcage #(x) #((top)) #("i17076")))
(hygiene guile))
- #{id\ 5009}#
+ #{id\ 17085}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i5003"
- "i5004"
- "i5005"
- "i5006"
- "i5007"))
+ #("i17079"
+ "i17080"
+ "i17081"
+ "i17082"
+ "i17083"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i5000")))
+ #("i17076")))
(hygiene guile))
- (cons #{args\ 5010}#
- (cons #{b0\ 5011}#
- #{b1\ 5012}#)))))
- #{tmp\ 5002}#)
- ((lambda (#{tmp\ 5014}#)
- (if (if #{tmp\ 5014}#
- (apply (lambda (#{_\ 5018}#
- #{id\ 5019}#
- #{val\ 5020}#)
+ (cons #{args\ 17086}#
+ (cons #{b0\ 17087}#
+ #{b1\ 17088}#)))))
+ #{tmp\ 17078}#)
+ ((lambda (#{tmp\ 17090}#)
+ (if (if #{tmp\ 17090}#
+ (apply (lambda (#{_\ 17094}#
+ #{id\ 17095}#
+ #{val\ 17096}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i5015" "i5016" "i5017"))
+ #("i17091" "i17092" "i17093"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i5000")))
+ #("i17076")))
(hygiene guile))))
- #{tmp\ 5014}#)
+ #{tmp\ 17090}#)
#f)
- (apply (lambda (#{_\ 5024}#
- #{id\ 5025}#
- #{val\ 5026}#)
+ (apply (lambda (#{_\ 17100}#
+ #{id\ 17101}#
+ #{val\ 17102}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i5021" "i5022" "i5023"))
+ #("i17097" "i17098" "i17099"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i5000")))
+ #("i17076")))
(hygiene guile))
- #{id\ 5025}#
- #{val\ 5026}#))
- #{tmp\ 5014}#)
+ #{id\ 17101}#
+ #{val\ 17102}#))
+ #{tmp\ 17090}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5001}#)))
+ #{tmp\ 17077}#)))
($sc-dispatch
- #{tmp\ 5001}#
+ #{tmp\ 17077}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 5001}#
+ #{tmp\ 17077}#
'(any (any . any) any . each-any))))
- #{x\ 4999}#))
+ #{x\ 17075}#))
(module-name (current-module)))))
HCoop / bpt / guile.git / commitdiff